【正文】 nop。 clr en。 call delay。 ret。寫指令write_instruction: CLR rs。 CLR rw。 clr en。 setb en。 nop。 nop。 clr en。 call delay。 ret。*********************************************************************名稱: IWRN_BYTE描述: 向器件指定子地址寫N個(gè)數(shù)據(jù)入口參數(shù): 器件地址字 SLA,子地址 SUBA,發(fā)送數(shù)據(jù)緩沖區(qū) MTD,發(fā)送字節(jié)數(shù)NUM_BYTE*********************************************************************IWRN_BYTE: MOV R3,NUM_BYTE LCALL START 。啟動(dòng)總線 MOV A,SLA LCALL WR_BYTE 。發(fā)送器件地址字 LCALL CACK JNB ACK,RET_WRN 。無應(yīng)答則退出 MOV A,SUBA 。指定子地址 LCALL WR_BYTE LCALL CACK MOV R1,MTDWR_DA: MOV A,@R1 LCALL WR_BYTE 。開始寫入數(shù)據(jù) LCALL CACK JNB ACK,IWRN_BYTE INC R1 DJNZ R3,WRDA 。判斷是否寫完RET_WRN:LCALL STOP RET*********************************************************************名稱: IRDN_BYTE描述: 從器件指定子地址讀取N個(gè)數(shù)據(jù)入口參數(shù): 器件地址字 SLA,子地址 SUBA,接收數(shù)據(jù)緩存區(qū) MRD,接收字節(jié)數(shù)NUM_BYTE*********************************************************************IRDN_BYTE: MOV R3,NUM_BYTE LCALL START MOV A,SLA LCALL WR_BYTE 。發(fā)送器件地址字 LCALL CACK JNB ACK,RET_RDN MOV A,SUBA 。指定子地址 LCALL WR_BYTE LCALL CACK LCALL START 。重新啟動(dòng)總線 MOV A,SLA INC A 。準(zhǔn)備進(jìn)行讀操作 LCALL WR_BYTE LCALL CACK JNB ACK,IRDN_BYTE MOV R1,MRDRON1: LCALL RD_BYTE 。讀操作開始 MOV @R1,A DJNZ R3,SACK LCALL MNACK 。最后一字節(jié)發(fā)非應(yīng)答位RET_RDN:LCALL STOP RETSACK: LCALL MACK INC R1 SJMP RON1 *********************************************************************名稱: START描述: 啟動(dòng)I2C總線子程序—發(fā)送I2C總線起始條件*********************************************************************START:SETB SDA 。發(fā)送起始條件數(shù)據(jù)信號(hào) NOP 。 SETB SCL 。發(fā)送起始條件的時(shí)鐘信號(hào) NOP NOP NOP NOP NOP 。 CLR SDA 。發(fā)送起始信號(hào) NOP NOP NOP NOP 。 CLR SCL 。鉗住I2C總線,準(zhǔn)備發(fā)送或接收數(shù)據(jù) NOP RET*********************************************************************名稱: STOP描述: 停止I2C總線子程序—發(fā)送I2C總線停止條件*********************************************************************STOP: CLR SDA 。發(fā)送停止條件的數(shù)據(jù)信號(hào) NOP NOP SETB SCL 。發(fā)送停止條件的時(shí)鐘信號(hào) NOP NOP NOP NOP NOP 。 SETB SDA 。發(fā)送I2C總線停止信號(hào) NOP NOP NOP NOP NOP 。 RET*********************************************************************名稱: MACK描述: 發(fā)送應(yīng)答信號(hào)子程序*********************************************************************MACK: CLR SDA 。將SDA置0 NOP NOP SETB SCL NOP NOP NOP NOP NOP 。保持?jǐn)?shù)據(jù)時(shí)間, CLR SCL NOP NOP RET*********************************************************************名稱: MNACK描述: 發(fā)送非應(yīng)答信號(hào)子程序*********************************************************************MNACK:SETB SDA 。將SDA置1 NOP NOP SETB SCL NOP NOP NOP NOP NOP CLR SCL 。保持?jǐn)?shù)據(jù)時(shí)間, NOP NOP RET*********************************************************************名稱: CACK描述: 檢查應(yīng)答位子程序,返回值:ACK=1時(shí)表示有應(yīng)答*********************************************************************CACK: SETB SDA NOP NOP SETB SCL CLR ACK NOP NOP MOV C,SDA JC CEND SETB ACK 。判斷應(yīng)答位CEND: NOP CLR SCL NOP RET*********************************************************************名稱: WR_BYTE描述: 發(fā)送字節(jié)子程序,字節(jié)數(shù)據(jù)放入ACC*********************************************************************WR_BYTE: MOV R0,08HWLP: RLC A 。取數(shù)據(jù)位 JC WRI SJMP WRO 。判斷數(shù)據(jù)位WLP1: DJNZ R0,WLP NOP RETWRI: SETB SDA 。發(fā)送1 NOP SETB SCL NOP NOP NOP NOP NOP CLR SCL SJMP WLP1WRO: CLR SDA 。發(fā)送0 NOP SETB SCL NOP NOP NOP NOP NOP CLR SCL SJMP WLP1*********************************************************************名稱: RD_BYTE描述: 讀取字節(jié)子程序,讀出的數(shù)據(jù)存放在ACC*********************************************************************RD_BYTE: MOV R0,05HRLP: SETB SDA NOP SETB SCL 。時(shí)鐘線為高,接收數(shù)據(jù)位 NOP NOP MOV C,SDA 。讀取數(shù)據(jù)位 MOV A,R2 CLR SCL 。將SCL拉低, RLC A 。進(jìn)行數(shù)據(jù)位的處理 MOV R2,A NOP NOP NOP DJNZ R0,RLP 。未夠5位,繼續(xù)讀入 RET****************************************************: MOV 34h,39。139。 MOV 35h,39。239。 MOV 36h,39。339。 MOV 37h,39。439。 MOV 38h,39。539。 RET 。存放初始密碼 延時(shí)程序delay1_5s: push 07h。 push 02h。 push 03h。 MOV r7,15。del22s: MOV r3,0。del11s: MOV r2,0。 djnz r2,$。 djnz r3,del11s。 djnz r7,del22s。 pop 03h。 pop 02h。 pop 07h。 ret。delay0_1s: push 02h。 push 03h。 MOV r3,0。del21s: MOV r2,0。 nop。 nop。 djnz r2,$。 djnz r3,del21s。 pop 03h。 pop 02h。 ret。delay: push 07h。 push 06h。 MOV r7,10。d1: MOV r6,248。 nop nop djnz r6,$。 djnz r7,d1。 pop 06h。 pop 07h。 rettable0: db 39。C39。,39。B39。,39。039。,39。A39。 db 39。D39。,39。939。,39。839。,39。739。 db 39。E39。,39。639。,39。539。,39。439。 db 39。F39。,39。339。,39。239。,39。139。table1: db 39。PASSWORD: A SET 39。table11: db 39。 B OPEN39。table2: db 39。C: 39。table3: db 39。ERROR! 39。table4: db 39。 OK39。 end