[J-u-boot.git] / board / atmel / at91rm9200dk / flash.c

/*
 * (C) Copyright 2002
 * Lineo, Inc. <www.lineo.com>
 * Bernhard Kuhn <[email protected]>
 *
 * (C) Copyright 2002
 * Sysgo Real-Time Solutions, GmbH <www.elinos.com>
 * Alex Zuepke <[email protected]>
 *
 * See file CREDITS for list of people who contributed to this
 * project.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA 02111-1307 USA
 */

#include <common.h>

ulong myflush(void);


/* Flash Organization Structure */
typedef struct OrgDef
{
	unsigned int sector_number;
	unsigned int sector_size;
} OrgDef;


/* Flash Organizations */
OrgDef OrgAT49BV16x4[] =
{
	{  8,  8*1024 },	/*   8 *  8 kBytes sectors */
	{  2, 32*1024 },	/*   2 * 32 kBytes sectors */
	{ 30, 64*1024 },	/*  30 * 64 kBytes sectors */
};

OrgDef OrgAT49BV16x4A[] =
{
	{  8,  8*1024 },	/*   8 *  8 kBytes sectors */
	{ 31, 64*1024 },	/*  31 * 64 kBytes sectors */
};

OrgDef OrgAT49BV6416[] =
{
	{   8,  8*1024 },	/*   8 *  8 kBytes sectors */
	{ 127, 64*1024 },	/* 127 * 64 kBytes sectors */
};

flash_info_t    flash_info[CONFIG_SYS_MAX_FLASH_BANKS];

/* AT49BV1614A Codes */
#define FLASH_CODE1		0xAA
#define FLASH_CODE2		0x55
#define ID_IN_CODE		0x90
#define ID_OUT_CODE		0xF0


#define CMD_READ_ARRAY		0x00F0
#define CMD_UNLOCK1		0x00AA
#define CMD_UNLOCK2		0x0055
#define CMD_ERASE_SETUP		0x0080
#define CMD_ERASE_CONFIRM	0x0030
#define CMD_PROGRAM		0x00A0
#define CMD_UNLOCK_BYPASS	0x0020
#define CMD_SECTOR_UNLOCK	0x0070

#define MEM_FLASH_ADDR1		(*(volatile u16 *)(CONFIG_SYS_FLASH_BASE + (0x00005555<<1)))
#define MEM_FLASH_ADDR2		(*(volatile u16 *)(CONFIG_SYS_FLASH_BASE + (0x00002AAA<<1)))

#define BIT_ERASE_DONE		0x0080
#define BIT_RDY_MASK		0x0080
#define BIT_PROGRAM_ERROR	0x0020
#define BIT_TIMEOUT		0x80000000 /* our flag */

#define READY 1
#define ERR   2
#define TMO   4

/*-----------------------------------------------------------------------
 */
void flash_identification (flash_info_t * info)
{
	volatile u16 manuf_code, device_code, add_device_code;

	MEM_FLASH_ADDR1 = FLASH_CODE1;
	MEM_FLASH_ADDR2 = FLASH_CODE2;
	MEM_FLASH_ADDR1 = ID_IN_CODE;

	manuf_code = *(volatile u16 *) CONFIG_SYS_FLASH_BASE;
	device_code = *(volatile u16 *) (CONFIG_SYS_FLASH_BASE + 2);
	add_device_code = *(volatile u16 *) (CONFIG_SYS_FLASH_BASE + (3 << 1));

	MEM_FLASH_ADDR1 = FLASH_CODE1;
	MEM_FLASH_ADDR2 = FLASH_CODE2;
	MEM_FLASH_ADDR1 = ID_OUT_CODE;

	/* Vendor type */
	info->flash_id = ATM_MANUFACT & FLASH_VENDMASK;
	printf ("Atmel: ");

	if ((device_code & FLASH_TYPEMASK) == (ATM_ID_BV1614 & FLASH_TYPEMASK)) {

		if ((add_device_code & FLASH_TYPEMASK) ==
			(ATM_ID_BV1614A & FLASH_TYPEMASK)) {
			info->flash_id |= ATM_ID_BV1614A & FLASH_TYPEMASK;
			printf ("AT49BV1614A (16Mbit)\n");
		} else {				/* AT49BV1614 Flash */
			info->flash_id |= ATM_ID_BV1614 & FLASH_TYPEMASK;
			printf ("AT49BV1614 (16Mbit)\n");
		}

	} else if ((device_code & FLASH_TYPEMASK) == (ATM_ID_BV6416 & FLASH_TYPEMASK)) {
		info->flash_id |= ATM_ID_BV6416 & FLASH_TYPEMASK;
		printf ("AT49BV6416 (64Mbit)\n");
	}
}

