； 本程序通过编译，运行正确
Code Segment
Assume CS:Code,DS:Code,ES:Code
; -------------------------------------
； 功能：输出一个字符
； 入口：dl=要显示的字符
Output_Chr proc Near
push ax
mov ah,02h
int 21h
pop ax
ret
Output_Chr endp
; -------------------------------------
； 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示
； 入口：AX=二进制数
； 出口：在当前光标位置显示转换后的ASCII码数字
Dec_ASCII Proc Near
push dx
push bx
push di
mov bx,10
lea di,Temp_Save[6]
mov byte ptr [di],'$'
dec di
cld
Divide: xor dx,dx
div bx
or dl,30h
mov [di],dl
dec di
test ax,0ffffh
jnz Divide
inc di
push di
pop dx
mov ah,9
int 21h
pop di
pop bx
pop dx
ret
Temp_Save db 7 dup(?)
Dec_ASCII EndP
; -------------------------------------
Start: push cs
pop ds
push es
pop es
L1: xor al,al
out 43h,al
in ax,40h
call Dec_ASCII ；显示输出这个数
mov dl,20h
call Output_Chr
mov ah,1
int 21h
cmp al,1bh ;Esc键结束程序
jnz L1
Exit_Proc: mov ah,4ch ；结束程序
int 21h
Code ENDS
END Start ；编译到此结束
本文地址：https://www.39baobao.com/show/29_26268.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
