【正文】 4,LOOP1 JMP RETURN SET0:CLR CLK 。為 0 則將 0 通過(guò)ＨC164 寫入 LEDCLR DATE SETB CLK DJNZ R4,LOOP1 RETURN:POP ACC RET ///////////XSD:PUSH ACC MOVC A,@A+DPTR 。查詢段碼ANL A,0F7H 。顯示小數(shù)點(diǎn) MOV R4,8 。八戶LOOP2: RRC A 。A 中八位循環(huán)移入 Cy 位JC SETO1 JNC SETO0 SETO1: CLR CLK 。為 1 則將 1 通過(guò)ＨC164 寫入 LEDSETB DATE SETB CLK DJNZ R4,LOOP2 JMP RETURN2 SETO0: CLR CLK 。為 0 則將 0 通過(guò)ＨC164 寫入 LEDCLR DATE SETB CLK DJNZ R4,LOOP2 RETURN2:POP ACC RET //////////I2C_WR///////////// I2C_WR: LCALL START 。調(diào)開(kāi)始子程序MOV A,0A0H ?？刂谱?，2416 的物理地址和寫控制位LCALL SENDI2C 。調(diào)向 2416 寫一字節(jié)并接收信號(hào)子程序JB F0,I2C_WR 。若寫失敗，從頭開(kāi)始MOV A,00H 。選擇地址LCALL SENDI2CJB F0,I2C_WR 。至此，地址寫完MOV R0,60H MOV R7,16II1:MOV A,@R0 。將 60h6FH 的內(nèi)容寫到 2416 中山東科技大學(xué)課程設(shè)計(jì)27LCALL SENDI2CJB F0,I2C_WRINC R0DJNZ R7,II1LCALL STP 。調(diào)停止子程LCALL LDELAYRET/////////////////////I2C_RD////////////////// I2C_RD: LCALL STARTMOV A,0A0H ?？刂谱郑?416 的物理地址和寫控制位 LCALL SENDI2C 。調(diào)向 2416 寫一字節(jié)并接收信號(hào)子程序JB F0,I2C_RD 。若寫失敗，從頭開(kāi)始MOV A,00H 。選擇地址LCALL SENDI2CJB F0,I2C_RD 。至此，地址寫完lcall STARTMOV A,0A1H 。控制字，2416 的物理地址和讀操作位LCALL SENDI2CJB F0,I2C_RDMOV R0,60HMOV R7,16JJ3: LCALL LOADI2C 。調(diào)用從 2416 中讀 1 字節(jié)子程序MOV @R0,A 。將從 2416 中讀出的內(nèi)容存儲(chǔ)到 60h6Fh 中INC R0DJNZ R7,JJ3INC R0SETB F0 。F0=1，讀最后一個(gè)數(shù)據(jù)標(biāo)志LCALL LOADI2C 。讀出一個(gè)數(shù)據(jù)MOV @R0,A LCALL STP 。發(fā)終止條件RET /////////////I2C 啟動(dòng)條件////////// START: SETB SDA NOP SETB SCL NOP NOP NOP NOP CLR SDA NOP NOP NOP 山東科技大學(xué)課程設(shè)計(jì)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 。置數(shù)據(jù)線為輸入方式 NOP CLR SCL。置低準(zhǔn)備接受數(shù)據(jù)位 NOP NOP NOP NOP NOP SETB SCL。置高使數(shù)據(jù)線上數(shù)據(jù)有效 NOP NOP NOP NOP NOP CLR C JNB SDA,RCV0。讀數(shù)據(jù)位，若為 0 則置 0 SETB C 。讀數(shù)據(jù)位，若為 1 則置 1RCV0: RLC A 。接收數(shù)據(jù)位放入 ACC 中 NOP NOP DJNZ R5,RCV 。沒(méi)接受完繼續(xù) CLR SCL 。接受完置低發(fā)應(yīng)答或非應(yīng)答信號(hào) NOP NOP NOP山東科技大學(xué)課程設(shè)計(jì)29 NOP CLR SDA JNB F0,SENDACK 。判斷繼續(xù)接受數(shù)據(jù)？如需轉(zhuǎn)發(fā)送應(yīng)答位 SETB SDA 。發(fā)送非應(yīng)答信號(hào)SENDACK:NOP NOP SETB SCL 。置高使應(yīng)答有效 NOP NOP NOP NOP NOP CLR SCL 。準(zhǔn)備接受停止條件 CLR F0 。清接受非應(yīng)答信號(hào) RET///////////SENDI2C/////// SENDI2C:MOV R5,8 CLR SCLAR_LP1: NOP NOP NOP NOP NOP RLC A MOV SDA,C 。傳送 1 位數(shù)據(jù) NOP NOP SETB SCL 。接收數(shù)據(jù)NOPNOPNOP NOPNOPCLR SCL 。準(zhǔn)備接受下 1 位DJNZ R5,AR_LP1 。8 位發(fā)送完NOPNOPSETB SDA 。發(fā)送完，準(zhǔn)備接受應(yīng)答位NOP NOPNOPSETB SCL 。開(kāi)始接受應(yīng)答位NOPNOP山東科技大學(xué)課程設(shè)計(jì)30NOPNOPCLR F0 。預(yù)先清發(fā)送數(shù)據(jù)出錯(cuò)標(biāo)志JNB SDA,ACKEND。判斷正常否？正常轉(zhuǎn) ACKENDSETB F0。未收到，置位錯(cuò)誤標(biāo)志ACKEND:NOPCLR SCL 。準(zhǔn)備下一步操作NOPNOPRET ///////////////////LDELAY10ms 延時(shí)//////////// LDELAY:MOV R3,10 LDELAY1:MOV R2,0FAH LDELAY2:MOV 50H,70H DJNZ R2, LDELAY2 DJNZ R3, LDELAY1 RET /////////////////////延時(shí) 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 。 口清零，準(zhǔn)備將按鍵狀態(tài)輸入 74H165CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR SETB PUSH ACC 。A 入棧保護(hù) MOV A,P1 。P1 口數(shù)據(jù)存入 A 中山東科技大學(xué)課程設(shè)計(jì)31 JB ,GOON1 。判斷第四位狀態(tài),1 則跳轉(zhuǎn),0 則清零相應(yīng)位 JMP QL7 。跳至 QL7 清除相應(yīng)位GOON1:CLR 。 口給 74HC165 CLK 信號(hào) 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 。 清除第四戶的電量山東科技大學(xué)課程設(shè)計(jì)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