ushort flash_number_sector(OrgDef *pOrgDef, unsigned int nb_blocks)
{
	int i, nb_sectors = 0;

	for (i=0; i<nb_blocks; i++){
		nb_sectors += pOrgDef[i].sector_number;
	}

	return nb_sectors;
}

void flash_unlock_sector(flash_info_t * info, unsigned int sector)
{
	volatile u16 *addr = (volatile u16 *) (info->start[sector]);

	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	*addr = CMD_SECTOR_UNLOCK;
}


ulong flash_init (void)
{
	int i, j, k;
	unsigned int flash_nb_blocks, sector;
	unsigned int start_address;
	OrgDef *pOrgDef;

	ulong size = 0;

	for (i = 0; i < CONFIG_SYS_MAX_FLASH_BANKS; i++) {
		ulong flashbase = 0;

		flash_identification (&flash_info[i]);

		if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
			(ATM_ID_BV1614 & FLASH_TYPEMASK)) {

			pOrgDef = OrgAT49BV16x4;
			flash_nb_blocks = sizeof (OrgAT49BV16x4) / sizeof (OrgDef);
		} else if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
			(ATM_ID_BV1614A & FLASH_TYPEMASK)){	/* AT49BV1614A Flash */

			pOrgDef = OrgAT49BV16x4A;
			flash_nb_blocks = sizeof (OrgAT49BV16x4A) / sizeof (OrgDef);
		} else if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
			(ATM_ID_BV6416 & FLASH_TYPEMASK)){	/* AT49BV6416 Flash */

			pOrgDef = OrgAT49BV6416;
			flash_nb_blocks = sizeof (OrgAT49BV6416) / sizeof (OrgDef);
		} else {
			flash_nb_blocks = 0;
			pOrgDef = OrgAT49BV16x4;
		}

		flash_info[i].sector_count = flash_number_sector(pOrgDef, flash_nb_blocks);
		memset (flash_info[i].protect, 0, flash_info[i].sector_count);

		if (i == 0)
			flashbase = PHYS_FLASH_1;
		else
			panic ("configured too many flash banks!\n");

		sector = 0;
		start_address = flashbase;
		flash_info[i].size = 0;

		for (j = 0; j < flash_nb_blocks; j++) {
			for (k = 0; k < pOrgDef[j].sector_number; k++) {
				flash_info[i].start[sector++] = start_address;
				start_address += pOrgDef[j].sector_size;
				flash_info[i].size += pOrgDef[j].sector_size;
			}
		}

		size += flash_info[i].size;

		if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
			(ATM_ID_BV6416 & FLASH_TYPEMASK)){	/* AT49BV6416 Flash */

			/* Unlock all sectors at reset */
			for (j=0; j<flash_info[i].sector_count; j++){
				flash_unlock_sector(&flash_info[i], j);
			}
		}
	}

	/* Protect binary boot image */
	flash_protect (FLAG_PROTECT_SET,
		       CONFIG_SYS_FLASH_BASE,
		       CONFIG_SYS_FLASH_BASE + CONFIG_SYS_BOOT_SIZE - 1, &flash_info[0]);

	/* Protect environment variables */
	flash_protect (FLAG_PROTECT_SET,
		       CONFIG_ENV_ADDR,
		       CONFIG_ENV_ADDR + CONFIG_ENV_SIZE - 1, &flash_info[0]);

	/* Protect U-Boot gzipped image */
	flash_protect (FLAG_PROTECT_SET,
		       CONFIG_SYS_U_BOOT_BASE,
		       CONFIG_SYS_U_BOOT_BASE + CONFIG_SYS_U_BOOT_SIZE - 1, &flash_info[0]);

	return size;
}

/*-----------------------------------------------------------------------
 */
void flash_print_info (flash_info_t * info)
{
	int i;

	switch (info->flash_id & FLASH_VENDMASK) {
	case (ATM_MANUFACT & FLASH_VENDMASK):
		printf ("Atmel: ");
		break;
	default:
		printf ("Unknown Vendor ");
		break;
	}

	switch (info->flash_id & FLASH_TYPEMASK) {
	case (ATM_ID_BV1614 & FLASH_TYPEMASK):
		printf ("AT49BV1614 (16Mbit)\n");
		break;
	case (ATM_ID_BV1614A & FLASH_TYPEMASK):
		printf ("AT49BV1614A (16Mbit)\n");
		break;
	case (ATM_ID_BV6416 & FLASH_TYPEMASK):
		printf ("AT49BV6416 (64Mbit)\n");
		break;
	default:
		printf ("Unknown Chip Type\n");
		return;
	}

	printf ("  Size: %ld MB in %d Sectors\n",
		info->size >> 20, info->sector_count);

	printf ("  Sector Start Addresses:");
	for (i = 0; i < info->sector_count; i++) {
		if ((i % 5) == 0) {
			printf ("\n   ");
		}
		printf (" %08lX%s", info->start[i],
			info->protect[i] ? " (RO)" : "     ");
	}
	printf ("\n");
}

