#include <reg51.H>
#include <intrins.H>

typedef unsigned char  INT8U;
typedef unsigned int   INT16U;

sbit on=P3^5;
sbit led=P3^7;
sfr IAP_DATA    = 0xC2;
sfr IAP_ADDRH   = 0xC3;
sfr IAP_ADDRL   = 0xC4;
sfr IAP_CMD     = 0xC5;
sfr IAP_TRIG    = 0xC6;
sfr IAP_CONTR   = 0xC7;

//定義Flash 操作等待時間及允許IAP/ISP/EEPROM 操作的常數
//#define ENABLE_ISP 0x80 //系統工作時鐘<30MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x81 //系統工作時鐘<24MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x82 //系統工作時鐘<20MHz 時，對IAP_CONTR 寄存器設置此值
#define ENABLE_ISP 0x83 //系統工作時鐘<12MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x84 //系統工作時鐘<6MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x85 //系統工作時鐘<3MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x86 //系統工作時鐘<2MHz 時，對IAP_CONTR 寄存器設置此值
//#define ENABLE_ISP 0x87 //系統工作時鐘<1MHz 時，對IAP_CONTR 寄存器設置此值

#define DEBUG_DATA               0xaa  //本測試程序最終存儲在 EEPROM 單元的數值
#define DATA_FLASH_START_ADDRESS 0x00  //STC5Axx 系列 EEPROM 測試起始地址

union union_temp16
{
    INT16U un_temp16;
    INT8U  un_temp8[2];
}my_unTemp16;

INT8U Byte_Read(INT16U add);              //讀一字節，調用前需打開IAP 功能
void Byte_Program(INT16U add, INT8U ch);  //字節編程，調用前需打開IAP 功能
void Sector_Erase(INT16U add);            //擦除扇區
void IAP_Disable();                       //關閉IAP 功能

void main (void)
{
    INT16U eeprom_address;
    INT8U  read_eeprom;

                              
    //將EEPROM 測試起始地址單元的內容讀出
    eeprom_address = DATA_FLASH_START_ADDRESS;  //將測試起始地址送eeprom_address
    read_eeprom = Byte_Read(eeprom_address);    //讀EEPROM的值,存到read_eeprom
	
	if (on==0) 
		{
			Sector_Erase(eeprom_address);
			Byte_Program(eeprom_address, DEBUG_DATA);
		}
	read_eeprom = Byte_Read(eeprom_address);    //讀EEPROM的值,存到read_eeprom
	  





    while (1)
	{
			if(read_eeprom==DEBUG_DATA) led=0;	
	}                      //CPU 在此無限循環執行此句
}

//讀一字節，調用前需打開IAP 功能，入口:DPTR = 字節地址，返回:A = 讀出字節
INT8U Byte_Read(INT16U add)
{
    IAP_DATA = 0x00;
    IAP_CONTR = ENABLE_ISP;         //打開IAP 功能, 設置Flash 操作等待時間
    IAP_CMD = 0x01;                 //IAP/ISP/EEPROM 字節讀命令

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設置目標單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設置目標單元地址的低8 位地址

    //EA = 0;
    IAP_TRIG = 0x5A;   //先送 5Ah,再送A5h 到ISP/IAP 觸發寄存器,每次都需如此
    IAP_TRIG = 0xA5;   //送完A5h 后，ISP/IAP 命令立即被觸發起動
    _nop_();
    //EA = 1;
    IAP_Disable();  //關閉IAP 功能, 清相關的特殊功能寄存器,使CPU 處于安全狀態,
                    //一次連續的IAP 操作完成之后建議關閉IAP 功能,不需要每次都關
    return (IAP_DATA);
}

//字節編程，調用前需打開IAP 功能，入口:DPTR = 字節地址, A= 須編程字節的數據
void Byte_Program(INT16U add, INT8U ch)
{
    IAP_CONTR = ENABLE_ISP;         //打開 IAP 功能, 設置Flash 操作等待時間
    IAP_CMD = 0x02;                 //IAP/ISP/EEPROM 字節編程命令

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設置目標單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設置目標單元地址的低8 位地址

    IAP_DATA = ch;                  //要編程的數據先送進IAP_DATA 寄存器
    //EA = 0;
    IAP_TRIG = 0x5A;   //先送 5Ah,再送A5h 到ISP/IAP 觸發寄存器,每次都需如此
    IAP_TRIG = 0xA5;   //送完A5h 后，ISP/IAP 命令立即被觸發起動
    _nop_();
    //EA = 1;
    IAP_Disable();  //關閉IAP 功能, 清相關的特殊功能寄存器,使CPU 處于安全狀態,
                    //一次連續的IAP 操作完成之后建議關閉IAP 功能,不需要每次都關
}

//擦除扇區, 入口:DPTR = 扇區地址
void Sector_Erase(INT16U add)
{
    IAP_CONTR = ENABLE_ISP;         //打開IAP 功能, 設置Flash 操作等待時間
    IAP_CMD = 0x03;                 //IAP/ISP/EEPROM 扇區擦除命令

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設置目標單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設置目標單元地址的低8 位地址

    //EA = 0;
    IAP_TRIG = 0x5A;   //先送 5Ah,再送A5h 到ISP/IAP 觸發寄存器,每次都需如此
    IAP_TRIG = 0xA5;   //送完A5h 后，ISP/IAP 命令立即被觸發起動
    _nop_();
    //EA = 1;
    IAP_Disable();  //關閉IAP 功能, 清相關的特殊功能寄存器,使CPU 處于安全狀態,
                    //一次連續的IAP 操作完成之后建議關閉IAP 功能,不需要每次都關
}

void IAP_Disable()
{
    //關閉IAP 功能, 清相關的特殊功能寄存器,使CPU 處于安全狀態,
    //一次連續的IAP 操作完成之后建議關閉IAP 功能,不需要每次都關
    IAP_CONTR = 0;      //關閉IAP 功能
    IAP_CMD   = 0;      //清命令寄存器,使命令寄存器無命令,此句可不用
    IAP_TRIG  = 0;      //清命令觸發寄存器,使命令觸發寄存器無觸發,此句可不用
    IAP_ADDRH = 0;
    IAP_ADDRL = 0;
}