/******************************************************************* 
一、程序說明： 
1, 24LC02器件地址是1010000R/W. 
2, 數組寫入24LC02采取頁寫方式. 
3, 數組code從24LC02讀出時采取自由讀方式. 
4, 采用4.00M晶體。 
5，采用軟件I2C。 

二、硬件連接： 
1， SDA------->23 pin.(當然你可以任意選擇腳位） 
2,  SCL------->18 Pin.(當然你可以任意選擇腳位） 
3， PORTD----->外接8個LED，顯示讀出的數據，在這里，讀出的剛好是一個閃動的流水燈狀態。 

*******************************************************************/ 
#include "pic.h" 

#define uchar   unsigned char 
#define nop()  asm("nop")
#define SCL  TRISC3 
#define SDA  TRISC4 

void start_i2c(); 
void stop_i2c(); 
void send_byte(uchar c); 
uchar receive_byte(); 
void I_send_str(uchar sla,uchar suba,uchar *s,uchar no); 
void delay_250ms(); 
void i2c_error (); 

uchar code[]={0x02,0x66,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff}; 
uchar no,ack,c,data; 


void main(void) 
{ 
 uchar i; 
 TRISC=0Xff;     //C口設為輸入 RC3為SCL線，RC4為SDA線。 
 PORTC=0X00;     
 TRISB=0X00;     //D口為輸出，顯示IC24LC02中讀出的內容 
 PORTB=0X00;     //初始顯示全亮 

 I_send_str(0xa0,0x00,code,2); //頁寫入code數組到24LC02,器件地址為0Xa0,子地址為0X00，共9個數。 
  
 delay_250ms(); 
  

 ///////////開始讀出到D口進行顯示,根據Random read時序圖。 
 while (1) 
  { 
    for (i=0x00;i<0x09;i++) 
     { 
      start_i2c(); 
      send_byte(0xA0);      //發送器件地址，即DEVICE ADDRESS。 
        if (ack==0) i2c_error(); //如果24LC02無應答。則進入I2C ERROR錯誤指示。 
      send_byte(i);         //發送字地址，即WORD ADDRESS。D口顯示數組。 
        if (ack==0) i2c_error(); 
      start_i2c();          //重新啟動總線。 
      send_byte(0xA1);      //發送讀命令和器件地址DEVICE ADDRESS。 
        if (ack==0) i2c_error(); 
      data=receive_byte(); 
      stop_i2c(); 
      PORTB=data; 
      delay_250ms(); 
     } 
  } 
} 


/******************************************************************* 
起動總線函數 
函數原型： void start_i2c(); 
Function: start on the I2C bus 
*******************************************************************/ 
void start_i2c() 
{ 
 SDA=1;       //發送啟始條件的數據信號 
 nop(); 
 SCL=1; 
 nop();nop();nop();nop();nop(); //24LC02要求建立時間大于4，7S 
 SDA=0;                      //發送起始信號 
 nop();nop();nop();nop();nop(); 
 SCL=0;                      //鉗住I2C總線，準備發送數據或接收數據 
 nop();nop(); 
} 


/******************************************************************* 
停止總線函數 
函數原型： void stop_i2c(); 
Function: stop the I2C bus 
*******************************************************************/ 
void stop_i2c() 
{ 
  
 SDA=0; //發送結束條件的數據信號 
 nop(); 
 SCL=1; 
 nop();nop();nop();nop();nop(); 
 SDA=1; 
 nop();nop();nop();nop(); 
} 

/*================================================================= 
字節數據傳送函數 
函數原型： void send_byte(uchar c); 
Function: 將數據C發送出去，可以是地址，也可以是數據，發完后等待回應，并對此狀態 
         位進行操作（不應答或非應答都使ack=0 ），發送數據正常，ack=1;ack=0 
         表示被控器無應答或損壞。 
==================================================================*/ 
void send_byte(uchar c) 
{ 
 uchar bit_count; 
 for (bit_count=0;bit_count<8;bit_count++) 
  { 
   if ((c<<bit_count)&0x80) {SDA=1;} 
   else {SDA=0;} 
   nop(); 
   SCL=1; 
   nop();nop();nop();nop();nop(); 
   SCL=0; 
  } 
  nop();nop(); 
  SDA=1; 
  nop();nop(); 
  SCL=1; 
  nop();nop();nop(); 
  if (RC4==1) ack=0; 
  else ack=1; //用ASK=1為有應答信號 
  SCL=0; 
  nop();nop(); 
} 

/*================================================================== 
字節數據接收函數 
函數原型：uchar receive_byte(); 
FUNCTION: 用來接收從器件傳來的數據，并判斷總線錯誤（不發應答信號）， 
         發完后請用應答函數。 
===================================================================*/ 
uchar receive_byte() 
{ 
  uchar retc,bit_count; 
  retc=0; 
  SDA=1; 
  for (bit_count=0;bit_count<8;bit_count++) 
  { 
     nop(); 
     SCL=0; 
     nop();nop();nop();nop();nop(); 
     SCL=1; 
     nop();nop(); 
     retc=retc<<1; 
     if (RC4==1)  retc=retc+1; 
     nop();nop(); 
   } 
   SCL=0; 
   nop();nop(); 
   return (retc); 
} 


/*================================================================ 
向有子地址器件發送多字節數據函數 
函數原型： bit I_send_str(uchar sla,uchar suba,uchar *s,uchar no); 
Function: 從啟動總線到發送地址，數據，結束總線的全過程，從器件地址sla。如果 
         返回1表示操作成功，否則操作有誤。 
=================================================================*/ 
void I_send_str(uchar sla,uchar suba,uchar *s,uchar no) 
{ 
  uchar i; 
  start_i2c(); 
  send_byte(sla); 
  if (ack==0)  i2c_error(); 
  send_byte(suba); 
  if (ack==0)  i2c_error(); 
  for (i=0;i<no;i++) 
   { 
     send_byte(*s); 
     if (ack==0)  i2c_error(); 
     s++; 
   } 
  stop_i2c(); 
 // return(1); 
} 

/***************************************************************** 
延時函數 
函數原型： void delay_250ms(); 
FUNCTION: 延明250ms 
*****************************************************************/ 
void delay_250ms() 
{ 
 unsigned int d=24999; 
 while (--d); 
} 

/***************************************************************** 
總線錯誤函數 
函數原型：　void i2c_error(); 
Function: 通過RD7閃動8次表示總線操作失敗一次報警。 
*****************************************************************/ 
void i2c_error () 
{ 
 uchar i; 
 for (i=0;i<8;i++) 
 { 
   RB7=0; 
   delay_250ms(); 
   RB7=1; 
   delay_250ms(); 
 } 
  
} 
/**********END**************/