DeviceaddressW EQU 4AH ;7113器件地址+写
DeviceaddressR EQU 4BH ;7113器件地址+读
Subaddress EQU 4DH ;7113寄存器地址字节在单片机中的存放地址
DATA_I2C EQU 50H ;设置写入或读出数据在单片机中的存放地址
;*************启动**************
I2C_START: SETB SDA
NOP
SETB SCL
NOP
CLR SDA
NOP
CLR SCL
RET
;***************停止**************
I2C_STOP: CLR SDA
NOP
SETB SCL
NOP
SETB SDA
NOP
RET
;************送应答位************
SEND_ACK: CLR SCL
NOP
CLR SDA
NOP
SETB SCL
NOP
NOP
CLR SCL
NOP
SETB SDA
RET
;***********送非应答位***********
SEND_NOACK: SETB SDA
NOP
SETB SCL
NOP
NOP
CLR SCL
NOP
RET
;***********检查应答位************
CHECK_ACK: NOP
CLR SCL
NOP
SETB SDA
NOP
SETB SCL
NOP
NOP
MOV C, SDA
MOV I2C_ERROR, C
CLR SCL
NOP
RET
;*******发送1字节数据,待送数据在A中******
I2C_SEND_1BYTE:
MOV R0, #8
SEND100: RLC A
MOV SDA, C
NOP
SETB SCL
NOP
NOP
CLR SCL
DJNZ R0, SEND100
RET
;*******接收1字节数据,接收数据放在A中*****
I2C_RECEIVE_1BYTE:
MOV R0, #8
RECV100: SETB SDA
NOP
SETB SCL
NOP
NOP
NOP
MOV C, SDA