【正文】 L XIAN 。判鍵K1松開(kāi)MOV A,5FH ADD A,1 。比較轉(zhuǎn)移指令A(yù)不等于時(shí)，轉(zhuǎn)移LJMP TIAOM 。轉(zhuǎn)調(diào)分子程序JIA2:MOV A,5FHCJNE A,3,JIA3LJMP TIAOS 。轉(zhuǎn)調(diào)日子程序JIA4:MOV A,5FHCJNE A,5,JIA5LJMP TIAOY 。轉(zhuǎn)調(diào)年子程序JIA6:LJMP TIAOX 。標(biāo)志位清0CLR ZHUAN2CLR ZHUAN3CLR ZHUAN4CLR ZHUAN5CLR ZHUAN6CLR ZHUAN7MOV 5FH,00HJIAN2:LCALL XIAN 。調(diào)秒TIAOM:SETB ZHUAN6 。加轉(zhuǎn)移JNB ,MIAOJ 。調(diào)延時(shí)去抖動(dòng)JNB ,MIAOZ1LJMP JIAN0MIAOZ1:LCALL XIANJNB ,MIAOZ1 。取秒數(shù)據(jù)ADD A,1 。十進(jìn)制調(diào)整指令MOV 30H,A 。秒值過(guò)60為0LJMP MIAOZ2MIAOJ:LCALL DELAY。判鍵K3松開(kāi)MOV A,30H 。A除以BMOV 61H,B 。A乘以BADD A,61H 。A減1MOV B,10 DIV AB SWAP AADD A,BMOV 30H,ACJNE A,96H,MIAOZ2MOV 30H,59HMIAOZ2:MOV A,30HANL A,0FH 。存數(shù)據(jù)到寄存器MOV A,30H SWAP A 。存數(shù)據(jù)到寄存器SETB 。命令字節(jié)，寄存器07HACALL WBYTEMOV A,00H 。停止傳送SETB 。秒寫(xiě)命令字節(jié)LCALL WBYTEMOV A,30H 。調(diào)分TIAOF:CLR ZHUAN6 。置分標(biāo)志位LCALL XIANJNB ,FENZ 。減轉(zhuǎn)移LJMP JIAN0FENZ:LCALL DELAY 。判鍵K2松開(kāi)MOV A,31H 。加1DA A 。送回分寄存器CJNE A,60H,FENZ2 MOV 31H,00H 。調(diào)延時(shí)去抖動(dòng)JNB ,FENJ1LJMP JIAN0FENJ1:LCALL XIANJNB ,FENJ1 。取秒數(shù)據(jù)MOV B,10HDIV AB 。數(shù)據(jù)個(gè)位放到62HMOV B,10MUL AB 。不帶進(jìn)位加法DEC A 。分離低四位MOV 42H,A 。半字節(jié)交換ANL A,0FHMOV 43H,A 。啟動(dòng)設(shè)置寫(xiě)保護(hù)寄存器MOV A,10001110B 。允許寫(xiě)數(shù)據(jù)字節(jié)ACALL WBYTECLR 。啟動(dòng)寫(xiě)MOV A,82H 。寫(xiě)分?jǐn)?shù)據(jù)到DS1302ACALL WBYTEACALL XIANLJMP JIAN0RET。相同，后面略SETB ZHUAN4LCALL XIANJNB ,SHIZJNB ,SHIJLJMP JIAN0SHIZ:LCALL DELAYJNB ,SHIZ1LJMP JIAN0SHIZ1:LCALL XIANJNB ,SHIZ1MOV A,32HADD A,1DA AMOV 32H,ACJNE A,24H,SHIZ2MOV 32H,00HLJMP SHIZ2SHIJ:LCALL DELAYJNB ,SHIJ1LJMP JIAN0SHIJ1:LCALL XIANJNB ,SHIJ1MOV A,32HMOV B,10HDIV ABMOV 63H,BMOV B,10MUL ABADD A,63HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 32H,ACJNE A,96H,SHIZ2MOV 32H,23HSHIZ2:MOV A,32HANL A,0FHMOV 44H,AMOV A,32HSWAP AANL A,0FHMOV 45H,ASETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,84HACALL WBYTEMOV A,32HACALL WBYTEACALL XIANLJMP JIAN0RET。調(diào)月TIAOY:CLR ZHUAN3SETB ZHUAN2LCALL XIANJNB ,YUEZJNB ,YUEJLJMP JIAN0YUEZ:LCALL DELAYJNB ,YUEZ1LJMP JIAN0YUEZ1:LCALL XIANJNB ,YUEZ1MOV A,34HADD A,1DA AMOV 34H,ACJNE A,13H,YUEZ2MOV 34H,01HLJMP YUEZ2YUEJ:LCALL DELAYJNB ,YUEJ1LJMP JIAN0YUEJ1:LCALL XIANJNB ,YUEJ1MOV A,34HMOV B,10HDIV ABMOV 65H,BMOV B,10MUL ABADD A,65HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 34H,ACJNE A,00H,YUEZ2MOV 34H,12HYUEZ2:MOV A,34HANL A,0FHMOV 48H,AMOV A,34HSWAP AANL A,0FHMOV 49H,A SETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,88HLCALL WBYTEMOV A,34HLCALL WBYTELCALL XIANLJMP JIAN0RET。調(diào)星TIAOX:CLR ZHUAN1SETB ZHUAN7LCALL XIANJNB ,XQZJNB ,XQJLJMP JIAN0XQZ:LCALL DELAYJNB ,XQZ1LJMP JIAN0XQZ1:LCALL XIANJNB ,XQZ1MOV A,38HADD A,1DA AMOV 38H,ACJNE A,08H,XQZ2MOV 38H,01HLJMP XQZ2XQJ:LCALL DELAYJNB ,XQJ1LJMP JIAN0XQJ1:LCALL XIANJNB ,XQJ1MOV A,38HMOV B,10HDIV ABMOV 67H,BMOV B,10MUL ABADD A,67HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 38H,ACJNE A,00H,XQZ2MOV 38H,07HXQZ2: SETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,8AHLCALL WBYTEMOV A,38HLCALL WBYTELCALL XIANLJMP JIAN0RET。啟動(dòng)連續(xù)讀MOV A,0BFH 。右移位 NOPMOV ,C 。寫(xiě)上升沿有效DJNZ R1,WRITE1 。數(shù)據(jù)存放首地址MOV R2,8READ0:MOV R3,8 。讀下降沿有效NOPMOV C,SETB RRC ADJNZ R3,READ1 。存入30H開(kāi)始的單元INC R0DJNZ R2,READ0 。停止傳送MOV A,35H 。分離ANL A,0FHMOV R1,A 。高4位放到41HINC R0 INC R1 。放到年為止MOV 38H,36H 。顯示程序XIAN:MOV DPTR,TAB 。片選年第4位MOV P0,5BH 。延時(shí)顯示MOV P3,09H 。年百位為0LCALL DELAY 。片選年第2位MOV A,4BH 。取顯示的數(shù)型碼 MOV P0,A 。片選年第1位JNB ZHUAN1,XIA1JNB ZHUAN,XIA1MOV P0,00HLJMP XIA2XIA1:MOV A,4AH 。取顯示的數(shù)型碼MOV P0,A 。片選月十位MOV A,49H 。判消隱MOV P0,00H 。取顯示數(shù)型碼 MOV P0,AXIA4:LCALL DELAYMOV P3,0DH 。閃爍跳過(guò)顯示XIA5:MOV A,48H 。取顯示數(shù)型碼MOV P0,AXIA6:LCALL DELAYMOV P3,0EH 。取日十位數(shù)據(jù)JNZ XIA7 。為0則消隱LJMP XIA8XIA7:MOVC A,A+DPTR 。片選日個(gè)位JNB ZHUAN3,XIA9JNB ZHUAN,XIA9MOV P0,00HLJMP XIA10 。取日個(gè)位數(shù)據(jù)MOVC A,A+DPTR 。片選時(shí)十位MOV A,45H 。判消隱MOV P0,00H 。取顯示數(shù)型碼MOV P0,AXIA12:LCALL DELAYMOV P3,11H 。閃爍跳過(guò)顯示XIA13:MOV A,44H 。取顯示數(shù)型碼MOV P0,AXIA14:LCALL DELAY MOV P3,12H 。取分十位數(shù)據(jù)JNZ XIA15 。為0則消隱LJMP XIA16XIA15:MOVC A,A+DPTR 。片選分個(gè)位JNB ZHUAN5,XIA17JNB ZHUAN,XIA17MOV P0,00HLJMP XIA18 。取分個(gè)位數(shù)據(jù)MOVC A,A+DPTR。片選秒十位MOV A,41H 。判消隱MOV P0,00H 。取顯示數(shù)型碼MOV P0,AXIA20:LCALL DELAYMOV P3,15H 。閃爍跳過(guò)顯示XIA21:MOV A,40H 。取顯示數(shù)型碼MOV P0,AXIA22:LCALL DELAYMOV P3,16H 。閃爍跳過(guò)顯示XIA23:MOV A,38H 。取顯示數(shù)型碼MOV P0,AXIA24:LCALL DELAYRET。寫(xiě)一個(gè)字節(jié)8位WBYTE2:CLR RRC A 。寫(xiě)一位到DS1302SETB 。循環(huán)送8位RET 。數(shù)型碼TAB:DB 3FH,06H,5BH,4FH,66HDB 6DH,7DH,07H,7FH,6FH