#include	"stc15.h"
#include	"intrins.h"
/*sfr IAP_DATA = 0xC2;
sfr IAP_ADDRH = 0xC3;
sfr IAP_ADDRL = 0xC4;
sfr IAP_CMD = 0xC5;
sfr IAP_TRIG = 0xC6;
sfr IAP_CONTR = 0xC7;*/
typedef unsigned char u8;
typedef unsigned int u16;
#define CMD_IDLE 0    //命令读，写，檫除
#define CMD_READ 1
#define CMD_PROGRAM 2
#define CMD_ERASE 3

#define ENABLE_IAP 0x82   // SYSCLK<20MHz     83 SYSCLK<=12Mhz
#define IAP_ADDRESS 0xF000 //第121扇区起始地址

void delay(u16 n)
{
 do
	{
	delay_us(900); 
  }
	while(--n);
}

//关闭iap
void IapIdle()
{
	IAP_CONTR = 0;    //关闭IAP功能
	IAP_CMD = 0;    //清楚命令寄存器
	IAP_TRIG = 0;    //清除触发寄存器
	IAP_ADDRH = 0x80;    //将地址设置到非IAP区
	IAP_ADDRL = 0;
}
 //扇区檫除
void IapESector(u16 addr)
{
	IAP_CONTR = ENABLE_IAP; //使能IAP
	IAP_CMD = CMD_ERASE;    //设置命令
	IAP_ADDRL = addr;    //设置地址
	IAP_ADDRH = addr>>8;
	IAP_TRIG = 0x5a;        //触发命令
	IAP_TRIG = 0xa5;
	_nop_();                //等待完成
	IapIdle();            //关闭IAP
}

//写一字节
void IapProgramByte(u16 addr, u8 dat)
{
	IAP_CONTR = ENABLE_IAP;    //使能IAP
	IAP_CMD = CMD_PROGRAM;    //设置命令
	IAP_ADDRL = addr;        //设置地址
	IAP_ADDRH = addr>>8;
	IAP_DATA = dat;        //写数据
	IAP_TRIG = 0x5a;        //触发
	IAP_TRIG = 0xa5;
	_nop_();
	IapIdle();
}

//读一字节
u8 IapReadByte(u16 addr)
{
	u16 dat;
	IAP_CONTR = ENABLE_IAP;    //使能IAP
	IAP_CMD = CMD_READ;        //设置命令
	IAP_ADDRL = addr;            //设置地址
	IAP_ADDRH = addr>>8;
	IAP_TRIG = 0x5a;            //触发
	IAP_TRIG = 0xa5; 
	_nop_();
	dat = IAP_DATA;            //读数据
	IapIdle();
	return dat;
}

//写数据
u8 EEPROM_Write()
{
	u16 i;

	IapESector(IAP_ADDRESS); //檫除
	for(i=0; i<512; i++){       //判断是否檫除成功
		if(IapReadByte(IAP_ADDRESS+i)!=0xff)
			return 0;
	}
	delay(10);
	for(i=0; i<512; i++){
		IapProgramByte(IAP_ADDRESS+i, (u8)i );//写入数据
	}
    delay(10);
    return 1;
}

//读
u8 EEPROM_Read()
{
	u16 i;

	for(i=0; i<512; i++){       //判断是否檫除成功
		if(IapReadByte(IAP_ADDRESS+i)!=(u8)i) //读出后校验是否正确
			return 0;
	}
    delay(10);
    return 1;
}