关于键盘输入字符串的问题
有道题目：从键盘输入一系列以$为结束符的字符串，然后对其中的非数字字符计数，并显示出计数结果。

以下为小弟的程序：

STACK SEGMENT
DB 200(?)
STACK ENDS
DATA SEGMENT
SUM DB ?
BUF DB "PLASE INPUT A CHARACTER STRING:$ "
BUF1 DB 30
DB ?
DB 30 DUP(?)
BUF2 DB 0AH,0DH, "(SUM)= "
BUF3 DB 4 DUP(?)
DATA ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACK
BEGIN:MOV AX,DATA
MOV DS,AX
MOV AH,9
LEA DX,BUF
INT 21H
MOV AH,10
LEA DX,BUF1
INT 21H
XOR CL,CL
LEA SI,BUF1+2
COMP:MOV DL,[SI]
CMP DL, "$ "
JZ DISPLAY
CMP DL,30H
JB CHAR
CMP DL,39H
JA CHAR
INC SI
JMP COMP
CHAR:INC SI
INC CL
JMP COMP
DISPLAY:MOV SUM,CL
LEA DI,BUF3
MOV SUM,AL
MOV CL,4
SHR AL,CL
OR AL,30H
MOV BUF3,AL
INC DI
AND AL,0FH
OR AL,30H
CMP AL,3AH
JB STORE
ADD AL,07H
STORE:AND AL,0FH
MOV BUF3,AL
INC DI
MOV BYTE PTR[DI], 'H '
INC DI
MOV BYTE PTR[DI], '$ '
MOV AH,9
LEA DX,BUF2+4
INT 21H
MOV AH,4CH
INT 21H
CODE ENDS
END BEGIN

运行结果：
输入前为：PLASE INPUT A CHARACTER STRING:
键盘键入abcd$后按回车的结果为：UM)= HNPUT A CHARACTER STRING:abcd$

请问哪里错了，如何修改，谢谢

[解决办法]
...
COMP:MOV DL,[SI]
CMP DL, "$ "
JZ DISPLAY

cmp dl, 0dh ;*+ 为了防止没用按规定输入 '$ ' 结束字符
jz display ;*+

CMP DL,30H
JB CHAR
CMP DL,39H
JA CHAR
INC SI
JMP COMP
CHAR:INC SI
INC CL
JMP COMP
DISPLAY:MOV SUM,CL
LEA DI,BUF3
mov al, sum ;* MOV SUM,AL
MOV CL,4
SHR AL,CL
OR AL,30H
MOV BUF3,AL
INC DI
mov al, sum ;*+ 需要重新读取 sum, 因为上面的操作破坏了原来的值
AND AL,0FH
OR AL,30H
CMP AL,3AH
JB STORE
ADD AL,07H
STORE: ;*- AND AL,0FH ;
MOV BUF3[1],AL ;*
INC DI
MOV BYTE PTR[DI], 'H '
INC DI
MOV BYTE PTR[DI], '$ '
MOV AH,9
LEA DX,BUF2 ;*- +4
...
[解决办法]
我得主的程序有一地方值得改：既然用到了入字符串的10子功能，（由主所定的：
BUF1 DB 30
DB ?
DB 30 DUP(?)
）
那在循完全可以根buf1+1中的定cx的值！！在循中只需要字符串的逐30H~~39H之比，若件符合器值sum加1（特注明：主sum初值定？是一不定值，上既然是，然0始）！！