【文章內(nèi)容簡介】 T DATA 021H SLA DATA 070H SUBA DATA 00H ACK BIT 00H 。 I/O 定義 KEY BIT CS BIT CLK BIT DAT BIT SCL BIT SDA BIT MTD EQU 04AH MRD EQU 058H MRD1 EQU 063H ORG 0000H AJMP START 20 ORG 0003H 。外部中斷 0 中斷服務(wù)子程序入口地址 AJMP INTL ORG 0013H 。外部中斷 1 中斷服務(wù)子程序入口地址 AJMP INTY ORG 0100H START: MOV SP,30H MOV P1,11110011B 。initial I/O MOV SLA,0A0H 。FM24C16 器件從地址 MOV SUBA,00H 。器件子地址 CLR MOV TMOD,20H 。串行口初始化 MOV TH1,0FDH MOV TL1,0FDH MOV PCON,00H MOV SCON,40H SETB TR1 SETB IT0 。INT0 為 1,邊沿觸發(fā)方式 SETB IT1 。INT1 為 1,邊沿觸發(fā)方式 SETB EX0 SETB EX1 SETB PX1 。INT1 為高優(yōu)先級 SETB EA 。開總中斷 MAIN: … AJMP MAIN 。主程序 INTL: … RETI 。外部中斷 0 中斷服務(wù)子程序 INTY: … RETI 。外部中斷 1 中斷服務(wù)子程序 END 2. HD7279 鍵盤顯示子程序 INTL: MOV DOUT,15H 。讀鍵盤指令 ACALL SEND ACALL RECV 。讀鍵盤數(shù)據(jù) SETB CS 21 MOV A,DIN MOV B,10 。HEX change BCD code DIV AB MOV DOUT,10100001B ACALL SEND MOV DOUT,11001000B ACALL SEND MOV DOUT,B 。send 個位 to HD7279A ACALL SEND SETB CS RETI SEND: MOV BCOUNT,8 。set bit counter=8 CLR CS 。CS for lv ACALL LDELAY 。long delay SLOOP: MOV C, 。output 1 bit MOV DAT,C SETB CLK 。set CLK for hv MOV A,DOUT 。the data that will send left move RL A MOV DOUT,A ACALL SDELAY 。short delay CLR CLK 。set CLK for lv ACALL SDELAY DJNZ BCOUNT,SLOOP 。check 8 bit send over or else CLR DAT 。send over, return RET RECV: MOV BCOUNT,8 SETB DAT 。set (DATA) hv(input state) ACALL LDELAY RLOOP: SETB CLK ACALL SDELAY MOV A,DIN RL A MOV DIN,A MOV C,DAT MOV ,C 22 CLR CLK ACALL SDELAY DJNZ BCOUNT,RLOOP RET LDELAY: MOV TIMER,25 。delay 50uS DELOOP: DJNZ TIMER,DELOOP RET SDELAY: MOV TIMER,4 。delay 8uS SHOTLOP:DJNZ TIMER,SHOTLOP RET 3. FM24C16 讀寫子程序 START: SETB SDA NOP SETB SCL 。起始條件建立時間大于 ACALL DELAY CLR SDA ACALL DELAY CLR SCL 。鉗住總線，準(zhǔn)備發(fā)數(shù) 據(jù) NOP RET STOP: CLR SDA NOP SETB SCL 。發(fā)送結(jié)束條件的時鐘信號 ACALL DELAY SETB SDA 。結(jié)束總線 ACALL DELAY RET MACK: CLR SDA 。將 SDA 置 0 NOP NOP SETB SCL ACALL DELAY CLR SCL NOP 23 NOP RET MNACK: SETB SDA 。將 SDA 置 1 NOP NOP SETB SCL ACALL DELAY CLR SCL NOP NOP RET 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 WRBYTE: MOV R0,08H WLP: RLC A 。取數(shù)據(jù)位 JC WR1 SJMP WR0 。判斷數(shù)據(jù)位 WLP1: DJNZ R0,WLP NOP RET WR1: SETB SDA 。發(fā)送 1 NOP SETB SCL ACALL DELAY 24 CLR SCL SJMP WLP1 WR0: CLR SDA 。發(fā)送 0 NOP SETB SCL ACALL DELAY CLR SCL SJMP WLP1 RDBYTE: MOV R0,08H RLP: SETB SDA NOP SETB SCL 。時鐘線為高，接收數(shù)據(jù)位 NOP NOP MOV C,SDA 。讀取數(shù)據(jù)位 MOV A,R2 CLR SCL 。將 SCL 拉低，時間大于 RLC A 。進行數(shù)據(jù)位的處理 MOV R2,A NOP NOP NOP DJNZ R0,RLP 。未夠 8 位，再來一次 RET IWRNBYTE: MOV A,11 MOV R3,A LCALL START 。起動總線 MOV A,SLA LCALL WRBYTE 。發(fā)送器件從地址 LCALL CACK JNB ACK,RETWRN 。無應(yīng)答則退出 MOV A,SUBA 。指定子地址 LCALL WRBYTE LCALL CACK MOV R1,MTD WRDA: MOV A,@R1 25 LCALL WRBYTE 。開始寫入數(shù)據(jù) LCALL CACK JNB ACK,IWRNBYTE INC R1 DJNZ R3,WRDA 。判斷寫完沒有 RETWRN: LCALL STOP RET IRDNBYTE: MOV R3,11 LCALL START MOV A,SLA LCALL WRBYTE 。發(fā)送器件從地址 LCALL CACK JNB ACK,RETRDN MOV A,SUBA 。指定子地址 LCALL WRBYTE LCALL CACK LCALL START 。重新起 動總線 MOV A,SLA INC A 。準(zhǔn)備進行讀 *作 LCALL WRBYTE LCALL CACK JNB ACK,IRDNBYTE MOV R1,MRD RDN1: LCALL RDBYTE 。讀 *作開始 MOV @R1,A DJNZ R3,SACK LCALL MNACK 。最后一字節(jié)發(fā)非應(yīng)答位 RETRDN: LCALL STOP 。并結(jié)束總線 RET SACK: LCALL MACK INC R1 SJMP RDN1 DELAY: NOP NOP NOP NOP 26 NOP RET 4. DS12887 應(yīng)用子程序 DS12887