【正文】 ===================================================WRITE_24C_N:。向I2C總線發(fā)送N個(gè)數(shù)據(jù)字節(jié) LCALL START_24C 。START MOV A, B 。從地址 LCALL OUT_24C 。MOV A, DPH 。高位地址 。LCALL OUT_24C MOV A, DPL 。低位地址 LCALL OUT_24CWRITE_LOOP: MOV A, @A0 LCALL OUT_24C INC R0 DJNZ R2, WRITE_LOOP LCALL STOP_24C 。stop N_NOP N_NOP TRAP_RET。=========================================================。 function: WRITE_24C_1 。向I2C總線發(fā)送1個(gè)數(shù)據(jù)字節(jié) 。 input: b要寫的數(shù)據(jù)。 dpl欲寫入EPROM數(shù)據(jù)的地址。 output: 。 usage: a,b,dptr。=========================================================WRITE_24C_1:。向I2C總線發(fā)送1個(gè)數(shù)據(jù)字節(jié) LCALL START_24C 。START MOV A, 0A0H 。從地址 LCALL OUT_24C MOV A, DPL 。低位地址 LCALL OUT_24C MOV A, B LCALL OUT_24C LCALL STOP_24C 。stop N_NOP N_NOP TRAP_RET。===============================================。 function: READ_24C_1 。從I2C總線接收1個(gè)數(shù)據(jù)字節(jié) 。 input: dpl欲從EPROM讀數(shù)據(jù)的地址。 output: a。 usage: a,dptr。===================================================READ_24C_1: 。從I2C總線接收1個(gè)數(shù)據(jù)字節(jié) LCALL START_24c 。START MOV A, 0A0H 。IC_addr LCALL OUT_24C MOV A, DPL 。addr_hi LCALL OUT_24C LCALL START_24C 。START MOV A, 0A1H 。IC_addr LCALL OUT_24C LCALL IN_24C 。read LCALL SENDN_ACK 。send nack LCALL STOP_24C 。stop TRAP_RET。=================================================。 function: OUT_24C 。向I2C發(fā)送一個(gè)字節(jié) 。 input: a。 usage: a,c。========================================================OUT_24C:。向I2C發(fā)送一個(gè)字節(jié) 。LCALL DOG_INT_FEED MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP MOV C, MOV CSDA, C N_NOP SETB CSCL N_NOP CLR CSCL N_NOP SETB CSDA N_NOP SETB CSCL N_NOPOUT_WAIT: MOV C, CSDA JC OUT_WAIT CLR CSCL TRAP_RET。=========================================================。 function: IN_24C 。從I2C總線接收一個(gè)數(shù)據(jù)字節(jié) 。 output: a。 usage: a,c。=================================================IN_24C: 。從I2C總線接收一個(gè)數(shù)據(jù)字節(jié) 。 LCALL DOG_INT_FEED SETB CSDA N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV c, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP SETB CSCL N_NOP MOV C, CSDA MOV , C CLR CSCL N_NOP TRAP_RET時(shí)鐘程序：T_RST BIT 。實(shí)時(shí)時(shí)鐘復(fù)位線引腳T_CLK BIT 。實(shí)時(shí)時(shí)鐘時(shí)鐘線引腳T_IO BIT 。實(shí)時(shí)時(shí)鐘數(shù)據(jù)線引腳SECOND EQU 30HMINUTE EQU 31HHOUR EQU 32HDAY EQU 33HMONTH EQU 34HWEEK EQU 35HYEARL EQU 36H。*********************************************************************/ ORG 0000H LJMP START ORG 0060HSTART: CLR T_RST CLR T_CLK MOV SP,60H 。修改堆棧 MOV SECOND,00H 。初始時(shí)間設(shè)為12:00:00 MOV MINUTE,00H MOV HOUR,12H MOV DAY,01H 。初始日期設(shè)為08年1月1日第一周 MOV MONTH,01H MOV WEEK,01H MOV YEARL,08H LCALL SETDS1302 LCALL GET1302 LCALL DISPLAYMAIN: MOV R3,25 MOV TMOD,01H MOV TH0,70H 。置定時(shí)器初值(定時(shí)40ms) MOV TL0,00H SETB TR0 。啟動(dòng)定時(shí)器0LP1: JBC TF0,LP2 。查詢計(jì)數(shù)溢出 SJMP LP1 。未到40 ms繼續(xù)計(jì)數(shù)LP2: MOV TH0,0B8H 。重新置定時(shí)器初值 MOV TL0,00H LCALL DISPLAY 。顯示 DJNZ R3,LP1 。未到1 S繼續(xù)循環(huán) LCALL GET1302 。每過1s從DS1302讀取一次時(shí)間 MOV r3,25 SJMP LP1。字符顯示碼表DIG_CODE: DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H。數(shù)碼顯示子程序DISPLAY: MOV DPTR,DIG_CODE。*******************************************。顯示秒 MOV A,SECOND ANL A,0FH MOVC A,@A+DPTR MOV P2,A MOV P1,11011111b LCALL DIS_DELAY MOV A,SECOND SWAP A ANL A,07H MOVC A,@A+DPTR MOV P2,A MOV P1,11101111b LCALL DIS_DELAY。*******************************************。顯示分 MOV A,MINUTE ANL A,0FH MOVC A,@A+DPTR MOV P2,A MOV P1,11110111b LCALL DIS_DELAY MOV A,MINUTE SWAP A ANL A,07H MOVC A,@A+DPTR MOV P2,A MOV P1,11111011b LCALL DIS_DELAY。*******************************************。顯示小時(shí) MOV A,HOUR ANL A,0FH MOVC A,@A+DPTR MOV P2,A MOV P1,11111101b LCALL DIS_DELAY MOV A,HOUR SWAP A ANL A,03H MOVC A,@A+DPTR MOV P2,A MOV P1,11111110b LCALL DIS_DELAY RET。