/*-----------------------------------------------------------------------
 */

int flash_erase (flash_info_t * info, int s_first, int s_last)
{
	ulong result;
	int iflag, cflag, prot, sect;
	int rc = ERR_OK;
	int chip1;

	/* first look for protection bits */

	if (info->flash_id == FLASH_UNKNOWN)
		return ERR_UNKNOWN_FLASH_TYPE;

	if ((s_first < 0) || (s_first > s_last)) {
		return ERR_INVAL;
	}

	if ((info->flash_id & FLASH_VENDMASK) !=
		(ATM_MANUFACT & FLASH_VENDMASK)) {
		return ERR_UNKNOWN_FLASH_VENDOR;
	}

	prot = 0;
	for (sect = s_first; sect <= s_last; ++sect) {
		if (info->protect[sect]) {
			prot++;
		}
	}
	if (prot)
		return ERR_PROTECTED;

	/*
	 * Disable interrupts which might cause a timeout
	 * here. Remember that our exception vectors are
	 * at address 0 in the flash, and we don't want a
	 * (ticker) exception to happen while the flash
	 * chip is in programming mode.
	 */
	cflag = icache_status ();
	icache_disable ();
	iflag = disable_interrupts ();

	/* Start erase on unprotected sectors */
	for (sect = s_first; sect <= s_last && !ctrlc (); sect++) {
		printf ("Erasing sector %2d ... ", sect);

		/* arm simple, non interrupt dependent timer */
		reset_timer_masked ();

		if (info->protect[sect] == 0) {	/* not protected */
			volatile u16 *addr = (volatile u16 *) (info->start[sect]);

			MEM_FLASH_ADDR1 = CMD_UNLOCK1;
			MEM_FLASH_ADDR2 = CMD_UNLOCK2;
			MEM_FLASH_ADDR1 = CMD_ERASE_SETUP;

			MEM_FLASH_ADDR1 = CMD_UNLOCK1;
			MEM_FLASH_ADDR2 = CMD_UNLOCK2;
			*addr = CMD_ERASE_CONFIRM;

			/* wait until flash is ready */
			chip1 = 0;

			do {
				result = *addr;

				/* check timeout */
				if (get_timer_masked () > CONFIG_SYS_FLASH_ERASE_TOUT) {
					MEM_FLASH_ADDR1 = CMD_READ_ARRAY;
					chip1 = TMO;
					break;
				}

				if (!chip1 && (result & 0xFFFF) & BIT_ERASE_DONE)
					chip1 = READY;

			} while (!chip1);

			MEM_FLASH_ADDR1 = CMD_READ_ARRAY;

			if (chip1 == ERR) {
				rc = ERR_PROG_ERROR;
				goto outahere;
			}
			if (chip1 == TMO) {
				rc = ERR_TIMOUT;
				goto outahere;
			}

			printf ("ok.\n");
		} else {			/* it was protected */
			printf ("protected!\n");
		}
	}

	if (ctrlc ())
		printf ("User Interrupt!\n");

outahere:
	/* allow flash to settle - wait 10 ms */
	udelay_masked (10000);

	if (iflag)
		enable_interrupts ();

	if (cflag)
		icache_enable ();

	return rc;
}

/*-----------------------------------------------------------------------
 * Copy memory to flash
 */

static int write_word (flash_info_t * info, ulong dest, ulong data)
{
	volatile u16 *addr = (volatile u16 *) dest;
	ulong result;
	int rc = ERR_OK;
	int cflag, iflag;
	int chip1;

	/*
	 * Check if Flash is (sufficiently) erased
	 */
	result = *addr;
	if ((result & data) != data)
		return ERR_NOT_ERASED;

	/*
	 * Disable interrupts which might cause a timeout
	 * here. Remember that our exception vectors are
	 * at address 0 in the flash, and we don't want a
	 * (ticker) exception to happen while the flash
	 * chip is in programming mode.
	 */
	cflag = icache_status ();
	icache_disable ();
	iflag = disable_interrupts ();

	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	MEM_FLASH_ADDR2 = CMD_UNLOCK2;
	MEM_FLASH_ADDR1 = CMD_PROGRAM;
	*addr = data;

	/* arm simple, non interrupt dependent timer */
	reset_timer_masked ();

	/* wait until flash is ready */
	chip1 = 0;
	do {
		result = *addr;

		/* check timeout */
		if (get_timer_masked () > CONFIG_SYS_FLASH_ERASE_TOUT) {
			chip1 = ERR | TMO;
			break;
		}
		if (!chip1 && ((result & 0x80) == (data & 0x80)))
			chip1 = READY;

	} while (!chip1);

	*addr = CMD_READ_ARRAY;

	if (chip1 == ERR || *addr != data)
		rc = ERR_PROG_ERROR;

	if (iflag)
		enable_interrupts ();

	if (cflag)
		icache_enable ();

	return rc;
}

