/* 以下為AT24C01～AT24C256的讀寫程序，各人可根據自己的需要應用。
在buf1中填入需要寫入的內容，buf2的大小可根據需要定義。
addr可根據使用的芯片選擇，可從任何位置讀寫，只要在該芯片的范圍內。
enumer=ATxxx，根據使用的芯片賦值。各函數中的形式參數不需改變。
本程序只要在調用的程序中定義實際參數即可，下述各子程序不必改動。*/

#include <reg52.h>
#include <intrins.h>
#define  ERROR 10     //允許ERROR的最大次數      
sbit     SDA=P3^0;
sbit     SCL=P3^1;
enum  eepromtype {AT2401,AT2402,AT2404,AT2408,AT2416,AT2432,AT2464,AT24128,AT24256};/*器件的型號*/
enum  eepromtype enumer;   //定義一個枚舉變量
unsigned char code buf1 []={1,3,5,7,9,10,11,12,13,15}; /* 發送緩沖區 */
unsigned char buf2 [10]; /* 接收緩沖區 */

/* 一個通用的24C01－24C256共9種EEPROM的字節讀寫操作程序，
此程序有五個入口條件，分別為讀寫數據緩沖區指針,
進行讀寫的字節數，EEPROM首址，EEPROM控制字節，
以及EEPROM類型。此程序結構性良好，具有極好的容錯性，程序機器碼也不多:
DataBuff為讀寫數據輸入／輸出緩沖區的首址
Length 為要讀寫數據的字節數量
Addr 為EEPROM的片內地址 AT24256為0～32767
Control 為EEPROM的控制字節，具體形式為(1)(0)(1)(0)(A2)(A1)(A0)(R/W),其中R/W=1,
表示讀操作,R/W=0為寫操作,A2,A1,A0為EEPROM的頁選或片選地址;
enumer為枚舉變量,需為AT2401至AT24256中的一種,分別對應AT24C01至AT24C256;
函數返回值為一個位變量，若返回1表示此次操作失效，0表示操作成功;
ERROR為允許最大次數，若出現ERRORCOUNT次操作失效后，則函數中止操作，并返回1
SDA和SCL由用戶自定義，這里暫定義為P3^0和P3^1; */
/*對于1K位，2K位，4K位，8K位，16K位芯片采用一個8位長的字節地址碼，對于32K位以上
的采用2個8位長的字節地址碼直接尋址，而4K位，8K位，16K位配合頁面地址來尋址*/

/* －－－－－  AT24C01～AT24C256 的讀寫程序 －－－－－－ */
bit   RW24xx(unsigned char *DataBuff,unsigned char Length,unsigned int Addr,
                     unsigned char Control,enum eepromtype enumer)
{ void Delay(unsigned char DelayCount);  /*   延時   */
  void Start(void);  /*   啟動總線   */
  void Stop(void);   /*   停止IIC總線   */
  bit  RecAck(void); /*   檢查應答位   */
  void NoAck(void);  /*   不對IIC總線產生應答   */
  void Ack(void);    /*   對IIC總線產生應答   */
  unsigned char Receive(void); /*   從IIC總線上讀數據子程序  */
  void Send(unsigned char sendbyte); /*   向IIC總線寫數據   */
  unsigned char data j,i=ERROR;
  bit errorflag=1;  /*   出錯標志   */
  while(i--)
  { Start();  /*   啟動總線   */
    Send(Control & 0xfe); /*   向IIC總線寫數據，器件地址 */
    if(RecAck()) continue; /*   如寫不正確結束本次循環   */
    if(enumer > AT2416)
    { Send((unsigned char)(Addr >> 8));//把整型數據轉換為字符型數據：棄高取低，只取低8位.如果容量大于32K位，使用16位地址尋址，寫入高八位地址
      if(RecAck())  continue;
    }
    Send((unsigned char)Addr); /*   向IIC總線寫數據   */
    if(RecAck())  continue; /*   如寫正確結束本次循環   */
    if(!(Control & 0x01))   //判斷是讀器件還是寫器件
    { j=Length;
      errorflag=0;         /* 清錯誤特征位 */
      while(j--)
      { Send(*DataBuff++); /*   向IIC總線寫數據   */
        if(!RecAck()) continue; /*   如寫正確結束本次循環   */
        errorflag=1;
        break;
      }
      if(errorflag==1) continue;
      break;
    }
    else
    { Start();  /*   啟動總線   */
      Send(Control); /*   向IIC總線寫數據   */
      if(RecAck()) continue;//器件沒應答結束本次本層循環
      while(--Length)  /*   字節長為0結束   */
      { *DataBuff ++= Receive();
        Ack();   /*   對IIC總線產生應答   */
      }
      *DataBuff=Receive(); /* 讀最后一個字節 */
      NoAck();  /*   不對IIC總線產生應答   */
      errorflag=0;
      break;
    }
  }
  Stop();  /*   停止IIC總線   */
  if(!(Control & 0x01))
  { Delay(255); Delay(255); Delay(255); Delay(255);
  }
  return(errorflag);
}

