[people/ms/u-boot.git] / board / musenki / flash.c

/*
 * (C) Copyright 2001
 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
 *
 * 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>
#include <mpc824x.h>

#if defined(CONFIG_ENV_IS_IN_FLASH)
# ifndef  CFG_ENV_ADDR
#  define CFG_ENV_ADDR	(CFG_FLASH_BASE + CFG_ENV_OFFSET)
# endif
# ifndef  CFG_ENV_SIZE
#  define CFG_ENV_SIZE	CFG_ENV_SECT_SIZE
# endif
# ifndef  CFG_ENV_SECT_SIZE
#  define CFG_ENV_SECT_SIZE  CFG_ENV_SIZE
# endif
#endif

/*---------------------------------------------------------------------*/
#undef DEBUG_FLASH

#ifdef DEBUG_FLASH
#define DEBUGF(fmt,args...) printf(fmt ,##args)
#else
#define DEBUGF(fmt,args...)
#endif
/*---------------------------------------------------------------------*/

flash_info_t	flash_info[CFG_MAX_FLASH_BANKS]; /* info for FLASH chips	*/

/*-----------------------------------------------------------------------
 * Functions
 */
static ulong flash_get_size (vu_char *addr, flash_info_t *info);
static int write_data (flash_info_t *info, uchar *dest, uchar data);
static void flash_get_offsets (ulong base, flash_info_t *info);


/*
 * don't ask.  its stupid, but more than one soul has had to live with this mistake
 * "swaptab[i]" is the value of "i" with the bits reversed.
 */

#define  MUSENKI_BROKEN_FLASH 1

#ifdef MUSENKI_BROKEN_FLASH
unsigned char swaptab[256] = {
  0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
  0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
  0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
  0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
  0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
  0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
  0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
  0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
  0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
  0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
  0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
  0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
  0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
  0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
  0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
  0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
  0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
  0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
  0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
  0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
  0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
  0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
  0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
  0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
  0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
  0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
  0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
  0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
  0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
  0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
  0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
  0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
};

#define BS(b)     (swaptab[b])

#else

#define BS(b)     (b)

#endif

#define BYTEME(x) ((x) & 0xFF)

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

unsigned long flash_init (void)
{
	unsigned long size_b0, size_b1;
	int i;

	/* Init: no FLASHes known */
	for (i=0; i<CFG_MAX_FLASH_BANKS; ++i) {
		flash_info[i].flash_id = FLASH_UNKNOWN;
	}

	/* Static FLASH Bank configuration here - FIXME XXX */

	DEBUGF("\n## Get flash bank 1 size @ 0x%08x\n",CFG_FLASH_BASE0_PRELIM);

	size_b0 = flash_get_size((vu_char *)CFG_FLASH_BASE0_PRELIM, &flash_info[0]);

	if (flash_info[0].flash_id == FLASH_UNKNOWN) {
		printf ("## Unknown FLASH on Bank 0: "
			"ID 0x%lx, Size = 0x%08lx = %ld MB\n",
			flash_info[0].flash_id,
			size_b0, size_b0<<20);
	}

	DEBUGF("## Get flash bank 2 size @ 0x%08x\n",CFG_FLASH_BASE1_PRELIM);
	size_b1 = flash_get_size((vu_char *)CFG_FLASH_BASE1_PRELIM, &flash_info[1]);

	DEBUGF("## Prelim. Flash bank sizes: %08lx + 0x%08lx\n",size_b0,size_b1);

	flash_get_offsets (CFG_FLASH_BASE, &flash_info[0]);

	flash_info[0].size = size_b0;

#if CFG_MONITOR_BASE >= CFG_FLASH_BASE
	DEBUGF("protect monitor %x @ %x\n", CFG_MONITOR_BASE, monitor_flash_len);
	/* monitor protection ON by default */
	flash_protect(FLAG_PROTECT_SET,
		      CFG_MONITOR_BASE,
		      CFG_MONITOR_BASE+monitor_flash_len-1,
		      &flash_info[0]);
#endif

#ifdef	CONFIG_ENV_IS_IN_FLASH
	/* ENV protection ON by default */
	DEBUGF("protect environtment %x @ %x\n", CFG_ENV_ADDR, CFG_ENV_SECT_SIZE);
	flash_protect(FLAG_PROTECT_SET,
		      CFG_ENV_ADDR,
		      CFG_ENV_ADDR+CFG_ENV_SECT_SIZE-1,
		      &flash_info[0]);
#endif

	if (size_b1) {
		flash_info[1].size = size_b1;
		flash_get_offsets (CFG_FLASH_BASE + size_b0, &flash_info[1]);

#if CFG_MONITOR_BASE >= CFG_FLASH_BASE
		/* monitor protection ON by default */
		flash_protect(FLAG_PROTECT_SET,
			      CFG_MONITOR_BASE,
			      CFG_MONITOR_BASE+monitor_flash_len-1,
			      &flash_info[1]);
#endif

#ifdef	CONFIG_ENV_IS_IN_FLASH
		/* ENV protection ON by default */
		flash_protect(FLAG_PROTECT_SET,
			      CFG_ENV_ADDR,
			      CFG_ENV_ADDR+CFG_ENV_SECT_SIZE-1,
			      &flash_info[1]);
#endif
	} else {
		flash_info[1].flash_id = FLASH_UNKNOWN;
		flash_info[1].sector_count = -1;
		flash_info[1].size = 0;
	}

	DEBUGF("## Final Flash bank sizes: %08lx + 0x%08lx\n",size_b0,size_b1);

	return (size_b0 + size_b1);
}

