【正文】 MOV CX,AX 。(YEAR1)送入CX中 MOV DX,0 MOV BX,4 DIV BX MOV C1,AX 。(YEAR1)/4送入C1中 ADD CX,C1 MOV AX,YEAR DEC AX MOV DX,0 MOV BX,100 DIV BX MOV D1,AX 。(YEAR1)/100送入D1中 SUB CX,D1 MOV AX,YEAR DEC AX MOV DX,0 MOV BX,400 DIV BX MOV E,AX 。(YEAR1)/400 送入E中 ADD CX,E MOV DX,0 。DX清零 MOV BX,0 。BX清零 MOV DX,MONTH 。求每個月的第一天是本年的第幾天 SUB DL,1 MOV DI,OFFSET BUF2 MOV SI,OFFSET BUF1 MOV T,0 CALL DTOB2 。調(diào)用某年某月一日是該年第幾天子程序 ADD CX,T 。s=(y1)+(y1)/4(y1)/100+(y1)/400+T MOV AX,CX MOV DX,0 MOV BX,7 。S%7,計算每個月的第一天是星期幾 DIV BX MOV N,DX POP DI POP SI POP DX POP CX POP BX POP AX RETDTOB1 ENDP DTOB2 PROC 。求某年某月一日是該年第幾天子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DIR1: CMP [DI],DL JA R2 。一月份的時候,跳轉(zhuǎn)到R2 MOV BL,[SI] 。 其它月份的時候,進行累加,計算每個月的第一天是該年的第幾天 ADD T,BX ADD SI,1 ADD DI,1 JMP R1R2: ADD T,1 POP DI POP SI POP DX POP CX POP BX POP AX RETDTOB2 ENDP PR PROC 。判斷是平年還是閏年 PUSH AX PUSH BX PUSH CX PUSH DX MOV AX,YEAR MOV CX,AX MOV DX,0 MOV BX,4 DIV BX CMP DX,0 JNZ B1 MOV AX,CX MOV BX,100 DIV BX CMP DX,0 JNZ B2 MOV AX,CX MOV BX,400 DIV BX CMP DX,0 JZ B2B1: CLC 。CF=0 JMP B3B2: STC 。CF=1B3: POP DX POP CX POP BX POP AX RETPR ENDPYUE PROC PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI MOV AX,A1 MOV MONTH,AX 。月份值送到MONTH中 CALL DTOB1 。顯示日歷，調(diào)用DTOB1子程序返回N的值 MOV DI,OFFSET BUF1 DEC MONTH ADD DI,MONTH 。取出每個月的天數(shù) MOV CL,[DI] MOV G,CL MOV SI,OFFSET BUF3 MOV AL,5 MUL N ADD AX,A2 MOV B,AX MOV AX,A3 MOV C1,AXJ1: MOV AH,2 。確定每個月的一號的光標位置,即確定初始輸入位置 MOV DH,BYTE PTR C1 MOV DL,BYTE PTR B INT 10H CMP DL,A4 JBE J2 。DL33,跳轉(zhuǎn)到J2,否則行加1列從0開始 ADD C1,1 MOV AX,A2 MOV B,AX JMP J1J2: MOV DX,SI MOV AH,9 。在當前光標位置顯示數(shù)字 INT 21H ADD SI,5 ADD B,5 。兩個日期的顯示距離 DEC G JNZ J1 POP DI POP SI POP DX POP CX POP BX POP AX RETYUE ENDP TIME PROC PUSH AX PUSH BX PUSH CX PUSH DX 。顯示時間子程序DISPLAY1:MOV SI,0 MOV BX,100 DIV BL MOV AH,2CH 。取時間 INT 21H MOV AL,CH CALL BCDASC 。將時間數(shù)值轉(zhuǎn)換成ASCII碼字符 INC SI MOV AL,CL CALL BCDASC INC SI MOV AL,DH CALL BCDASC MOV BP,OFFSET DBUFFER MOV DH,1 。時間位置 MOV DL,51 MOV CX,8 MOV BX,0024H 。時間顏色 MOV AX,1301H INT 10HRE: MOV CX,0FFFFHREA: LOOP REA MOV AH,01H INT 16H CMP AL,0DH POP DX POP CX POP BX POP AX RETTIME ENDPBCDASC PROC 。時間數(shù)值轉(zhuǎn)換成ASCII碼字符子程序 PUSH BX CBW MOV BL,10 DIV BL ADD AL,39。039。 MOV DBUFFER[SI],AL INC SI ADD AH,39。039。 MOV DBUFFER[SI],AH INC SI POP BX RETBCDASC ENDPDAYIN PROC 。打印文件的子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH DI MOV AH,3CH 。建立文件 MOV CX,0 LEA DX,F_NAME INT 21H JNC PAST1 PAST1:MOV F_NUM,AX LEA DI,BUFIN 。輸入緩沖區(qū)首址 XIAGE:MOV [DI],AL INC DI CMP AL,0dH JE ENDIN JMP XIAGEENDIN:MOV AH,40H 。將緩沖區(qū)內(nèi)容寫入文件 MOV BX,F_NUM LEA DX,BUFIN SUB DI,DX MOV CX,DI INT 21H JC PWERROR CMP AX,CX JE PAST2 LEA DX,NOSPACE MOV AH,9 INT 21HPAST2:MOV AH,3EH 。關閉文件 INT 21HPWERROR:LEA DX,WERROR MOV AH,9 INT 21H JMP PAST2 POP DI POP DX POP CX POP BX POP AX RETDAYIN ENDPEXIT: MOV AH,4CH INT 21HCODE ENDS END START31