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

STC12C5AxxAD 系列單片機 EEPROM/IAP 功能測試程序演示
STC12C52xxAD 系列單片機 EEPROM/IAP 功能測試程序演示
STC11xx 系列單片機 EEPROM/IAP 功能測試程序演示
STC10xx 系列單片機 EEPROM/IAP 功能測試程序演示
 --- STC International Limited ------------------
 --- 宏晶科技  設計 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 的數據
在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 操作的常數
//#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               0x5A  //本測試程序最終存儲在 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 Delay();

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

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

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

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

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

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

    while (1);                      //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;
}

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