【正文】 。初始MOV A,P1CPL AJNZ JI1 。調(diào)延時CPL AJNZ JI2 LJMP JIAN4JI2:JNB ,JIAN3 。判K3鍵為0轉(zhuǎn)JIAN0:MOV P1,0FFHJNB ,JIAN3 。判K1鍵為0轉(zhuǎn)LJMP JIANXJIAN1:LCALL DELAY 。為1就是鍵抖動JIAN11:LCALL XIAN 。判鍵K1松開MOV A,5FH ADD A,1 。比較轉(zhuǎn)移指令A(yù)不等于時，轉(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)延時去抖動JNB ,MIAOZ1LJMP JIAN0MIAOZ1:LCALL XIANJNB ,MIAOZ1 。取秒數(shù)據(jù)ADD A,1 。十進制調(diào)整指令MOV 30H,A 。秒值過60為0LJMP MIAOZ2MIAOJ:LCALL DELAY。判鍵K3松開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 。秒寫命令字節(jié)LCALL WBYTEMOV A,30H 。調(diào)分TIAOF:CLR ZHUAN6 。置分標(biāo)志位LCALL XIANJNB ,FENZ 。減轉(zhuǎn)移LJMP JIAN0FENZ:LCALL DELAY 。判鍵K2松開MOV A,31H 。加1DA A 。送回分寄存器CJNE A,60H,FENZ2 MOV 31H,00H 。調(diào)延時去抖動JNB ,FENJ1LJMP JIAN0FENJ1:LCALL XIANJNB ,FENJ1 。取秒數(shù)據(jù)MOV B,10HDIV AB 。數(shù)據(jù)個位放到62HMOV B,10MUL AB 。不帶進位加法DEC A 。分離低四位MOV 42H,A 。半字節(jié)交換ANL A,0FHMOV 43H,A 。啟動設(shè)置寫保護寄存器MOV A,10001110B 。允許寫數(shù)據(jù)字節(jié)ACALL WBYTECLR 。啟動寫MOV A,82H 。寫分?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,35HADD A,1DA AMOV 35H,ACJNE A,08H,XQZ2MOV 35H,01HLJMP XQZ2XQJ:LCALL DELAYJNB ,XQJ1LJMP JIAN0XQJ1:LCALL XIANJNB ,XQJ1MOV A,35HMOV B,10HDIV ABMOV 67H,BMOV B,10MUL ABADD A,67HDEC AMOV B,10DIV ABSWAP AADD A,BMOV 35H,ACJNE A,00H,XQZ2MOV 35H,07HXQZ2: SETB MOV A,10001110BACALL WBYTEMOV A,00HACALL WBYTECLR SETB MOV A,8AHLCALL WBYTEMOV A,35HLCALL WBYTELCALL XIANLJMP JIAN0RET。啟動連續(xù)讀MOV A,0BFH 。右移位 NOPMOV ,C 。寫上升沿有效DJNZ R1,WRITE1 。數(shù)據(jù)存放首地址MOV R2,8READ0:MOV R3,8 。讀下降沿有效NOPMOV C,SETB RRC ADJNZ R3,READ1 。存入30H開始的單元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 。延時顯示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 。閃爍跳過顯示XIA5:MOV A,48H 。取顯示數(shù)型碼MOV P0,AXIA6:LCALL DELAYMOV P3,0EH 。取日十位數(shù)據(jù)JNZ XIA7 。為0則消隱LJMP XIA8XIA7:MOVC A,A+DPTR 。片選日個位JNB ZHUAN3,XIA9JNB ZHUAN,XIA9MOV P0,00HLJMP XIA10 。取日個位數(shù)據(jù)MOVC A,A+DPTR 。片選時十位MOV A,45H 。判消隱MOV P0,00H 。取顯示數(shù)型碼MOV P0,AXIA12:LCALL DELAYMOV P3,11H 。閃爍跳過顯示XIA13:MOV A,44H 。取顯示數(shù)型碼MOV P0,AXIA14:LCALL DELAY MOV P3,12H 。取分十位數(shù)據(jù)CJNE A,00H,LP1SETB BUZZER4LP1:JNZ XIA15 。為0則消隱LJMP XIA16XIA15:MOVC A,A+DPTR 。片選分個位JNB ZHUAN5,XIA17JNB ZHUAN,XIA17MOV P0,00HLJMP XIA18 。取分個位數(shù)據(jù)CJNE A,00H,LP2SETB BUZZER3LP2:MOVC A,A+DPTR。片選秒十位MOV A,41H 。判消隱MOV P0,00H 。取顯示數(shù)型碼MOV P0,AXIA20:LCALL DELAYMOV P3,15H 。閃爍跳過顯示XIA21:MOV A,40H 。取顯示數(shù)型碼MOV P0,AXIA22:LCALL DELAYMOV P3,16H 。閃爍跳過顯示XIA23:MOV A,38H 。取顯示數(shù)型碼MOV P0,AXIA24:LCALL DELAYRET。寫一個字節(jié)8位WBYTE2:CLR RRC A 。寫一位到DS1302SETB 。循環(huán)送8位RET 。控制音長CPL LCALL DELAY 。延時程序DELAY:MOV R4,02HDELAY1:MOV R5,0FAHDL1:NOPNOPDJNZ R5,DL1DJNZ R4,DELAY1RET