【導(dǎo)讀】成電路，對(duì)采樣電壓電流信號(hào)進(jìn)行處理并相乘轉(zhuǎn)換成與電能成正比的脈沖輸出,通過(guò)計(jì)度器或數(shù)字顯示器顯示用戶使用的電量。芯片為核心，配有電能轉(zhuǎn)換模塊、LED顯示模塊、掉電存儲(chǔ)模塊等功能模塊，實(shí)現(xiàn)對(duì)八戶的用電狀況進(jìn)行采集檢測(cè)。本次設(shè)計(jì)用戶數(shù)為八戶，即實(shí)現(xiàn)八位用戶循環(huán)顯示電能量。24C16完成數(shù)據(jù)的定時(shí)寫入以防停電時(shí)數(shù)據(jù)丟失。

　　

【正文】 JMP AD62 AD61:INC @R1 LJMP EX6 AD62:MOV @R1,00H INC R1 。6BH INC @R1 EX6:RET ///////////////////////用戶 7 計(jì)數(shù) ///////////////// AD07:MOV R1,6CH CJNE @R1,99,AD71 。6CH JMP AD72 AD71:INC @R1 LJMP EX7 AD72:MOV @R1,00H INC R1 。6DH INC @R1 EX7: RET ///////////////////用戶 8 計(jì)數(shù) ////////////////////////// AD08: MOV R1,6EH CJNE @R1,99,AD81 。6EH JMP AD82 AD81:INC @R1 LJMP EX8 AD82:MOV @R1,00H INC R1 。6FH INC @R1 EX8:RET ////////除十顯示余數(shù)子程序 //////// XSYUSHU: MOV B,10 DIV AB PUSH ACC MOV A,B LCALL XS 。調(diào) 用顯示子程序 POP ACC RET ///////////顯示子程序 /////////// XS:PUSH ACC MOVC A,@A+DPTR 。查詢段碼 MOV R4,8 LOOP1: RRC A 。A 中八位循環(huán)移入 Cy 位 JC SET1 山東科技大學(xué)課程設(shè)計(jì) 25 JMP SET0 SET1: CLR CLK 。為 1 則將 1 通過(guò)Ｈ C164 寫入 LED SETB DATE SETB CLK DJNZ R4,LOOP1 JMP RETURN SET0:CLR CLK 。為 0 則將 0 通過(guò)Ｈ C164 寫入 LED CLR 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 寫入 LED SETB DATE SETB CLK DJNZ R4,LOOP2 JMP RETURN2 SETO0: CLR CLK 。為 0 則將 0 通過(guò)Ｈ C164 寫入 LED CLR DATE SETB CLK DJNZ R4,LOOP2 RETURN2:POP ACC RET //////////I2C_WR///////////// I2C_WR: LCALL START 。調(diào)開始子程序 MOV A,0A0H ?？刂谱?， 2416 的物理地址和寫控制位 LCALL SENDI2C 。調(diào)向 2416 寫一字節(jié)并接收信號(hào)子程序 JB F0,I2C_WR 。若寫失敗，從頭開始 MOV A,00H 。選擇地址 LCALL SENDI2C JB F0,I2C_WR 。至此，地址寫完 MOV R0,60H MOV R7,16 II1: MOV A,@R0 。將 60h6FH 的內(nèi)容寫到 2416 中 山東科技大學(xué)課程設(shè)計(jì) 26 LCALL SENDI2C JB F0,I2C_WR INC R0 DJNZ R7,II1 LCALL STP 。調(diào)停止子程 LCALL LDELAY RET /////////////////////I2C_RD////////////////// I2C_RD: LCALL START MOV A,0A0H 。 控制 字， 2416 的 物理 地址 和寫 控制 位 LCALL SENDI2C 。調(diào)向 2416 寫一字節(jié)并接收信號(hào)子程序 JB F0,I2C_RD 。若寫失敗，從頭開始 MOV A,00H 。選擇地址 LCALL SENDI2C JB F0,I2C_RD 。至此，地址寫完 lcall START MOV A,0A1H 。控制字， 2416 的物理地址和讀操作位 LCALL SENDI2C JB F0,I2C_RD MOV R0,60H MOV R7,16 JJ3: LCALL LOADI2C 。調(diào)用從 2416 中讀 1 字節(jié)子程序 MOV @R0,A 。將從 2416 中讀出的內(nèi)容存儲(chǔ)到 60h6Fh 中 INC R0 DJNZ R7,JJ3 INC R0 SETB 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ì) 27 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,08H RCV: 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 則置 1 RCV0: RLC A 。接收數(shù)據(jù)位放入 ACC 中 NOP NOP DJNZ R5,RCV 。沒接受完繼續(xù) CLR SCL 。接受完置低發(fā)應(yīng)答或非應(yīng)答信號(hào) NOP NOP NOP 山東科技大學(xué)課程設(shè)計(jì) 28 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 SCL AR_LP1: NOP NOP NOP NOP NOP RLC A MOV SDA,C 。傳送 1 位數(shù)據(jù) NOP NOP SETB SCL 。接收數(shù)據(jù) NOP NOP NOP NOP NOP CLR SCL 。準(zhǔn)備接受下 1 位 DJNZ R5,AR_LP1 。8 位發(fā)送完 NOP NOP SETB SDA 。發(fā)送完，準(zhǔn)備接受應(yīng)答位 NOP NOP NOP SETB SCL 。開始接受應(yīng)答位 NOP NOP 山東科技大學(xué)課程設(shè)計(jì) 29 NOP NOP CLR F0 。預(yù)先清發(fā)送數(shù)據(jù)出錯(cuò)標(biāo)志 JNB SDA,ACKEND。判斷正常否？正常轉(zhuǎn) ACKEND SETB F0。未收到，置位錯(cuò)誤標(biāo)志 ACKEND:NOP CLR SCL 。準(zhǔn)備下一步操作 NOP NOP RET ///////////////////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)輸入 74H165 CLR 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ì) 30 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 QL6 GOON2:CLR SETB MOV A,P1 JB ,GOON3 JMP QL3 GOON3: CLR SETB MOV A,P1 JB ,GOON4 JMP QL2 GOON4: CLR SETB MOV A,P1