;統計輸入字符的個數
DATA	SEGMENT
CHAR    DB 81,0,81 DUP(0)
GESHU   DB 3 DUP(0)
STRING  DB 'PLEASE ENTER A STRING NO LONGER THAN 80:',0AH,0DH,'$'
STRING1 DB  0AH,0DH,'THE NUMBER OF CHAR IS:','$'
DATA	ENDS
STACK1	SEGMENT PARA STACK
	DW 20H DUP(0)
STACK1	ENDS
COSEG	SEGMENT
	ASSUME CS:COSEG,DS:DATA,SS:STACK1
START:  MOV AX,DATA
        MOV DS,AX
        MOV DX,OFFSET STRING
        MOV AH,09H
        INT 21H
        MOV DX,SEG CHAR
        MOV DS,DX
        MOV DX,OFFSET CHAR
        MOV AH,0AH
        INT 21H 
        MOV AL,CHAR[1]
        XOR AH,AH
        MOV BL,10
        DIV BL
        MOV GESHU[0],AL
        MOV GESHU[1],AH
        MOV GESHU[2],24H
        ADD GESHU[0],30H
        ADD GESHU[1],30H
        MOV DX,OFFSET STRING1
        MOV AH,09H
        INT 21H
        MOV DX,OFFSET GESHU
        MOV AH,09H
        INT 21H
        MOV AH,4CH
	INT 21H
COSEG	ENDS
	END START