/*-----------------------------------------------------------------------
 */
static void flash_get_offsets (ulong base, flash_info_t *info)
{
	int i;

	if (info->flash_id == FLASH_UNKNOWN) {
		return;
	}

	switch (info->flash_id & FLASH_VENDMASK) {
	case FLASH_MAN_INTEL:
	    for (i = 0; i < info->sector_count; i++) {
		info->start[i] = base;
		base += 0x00020000;		/* 128k per bank */
	    }
	    return;

	default:
	    printf ("Don't know sector ofsets for flash type 0x%lx\n", info->flash_id);
	    return;
	}
}

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

	if (info->flash_id == FLASH_UNKNOWN) {
		printf ("missing or unknown FLASH type\n");
		return;
	}

	switch (info->flash_id & FLASH_VENDMASK) {
	case FLASH_MAN_AMD:	printf ("AMD ");		break;
	case FLASH_MAN_FUJ:	printf ("Fujitsu ");		break;
	case FLASH_MAN_SST:	printf ("SST ");		break;
	case FLASH_MAN_STM:	printf ("STM ");		break;
	case FLASH_MAN_INTEL:	printf ("Intel ");		break;
	case FLASH_MAN_MT:	printf ("MT ");			break;
	default:		printf ("Unknown Vendor ");	break;
	}

	switch (info->flash_id & FLASH_TYPEMASK) {
	case FLASH_28F320J3A:	printf ("28F320J3A (32Mbit = 128K x 32)\n");
				break;
	case FLASH_28F640J3A:	printf ("28F640J3A (64Mbit = 128K x 64)\n");
				break;
	case FLASH_28F128J3A:	printf ("28F128J3A (128Mbit = 128K x 128)\n");
				break;
	default:		printf ("Unknown Chip Type\n");
				break;
	}

	if (info->size >= (1 << 20)) {
		i = 20;
	} else {
		i = 10;
	}
	printf ("  Size: %ld %cB in %d Sectors\n",
		info->size >> i,
		(i == 20) ? 'M' : 'k',
		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");
	return;
}

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


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

/*
 * The following code cannot be run from FLASH!
 */