/*-----------------------------------------------------------------------
 * Copy memory to flash.
 */

int write_buff (flash_info_t * info, uchar * src, ulong addr, ulong cnt)
{
	ulong wp, data;
	int rc;

	if (addr & 1) {
		printf ("unaligned destination not supported\n");
		return ERR_ALIGN;
	};

	if ((int) src & 1) {
		printf ("unaligned source not supported\n");
		return ERR_ALIGN;
	};

	wp = addr;

	while (cnt >= 2) {
		data = *((volatile u16 *) src);
		if ((rc = write_word (info, wp, data)) != 0) {
			return (rc);
		}
		src += 2;
		wp += 2;
		cnt -= 2;
	}

	if (cnt == 1) {
		data = (*((volatile u8 *) src)) | (*((volatile u8 *) (wp + 1)) <<
										   8);
		if ((rc = write_word (info, wp, data)) != 0) {
			return (rc);
		}
		src += 1;
		wp += 1;
		cnt -= 1;
	};

	return ERR_OK;
}
Commit	Line	Data
dc7c9a1a WD	1	/*
	2	* (C) Copyright 2002
	3	* Lineo, Inc. <www.lineo.com>
	4	* Bernhard Kuhn <[email protected]>
	5	*
	6	* (C) Copyright 2002
	7	* Sysgo Real-Time Solutions, GmbH <www.elinos.com>
	8	* Alex Zuepke <[email protected]>
	9	*
	10	* See file CREDITS for list of people who contributed to this
	11	* project.
	12	*
	13	* This program is free software; you can redistribute it and/or
	14	* modify it under the terms of the GNU General Public License as
	15	* published by the Free Software Foundation; either version 2 of
	16	* the License, or (at your option) any later version.
	17	*
	18	* This program is distributed in the hope that it will be useful,
	19	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	20	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	21	* GNU General Public License for more details.
	22	*
	23	* You should have received a copy of the GNU General Public License
	24	* along with this program; if not, write to the Free Software
	25	* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
	26	* MA 02111-1307 USA
	27	*/
	28
	29	#include <common.h>
	30
	31	ulong myflush(void);
	32
	33
2abbe075 WD	34	/* Flash Organization Structure */
	35	typedef struct OrgDef
	36	{
	37	unsigned int sector_number;
	38	unsigned int sector_size;
	39	} OrgDef;
	40
	41
	42	/* Flash Organizations */
	43	OrgDef OrgAT49BV16x4[] =
	44	{
8b07a110 WD	45	{ 8, 81024 }, / 8 * 8 kBytes sectors */
	46	{ 2, 321024 }, / 2 * 32 kBytes sectors */
	47	{ 30, 641024 }, / 30 * 64 kBytes sectors */
2abbe075 WD	48	};
	49
	50	OrgDef OrgAT49BV16x4A[] =
	51	{
8b07a110 WD	52	{ 8, 81024 }, / 8 * 8 kBytes sectors */
8b07a110 WD	53	{ 31, 641024 }, / 31 * 64 kBytes sectors */
2abbe075 WD	54	};
2abbe075 WD	55
8b07a110 WD	56	OrgDef OrgAT49BV6416[] =
	57	{
	58	{ 8, 81024 }, / 8 * 8 kBytes sectors */
	59	{ 127, 641024 }, / 127 * 64 kBytes sectors */
	60	};
dc7c9a1a	61
6d0f6bcf	62	flash_info_t flash_info[CONFIG_SYS_MAX_FLASH_BANKS];
dc7c9a1a	63
2abbe075 WD	64	/* AT49BV1614A Codes */
	65	#define FLASH_CODE1 0xAA
	66	#define FLASH_CODE2 0x55
	67	#define ID_IN_CODE 0x90
	68	#define ID_OUT_CODE 0xF0
	69
dc7c9a1a WD	70
	71	#define CMD_READ_ARRAY 0x00F0
	72	#define CMD_UNLOCK1 0x00AA
	73	#define CMD_UNLOCK2 0x0055
	74	#define CMD_ERASE_SETUP 0x0080
	75	#define CMD_ERASE_CONFIRM 0x0030
	76	#define CMD_PROGRAM 0x00A0
	77	#define CMD_UNLOCK_BYPASS 0x0020
