【正文】 計當(dāng)中也得到了很多同學(xué)的支持，在此感謝他們。 附錄 1 程序： BITCNT EQU 30H BYTECNT EQU 31H COMMAND EQU 32H RCUDAT EQU 33H ； 定義 1302 讀出地址 XMTDAT EQU 3BH ； 定義 1302 寫入地址 IO_DATA BIT ； 定義 1302 數(shù) 據(jù)輸入 /輸出端 SCLK BIT 。 定義 1302 復(fù)位 SCL BIT 。 定義 24c02 串行數(shù)據(jù) XSJ BIT 。 定義功能鍵 JYJ BIT 。 定義光敏電阻輸入端 TS2 BIT 。定義調(diào)關(guān)路燈指示發(fā)光二極管 TKLD BIT 。主程序入口地址 ORG 000BH AJMP T0INT 。T1 中斷入口地址 ORG 0030H MAIN： OV TMOD,11H 。 閃爍標(biāo)志位 MOV 70H， 0 MOV TH0， 0D8H MOV TL0， 0F0H MOV TH1， 0D8H MOV TL1， 0F0H MOV R3 ， 0AIH MOV R4 ， 00H MOV R1 ， 76H MOV R7 ， 04H LCALL EEPR LCALL OSC_ENABLE 。 初始化 1302 允許數(shù)據(jù)輸入 LCALL R_MANY 。 判斷顯示開關(guān)鍵 CPL 30H 。 判斷標(biāo)志位 SETB TR1 JB GNJ ， PDGX 。 ； 調(diào)時鐘時 CLR TSZ JB JYJ , PDGX LCALL TS10MS JB JYJ , PDGX 。1302 ； 1302 時加一 MOV A , 75H CJNE A , 2 , PDTS MOV 75H ， 0 ； 判斷是否調(diào)到 24 時 PDTS： CJNE A , 2 , POTF JB JYJ , PDTF LCALL YS10MS JB JYJ , PDTF INC 74H 。 存 1302 時、分 JB JYJ , PDGS LCALL YS 10MS JB JYJ , PDGS INC 79H 。 關(guān)路燈分加一 CJNE A ,60 , PDKS MOV 78H , 0 PDKS： CJNE A , 5 , PDKF SETB TGLD CLR TKLD JB JYJ PDKF LCALL YS10MS JB JYJ , PDKF INC 77H 。 開路燈分加一 MOV A , 76H CJNE A ,60 , PDJS MOV 76H ,0 PDJS： CJNE A , 7 , PDGX MOV 73H ,0 MOV R3 , 0A0H MOV R4 , 00H MOV R1 , 76H MOV R7 , 04H LCALL EEPW 。 輸出標(biāo)志位 MOV A , 75H CJNE A , 79H , KLD 。 比較關(guān)燈分時間點 GLD： SETB 。**********允許數(shù)據(jù)輸入 ********** WRIT_ENABLE: MOV COMMAND,8EH MOV BYTECNT,1H MOV R0,XMTDAT MOV XMTDAT,00H ACALL SEND_BYTE RET 。**********時鐘啟動操作 ********** OSC_ENABLE: MOV COMMAND,80H MOV BYTECNT,1H MOV R0,XMTDAT MOV XMTDAT,00H ACALL SEND_BYTE RET 。**********寫星期內(nèi)容 ********** W_WEEK: MOV COMMAND,8AH MOV BYTECNT,1H MOV R0,XMTDAT ACALL SEND_BYTE RET 。**********寫分鐘內(nèi)容 ********** W_MINUTE: MOV COMMAND,82H MOV BYTECNT,1H MOV R0,XMTDAT ACALL SEND_BYTE RET 。**********讀星期內(nèi)容 ********** R_WEEK: MOV COMMAND,8BH MOV BYTECNT,1H MOV R1,RCVDAT ACALL RECEIVE_BYTE RET 。**********多字節(jié)讀出數(shù)據(jù) ********* R_MANY: MOV COMMAND,0BFH MOV BYTECNT,8 MOV R1,RCVDAT ACALL RECEIVE_BYTE RET 。**********數(shù)據(jù)接收 ********** RECEIVE_BYTE: CLR RST NOP CLR SCLK NOP SETB RST MOV A,COMMAND MOV BITCNT,08H R_BYTE0: RRC A MOV IO_DATA,C NOP SETB SCLK NOP CLR SCLK DJNZ BITCNT,R_BYTE0 NOP R_BYTE1: CLR A CLR C MOV BITCNT,08H R_BYTE2: NOP MOV C,IO_DATA RRC A SETB SCLK NOP CLR SCLK DJNZ BITCNT,R_BYTE2 MOV R1,A INC R1 DJNZ BYTECNT,R_BYTE1 NOP CLR RST RET EEPW: SETB SDA SETB SCL NOP NOP CLR SDA MOV A,R3 ACALL SUBS MOV A,R4 ACALL SUBS AGAIN: MOV A,R1 INC R1 ACALL SUBS DJNZ R7,AGAIN CLR SDA ACALL DELAY SETB SCL ACALL DELAY SETB SDA RET SUBS: MOV R0,08H LOOP: CLR SCL RLC A MOV SDA,C NOP NOP SETB SCL ACALL DELAY DJNZ R0,LOOP CLR SCL ACALL DELAY SETB SCL REP: MOV C,SDA JC REP CLR SCL RET DELAY: NOP NOP RET 。R3 10100001 命令 +器件 +3位地址 +讀 /寫。（ R4 片內(nèi)字節(jié)地址 。 R7 連續(xù)度字節(jié)數(shù) EEPR: SETB SDA SETB SCL CLR SDA 。**********顯示子程序 ********** XS: MOV R0,33H MOV R1,79H MOV R7,4 SZZH: MOV A,R0 INC R0 MOV B,16 DIV AB MOV R1,B INC R1 MOV R1,A INC R1 DJNZ R7,SZZH MOV R1,79H MOV R6,7 MOV DPTR,TAB BK: MOV A,R1 MOVC A,A+DPTR MOV SBUF,A JNB TI,$ CLR TI INC R1 DJNZ R6,BK RET TAB: DB 11H,0D7H,32H,92H ,0D4H,98H,18H,0D3H,10H,90H