text1.c

EEPROM存储 采用Ｉ２Ｃ形式的模拟通信程序原代码

#include<reg51.h>
#include<intrins.h>

#define delay_time _nop_();_nop_();_nop_();_nop_();_nop_();

sbit SCL = P3^7;
sbit SDA = P3^6;

bit ack;

sbit P10 = P1^0;

unsigned char datas[2]={0x01,0x02};
unsigned char hai[2]={0};

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

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

/*******************************************************************
                  字节数据发送函数               
函数原型: void   SendByte(uchar c);
功能:      将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对
           此状态位进行操作.(不应答或非应答都使ack=0)     
         发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
********************************************************************/
void  SendByte(unsigned char c)
{
   unsigned char BitCnt;

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

/*******************************************************************
                  字节数据接收函数               
函数原型: uchar   RcvByte();
功能:      用来接收从器件传来的数据,并判断总线错误(不发应答信号)，
           发完后请用应答函数应答从机。  
********************************************************************/ 
unsigned char RcvByte()
{
   unsigned char retc;
   unsigned char BitCnt;
  
   retc=0; 
   SDA=1;                /*置数据线为输入方式*/
   for(BitCnt=0;BitCnt<8;BitCnt++)
   {
       delay_time;   
       SCL=0;                   /*置时钟线为低，准备接收数据位*/
        
       delay_time;                  /*时钟低电平周期大于4.7μs*/
       
       SCL=1;                   /*置时钟线为高使数据线上数据有效*/
       delay_time;
       retc=retc<<1;
       if(SDA==1)retc=retc+1;   /*读数据位,接收的数据位放入retc中 */
       delay_time; 
    }
    SCL=0;    
    delay_time;
    return(retc);
}

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

/*******************************************************************
                     向有子地址器件发送多字节数据函数               
函数原型: bit   ISendStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no);  
功能:      从启动总线到发送地址，子地址,数据，结束总线的全过程,从器件
           地址sla，子地址suba，发送内容是s指向的内容，发送no个字节。
           如果返回1表示操作成功，否则操作有误。
注意：     使用前必须已结束总线。
********************************************************************/
bit ISendStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no)
{
    unsigned char 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   ISendStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no);  
功能:      从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件
           地址sla，子地址suba，读出的内容放入s指向的存储区，读no个字节。
            如果返回1表示操作成功，否则操作有误。
注意：     使用前必须已结束总线。
********************************************************************/
bit IRcvStr(unsigned char sla,unsigned char suba,unsigned char *s,unsigned char no)
{
    unsigned char i;

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

    SendByte(suba);                /*发送器件子地址*/
    if(ack==0) return(0);

    Start_I2c();     /*重新启动总线*/
    SendByte(sla+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);
}

main()
{
   P10=0;  

   while((ISendStr(0xae,0x10,datas,2))==0);
   
   while((IRcvStr(0xae,0x10,hai,2))==0);
   
   if((hai[0]==datas[0])&&(hai[1]==datas[1])){
     P10=1;
   }

   while(1);
}