/*
  --- STC International Limited ----------------
一個完整的EEPROM 測試程序，用宏晶的下載板可以直接測試

STC12C5AxxAD 系列單片機(jī) EEPROM/IAP 功能測試程序演示
STC12C52xxAD 系列單片機(jī) EEPROM/IAP 功能測試程序演示
STC11xx 系列單片機(jī) EEPROM/IAP 功能測試程序演示
STC10xx 系列單片機(jī) EEPROM/IAP 功能測試程序演示
--- STC International Limited ------------------
--- 宏晶科技  設(shè)計 2009/1/12 V1.0 --------------
--- Mobile: 13922805190 ------------------------
--- Fax: 0755-82944243 -------------------------
--- Tel: 0755-82948412 -------------------------
--- Web: www.MCU-Memory.com --------------------
本演示程序在STC-ISP Ver 3.0A.PCB 的下載編程工具上測試通過,EEPROM 的數(shù)據(jù)
在P1 口上顯示, 如果要在程序中使用或在文章中引用該程序,請在程序中或文章中
注明使用了宏晶科技的資料及程序
*/

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

typedef unsigned char  INT8U;
typedef unsigned int   INT16U;

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 操作的常數(shù)
//#define ENABLE_ISP 0x80 //系統(tǒng)工作時鐘<30MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x81 //系統(tǒng)工作時鐘<24MHz 時，對IAP_CONTR 寄存器設(shè)置此值
#define ENABLE_ISP 0x82 //系統(tǒng)工作時鐘<20MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x83 //系統(tǒng)工作時鐘<12MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x84 //系統(tǒng)工作時鐘<6MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x85 //系統(tǒng)工作時鐘<3MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x86 //系統(tǒng)工作時鐘<2MHz 時，對IAP_CONTR 寄存器設(shè)置此值
//#define ENABLE_ISP 0x87 //系統(tǒng)工作時鐘<1MHz 時，對IAP_CONTR 寄存器設(shè)置此值

#define DEBUG_DATA               0x5A  //本測試程序最終存儲在 EEPROM 單元的數(shù)值
#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);              //讀一字節(jié)，調(diào)用前需打開IAP 功能
void Byte_Program(INT16U add, INT8U ch);  //字節(jié)編程，調(diào)用前需打開IAP 功能
void Sector_Erase(INT16U add);            //擦除扇區(qū)
void IAP_Disable();                       //關(guān)閉IAP 功能
void Delay();

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

    P1 = 0xF0;                            //演示程序開始，讓 P1[3:0] 控制的燈亮
    Delay();                              //延時
    P1 = 0x0F;                            //演示程序開始，讓 P1[7:4] 控制的燈亮
    Delay()    ;                          //延時

    //將EEPROM 測試起始地址單元的內(nèi)容讀出
    eeprom_address = DATA_FLASH_START_ADDRESS;  //將測試起始地址送eeprom_address
    read_eeprom = Byte_Read(eeprom_address);    //讀EEPROM的值,存到read_eeprom

    if (DEBUG_DATA == read_eeprom)
    {   //數(shù)據(jù)是對的，亮  P1.7 控制的燈，然后在 P1 口上將 EEPROM 的數(shù)據(jù)顯示出來
        P1 = ~0x80;
        Delay()    ;                            //延時
        P1 = ~read_eeprom;
    }
    else
    {   //數(shù)據(jù)是錯的，亮 P1.3 控制的燈，然后在 P1 口上將 EEPROM 的數(shù)據(jù)顯示出來
        //再將該EEPROM所在的扇區(qū)整個擦除，將正確的數(shù)據(jù)寫入后，亮 P1.5 控制的燈
        P1 = ~0x08;
        Delay()    ;                            //延時
        P1 = ~read_eeprom;
        Delay()    ;                            //延時

        Sector_Erase(eeprom_address);           //擦除整個扇區(qū)
        Byte_Program(eeprom_address, DEBUG_DATA);//將 DEBUG_DATA 寫入 EEPROM

        P1 = ~0x20;                 //熄滅 P1.3 控制的燈，亮 P1.5 控制的燈
    }

    while (1);                      //CPU 在此無限循環(huán)執(zhí)行此句
}

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

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設(shè)置目標(biāo)單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設(shè)置目標(biāo)單元地址的低8 位地址

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

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

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設(shè)置目標(biāo)單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設(shè)置目標(biāo)單元地址的低8 位地址

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

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

    my_unTemp16.un_temp16 = add;
    IAP_ADDRH = my_unTemp16.un_temp8[0];    //設(shè)置目標(biāo)單元地址的高8 位地址
    IAP_ADDRL = my_unTemp16.un_temp8[1];    //設(shè)置目標(biāo)單元地址的低8 位地址

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

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

void Delay()
{
    INT8U i;
    INT16U d=5000;
    while (d--)
    {
        i=255;
        while (i--);
    }