【正文】 4,LOOP1 JMP RETURN SET0:CLR CLK 。為 0 則將 0 通過ＨC164 寫入 LEDCLR DATE SETB CLK DJNZ R4,LOOP1 RETURN:POP ACC RET ///////////XSD:PUSH ACC MOVC A,@A+DPTR 。查詢段碼ANL A,0F7H 。顯示小數點 MOV R4,8 。八戶LOOP2: RRC A 。A 中八位循環(huán)移入 Cy 位JC SETO1 JNC SETO0 SETO1: CLR CLK 。為 1 則將 1 通過ＨC164 寫入 LEDSETB DATE SETB CLK DJNZ R4,LOOP2 JMP RETURN2 SETO0: CLR CLK 。為 0 則將 0 通過ＨC164 寫入 LEDCLR DATE SETB CLK DJNZ R4,LOOP2 RETURN2:POP ACC RET //////////I2C_WR///////////// I2C_WR: LCALL START 。調開始子程序MOV A,0A0H ?？刂谱?，2416 的物理地址和寫控制位LCALL SENDI2C 。調向 2416 寫一字節(jié)并接收信號子程序JB F0,I2C_WR 。若寫失敗，從頭開始MOV A,00H 。選擇地址LCALL SENDI2CJB F0,I2C_WR 。至此，地址寫完MOV R0,60H MOV R7,16II1:MOV A,@R0 。將 60h6FH 的內容寫到 2416 中山東科技大學課程設計27LCALL SENDI2CJB F0,I2C_WRINC R0DJNZ R7,II1LCALL STP 。調停止子程LCALL LDELAYRET/////////////////////I2C_RD////////////////// I2C_RD: LCALL STARTMOV A,0A0H ?？刂谱郑?416 的物理地址和寫控制位 LCALL SENDI2C 。調向 2416 寫一字節(jié)并接收信號子程序JB F0,I2C_RD 。若寫失敗，從頭開始MOV A,00H 。選擇地址LCALL SENDI2CJB F0,I2C_RD 。至此，地址寫完lcall STARTMOV A,0A1H 。控制字，2416 的物理地址和讀操作位LCALL SENDI2CJB F0,I2C_RDMOV R0,60HMOV R7,16JJ3: LCALL LOADI2C 。調用從 2416 中讀 1 字節(jié)子程序MOV @R0,A 。將從 2416 中讀出的內容存儲到 60h6Fh 中INC R0DJNZ R7,JJ3INC R0SETB F0 。F0=1，讀最后一個數據標志LCALL LOADI2C 。讀出一個數據MOV @R0,A LCALL STP 。發(fā)終止條件RET /////////////I2C 啟動條件////////// START: SETB SDA NOP SETB SCL NOP NOP NOP NOP CLR SDA NOP NOP NOP 山東科技大學課程設計28 NOP CLR SCL RET ///////////I2C 終止條件///////////STP: CLR SDA NOP SETB SCL NOP NOP NOP NOP SETB SDA NOP NOP NOP NOP RET ////////LOADI2C///////// LOADI2C: MOV R5,08HRCV: SETB SDA 。置數據線為輸入方式 NOP CLR SCL。置低準備接受數據位 NOP NOP NOP NOP NOP SETB SCL。置高使數據線上數據有效 NOP NOP NOP NOP NOP CLR C JNB SDA,RCV0。讀數據位，若為 0 則置 0 SETB C 。讀數據位，若為 1 則置 1RCV0: RLC A 。接收數據位放入 ACC 中 NOP NOP DJNZ R5,RCV 。沒接受完繼續(xù) CLR SCL 。接受完置低發(fā)應答或非應答信號 NOP NOP NOP山東科技大學課程設計29 NOP CLR SDA JNB F0,SENDACK 。判斷繼續(xù)接受數據？如需轉發(fā)送應答位 SETB SDA 。發(fā)送非應答信號SENDACK:NOP NOP SETB SCL 。置高使應答有效 NOP NOP NOP NOP NOP CLR SCL 。準備接受停止條件 CLR F0 。清接受非應答信號 RET///////////SENDI2C/////// SENDI2C:MOV R5,8 CLR SCLAR_LP1: NOP NOP NOP NOP NOP RLC A MOV SDA,C 。傳送 1 位數據 NOP NOP SETB SCL 。接收數據NOPNOPNOP NOPNOPCLR SCL 。準備接受下 1 位DJNZ R5,AR_LP1 。8 位發(fā)送完NOPNOPSETB SDA 。發(fā)送完，準備接受應答位NOP NOPNOPSETB SCL 。開始接受應答位NOPNOP山東科技大學課程設計30NOPNOPCLR F0 。預先清發(fā)送數據出錯標志JNB SDA,ACKEND。判斷正常否？正常轉 ACKENDSETB F0。未收到，置位錯誤標志ACKEND:NOPCLR SCL 。準備下一步操作NOPNOPRET ///////////////////LDELAY10ms 延時//////////// LDELAY:MOV R3,10 LDELAY1:MOV R2,0FAH LDELAY2:MOV 50H,70H DJNZ R2, LDELAY2 DJNZ R3, LDELAY1 RET /////////////////////延時 1S 子程序/////////////////// DELAY: MOV R3,5 DELAY1: MOV TMOD,10H SETB TR1 MOV TH1,3CH MOV TL1,0B0H JNB TF1,$ CLR TF1 DJNZ R3,DELAY1 RET /////////////////////清零子程序/////////////////// CLEAR1:CLR 。 口清零，準備將按鍵狀態(tài)輸入 74H165CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR SETB PUSH ACC 。A 入棧保護 MOV A,P1 。P1 口數據存入 A 中山東科技大學課程設計31 JB ,GOON1 。判斷第四位狀態(tài),1 則跳轉,0 則清零相應位 JMP QL7 。跳至 QL7 清除相應位GOON1:CLR 。 口給 74HC165 CLK 信號 SETB MOV A,P1 JB ,GOON2 JMP QL6GOON2:CLR SETB MOV A,P1 JB ,GOON3 JMP QL3GOON3: CLR SETB MOV A,P1 JB ,GOON4 JMP QL2GOON4: CLR SETB MOV A,P1 JB ,GOON5 JMP QL1GOON5: CLR SETB MOV A,P1 JB ,GOON6 JMP QL5GOON6: CLR SETB MOV A,P1 JB ,GOON7 JMP QL4GOON7: CLR SETB MOV A,P1 JB ,JIESHU JMP QL8QL1: MOV 60H,0 。清除第一戶的電量 JMP GOON4QL2: MOV 62H,0 。 清除第二戶的電量 JMP GOON3QL3: MOV 64H,0 。 清除第三戶的電量 JMP GOON2QL4: MOV 66H,0 。 清除第四戶的電量山東科技大學課程設計32 JMP GOON6QL5: MOV 68H,0 。 清除第五戶的電量 JMP GOON5QL6: MOV 6AH,0 。 清除第六戶的電量 JMP GOON1QL7: MOV 6CH,0 ；清除第七戶的電量 JMP JIESHUQL8: MOV 6EH,0 。 清除第八戶的電量 JMP GOON7JIESHU:POP ACC 。出棧 A RETI 。返回/////////////////////全部清零子程序/////////////////// CLEAR:MOV R1,16 MOV R0,60H MOV A,0H QL: MOV @R0,A INC R0 DJNZ R1,QL RET //////////////////// TAB 表//////////////////////////// TAB: DB 88H,0EBH,4CH,49H,2BH,19H,18H,0CBH,08H,09H,7FH E