【正文】 /計(jì)數(shù) T0 中斷 LJMP ZDUAN ORG 001BH 。定時(shí) /計(jì)數(shù) T1 中斷 LJMP ZDUAN2 ZDUAN:MOV TH0,00H 。使 ZHUAN 由正到負(fù)周期大約為 即當(dāng)開閃爍時(shí) 每秒大約閃爍 次環(huán)境 MOV TL0,00H DJNZ R7,ZDUAN1 。循環(huán)指令 CPL ZHUAN 。閃爍標(biāo)志位求反 MOV R7,3 ZDUAN1:RETI 。中斷返回 ZDUAN2:MOV TH1,0FCH MOV TL1,43H CPL RETI XXXXXXX 畢業(yè)論文 29 XXXXXXX 畢業(yè)論文 30 ORG 0100H START:MOV SP,70H 。設(shè)堆棧 MOV TMOD,11H 。T0,TI 工作方式 1 MOV TH0,00H MOV TL0,00H MOV TH1,0FCH MOV TL1,43H SETB EA 。開放 CPU SETB ET0 。開放 T0 中斷 SETB TR0 。啟動(dòng) T0 工作 CLR ZHUAN1 。初始化標(biāo)志位 CLR ZHUAN2 CLR ZHUAN3 CLR ZHUAN4 CLR ZHUAN5 CLR ZHUAN6 CLR ZHUAN7 MOV R7,3 MOV 5FH,00H 。初始化寄存器 MOV 30H,01H 。時(shí)間賦初始值 MOV 31H,01H MOV 32H,01H MOV 33H,01H MOV 34H,01H MOV 35H,01H MOV 36H,10H SETB 。啟動(dòng)設(shè)置寫保護(hù)寄存器 MOV A,10001110B 。命令字節(jié)， 07H 寄存器寫 ACALL WBYTE XXXXXXX 畢業(yè)論文 31 MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。RST=0,停止傳送 MOV R0,30H 。數(shù)據(jù)存放首地址 MOV R2,8 。寫 8 個(gè)字節(jié) SETB 。啟動(dòng)連續(xù)寫 8 個(gè)字節(jié) MOV A,0BEH 。設(shè)多字節(jié)寫命令字 LCALL WBYTE CHUSHI:MOV A,@R0 。取數(shù)據(jù) LCALL WBYTE 。寫一個(gè)字節(jié) INC R0 DJNZ R2,CHUSHI 。循環(huán)寫 8 個(gè)字節(jié) 。主程序 MAIN:LCALL JIAN 。調(diào)鍵盤子程序 LCALL RILI 。調(diào)日歷時(shí)鐘程序 LCALL XIAN 。調(diào)顯示程序 SJMP MAIN 。鍵盤程序 JIAN:MOV P1,0FFH 。初始 MOV A,P1 CPL A JNZ JI1 。判鍵按下 LJMP JIAN4 JI1:LCALL DELAY 。調(diào)延時(shí) CPL A JNZ JI2 LJMP JIAN4 XXXXXXX 畢業(yè)論文 32 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)延時(shí)去抖動(dòng) JB ,JIANX 。為 1 就是鍵抖動(dòng) 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 不等于 時(shí)，轉(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)時(shí)子程序 JIA3:MOV A,5FH CJNE A,4,JIA4 LJMP TIAOR 。轉(zhuǎn)調(diào)日子程序 JIA4:MOV A,5FH CJNE A,5,JIA5 XXXXXXX 畢業(yè)論文 33 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)延時(shí)去抖動(dòng) JNB ,MIAOZ1 LJMP JIAN0 MIAOZ1:LCALL XIAN XXXXXXX 畢業(yè)論文 34 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)延時(shí)去抖動(dòng) JNB ,MIAOJ1 LJMP JIAN0 MIAOJ1:LCALL XIAN JNB ,MIAOJ1 。判鍵 K3 松開 MOV A,30H 。取秒數(shù)據(jù) MOV B,10H DIV AB 。A 除以 B MOV 61H,B 。數(shù)據(jù)個(gè)位放到 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 XXXXXXX 畢業(yè)論文 35 ANL A,0FH 。分離低四位 MOV 40H,A 。存數(shù)據(jù)到寄存器 MOV A,30H SWAP A 。半字節(jié)交換 ANL A,0FH MOV 41H,A 。存數(shù)據(jù)到寄存器 SETB 。啟動(dòng)設(shè)置寫保護(hù)寄存器 MOV A,10001110B 。命令字節(jié)，寄存器 07H ACALL WBYTE MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。停止傳送 SETB 。啟動(dòng)寫 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)移 LJMP JIAN0 XXXXXXX 畢業(yè)論文 36 FENZ:LCALL DELAY 。調(diào)延時(shí)去抖動(dòng) 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)延時(shí)去抖動(dòng) 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ù)個(gè)位放到 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 XXXXXXX 畢業(yè)論文 37 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 。啟動(dòng)設(shè)置寫保護(hù)寄存器 MOV A,10001110B 。命令字節(jié)， 寄存器 07H ACALL WBYTE MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。停止傳送 SETB 。啟動(dòng)寫 MOV A,82H 。分寫命令字節(jié) ACALL WBYTE MOV A,31H 。寫分?jǐn)?shù)據(jù)到 DS1302 ACALL WBYTE ACALL XIAN LJMP JIAN0 RET 。調(diào)時(shí) TIAOS:CLR ZHUAN5。相同，后面略 SETB ZHUAN4 LCALL XIAN XXXXXXX 畢業(yè)論文 38 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