/*
使用者只要根據不同型號IC，確定地址范圍即可
89C51/52    :0x2000～0x2fff
89C54/55/58 :0x8000～0xf3ff
扇區大小512字節，每次讀寫都要控制在同一扇區

以下5個函數選擇使用
字節讀出 uchar byte_read(uint byte_addr)
字節寫入 uchar byte_write(uint addr, uchar wdata)
扇區擦除 sector_erase(uint sector_addr)
數組寫入 uchar array_write(uint begin_addr, uint len, uchar *array)
數組讀出 void array_read(uint begin_addr, uchar len,uchar *array)
*/

#ifndef __STC_EEPROM_H__
#define __STC_EEPROM_H__

#include <intrins.h>

#define	uchar	unsigned char
#define uint	unsigned int

#define EEPROM51 0x2000 
#define EEPROM52 0x2000 
#define EEPROM54 0x8000 
#define EEPROM58 0x8000 


/* --------------- 命令定義 --------------- */
#define ReadCommand		0x01	/* 字節讀 	*/
#define PrgCommand		0x02	/* 字節寫 	*/
#define EraseCommand	0x03	/* 扇區擦除 */

/*----------------定義常量------------------*/
#define Error   1
#define Ok      0

/* 定義Flash對應于20MHz晶振系統的操作等待時間 */
/* 時鐘倍頻時WaitTime用 0x00*/
#define WaitTime	0x01
/* ------------- 定義扇區大小 ------------- */
#define PerSector		512

/* ================ 打開 ISP,IAP 功能 ================= */
void ISP_IAP_enable(void)
{
	EA	=	0;							/* 關中斷 		*/
	ISP_CONTR =	ISP_CONTR & 0x18;       /* 0001,1000	*/
	ISP_CONTR =	ISP_CONTR | WaitTime;	/* 寫入硬件延時	*/
	ISP_CONTR =	ISP_CONTR | 0x80;       /* ISPEN=1		*/
}

/* =============== 關閉 ISP,IAP 功能 ================== */
void ISP_IAP_disable(void)
{
	ISP_CONTR	=	ISP_CONTR & 0x7f;	/* ISPEN = 0 */
	ISP_TRIG	=	0x00;
	EA			=   1;			/* 開中斷 */
}
/* ================ 公用的觸發代碼 ==================== */
void ISPgoon(void)
{
	ISP_IAP_enable();			/* 打開 ISP,IAP 功能	*/
	ISP_TRIG	=	0x46;		/* 觸發ISP_IAP命令字節1	*/
	ISP_TRIG	=	0xb9;		/* 觸發ISP_IAP命令字節2	*/
	_nop_();
}

/* ==================== 字節讀 ======================== */
uchar byte_read(uint byte_addr)
{
	ISP_ADDRH = (uchar)(byte_addr >> 8);	/* 地址賦值	*/
	ISP_ADDRL = (uchar)(byte_addr & 0x00ff);

	ISP_CMD   = ISP_CMD	& 0xf8;			/* 清除低3位 	*/
	ISP_CMD   = ISP_CMD	| ReadCommand;	/* 寫入讀命令	*/

	ISPgoon();							/* 觸發執行		*/
	ISP_IAP_disable();				    /* 關閉ISP,IAP功能	*/

	return (ISP_DATA);				    /* 返回讀到的數據	*/
}

/* ===================== 字節寫 ===================== */
uchar byte_write(uint addr, uchar wdata)
{
	ISP_IAP_enable();					/* 打開IAP功能	*/
	ISP_ADDRH = (uchar)(addr >> 8);
	ISP_ADDRL = (uchar)(addr & 0x00ff);
	ISP_DATA  = wdata;			    	/* 取數據	*/
	ISP_CMD   = ISP_CMD & 0xf8;			/* 清低3位 	*/
	ISP_CMD   = ISP_CMD | PrgCommand;	/* 寫命令2 	*/

	ISP_TRIG  = 0x46;		/* 觸發ISP_IAP命令字節1 */
	ISP_TRIG  = 0xb9;		/* 觸發ISP_IAP命令字節2 */
	_nop_();

	/* 讀回來 */
	ISP_DATA	=	0x00;

	ISP_CMD  = ISP_CMD & 0xf8;			/* 清低3位 	*/
	ISP_CMD  = ISP_CMD | ReadCommand;	/* 讀命令1 	*/

	ISP_TRIG = 0x46;		/* 觸發ISP_IAP命令字節1 */
	ISP_TRIG = 0xb9;		/* 觸發ISP_IAP命令字節2 */
	_nop_();

	/*  比較對錯 */
	if(ISP_DATA != wdata)
	{
		ISP_IAP_disable();
		return Error;
	}	

	ISP_IAP_disable();
	return	Ok;
}


