24c64 Read and Write Program

#define uchar unsigned char //Define for easy use
#define uint unsigned int
#define ulong unsigned long
#define WriteDeviceAddress 0xa0 //Define the address of the device in the IIC bus
#define ReadDviceAddress 0xa1
sbit SCL=P2^7;
sbit SDA=P2^6;
sbit P20=P2^0;
//Timing function
void DelayMs(unsigned int number)
{
unsigned char temp;
for(;number!=0;number--)
{
for(temp=112;temp!=0;temp--) ;
}
}
//Start bus
void Start()
{
SDA=1;
SCL=1;
SDA=0;
SCL=0;
}
//End bus
void Stop()
{
SCL=0;
SDA=0;
SCL=1;
SDA=1;
}
//Send ACK0
void NoAck()
{
SDA=1;
SCL=1;
SCL=0;
}
//Test ACK
bit TestAck()
{
bit ErrorBit;
SDA=1;
SCL=1;
ErrorBit=SDA;
SCL=0;
return(ErrorBit);
}
//Write 8 bits to 24c02
Write8Bit(unsigned char input)
{
unsigned char temp;
for(temp=8;temp!=0;temp--)
{
SDA=(bit)(input&0x80);
SCL=1;
SCL=0;
input=input<<1;
}
}
//Write a byte to 24c02
void Write24c64(uchar ch,uchar address)
{
Start();
Write8Bit(WriteDeviceAddress);
TestAck();
Write8Bit(address);
TestAck();
Write8Bit(ch);
TestAck();
Stop();
DelayMs(10);
}
//Read 8 bits from 24c02
uchar Read8Bit()
{
unsigned char temp,rbyte=0;
for(temp=8;temp!=0;temp--)
{
SCL=1;
rbyte=rbyte<<1;
rbyte=rbyte|((unsigned char)(SDA));
SCL=0;
}
return(rbyte);
}
//Read 1 byte from 24c02
uchar Read24c64(uchar address)
{
uchar ch;
Start();
Write8Bit(WriteDeviceAddress);
TestAck();
Write8Bit(address);
TestAck();
Start();
Write8Bit(ReadDviceAddress);
TestAck();
ch=Read8Bit();
NoAck();
Stop();
return(ch);
}
//This lesson tests writing a byte to 24c02 and reading it out for verification
void main(void) // Main program
{
uchar c1;
uchar address =  0x01;
for ( address =  0x01;address<0xff;address++)
{
Write24c64(0x00,address); // Write 0x88 to the second address space of 24c02
c1=Read24c64(address);
}
P20=0;
while(1); // Program hangs
}