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

　　

【正文】 JMP AD62 AD61:INC @R1 LJMP EX6 AD62:MOV @R1,00H INC R1 。6BH INC @R1 EX6:RET ///////////////////////用戶 7 計數 ///////////////// 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 計數 ////////////////////////// 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 ////////除十顯示余數子程序 //////// XSYUSHU: MOV B,10 DIV AB PUSH ACC MOV A,B LCALL XS 。調 用顯示子程序 POP ACC RET ///////////顯示子程序 /////////// XS:PUSH ACC MOVC A,@A+DPTR 。查詢段碼 MOV R4,8 LOOP1: RRC A 。A 中八位循環(huán)移入 Cy 位 JC SET1 山東科技大學課程設計 25 JMP SET0 SET1: CLR CLK 。為 1 則將 1 通過Ｈ C164 寫入 LED SETB DATE SETB CLK DJNZ R4,LOOP1 JMP RETURN SET0:CLR CLK 。為 0 則將 0 通過Ｈ C164 寫入 LED CLR 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 寫入 LED SETB DATE SETB CLK DJNZ R4,LOOP2 JMP RETURN2 SETO0: CLR CLK 。為 0 則將 0 通過Ｈ C164 寫入 LED CLR 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 SENDI2C JB F0,I2C_WR 。至此，地址寫完 MOV R0,60H MOV R7,16 II1: MOV A,@R0 。將 60h6FH 的內容寫到 2416 中 山東科技大學課程設計 26 LCALL SENDI2C JB F0,I2C_WR INC R0 DJNZ R7,II1 LCALL STP 。調停止子程 LCALL LDELAY RET /////////////////////I2C_RD////////////////// I2C_RD: LCALL START MOV A,0A0H 。 控制 字， 2416 的 物理 地址 和寫 控制 位 LCALL SENDI2C 。調向 2416 寫一字節(jié)并接收信號子程序 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 。調用從 2416 中讀 1 字節(jié)子程序 MOV @R0,A 。將從 2416 中讀出的內容存儲到 60h6Fh 中 INC R0 DJNZ R7,JJ3 INC R0 SETB 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 山東科技大學課程設計 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 。置數據線為輸入方式 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 則置 1 RCV0: RLC A 。接收數據位放入 ACC 中 NOP NOP DJNZ R5,RCV 。沒接受完繼續(xù) CLR SCL 。接受完置低發(fā)應答或非應答信號 NOP NOP NOP 山東科技大學課程設計 28 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 SCL AR_LP1: NOP NOP NOP NOP NOP RLC A MOV SDA,C 。傳送 1 位數據 NOP NOP SETB SCL 。接收數據 NOP NOP NOP NOP NOP CLR SCL 。準備接受下 1 位 DJNZ R5,AR_LP1 。8 位發(fā)送完 NOP NOP SETB SDA 。發(fā)送完，準備接受應答位 NOP NOP NOP SETB SCL 。開始接受應答位 NOP NOP 山東科技大學課程設計 29 NOP NOP CLR F0 。預先清發(fā)送數據出錯標志 JNB SDA,ACKEND。判斷正常否？正常轉 ACKEND SETB F0。未收到，置位錯誤標志 ACKEND:NOP CLR SCL 。準備下一步操作 NOP NOP RET ///////////////////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)輸入 74H165 CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR CLR SETB PUSH ACC 。A 入棧保護 MOV A,P1 。P1 口數據存入 A 中 山東科技大學課程設計 30 JB ,GOON1 。判斷第四位狀態(tài) ,1 則跳轉 ,0 則清零相應位 JMP QL7 。跳至 QL7 清除相應位 GOON1:CLR 。 口給 74HC165 CLK 信號 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