8b07a110	78	#define CMD_SECTOR_UNLOCK 0x0070
dc7c9a1a	79
6d0f6bcf JCPV	80	#define MEM_FLASH_ADDR1 ((volatile u16 )(CONFIG_SYS_FLASH_BASE + (0x00005555<<1)))
6d0f6bcf JCPV	81	#define MEM_FLASH_ADDR2 ((volatile u16 )(CONFIG_SYS_FLASH_BASE + (0x00002AAA<<1)))
dc7c9a1a WD	82
	83	#define BIT_ERASE_DONE 0x0080
	84	#define BIT_RDY_MASK 0x0080
	85	#define BIT_PROGRAM_ERROR 0x0020
	86	#define BIT_TIMEOUT 0x80000000 /* our flag */
	87
	88	#define READY 1
	89	#define ERR 2
	90	#define TMO 4
	91
	92	/*-----------------------------------------------------------------------
	93	*/
2abbe075	94	void flash_identification (flash_info_t * info)
dc7c9a1a	95	{
2abbe075	96	volatile u16 manuf_code, device_code, add_device_code;
dc7c9a1a	97
8b07a110 WD	98	MEM_FLASH_ADDR1 = FLASH_CODE1;
	99	MEM_FLASH_ADDR2 = FLASH_CODE2;
	100	MEM_FLASH_ADDR1 = ID_IN_CODE;
dc7c9a1a	101
6d0f6bcf JCPV	102	manuf_code = (volatile u16 ) CONFIG_SYS_FLASH_BASE;
	103	device_code = (volatile u16 ) (CONFIG_SYS_FLASH_BASE + 2);
	104	add_device_code = (volatile u16 ) (CONFIG_SYS_FLASH_BASE + (3 << 1));
dc7c9a1a	105
8b07a110 WD	106	MEM_FLASH_ADDR1 = FLASH_CODE1;
	107	MEM_FLASH_ADDR2 = FLASH_CODE2;
	108	MEM_FLASH_ADDR1 = ID_OUT_CODE;
dc7c9a1a	109
2abbe075 WD	110	/* Vendor type */
	111	info->flash_id = ATM_MANUFACT & FLASH_VENDMASK;
	112	printf ("Atmel: ");
dc7c9a1a	113
2abbe075 WD	114	if ((device_code & FLASH_TYPEMASK) == (ATM_ID_BV1614 & FLASH_TYPEMASK)) {
	115
	116	if ((add_device_code & FLASH_TYPEMASK) ==
	117	(ATM_ID_BV1614A & FLASH_TYPEMASK)) {
	118	info->flash_id \|= ATM_ID_BV1614A & FLASH_TYPEMASK;
	119	printf ("AT49BV1614A (16Mbit)\n");
8b07a110 WD	120	} else { /* AT49BV1614 Flash */
	121	info->flash_id \|= ATM_ID_BV1614 & FLASH_TYPEMASK;
	122	printf ("AT49BV1614 (16Mbit)\n");
2abbe075	123	}
dc7c9a1a	124
8b07a110 WD	125	} else if ((device_code & FLASH_TYPEMASK) == (ATM_ID_BV6416 & FLASH_TYPEMASK)) {
	126	info->flash_id \|= ATM_ID_BV6416 & FLASH_TYPEMASK;
	127	printf ("AT49BV6416 (64Mbit)\n");
2abbe075	128	}
dc7c9a1a WD	129	}
dc7c9a1a WD	130
8b07a110 WD	131	ushort flash_number_sector(OrgDef *pOrgDef, unsigned int nb_blocks)
	132	{
	133	int i, nb_sectors = 0;
	134
	135	for (i=0; i<nb_blocks; i++){
	136	nb_sectors += pOrgDef[i].sector_number;
	137	}
	138
	139	return nb_sectors;
	140	}
	141
	142	void flash_unlock_sector(flash_info_t * info, unsigned int sector)
	143	{
	144	volatile u16 addr = (volatile u16 ) (info->start[sector]);
	145
	146	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	147	*addr = CMD_SECTOR_UNLOCK;
	148	}
	149
