MASM-打字练习程序

     int 21h
        cmp addr[si],0ah
        jz LROT
        cmp addr[si],0dh
        jz LROT
        inc dx
        inc si
        cmp si,306
        jb LROT

        jmp lfret

LoadERROR:
        TISHI 14,20,ts03
        mov ah,01h
        int 21h

        CLEARSCREAM 0,5eh,9,14,14,65
        TISHI 10,35,ts00
        TISHI 12,25,ts01

        mov si,0
        jmp LFROTA
        
lfret:  ret
LoadFile endp
;---------------------------------------------------
RightRata_out proc near
        push ax
        push bx
        push cx
        push dx
    
        mov ax,Rnumber
        mov cx,100
        mul cx
        div Anumber
        mov bx,ax
        CALL btod_out

        push dx
        mov ah,02h
        mov dl,''''.''''
        int 21h
        pop dx

        mov ax,dx
        mul cx
        div Anumber
        mov bx,ax
        CALL btod_out

        mov ah,2h
        mov dl,''''%''''
        int 21h
                    
        pop dx
        pop cx
        pop bx
        pop ax
          ret
RightRata_out endp
;----------------------