dataseg segment
mess1 db'Please input',13,10,'$'
mess2 db'Ouput',13,10,'$'
dataseg ends
codeseg segment
assume ds:dataseg, cs:codeseg
main proc
start:
mov ax,dataseg
mov ds,ax
mov bx,0
lea dx,mess1
mov ah,09h
int 21h
loop3: mov ah,01
int 21h
cmp al,0dh
jz output
cmp al,'0'
jnl loop1
jmp loop3
loop1: cmp al,'9'
jng loop2
jmp loop3
loop2: inc bx
jmp loop3
output: mov dx,13
mov ah,02h
int 21h
mov dx,10
mov ah,02h
int 21h
lea dx,mess2
mov ah,09h
int 21h
mov dx,13
mov ah,02h
int 21h
mov dx,10
mov ah,02h
int 21h
mov ax,bx
mov cl,10
div cl
mov bh,ah
add al,30h
mov dl,al
mov ah,02h
int 21h
mov al,bh
add al,30h
mov dl,al
mov ah,02h
int 21h
mov ax,4c00h
int 21h
main endp
codeseg ends
end start
因篇幅问题不能全部显示,请点此查看更多更全内容
Copyright © 2019- pqdy.cn 版权所有 赣ICP备2024042791号-6
违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务