dc7c9a1a	150
2abbe075	151	ulong flash_init (void)
dc7c9a1a	152	{
2abbe075 WD	153	int i, j, k;
	154	unsigned int flash_nb_blocks, sector;
	155	unsigned int start_address;
	156	OrgDef *pOrgDef;
	157
	158	ulong size = 0;
dc7c9a1a	159
6d0f6bcf	160	for (i = 0; i < CONFIG_SYS_MAX_FLASH_BANKS; i++) {
2abbe075	161	ulong flashbase = 0;
dc7c9a1a	162
2abbe075	163	flash_identification (&flash_info[i]);
dc7c9a1a	164
2abbe075 WD	165	if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
2abbe075 WD	166	(ATM_ID_BV1614 & FLASH_TYPEMASK)) {
dc7c9a1a	167
2abbe075 WD	168	pOrgDef = OrgAT49BV16x4;
2abbe075 WD	169	flash_nb_blocks = sizeof (OrgAT49BV16x4) / sizeof (OrgDef);
8b07a110 WD	170	} else if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
8b07a110 WD	171	(ATM_ID_BV1614A & FLASH_TYPEMASK)){ /* AT49BV1614A Flash */
2abbe075 WD	172
	173	pOrgDef = OrgAT49BV16x4A;
	174	flash_nb_blocks = sizeof (OrgAT49BV16x4A) / sizeof (OrgDef);
8b07a110 WD	175	} else if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
	176	(ATM_ID_BV6416 & FLASH_TYPEMASK)){ /* AT49BV6416 Flash */
	177
	178	pOrgDef = OrgAT49BV6416;
	179	flash_nb_blocks = sizeof (OrgAT49BV6416) / sizeof (OrgDef);
	180	} else {
	181	flash_nb_blocks = 0;
	182	pOrgDef = OrgAT49BV16x4;
2abbe075 WD	183	}
2abbe075 WD	184
8b07a110 WD	185	flash_info[i].sector_count = flash_number_sector(pOrgDef, flash_nb_blocks);
	186	memset (flash_info[i].protect, 0, flash_info[i].sector_count);
	187
2abbe075 WD	188	if (i == 0)
	189	flashbase = PHYS_FLASH_1;
	190	else
5f535fe1	191	panic ("configured too many flash banks!\n");
2abbe075 WD	192
	193	sector = 0;
	194	start_address = flashbase;
8b07a110	195	flash_info[i].size = 0;
2abbe075 WD	196
	197	for (j = 0; j < flash_nb_blocks; j++) {
	198	for (k = 0; k < pOrgDef[j].sector_number; k++) {
	199	flash_info[i].start[sector++] = start_address;
	200	start_address += pOrgDef[j].sector_size;
8b07a110	201	flash_info[i].size += pOrgDef[j].sector_size;
2abbe075 WD	202	}
	203	}
	204
	205	size += flash_info[i].size;
8b07a110 WD	206
	207	if ((flash_info[i].flash_id & FLASH_TYPEMASK) ==
	208	(ATM_ID_BV6416 & FLASH_TYPEMASK)){ /* AT49BV6416 Flash */
	209
	210	/* Unlock all sectors at reset */
	211	for (j=0; j<flash_info[i].sector_count; j++){
	212	flash_unlock_sector(&flash_info[i], j);
	213	}
	214	}
dc7c9a1a	215	}
dc7c9a1a	216
2abbe075 WD	217	/* Protect binary boot image */
2abbe075 WD	218	flash_protect (FLAG_PROTECT_SET,
6d0f6bcf JCPV	219	CONFIG_SYS_FLASH_BASE,
6d0f6bcf JCPV	220	CONFIG_SYS_FLASH_BASE + CONFIG_SYS_BOOT_SIZE - 1, &flash_info[0]);
dc7c9a1a	221
2abbe075 WD	222	/* Protect environment variables */
2abbe075 WD	223	flash_protect (FLAG_PROTECT_SET,
0e8d1586 JCPV	224	CONFIG_ENV_ADDR,
0e8d1586 JCPV	225	CONFIG_ENV_ADDR + CONFIG_ENV_SIZE - 1, &flash_info[0]);
dc7c9a1a	226
2abbe075 WD	227	/* Protect U-Boot gzipped image */
2abbe075 WD	228	flash_protect (FLAG_PROTECT_SET,
6d0f6bcf JCPV	229	CONFIG_SYS_U_BOOT_BASE,
6d0f6bcf JCPV	230	CONFIG_SYS_U_BOOT_BASE + CONFIG_SYS_U_BOOT_SIZE - 1, &flash_info[0]);
2abbe075 WD	231
	232	return size;
	233	}
