MASM-打字练习程序

;mov ah,2h
        int 21h
        jmp RT

btodeal: cmp bp,1
         jz  btrt2
         jmp btrt1
RT:    pop bp
       pop dx
       pop cx
       pop ax       
    ret
btod_out  endp
;--------------------------------------------------
isFullLine proc near   ;bp is the parament
        push ax
        push bx
        mov ah,gbattr[0]
        mov al,gbattr

        mov LineMax,51
        mov LineAct,bp
        LINEFULL LineMax,LineAct         
        mov bl,FullFlag
        cmp bl,0
        jz  isfexit
                         
        READGB 0
        add gbattr[0],1
        sub gbattr,51
        SETGB 0,gbattr[0],gbattr
        mov FullFlag,0

isfexit: mov gbattr[0],ah
         mov gbattr,al
         pop bx
         pop ax
         ret
isFullLine endp
;--------------------------------------------------
clew_char proc  near  ; bp is the parament
        push ax
        push bx
        push cx
        push dx
        push si

        READGB 0
        mov dh,gbattr[0]
        mov dl,gbattr
        mov oldgba[0],dh
        mov oldgba,dl

        ;4/14,4/64,15/14,15/64
        mov ax,bp
        mov bl,51
        d