myram.c

这是一个单片机的项目

/****************************************************************************************
File: MyRam.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=P1^0;            /*模拟I2C时钟控制位*/
sbit SDA=P1^1;            /*模拟I2C数据传送位*/
bit  AckSelf;                /*应答标志位*/

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

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

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

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

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

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

/****************************************************************************************
功能:MySendByte,字节数据传送函数.
描述:将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对此状态位进行操作.(不应答
     或者非应答都使ack=0 假)发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
参数:c---需要发送的字符。
返回:无
****************************************************************************************/
void MySendByte(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)    /*判断是否接收到应答信号*/
	   AckSelf=0;     
    else 
	   AckSelf=1;        

    SCL=0;
    Delay(DELAY);
}

/****************************************************************************************
功能:MyRcvByte,字节数据传送函数。
描述:用来接收从器件传来的数据,并判断总线错误(不发应答信号)，发完后请用应答函数。
参数:无
返回:无
****************************************************************************************/
uchar MyRcvByte()
{
  uchar retc;
  uchar 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+1; /*读数据位,接收的数据位放入retc中 */
     Delay(DELAY);
  }

  SCL=0;    
  Delay(DELAY);

  return(retc);
}

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

  Delay(DELAY);     

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

  SCL=0;                /*清时钟线，钳住I2C总线以便继续接收*/
  Delay(DELAY);   
}

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

   MySendByte(WRITE);         
   if(AckSelf==0)return(0);  //发送器件地址  
  
   MySendByte(sla>>8);        
   if(AckSelf==0)return(0);  //高address  

   MySendByte(sla);           
   if(AckSelf==0)return(0);  //low address 

   MySendByte(c);             
   if(AckSelf==0)return(0);  //发送数据
   
   MyStop();               //结束总线
   return(1);
}

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

   MyStart();      
            
   MySendByte(WRITE);        
   if(AckSelf==0)return(0);

   MySendByte(suba>>8);      
   if(AckSelf==0)return(0);

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

   MyStop();                 
   return(1);
}

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

   MyStart();                                      //启动总线

   MySendByte(WRITE);         
   if(AckSelf==0)return(0);   //发送器件地址  
 
   MySendByte(sla>>8);        
   if(AckSelf==0)return(0);   //高address 

   MySendByte(sla);           
   if(AckSelf==0)return(0);   //low address
   
   MyStart(); 

   MySendByte(READ);          
   if(AckSelf==0)return(0); 
       
   x=MyRcvByte();

   return x;
}

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

   MyStart();            
   
   MySendByte(WRITE);      
   if(AckSelf==0)return(0);
	 
   MySendByte(suba>>8);    
   if(AckSelf==0)return(0);
	 
   MySendByte(suba);       
   if(AckSelf==0)return(0);
	 
   MyStart();

   MySendByte(READ);       
   if(AckSelf==0)return(0);
	  
   for(i=0;i<no-1;i++)
   {   
      *s=MyRcvByte();             
      MyAck(0);                  
      s++;
   } 

   *s=MyRcvByte();
    MyAck(1);     
            
   MyStop();                  
   return(1);
}