汇编语言编写一个程序

Question

用键盘输入一个字符串，对非数值字符进行计数，并输出计算结果

有点着急，要是写的好可以加分啊 谢啦
我感觉代码太长了，能不能改一改让代码短一些啊 谢谢啦
顺便改一下：原题目是 输入一系列以‘$’结尾的字符，对非数值字符计数，并输出结果 谢了啊 写好后我会追加分的

Answer 1

;用键盘输入一个字符串，对非数值字符进行计数，并输出计算结果

;有点着急，要是写的好可以加分啊 谢啦
;
;标准COM文件格式

;用MASM5.0编译通过,以下是运行结果:
;
;E:\masm>COUNT
;
;INPUT A STRING: GERG5 5H\\
;TOTAL: 08
;E:\masm>

CODE SEGMENT
ASSUME CS:CODE,DS:CODE,ES:CODE
ORG 100H
START:
JMP BEGIN
BUFF DB 100,0,100 DUP(0)
N DB 0
MESS DB 0DH,0AH,'INPUT A STRING: ',24H
MESS1 DB 0DH,0AH,'TOTAL: ',24H

BEGIN:
MOV AH,9
MOV DX,OFFSET MESS
INT 21H

MOV AH,0AH ;输入字符串
MOV DX,OFFSET BUFF
INT 21H
MOV BX,OFFSET BUFF+1
MOV CH,0
MOV CL,[BX]
MOV BX,OFFSET BUFF+2
L0:
MOV AL,[BX]
CMP AL,'0'
JL NO09
CMP AL,'9'
JG NO09
JMP BE09
NO09:
INC N ;非0-9，N+1
BE09:
INC BX
LOOP L0
MOV AH,9
MOV DX,OFFSET MESS1
INT 21H

MOV AL,N
MOV AH,0
MOV BL,10 ;
DIV BL ;N/10 ,个位在AH中,10位在AL中
ADD AX,3030H ;转换为ASCII码
PUSH AX
MOV AH,02
MOV DL,AL
INT 21H ;显示10位
POP DX
MOV DL,DH
INT 21H ;显示个位
INT 20H

CODE ENDS
END START

Answer 2

DATA SEGMENT
STR DB 80 (' ')
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV CL,0
LEA BX,STR
INPUT:
MOV AH,01H
INT 21H
MOV [BX],AL
INC BX
CMP AL,'$'
JNZ INPUT
MOV BX,OFFSET STR
NEXT:
MOV AL,[BX]
INC BX
CMP AL,'$'
JE DISP
CMP AL,30H
JB COUNT
CMP AL,39H
JA COUNT
JMP NEXT
COUNT:
INC CL
JMP NEXT
DISP:
MOV AL,CL
MOV BL,CL
MOV CL,4
SHR AL,CL
AND AL,0FH
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
MOV DL,BL
AND DL,0FH
ADD DL,30H
MOV AH,02H
INT 21H
MOV DL,BL
mov ah,01h
int 21h
MOV AH,4CH
INT 21H
CODE ENDS
END START