合泰单片机iic例程

本程序是基于合泰单片机的 ，如果需要移植于其他单片机只需稍微修改即可
模拟IIC（I2C）时序，C语言程序

#include "ht46R65.h"
#define SDA _pa0 //数据线
#define SCL _pa1 //时钟线
#define SDAC _pac0 //数据线控制端
#define SCLC _pac1 //时钟线控制端
#define SDAIn() SDAC=1 //输入
#define SCLIn() SCLC=1
#define SDAOut() SDAC=0 //输出
#define SCLOut() SCLC=0
#define Nop() _delay(1) //一个指令周期（1uS )
#define uint8 unsigned char
uint8 ack; //应答


void StartI2c()
{
SDAOut();
SCLOut();
Nop();
SDA=1; //发送起始条件的数据信号
Nop();
SCL=1;
Nop(); //起始条件建立时间大于4.7us,延时
Nop();
Nop();
Nop();
Nop();
SDA=0; //发送起始信号
Nop(); //起始条件锁定时间大于4μs
Nop();
Nop();
Nop();
Nop();
SCL=0; //钳住I2C总线，准备发送或接收数据
Nop();
Nop();
}


void StopI2c()
{
SDAOut();
SCLOut();
Nop();
SDA=0; //发送结束条件的数据信号
Nop();
SCL=1; //发送结束条件的时钟信号
Nop(); //结束条件建立时间大于4μs
Nop();
Nop();
Nop();
Nop();
SDA=1; //发送I2C总线结束信号
Nop();
Nop();
Nop();
Nop();
}


void SendByte(uint8 c)
{
uint8 temp;
uint8 BitCnt;
SDAOut();
SCLOut();
Nop();
for(BitCnt=0;BitCnt<8;BitCnt++) //要传送的数据长度为8位
{
if(c&0x80) SDA=1; //判断发送位
else SDA=0;
c<<=1;
Nop();
SCL=1; //置时钟线为高，通知被控器开始接收数据位
Nop();
Nop(); //保证时钟高电平周期大于4μs*/
Nop();
Nop();
Nop();
SCL=0;
}
Nop();
Nop();
SDA=1; //8位发送完后释放数据线，准备接收应答位
Nop();
Nop();
SCL=1;
SDAIn();
Nop();
Nop();
Nop();
if(SDA==1) ack=0;
else ack=1; //判断是否接收到应答信号
SCL=0;
Nop();
Nop();
}


uint8 RcvByte()
{
uint8 retc;
uint8 BitCnt;
retc=0;
SDAOut();
SCLOut();
Nop();
SDA=1; //置数据线为输入方式
SDAIn();
Nop();
for(BitCnt=0;BitCnt<8;BitCnt++)
{
Nop();
SCL=0; //置时钟线为低，准备接收数据位
Nop();
Nop(); //时钟低电平周期大于4.7μs
Nop();
Nop();
Nop();
SCL=1; //置时钟线为高使数据线上数据有效
Nop();
Nop();
retc=retc<<1;
if(SDA==1) retc=retc+1; //读数据位,接收的数据位放入retc中
Nop();
Nop();
}
SCL=0;
Nop();
Nop();
return(retc);
}


void AckI2c(uint8 a)
{
SDAOut();
SCLOut();
Nop();
if(a==0) SDA=0; //在此发出应答或非应答信号
else SDA=1;
Nop();
Nop();
Nop();
SCL=1;
Nop();
Nop(); //时钟低电平周期大于4μs
Nop();
Nop();
Nop();
SCL=0; //清时钟线，钳住I2C总线以便继续接收
Nop();
Nop();
}


uint8 ISendStr(uint8 sla,uint8

*s,uint8 no)
{
uint8 i;
StartI2c(); //启动总线
SendByte(sla); //发送器件地址
if(ack==0) return(0);
for(i=0;i{
SendByte(*s); //发送数据
if(ack==0) return(0);
s++;
}
StopI2c(); //结束总线
return(1);
}


uint8 IRcvStr(uint8 sla,uint8 *suba,uint8 *s,uint8 subano,uint8 no)
{
uint8 i;
StartI2c(); //启动总线
SendByte(sla); //发送器件地址
if(ack==0)return(0);
for(i=0;i{
SendByte(*suba); //发送器件子地址
if(ack==0)return(0);
suba++;
}
StartI2c();
SendByte(sla+1);
if(ack==0)return(0);
for(i=0;i{
*s=RcvByte(); //发送数据
AckI2c(0); //发送就答位
s++;
}
*s=RcvByte();
AckI2c(1); //发送非应位
StopI2c(); //结束总线
return(1);
}