print:
mov dx,di
mov ah,9
int 21h pop di pop bx pop dx pop cx pop si pop ax endm
DISP MACRO CHAR ;显示字符
PUSH AX
PUSH DX
MOV DL,CHAR
MOV AH,2
INT 21H
POP DX POP AX ENDM
GETNUM MACRO CHAR ;显示数字
PUSH AX
PUSH DX
PUSH CX
MOV AL,CHAR AAM
MOV DH,AL
MOV DL,AH
OR DL,30H
MOV AH,2
INT 21H
MOV DL,DH
OR DL,30H
MOV AH,2 INT 21H POP CX POP DX POP AX ENDM
GETWEEK MACRO CHAR ;显示星期
PUSH AX
PUSH DX PUSH SI
PUSH CX
LEA SI,D_TAB
MOV AL,CHAR
XOR AH,AH MOV CX,AX
LOOP1:INC SI INC SI
LOOP LOOP1
MOV DX,[SI]
MOV AH,9 INT 21H
POP CX POP SI POP DX POP AX ENDM
GETMONTH MACRO CHAR ;显示月份
PUSH AX
PUSH DX
PUSH SI
PUSH CX
LEA SI,M_TAB
MOV AL,CHAR DEC AL
XOR AH,AH
