data segment
buf db 10
db ?
db 10 dup(‘#’)
flag db 1
divisor1 dw 10
divisor2 dw 1
string db 13,10,’please input a number between 1 to 10000:’,13,10,’$’
pointout db 13,10,’please input a symbol:Y/start,N/exit’,13,10,’$’
kk db ?
wrong db 13,10,’please input number characters!’,13,10,’$’
enter db 13,10,’$’
print db 13,10,’all of the complete numbers are:’,13,10,’$’
data ends
;###############
code segment
;####;????????????????????????ds???
assume cs:code,ds:data
start:
push ds
xor ax,ax
push ax
mov ax,data
mov ds,ax
;###########;main???
main proc far
p1:
lea dx,pointout
mov ah,09h
int 21h ;??’please input a symbol:Y/start,N/exit’,13,10,’$’

mov ah,1
int 21h
cmp al,’n’
je p3
cmp al,’y’
jne p1

;??rinput???,?????????

call rinput
cmp flag,0 ;????????
je p2

;??output ?????????????????????
call output
jmp p1
p2: lea dx,wrong ;??????’please input number characters!’,13,10,’$’
mov ah,09h
int 21h
jmp p1
p3:
mov ax,4c00h ;??
int 21h
ret
main endp
;########; rinput ???
rinput proc near
mov bx,0
mov divisor2,01h
mov divisor1,0ah ;???????

lea dx,string
mov ah,09h
int 21h ;??’please input a number between 1 to 10000:’,13,10,’$’

lea dx,buf
mov ah,0ah ;????????????
int 21h ;??1?10000?????

;????????????????

mov si,2
nextc:
cmp buf[si],0dh ;????????????
je eq1
inc si
jmp nextc
eq1:
sub si,2 ;???????????????
mov cx,si
mov buf+1,cl ;???????????
mov al,buf[1]
cbw
and ax,00ffh
inc si

chang1:
mov al,buf[si] ;???????????

;???????,????????
cmp al,’0′
jb g1
cmp al,’9′
ja g1

mov ah,0h
sub ax,30h
;and ax,000fh????????????ASCII????????
mul divisor2
add bx,ax

mov ax,divisor2
mul divisor1
mov divisor2,ax
dec si
mov dx,0001h
sub dx,si
jnz chang1 ;???????????????

mov flag,1 ;?????,????????1
jmp g2
g1:
mov flag,0 ;?????,????????1
g2:
ret
rinput endp