/*------------- 泰興電子集團 ------------------
*----------------------------------------------
*文件名:    2402.C 
*開發(fā)：     www.at90s1200.go.nease.net
*創(chuàng)建日期:  2004-6-30 16:19
*創(chuàng)建人：   尹剛
*功能:      EEPROM讀寫程序
-----------------------------------------------
-----------------------------------------------*/
#include "global.h"

bit ack;	         	/*應答標志位*/
extern void Delayms(Word count);
/*******************************************************************
啟動總線函數：
函數原型:     void  Start_I2c();  
功能:         啟動I2C總線,即發(fā)送I2C起始條件.  
********************************************************************/
void Start_I2c()
{
  SDA=1;   		/*發(fā)送起始條件的數據信號*/
  _nop_();
  SCL=1;
  _nop_();    		/*起始條件建立時間大于4.7us,延時*/
  _nop_();	
  _nop_();
  _nop_();
  _nop_();    
  SDA=0;   		/*發(fā)送起始信號*/
  _nop_();    		/* 起始條件鎖定時間大于4μs*/
  _nop_();
  _nop_();
  _nop_();
  _nop_();       
  SCL=0;   		/*鉗住I2C總線，準備發(fā)送或接收數據 */
  _nop_();
  _nop_();
}




/*******************************************************************
結束總線函數：     
函數原型:      void  Stop_I2c();  
功能:          結束I2C總線,即發(fā)送I2C結束條件.  
********************************************************************/
void Stop_I2c()
{
  SDA=0;  	/*發(fā)送結束條件的數據信號*/
  _nop_();   	/*發(fā)送結束條件的時鐘信號*/
  SCL=1;  	/*結束條件建立時間大于4μs*/
  _nop_();
  _nop_();
  _nop_();
  _nop_();
  _nop_();
  SDA=1;  	/*發(fā)送I2C總線結束信號*/
  _nop_();
  _nop_();
  _nop_();
  _nop_();
}




/*******************************************************************
                 字節(jié)數據發(fā)送函數               
函數原型: void  SendByte(Byte c);
功能:     將數據c發(fā)送出去,可以是地址,也可以是數據,發(fā)完后等待應答,并對
          此狀態(tài)位進行操作.(不應答或非應答都使ack=0)     
     	  發(fā)送數據正常，ack=1; ack=0表示被控器無應答或損壞。
********************************************************************/
void  SendByte(Byte c)
{
 Byte BitCnt;
 
 for(BitCnt=0;BitCnt<8;BitCnt++)  /*要傳送的數據長度為8位*/
    {
     if((c<<BitCnt)&0x80)SDA=1;   /*判斷發(fā)送位*/
       else  SDA=0;                
     _nop_();
     SCL=1;               /*置時鐘線為高，通知被控器開始接收數據位*/
      _nop_(); 
      _nop_();             /*保證時鐘高電平周期大于4μs*/
      _nop_();
      _nop_();
      _nop_();         
     SCL=0; 
    }
    _nop_();
    _nop_();
    _nop_();				//??????
    _nop_();
    _nop_();
    _nop_();				//??????
    SDA=1;                /*8位發(fā)送完后釋放數據線，準備接收應答位*/
    _nop_();
    _nop_();   
    SCL=1;
    _nop_();
    _nop_();
    _nop_();
    if(SDA==1)ack=0;     
       else ack=1;        /*判斷是否接收到應答信號*/
    SCL=0;
    _nop_();
    _nop_();
}

/*******************************************************************
                 字節(jié)數據接收函數               
函數原型: Byte  RcvByte();
功能:  	  用來接收從器件傳來的數據,并判斷總線錯誤(不發(fā)應答信號)，
          發(fā)完后請用應答函數應答從機。  
********************************************************************/	
Byte  RcvByte()
{
  Byte retc;
  Byte BitCnt;
  
  retc=0; 
  SDA=1;             		/*置數據線為輸入方式*/
  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 Ack_I2c(bit a);
功能:      主控器進行應答信號(可以是應答或非應答信號，由位參數a決定)
********************************************************************/
void Ack_I2c(bit a)
{
  
  if(a==0)SDA=0;     	     /*在此發(fā)出應答或非應答信號 */
        else SDA=1;
  _nop_();
  _nop_();
  _nop_();      
  SCL=1;
  _nop_();
  _nop_();                    /*時鐘低電平周期大于4μs*/
  _nop_();
  _nop_();
  _nop_();  
  SCL=0;                     /*清時鐘線，鉗住I2C總線以便繼續(xù)接收*/
  _nop_();
  _nop_();    
}


/*******************************************************************
                    向有子地址器件發(fā)送多字節(jié)數據函數               
函數原型: bit  ISendStr(Byte sla,Byte suba,ucahr *s,Byte no);  
功能:     從啟動總線到發(fā)送地址，子地址,數據，結束總線的全過程,從器件
          地址sla，子地址suba，發(fā)送內容是s指向的內容，發(fā)送no個字節(jié)。
          如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
********************************************************************/
bit ISendStr(Byte sla,Byte suba,Byte *s,Byte no)
{
   Byte i;

   Start_I2c();               /*啟動總線*/
   SendByte(sla);             /*發(fā)送器件地址*/
   if(ack==0)return(0);
   SendByte(suba);            /*發(fā)送器件子地址*/
   if(ack==0)return(0);

   for(i=0;i<no;i++)
   {
     SendByte(*s);            /*發(fā)送數據*/
     if(ack==0)return(0);
     s++;
   }
   Stop_I2c();                /*結束總線*/ 
   Delayms(10);
   return(1);
}

/*******************************************************************
                    向有子地址器件讀取多字節(jié)數據函數               
函數原型: bit  IRcvStr(Byte sla,Byte suba,ucahr *s,Byte no);  
功能:     從啟動總線到發(fā)送地址，子地址,讀數據，結束總線的全過程,從器件
          地址sla，子地址suba，讀出的內容放入s指向的存儲區(qū)，讀no個字節(jié)。
           如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
********************************************************************/
bit IRcvStr(Byte sla,Byte suba,Byte *s,Byte no)
{
   Byte i;

   Start_I2c();                  /*啟動總線*/
   SendByte(sla);                /*發(fā)送器件地址*/
   if(ack==0)return(0);
   SendByte(suba);               /*發(fā)送器件子地址*/
   if(ack==0)return(0);

   Start_I2c();			 		/*重新啟動總線*/
   SendByte(sla+1);
   if(ack==0)return(0);
   for(i=0;i<no-1;i++)
   {   
     *s=RcvByte();               /*發(fā)送數據*/
      Ack_I2c(0);                /*發(fā)送就答位*/  
     s++;
   } 
   *s=RcvByte();	
   Ack_I2c(1);                   /*發(fā)送非應位*/
   Stop_I2c();                   /*結束總線*/ 
   return(1);
}