static ulong flash_get_size (vu_char *addr, flash_info_t *info)
{
	vu_char manuf, device;

	addr[0] = BS(0x90);
	manuf = BS(addr[0]);
	DEBUGF("Manuf. ID @ 0x%08lx: 0x%08x\n", (vu_char *)addr, manuf);

	switch (manuf) {
	case BYTEME(AMD_MANUFACT):
		info->flash_id = FLASH_MAN_AMD;
		break;
	case BYTEME(FUJ_MANUFACT):
		info->flash_id = FLASH_MAN_FUJ;
		break;
	case BYTEME(SST_MANUFACT):
		info->flash_id = FLASH_MAN_SST;
		break;
	case BYTEME(STM_MANUFACT):
		info->flash_id = FLASH_MAN_STM;
		break;
	case BYTEME(INTEL_MANUFACT):
		info->flash_id = FLASH_MAN_INTEL;
		break;
	default:
		info->flash_id = FLASH_UNKNOWN;
		info->sector_count = 0;
		info->size = 0;
		addr[0] = BS(0xFF);		/* restore read mode, (yes, BS is a NOP) */
		return 0;			/* no or unknown flash	*/
	}

	device = BS(addr[2]);			/* device ID		*/

	DEBUGF("Device ID @ 0x%08x: 0x%08x\n", (&addr[1]), device);

	switch (device) {
	case BYTEME(INTEL_ID_28F320J3A):
		info->flash_id += FLASH_28F320J3A;
		info->sector_count = 32;
		info->size = 0x00400000;
		break;				/* =>  4 MB		*/

	case BYTEME(INTEL_ID_28F640J3A):
		info->flash_id += FLASH_28F640J3A;
		info->sector_count = 64;
		info->size = 0x00800000;
		break;				/* => 8 MB		*/

	case BYTEME(INTEL_ID_28F128J3A):
		info->flash_id += FLASH_28F128J3A;
		info->sector_count = 128;
		info->size = 0x01000000;
		break;				/* => 16 MB		*/

	default:
		info->flash_id = FLASH_UNKNOWN;
		addr[0] = BS(0xFF);		/* restore read mode (yes, a NOP) */
		return 0;			/* => no or unknown flash */

	}

	if (info->sector_count > CFG_MAX_FLASH_SECT) {
		printf ("** ERROR: sector count %d > max (%d) **\n",
			info->sector_count, CFG_MAX_FLASH_SECT);
		info->sector_count = CFG_MAX_FLASH_SECT;
	}

	addr[0] = BS(0xFF);		/* restore read mode */

	return (info->size);
}


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

int	flash_erase (flash_info_t *info, int s_first, int s_last)
{
	int flag, prot, sect;
	ulong start, now, last;

	if ((s_first < 0) || (s_first > s_last)) {
		if (info->flash_id == FLASH_UNKNOWN) {
			printf ("- missing\n");
		} else {
			printf ("- no sectors to erase\n");
		}
		return 1;
	}

	if ((info->flash_id & FLASH_VENDMASK) != FLASH_MAN_INTEL) {
		printf ("Can erase only Intel flash types - aborted\n");
		return 1;
	}

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

	if (prot) {
		printf ("- Warning: %d protected sectors will not be erased!\n", prot);
	} else {
		printf ("\n");
	}

	start = get_timer (0);
	last  = start;
	/* Start erase on unprotected sectors */
	for (sect = s_first; sect<=s_last; sect++) {
		if (info->protect[sect] == 0) {	/* not protected */
			vu_char *addr = (vu_char *)(info->start[sect]);
			unsigned long status;

			/* Disable interrupts which might cause a timeout here */
			flag = disable_interrupts();

			*addr = BS(0x50);	/* clear status register */
			*addr = BS(0x20);	/* erase setup */
			*addr = BS(0xD0);	/* erase confirm */

			/* re-enable interrupts if necessary */
			if (flag) {
				enable_interrupts();
			}

			/* wait at least 80us - let's wait 1 ms */
			udelay (1000);

			while (((status = BS(*addr)) & BYTEME(0x00800080)) != BYTEME(0x00800080)) {
				if ((now=get_timer(start)) > CFG_FLASH_ERASE_TOUT) {
					printf ("Timeout\n");
					*addr = BS(0xB0); /* suspend erase	  */
					*addr = BS(0xFF); /* reset to read mode */
					return 1;
				}

				/* show that we're waiting */
				if ((now - last) > 1000) {	/* every second */
					putc ('.');
					last = now;
				}
			}

			*addr = BS(0xFF);	/* reset to read mode */
		}
	}
	printf (" done\n");
	return 0;
}

