从键盘输入一串字符-分别统计其中的字母(不区分大小写)、数字字符和其他.docVIP

; 入口：AX=二进制数 ; 出口：在当前光标位置显示转换后的ASCII码数字 Unsi_Dec_ASCII Proc Near push dx push bx push di mov bx,10 lea di,@@Temp_Save[5] mov BYTE PTR [di],$ dec di cld @@Divide: xor dx,dx div bx or dl,30h mov [di],dl dec di test ax,ax jnz @@Divide inc di push di pop dx mov ah,9 int 21h pop di pop bx pop dx ret @@Temp_Save db 6 dup(?) Unsi_Dec_ASCII EndP ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ; 功能：键盘输入一个字符，假设输入的是y或n〔不分大小写〕，那么显示并返回 ; 入口：无 ; 出口：假设输入的是y，进位标志置位；假设输入的是n，进位标志复位。 Yes_or_No proc Near push dx push ax @@Input_Chr: mov ah,7 ;不带回显的键盘输入 int 21h mov dl,al and al,0dfh cmp al,Y jnz $+5 stc jmp $+7 cmp al,N jnz @@Input_Chr clc mov ah,2 int 21h pop ax pop dx ret Yes_or_No Endp ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Letters dw ? ;字母个数 Dights dw ? ;数字个数 Others dw ? ;其它字符个数 Letters_sum db 13,10,Letters: $ Dights_sum db 13,10,Digits : $ Others_sum db 13,10,Others : $ Prompt_Str db Please input a string:$ Prompt_Con db 13,10,13,10,Continue(Y/N)?$ Press_Key db 7,13,10,13,10,The complated. Press any key to exit...$ Start: push cs pop ds push cs pop es ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ; 从键盘上连续输入一串字符〔字符个数不超过80个，该字符串用回车符结束〕 Input_Str: Output Prompt_Str ;提示输入一串字符 lea dx,Buffer ;输入字符串缓冲区地址 mov ah,0ah ;从键盘接收字符串 int 21h call Output_CTLF ;输出一个回车、换行 ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ; 按字母、数字、其它字符分类统计计数 lea si,Buffer[1] ;实际输入的字符数地址 lodsb ;读入实际输入的字符数 xor ah,ah mov cx,ax ;实际输入的字符数送计数器 jcxz Continue mov Letters,0 ;字母计数单元清零 mov Dights,0 ;数字计数单元清零 mov Others,0 ;其它字符计数单元清零 Classify: lodsb ;当前字符→AL cmp al,0 ;当前字符0? jb Other_Chr ;小于，转去按其它字符处理 cmp al,9 ;当前字符9? ja $+8 ;大于，转去判断是否字母 inc Dights ;数字计数 jmp Other_Chr[4] mov ah,al ;al→ah，用于判断是否字母 and ah,0dfh ;屏蔽第5位，按大写字母处理 cmp ah,A ;当前