flash.c

一款收款机C源代码！因为是几年前的代码了

/***********************************************************************************
* 									Flash.c
*
* Copyright (c) 2003,深圳xx有限公司税控产品事业部
* All rights reserved.
*
* 文件名称：	Flash.c
* 文件标识：
* 摘要：		符合新国标的税控收款机程序
*
* 当前版本： 1.00
* 作者： 	陈华海
* 开始日期： 2003.8
* 说明：		开发中...
*			MX29F080, 64K/sector * 16 = 1M byte.
***********************************************************************************/
#include "ecrsys.h"
#include "ftype.h"
#include "sysdata.h"
#include "data.h"
#include "keydef.h"
#include <string.h>

// Flash写/擦除操作时,降低MCU总线速度(插入多个等待),操作完成后,恢复原设置.
static byte bkWcr;
#if 0
#define	MCU_RUN_SLOW()			{bkWcr = wcr; wcr = 0x69;}
#define	MCU_RUN_RESUME()		{wcr = bkWcr;}
#else
#define	MCU_RUN_SLOW()
#define	MCU_RUN_RESUME()
#endif

//#define	MCU_RUN_SLOW()			{}
//#define	MCU_RUN_RESUME()		{}

/*
// may be use following when Program & Data all in one chip
Fls_ProtectSectorGroup
Fls_ProtectVerify
Fls_UnProtectChip
*/

//#define		FLS_BASE_ADDR		0x200000			// Flash 29F080 base address

//#define		FLS_READY			p7_4				// 程序存储器(U8),在线升级或调试时作为CS2选中.
//#define		FLS_READY_DIR		pd7_4

#define		FLS_READY			p10_7				// 数据存储器(U7),在线升级或调试时挂起.
#define		FLS_READY_DIR		pd10_7

#define		FLS_READY_PULLUP	pur2				// 端口上拉,含P7和P10.

#define		EXCEED_TIME		0xff

//extern volatile dword g_sysCount;

void Fls_Inital(void);
byte Fls_WriteStr(byte *dst, byte *src, word len);
byte *Fls_ReadStr(byte *dst, byte *src, word len);
byte Fls_ChipErase(void);
byte Fls_SectorErase(byte idx);

void Fls_Reset(void);
byte Fls_ChkStatus(byte flag);
byte Fls_ReadByte(dword addr);
byte Fls_WriteByte(byte *dst, byte value);

#define	Fls_WriteStrUart(str, len)		Wr_Str_Uart(PORT1, str, len)

/********************************************************************************
* 函数说明：	reset flash 29F080
* 输入参数：	void
* 输出参数：	void
* 返回值：	OK / EXCEED_TIME / ...
********************************************************************************/
void Fls_Reset(void)
{
	*((byte *)FLS_BASE_ADDR) = 0xF0;
}

/********************************************************************************
* 函数说明：	inital flash 29F080
* 输入参数：	void
* 输出参数：	void
* 返回值：	OK / EXCEED_TIME / ...
********************************************************************************/
void Fls_Inital(void)
{
	FLS_READY_DIR = 0;
	FLS_READY_PULLUP = 0xff;
	Fls_Reset();
}

/********************************************************************************
* 函数说明：	Toggle Flash 29F080 status
* 输入参数：	void
* 输出参数：	void
* 返回值：	OK / EXCEED_TIME / ...
********************************************************************************/
byte Fls_ChkStatus(byte flag)
{
	byte i;
	g_sysCount = 10000;
	//g_sysCount = 1000;

	for (i=0; i<10; i++);
	while (1)
	{
		if (FLS_READY == 1)
		{
			return OK;
		}
		if (g_sysCount <= 5)
		{
			return NG;
		}
	}
	return NG;
}

/********************************************************************************
* 函数说明：	Read ID
* 输入参数：	void
* 输出参数：	*id
* 返回值：	OK / NG
********************************************************************************/
byte Fls_ReadId(word *id)
{
	byte *ptr;
	byte id1, id2;

	ptr = (byte *)FLS_BASE_ADDR;
	*(ptr + 0x555) = 0xaa;
	*(ptr + 0x2aa) = 0x55;
	*(ptr + 0x555) = 0x90;
	id1 = *(ptr+0);
	id2 = *(ptr+1);
	*id = id1 * 0x100 + id2;
	return OK;
}

