MOV DX OFFSET MESS INT21H;显示提示信息 MOV DL. 07H INT2lH响铃一次 CALL GETNUM PUSH DX CALL GETNUM PUSH DX CALL GETUNM;接收键入的月、日及年值 MOV AX. DX CALL DISP显示年值 MOV AH. O2H MOV DL.-A INT2lH;显示 POP DX POPAX CALL DISPP;显示月值 MOV AH.O2H MOV DL INT2lH,显示 MOV AX. DX CALL DISPP;显示日值 MOV AX 4C00H INT2lH;返回DOS DISPP PROC NEAR MOV BL AL MOV DL. BI MOV CL. 04 DL DL. CL AND DL,OFH CALL DISPL MOV DL. BL AND DL OFH CALL DISPL RET DISPP ENDP DISPL PROC NEAR ADD DL, 30H CMP DL 3AH JB DDD ADD DL. 27H DDD: MOV AH. 02H INT 21HMOV DX,OFFSET MESS INT 21H ;显示提示信息 MOV AH,02H MOV DL,07H INT 21H ;响铃一次 CALL GETNUM PUSH DX CALL GETNUM PUSH DX CALL GETUNM ;接收键入的月、日及年值 MOV AX,DX CALL DISP ;显示年值 MOV AH,02H MOV DL,'-' INT 21H ;显示'-' POP DX POP AX CALL DISPP ;显示月值 MOV AH,02H MOV DL,'-' INT 21H ;显示'-' MOV AX,DX CALL DISPP ;显示日值 MOV AX,4C00H INT 21H ;返回 DOS DISPP PROC NEAR MOV BL,AL MOV DL,Bl MOV CL,04 ROL DL,CL AND DL,0FH CALL DISPL MOV DL,BL AND DL,0FH CALL DISPL RET DISPP ENDP DISPL PROC NEAR ADD DL,30H CMP DL,3AH JB DDD ADD DL,27H DDD: MOV AH,02H INT 21H