【正文】 MUL AB 。A 乘以 B ADD A,61H 。不帶進位加法 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 31 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)移 LJMP JIAN0 32 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 。十進制調(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 。不帶進位加法 DEC A 。A 減 1 MOV B,10 DIV AB SWAP A ADD A,B MOV 31H,A 33 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 MOV A,00H 。允許寫數(shù)據(jù)字節(jié) ACALL WBYTE CLR 。停止傳送 SETB 。啟動寫 MOV A,82H 。分寫命令字節(jié) ACALL WBYTE MOV A,31H 。寫分數(shù)據(jù)到 DS1302 ACALL WBYTE ACALL XIAN LJMP JIAN0 RET 。調(diào)時 TIAOS:CLR ZHUAN5。相同，后面略 SETB ZHUAN4 LCALL XIAN 34 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 DEC A MOV B,10 DIV AB 35 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 36 。調(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 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 B,10 MUL AB 37 ADD A,64H DEC A MOV B,10 DIV AB SWAP A ADD A,B MOV 33H,A CJNE A,96H,RIZ2 MOV 33H,31H RIZ2:MOV A,33H ANL A,0FH MOV 46H,A MOV A,33H SWAP A ANL A,0FH MOV 47H,A SETB MOV A,10001110B ACALL WBYTE MOV A,00H ACALL WBYTE CLR SETB MOV A,86H LCALL WBYTE MOV A,33H LCALL WBYTE LCALL XIAN 38 LJMP JIAN0 RET 。調(diào)月 TIAOY:CLR ZHUAN3 SETB ZHUAN2 LCALL XIAN JNB ,YUEZ JNB ,YUEJ LJMP JIAN0 YUEZ:LCALL DELAY JNB ,YUEZ1 LJMP JIAN0 YUEZ1:LCALL XIAN JNB ,YUEZ1 MOV A,34H ADD A,1 DA A MOV 34H,A CJNE A,13H,YUEZ2 MOV 34H,01H LJMP YUEZ2 YUEJ:LCALL DELAY JNB ,YUEJ1 LJMP JIAN0 YUEJ1:LCALL XIAN JNB ,YUEJ1 MOV A,34H MOV B,10H DIV AB 39 MOV 65H,B MOV B,10 MUL AB ADD A,65H DEC A MOV B,10 DIV AB SWAP A ADD A,B MOV 34H,A CJNE A,00H,YUEZ2 MOV 34H,12H YUEZ2:MOV A,34H ANL A,0FH MOV 48H,A MOV A,34H SWAP A ANL A,0FH MOV 49H,A SETB MOV A,10001110B ACALL WBYTE MOV A,00H ACALL WBYTE CLR SETB MOV A,88H LCALL WBYTE 40 MOV A,34H LCALL WBYTE LCALL XIAN LJMP JIAN0 RET 。調(diào)年 TIAON:CLR ZHUAN2 SETB ZHUAN1 LCALL XIAN JNB ,NIANZ JNB ,NIANJ LJMP JIAN0 NIANZ:LCALL DELAY JNB ,NIANZ1 LJMP JIAN0 NIANZ1:LCALL XIAN JNB ,NIANZ1 MOV A,35H ADD A,1 DA A MOV 35H,A LJMP NIANZ2 NIANJ:LCALL DELAY JNB ,NIANJ1 LJMP JIAN0 NIANJ1:LCALL XIAN JNB ,NIANJ1 MOV A,35H MOV B,10H 41 DIV AB MOV 66H,B MOV B,10 MUL AB ADD A,66H DEC A MOV B,10 DIV AB SWAP A ADD A,B MOV 35H,A CJNE A,96H,NIANZ2 MOV 35H,99H NIANZ2:MOV A,35H ANL A,0FH MOV 4AH,A MOV A,35H SWAP A ANL A,0FH MOV 4BH,A SETB MOV A,10001110B ACALL WBYTE MOV A,00H ACALL WBYTE CLR SETB MOV A,8CH 42 LCALL WBYTE MOV A,35H LCALL WBYTE LCALL XIAN LJMP JIAN0 RET 。調(diào)星 TIAOX:CLR ZHUAN1 SETB ZHUAN7 LCALL XIAN JNB ,XQZ JNB ,XQJ LJMP JIAN0 XQZ:LCALL DELAY JNB ,XQZ1 LJMP JIAN0 XQZ1:LCALL XIAN JNB ,XQZ1 MOV A,38H ADD A,1 DA A MOV 38H,A CJNE A,08H,XQZ2 MOV 38H,01H LJMP XQZ2 XQJ:LCALL DELAY JNB ,XQJ1 LJMP JIAN0 XQJ1:LCALL XIAN 43 JNB ,XQJ1 MOV A,38H MOV B,10H DIV AB MOV 67H,B MOV B,10 MUL AB ADD A,67H DEC A MOV B,10 DIV AB SWAP A ADD A,B MOV 38H,A CJNE A,00H,XQZ2 MOV 38H,07H XQZ2: SETB MOV A,10001110B ACALL WBYTE MOV A,00H ACALL WBYTE CLR SETB MOV A,8AH LCALL WBYTE MOV A,38H LCALL WBYTE 44 LCALL XIAN LJMP JIAN0 RET 。時鐘程序 RILI: CLR NOP CLR NOP SETB 。啟動連續(xù)讀 MOV A,0BFH 。設(shè)多字節(jié)讀命令 MOV R1,8 WRITE1: CLR RRC A 。右移位 NOP MOV ,C 。寫一位到 DS1302 SETB 。寫上升沿有效 DJNZ R1,WRITE1 。循環(huán)送 8 位 MOV R0,30H 。數(shù)據(jù)存放首地址 MOV R2,8 READ0:MOV R3,8