/********************************************************************
   2               liuyouheng20040709
   3              注意:函數是采用軟件延時的方法產生SCL脈沖,固對高晶振頻率要作
   4          一定的修改....(本例是1us機器周期,即晶振頻率要小于12MHZ)
   5
   6          *******************************************************************/

#include"REG78e65.h"              //頭文件的包含//
#include <intrins.h>
#include"define.h"
//#include<IIC_c51.H>

//#define         BYTE unsigned char      //宏定義//
//#define         WORD  unsigned int

//#define BYTE unsigned char
//#define uchar unsigned char

BYTE	idata	IIC_buf[8];

//bit USendByte(BYTE sla,BYTE c);
//bit USendStr(BYTE sla,BYTE *str,BYTE num);
//bit ISendStr(BYTE sla,BYTE suba,BYTE *str,BYTE num);

//bit URcvByte(BYTE sla);
//bit URcvStr(BYTE sla,BYTE *str,BYTE num);
//bit IRcvStr(BYTE sla,BYTE suba,BYTE *str,BYTE num);



// 常,變量定義區 //

//端口位定義//
sbit            SDA=P1^4;               //模擬I2C數據傳送位//
sbit            SCL=P1^3;               //模擬I2C時鐘控制位//

//狀態標志//
bit             ack;                    //應答標志位//


void init_IIC(void)
{
   SDA=1;
   SCL=1;
        _nop_();
        _nop_();
        _nop_();
        _nop_();
   SCL=0;
        _nop_();
        _nop_();
        _nop_();
        _nop_();
   SCL=1;
}

/*****************************************************
                     起動總線函數
函數原型: void  Start_I2c();
功能:       啟動I2C總線,即發送I2C起始條件.

****************************************************/
void Start_I2c()
{
        SDA=1;          //發送起始條件的數據信號//
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        SCL=1;
        _nop_();                //起始條件建立時間大于4.7us,延時//
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        SDA=0;          //發送起始信號*/
        _nop_();        // 起始條件鎖定時間大于4μs//
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        SCL=0;          //鉗住I2C總線，準備發送或接收數據 //
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        _nop_();
}

/****************************************************
                      結束總線函數
函數原型: void  Stop_I2c();
功能:       結束I2C總線,即發送I2C結束條件.

****************************************************/
void Stop_I2c()
{
        SDA=0;  //發送結束條件的數據信號//
        _nop_();   //發送結束條件的時鐘信號//
        SCL=1;  //結束條件建立時間大于4μs//
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        _nop_();
        SDA=1;  //發送I2C總線結束信號//
        _nop_();
        _nop_();
        _nop_();
        _nop_();
}



/****************************************************
                 字節數據傳送函數
數原型: void  SendByte(BYTE c);
能:  將數據c發送出去,可以是地址,也可以是數據,發完后等待應答,并對
     此狀態位進行操作.(不應答或非應答都使ack=0 假)
     發送數據正常，ack=1; ack=0表示被控器無應答或損壞。
************************************************************/
void  SendByte(BYTE c)
{
        BYTE BitCnt;

        for(BitCnt=0;BitCnt<8;BitCnt++)  //要傳送的數據長度為8位//
        {
                if((c<<BitCnt)&0x80)
                SDA=1;   //判斷發送位//
                else
                SDA=0;
                SCL=1;               //置時鐘線為高，通知被控器開
                _nop_();
                _nop_();               //保證時鐘高電平周期大于4μ
                _nop_();
                SCL=0;
        }
        SDA=1;               //8位發送完后釋放數據線，準備接收應
        SCL=1;
        if(SDA==1)ack=0;
        else ack=1;        //判斷是否接收到應答信號//
        SCL=0;
}
/****************************************************
                 字節數據傳送函數
函數原型: BYTE  RcvByte();
功能:  用來接收從器件傳來的數據,并判斷總線錯誤(不發應答信號)，
     發完后請用應答函數。
*************************************************************/
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_();
        return(retc);
        _nop_();
}

/*****************************************************
                     應答子函數

COMPILER V7.06   IIC_C51                                                               :37 PAGE 4

原型:  void Ack_I2c(bit a);

功能:主控器進行應答信號,(可以是應答或非應答信號)
*************************************************************/
void Ack_I2c(bit a)
{
        if(a==0)SDA=0;          //在此發出應答或非應答信號 //
        else SDA=1;
        _nop_();
        _nop_();
        _nop_();
        SCL=1;
        _nop_();
        _nop_();                        //時鐘低電平周期大于4μs//
        _nop_();
        _nop_();
        _nop_();
        SCL=0;                  //清時鐘線，鉗住I2C總線以便繼續接
        _nop_();
        _nop_();
}

