MASM-打字练习程序

sp;  ;inc gbattr
        SETGB 0,gbattr[0],gbattr
        jmp reinput
ASnz:   
        mov ah,02h
        mov dl,'''' ''''
        int 21h
        mov ah,02h
        mov dl,08h
        int 21h

        dec di
       ;---------------
        dec Anumber
        push ax
        mov al,addrtp[di]
        cmp al,addr[di]
        jnz AS1nt
        dec Rnumber
AS1nt:  pop  ax
        CALL TONGJI
      ;----------------


        mov bp,di
        CALL clew_char

        jmp reinput
        
;------------------------------------------
;==========================================        
ASnext:
        inc Anumber
        CALL TONGJI

        mov addrtp[di],al
        cmp al,addr[di]
        jnz AER
        inc Rnumber
        CALL TONGJI

A3:     inc di
        ;loop AS
        dec cx
        cmp cx,0
        jz AEND
        jmp AS

AEND:   jmp exit

AER:    inc Enumber
        mov temp,al
        BACKCHAR temp,074h
        jmp A3

exit:   CLEARSCREAM 0,07,8,16,17,63
        CLEARSCREAM 0,57,10,20,15,59
        TISHI 11,24,ts3
        call UseTimeAndOut
        TISHI 12,24,ts4
        mov bx,Anumber
        call btod_out
        TISHI 13,24,ts5
&n