从键盘输入一系列字符（以回车键结束），并按字母、数字及其它字符分类统计，最后显示这三类的统计结果

;从键盘输入一系列字符（以回车键结束），并按字母、数字及其它
;字符分类统计，最后显示这三类的统计结果
DATA SEGMENT
BUFFER DB 128,?,128 DUP(0)
NUM DB 0
WORDS DB 0
OTHER DB 0
CRLF DB 0AH,0DH,'$'
DATA ENDS

STACK SEGMENT PARA STACK
      DW 128 DUP(?)
TOP   LABEL WORD
STACK ENDS

CODE SEGMENT
     ASSUME CS:CODE,SS:STACK,DS:DATA
MAIN PROC FAR
START:
         MOV AX,DATA
MOV DS,AX
 
MOV AX,STACK
MOV SS,AX
LEA SP,TOP
 
XOR BL,BL
XOR BH,BH
XOR DH,DH
 
LEA DX,BUFFER
MOV AH,0AH
INT 21H
 
MOV AH,9
LEA DX,CRLF
INT 21H
 
         LEA SI,BUFFER
INC SI
MOV CL,[SI]
XOR CH,CH
L0: INC SI
MOV AL,[SI]
CMP AL,30H
JL  L1
CMP AL,39H
JA  L1
INC BL
JMP L4
L1:    CMP AL,'A'
         JL  L2
CMP AL,'Z'
JA  L2
INC BH
JMP L4
L2:    CMP AL,'a'
         JL  L3
CMP AL,'z'
JA  L3
INC BH
JMP L4
L3:    INC DH
L4:    LOOP L0
     
LEA DI,NUM
MOV [DI],BL
INC DI
MOV [DI],BH
INC DI
MOV [DI],DH
 
MOV CX,3
LEA SI,NUM
L5: MOV AH,2
MOV DL,[SI]
ADD DL,30H
INT 21H
INC SI
 
MOV AH,9
LEA DX,CRLF
INT 21H
 
LOOP L5
 
MOV AH,4CH
INT 21H
CODE ENDS
MAIN ENDP
     END START