； 本程序通过编译，运行正确

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 ；编译到此结束