dc7c9a1a	234
2abbe075 WD	235	/*-----------------------------------------------------------------------
	236	*/
	237	void flash_print_info (flash_info_t * info)
	238	{
	239	int i;
	240
	241	switch (info->flash_id & FLASH_VENDMASK) {
	242	case (ATM_MANUFACT & FLASH_VENDMASK):
	243	printf ("Atmel: ");
	244	break;
	245	default:
	246	printf ("Unknown Vendor ");
	247	break;
	248	}
dc7c9a1a	249
2abbe075 WD	250	switch (info->flash_id & FLASH_TYPEMASK) {
	251	case (ATM_ID_BV1614 & FLASH_TYPEMASK):
	252	printf ("AT49BV1614 (16Mbit)\n");
	253	break;
	254	case (ATM_ID_BV1614A & FLASH_TYPEMASK):
	255	printf ("AT49BV1614A (16Mbit)\n");
	256	break;
8b07a110 WD	257	case (ATM_ID_BV6416 & FLASH_TYPEMASK):
	258	printf ("AT49BV6416 (64Mbit)\n");
	259	break;
2abbe075 WD	260	default:
2abbe075 WD	261	printf ("Unknown Chip Type\n");
5ad2af34	262	return;
2abbe075	263	}
dc7c9a1a	264
2abbe075 WD	265	printf (" Size: %ld MB in %d Sectors\n",
2abbe075 WD	266	info->size >> 20, info->sector_count);
dc7c9a1a	267
2abbe075 WD	268	printf (" Sector Start Addresses:");
	269	for (i = 0; i < info->sector_count; i++) {
	270	if ((i % 5) == 0) {
	271	printf ("\n ");
dc7c9a1a	272	}
2abbe075 WD	273	printf (" %08lX%s", info->start[i],
	274	info->protect[i] ? " (RO)" : " ");
	275	}
	276	printf ("\n");
2abbe075	277	}
dc7c9a1a	278
2abbe075 WD	279	/*-----------------------------------------------------------------------
2abbe075 WD	280	*/
dc7c9a1a	281
2abbe075 WD	282	int flash_erase (flash_info_t * info, int s_first, int s_last)
	283	{
	284	ulong result;
	285	int iflag, cflag, prot, sect;
	286	int rc = ERR_OK;
	287	int chip1;
dc7c9a1a	288
2abbe075 WD	289	/* first look for protection bits */
	290
	291	if (info->flash_id == FLASH_UNKNOWN)
	292	return ERR_UNKNOWN_FLASH_TYPE;
	293
	294	if ((s_first < 0) \|\| (s_first > s_last)) {
	295	return ERR_INVAL;
dc7c9a1a	296	}
2abbe075 WD	297
	298	if ((info->flash_id & FLASH_VENDMASK) !=
	299	(ATM_MANUFACT & FLASH_VENDMASK)) {
	300	return ERR_UNKNOWN_FLASH_VENDOR;
dc7c9a1a	301	}
dc7c9a1a	302
2abbe075 WD	303	prot = 0;
	304	for (sect = s_first; sect <= s_last; ++sect) {
	305	if (info->protect[sect]) {
	306	prot++;
	307	}
	308	}
	309	if (prot)
	310	return ERR_PROTECTED;
	311
	312	/*
	313	* Disable interrupts which might cause a timeout
	314	* here. Remember that our exception vectors are
	315	* at address 0 in the flash, and we don't want a
	316	* (ticker) exception to happen while the flash
	317	* chip is in programming mode.
	318	*/
	319	cflag = icache_status ();
	320	icache_disable ();
	321	iflag = disable_interrupts ();
	322
	323	/* Start erase on unprotected sectors */
	324	for (sect = s_first; sect <= s_last && !ctrlc (); sect++) {
	325	printf ("Erasing sector %2d ... ", sect);
	326
	327	/* arm simple, non interrupt dependent timer */
	328	reset_timer_masked ();
	329
	330	if (info->protect[sect] == 0) { /* not protected */
	331	volatile u16 addr = (volatile u16 ) (info->start[sect]);
	332
	333	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	334	MEM_FLASH_ADDR2 = CMD_UNLOCK2;
	335	MEM_FLASH_ADDR1 = CMD_ERASE_SETUP;
	336
	337	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	338	MEM_FLASH_ADDR2 = CMD_UNLOCK2;
	339	*addr = CMD_ERASE_CONFIRM;
	340
	341	/* wait until flash is ready */
	342	chip1 = 0;
	343
	344	do {
	345	result = *addr;
	346
	347	/* check timeout */
6d0f6bcf	348	if (get_timer_masked () > CONFIG_SYS_FLASH_ERASE_TOUT) {
2abbe075 WD	349	MEM_FLASH_ADDR1 = CMD_READ_ARRAY;
	350	chip1 = TMO;
	351	break;
	352	}
	353
	354	if (!chip1 && (result & 0xFFFF) & BIT_ERASE_DONE)
	355	chip1 = READY;
	356
	357	} while (!chip1);
	358
	359	MEM_FLASH_ADDR1 = CMD_READ_ARRAY;
	360
	361	if (chip1 == ERR) {
	362	rc = ERR_PROG_ERROR;
	363	goto outahere;
	364	}
	365	if (chip1 == TMO) {
	366	rc = ERR_TIMOUT;
	367	goto outahere;
	368	}
	369
	370	printf ("ok.\n");
	371	} else { /* it was protected */
	372	printf ("protected!\n");
	373	}
	374	}
	375
	376	if (ctrlc ())
	377	printf ("User Interrupt!\n");
dc7c9a1a WD	378
dc7c9a1a WD	379	outahere:
2abbe075 WD	380	/* allow flash to settle - wait 10 ms */
2abbe075 WD	381	udelay_masked (10000);
dc7c9a1a	382
2abbe075 WD	383	if (iflag)
2abbe075 WD	384	enable_interrupts ();
dc7c9a1a	385
2abbe075 WD	386	if (cflag)
2abbe075 WD	387	icache_enable ();
dc7c9a1a	388
2abbe075	389	return rc;
dc7c9a1a WD	390	}
	391
	392	/*-----------------------------------------------------------------------
	393	* Copy memory to flash
	394	*/
	395