/****************************************************
                    向無子地址器件發送單字節數據函數
函數原型: bit  ISendByte(BYTE sla,ucahr c,BYTE num);
功能:     從啟動總線到發送地址，數據，結束總線的全過程,從器件地址節
          發送內容是s指向的內容 , 如果返回1表示操作成功，否則操
注意：    使用前必須已結束總線。
**************************************************************/
bit USendByte(BYTE sla,BYTE c)
{

        Start_I2c();               //啟動總線//
        SendByte(sla);            //發送器件地址//
        if(ack==0)      {Stop_I2c();return(0);}
        SendByte(c);
        if(ack==0)      {Stop_I2c();return(0);}
        Stop_I2c();                 //結束總線//
        return(1);
}
/****************************************************
                    向無子地址器件發送多字節數據函數
函數原型: bit  ISendByte(BYTE sla,ucahr c,BYTE num);
功能:     從啟動總線到發送地址，數據，結束總線的全過程,從器件地址節
          發送內容是s指向的內容 , 如果返回1表示操作成功，否則操
注意：    使用前必須已結束總線。
**************************************************************/
bit USendStr(BYTE sla,BYTE *str,BYTE num)
{
        BYTE i;
        Start_I2c();               //啟動總線//
        SendByte(sla);            //發送器件地址//
        if(ack == 0)
        {
                Stop_I2c();
                return(0);
        }
        for(i=0;i<num;i++)
    {
        SendByte(*str);       //發送數據//
        if(ack == 0)
        {
                Stop_I2c();
                return(0);
        }
        str++;
    }
   Stop_I2c();           //結束總線//
   return(1);
}
/****************************************************
                    向有子地址器件發送多字節數據函數
函數原型: bit  ISendStr(BYTE sla,BYTE suba,ucahr *str,BYTE num);
功能:     從啟動總線到發送地址，子地址,數據，結束總線的全過程,從器
          地址sla，子地址suba，發送內容是s指向的內容，發送num個
           如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
**************************************************************/
bit ISendStr(BYTE sla,BYTE suba,BYTE *str,BYTE num)
{
        BYTE i;
        Start_I2c();               //啟動總線//
        SendByte(sla);            //發送器件地址//
        if(ack==0)      {Stop_I2c();return(0);}
        SendByte(suba);            //發送器件子地址//
        if(ack==0)      {Stop_I2c();return(0);}

        for(i=0;i<num;i++)
        {
                SendByte(*str);               //發送數據//
                if(ack==0)      {Stop_I2c();return(0);}
                str++;
        }
        Stop_I2c();                 //結束總線//
        return(1);
}
/****************************************************
                    向無子地址器件讀字節數據函數
函數原型: bit  IRcvByte(BYTE sla,ucahr *c);
功能:     從啟動總線到發送地址，讀數據，結束總線的全過程,從器件地
          址sla，返回值在c.
           如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
**************************************************************/

bit URcvByte(BYTE sla)
{
        Start_I2c();                    //啟動總線//
        SendByte(sla+1);                //發送器件地址//
        if(ack==0)return(0);
        IIC_buf[0]=RcvByte();                   //讀取數據//
        Ack_I2c(1);                     //發送非就答位//
        Stop_I2c();                     //結束總線//
        return(1);
}

/****************************************************
                    向無子地址器件讀多字節數據函數
函數原型: bit  IRcvByte(BYTE sla,ucahr *c);
功能:     從啟動總線到發送地址，讀數據，結束總線的全過程,從器件地
          址sla，返回值在c.
           如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
**************************************************************/
bit URcvStr(BYTE sla,BYTE *str,BYTE num)
{
        BYTE i;
        Start_I2c();        //啟動總線//
        SendByte(sla);            //發送器件地址//
        if(ack==0){Start_I2c();return(0);}

        Start_I2c();
        SendByte(sla+1);
        if(ack==0){Start_I2c();return(0);}

        for(i=0;i<num-1;i++)
        {
                *str=RcvByte();               //發送數據//
                Ack_I2c(0);                //發送就答位//
                str++;
        }
        *str=RcvByte();
        Ack_I2c(1);                 //發送非應位//
        Stop_I2c();                    //結束總線//
        return(1);
}
/****************************************************
                    向有子地址器件讀取多字節數據函數
函數原型: bit  ISendStr(BYTE sla,BYTE suba,ucahr *str,BYTE num);
功能:     從啟動總線到發送地址，子地址,讀數據，結束總線的全過程,從
          地址sla，子地址suba，讀出的內容放入s指向的存儲區，讀no
           如果返回1表示操作成功，否則操作有誤。
注意：    使用前必須已結束總線。
**************************************************************/
bit IRcvStr(BYTE sla,BYTE suba,BYTE *str,BYTE num)
{
        BYTE 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<num-1;i++)
        {
                *str=RcvByte();               //發送數據//
                Ack_I2c(0);                //發送就答位//
                str++;
        }
        *str=RcvByte();
        Ack_I2c(1);                 //發送非應位//
        Stop_I2c();                    //結束總線//
        return(1);
}
                        //    完畢      //