/*     51系列單片機在使用時，有時需要模擬I2C總線，                      */
/*   這里舉出一個實例（讀寫串行EEPROM芯片2402）                       */
/************************************************************************/
/* Name:24C02存儲器的讀寫程序,用到I2C總線,含相對獨立的I2C總線讀寫函數 */
/* Language: C51單片機編程語言                                          */
/* Platform: Win98,Intel Celeron 433 Processor,偉福仿真器，仿真8751     */
/* Author:  StephenZhu    javasdk@163.com                               */
/* Date: 2003年5月21日,5月22日,5月29日                                  */
/* Version: 1.1.1                            */
/* Others: None                                                         */
/************************************************************************/

    #include<string.h>
    #include<reg52.h>
    #include<intrins.h>
    #define DELAY_TIME 60 /*經實驗，不要小于50！否則可能造成時序混亂*/
    #define TRUE 1
    #define FALSE 0

    sbit SCL=P1^7;/*假設由P1.7和P1.6控制*/
    sbit SDA=P1^6;

/********** Function Definition　函數定義 ************/

    void DELAY(unsigned int t) /*延時函數*/
    {
        while(t!=0)
            t--;
    }

    void I2C_Start(void)
    {
        /*啟動I2C總線的函數，當SCL為高電平時使SDA產生一個負跳變*/
        SDA=1;
        SCL=1;
        DELAY(DELAY_TIME);
        SDA=0;
        DELAY(DELAY_TIME);
        SCL=0;
        DELAY(DELAY_TIME);
    }

    void I2C_Stop(void)
    {
        /*終止I2C總線，當SCL為高電平時使SDA產生一個正跳變*/
        SDA=0;
        SCL=1;
        DELAY(DELAY_TIME);
        SDA=1;
        DELAY(DELAY_TIME);
        SCL=0;
        DELAY(DELAY_TIME);
    }

    void SEND_0(void)   /* SEND ACK */
    {
        /*發送0，在SCL為高電平時使SDA信號為低*/
        SDA=0;
        SCL=1;
        DELAY(DELAY_TIME);
        SCL=0;
        DELAY(DELAY_TIME);
    }

    void SEND_1(void)
    {
        /*發送1，在SCL為高電平時使SDA信號為高*/
        SDA=1;
        SCL=1;
        DELAY(DELAY_TIME);
        SCL=0;
        DELAY(DELAY_TIME);
    }

    bit Check_Acknowledge(void)
    {
        /*發送完一個字節后檢驗設備的應答信號*/
        SDA=1;
        SCL=1;
        DELAY(DELAY_TIME/2);
        F0=SDA;
        DELAY(DELAY_TIME/2);
        SCL=0;
        DELAY(DELAY_TIME);
        if(F0==1)
            return FALSE;
        return TRUE;
    }

    void WriteI2CByte(char b)reentrant
    {
        /*向I2C總線寫一個字節*/
        char i;
        for(i=0;i<8;i++)
            if((b<<i)&0x80)
                SEND_1();
            else
                SEND_0();
    }

 

    char ReadI2CByte(void)reentrant
    {
        /*從I2C總線讀一個字節*/
        char b=0,i;
        for(i=0;i<8;i++)
        {
            SDA=1;    /*釋放總線*/
            SCL=1;    /*接受數據*/
            DELAY(10);
            F0=SDA;
            DELAY(10);
            SCL=0;
            if(F0==1)
                {
                    b=b<<1;
                    b=b|0x01;
                }
            else
                b=b<<1;
        }
        return b;
    }


/**********以下為讀寫24c02的函數**********/
void Write_One_Byte(char addr,char thedata)
{
          bit acktemp=1;
          /*write a byte to mem*/
          I2C_Start();
          WriteI2CByte(0xa0);
          acktemp=Check_Acknowledge();
          WriteI2CByte(addr);/*address*/
          acktemp=Check_Acknowledge();
          WriteI2CByte(thedata);/*thedata*/
          acktemp=Check_Acknowledge();
          I2C_Stop();

}

void Write_A_Page(char *buffer,char addr)
{
          bit acktemp=1;
          bit wrtmp;
          int i;
          /*write a page to at24c02*/
          I2C_Start();
          WriteI2CByte(0xa0);
          acktemp=Check_Acknowledge();
          WriteI2CByte(addr);/*address*/
          acktemp=Check_Acknowledge();
          for(i=0;i<7;i++)
          {
            WriteI2CByte(buffer[i]);
            if(!Check_Acknowledge())
                {
                    I2C_Stop();

                }
           }


          I2C_Stop();

 


}

char Read_One_Byte(char addr)
{         bit acktemp=1;
          char mydata;
           /*read a byte from mem*/
          I2C_Start();
          WriteI2CByte(0xa0);
          acktemp=Check_Acknowledge();
          WriteI2CByte(addr);/*address*/
          acktemp=Check_Acknowledge();
          I2C_Start();
          WriteI2CByte(0xa1);
          acktemp=Check_Acknowledge();


          mydata=ReadI2CByte();
          acktemp=Check_Acknowledge();

          return mydata;
          I2C_Stop();
}

void Read_N_Bytes(char *buffer,char n,char addr)
{
          bit acktemp=1;

          int i=0;
           /*read 8 bytes from mem*/
          I2C_Start();
          WriteI2CByte(0xa0);
          acktemp=Check_Acknowledge();
          WriteI2CByte(addr);/*address*/
          acktemp=Check_Acknowledge();
          I2C_Start();
          WriteI2CByte(0xa1);

          acktemp=Check_Acknowledge();

 


          for(i=0;i<n;i++)
          {
                buffer[i]=ReadI2CByte();
                if(i!=n-1)
                    SEND_0();    /*發送應答*/
                else
                    SEND_1();    /*發送非應答*/
          }

   I2C_Stop();

}


void main()
{
          int i;
          char mybyte;
          char myarray[8];
          char myarray2[8];
          char rdarray[16];
          
          for(i=0;i<8;i++)
          {
                myarray[i]=i;
                myarray2[i]=i+0x08;     

          }

          Write_One_Byte(0x20,0x28);

          Write_A_Page(myarray,0x10);
          Write_A_Page(myarray2,0x18);

          mybyte=Read_One_Byte(0x20);
          Read_N_Bytes(rdarray,16,0x10);

}