汇编语言 输入字流统计非数字的个数（里面有个转换为10进制的子程序）

这个学期要学汇编语言了，我把我上机的题的代码发上来，希望对大家有帮助，当然代码有许多改进的地方，还需大家提供宝贵的代码啊！  

题目是对输入字流统计非数字的个数的统计，必须以十进制显示。

; multi-segment executable file template.

data segment
    ; add your data here!
    pkey db "Count the udigtal string ,Please input the word!$"
    BACK   db "input over,the count is:$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
start:
; set segment registers:
      mov ax, data
      mov ds, ax
      mov es, ax
      ; add your code here
      mov dX, OFFSET pkey ;输出字符串！
      mov ah, 9
      int 21h        ; output string at ds:dx
      MOV CL,0
      MOV AL,0
REPT: MOV AH,1
      INT 21H
      CMP AL,1BH
      JZ  RT
      CMP AL,30H
      JB  COUNT
      CMP AL,39H
      JA  COUNT
      JMP REPT
COUNT:INC CL
      JMP REPT           
RT:   MOV DX ,OFFSET BACK
      MOV AH, 9
      INT 21H
      CALL TURN10
      MOV AH,4CH
      INT 21H     
         
ends

TURN10  PROC NEAR
        PUSH AX
        PUSH BX
        PUSH CX
        PUSH DX
        MOV DL,-1
SUB1:   SUB CL,100
        INC DL
        JNC SUB1
        ADD CL,100
        OR  DL,30H
        MOV AH,2
        INT 21H
       
        MOV DL,-1
SUB2:   SUB CL,10
        INC DL
        JNC SUB2
        ADD CL,10
        OR  DL,30H
        MOV AH,2
        INT 21H
       
        MOV DL,CL
        OR  DL,30H
        MOV AH,2
        INT 21H 
        POP  DX
        POP  CX
        POP  BX
        POP  AX
        RET
ENDP         
          
       
       
      

end start ; set entry point and stop the assembler.