【正文】 JE T1111111 JMP EXIT 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 25 DTOB1 PROC 。求某年某月某日是星期幾子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI MOV AX,YEAR 。YEAR 送入 AX 中 DEC AX 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 。求每個(gè)月的第一天是本年的第幾天 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,計(jì)算每個(gè)月的第一天是星期幾 DIV BX 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 26 MOV N,DX POP DI POP SI POP DX POP CX POP BX POP AX RET DTOB1 ENDP DTOB2 PROC 。求某年某月一日是該年第幾天子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI R1: CMP [DI],DL JA R2 。一月份的時(shí)候 ,跳轉(zhuǎn)到 R2 MOV BL,[SI] 。 其它月份的時(shí)候 ,進(jìn)行累加 ,計(jì)算每個(gè)月的第一天是該年的第幾天 ADD T,BX ADD SI,1 ADD DI,1 JMP R1 R2: ADD T,1 POP DI POP SI POP DX POP CX POP BX POP AX RET DTOB2 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 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 27 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 B2 B1: CLC 。CF=0 JMP B3 B2: STC 。CF=1 B3: POP DX POP CX POP BX POP AX RET PR ENDP YUE 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 。取出每個(gè)月的天數(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,AX 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 28 J1: MOV AH,2 。確定每個(gè)月的一號(hào)的光標(biāo)位置 ,即確定初始輸入位 置 MOV DH,BYTE PTR C1 MOV DL,BYTE PTR B INT 10H CMP DL,A4 JBE J2 。DL33,跳轉(zhuǎn)到 J2,否則行加 1 列從 0 開(kāi)始 ADD C1,1 MOV AX,A2 MOV B,AX JMP J1 J2: MOV DX,SI MOV AH,9 。在當(dāng)前光標(biāo)位 置顯示數(shù)字 INT 21H ADD SI,5 ADD B,5 。兩個(gè)日期的顯示距離 DEC G JNZ J1 POP DI POP SI POP DX POP CX POP BX POP AX RET YUE ENDP TIME PROC PUSH AX PUSH BX PUSH CX PUSH DX 。顯示時(shí)間子程序 DISPLAY1:MOV SI,0 MOV BX,100 DIV BL MOV AH,2CH 。取時(shí)間 INT 21H MOV AL,CH CALL BCDASC 。將時(shí)間數(shù)值轉(zhuǎn)換成 ASCII 碼字符 INC SI MOV AL,CL CALL BCDASC INC SI MOV AL,DH CALL BCDASC 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 29 MOV BP,OFFSET DBUFFER MOV DH,1 。時(shí)間位置 MOV DL,51 MOV CX,8 MOV BX,0024H 。時(shí)間顏色 MOV AX,1301H INT 10H RE: MOV CX,0FFFFH REA: LOOP REA MOV AH,01H INT 16H CMP AL,0DH POP DX POP CX POP BX POP AX RET TIME ENDP BCDASC PROC 。時(shí)間數(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 RET BCDASC ENDP DAYIN PROC 。打印文件的子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH DI MOV AH,3CH 。建立文件 MOV CX,0 LEA DX,F_NAME INT 21H 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 30 JNC PAST1 PAST1:MOV F_NUM,AX LEA DI,BUFIN 。輸入緩沖區(qū)首址 XIAGE:MOV [DI],AL INC DI CMP AL,0dH JE ENDIN JMP XIAGE ENDIN:MOV AH,40H 。將緩沖區(qū)內(nèi)容寫(xiě)入文件 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 21H PAST2:MOV AH,3EH 。關(guān)閉文件 INT 21H PWERROR:LEA DX,WERROR MOV AH,9 INT 21H JMP PAST2 POP DI POP DX POP CX POP BX POP AX RET DAYIN ENDP EXIT: MOV AH,4CH INT 21H CODE ENDS END START