/*-----------------------------------------------------------------------
 * Copy memory to flash, returns:
 * 0 - OK
 * 1 - write timeout
 * 2 - Flash not erased
 * 4 - Flash not identified
 */

#define	FLASH_WIDTH	1	/* flash bus width in bytes */

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

	if (info->flash_id == FLASH_UNKNOWN) {
		return 4;
	}

	while (cnt > 0) {
		if ((rc = write_data(info, wp, *src)) != 0) {
			return rc;
		}
		wp++;
		src++;
		cnt--;
	}

	return cnt;
}

/*-----------------------------------------------------------------------
 * Write a word to Flash, returns:
 * 0 - OK
 * 1 - write timeout
 * 2 - Flash not erased
 */
static int write_data (flash_info_t *info, uchar *dest, uchar data)
{
	vu_char *addr = (vu_char *)dest;
	ulong status;
	ulong start;
	int flag;

	/* Check if Flash is (sufficiently) erased */
	if ((BS(*addr) & data) != data) {
		return 2;
	}
	/* Disable interrupts which might cause a timeout here */
	flag = disable_interrupts();

	*addr = BS(0x40);		/* write setup */
	*addr = data;

	/* re-enable interrupts if necessary */
	if (flag) {
		enable_interrupts();
	}

	start = get_timer (0);

	while (((status = BS(*addr)) & BYTEME(0x00800080)) != BYTEME(0x00800080)) {
		if (get_timer(start) > CFG_FLASH_WRITE_TOUT) {
			*addr = BS(0xFF);	/* restore read mode */
			return 1;
		}
	}

	*addr = BS(0xFF);	/* restore read mode */

	return 0;
}

/*-----------------------------------------------------------------------
 */
Commit	Line	Data
affae2bf WD	1	/*
	2	* (C) Copyright 2001
	3	* Wolfgang Denk, DENX Software Engineering, wd@denx.de.
	4	*
	5	* See file CREDITS for list of people who contributed to this
	6	* project.
	7	*
	8	* This program is free software; you can redistribute it and/or
	9	* modify it under the terms of the GNU General Public License as
	10	* published by the Free Software Foundation; either version 2 of
	11	* the License, or (at your option) any later version.
	12	*
	13	* This program is distributed in the hope that it will be useful,
	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	* GNU General Public License for more details.
	17	*
	18	* You should have received a copy of the GNU General Public License
	19	* along with this program; if not, write to the Free Software
	20	* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
	21	* MA 02111-1307 USA
	22	*/
	23
	24	#include <common.h>
	25	#include <mpc824x.h>
	26
5a1aceb0	27	#if defined(CONFIG_ENV_IS_IN_FLASH)
affae2bf WD	28	# ifndef CFG_ENV_ADDR
	29	# define CFG_ENV_ADDR (CFG_FLASH_BASE + CFG_ENV_OFFSET)
	30	# endif
	31	# ifndef CFG_ENV_SIZE
	32	# define CFG_ENV_SIZE CFG_ENV_SECT_SIZE
	33	# endif
	34	# ifndef CFG_ENV_SECT_SIZE
	35	# define CFG_ENV_SECT_SIZE CFG_ENV_SIZE
	36	# endif
	37	#endif
	38
	39	/---------------------------------------------------------------------/
	40	#undef DEBUG_FLASH
	41
	42	#ifdef DEBUG_FLASH
	43	#define DEBUGF(fmt,args...) printf(fmt ,##args)
	44	#else
	45	#define DEBUGF(fmt,args...)
	46	#endif
	47	/---------------------------------------------------------------------/
	48
	49	flash_info_t flash_info[CFG_MAX_FLASH_BANKS]; /* info for FLASH chips */
	50
	51	/*-----------------------------------------------------------------------
	52	* Functions
	53	*/
	54	static ulong flash_get_size (vu_char addr, flash_info_t info);
	55	static int write_data (flash_info_t info, uchar dest, uchar data);
	56	static void flash_get_offsets (ulong base, flash_info_t *info);
	57
	58