d52fb7e3	396	static int write_word (flash_info_t * info, ulong dest, ulong data)
dc7c9a1a	397	{
2abbe075 WD	398	volatile u16 addr = (volatile u16 ) dest;
	399	ulong result;
	400	int rc = ERR_OK;
	401	int cflag, iflag;
	402	int chip1;
	403
	404	/*
	405	* Check if Flash is (sufficiently) erased
	406	*/
dc7c9a1a	407	result = *addr;
2abbe075 WD	408	if ((result & data) != data)
	409	return ERR_NOT_ERASED;
	410
2abbe075 WD	411	/*
	412	* Disable interrupts which might cause a timeout
	413	* here. Remember that our exception vectors are
	414	* at address 0 in the flash, and we don't want a
	415	* (ticker) exception to happen while the flash
	416	* chip is in programming mode.
	417	*/
	418	cflag = icache_status ();
	419	icache_disable ();
	420	iflag = disable_interrupts ();
	421
	422	MEM_FLASH_ADDR1 = CMD_UNLOCK1;
	423	MEM_FLASH_ADDR2 = CMD_UNLOCK2;
	424	MEM_FLASH_ADDR1 = CMD_PROGRAM;
	425	*addr = data;
dc7c9a1a	426
2abbe075 WD	427	/* arm simple, non interrupt dependent timer */
2abbe075 WD	428	reset_timer_masked ();
dc7c9a1a	429
2abbe075 WD	430	/* wait until flash is ready */
	431	chip1 = 0;
	432	do {
	433	result = *addr;
dc7c9a1a	434
2abbe075	435	/* check timeout */
6d0f6bcf	436	if (get_timer_masked () > CONFIG_SYS_FLASH_ERASE_TOUT) {
2abbe075 WD	437	chip1 = ERR \| TMO;
	438	break;
	439	}
	440	if (!chip1 && ((result & 0x80) == (data & 0x80)))
	441	chip1 = READY;
	442
	443	} while (!chip1);
dc7c9a1a	444
2abbe075 WD	445	*addr = CMD_READ_ARRAY;
	446
	447	if (chip1 == ERR \|\| *addr != data)
	448	rc = ERR_PROG_ERROR;
dc7c9a1a	449
2abbe075 WD	450	if (iflag)
2abbe075 WD	451	enable_interrupts ();
dc7c9a1a	452
2abbe075 WD	453	if (cflag)
2abbe075 WD	454	icache_enable ();
dc7c9a1a	455
2abbe075	456	return rc;
dc7c9a1a WD	457	}
	458
	459	/*-----------------------------------------------------------------------
	460	* Copy memory to flash.
	461	*/
	462
2abbe075	463	int write_buff (flash_info_t * info, uchar * src, ulong addr, ulong cnt)
dc7c9a1a	464	{
2abbe075 WD	465	ulong wp, data;
2abbe075 WD	466	int rc;
dc7c9a1a	467
2abbe075 WD	468	if (addr & 1) {
	469	printf ("unaligned destination not supported\n");
	470	return ERR_ALIGN;
	471	};
dc7c9a1a	472
2abbe075 WD	473	if ((int) src & 1) {
	474	printf ("unaligned source not supported\n");
	475	return ERR_ALIGN;
	476	};
dc7c9a1a	477
2abbe075	478	wp = addr;
dc7c9a1a	479
2abbe075 WD	480	while (cnt >= 2) {
	481	data = ((volatile u16 ) src);
	482	if ((rc = write_word (info, wp, data)) != 0) {
	483	return (rc);
	484	}
	485	src += 2;
	486	wp += 2;
	487	cnt -= 2;
dc7c9a1a	488	}
dc7c9a1a	489
2abbe075 WD	490	if (cnt == 1) {
	491	data = (((volatile u8 ) src)) \| (((volatile u8 ) (wp + 1)) <<
	492	8);
	493	if ((rc = write_word (info, wp, data)) != 0) {
	494	return (rc);
	495	}
	496	src += 1;
	497	wp += 1;
	498	cnt -= 1;
	499	};
	500
	501	return ERR_OK;
dc7c9a1a	502	}