【正文】 CLR ZHUAN4 CLR ZHUAN5 CLR ZHUAN6 CLR ZHUAN7 MOV R7,3 MOV 5FH,00H 。初始化寄存器 MOV 30H,01H 。時間賦初始值 MOV 31H,01H MOV 32H,01H MOV 33H,01H MOV 34H,01H MOV 35H,01H MOV 36H,10H SETB 。啟動設(shè)置寫保護寄存器 MOV A,10001110B 。命令字節(jié)， 07H 寄存器寫 ACALL WBYTE MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。RST=0,停止傳送 MOV R0,30H 。數(shù)據(jù)存放首地址 MOV R2,8 。寫 8 個字節(jié) SETB 。啟動連續(xù)寫 8 個字節(jié) MOV A,0BEH 。設(shè)多字節(jié)寫命令字 LCALL WBYTE CHUSHI:MOV A,@R0 。取數(shù)據(jù) LCALL WBYTE 。寫一個字節(jié) INC R0 DJNZ R2,CHUSHI 。循環(huán)寫 8 個字節(jié) 。主程序 XXXXXXX 畢業(yè)論文 21 MAIN:LCALL JIAN 。調(diào)鍵盤子程序 LCALL RILI 。調(diào)日歷時鐘程序 LCALL XIAN 。調(diào)顯示程序 SJMP MAIN 。鍵盤程序 JIAN:MOV P1,0FFH 。初始 MOV A,P1 CPL A JNZ JI1 。判鍵按下 LJMP JIAN4 JI1:LCALL DELAY 。調(diào)延時 CPL A JNZ JI2 LJMP JIAN4 JI2:JNB ,JIAN3 。判 K2 鍵為 0 轉(zhuǎn) JNB ,JIAN3 。判 K3 鍵為 0 轉(zhuǎn) JIAN0:MOV P1,0FFH JNB ,JIAN3 。判 K4 鍵為 0 轉(zhuǎn) JNB ,JIAN1 。判 K1 鍵為 0 轉(zhuǎn) LJMP JIANX JIAN1:LCALL DELAY 。調(diào)延時去抖動 JB ,JIANX 。為 1 就是鍵抖動 JIAN11:LCALL XIAN 。調(diào)顯示 JNB ,JIAN11 。判鍵 K1 松開 MOV A,5FH ADD A,1 。寄存器加 1 MOV 5FH,A CJNE A,8,JIANX LJMP JIAN3 JIANX:MOV A,5FH CJNE A, 1,JIA1 。比較轉(zhuǎn)移指令 A 不等于 時，轉(zhuǎn)移 LJMP TIAOM 。轉(zhuǎn)調(diào)秒子程序 JIA1:MOV A,5FH CJNE A,2,JIA2 LJMP TIAOF 。轉(zhuǎn)調(diào)分子程序 JIA2:MOV A,5FH CJNE A,3,JIA3 LJMP TIAOS 。轉(zhuǎn)調(diào)時子程序 JIA3:MOV A,5FH CJNE A,4,JIA4 LJMP TIAOR 。轉(zhuǎn)調(diào)日子程序 JIA4:MOV A,5FH CJNE A,5,JIA5 XXXXXXX 畢業(yè)論文 22 LJMP TIAOY 。轉(zhuǎn)調(diào)月子程序 JIA5:MOV A,5FH CJNE A,6,JIA6 LJMP TIAON 。轉(zhuǎn)調(diào)年子程序 JIA6: LJMP TIAOX 。轉(zhuǎn)調(diào)星期子程序 JIAN3:CLR ZHUAN1 。標(biāo)志位清 0 CLR ZHUAN2 CLR ZHUAN3 CLR ZHUAN4 CLR ZHUAN5 CLR ZHUAN6 CLR ZHUAN7 MOV 5FH,00H JIAN2:LCALL XIAN 。調(diào)顯示子程序 MOV A,P1 CPL A JNZ JIAN2 JIAN4:RET 。調(diào)秒 TIAOM:SETB ZHUAN6 。秒閃爍標(biāo)志位置 1 LCALL XIAN JNB ,MIAOZ 。加轉(zhuǎn)移 JNB ,MIAOJ 。減轉(zhuǎn)移 LJMP JIAN0 MIAOZ:LCALL DELAY 。調(diào)延時去抖動 JNB ,MIAOZ1 LJMP JIAN0 MIAOZ1:LCALL XIAN JNB ,MIAOZ1 。判鍵 K2 松開 MOV A,30H 。取秒數(shù)據(jù) ADD A,1 。加 1 DA A 。十進(jìn)制調(diào)整指令 MOV 30H,A 。送回秒寄存器 CJNE A,60H,MIAOZ2 MOV 30H,00H 。秒值過 60 為 0 LJMP MIAOZ2 MIAOJ:LCALL DELAY。調(diào)延時去抖動 JNB ,MIAOJ1 LJMP JIAN0 MIAOJ1:LCALL XIAN JNB ,MIAOJ1 。判鍵 K3 松開 MOV A,30H 。取秒數(shù)據(jù) XXXXXXX 畢業(yè)論文 23 MOV B,10H DIV AB 。A 除以 B MOV 61H,B 。數(shù)據(jù)個位放到 61H MOV B,10 MUL AB 。A 乘以 B ADD A,61H 。不帶進(jìn)位加法 DEC A 。A 減 1 MOV B,10 DIV AB SWAP A ADD A,B MOV 30H,A CJNE A,96H,MIAOZ2 MOV 30H,59H MIAOZ2:MOV A,30H ANL A,0FH 。分離低四位 MOV 40H,A 。存數(shù)據(jù)到寄存器 MOV A,30H SWAP A 。半字節(jié)交換 ANL A,0FH MOV 41H,A 。存數(shù)據(jù)到寄存器 SETB 。啟動設(shè)置寫保護寄存器 MOV A,10001110B 。命令字節(jié)，寄存器 07H ACALL WBYTE MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。停止傳送 SETB 。啟動寫 MOV A,80H 。秒寫命令字節(jié) LCALL WBYTE MOV A,30H 。寫秒數(shù)據(jù)到 DS1302 LCALL WBYTE LCALL XIAN LJMP JIAN0 RET 。調(diào)分 TIAOF:CLR ZHUAN6 。清秒標(biāo)志位 SETB ZHUAN5 。置分標(biāo)志位 LCALL XIAN JNB ,FENZ 。加轉(zhuǎn)移 JNB ,FENJ 。減轉(zhuǎn)移 XXXXXXX 畢業(yè)論文 24 LJMP JIAN0 FENZ:LCALL DELAY 。調(diào)延時去抖動 JNB ,FENZ1 LJMP JIAN0 FENZ1:LCALL XIAN JNB ,FENZ1 。判鍵 K2 松開 MOV A,31H 。取秒數(shù)據(jù) ADD A,1 。加 1 DA A 。十進(jìn)制調(diào)整指令 MOV 31H,A 。送回分寄存器 CJNE A,60H,FENZ2 MOV 31H,00H 。值過 60 為 0 LJMP FENZ2 FENJ:LCALL DELAY 。調(diào)延時去抖動 JNB ,FENJ1 LJMP JIAN0 FENJ1:LCALL XIAN JNB ,FENJ1 。判鍵 K3 松開 MOV A,31H 。取秒數(shù)據(jù) MOV B,10H DIV AB 。A 除以 B MOV 62H,B 。數(shù)據(jù)個位放到 62H MOV B,10 MUL AB 。A 乘以 B ADD A,62H 。不帶進(jìn)位加法 DEC A 。A 減 1 MOV B,10 DIV AB SWAP A ADD A,B MOV 31H,A CJNE A,96H,FENZ2 MOV 31H,59H FENZ2:MOV A,31H ANL A,0FH 。分離低四位 MOV 42H,A 。存數(shù)據(jù)到寄存器 MOV A,31H SWAP A 。半字節(jié)交換 ANL A,0FH MOV 43H,A 。存數(shù)據(jù)到寄存器 SETB 。啟動設(shè)置寫保護寄存器 MOV A,10001110B 。命令字節(jié)，寄存器 07H ACALL WBYTE XXXXXXX 畢業(yè)論文 25 MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。停止傳送 SETB 。啟動寫 MOV A,82H 。分寫命令字節(jié) ACALL WBYTE MOV A,31H 。寫分?jǐn)?shù)據(jù)到 DS1302 ACALL WBYTE ACALL XIAN LJMP JIAN0 RET 。調(diào)時 TIAOS:CLR ZHUAN5。相同，后面略 SETB ZHUAN4 LCALL XIAN JNB ,SHIZ JNB ,SHIJ LJMP JIAN0 SHIZ:LCALL DELAY JNB ,SHIZ1 LJMP JIAN0 SHIZ1:LCALL XIAN JNB ,SHIZ1 MOV A,32H ADD A,1 DA A MOV 32H,A CJNE A,24H,SHIZ2 MOV 32H,00H LJMP SHIZ2 SHIJ:LCALL DELAY JNB ,SHIJ1 LJMP JIAN0 SHIJ1:LCALL XIAN JNB ,SHIJ1 MOV A,32H MOV B,10H DIV AB MOV 63H,B MOV B,10 MUL AB ADD A,63H XXXXXXX 畢業(yè)論文 26 DEC A MOV B,10 DIV AB SWAP A ADD A,B MOV 32H,A CJNE A,96H,SHIZ2 MOV 32H,23H SHIZ2:MOV A,32H ANL A,0FH MOV 44H,A MOV A,32H SWAP A ANL A,0FH MOV 45H,A SETB MOV A,10001110B ACALL WBYTE MOV A,00H ACALL WBYTE CLR SETB MOV A,84H ACALL WBYTE MOV A,32H ACALL WBYTE ACALL XIAN LJMP JIAN0 RET 。調(diào)日 TIAOR:CLR ZHUAN4 SETB ZHUAN3 LCALL XIAN JNB ,RIZ JNB ,RIJ LJMP JIAN0 RIZ:LCALL DELAY JNB ,RIZ1 LJMP JIAN0 RIZ1:LCALL XIAN JNB ,RIZ1 XXXXXXX 畢業(yè)論文 27 MOV A,33H ADD A,1 DA A MOV 33H,A CJNE A,32H,RIZ2 MOV 33H,00H LJMP RIZ2 RIJ:LCALL DELAY JNB ,RIJ1 LJMP JIAN0 RIJ1:LCALL XIAN JNB ,RIJ1 MOV A,33H MOV B,10H DIV AB MOV 64H,B MOV