affae2bf WD	59	/*
	60	* don't ask. its stupid, but more than one soul has had to live with this mistake
	61	* "swaptab[i]" is the value of "i" with the bits reversed.
	62	*/
	63
	64	#define MUSENKI_BROKEN_FLASH 1
	65
	66	#ifdef MUSENKI_BROKEN_FLASH
	67	unsigned char swaptab[256] = {
	68	0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
	69	0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
	70	0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
	71	0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
	72	0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
	73	0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
	74	0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
	75	0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
	76	0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
	77	0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
	78	0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
	79	0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
	80	0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
	81	0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
	82	0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
	83	0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
	84	0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
	85	0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
	86	0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
	87	0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
	88	0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
	89	0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
	90	0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
	91	0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
	92	0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
	93	0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
	94	0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
	95	0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
	96	0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
	97	0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
	98	0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
	99	0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
	100	};
	101
	102	#define BS(b) (swaptab[b])
	103
	104	#else
	105
	106	#define BS(b) (b)
	107
	108	#endif
	109
	110	#define BYTEME(x) ((x) & 0xFF)
	111
	112	/*-----------------------------------------------------------------------
	113	*/
	114
	115	unsigned long flash_init (void)
	116	{
	117	unsigned long size_b0, size_b1;
	118	int i;
	119
	120	/* Init: no FLASHes known */
	121	for (i=0; i<CFG_MAX_FLASH_BANKS; ++i) {
	122	flash_info[i].flash_id = FLASH_UNKNOWN;
123	}
124
125	/* Static FLASH Bank configuration here - FIXME XXX */
126
127	DEBUGF("\n## Get flash bank 1 size @ 0x%08x\n",CFG_FLASH_BASE0_PRELIM);
128
129	size_b0 = flash_get_size((vu_char *)CFG_FLASH_BASE0_PRELIM, &flash_info[0]);
130
131	if (flash_info[0].flash_id == FLASH_UNKNOWN) {
132	printf ("## Unknown FLASH on Bank 0: "
133	"ID 0x%lx, Size = 0x%08lx = %ld MB\n",
134	flash_info[0].flash_id,
135	size_b0, size_b0<<20);
136	}
137
138	DEBUGF("## Get flash bank 2 size @ 0x%08x\n",CFG_FLASH_BASE1_PRELIM);
139	size_b1 = flash_get_size((vu_char *)CFG_FLASH_BASE1_PRELIM, &flash_info[1]);
140
141	DEBUGF("## Prelim. Flash bank sizes: %08lx + 0x%08lx\n",size_b0,size_b1);
142
143	flash_get_offsets (CFG_FLASH_BASE, &flash_info[0]);
144
145	flash_info[0].size = size_b0;
146
147	#if CFG_MONITOR_BASE >= CFG_FLASH_BASE
3b57fe0a	148	DEBUGF("protect monitor %x @ %x\n", CFG_MONITOR_BASE, monitor_flash_len);
affae2bf WD	149	/* monitor protection ON by default */
	150	flash_protect(FLAG_PROTECT_SET,
	151	CFG_MONITOR_BASE,
3b57fe0a	152	CFG_MONITOR_BASE+monitor_flash_len-1,
affae2bf WD	153	&flash_info[0]);
	154	#endif
	155
5a1aceb0	156	#ifdef CONFIG_ENV_IS_IN_FLASH
affae2bf WD	157	/* ENV protection ON by default */
	158	DEBUGF("protect environtment %x @ %x\n", CFG_ENV_ADDR, CFG_ENV_SECT_SIZE);
	159	flash_protect(FLAG_PROTECT_SET,
	160	CFG_ENV_ADDR,
	161	CFG_ENV_ADDR+CFG_ENV_SECT_SIZE-1,
	162	&flash_info[0]);
	163	#endif
	164
	165	if (size_b1) {
	166	flash_info[1].size = size_b1;
	167	flash_get_offsets (CFG_FLASH_BASE + size_b0, &flash_info[1]);
	168
	169	#if CFG_MONITOR_BASE >= CFG_FLASH_BASE
	170	/* monitor protection ON by default */
	171	flash_protect(FLAG_PROTECT_SET,
	172	CFG_MONITOR_BASE,
3b57fe0a	173	CFG_MONITOR_BASE+monitor_flash_len-1,
affae2bf WD	174	&flash_info[1]);
	175	#endif
	176
5a1aceb0	177	#ifdef CONFIG_ENV_IS_IN_FLASH
affae2bf WD	178	/* ENV protection ON by default */
	179	flash_protect(FLAG_PROTECT_SET,
	180	CFG_ENV_ADDR,
	181	CFG_ENV_ADDR+CFG_ENV_SECT_SIZE-1,
	182	&flash_info[1]);
	183	#endif
	184	} else {
	185	flash_info[1].flash_id = FLASH_UNKNOWN;
	186	flash_info[1].sector_count = -1;
	187	flash_info[1].size = 0;
	188	}
	189
	190	DEBUGF("## Final Flash bank sizes: %08lx + 0x%08lx\n",size_b0,size_b1);
	191
	192	return (size_b0 + size_b1);
	193	}
	194
	195	/*-----------------------------------------------------------------------
	196	*/
	197	static void flash_get_offsets (ulong base, flash_info_t *info)
	198	{
	199	int i;
	200
	201	if (info->flash_id == FLASH_UNKNOWN) {
	202	return;
	203	}
	204
	205	switch (info->flash_id & FLASH_VENDMASK) {
	206	case FLASH_MAN_INTEL:
	207	for (i = 0; i < info->sector_count; i++) {
	208	info->start[i] = base;
	209	base += 0x00020000; /* 128k per bank */
	210	}
	211	return;
	212
	213	default:
	214	printf ("Don't know sector ofsets for flash type 0x%lx\n", info->flash_id);
	215	return;
	216	}
	217	}
	218
	219	/*-----------------------------------------------------------------------
	220	*/
	221	void flash_print_info (flash_info_t *info)
	222	{
	223	int i;
	224
	225	if (info->flash_id == FLASH_UNKNOWN) {
	226	printf ("missing or unknown FLASH type\n");
	227	return;
	228	}
	229
	230	switch (info->flash_id & FLASH_VENDMASK) {
	231	case FLASH_MAN_AMD: printf ("AMD "); break;
	232	case FLASH_MAN_FUJ: printf ("Fujitsu "); break;
	233	case FLASH_MAN_SST: printf ("SST "); break;
	234	case FLASH_MAN_STM: printf ("STM "); break;
	235	case FLASH_MAN_INTEL: printf ("Intel "); break;
	236	case FLASH_MAN_MT: printf ("MT "); break;
	237	default: printf ("Unknown Vendor "); break;
	238	}
	239
	240	switch (info->flash_id & FLASH_TYPEMASK) {
	241	case FLASH_28F320J3A: printf ("28F320J3A (32Mbit = 128K x 32)\n");
242	break;
243	case FLASH_28F640J3A: printf ("28F640J3A (64Mbit = 128K x 64)\n");
244	break;
245	case FLASH_28F128J3A: printf ("28F128J3A (128Mbit = 128K x 128)\n");
246	break;
247	default: printf ("Unknown Chip Type\n");
248	break;
249	}
250
251	if (info->size >= (1 << 20)) {
252	i = 20;
253	} else {
254	i = 10;
255	}
256	printf (" Size: %ld %cB in %d Sectors\n",
257	info->size >> i,
258	(i == 20) ? 'M' : 'k',
259	info->sector_count);
260
261	printf (" Sector Start Addresses:");
262	for (i=0; i<info->sector_count; ++i) {
263	if ((i % 5) == 0)
264	printf ("\n ");
265	printf (" %08lX%s",
266	info->start[i],
267	info->protect[i] ? " (RO)" : " "
268	);
269	}
270	printf ("\n");
271	return;
272	}
273
274	/*-----------------------------------------------------------------------
275	*/
276
277
278	/*-----------------------------------------------------------------------
279	*/
280
281	/*
282	* The following code cannot be run from FLASH!
283	*/
284	static ulong flash_get_size (vu_char addr, flash_info_t info)
285	{
286	vu_char manuf, device;
287
288	addr[0] = BS(0x90);
289	manuf = BS(addr[0]);
290	DEBUGF("Manuf. ID @ 0x%08lx: 0x%08x\n", (vu_char *)addr, manuf);
291
292	switch (manuf) {
293	case BYTEME(AMD_MANUFACT):
294	info->flash_id = FLASH_MAN_AMD;
295	break;
296	case BYTEME(FUJ_MANUFACT):
297	info->flash_id = FLASH_MAN_FUJ;
298	break;
299	case BYTEME(SST_MANUFACT):
300	info->flash_id = FLASH_MAN_SST;
301	break;
302	case BYTEME(STM_MANUFACT):
303	info->flash_id = FLASH_MAN_STM;
304	break;
305	case BYTEME(INTEL_MANUFACT):
306	info->flash_id = FLASH_MAN_INTEL;
307	break;
308	default:
309	info->flash_id = FLASH_UNKNOWN;
310	info->sector_count = 0;
311	info->size = 0;
312	addr[0] = BS(0xFF); /* restore read mode, (yes, BS is a NOP) */
313	return 0; /* no or unknown flash */
314	}
315
316	device = BS(addr[2]); /* device ID */
317
318	DEBUGF("Device ID @ 0x%08x: 0x%08x\n", (&addr[1]), device);
319
320	switch (device) {
321	case BYTEME(INTEL_ID_28F320J3A):
322	info->flash_id += FLASH_28F320J3A;
323	info->sector_count = 32;
324	info->size = 0x00400000;
325	break; /* => 4 MB */
326
327	case BYTEME(INTEL_ID_28F640J3A):
328	info->flash_id += FLASH_28F640J3A;
329	info->sector_count = 64;
330	info->size = 0x00800000;
331	break; /* => 8 MB */
332
333	case BYTEME(INTEL_ID_28F128J3A):
334	info->flash_id += FLASH_28F128J3A;
335	info->sector_count = 128;
336	info->size = 0x01000000;
337	break; /* => 16 MB */
338
339	default:
340	info->flash_id = FLASH_UNKNOWN;
341	addr[0] = BS(0xFF); /* restore read mode (yes, a NOP) */
342	return 0; /* => no or unknown flash */
343
344	}
345
346	if (info->sector_count > CFG_MAX_FLASH_SECT) {
347	printf (" ERROR: sector count %d > max (%d) \n",
348	info->sector_count, CFG_MAX_FLASH_SECT);
349	info->sector_count = CFG_MAX_FLASH_SECT;
350	}
351
352	addr[0] = BS(0xFF); /* restore read mode */
353
354	return (info->size);
355	}
356
357
358	/*-----------------------------------------------------------------------
359	*/
360
361	int flash_erase (flash_info_t *info, int s_first, int s_last)
362	{
363	int flag, prot, sect;
364	ulong start, now, last;
365
366	if ((s_first < 0) \|\| (s_first > s_last)) {
367	if (info->flash_id == FLASH_UNKNOWN) {
368	printf ("- missing\n");
369	} else {
370	printf ("- no sectors to erase\n");
371	}
372	return 1;
373	}
374
375	if ((info->flash_id & FLASH_VENDMASK) != FLASH_MAN_INTEL) {
376	printf ("Can erase only Intel flash types - aborted\n");
377	return 1;
378	}
379
380	prot = 0;
381	for (sect=s_first; sect<=s_last; ++sect) {
382	if (info->protect[sect]) {
383	prot++;
384	}
385	}
386
387	if (prot) {
388	printf ("- Warning: %d protected sectors will not be erased!\n", prot);
389	} else {
390	printf ("\n");
391	}
392
393	start = get_timer (0);
394	last = start;
395	/* Start erase on unprotected sectors */
396	for (sect = s_first; sect<=s_last; sect++) {
397	if (info->protect[sect] == 0) { /* not protected */
398	vu_char addr = (vu_char )(info->start[sect]);
399	unsigned long status;
400
401	/* Disable interrupts which might cause a timeout here */
402	flag = disable_interrupts();
403
404	addr = BS(0x50); / clear status register */
405	addr = BS(0x20); / erase setup */
406	addr = BS(0xD0); / erase confirm */
407
408	/* re-enable interrupts if necessary */
409	if (flag) {
410	enable_interrupts();
411	}
412
413	/* wait at least 80us - let's wait 1 ms */
414	udelay (1000);
415
416	while (((status = BS(*addr)) & BYTEME(0x00800080)) != BYTEME(0x00800080)) {
417	if ((now=get_timer(start)) > CFG_FLASH_ERASE_TOUT) {
418	printf ("Timeout\n");
419	addr = BS(0xB0); / suspend erase */
420	addr = BS(0xFF); / reset to read mode */
421	return 1;
422	}
423
424	/* show that we're waiting */
425	if ((now - last) > 1000) { /* every second */
426	putc ('.');
427	last = now;
428	}
429	}
430
431	addr = BS(0xFF); / reset to read mode */
432	}
433	}
434	printf (" done\n");
435	return 0;
436	}
437
438	/*-----------------------------------------------------------------------
439	* Copy memory to flash, returns:
440	* 0 - OK
441	* 1 - write timeout
442	* 2 - Flash not erased
443	* 4 - Flash not identified
444	*/
445
446	#define FLASH_WIDTH 1 /* flash bus width in bytes */
447
448	int write_buff (flash_info_t info, uchar src, ulong addr, ulong cnt)
449	{
450	uchar wp = (uchar )addr;
451	int rc;
452
453	if (info->flash_id == FLASH_UNKNOWN) {
454	return 4;
455	}
456
457	while (cnt > 0) {
458	if ((rc = write_data(info, wp, *src)) != 0) {
459	return rc;
460	}
461	wp++;
462	src++;
463	cnt--;
464	}
465
466	return cnt;
467	}
468
469	/*-----------------------------------------------------------------------
470	* Write a word to Flash, returns:
471	* 0 - OK
472	* 1 - write timeout
473	* 2 - Flash not erased
474	*/
475	static int write_data (flash_info_t info, uchar dest, uchar data)
476	{
477	vu_char addr = (vu_char )dest;
478	ulong status;
479	ulong start;
480	int flag;
481
482	/* Check if Flash is (sufficiently) erased */
483	if ((BS(*addr) & data) != data) {
484	return 2;
485	}
486	/* Disable interrupts which might cause a timeout here */
487	flag = disable_interrupts();
488
489	addr = BS(0x40); / write setup */
490	*addr = data;
491
492	/* re-enable interrupts if necessary */
493	if (flag) {
494	enable_interrupts();
495	}
496
497	start = get_timer (0);
498
499	while (((status = BS(*addr)) & BYTEME(0x00800080)) != BYTEME(0x00800080)) {
500	if (get_timer(start) > CFG_FLASH_WRITE_TOUT) {
501	addr = BS(0xFF); / restore read mode */
502	return 1;
503	}
504	}
505
506	addr = BS(0xFF); / restore read mode */
507
508	return 0;
509	}
510
511	/*-----------------------------------------------------------------------
512	*/