comram.c

这是一个单片机的项目

/****************************************************************************************
File: ComRam.c
Description:用来读写公共RAM的IIC程序。
Author: [e-mail] [e-mail]
Date:   September,2007
****************************************************************************************/
#include<string.h>
#include <SM89516A.h>
#include<intrins.h>
#include"SerialPort.h"

#define uchar unsigned char
#define uint  unsigned int

#define WRITE 0xa0
#define READ  0xa1 
#define DELAY 5

/*端口位定义*/
sbit SCL=P0^0;            /*模拟I2C时钟控制位*/
sbit SDA=P0^1;            /*模拟I2C数据传送位*/
bit  Ack2;                /*应答标志位*/


/****************************************************************************************
功能:ComStart,起动总线函数.
描述:启动I2C总线,即发送I2C起始条件.
参数:无
返回:无
****************************************************************************************/
void ComStart()
{
  SDA=1;   /*发送起始条件的数据信号*/
  Delay(DELAY);

  SCL=1;    /*起始条件建立时间大于4.7us,延时*/
  Delay(DELAY);   

  SDA=0;   /*发送起始信号*/ /* 起始条件锁定时间大于4μs*/
  Delay(DELAY);   
    
  SCL=0;   /*钳住I2C总线，准备发送或接收数据 */
  Delay(DELAY);
}

/****************************************************************************************
功能:ComStop,结束总线函数.
描述:结束I2C总线,即发送I2C结束条件.
参数:无
返回:无
****************************************************************************************/
void ComStop()
{
  SDA=0;  /*发送结束条件的数据信号*/
  Delay(DELAY); 

  SCL=1;  /*结束条件建立时间大于4μs*/
  Delay(DELAY);

  SDA=1;  /*发送I2C总线结束信号*/
  Delay(DELAY);
}

/****************************************************************************************
功能:ComSendByte,字节数据传送函数.
描述:将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对此状态位进行操作.(不应答
     或者非应答都使ack=0 假)发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
参数:c---需要发送的字符。
返回:无
****************************************************************************************/
void ComSendByte(uchar c)
{
    uchar BitCnt;
 
    for(BitCnt=0;BitCnt<8;BitCnt++)  /*要传送的数据长度为8位*/
    {
      if((c<<BitCnt)&0x80)SDA=1;   /*判断发送位*/
        else  SDA=0;       
         
      Delay(DELAY);
      SCL=1;        /*置时钟线为高，通知被控器开始接收数据位保证时钟高电平周期大于4μs*/

      Delay(DELAY);       
      SCL=0; 
    }
    
    Delay(DELAY);
    SDA=1;         /*8位发送完后释放数据线，准备接收应答位*/
    Delay(DELAY);

    SCL=1;
    Delay(DELAY);

    if(SDA==1)    /*判断是否接收到应答信号*/
	  Ack2=0;     
    else 
	  Ack2=1;        

    SCL=0;
    Delay(DELAY);
}

/****************************************************************************************
功能:ComRcvByte,字节数据传送函数。
描述:用来接收从器件传来的数据,并判断总线错误(不发应答信号)，发完后请用应答函数。
参数:无
返回:无
****************************************************************************************/
uchar ComRcvByte()
{
  uchar retc,BitCnt;
  
  retc=0; 
  SDA=1;             /*置数据线为输入方式*/

  for(BitCnt=0;BitCnt<8;BitCnt++)
  {
     Delay(DELAY);           
     SCL=0;         /*置时钟线为低，准备接收数据位*/  /*时钟低电平周期大于4.7μs*/
     Delay(DELAY);

     SCL=1;         /*置时钟线为高使数据线上数据有效*/
     Delay(DELAY);

     retc=retc<<1;

     if(SDA==1)    /*读数据位,接收的数据位放入retc中 */
	   retc=retc+1; 
     Delay(DELAY);
  }

  SCL=0;    
  Delay(DELAY);

  return(retc);
}

