#include <reg51.h>
#include <stdio.h>
#include <i2c.h>

#define uchar unsigned char
#define WRITE 0xA0                       /* 定義24C04的器件地址SLA和方向位W */
#define READ 0xA1                        /* 定義24C04的器件地址SLA和方向位R */
#define BLOCK_SIZE 32                    /* 定義指定字節個數 */
#define FALSE 0
#define TRUE ~FALSE

xdata uchar EAROMImage[BLOCK_SIZE];/* 在外部RAM中定義存儲映象單元 */

/****************************************************************************
*    函數原型: bit E_address(uchar Address);
*    功    能: 向24C04寫入器件地址和一個指定的字節地址。
*****************************************************************************/
bit E_address( uchar Address ) {
	I_start() ;
	if ( I_send( WRITE ) )
		return ( I_send( Address ) ) ;
	else
		return ( FALSE ) ;
}

/****************************************************************************
*    函數原型: bit E_read_block(void);
*    功    能: 從24C04中讀取BLOCK_SIZE個字節的數據并轉存于外部RAM存儲映象
*              單元, 采用序列讀操作方式從片內0地址開始連續讀取數據。如果
*              24C04不接受指定的地址則返回0(FALSE)。
*****************************************************************************/
bit E_read_block( void ) {
	uchar i ;
	/* 從地址0開始讀取數據 */
	if ( E_address( 0 ) ) {
		/* 發送重復啟動信號 */
		I_start() ;
		if ( I_send( READ ) ) {
			for ( i=0 ; i<=BLOCK_SIZE ; i++ ) {

				EAROMImage[i] = ( I_receive() ) ;
				if ( i != BLOCK_SIZE ) I_Ack() ;
				else {
					I_clock() ;
					I_stop() ;
				}
			}
			return ( TRUE ) ;
		}
		else {
			I_stop() ;
			return ( FALSE ) ;
		}
	}
	else
		I_stop() ;
		return ( FALSE ) ;
}

/****************************************************************************
*    函數原型: void wait_5ms(void);
*    功    能: 提供5ms延時(時鐘頻率為12MHz)。
*****************************************************************************/
void wait_5ms( void ) {
	int i ;
	for ( i=0 ; i<1000 ; i++ ) {
		;
	}
}

/****************************************************************************
*    函數原型: bit E_write_block(void);
*    功    能: 將外部RAM存儲映象單元中的數據寫入到24C04的頭BLOCK_SIZE個字節。
*              采用字節寫操作方式, 每次寫入時都需要指定片內地址。如果24C04
*              不接受指定的地址或某個傳送的字節未收到應答信號ACK, 則返回0
*              (FALSE)。
*****************************************************************************/
bit E_write_block( void ) {
	uchar i ;
	for ( i=0 ; i<=BLOCK_SIZE ; i++ ) {
		if ( E_address(i) && I_send( EAROMImage[i] ) ) {
			I_stop() ;
			wait_5ms();
		}
		else
			return ( FALSE ) ;
	}
	return ( TRUE ) ;
 }

void  main() {
    SCON = 0x5a;        
    TMOD = 0x20;  
    TCON = 0x69;  
    TH1 =  0xfd; 
	I_init();                         /* I2C 總線初始化 */
	if (E_write_block())
		 printf("write I2C good.\r\n");
	else
		 printf("write I2C bad.\r\n");
	if (E_read_block()) 
		printf("read I2C good.\r\n");
	else
		 printf("read I2C bad.\r\n");
	while(1);
}