i2c.inc

对于没有i2c接口的单片机来说

;
;
;
;模拟I2C总线可以用于8051单片机
;
;
;
;
;

;******************************************************************************
;模拟I2C总线的管脚定义
;******************************************************************************
I2C_SCL		BIT	P2.6	;定义I2C总线时钟信号
I2C_SDA		BIT	P2.7	;定义I2C总线数据信号


;******************************************************************************
;函数：void I2C_Delay()
;功能：模拟I2C总线延时
;说明：请根据具体情况调整延时值
;******************************************************************************
I2C_Delay:
	PUSH	0x02
	MOV	R2, #10
	DJNZ	R2, $
	POP	0x02
	RET


;******************************************************************************
;函数：void I2C_Init()
;功能：I2C总线初始化，使总线处于空闲状态
;说明：在主程序的开始处，应当执行一次本函数
;******************************************************************************
I2C_Init:
	SETB	I2C_SCL
	CALL	I2C_Delay
	SETB	I2C_SDA
	CALL	I2C_Delay
	RET


;******************************************************************************
;函数：void I2C_Start()
;功能：产生I2C总线的起始条件
;说明：
;	SCL处于高电平期间，当SDA出现下降沿时启动I2C总线
;	本函数也用来产生重复起始条件
;******************************************************************************
I2C_Start:
	SETB	I2C_SDA
	CALL	I2C_Delay
	SETB	I2C_SCL
	CALL	I2C_Delay
	CLR	I2C_SDA
	CALL	I2C_Delay
	CLR	I2C_SCL
	CALL	I2C_Delay
	RET


;******************************************************************************
;函数：void I2C_Write(byte dat)
;功能：向I2C总线写1个字节的数据
;参数：dat(R7)是要写到总线上的数据
;******************************************************************************
I2C_Write:
	PUSH	0x02
	MOV	R2, #8
	MOV	A, R7
I2C_Write_Loop:
	MOV	C, ACC.7
	MOV	I2C_SDA, C
	ADD	A, ACC
	SETB	I2C_SCL
	CALL	I2C_Delay
	CLR	I2C_SCL
	CALL	I2C_Delay
	DJNZ	R2, I2C_Write_Loop
	POP	0x02
	RET


;******************************************************************************
;函数：byte I2C_Read()
;功能：从从机读取1个字节的数据
;返回：ACC = 读取的1个字节数据
;******************************************************************************
I2C_Read:
	PUSH	0x02
	MOV	R2, #8
	SETB	I2C_SDA		;在读取数据之前，要把SDA拉高，使之处于输入状态
I2C_Read_Loop:
	SETB	I2C_SCL
	CALL	I2C_Delay
	ADD	A, ACC
	JNB	I2C_SDA, I2C_Read_Next
	INC	A
I2C_Read_Next:
	CLR	I2C_SCL
	CALL	I2C_Delay
	DJNZ	R2, I2C_Read_Loop
	POP	0x02
	RET


;******************************************************************************
;函数：bit I2C_GetAck()
;功能：读取从机应答位（应答或非应答），用于判断：从机是否成功接收主机数据
;返回：
;	CY = 0：从机应答
;	CY = 1：从机非应答
;说明：从机在收到每一个字节后都要产生应答位，主机如果收到非应答则应当终止传输
;******************************************************************************
I2C_GetAck:
	SETB	I2C_SDA
	CALL	I2C_Delay
	SETB	I2C_SCL
	CALL	I2C_Delay
	MOV	C, I2C_SDA
	CLR	I2C_SCL
	CALL	I2C_Delay
	RET


;******************************************************************************
;函数：void I2C_PutAck(bit ack)
;功能：主机产生应答位（应答或非应答），用于通知从机：主机是否成功接收从机数据
;参数：
;	ack(CY) = 0：主机应答
;	ack(CY) = 1：主机非应答
;说明：主机在收到每一个字节后都要产生应答，在收到最后一个字节后，应当产生非应答
;******************************************************************************
I2C_PutAck:
	MOV	I2C_SDA, C
	CALL	I2C_Delay
	SETB	I2C_SCL
	CALL	I2C_Delay
	CLR	I2C_SCL
	CALL	I2C_Delay
	RET


;******************************************************************************
;函数：void I2C_Stop()
;功能：产生I2C总线的停止条件
;说明：SCL处于高电平期间，当SDA出现上升沿时停止I2C总线
;******************************************************************************
I2C_Stop:
	CLR	I2C_SDA
	CALL	I2C_Delay
	SETB	I2C_SCL
	CALL	I2C_Delay
	SETB	I2C_SDA
	CALL	I2C_Delay
