汇编:统计输入字符串内的数字个数(最多三位数0—256)

;This is made by wq
;编程从键盘读入不超过256个字符的字符串;
;编程统计其中数字的个数，并将结果在屏幕上输出。
;经进一步完善(能输出三位数啦)


DATAS SEGMENT
sum db 00h ;累加器
string db 256 dup(0dh);存放字符
tital db This program is made by wq.,0dh,0ah
db It is used to calculater the amout of the number in the string ,0dh,0ah,$
tital1 db PLease input the string: ,$
overs db Amout of the nember is : ,$
tital2 db Do you want to have a try again(if yes,input "y" else "n") : ,0dh,0ah, $
tital3 db Welcome to use this program again,$
kongzi db 0dh,0ah,$
result db 256 dup(?)
DATAS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS
START:
MOV AX,DATAS
MOV DS,AX

mov ax,offset tital;输出抬头
mov dx,ax
mov ah,09h
int 21h
main:
lea dx,kongzi
mov ah,09h
int 21h
lea dx,tital1 ;输出抬头1
mov ah,09h
int 21h

mov si,0
mov ax,offset string
mov dx,ax
again: ;输入字符
mov ah,01h
int 21h
cmp al,0dh
jz then
mov string[si],al
inc si
jmp again ;输入完毕
then: ;传输
mov di,0
mov si,0
mov bl,0
exchang: ;判断字符的性质
lea dx,string
cmp string[si],0dh
jz over
cmp string[si],30h
jnb next
inc si
dec cx
jmp exchang
next:
mov al,string[si]
cmp string[si],39h
jbe calculator
inc si
dec cx
jmp exchang

calculator:
lea dx,result
mov result[di],al
inc si
inc sum
inc di
dec cx
jmp exchang
over: ;处理并输出数字个数
lea dx,overs
mov ah,09h
int 21h
mov ax,0000h
mov al,sum[0] ;判断是否为三位数
cmp al,64h
jae san
mov bl,10
div bl
mov dx,ax
add dx,3030h
mov ah,02h
int 21h
mov dl,dh
mov ah,02h
int 21h
jmp a
san: mov bl,10 ;如果是三位数则多处理一位
div bl
mov cl,ah ;把第一位给cl
add cl,30h
mov ah,00h
div bl ;第二次除十
mov dx,ax
add dx,3030h
mov ah,02h
int 21h
mov dl,dh
mov ah,02h
int 21h
mov dl,cl
mov ah,02h
int 21h

a: lea dx,kongzi
mov ah,09h ;判断是否循环操作
int 21h
lea dx,tital2
mov ah,09h
int 21h
mov ah,01h
int 21h

cmp al,y
je main
lea dx,tital3
mov ah,09h
int 21h

MOV AH,4CH
INT 21H
CODES ENDS
END START