MOV CX,AX
LOOP2:INC SI INC SI
LOOP LOOP2
MOV DX,[SI]
MOV AH,9 INT 21H
POP CX POP SI POP DX POP AX ENDM
DATAS SEGMENT
divisors DW 10000, 1000, 100, 10, 1
results DB 0,0,0,0,0,\ ;存放五位数ASCII码
BUF DB 'A$'
BUF1 DB 'YUE$'
D_TAB DW SUN,MON,TUE,WED,THU,FRI,SAT M_TAB
JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DCE,TIM
SUN DB 'Sunday$'
MON DB 'Monday$'
TUE DB 'Tuesday$'
WED DB 'Wednesday$'
THU DB 'Thursday$'
FRI DB 'Friday$'
SAT DB 'Saturday$'
JAN DB 'January$'
FEB DB 'February$'
MAR DB 'March$'
APR DB 'April$'
MAY DB 'May$'
JUN DB 'June$'
JUL DB 'July$'
DW
AUG DB 'August$'
SEP DB 'September$'
OCT DB 'October$'
NOV DB 'November$'
DCE DB 'December$'
TIM DB '.M. $'
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS START:
MOV AX,DATAS
MOV DS,AX LLL:
mov ah,2
mov bh,0
mov dh,0
mov dl,0 int 10h
MOV AH,2CH INT 21H
GETNUM CH
DISP 3AH
GETNUM CL
DISP 3AH
GETNUM DH
DISP 00H
CMP CH,12 JA P
DISP 41H JMP A
P: DISP 50H
