i2c.c

编译环境：CodeWorride 5.0 使用软件模拟IIC

/******************************************************************************
	I2C.C
	标准80C51模拟I2C总线程序（主模式）
	Copyright (c) 2007，广州周立功单片机发展有限公司
	All rights reserved.
	本程序仅供学习参考，不提供任何可靠性方面的担保；请勿用于商业目的
******************************************************************************/


#include "HEAD.H"


#if 0
static void i2c_delay(void)
{
asm nop; asm nop;
asm nop; asm nop;
}
static void i2c_start(void)
{
SDA = 0;
i2c_delay();
}
static void i2c_restart(void)
{
SCK = 0;
SDA = 1;
i2c_delay();
SCK = 1;
i2c_delay();
SDA = 0;
i2c_delay();
}
static void i2c_stop(void)
{
SCK = 0;
SDA = 0;
i2c_delay();
SCK = 1;
i2c_delay();
SDA = 1;
i2c_delay();
}
static void i2c_outb(unsigned char c)
{
unsigned char i;
for (i = 0; i < 8; i++) {
  SCK = 0;
  SDA = (c & 0x80);
  i2c_delay();
  SCK = 1;
  i2c_delay();
  c <<= 1;
}
}
static unsigned char i2c_inb(void)
{
unsigned char i,c = 0;
for (i = 0; i < 8; i++) {
  c <<= 1;
  SCK = 0;
  SDA = 1;
  i2c_delay();
  SCK = 1;
  i2c_delay();
  if (SDA)
   c |= 1;
}
return c;
}
static bit wait_for_pin(void)
{
unsigned char loops = 255;
SCK = 0;
SDA = 1;
i2c_delay();
SCK = 1;
while (SDA && --loops)
  _nop_();
return !SDA;
}
static void do_ack(void)
{
SCK = 0;
SDA = 0;
i2c_delay();
SCK = 1;
i2c_delay();
}
static bit i2c_send(const unsigned char data *buf, unsigned char count)
{
while (count) {
  i2c_outb(*buf);
  if (!wait_for_pin()) {
   return 0;
  }
  buf++;
  count--;
}
return 1;
}
static bit i2c_recv(unsigned char data *buf, count)
{
if (count == 0)
  return 1;
for (;;) {
  *buf = i2c_inb();
  buf++;
  count--;
  if (count == 0)
   break;
  do_ack();
}
return 1;
}

#endif

/******************************************************************************



******************************************************************************/
void SetDirection(byte IIC,byte det)
{
    if(IIC)
    PTADD_PTADD2 = det;
    else 
    PTADD_PTADD3 = det;
    
}

/******************************************************************************
函数：I2C_Delay()
功能：模拟I2C总线延时
说明：请根据具体情况调整延时值
******************************************************************************/
void I2C_Delay()
{
	byte t;
	t = 10;
	while ( --t != 0 );		//延时2*t个机器周期
}


/******************************************************************************
函数：I2C_Init()
功能：I2C总线初始化，使总线处于空闲状态
说明：在main()函数的开始处，应当执行一次本函数
******************************************************************************/
void I2C_Init() 
{
    SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
    
    PTAPE_PTAPE2 = 1;            //内部电阻上拉
    PTAPE_PTAPE3 = 1;
    
	I2C_SCL = 1;	I2C_Delay();
	I2C_SDA = 1;	I2C_Delay(); 
}
	  

/******************************************************************************
函数：I2C_Start()
功能：产生I2C总线的起始条件
说明：
	SCL处于高电平期间，当SDA出现下降沿时启动I2C总线
	本函数也用来产生重复起始条件
******************************************************************************/
void I2C_Start()
{
    SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
	I2C_SDA = 1;	I2C_Delay();
	I2C_SCL = 1;	I2C_Delay();
	I2C_SDA = 0;	I2C_Delay();
	I2C_SCL = 0;	I2C_Delay();
}


/******************************************************************************
函数：I2C_Write()
功能：向I2C总线写1个字节的数据
参数：dat是要写到总线上的数据
******************************************************************************/
void I2C_Write(byte dat)
{ 
	byte n=8;     // 向SDA上发送一位数据字节，共八位
	
	SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
    
	while(n--)
	{ 
		if((dat&0x80) == 0x80)    // 若要发送的数据最高位为1则发送位1
		{
			I2C_SDA = 1;    // 传送位1
			I2C_SCL = 1;
			I2C_Delay();
		    I2C_SCL = 0;
		    I2C_SDA = 0;    
		}
		else
		{  
			I2C_SDA = 0;    // 否则传送位0
			I2C_SCL = 1;
			I2C_Delay();
			I2C_SCL = 0;  
		}
		dat = dat<<1;    // 数据左移一位
	}
}


