iic drive.c

这是在凌阳061单片机上写的程序.功能是ds1302的时间显示.

/********************************************************************
 模块名称：IIC drive.c 
           此程序是I2C操作平台（主方式的软件平台）的底层的C子程序,如发送数据
           及接收数据,应答位发送,并提供了几个直接面对器件的操作函数  

 说    明：函数是采用软件延时的方法产生SCL脉冲,固对高晶振频率要作一定的修改
           本例程序只用于凌阳061单片机的开发使用，不完全兼容于51单片机；   
           使用了IOA0，IOA1 断口定义可以根据需要自行修改 
 包含的头文件：reg 061.h     //SPCE061A硬件端口操作 位操做
 程序设计：mcl     
 设计时间：2007.08.19        
 版 本 号: 2007819
********************************************************************/
      
#include "reg 061.h"          /*头文件的包含  凌阳SPCE061A硬件端口操作头*/
//#include <intrins.h>

#define  uchar unsigned char /*宏定义*/
#define  uint  unsigned int

/* 常,变量定义区 */
 
                                                 /*端口位定义*/
#define SDA         PA->bit.bit1            /*模拟I2C数据传送位*/
#define SCL         PA->bit.bit0            /*模拟I2C时钟控制位*/

#define SDA_Attrib  PA_Attrib->bit.bit1       ///////////////////////////////
#define SCL_Attrib  PA_Attrib->bit.bit0       //    
                                               //定义端口的输入输出
#define SDA_Dir    PA_Dir->bit.bit1           //
#define SCL_Dir    PA_Dir->bit.bit0           //////////////////////////////
                                                 
                                                 /*状态标志*/
uint  ack;	                                      /*应答标志位*/


/******************************************************************
                   延时函数
   IIC专用延时函数

******************************************************************/
 
void IICdelay(int n)     //默认CPU频率为Fosc/8,Fosc=24.576Mhz
{
 while(n--);
}



/*******************************************************************
                     初始化SDA、SCL端口
函数原型: void  IIC_Init(void)  
功能: 设置SDA和SCL为高电平输出
 
*******************************************************************/
void IIC_Init(void)
{	
    SDA_Dir = 1;
    SDA_Attrib = 1;
    SDA = 1;
    
    SCL_Dir = 1;
    SCL_Attrib = 1;
    SCL = 1;    
}
   

/*******************************************************************
                     起动总线函数               
函数原型: void  Start_I2c();  
功能:       启动I2C总线,即发送I2C起始条件.
  
********************************************************************/
void Start_I2c()
{
  SDA=1;        /*发送起始条件的数据信号*/
  IICdelay(1);
  SCL=1;
  IICdelay(3);    /*起始条件建立时间大于4.7us,延时*/   
  SDA=0;        /*发送起始信号*/
  IICdelay(3);    /* 起始条件锁定时间大于4μs*/        
  SCL=0;        /*钳住I2C总线，准备发送或接收数据 */
  IICdelay(3);
}




/*******************************************************************
                      结束总线函数               
函数原型: void  Stop_I2c();  
功能:       结束I2C总线,即发送I2C结束条件.
  
********************************************************************/
void Stop_I2c()
{
  SDA=0;       /*发送结束条件的数据信号*/
  IICdelay(1);   /*发送结束条件的时钟信号*/
  SCL=1;       /*结束条件建立时间大于4μs*/
  IICdelay(3);
  SDA=1;       /*发送I2C总线结束信号*/
  IICdelay(3);
  
}




/*******************************************************************
                 字节数据发送函数               
函数原型: void  SendByte(uchar c);
功能:  将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对
     此状态位进行操作.(不应答或非应答都使ack=0 假)     
     发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
********************************************************************/
void  SendByte(uchar c)
{
 uchar BitCnt;
 //  SDA_Dir = 1;           //恢复输出状态
 //  SDA_Attrib = 1;
 //   SDA = 1; 
 //c=c<<4;
 for(BitCnt=0;BitCnt<8;BitCnt++)   /*要传送的数据长度为8位*/
    {
     if((c<<BitCnt)&0x0080)
     SDA=1;                       /*判断发送位*/  //因为凌阳61是16位的单片机所以要屏蔽掉高8位
     else  SDA=0;                
    IICdelay(2);
     SCL=1;                       /*置时钟线为高，通知被控器开始接收数据位*/     
    IICdelay(3);                    /*保证时钟高电平周期大于4μs*/           
     SCL=0; 
    }
    IICdelay(3);
    SDA=1;                       /*8位发送完后释放数据线，准备接收应答位*/
                  
         
    SDA_Dir = 0;                  //切换成输入状态   以便接收应答
    SDA_Attrib = 0;
    SDA = 1;
    
    
    IICdelay(1);  
    SCL=1;
    IICdelay(10);
 //   while(SDA==1);
   if(SDA==1)
    ack=0;     
   else ack=1;          /*判断是否接收到应答信号*/
    SCL=0;
    IICdelay(2);
   SDA_Dir = 1;           //恢复输出状态
   SDA_Attrib = 1;
    SDA = 1; 
}