/********************************************************************************
* 函数说明：	Read one byte from Flash 29F080. we can not use this function
* 输入参数：	addr
* 输出参数：	void
* 返回值：	data in defined address
********************************************************************************/
byte Fls_ReadByte(dword addr)
{
	return *((byte *)addr);
}

/********************************************************************************
* 函数说明：	Read one string from Flash 29F080. we can use memcpy() to 
*			finish same task.
* 输入参数：	*dst, *src, len
* 输出参数：	void
* 返回值：	*dst
********************************************************************************/
byte *Fls_ReadStr(byte *dst, byte *src, word len)
{
	memcpy(dst, src, len);
	return dst;
}

/********************************************************************************
* 函数说明：	Write one byte to Flash 29F080.
* 输入参数：	dst, data
* 输出参数：	void
* 返回值：	OK / NG
********************************************************************************/
byte Fls_WriteByte(byte *dst, byte value)
{
	byte *ptr;
	byte i;
	byte error;

//	Uart_Wait_Stop();
	MCU_RUN_SLOW();
	for (i=0; i<3; i++)
	{
		ptr = (byte *)FLS_BASE_ADDR;
		*(ptr + 0x555) = 0xaa;
		*(ptr + 0x2aa) = 0x55;
		*(ptr + 0x555) = 0xa0;
		*dst  = value;
		error = Fls_ChkStatus(0);
		if (error == OK)
		{
			if (*dst == value)
			{
				MCU_RUN_RESUME();
				return OK;
			}
		}
		else if (error == EXCEED_TIME)
		{
			Fls_Reset();
		}
	}
	MCU_RUN_RESUME();
	return NG;
}

/********************************************************************************
* 函数说明：	Write one string to Flash 29F080.
* 输入参数：	addr, data
* 输出参数：	void
* 返回值：	OK / NG
********************************************************************************/
byte Fls_WriteStr(byte *dst, byte *src, word len)
{
	for (; len > 0; len--)
	{
		if (Fls_WriteByte(dst, *src) != OK)
		{
			return NG;
		}
		dst++;
		src++;
	}
	return OK;
}

/********************************************************************************
* 函数说明：	Erase all chip
* 输入参数：	void
* 输出参数：	void
* 返回值：	OK / EXCEED_TIME / ...
********************************************************************************/
byte Fls_ChipErase(void)
{
	byte *ptr;
	byte i,j;
	byte error;

	MCU_RUN_SLOW();
	for (i=0; i<3; i++)
	{
		ptr = (byte *)FLS_BASE_ADDR;
		disint();
		*(ptr + 0x555) = 0xaa;
		*(ptr + 0x2aa) = 0x55;
		*(ptr + 0x555) = 0x80;
		*(ptr + 0x555) = 0xaa;
		*(ptr + 0x2aa) = 0x55;
		*(ptr + 0x555) = 0x10;
		enint();
		for (j=0; j<200; j++);
		for (j=0; j<200; j++);
		for (j=0; j<200; j++);
		error = Fls_ChkStatus(0);
		if (error == OK)
		{
			MCU_RUN_RESUME();
			return OK;
		}
		else if (error == EXCEED_TIME)
		{
			Fls_Reset();
		}
	}
	MCU_RUN_RESUME();
	return NG;
}

/********************************************************************************
* 函数说明：	Erase defined sector
* 输入参数：	void
* 输出参数：	void
* 返回值：	OK / EXCEED_TIME / ...
********************************************************************************/
byte Fls_SectorErase(byte idx)
{
	byte *ptr;
	byte i;
	byte error;
	byte j;

	MCU_RUN_SLOW();
	for (i=0; i<3; i++)
	{
		ptr = (byte *)FLS_BASE_ADDR;
		*(ptr + 0x555) = 0xaa;
		*(ptr + 0x2aa) = 0x55;
		*(ptr + 0x555) = 0x80;
		*(ptr + 0x555) = 0xaa;
		*(ptr + 0x2aa) = 0x55;
		*(ptr + ((dword)idx << 16)) = 0x30;
		for (j=0; j<100; j++);
		error = Fls_ChkStatus(0);
		if (error == OK)
		{
			MCU_RUN_RESUME();
			return OK;
		}
		else if (error == EXCEED_TIME)
		{
			Fls_Reset();
		}
	}
	MCU_RUN_RESUME();
	return NG;
}