/******************************************************************************
函数：I2C_Read()
功能：从从机读取1个字节的数据
返回：读取的1个字节数据
******************************************************************************/
byte I2C_Read()
{

	byte n=8;    // 从SDA线上读取一上数据字节，共八位
	byte tdata;
	
	SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
    
	while(n--)
	{
		I2C_SDA = 1;
		I2C_SCL = 1;
		tdata = tdata<<1;    // 左移一位，或_crol_(temp,1)
		SetDirection(DIR_SDA,FLAG_DIRECTION_INPUT);
		if(I2C_SDA == 1)
			tdata = tdata|0x01;    // 若接收到的位为1，则数据的最后一位置1
		else 
			tdata = tdata&0xfe;    // 否则数据的最后一位置0
	    I2C_SCL=0;
	}
	return(tdata); 
}


/******************************************************************************
函数：I2C_GetAck()
功能：读取从机应答位（应答或非应答），用于判断：从机是否成功接收主机数据
返回：
	0：从机应答
	1：从机非应答
说明：从机在收到每一个字节后都要产生应答位，主机如果收到非应答则应当终止传输
******************************************************************************/
byte I2C_GetAck()
{
	byte ack;
	
	SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
	I2C_SDA = 1;	I2C_Delay();
	I2C_SCL = 1;	I2C_Delay();
	
	SetDirection(DIR_SDA,FLAG_DIRECTION_INPUT);
	
	ack = I2C_SDA;
	I2C_SCL = 0;	I2C_Delay();
	return ack;
}


/******************************************************************************
函数：I2C_PutAck()
功能：主机产生应答位（应答或非应答），用于通知从机：主机是否成功接收从机数据
参数：
	ack=0：主机应答
	ack=1：主机非应答
说明：主机在收到每一个字节后都要产生应答，在收到最后一个字节后，应当产生非应答
******************************************************************************/
void I2C_PutAck(byte ack)
{
	SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
	
	I2C_SDA = ack;	I2C_Delay();
	I2C_SCL = 0;    I2C_Delay();
	I2C_SCL = 1;	I2C_Delay();
	I2C_SCL = 0;	I2C_Delay();
	
}


/******************************************************************************
函数：I2C_Stop()
功能：产生I2C总线的停止条件
说明：SCL处于高电平期间，当SDA出现上升沿时停止I2C总线
******************************************************************************/
void I2C_Stop()
{
	word t;
	
	SetDirection(DIR_SCL,FLAG_DIRECTION_OUTPUT);
    SetDirection(DIR_SDA,FLAG_DIRECTION_OUTPUT);
	
	I2C_SDA = 0;
	I2C_Delay();
	I2C_SCL = 1;
	I2C_Delay();
	I2C_SDA = 1;
	I2C_Delay();
//对于某些器件来说，在下一次产生Start之前，额外增加一定的延时是必须的
	t = 700;
	while ( --t != 0 ) asm nop;
}


/******************************************************************************
函数：I2C_Puts()
功能：主机通过I2C总线向从机发送多个字节的数据
参数：
	SlaveAddr：从机地址（高7位是从机地址，最低位是读写标志）
	SubAddr：从机的子地址
	size：数据大小（以字节计）
	*dat：要发送的数据
返回：
	0：发送成功
	1：在发送过程中出现异常
******************************************************************************/
byte I2C_Puts(
				        byte SlaveAddr,
			         	byte SubAddr,
			        	byte *dat,
			        	byte size
		        	)
{
//确保从机地址最低位是0
	SlaveAddr &= 0xFE;
//启动I2C总线
	I2C_Start();
//发送从机地址
	I2C_Write(SlaveAddr);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}
//发送子地址
	I2C_Write(SubAddr);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}

//发送数据
	do
	{
		I2C_Write(*dat++);
		if ( I2C_GetAck() )
		{
			I2C_Stop();
			return 1;
		}
	} while ( --size != 0 );
//发送完毕，停止I2C总线，返回
	I2C_Stop();
	return 0;
}


/******************************************************************************
函数：I2C_Gets()
功能：主机通过I2C总线从从机接收多个字节的数据
参数：
	SlaveAddr：从机地址（高7位是从机地址，最低位是读写标志）
	SubAddr：从机的子地址
	size：数据大小（以字节计）
	*dat：保存接收到的数据
返回：
	0：接收成功
	1：在接收过程中出现异常
******************************************************************************/
byte I2C_Gets(
				        byte SlaveAddr,
			         	byte SubAddr,
			        	byte *dat,
			        	byte size
		        	)
{
//确保从机地址最低位是0
	SlaveAddr &= 0xFE;
//启动I2C总线
	I2C_Start();
//发送从机地址
	I2C_Write(SlaveAddr);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}
//发送子地址

	I2C_Write(SubAddr);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}

//发送重复起始条件
	I2C_Start();
//发送从机地址
	SlaveAddr |= 0x01;
	I2C_Write(SlaveAddr);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}
//接收数据
	for (;;)
	{
		*dat = I2C_Read();
		if ( --size == 0 )
		{
			I2C_PutAck(1);
			break;
		}
		dat++;
		I2C_PutAck(0);
	}
//接收完毕，停止I2C总线，返回
	I2C_Stop();
	return 0;
}