/****************************************************************************************
功能:ComAck,应答子函数。
描述:主控器进行应答信号,(可以是应答或非应答信号)。
参数:a---应答与否，a==1应答，a==0不应答。
返回:无
****************************************************************************************/
void ComAck(bit a)
{
  
  if(a==0)
    SDA=0;     /*在此发出应答或非应答信号 */
  else 
	SDA=1;
  Delay(DELAY);     

  SCL=1;       /*时钟低电平周期大于4μ*/
  Delay(DELAY);  

  SCL=0;       /*清时钟线，钳住I2C总线以便继续接收*/
  Delay(DELAY);   
}
 
/****************************************************************************************
功能:ComWriteOneByte,向有子地址器件发送字节数据函数。
描述:从启动总线到发送地址，数据，结束总线的全过程,从器件地址sla.如果返回1表示操作成功，否
     则操作有误，使用前必须已结束总线。
参数:sla---器件地址；c---发送的字符。
返回:无
****************************************************************************************/
bit ComWriteOneByte(uint sla,uchar c)
{
   ComStart();                                  //启动总线

   ComSendByte(WRITE);       if(Ack2==0)return(0);   //发送器件地址   
   ComSendByte(sla>>8);      if(Ack2==0)return(0);   //高address
   ComSendByte(sla);         if(Ack2==0)return(0);   //low address 
   ComSendByte(c);           if(Ack2==0)return(0);   //发送数据
   
   ComStop();                 /*结束总线*/ 
   return(1);
}

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

   ComStart();      
           
   ComSendByte(WRITE);    
   if(Ack2==0)return(0);

   ComSendByte(suba>>8);  
   if(Ack2==0)return(0);

   ComSendByte(suba);     
   if(Ack2==0)return(0);
   
   for(i=0;i<no;i++)
    {   
       ComSendByte(*s);   
	   if(Ack2==0)return(0);	              
       s++;
    } 

  ComStop();  
  return(1);
}

/****************************************************************************************
功能:ComReadOneByte,向无子地址器件读字节数据函数。
描述:从启动总线到发送地址，读数据，结束总线的全过程,从器件地址sla，返回值在c.如果返回1表
     示操作成功，否则操作有误。使用前必须已结束总线。
参数:sla---器件地址。
返回:返回读取的字符。
****************************************************************************************/
uchar ComReadOneByte(uint sla)
{
   uchar x;
   ComStart();               /*启动总线*/

   ComSendByte(WRITE);   
   if(Ack2==0)return(0);    //发送器件地址

   ComSendByte(sla>>8);  
   if(Ack2==0)return(0);    //高address 

   ComSendByte(sla);     
   if(Ack2==0)return(0);    //low address
   
  ComStart();

  ComSendByte(READ);     
  if(Ack2==0)return(0);  
   
  x=ComRcvByte();
  return x;
}

/****************************************************************************************
功能:ComReadBytes,向有子地址器件读取多字节数据函数。
描述:从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件地址sla，子地址suba，读
     出的内容放入s指向的存储区，读no个字节。使用前必须已结束总线。
参数:suba---子地址，s---指向发送的内容，no---发送字符个数。
返回:如果返回1表示操作成功，否则操作有误。
****************************************************************************************/
bit ComReadBytes(uint suba,uchar *s,uchar no)
{
   uchar i;

   ComStart();            
   
   ComSendByte(WRITE);     
   if(Ack2==0)return(0);
	 
   ComSendByte(suba>>8);   
   if(Ack2==0)return(0);   
	 
   ComSendByte(suba);      
   if(Ack2==0)return(0);
    
   ComStart();

   ComSendByte(READ);      
   if(Ack2==0)return(0);
    
   for(i=0;i<no-1;i++)
   {   
      *s=ComRcvByte();             
      ComAck(0);                  
      s++;
   } 

    *s=ComRcvByte();
    ComAck(1);     
            
   ComStop();                  
   return(1);
}