;************************************************************实验代码
datarea segment
mess1 db 'Please enter character string : ',13,10,'$'
mess2 db 'The number of letter is ','$'
mess3 db 'The number of digit is ','$'
mess4 db 'The number of other is ','$'
cstring label byte
max db 80
act db ?
cstr db 80D dup(?)
letter db 0
digit db 0
other db 0
;number db '10','$','11','$','12','$','13','$','14','$','15','$'
number db 41h,42h,43h,44h,45h,46h,'$'
datarea ends
;************************************************************
;************************************************************
prognam segment
main procfar
assume ds:datarea,cs:prognam
;--------------------------------------------------------------
start:
push ds
sub ax,ax
push ax
mov ax,datarea
mov ds,ax
lea dx,mess1 ;显示字符串
mov ah,09h
int 21h
sub ax,ax ;将计数的存储单元初始为0
mov letter,al
mov digit,al
mov other,al
lea dx,cstring ;键入一行字符
mov ah,0Ah
int 21h
;需要换行吗?