LCALL ICSTART ;I2C 數據讀入緩沖區

　　MOV R7，#0A0H ;R2R3 I2C地址

　　LCALL ICWRITEBYTE ;R0 緩沖區地址

　　LCALL ICREADACK ;R1 數據個數

　　JNC RACKEND

　　RET

　　;

　　RACKEND：

　　MOV A，R2

　　MOV R7，A

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　MOV A，R3

　　MOV R7，A

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　LCALL ICSTART

　　MOV R7，#0A1H

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　MOV R0，#LRDBUF

　　MOV R1，#208 ;144

　　READDATAS：

　　LCALL ICREADBYTE

　　LCALL ICACK

　　MOV @R0，A

　　INC R0

　　DJNZ R1，READDATAS

　　LCALL NOACK

　　LCALL ICSTOP

　　RET

　　;==========================================================

　　WRITEAT： ;緩沖區數據寫入 I2C

　　MOV A，R7 ;計算I2C地址

　　MOV B，#208 ;;144

　　MUL AB

　　MOV R2，B

　　MOV R3，A

　　MOV R5，#13 ;9 13*16=208

　　MOV R0，#LRDBUF

　　ICWRITENEXT：

　　LCALL ICSTART

　　MOV R7，#0A0H

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　JNC WACKEND

　　;

　　;

　　WACKEND：

　　MOV A，R2

　　MOV R7，A

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　MOV A，R3

　　MOV R7，A

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　MOV R1，#16

　　WRITEDATAS：

　　MOV A，@R0

　　INC R0

　　MOV R7，A

　　LCALL ICWRITEBYTE

　　LCALL ICREADACK

　　DJNZ R1，WRITEDATAS

　　LCALL ICSTOP

　　MOV R7，#250

　　DELAY_D：

　　MOV R6，#20

　　DJNZ R6，$

　　DJNZ R7，DELAY_D

　　MOV A，R3

　　ADD A，#16

　　MOV R3，A

　　MOV A，R2

　　ADDC A，#0

　　MOV R2，A

　　DJNZ R5，ICWRITENEXT

　　RET

　　;*****************************************************************

　　;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

　　LRDREAD：

　　;紅外代碼讀取

　　MOV R0，#LRDBUF ;代碼緩沖區清零

　　MOV R1，#208 ;144

　　CLR A

　　CLRLRDBUF：

　　MOV @R0，A

　　INC R0

　　DJNZ R1，CLRLRDBUF

　　MOV R0，#LRDBUF

　　SETB LRDR

　　LRDTEST：

　　SETB TR2

　　SETB ES ;紅外代碼起始檢測

　　JB RI，LLOOP ;這里是檢測有鍵按下時。。。。。。

　　CLR TR2

　　JNB LRDR，READSTART

　　JB HWXX，LRDTEST ;紅外學習標志位

　　LJMP LLLOOP

　　LLOOP： ;

　　CLR RI

　　MOV A，SBUF

　　MOV R0，#250

　　MOV R1，#250

　　LP4： JB RI，LP3

　　DJNZ R0，LP4

　　DJNZ R1，LP4

　　LJMP LRDTEST

　　LP3： CLR RI

　　CLR ES

　　MOV A，SBUF

　　MOV A，#00H

　　LP2：

　　CLR HONGWAI ;紅外按鈕標志位

　　CLR P3.3

　　CLR HWXX

　　MOV SBUF，#37H

　　JNB TI，$

　　CLR TI

　　DEC SP

　　DEC SP

　　LJMP LOOP

　　LLLOOP： RET

　　;--------------------------------------

　　READSTART：

　　CLR EA

　　;SETB P0.6

　　MOV TH1，#0

　　MOV TL1，#12

　　SETB LRDR

　　;--------------------------------------

　　READLOOP_S：

　　SETB TR1

　　CLR TF1

　　TEST_LRDR：

　　MOV A，TH1

　　JB TF1，LRDOVER

　　JNB LRDR，TEST_LRDR

　　CLR TR1 ;