【正文】 RET 。******************************* 。* 讀程序 * 。******************************* READ: CLR SCLK NOP NOP SETB RST NOP MOV A,DS1302_ADDR MOV R4,8 READ1: RRC A NOP MOV IO,C NOP NOP NOP SETB SCLK 。送入地址在時鐘上升沿有效 NOP NOP NOP 。CLR SCLK CLR SCLK NOP NOP DJNZ R4,READ1 MOV R4,8 READ2: CLR SCLK NOP NOP NOP MOV C,IO NOP NOP NOP NOP NOP 。從ds1302中讀取數(shù)據(jù)，時鐘下降沿有效 RRC A NOP NOP NOP NOP SETB SCLK NOP DJNZ R4,READ2 MOV DS1302_DATA,A CLR RST RET 。******************************* 。* 公歷設(shè)置程序 * 。******************************* SETG: CLR TR0 CLR ET0 SETB TR1 SETB ET1 CLR 08H CLR 09H CLR 0AH CLR 0BH CLR 0CH CLR 0DH CLR 0EH CLR 0FH MOV DS1302_ADDR,8EH MOV DS1302_DATA,00H 。允許寫 LCALL WRITE MOV DS1302_ADDR,80H MOV DS1302_DATA,80H 。1302停止振蕩 LCALL WRITE GWAIT: LCALL DISPLAY JNB ,GWAIT SETG1: LCALL DISPLAY JNB ,SETGMON JNB ,GADDYEAR JNB ,GDECYEAR JNB F0,SSSYEAR CLR 。閏月，指示燈亮 LJMP SETG1 SSSYEAR: SETB AJMP SETG1 SETGMON: AJMP SETG2 GADDYEAR: MOV R7,66H 。年加 LCALL ADD1 MOV 66H,A GADDYEAR1: LCALL GETWEEK 。年加同時換算出星期 LCALL YMD 。轉(zhuǎn)換農(nóng)歷月日 MOV DS1302_ADDR,8CH 。年值送 MOV DS1302_DATA,66H LCALL WRITE MOV DS1302_ADDR,8AH 。星期值送 MOV DS1302_DATA,64H LCALL WRITE MOV R0,66H LCALL DIVIDE 。年分離送顯示緩沖 MOV 4BH,R1 MOV 7BH,R1 MOV 4CH,R2 MOV 7CH,R2 MOV R0,64H LCALL DIVIDE 。星期分離送顯示緩沖 MOV 48H,week MOV 78H,week WAIT1: LCALL DISPLAY JNB ,WAIT1 AJMP SETG1 GDECYEAR: MOV R7,66H 。年減 LCALL DEC1