;延时程序段（对于某些器件来说在下一次产生Start之前额外增加一定的延时是必须的）
	PUSH	0x00
	MOV	R0, #15
I2C_Stop_Loop:
	NOP
	NOP
	DJNZ	R0, I2C_Stop_Loop
	POP	0x00
;返回
	RET


;******************************************************************************
;函数：I2C_Puts(byte SlaveAddr, byte SubAddr, byte size, byte *dat)
;功能：主机通过I2C总线向从机发送多个字节的数据
;参数：
;	SlaveAddr(R7)：从机地址（高7位是从机地址，最低位是读写标志）
;	SubAddr(R6)：从机的子地址
;	size(R5)：数据大小（以字节计）
;	*dat(R4)：要发送的数据
;返回：
;	CY = 0：发送成功
;	CY = 1：在发送过程中出现异常
;******************************************************************************
I2C_Puts:
;确保从机地址最低位是0
	ANL	0x07, #0xFE
;启动I2C总线
	CALL	I2C_Start
;发送从机地址并判断应答位
	CALL	I2C_Write
	CALL	I2C_GetAck
	JNC	I2C_Puts_LB1
	CALL	I2C_Stop
	SETB	C
	RET
I2C_Puts_LB1:
;发送子地址并判断应答位
	MOV	A, R6
	MOV	R7, A
	CALL	I2C_Write
	CALL	I2C_GetAck
	JNC	I2C_Puts_LB2
	CALL	I2C_Stop
	SETB	C
	RET
I2C_Puts_LB2:
;发送数据（每发送一个字节都要判断一次应答位）
	PUSH	0x00
	MOV	A, R4
	MOV	R0, A
I2C_Puts_Loop:
	MOV	A, @R0
	INC	R0
	MOV	R7, A
	CALL	I2C_Write
	CALL	I2C_GetAck
	JNC	I2C_Puts_LB3
	CALL	I2C_Stop
	SETB	C
	POP	0x00
	RET
I2C_Puts_LB3:
	DJNZ	R5, I2C_Puts_Loop
	POP	0x00
;发送完毕，停止I2C总线，返回
	CALL	I2C_Stop
	CLR	C
	RET


;******************************************************************************
;函数：I2C_Gets(byte SlaveAddr, byte SubAddr, byte size, byte *dat)
;功能：主机通过I2C总线从从机接收多个字节的数据
;参数：
;	SlaveAddr(R7)：从机地址（高7位是从机地址，最低位是读写标志）
;	SubAddr(R6)：从机的子地址
;	size(R5)：数据大小（以字节计）
;	*dat(R4)：保存接收到的数据
;返回：
;	CY = 0：接收成功
;	CY = 1：在接收过程中出现异常
;******************************************************************************
I2C_Gets:
;确保从机地址最低位是0
	ANL	0x07, #0xFE
;启动I2C总线
	CALL	I2C_Start
;发送从机地址并判断应答位
	CALL	I2C_Write
	CALL	I2C_GetAck
	JNC	I2C_Gets_LB1
	CALL	I2C_Stop
	SETB	C
	RET
I2C_Gets_LB1:
;发送子地址并判断应答位
	PUSH	0x07
	MOV	A, R6
	MOV	R7, A
	CALL	I2C_Write
	POP	0x07
	CALL	I2C_GetAck
	JNC	I2C_Gets_LB2
	CALL	I2C_Stop
	SETB	C
	RET
I2C_Gets_LB2:
;发送重复起始条件
	CALL	I2C_Start
;发送从机地址并判断应答位
	INC	R7		;从机地址(R7)的读写位置1，即准备读数据
	CALL	I2C_Write
	CALL	I2C_GetAck
	JNC	I2C_Gets_LB3
	CALL	I2C_Stop
	SETB	C
	RET
I2C_Gets_LB3:
;接收数据
	PUSH	0x00
	MOV	A, R4
	MOV	R0, A
I2C_Gets_Loop:
	CALL	I2C_Read
	MOV	@R0, A
	INC	R0
	DJNZ	R5, I2C_Gets_LB4
	SETB	C
	CALL	I2C_PutAck
	SJMP	I2C_Gets_EndLoop
I2C_Gets_LB4:
	CLR	C
	CALL	I2C_PutAck
	SJMP	I2C_Gets_Loop
I2C_Gets_EndLoop:
;接收完毕，停止I2C总线，返回
	CALL	I2C_Stop
	CLR	C
	POP	0x00
	RET