/* ================== 扇區擦除 ======================== */
void sector_erase(uint sector_addr)
{
	uint iSectorAddr;
	iSectorAddr = (sector_addr & 0xfe00); /* 取扇區地址 */
	ISP_ADDRH = (uchar)(iSectorAddr >> 8);
	ISP_ADDRL = 0x00;

	ISP_CMD	= ISP_CMD & 0xf8;			/* 清空低3位 	*/
	ISP_CMD	= ISP_CMD | EraseCommand;	/* 擦除命令3 	*/

	ISPgoon();							/* 觸發執行		*/
	ISP_IAP_disable();				/* 關閉ISP,IAP功能	*/

}

/* ===================== 數組寫入 ===================== */
uchar array_write(uint begin_addr, uint len, uchar *array)
{
	uint	i;
	uint	in_addr;

	/* 判是否是有效范圍,此函數不允許跨扇區操作 */
	if(len > PerSector)
		return Error;
	in_addr = begin_addr & 0x01ff;	 	/* 扇區內偏移量 */
	if((in_addr + len) > PerSector)
		return Error;

	in_addr = begin_addr;
	/* 逐個寫入并校對 */
	ISP_IAP_enable();					/* 打開IAP功能	*/
	for(i = 0; i< len; i++)
	{
		/* 寫一個字節 */
		ISP_ADDRH = (uchar)(in_addr >> 8);
		ISP_ADDRL = (uchar)(in_addr & 0x00ff);
		ISP_DATA  = array[i];				/* 取數據	*/
		ISP_CMD   = ISP_CMD & 0xf8;			/* 清低3位 	*/
		ISP_CMD   = ISP_CMD | PrgCommand;	/* 寫命令2 	*/
		ISP_TRIG  = 0x46;		/* 觸發ISP_IAP命令字節1 */
		ISP_TRIG  = 0xb9;		/* 觸發ISP_IAP命令字節2 */
		_nop_();			  
		/* 讀回來 */
		ISP_DATA	=	0x00; 
		ISP_CMD  = ISP_CMD & 0xf8;			/* 清低3位 	*/
		ISP_CMD  = ISP_CMD | ReadCommand;		/* 讀命令1 	*/

		ISP_TRIG = 0x46;		/* 觸發ISP_IAP命令字節1 */
		ISP_TRIG = 0xb9;		/* 觸發ISP_IAP命令字節2 */
		_nop_();														  
		/*  比較對錯 */
		if(ISP_DATA != array[i])
		{
			ISP_IAP_disable();
			return Error;
		}
		in_addr++;					/* 指向下一個字節	*/
	}
	ISP_IAP_disable();
	return	Ok;
}

/* ========================= 數組讀出 ========================= */
/* 程序對地址沒有作有效性判斷，請調用方事先保證他在規定范圍內	*/
void array_read(uint begin_addr, uchar len,uchar *array)
{
	uint iSectorAddr;
	uint i;
	iSectorAddr = begin_addr;	
	ISP_IAP_enable();
	for(i = 0; i < len; i++)
	{
		ISP_ADDRH =	(uchar)(iSectorAddr >> 8);
		ISP_ADDRL =	(uchar)(iSectorAddr & 0x00ff);
		ISP_CMD  = ISP_CMD	& 0xf8;				/* 清低3位 	*/
		ISP_CMD  = ISP_CMD	| ReadCommand;		/* 讀命令1 	*/
		ISP_DATA = 0;
		ISP_TRIG = 0x46;			/* 觸發ISP_IAP命令字節1 */
		ISP_TRIG = 0xb9;			/* 觸發ISP_IAP命令字節2 */
		_nop_();
		array[i] = ISP_DATA;
		iSectorAddr++;
	}
	ISP_IAP_disable(); /* 關閉IAP功能*/
} 

#endif