【正文】 數(shù)型碼TAB:DB 3FH,06H,5BH,4FH,66HDB 6DH,7DH,07H,7FH,6FHEND46 / 46。控制音調(diào)DJNZ R6,BUZZERCLR BUZZER1CLR BUZZER2CLR BUZZER3CLR BUZZER4RE:RET。整點(diǎn)報時BAOSHI:JNB BUZZER1,REJNB BUZZER2,REJNB BUZZER3,REJNB BUZZER4,REBUZZER:MOV R6,02H 。寫上升沿有效DJNZ R1,WBYTE2 。右移位MOV ,C 。時鐘寫WBYTE: MOV R1,08H 。取星期位數(shù)據(jù)MOVC A,A+DPTR 。片選星期位JNB ZHUAN7,XIA23JNB ZHUAN,XIA23MOV P0,00H LJMP XIA24 。取秒個位數(shù)據(jù)CJNE A,00H,LP4SETB BUZZER1LP4:MOVC A,A+DPTR 。片選秒個位JNB ZHUAN6,XIA21JNB ZHUAN,XIA21MOV P0,00H LJMP XIA22 。為0則消隱LJMP XIA20XIA19:MOVC A,A+DPTR。取秒十位數(shù)據(jù)CJNE A,00H,LP3SETB BUZZER2LP3:JNZ XIA19 。取顯示數(shù)型碼MOV P0,AXIA18:LCALL DELAYMOV P3,14H 。閃爍跳過顯示XIA17:MOV A,42H。取顯示數(shù)型碼MOV P0,AXIA16:LCALL DELAYMOV P3,13H 。判消隱MOV P0,00H 。片選分十位MOV A,43H 。取時個位數(shù)據(jù)MOVC A,A+DPTR 。片選時個位JNB ZHUAN4,XIA13JNB ZHUAN,XIA13MOV P0,00H LJMP XIA14 。為0則消隱LJMP XIA12 XIA11:MOVC A,A+DPTR。取時十位數(shù)據(jù)JNZ XIA11 。取顯示數(shù)型碼MOV P0,A XIA10:LCALL DELAYMOV P3,10H 。閃爍跳過顯示XIA9:MOV A,46H 。取顯示數(shù)型碼MOV P0,AXIA8:LCALL DELAYMOV P3,0FH 。判消隱MOV P0,00H 。片選日十位MOV A,47H 。取月個位數(shù)據(jù)MOVC A,A+DPTR 。片選月個位JNB ZHUAN2,XIA5JNB ZHUAN,XIA5MOV P0,00H LJMP XIA6 。為0則消隱LJMP XIA4XIA3:MOVC A,A+DPTR 。取月十位數(shù)據(jù)JNZ XIA3 。顯示年個位數(shù)據(jù)XIA2:LCALL DELAYMOV P3,0CH 。取年個位數(shù)據(jù)MOVC A,A+DPTR。顯示年十位數(shù)據(jù)LCALL DELAYMOV P3,0BH 。取年十位數(shù)據(jù)MOVC A,A+DPTR。延時顯示MOV P3,0AH 。片選年第3位MOV P0,3FH 。年千位為2LCALL DELAY 。設(shè)置函數(shù)表指針MOV P3,08H 。放星期到38HMOV 4CH,00HMOV 4DH,02HRET。后面依次放DJNZ R3,LOOP 。底4位放到40H開始的單元INC R1MOV A,R0 SWAP AANL A,0FH MOV R1,A 。星期與年存放數(shù)據(jù)交換XCH A,36HMOV 35H,AMOV R3,6MOV R0,30HMOV R1,40HLOOP:MOV A,R0 。循環(huán)讀8位CLR 。循環(huán)讀8位MOV R0,A 。讀一個字節(jié)8位READ1:CLR 。循環(huán)送8位MOV R0,30H 。寫一位到DS1302SETB 。設(shè)多字節(jié)讀命令MOV R1,8 WRITE1:CLR RRC A 。時鐘程序RILI:CLR NOPCLR NOPSETB 。調(diào)年TIAON:CLR ZHUAN2SETB ZHUAN1LCALL XIANJNB ,NIANZJNB ,NIANJLJMP JIAN0NIANZ:LCALL DELAYJNB ,NIANZ1LJMP JIAN0NIANZ1:LCALL XIANJNB ,NIANZ1MOV A,36HADD A,1DA AMOV 36H,ALJMP NIANZ2NIANJ:LCALL DELAYJNB ,NIANJ1LJMP JIAN0NIANJ1:LCALL XIANJNB ,NIANJ1MOV A,36HMOV B,10HDIV ABMOV 66H,BMOV B,10MUL ABADD A,66HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 36H,ACJNE A,96H,NIANZ2MOV 36H,99HNIANZ2:MOV A,36HANL A,0FHMOV 4AH,AMOV A,36HSWAP AANL A,0FHMOV 4BH,ASETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,8CHLCALL WBYTEMOV A,36HLCALL WBYTELCALL XIANLJMP JIAN0RET。調(diào)日TIAOR:CLR ZHUAN4 SETB ZHUAN3 LCALL XIANJNB ,RIZ JNB ,RIJLJMP JIAN0RIZ:LCALL DELAY JNB ,RIZ1 LJMP JIAN0RIZ1:LCALL XIAN JNB ,RIZ1 MOV A,33H ADD A,1 DA A MOV 33H,ACJNE A,32H,RIZ2MOV 33H,00HLJMP RIZ2RIJ:LCALL DELAYJNB ,RIJ1LJMP JIAN0RIJ1:LCALL XIANJNB ,RIJ1MOV A,33HMOV B,10HDIV ABMOV 64H,BMOV B,10MUL ABADD A,64HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 33H,ACJNE A,96H,RIZ2MOV 33H,31HRIZ2:MOV A,33HANL A,0FHMOV 46H,AMOV A,33HSWAP AANL A,0FHMOV 47H,ASETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,86HLCALL WBYTEMOV A,33HLCALL WBYTELCALL XIANLJMP JIAN0RET。調(diào)時TIAOS:CLR ZHUAN5。分寫命令字節(jié)ACALL WBYTEMOV A,31H 。停止傳送SETB 。命令字節(jié)，寄存器07HACALL WBYTEMOV A,00H 。存數(shù)據(jù)到寄存器SETB 。存數(shù)據(jù)到寄存器MOV A,31HSWAP A 。A減1MOV B,10DIV ABSWAP AADD A,BMOV 31H,ACJNE A,96H,FENZ2MOV 31H,59HFENZ2:MOV A,31HANL A,0FH 。A乘以BADD A,62H 。A除以BMOV 62H,B 。判鍵K3松開MOV A,31H 。值過60為0LJMP FENZ2FENJ:LCALL DELAY 。十進(jìn)制調(diào)整指令MOV 31H,A 。取秒數(shù)據(jù)ADD A,1 。調(diào)延時去抖動JNB ,FENZ1LJMP JIAN0FENZ1:LCALL XIANJNB ,FENZ1 。加轉(zhuǎn)移JNB ,FENJ 。清秒標(biāo)志位SETB ZHUAN5 。寫秒數(shù)據(jù)到DS1302LCALL WBYTELCALL XIAN LJMP JIAN0RET。啟動寫MOV A,80H 。允許寫數(shù)據(jù)字節(jié)ACALL WBYTECLR 。啟動設(shè)置寫保護(hù)寄存器MOV A,10001110B 。半字節(jié)交換ANL A,0FHMOV 41H,A 。分離低四位MOV 40H,A 。不帶進(jìn)位加法DEC A 。數(shù)據(jù)個位放到61HMOV B,10 MUL AB 。取秒數(shù)據(jù)MOV B,10HDIV AB 。調(diào)延時去抖動JNB ,MIAOJ1LJMP JIAN0MIAOJ1:LCALL XIANJNB ,MIAOJ1 。送回秒寄存器CJNE A,60H,MIAOZ2MOV 30H,00H 。加1DA A 。判鍵K2松開MOV A,30H 。減轉(zhuǎn)移 LJMP JIAN0MIAOZ:LCALL DELAY 。秒閃爍標(biāo)志位置1LCALL XIANJNB ,MIAOZ 。調(diào)顯示子程序MOV A,P1 CPL AJNZ JIAN2JIAN4:RET。轉(zhuǎn)調(diào)星期子程序JIAN3:CLR ZHUAN1 。轉(zhuǎn)調(diào)月子程序JIA5:MOV A,5FHCJNE A,6,JIA6LJMP TIAON 。轉(zhuǎn)調(diào)時子程序JIA3:MOV A,5FHCJNE A,4,JIA4LJMP TIAOR 。轉(zhuǎn)調(diào)秒子程序JIA1:MOV A,5FHCJNE A,2,JIA2LJMP TIAOF 。寄存器加1MOV 5FH,ACJNE A,8,JIANXLJMP JIAN3JIANX:MOV A,5FHCJNE A, 1,JIA1 。調(diào)顯示JNB ,JIAN11 。調(diào)延時去抖動JB ,JIANX 。判K4鍵為0轉(zhuǎn)JNB ,JIAN1 。判K2鍵為0轉(zhuǎn)JNB ,JIAN3 。判鍵按下LJMP JIAN4JI1:LCALL DELAY 。鍵盤程序JIAN:MOV P1,0FFH 。調(diào)顯示程序LCALL BAOSHI 。調(diào)鍵盤子程序LCALL RILI 。循環(huán)寫8個字節(jié) 。取數(shù)據(jù)LCALL WBYTE 。啟動連續(xù)寫8個字節(jié)MOV A,0BEH 。數(shù)據(jù)存放首地址MOV R2,8 。允許寫數(shù)據(jù)字節(jié)AC