从键盘输入一个字符串（长度不超过30），统计字符串中非数字的个数，并将统计的结果显示在屏幕上，用EXE格式实现。

问题

从键盘输入一个字符串（长度不超过30），统计字符串中非数字的个数，并将统计的结果显示在屏幕上，用EXE格式实现。

源程序

data segment
   hintinput db "please input a string:$";输入提示语
   hintoutput db "non-number:$";输出提示语
   str  db 30,?,30 dup(?);将输入的字符串保存在str中
   crlf db 0ah,0dh,'$';回车换行符
data ends
code segment
   assume cs:code,ds:data
main proc far
start:
  mov ax,data
  mov ds,ax
  lea dx,hintinput;输出提示语
  mov ah,09h
  int 21h
  lea dx,crlf     ;回车换行
  mov ah,09h
  int 21h
  lea dx,str
  mov ah,0ah
  int 21h
  lea dx,crlf     ;回车换行
  mov ah,09h
  int 21h
  lea si,str+2;si保存str首地址
  mov cl,str+1;cl保存str长度
  mov al,0  ;用al非数字计数
  mov ch,0
L1:
  mov dl,[si] ;把str中的数依次送入dl中
  cmp dl,'0'  ;如果dl<0,al加1
  jb L2
  cmp dl,'9';如果dl>9,al加1
  ja L2
  cmp dl,'9'
  jbe L3
L2:
  inc al
L3:
  inc si  
  loop L1       
  lea dx,hintoutput;输出提示语
  mov ah,09h
  int 21h
  mov dl,al
  cmp dl,9h       
  jbe L             ;如果非字母个数小于10，则直接加30输出
  mov dh,0           ;否则把dx存入ax中
  mov ax,dx
  mov bl,10               ;ax除以10后，ah作为商
  div bl                              ;al作为余数
  mov dl,al
  add dl,30h            ;先输出商，再输出余数，就是10进制了
  mov ah,02h
  int 21h 
  mov dl,ah
L:
  add dl,30h
  mov ah,02h
  int 21h
  lea dx,crlf     ;回车换行
  mov ah,09h
  int 21h 
  mov ax,4c00h
  int 21h
main endp
code ends
end start

运行结果示例