/* * * * * 以下是對IIC總線的操作子程序 * * * * */
/* * * * * * 啟動總線 * * * * */
void Start(void)
{ SCL=0; /* SCL處于高電平時,SDA從高電平轉向低電平表示 */
  SDA=1; /* 一個"開始"狀態,該狀態必須在其他命令之前執行 */
  SCL=1;
  _nop_(); _nop_(); _nop_();
  SDA=0;
  _nop_(); _nop_(); _nop_(); _nop_();
  SCL=0;
  SDA=1;    
}

/* * * * * 停止IIC總線 * * * * */
void Stop(void)
{ SCL=0; /*SCL處于高電平時,SDA從低電平轉向高電平 */
  SDA=0; /*表示一個"停止"狀態,該狀態終止所有通訊 */
  SCL=1;
  _nop_(); _nop_(); _nop_(); /* 空操作 */
  SDA=1;
  _nop_(); _nop_(); _nop_();
  SCL=0;
}

/* * * * * 檢查應答位 * * * * */
bit RecAck(void)
{ SCL=0;
  SDA=1;
  SCL=1;
  _nop_(); _nop_(); _nop_(); _nop_();
  CY=SDA;     /* 因為返回值總是放在CY中的 */
  SCL=0;
  return(CY);
}

/* * * * *對IIC總線產生應答 * * * * */
void Ack(void)
{ SDA=0; /* EEPROM通過在收到每個地址或數據之后, */
  SCL=1; /* 置SDA低電平的方式確認表示收到讀SDA口狀態 */
  _nop_(); _nop_(); _nop_(); _nop_();
  SCL=0;
  _nop_();
  SDA=1;
}

/* * * * * * * * * 不對IIC總線產生應答 * * * * */
void NoAck(void)
{ SDA=1;
  SCL=1;
  _nop_(); _nop_(); _nop_(); _nop_();
  SCL=0;
}

/* * * * * * * * * 向IIC總線寫數據 * * * * */
void Send(unsigned char sendbyte)
{ unsigned char data j=8;
  for(;j>0;j--)
  { SCL=0;
    sendbyte <<= 1; /* 使CY=sendbyte^7; */
    SDA=CY; /* CY 進位標志位 */
    SCL=1;
  }
  SCL=0;
}

/* * * * * * * * * 從IIC總線上讀數據子程序 * * * * */
unsigned char Receive(void)
{ register receivebyte,i=8;
  SCL=0;
  while(i--)
  { SCL=1;
    receivebyte = (receivebyte <<1 ) | SDA;
    SCL=0;
  }
  return(receivebyte);
}

/* * * * * * * * 一個簡單延時程序 * * * * * * * * * * * * */
void Delay(unsigned char DelayCount)
{ while(DelayCount--);
}

/* －－－－－  AT24C01～AT24C256 的讀寫程序 －－－－－－ */
void main()
{ unsigned char Control,*p1,*p2;
  unsigned char Length;
  unsigned int addr ; /* 24Cxx片內地址 */
  p1=buf1;p2=buf2;
  addr=0; /* 片內地址 AT24C256為0～32767 */
  Length=8; /* 讀寫長度 */
  enumer=AT24256; /* 讀寫AT24C256 */
  Control=0xa0; /* 寫操作 */
  RW24xx(p1,Length,addr,Control,enumer); /* 寫 */
  Control=0xa1; /* 讀操作 */
  RW24xx(p2,Length,addr,Control,enumer); /* 讀 */
}