/*******************************************************************
                 字节数据接收函数               
函数原型: uchar  RcvByte();
功能:  用来接收从器件传来的数据,并判断总线错误(不发应答信号)，
     发完后请用应答函数。  
********************************************************************/	
uchar  RcvByte()
{
  uchar retc;
  uchar BitCnt;
  SDA_Dir=0;          //切换SDA端口为输入，以便接受数据，*此子函数结束前一定要恢复输出状态
  retc=0; 
  for(BitCnt=0;BitCnt<8;BitCnt++)
      {
       IICdelay(2);          
        SCL=0;       /*置时钟线为低，准备接收数据位*/
        
        IICdelay(2);         /*时钟低电平周期大于4.7μs*/
        
        SCL=1;       /*置时钟线为高使数据线上数据有效*/
        IICdelay(3);
        retc=retc<<1;
        if(SDA==1)retc=retc+1; /*读数据位,接收的数据位放入retc中 */
        IICdelay(5); 
      }
  SDA_Dir=1;                   //恢复输出状态 以便下个函数正常使用
  SCL=0;    
  IICdelay(5);
  return(retc);
}




/********************************************************************
                     应答子函数
原型:  void Ack_I2c(bit a);
 
功能:主控器进行应答信号,(可以是应答或非应答信号)
********************************************************************/
void Ack_I2c(uint a)
{
  
 if(a==0)SDA=0;     /*在此发出应答或非应答信号 */
  else SDA=1;
  IICdelay(2);      
 SCL=1;
   IICdelay(2);              /*时钟低电平周期大于4μs*/
  
 SCL=0;                /*清时钟线，钳住I2C总线以便继续接收*/
   IICdelay(3);    
}


/*******************************************************************
                    向无子地址器件发送字节数据函数               
函数原型: uint  ISendByte(uchar sla,ucahr c);  
功能:     从启动总线到发送地址，数据，结束总线的全过程,从器件地址sla.
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
********************************************************************/
uint ISendByte(uchar sla,uchar c)
{
   Start_I2c();               /*启动总线*/
   SendByte(sla);            /*发送器件地址*/
     if(ack==0)return(0);
   SendByte(c);               /*发送数据*/
     if(ack==0)return(0);
  Stop_I2c();                 /*结束总线*/ 
  return(1);
}




/*******************************************************************
                    向有子地址器件发送多字节数据函数               
函数原型: bit  ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);  
功能:     从启动总线到发送地址，子地址,数据，结束总线的全过程,从器件
          地址sla，子地址suba，发送内容是s指向的内容，发送no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
        sla 为从器件地址   suba 为从器件子地址  
********************************************************************/
uint ISendStr(uchar sla,uchar suba,uchar *s,uchar no)
{
   uchar i;

   Start_I2c();               /*启动总线*/
   SendByte(sla);            /*发送器件地址*/
     if(ack==0)return(0);
   SendByte(suba);            /*发送器件子地址*/
     if(ack==0)return(0);

   for(i=0;i<no;i++)
    {   
     SendByte(*s);               /*发送数据*/
       if(ack==0)return(0);
     s++;
    } 
 Stop_I2c();                 /*结束总线*/ 
  return(1);
}






/*******************************************************************
                    向无子地址器件读字节数据函数               
函数原型: bit  IRcvByte(uchar sla,ucahr *c);  
功能:     从启动总线到发送地址，读数据，结束总线的全过程,从器件地
          址sla，返回值在c.
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
          
********************************************************************/
uint IRcvByte(uchar sla,uchar *c)
{
   Start_I2c();                /*启动总线*/
   SendByte(sla+1);           /*发送器件地址？？？？sal+1?????*/
     if(ack==0)return(0);
   *c=RcvByte();               /*读取数据*/
     Ack_I2c(1);               /*发送应答位*/
  Stop_I2c();                  /*结束总线*/ 
  return(1);
}



/*******************************************************************
                    向有子地址器件读取多字节数据函数               
函数原型: bit  ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);  
功能:     从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件
          地址sla，子地址suba，读出的内容放入s指向的存储区，读no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：    使用前必须已结束总线。
           sla 为从器件地址   suba 为从器件子地址  
********************************************************************/
uint IRcvStr(uchar sla,uchar suba,uchar *s,uchar no)
{
   uchar i;
   Start_I2c();               /*启动总线*/
   SendByte(sla);            /*发送器件地址*/
     if(ack==0)return(0);
   SendByte(suba);            /*发送器件子地址*/
   if(ack==0)return(0);

   Start_I2c();
   SendByte(sla+1);          //加读标记“1”
      if(ack==0)return(0);

   for(i=0;i<no-1;i++)
    {   
     *s=RcvByte();               /*接收数据*/
      Ack_I2c(0);                /*发送应答位 ？？？？？？？？*/
     s++;
    } 
   *s=RcvByte();
    Ack_I2c(1);                 /*发送应答位*/
   Stop_I2c();                   /*结束总线*/ 
  return(1);
}