汇编——键盘输入转十进制数子程序

键盘输入转十进制数子程序。

Tip db 'Error,please retype!$'

deci proc near;键盘输入转十进制数子程序
    mov bx,0
input:    
    mov ah,1
    int 21h
    cmp al,0dh
    je exit3;若是换行键表明输入完成
    sub al,30h
    jl cc;若不是数则报错并退出子程序
     cmp al,9
    jg cc;若不是数则报错并退出子程序
    cbw
    xchg ax,bx
    mov cx,10
    mul cx
    xchg ax,bx
    add bx,ax
    jmp input3
cc:call crlf;换行
  mov ah,9
  lea dx,Tip;打印提示，提示输入存在错误
   int 21h
    call crlf;换行
   mov bx,0
   jmp input
exit3:ret
deci endp;

crlf proc near;换行子程序
  mov dl,0ah
  mov ah,02
  int 21h
ret 
crlf endp