微机原理
CMP BX,0
JZ OVER
U2: MOV DL,[BX+1]
MOV AH,02H
INT 21H
INC BX
CMP DL,20H
JZ U3
JMP U2
U3: ADD DI,02H
JMP U1
OVER: JMP OVER
MOV AX,4C00H INT 21H
ZH PROC
PUSH CX
MOV AL,00H
ADD AL,BL
DAA
MOV BL,AL
H: AND AL,0F0H
CMP AL,00H
JZ L
MOV CL,04H
SHR AL,CL
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
L: MOV AL,BL
AND AL,0FH
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP CX
RET
ZH ENDP
CLEAR PROC PUSH CX
PUSH DX ;调用dos中断,返回系统;子程序清屏