// Define Port
sbit SDA = P1^0;
sbit SCL = P1^2;
sbit LED_R = P2^0; //LED red

// Define Register
unsigned char dat_buff[8];
bit check_wr = 0;

// Function
void init (void)
{
SCON = 0x52;
TMOD = 0x20;
TH1 = 0xfd;
TR1 = 1;

P2 = 0xff;
RST = 0;
SCL = 0;
SDA = 1;
}

void delay (void)
{
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
}

void c_high (void)
{
SCL = 1;
delay();
}

void c_low (void)
{
SCL = 0;
delay();
}

void start_i2c (void)
{
SDA = 1;
c_high();
SDA = 0;
delay();
c_low();
}

void stop_i2c (void)
{
SDA = 0;
c_high();
SDA = 1;
}

bit wr_byte (unsigned char x) // Write 1 Byte
{ unsigned char i;
bit outport;
for (i=1;i<=8;i++)
{
outport = x & 0x80; //0x80 = 10000000B
SDA = outport;
x = x<<1;
c_high();
c_low();
}
SDA = 1;
c_high();
outport = SDA; // Check ACK
c_low();
if (outport == 1)
LED_R = 0;// LED red
else
check_wr = 1;
}

unsigned char rd_byte () // Read 1 Byte
{
unsigned char i,dat ;
bit inport;
dat = 0;
SDA = 1; // Important if SDA not set can read 1 byte only !!!
for (i=1;i<=8;i++)
{
c_high();
inport = SDA;
dat = dat<<1;
dat = dat|inport;
c_low();
}
return(dat);
}

// Send ACK
void ack (void)
{
SDA = 0;
_nop_();
c_high();
c_low();

}

// Clear Buffer
void clr_buff (void)
{
unsigned char i;
for (i=1;i<=8;i++)
dat_buff[i] = 0;
}

void delay_s (unsigned int count)
{
unsigned char i;
while (count)
{ for (i=0;i<=255;i++);
count--;}
}

//**************MAIN******************//
void main (void)
{
unsigned char i,j,k;
init();

printf("\nTest 24LCXX Write\n");
start_i2c();
wr_byte(0xa0); //Send write
wr_byte(0x00); //Send address

for (i=1;i<=16;i++)
{
wr_byte(i);
}
stop_i2c();
if (check_wr == 1)
printf("Write OK\n\n");
else
{printf("Write error!!!\n");}

init();
printf("\nTest 24LCXX Read");
start_i2c();
wr_byte(0xa0); //Send write
wr_byte(0x00); //Send address
start_i2c(); //Start again
wr_byte(0xa1); //Send read

for (j=1;j<=8;j++)
{
printf("\n");
for (k=1;k<=8;k++)
{
printf("%02bX ",rd_byte());
ack();
}
}
stop_i2c();

while(1);

}