/********************************************************************************
* 函数说明：	flash 29F080 QC Test function
* 输入参数：	flag -- 0 means part check, 1 means all check.
* 输出参数：	void
* 返回值：	OK / NG
********************************************************************************/
#define		FLS_TEST_DATA_EX	55
byte Fls_Test(byte flag)
{
	byte *Address, tmpchar; 
	dword i;
	dword maxAddr, startAddr;
	long cnt;
	word j, k;
	byte temp[10];
	byte readChar;
	byte tmp[100];
	
	Fls_Inital();
	Fls_WriteStrUart("Erase...",8);
	Clr_Dsp_Data();
	disp_Char_Str("ERS-------",0);
//	Delay(100);

	if (flag == 0)
	{
		startAddr = 0x100000 - 0x10000;
		maxAddr = 0x100000;
		if (Fls_SectorErase(15) != OK)
		{
			Fls_WriteStrUart("Erase ER",8);
			Clr_Dsp_Data();
			disp_Char_Str("ERS-----ER",0);
			Delay(100);
			return NG;
		}
	}
	else
	{
		startAddr = 0;
		maxAddr = 0x100000;
		if (Fls_ChipErase() != OK)
		{
			Fls_WriteStrUart("Erase ER",8);
			Clr_Dsp_Data();
			disp_Char_Str("ERS-----ER",0);
			Delay(100);
			return NG;
		}
	}

	Fls_WriteStrUart("Write Flash",11);
//	Fls_WriteStrUart("...00%",6);
	Clr_Dsp_Data();
	disp_Char_Str("WRT-------",0);

	Address = (byte *)(FLS_BASE_ADDR+startAddr);
	j = 0;
	for (i=startAddr; i < maxAddr; i++,Address++)
    {
		tmpchar = (char)(i & 0xff) + (char)((i >> 8) & 0xff) + (char)((i >> 16) & 0xff);
		if (Fls_WriteByte(Address, (byte)(tmpchar+FLS_TEST_DATA_EX)) != OK)
		{
			Fls_WriteStrUart("Write Error",11);
			Clr_Dsp_Data();
			disp_Char_Str("WRT-----ER",0);
			Delay(100);
			return NG;
		}
//		if ((i % 0x1000) == 0)
//		{
//			Comm_AskWait();
//		}

//		k = (word)((i * 100) / 0x100000);
//		if (k > j)
//		{
//			j = k;
//			temp[0] = '.';
//			temp[1] = '.';
//			temp[2] = '.';
//			temp[3] = (byte)(j / 10 + 0x30);
//			temp[4] = (byte)(j % 10 + 0x30);
//			temp[5] = '%';
//			Fls_WriteStrUart(temp, 6);
//		}
    }

	Fls_WriteStrUart("Read Flash",10);
//	Fls_WriteStrUart("...00%",6);
	Clr_Dsp_Data();
	disp_Char_Str("RD--------",0);
	cnt = 0;

	Address = (byte *)(FLS_BASE_ADDR+startAddr);
	j = 0;
	for (i=startAddr; i < maxAddr; i++,Address++)
    {
//		k = (word)((i * 100) / 0x100000);
//		if (k > j)
//		{
//			j = k;
//			temp[0] = '.';
//			temp[1] = '.';
//			temp[2] = '.';
//			temp[3] = (byte)(j / 10 + 0x30);
//			temp[4] = (byte)(j % 10 + 0x30);
//			temp[5] = '%';
//			Fls_WriteStrUart(temp, 6);
//		}
//		if ((i % 0x1000) == 0)
//		{
//			Comm_AskWait();
//		}
		tmpchar = (char)(i & 0xff) + (char)((i >> 8) & 0xff) + (char)((i >> 16) & 0xff);
		if (Fls_ReadByte((dword)Address) == (byte)(tmpchar+FLS_TEST_DATA_EX))
		{
			continue;
		}
		else
		{
//			Fls_WriteStrUart((byte *)&i,4);
//			Fls_WriteStrUart("addr Err",8);
			cnt++;
			break;
		}
    }
		    
	if (!cnt)
	{
		Fls_WriteStrUart("Flash test Success",18);
		if (flag == 0)
		{
			if (Fls_SectorErase(15) != OK)
			{
				return NG;
			}
		}
		else
		{
			if (Fls_ChipErase() != OK)
			{
				return NG;
			}
		}
		return OK;
	}
	else
	{
		Fls_WriteStrUart("Flash test failure",18);
		return NG;
	}
}