【正文】 DB 39。 DB 39。 DB 39。 DB 39。 DB 39。 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 13 DB 39。 DB 39。 DB 39。 F DB ? D DB ? STR1 DB 20 DB 0 DB 20 DUP(0) STR2 DB 20 DB 0 DB 20 DUP(0) DBUFFER DB 8 DUP (39。) 。,0AH,0DH,39。,0AH,0DH,39。,0AH,0DH,39。,0AH,0DH,39。,0 BUFIN DB 32767 DUP(?) DATA ENDS STACK SEGMENT DB 200 DUP(0) STACK ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACK START: MOV AX,DATA MOV DS,AX MOV ES,AX MOV AH,0 。清整個(gè)屏幕 MOV DH,24 MOV DL,79 MOV BH,33 INT 10H 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 14 MOV CX,2 。容錯(cuò)三次 LOP1: MOV AH,2 。逐一比較兩串的對(duì)應(yīng)字符是否相等 JNE R 。當(dāng)前光標(biāo)顯示一個(gè)字符 MOV AL,2AH MOV BH,0 MOV CX,1 INT 10H ADD DX,1 。相等，轉(zhuǎn) T1 R: MOV AH,2 。清用戶名輸入行的屏幕 MOV DH,13 MOV DL,53 MOV BH,33 INT 10H MOV AH,1 INT 21H MOV AH,6 MOV AL,1 MOV CH,21 MOV CL,33 。 lop13:jmp lop Q: MOV AH,2 。清密碼輸入行的屏幕 MOV DH,16 MOV DL,53 MOV BH,33 INT 10H MOV AH,1 INT 21H MOV AH,6 MOV AL,1 MOV CH,21 MOV CL,33 。 MOV AH,1 INT 21H 。顯示日歷頭部 MOV DX,B INT 10H ADD DX,0100H MOV B,DX MOV DX,SI MOV AH,9 INT 21H ADD SI,44 DEC CX JNZ LOPTOU MOV AH,2 。輸入 年份字符串的長(zhǎng)度送到 CL MOV AX,0 。DI 指向下一個(gè)字符 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 18 DEC CX 。有進(jìn)位 ,借位 ,跳轉(zhuǎn)到 L1,輸出閏年 ,否則順序執(zhí)行 ,是平年 MOV AH,2 。調(diào)用系統(tǒng)時(shí)間 JMP RILI1 L1: MOV AH,2 。調(diào)用系統(tǒng)時(shí)間子程序 t111:jmp t1 RILI1: MOV AH,2 MOV BX,0 MOV DH,3 MOV DL,0 INT 10H LEA DX,YUE1 MOV AH,9 INT 21H MOV AH,2 MOV BX,0 MOV DH,3 MOV DL,42 INT 10H LEA DX,YUE2 MOV AH,9 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 19 INT 21H MOV AH,2 MOV BX,0 MOV DH,4 MOV DL,0 INT 10H LEA DX,RILI MOV AH,9 INT 21H MOV AH,2 MOV BX,0 MOV DH,11 MOV DL,0 INT 10H LEA DX,YUE3 MOV AH,9 INT 21H MOV AH,2 MOV BX,0 MOV DH,11 MOV DL,42 INT 10H LEA DX,YUE4 MOV AH,9 INT 21H MOV AH,2 MOV BX,0 MOV DH,12 MOV DL,0 INT 10H LEA DX,RILI MOV AH,9 INT 21H 。************四月份 ************** MOV A1,4 MOV A2,42 MOV A3,13 MOV A4,75 CALL YUE MOV AH,1 INT 21H JMP T2 T1111:JMP t111 。***********五月份 *************** MOV A1,5 MOV A2,0 MOV A3,5 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 22 MOV A4,33 CALL YUE 。************************************** MOV AH,1 INT 21H JMP T3 T11111:JMP t111 。***********九月份 *************** MOV A1,9 MOV A2,0 MOV A3,5 MOV A4,33 CALL YUE 。************************************** JMP TISHI T1111111:JMP t111 TISHI: MOV AH,2 MOV BX,0 MOV DH,20 MOV DL,0 INT 10H LEA DX,INPUT5 MOV AH,9 INT 21H MOV AH,1 INT 21H CMP AL,31H JE T1111111 JMP EXIT 微機(jī)原理與接口技 術(shù)課程設(shè)計(jì) 25 DTOB1 PROC 。(YEAR1)/4 送入 C1 中 ADD CX,C1 MOV AX,YEAR DEC AX MOV DX,0 MOV BX,100 DIV BX MOV D1,AX 。BX 清零 MOV DX,MONTH 。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 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 。顯示日歷，調(diào)用 DTOB1 子程序返回 N的值 MOV DI,OFFSET BUF1 DEC MONTH ADD DI,MONTH 。在當(dāng)前光標(biāo)位 置顯示數(shù)字 INT 21H ADD SI,5 ADD B,5 。將時(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 。039。打印文件的子程序 PUSH AX PUSH BX PUSH CX PUSH DX PUSH DI MOV AH,3CH 。關(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