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

/*
 * (C) Copyright 2003
 * 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 <asm/inca-ip.h>

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

typedef unsigned long FLASH_PORT_WIDTH;
typedef volatile unsigned long FLASH_PORT_WIDTHV;

#define	FLASH_ID_MASK	0xFFFFFFFF

#define FPW	FLASH_PORT_WIDTH
#define FPWV	FLASH_PORT_WIDTHV

#define ORMASK(size) ((-size) & OR_AM_MSK)

#define FLASH29_REG_ADRS(reg) ((FPWV *)PHYS_FLASH_1 + (reg))

/* FLASH29 command register addresses */

#define FLASH29_REG_FIRST_CYCLE		FLASH29_REG_ADRS (0x1555)
#define FLASH29_REG_SECOND_CYCLE	FLASH29_REG_ADRS (0x2aaa)
#define FLASH29_REG_THIRD_CYCLE		FLASH29_REG_ADRS (0x3555)
#define	FLASH29_REG_FOURTH_CYCLE	FLASH29_REG_ADRS (0x4555)
#define	FLASH29_REG_FIFTH_CYCLE		FLASH29_REG_ADRS (0x5aaa)
#define	FLASH29_REG_SIXTH_CYCLE		FLASH29_REG_ADRS (0x6555)

/* FLASH29 command definitions */

#define	FLASH29_CMD_FIRST		0xaaaaaaaa
#define	FLASH29_CMD_SECOND		0x55555555
#define	FLASH29_CMD_FOURTH		0xaaaaaaaa
#define	FLASH29_CMD_FIFTH		0x55555555
#define	FLASH29_CMD_SIXTH		0x10101010

#define	FLASH29_CMD_SECTOR		0x30303030
#define	FLASH29_CMD_PROGRAM		0xa0a0a0a0
#define	FLASH29_CMD_CHIP_ERASE		0x80808080
#define	FLASH29_CMD_READ_RESET		0xf0f0f0f0
#define	FLASH29_CMD_AUTOSELECT		0x90909090
#define FLASH29_CMD_READ		0x70707070

#define IN_RAM_CMD_READ		0x1
#define IN_RAM_CMD_WRITE	0x2

#define FLASH_WRITE_CMD	((ulong)(flash_write_cmd) & 0x7)+0xbf008000
#define FLASH_READ_CMD  ((ulong)(flash_read_cmd) & 0x7)+0xbf008000

typedef void (*FUNCPTR_CP)(ulong *source, ulong *destination, ulong nlongs);
typedef void (*FUNCPTR_RD)(int cmd, FPWV * pFA, char * string, int strLen);
typedef void (*FUNCPTR_WR)(int cmd, FPWV * pFA, FPW value);

static ulong flash_get_size(FPWV *addr, flash_info_t *info);
static int write_word(flash_info_t *info, FPWV *dest, FPW data);
static void flash_get_offsets(ulong base, flash_info_t *info);
static flash_info_t *flash_get_info(ulong base);

static void load_cmd(ulong cmd);
static ulong in_ram_cmd = 0;


/******************************************************************************
*
* Don't change the program architecture
* This architecture assure the program
* can be relocated to scratch ram
*/
static void flash_read_cmd(int cmd, FPWV * pFA, char * string, int strLen)
{
	int i,j;
	FPW temp,temp1;
	FPWV *str;

	str = (FPWV *)string;

	j=  strLen/4;

	if(cmd == FLASH29_CMD_AUTOSELECT)
	   {
	    *(FLASH29_REG_FIRST_CYCLE)  = FLASH29_CMD_FIRST;
	    *(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_AUTOSELECT;
	   }

	if(cmd == FLASH29_CMD_READ)
	   {
	    i = 0;
	    while(i<j)
	    {
		temp = *pFA++;
		temp1 = *(int *)0xa0000000;
		*(int *)0xbf0081f8 = temp1 + temp;
		*str++ = temp;
		i++;
	    }
	   }

	 if(cmd == FLASH29_CMD_READ_RESET)
	 {
	    *(FLASH29_REG_FIRST_CYCLE)  = FLASH29_CMD_FIRST;
	    *(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_READ_RESET;
	 }

	*(int *)0xbf0081f8 = *(int *)0xa0000000;	/* dummy read switch back to sdram interface */
}

/******************************************************************************
*
* Don't change the program architecture
* This architecture assure the program
* can be relocated to scratch ram
*/
static void flash_write_cmd(int cmd, FPWV * pFA, FPW value)
{
	*(FLASH29_REG_FIRST_CYCLE)  = FLASH29_CMD_FIRST;
	*(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;

	if (cmd == FLASH29_CMD_SECTOR)
	   {
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_CHIP_ERASE;
	    *(FLASH29_REG_FOURTH_CYCLE) = FLASH29_CMD_FOURTH;
	    *(FLASH29_REG_FIFTH_CYCLE)  = FLASH29_CMD_FIFTH;
	    *pFA		        = FLASH29_CMD_SECTOR;
	   }

	if (cmd == FLASH29_CMD_SIXTH)
	   {
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_CHIP_ERASE;
	    *(FLASH29_REG_FOURTH_CYCLE) = FLASH29_CMD_FOURTH;
	    *(FLASH29_REG_FIFTH_CYCLE)  = FLASH29_CMD_FIFTH;
	    *(FLASH29_REG_SIXTH_CYCLE)  = FLASH29_CMD_SIXTH;
	   }

	if (cmd == FLASH29_CMD_PROGRAM)
	   {
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_PROGRAM;
	    *pFA = value;
	   }

	if (cmd == FLASH29_CMD_READ_RESET)
	   {
	    *(FLASH29_REG_THIRD_CYCLE)  = FLASH29_CMD_READ_RESET;
	   }

	*(int *)0xbf0081f8 = *(int *)0xa0000000;	/* dummy read switch back to sdram interface */
}

static void load_cmd(ulong cmd)
{
	ulong *src;
	ulong *dst;
	FUNCPTR_CP absEntry;
	ulong func;

	if (in_ram_cmd & cmd) return;

	if (cmd == IN_RAM_CMD_READ)
	{
		func = (ulong)flash_read_cmd;
	}
	else
	{
		func = (ulong)flash_write_cmd;
	}

	src = (ulong *)(func & 0xfffffff8);
	dst = (ulong *)0xbf008000;
	absEntry = (FUNCPTR_CP)(0xbf0081d0);
	absEntry(src,dst,0x38);

	in_ram_cmd = cmd;
}

/*-----------------------------------------------------------------------
 * flash_init()
 *
 * sets up flash_info and returns size of FLASH (bytes)
 */
unsigned long flash_init (void)
{
	unsigned long size = 0;
	int i;

	load_cmd(IN_RAM_CMD_READ);

	/* Init: no FLASHes known */
	for (i=0; i < CONFIG_SYS_MAX_FLASH_BANKS; ++i) {
		ulong flashbase = PHYS_FLASH_1;
		ulong * buscon = (ulong *) INCA_IP_EBU_EBU_BUSCON0;

		/* Disable write protection */
		*buscon &= ~INCA_IP_EBU_EBU_BUSCON1_WRDIS;

#if 1
		memset(&flash_info[i], 0, sizeof(flash_info_t));
#endif

		flash_info[i].size =
			flash_get_size((FPW *)flashbase, &flash_info[i]);

		if (flash_info[i].flash_id == FLASH_UNKNOWN) {
			printf ("## Unknown FLASH on Bank %d - Size = 0x%08lx\n",
			i, flash_info[i].size);
		}

		size += flash_info[i].size;
	}

#if CONFIG_SYS_MONITOR_BASE >= CONFIG_SYS_FLASH_BASE
	/* monitor protection ON by default */
	flash_protect(FLAG_PROTECT_SET,
		      CONFIG_SYS_MONITOR_BASE,
		      CONFIG_SYS_MONITOR_BASE+monitor_flash_len-1,
		      flash_get_info(CONFIG_SYS_MONITOR_BASE));
#endif

#ifdef	CONFIG_ENV_IS_IN_FLASH
	/* ENV protection ON by default */
	flash_protect(FLAG_PROTECT_SET,
		      CONFIG_ENV_ADDR,
		      CONFIG_ENV_ADDR+CONFIG_ENV_SIZE-1,
		      flash_get_info(CONFIG_ENV_ADDR));
#endif

	return size;
}

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

	if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_AMD
		 && (info->flash_id & FLASH_TYPEMASK) == FLASH_AM160B) {

		int bootsect_size[4];	/* number of bytes/boot sector  */
		int sect_size;		/* number of bytes/regular sector */

		bootsect_size[0] = 0x00008000;
		bootsect_size[1] = 0x00004000;
		bootsect_size[2] = 0x00004000;
		bootsect_size[3] = 0x00010000;
		sect_size =        0x00020000;

		/* set sector offsets for bottom boot block type	*/
		for (i = 0; i < info->sector_count; i++) {
			info->start[i] = base;
			base += i < 4 ? bootsect_size[i] : sect_size;
		}
	}
}

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

static flash_info_t *flash_get_info(ulong base)
{
	int i;
	flash_info_t * info;

	for (i = 0; i < CONFIG_SYS_MAX_FLASH_BANKS; i ++) {
		info = & flash_info[i];
		if (info->start[0] <= base && base < info->start[0] + info->size)
			break;
	}

	return i == CONFIG_SYS_MAX_FLASH_BANKS ? 0 : info;
}

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

void flash_print_info (flash_info_t *info)
{
	int i;
	uchar *boottype;
	uchar *bootletter;
	char *fmt;
	uchar botbootletter[] = "B";
	uchar topbootletter[] = "T";
	uchar botboottype[] = "bottom boot sector";
	uchar topboottype[] = "top boot sector";

	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_BM:	printf ("BRIGHT MICRO ");	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;
	default:		printf ("Unknown Vendor ");	break;
	}

	/* check for top or bottom boot, if it applies */
	if (info->flash_id & FLASH_BTYPE) {
		boottype = botboottype;
		bootletter = botbootletter;
	}
	else {
		boottype = topboottype;
		bootletter = topbootletter;
	}

	switch (info->flash_id & FLASH_TYPEMASK) {
	case FLASH_AM160B:
		fmt = "29LV160B%s (16 Mbit, %s)\n";
		break;
	case FLASH_28F800C3B:
	case FLASH_28F800C3T:
		fmt = "28F800C3%s (8 Mbit, %s)\n";
		break;
	case FLASH_INTEL800B:
	case FLASH_INTEL800T:
		fmt = "28F800B3%s (8 Mbit, %s)\n";
		break;
	case FLASH_28F160C3B:
	case FLASH_28F160C3T:
		fmt = "28F160C3%s (16 Mbit, %s)\n";
		break;
	case FLASH_INTEL160B:
	case FLASH_INTEL160T:
		fmt = "28F160B3%s (16 Mbit, %s)\n";
		break;
	case FLASH_28F320C3B:
	case FLASH_28F320C3T:
		fmt = "28F320C3%s (32 Mbit, %s)\n";
		break;
	case FLASH_INTEL320B:
	case FLASH_INTEL320T:
		fmt = "28F320B3%s (32 Mbit, %s)\n";
		break;
	case FLASH_28F640C3B:
	case FLASH_28F640C3T:
		fmt = "28F640C3%s (64 Mbit, %s)\n";
		break;
	case FLASH_INTEL640B:
	case FLASH_INTEL640T:
		fmt = "28F640B3%s (64 Mbit, %s)\n";
		break;
	default:
		fmt = "Unknown Chip Type\n";
		break;
	}

	printf (fmt, bootletter, boottype);

	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");
}

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

/*
 * The following code cannot be run from FLASH!
 */

ulong flash_get_size (FPWV *addr, flash_info_t *info)
{
	FUNCPTR_RD absEntry;
	FPW retValue;
	int flag;

	load_cmd(IN_RAM_CMD_READ);
	absEntry = (FUNCPTR_RD)FLASH_READ_CMD;

	flag = disable_interrupts();
	absEntry(FLASH29_CMD_AUTOSELECT,0,0,0);
	if (flag) enable_interrupts();

	udelay(100);

	flag = disable_interrupts();
	absEntry(FLASH29_CMD_READ, addr + 1, (char *)&retValue, sizeof(retValue));
	absEntry(FLASH29_CMD_READ_RESET,0,0,0);
	if (flag) enable_interrupts();

	udelay(100);

	switch (retValue) {

	case (FPW)AMD_ID_LV160B:
		info->flash_id += FLASH_AM160B;
		info->sector_count = 35;
		info->size = 0x00400000;
		break;				/* => 8 or 16 MB	*/

	default:
		info->flash_id = FLASH_UNKNOWN;
		info->sector_count = 0;
		info->size = 0;
		return (0);			/* => no or unknown flash */
	}

	flash_get_offsets((ulong)addr, info);

	return (info->size);
}

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

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

	load_cmd(IN_RAM_CMD_WRITE);
	absEntry = (FUNCPTR_WR)FLASH_WRITE_CMD;

	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;
	}

	switch (info->flash_id & FLASH_TYPEMASK) {
	case FLASH_AM160B:
		break;
	case FLASH_UNKNOWN:
	default:
		printf ("Can't erase unknown flash type %08lx - aborted\n",
			info->flash_id);
		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");
	}

	last  = get_timer(0);

	/* Start erase on unprotected sectors */
	for (sect = s_first; sect<=s_last; sect++) {

		if (info->protect[sect] != 0)	/* protected, skip it */
			continue;

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

		addr = (FPWV *)(info->start[sect]);
		absEntry(FLASH29_CMD_SECTOR, addr, 0);

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

		start = get_timer(0);

		while ((now = get_timer(start)) <= CONFIG_SYS_FLASH_ERASE_TOUT) {

			/* show that we're waiting */
			if ((get_timer(last)) > CONFIG_SYS_HZ) {/* every second */
				putc ('.');
				last = get_timer(0);
			}
		}

		flag = disable_interrupts();
		absEntry(FLASH29_CMD_READ_RESET,0,0);
		if (flag)
			enable_interrupts();
	}

	printf (" done\n");
	return 0;
}

/*-----------------------------------------------------------------------
 * Copy memory to flash, returns:
 * 0 - OK
 * 1 - write timeout
 * 2 - Flash not erased
 */
int write_buff (flash_info_t *info, uchar *src, ulong addr, ulong cnt)
{
    FPW data = 0; /* 16 or 32 bit word, matches flash bus width on MPC8XX */
    int bytes;	  /* number of bytes to program in current word		*/
    int left;	  /* number of bytes left to program			*/
    int i, res;

    for (left = cnt, res = 0;
	 left > 0 && res == 0;
	 addr += sizeof(data), left -= sizeof(data) - bytes) {

	bytes = addr & (sizeof(data) - 1);
	addr &= ~(sizeof(data) - 1);

	/* combine source and destination data so can program
	 * an entire word of 16 or 32 bits
	 */
	for (i = 0; i < sizeof(data); i++) {
	    data <<= 8;
	    if (i < bytes || i - bytes >= left )
		data += *((uchar *)addr + i);
	    else
		data += *src++;
	}

	res = write_word(info, (FPWV *)addr, data);
    }

    return (res);
}

static int write_word (flash_info_t *info, FPWV *dest, FPW data)
{
    int res = 0;	/* result, assume success	*/
    FUNCPTR_WR absEntry;
    int flag;

    /* Check if Flash is (sufficiently) erased */
    if ((*dest & data) != data) {
	return (2);
    }

    if (info->start[0] != PHYS_FLASH_1)
    {
	return (3);
    }

    load_cmd(IN_RAM_CMD_WRITE);
    absEntry = (FUNCPTR_WR)FLASH_WRITE_CMD;

    flag = disable_interrupts();
    absEntry(FLASH29_CMD_PROGRAM,dest,data);
    if (flag) enable_interrupts();

    udelay(100);

    flag = disable_interrupts();
    absEntry(FLASH29_CMD_READ_RESET,0,0);
    if (flag) enable_interrupts();

    return (res);
}
Commit	Line	Data
60fbe254 WD	1	/*
	2	* (C) Copyright 2003
	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 <asm/inca-ip.h>
	26
6d0f6bcf	27	flash_info_t flash_info[CONFIG_SYS_MAX_FLASH_BANKS]; /* info for FLASH chips */
60fbe254 WD	28
	29	typedef unsigned long FLASH_PORT_WIDTH;
	30	typedef volatile unsigned long FLASH_PORT_WIDTHV;
	31
	32	#define FLASH_ID_MASK 0xFFFFFFFF
	33
	34	#define FPW FLASH_PORT_WIDTH
	35	#define FPWV FLASH_PORT_WIDTHV
	36
	37	#define ORMASK(size) ((-size) & OR_AM_MSK)
	38
	39	#define FLASH29_REG_ADRS(reg) ((FPWV *)PHYS_FLASH_1 + (reg))
	40
	41	/* FLASH29 command register addresses */
	42
	43	#define FLASH29_REG_FIRST_CYCLE FLASH29_REG_ADRS (0x1555)
	44	#define FLASH29_REG_SECOND_CYCLE FLASH29_REG_ADRS (0x2aaa)
8bde7f77	45	#define FLASH29_REG_THIRD_CYCLE FLASH29_REG_ADRS (0x3555)
60fbe254 WD	46	#define FLASH29_REG_FOURTH_CYCLE FLASH29_REG_ADRS (0x4555)
	47	#define FLASH29_REG_FIFTH_CYCLE FLASH29_REG_ADRS (0x5aaa)
	48	#define FLASH29_REG_SIXTH_CYCLE FLASH29_REG_ADRS (0x6555)
	49
	50	/* FLASH29 command definitions */
	51
	52	#define FLASH29_CMD_FIRST 0xaaaaaaaa
	53	#define FLASH29_CMD_SECOND 0x55555555
	54	#define FLASH29_CMD_FOURTH 0xaaaaaaaa
	55	#define FLASH29_CMD_FIFTH 0x55555555
	56	#define FLASH29_CMD_SIXTH 0x10101010
	57
	58	#define FLASH29_CMD_SECTOR 0x30303030
	59	#define FLASH29_CMD_PROGRAM 0xa0a0a0a0
	60	#define FLASH29_CMD_CHIP_ERASE 0x80808080
	61	#define FLASH29_CMD_READ_RESET 0xf0f0f0f0
	62	#define FLASH29_CMD_AUTOSELECT 0x90909090
8bde7f77	63	#define FLASH29_CMD_READ 0x70707070
60fbe254 WD	64
	65	#define IN_RAM_CMD_READ 0x1
	66	#define IN_RAM_CMD_WRITE 0x2
	67
	68	#define FLASH_WRITE_CMD ((ulong)(flash_write_cmd) & 0x7)+0xbf008000
	69	#define FLASH_READ_CMD ((ulong)(flash_read_cmd) & 0x7)+0xbf008000
	70
	71	typedef void (FUNCPTR_CP)(ulong source, ulong *destination, ulong nlongs);
	72	typedef void (FUNCPTR_RD)(int cmd, FPWV pFA, char * string, int strLen);
	73	typedef void (FUNCPTR_WR)(int cmd, FPWV pFA, FPW value);
	74
	75	static ulong flash_get_size(FPWV addr, flash_info_t info);
	76	static int write_word(flash_info_t info, FPWV dest, FPW data);
	77	static void flash_get_offsets(ulong base, flash_info_t *info);
	78	static flash_info_t *flash_get_info(ulong base);
	79
	80	static void load_cmd(ulong cmd);
	81	static ulong in_ram_cmd = 0;
	82
	83
	84	/******************************************************************************
	85	*
	86	* Don't change the program architecture
	87	* This architecture assure the program
	88	* can be relocated to scratch ram
	89	*/
	90	static void flash_read_cmd(int cmd, FPWV * pFA, char * string, int strLen)
8bde7f77	91	{
60fbe254	92	int i,j;
8bde7f77	93	FPW temp,temp1;
60fbe254 WD	94	FPWV *str;
	95
	96	str = (FPWV *)string;
	97
	98	j= strLen/4;
8bde7f77	99
60fbe254 WD	100	if(cmd == FLASH29_CMD_AUTOSELECT)
60fbe254 WD	101	{
8bde7f77 WD	102	*(FLASH29_REG_FIRST_CYCLE) = FLASH29_CMD_FIRST;
	103	*(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;
	104	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_AUTOSELECT;
	105	}
	106
	107	if(cmd == FLASH29_CMD_READ)
	108	{
	109	i = 0;
	110	while(i<j)
	111	{
60fbe254 WD	112	temp = *pFA++;
60fbe254 WD	113	temp1 = (int )0xa0000000;
8bde7f77	114	(int )0xbf0081f8 = temp1 + temp;
60fbe254 WD	115	*str++ = temp;
60fbe254 WD	116	i++;
8bde7f77 WD	117	}
	118	}
	119
	120	if(cmd == FLASH29_CMD_READ_RESET)
	121	{
	122	*(FLASH29_REG_FIRST_CYCLE) = FLASH29_CMD_FIRST;
	123	*(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;
	124	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_READ_RESET;
	125	}
	126
	127	(int )0xbf0081f8 = (int )0xa0000000; /* dummy read switch back to sdram interface */
60fbe254 WD	128	}
	129
	130	/******************************************************************************
	131	*
	132	* Don't change the program architecture
	133	* This architecture assure the program
	134	* can be relocated to scratch ram
	135	*/
	136	static void flash_write_cmd(int cmd, FPWV * pFA, FPW value)
8bde7f77 WD	137	{
	138	*(FLASH29_REG_FIRST_CYCLE) = FLASH29_CMD_FIRST;
	139	*(FLASH29_REG_SECOND_CYCLE) = FLASH29_CMD_SECOND;
60fbe254 WD	140
	141	if (cmd == FLASH29_CMD_SECTOR)
	142	{
8bde7f77 WD	143	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_CHIP_ERASE;
	144	*(FLASH29_REG_FOURTH_CYCLE) = FLASH29_CMD_FOURTH;
	145	*(FLASH29_REG_FIFTH_CYCLE) = FLASH29_CMD_FIFTH;
	146	*pFA = FLASH29_CMD_SECTOR;
	147	}
	148
	149	if (cmd == FLASH29_CMD_SIXTH)
	150	{
	151	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_CHIP_ERASE;
	152	*(FLASH29_REG_FOURTH_CYCLE) = FLASH29_CMD_FOURTH;
	153	*(FLASH29_REG_FIFTH_CYCLE) = FLASH29_CMD_FIFTH;
	154	*(FLASH29_REG_SIXTH_CYCLE) = FLASH29_CMD_SIXTH;
60fbe254 WD	155	}
60fbe254 WD	156
8bde7f77 WD	157	if (cmd == FLASH29_CMD_PROGRAM)
	158	{
	159	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_PROGRAM;
60fbe254	160	*pFA = value;
8bde7f77 WD	161	}
	162
	163	if (cmd == FLASH29_CMD_READ_RESET)
	164	{
	165	*(FLASH29_REG_THIRD_CYCLE) = FLASH29_CMD_READ_RESET;
	166	}
	167
	168	(int )0xbf0081f8 = (int )0xa0000000; /* dummy read switch back to sdram interface */
60fbe254 WD	169	}
	170
	171	static void load_cmd(ulong cmd)
	172	{
	173	ulong *src;
	174	ulong *dst;
	175	FUNCPTR_CP absEntry;
	176	ulong func;
8bde7f77	177
60fbe254	178	if (in_ram_cmd & cmd) return;
8bde7f77	179
60fbe254 WD	180	if (cmd == IN_RAM_CMD_READ)
	181	{
	182	func = (ulong)flash_read_cmd;
	183	}
	184	else
	185	{
	186	func = (ulong)flash_write_cmd;
	187	}
	188
8bde7f77 WD	189	src = (ulong *)(func & 0xfffffff8);
	190	dst = (ulong *)0xbf008000;
	191	absEntry = (FUNCPTR_CP)(0xbf0081d0);
	192	absEntry(src,dst,0x38);
60fbe254	193
8bde7f77	194	in_ram_cmd = cmd;
60fbe254 WD	195	}
	196
	197	/*-----------------------------------------------------------------------
	198	* flash_init()
	199	*
	200	* sets up flash_info and returns size of FLASH (bytes)
	201	*/
	202	unsigned long flash_init (void)
	203	{
	204	unsigned long size = 0;
	205	int i;
8bde7f77 WD	206
8bde7f77 WD	207	load_cmd(IN_RAM_CMD_READ);
60fbe254 WD	208
60fbe254 WD	209	/* Init: no FLASHes known */
6d0f6bcf	210	for (i=0; i < CONFIG_SYS_MAX_FLASH_BANKS; ++i) {
60fbe254 WD	211	ulong flashbase = PHYS_FLASH_1;
60fbe254 WD	212	ulong * buscon = (ulong *) INCA_IP_EBU_EBU_BUSCON0;
8bde7f77	213
60fbe254 WD	214	/* Disable write protection */
	215	*buscon &= ~INCA_IP_EBU_EBU_BUSCON1_WRDIS;
	216
	217	#if 1
	218	memset(&flash_info[i], 0, sizeof(flash_info_t));
	219	#endif
	220
8bde7f77	221	flash_info[i].size =
60fbe254 WD	222	flash_get_size((FPW *)flashbase, &flash_info[i]);
	223
	224	if (flash_info[i].flash_id == FLASH_UNKNOWN) {
	225	printf ("## Unknown FLASH on Bank %d - Size = 0x%08lx\n",
	226	i, flash_info[i].size);
	227	}
8bde7f77	228
60fbe254 WD	229	size += flash_info[i].size;
	230	}
	231
6d0f6bcf	232	#if CONFIG_SYS_MONITOR_BASE >= CONFIG_SYS_FLASH_BASE
60fbe254 WD	233	/* monitor protection ON by default */
60fbe254 WD	234	flash_protect(FLAG_PROTECT_SET,
6d0f6bcf JCPV	235	CONFIG_SYS_MONITOR_BASE,
	236	CONFIG_SYS_MONITOR_BASE+monitor_flash_len-1,
	237	flash_get_info(CONFIG_SYS_MONITOR_BASE));
60fbe254 WD	238	#endif
60fbe254 WD	239
5a1aceb0	240	#ifdef CONFIG_ENV_IS_IN_FLASH
60fbe254 WD	241	/* ENV protection ON by default */
60fbe254 WD	242	flash_protect(FLAG_PROTECT_SET,
0e8d1586 JCPV	243	CONFIG_ENV_ADDR,
	244	CONFIG_ENV_ADDR+CONFIG_ENV_SIZE-1,
	245	flash_get_info(CONFIG_ENV_ADDR));
60fbe254 WD	246	#endif
	247
	248	return size;
	249	}
	250
	251	/*-----------------------------------------------------------------------
	252	*/
	253	static void flash_get_offsets (ulong base, flash_info_t *info)
	254	{
	255	int i;
	256
	257	if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_AMD
	258	&& (info->flash_id & FLASH_TYPEMASK) == FLASH_AM160B) {
	259
	260	int bootsect_size[4]; /* number of bytes/boot sector */
	261	int sect_size; /* number of bytes/regular sector */
	262
	263	bootsect_size[0] = 0x00008000;
	264	bootsect_size[1] = 0x00004000;
	265	bootsect_size[2] = 0x00004000;
	266	bootsect_size[3] = 0x00010000;
	267	sect_size = 0x00020000;
	268
	269	/* set sector offsets for bottom boot block type */
	270	for (i = 0; i < info->sector_count; i++) {
	271	info->start[i] = base;
	272	base += i < 4 ? bootsect_size[i] : sect_size;
	273	}
	274	}
	275	}
	276
	277	/*-----------------------------------------------------------------------
	278	*/
	279
	280	static flash_info_t *flash_get_info(ulong base)
	281	{
	282	int i;
	283	flash_info_t * info;
8bde7f77	284
6d0f6bcf	285	for (i = 0; i < CONFIG_SYS_MAX_FLASH_BANKS; i ++) {
60fbe254 WD	286	info = & flash_info[i];
	287	if (info->start[0] <= base && base < info->start[0] + info->size)
	288	break;
	289	}
8bde7f77	290
6d0f6bcf	291	return i == CONFIG_SYS_MAX_FLASH_BANKS ? 0 : info;
60fbe254 WD	292	}
	293
	294	/*-----------------------------------------------------------------------
	295	*/
	296
	297	void flash_print_info (flash_info_t *info)
	298	{
	299	int i;
	300	uchar *boottype;
	301	uchar *bootletter;
64bf5554	302	char *fmt;
60fbe254 WD	303	uchar botbootletter[] = "B";
	304	uchar topbootletter[] = "T";
	305	uchar botboottype[] = "bottom boot sector";
	306	uchar topboottype[] = "top boot sector";
	307
	308	if (info->flash_id == FLASH_UNKNOWN) {
	309	printf ("missing or unknown FLASH type\n");
	310	return;
	311	}
	312
	313	switch (info->flash_id & FLASH_VENDMASK) {
	314	case FLASH_MAN_AMD: printf ("AMD "); break;
	315	case FLASH_MAN_BM: printf ("BRIGHT MICRO "); break;
	316	case FLASH_MAN_FUJ: printf ("FUJITSU "); break;
	317	case FLASH_MAN_SST: printf ("SST "); break;
	318	case FLASH_MAN_STM: printf ("STM "); break;
	319	case FLASH_MAN_INTEL: printf ("INTEL "); break;
	320	default: printf ("Unknown Vendor "); break;
	321	}
	322
	323	/* check for top or bottom boot, if it applies */
	324	if (info->flash_id & FLASH_BTYPE) {
	325	boottype = botboottype;
	326	bootletter = botbootletter;
	327	}
	328	else {
	329	boottype = topboottype;
	330	bootletter = topbootletter;
	331	}
	332
	333	switch (info->flash_id & FLASH_TYPEMASK) {
	334	case FLASH_AM160B:
	335	fmt = "29LV160B%s (16 Mbit, %s)\n";
	336	break;
8bde7f77 WD	337	case FLASH_28F800C3B:
8bde7f77 WD	338	case FLASH_28F800C3T:
60fbe254 WD	339	fmt = "28F800C3%s (8 Mbit, %s)\n";
	340	break;
	341	case FLASH_INTEL800B:
	342	case FLASH_INTEL800T:
	343	fmt = "28F800B3%s (8 Mbit, %s)\n";
	344	break;
8bde7f77 WD	345	case FLASH_28F160C3B:
8bde7f77 WD	346	case FLASH_28F160C3T:
60fbe254 WD	347	fmt = "28F160C3%s (16 Mbit, %s)\n";
	348	break;
	349	case FLASH_INTEL160B:
	350	case FLASH_INTEL160T:
	351	fmt = "28F160B3%s (16 Mbit, %s)\n";
	352	break;
8bde7f77 WD	353	case FLASH_28F320C3B:
8bde7f77 WD	354	case FLASH_28F320C3T:
60fbe254 WD	355	fmt = "28F320C3%s (32 Mbit, %s)\n";
	356	break;
	357	case FLASH_INTEL320B:
	358	case FLASH_INTEL320T:
	359	fmt = "28F320B3%s (32 Mbit, %s)\n";
	360	break;
8bde7f77 WD	361	case FLASH_28F640C3B:
8bde7f77 WD	362	case FLASH_28F640C3T:
60fbe254 WD	363	fmt = "28F640C3%s (64 Mbit, %s)\n";
	364	break;
	365	case FLASH_INTEL640B:
	366	case FLASH_INTEL640T:
	367	fmt = "28F640B3%s (64 Mbit, %s)\n";
	368	break;
	369	default:
	370	fmt = "Unknown Chip Type\n";
	371	break;
	372	}
	373
	374	printf (fmt, bootletter, boottype);
	375
	376	printf (" Size: %ld MB in %d Sectors\n",
	377	info->size >> 20,
	378	info->sector_count);
	379
	380	printf (" Sector Start Addresses:");
	381
	382	for (i=0; i<info->sector_count; ++i) {
	383	if ((i % 5) == 0) {
	384	printf ("\n ");
	385	}
	386
	387	printf (" %08lX%s", info->start[i],
	388	info->protect[i] ? " (RO)" : " ");
	389	}
	390
	391	printf ("\n");
	392	}
	393
	394	/*-----------------------------------------------------------------------
	395	*/
	396
	397	/*
	398	* The following code cannot be run from FLASH!
	399	*/
	400
	401	ulong flash_get_size (FPWV addr, flash_info_t info)
	402	{
	403	FUNCPTR_RD absEntry;
8bde7f77	404	FPW retValue;
60fbe254 WD	405	int flag;
60fbe254 WD	406
8bde7f77	407	load_cmd(IN_RAM_CMD_READ);
60fbe254 WD	408	absEntry = (FUNCPTR_RD)FLASH_READ_CMD;
	409
	410	flag = disable_interrupts();
	411	absEntry(FLASH29_CMD_AUTOSELECT,0,0,0);
	412	if (flag) enable_interrupts();
8bde7f77	413
60fbe254 WD	414	udelay(100);
	415
	416	flag = disable_interrupts();
	417	absEntry(FLASH29_CMD_READ, addr + 1, (char *)&retValue, sizeof(retValue));
	418	absEntry(FLASH29_CMD_READ_RESET,0,0,0);
	419	if (flag) enable_interrupts();
	420
	421	udelay(100);
	422
	423	switch (retValue) {
	424
	425	case (FPW)AMD_ID_LV160B:
	426	info->flash_id += FLASH_AM160B;
	427	info->sector_count = 35;
	428	info->size = 0x00400000;
	429	break; /* => 8 or 16 MB */
	430
	431	default:
	432	info->flash_id = FLASH_UNKNOWN;
	433	info->sector_count = 0;
	434	info->size = 0;
	435	return (0); /* => no or unknown flash */
	436	}
	437
	438	flash_get_offsets((ulong)addr, info);
	439
	440	return (info->size);
	441	}
	442
	443	/*-----------------------------------------------------------------------
	444	*/
	445
	446	int flash_erase (flash_info_t *info, int s_first, int s_last)
	447	{
	448	FPWV *addr;
	449	int flag, prot, sect;
	450	ulong start, now, last;
60fbe254 WD	451	FUNCPTR_WR absEntry;
60fbe254 WD	452
8bde7f77	453	load_cmd(IN_RAM_CMD_WRITE);
60fbe254 WD	454	absEntry = (FUNCPTR_WR)FLASH_WRITE_CMD;
	455
	456	if ((s_first < 0) \|\| (s_first > s_last)) {
	457	if (info->flash_id == FLASH_UNKNOWN) {
	458	printf ("- missing\n");
	459	} else {
	460	printf ("- no sectors to erase\n");
	461	}
	462	return 1;
	463	}
	464
	465	switch (info->flash_id & FLASH_TYPEMASK) {
	466	case FLASH_AM160B:
	467	break;
	468	case FLASH_UNKNOWN:
	469	default:
	470	printf ("Can't erase unknown flash type %08lx - aborted\n",
	471	info->flash_id);
	472	return 1;
	473	}
	474
	475	prot = 0;
	476	for (sect=s_first; sect<=s_last; ++sect) {
	477	if (info->protect[sect]) {
	478	prot++;
	479	}
	480	}
	481
	482	if (prot) {
	483	printf ("- Warning: %d protected sectors will not be erased!\n",
	484	prot);
	485	} else {
	486	printf ("\n");
	487	}
	488
	489	last = get_timer(0);
	490
	491	/* Start erase on unprotected sectors */
75b5bbde	492	for (sect = s_first; sect<=s_last; sect++) {
60fbe254 WD	493
	494	if (info->protect[sect] != 0) /* protected, skip it */
	495	continue;
	496
	497	/* Disable interrupts which might cause a timeout here */
	498	flag = disable_interrupts();
	499
	500	addr = (FPWV *)(info->start[sect]);
	501	absEntry(FLASH29_CMD_SECTOR, addr, 0);
	502
	503	/* re-enable interrupts if necessary */
	504	if (flag)
	505	enable_interrupts();
	506
	507	start = get_timer(0);
	508
6d0f6bcf	509	while ((now = get_timer(start)) <= CONFIG_SYS_FLASH_ERASE_TOUT) {
60fbe254 WD	510
60fbe254 WD	511	/* show that we're waiting */
6d0f6bcf	512	if ((get_timer(last)) > CONFIG_SYS_HZ) {/* every second */
60fbe254 WD	513	putc ('.');
	514	last = get_timer(0);
	515	}
	516	}
	517
	518	flag = disable_interrupts();
	519	absEntry(FLASH29_CMD_READ_RESET,0,0);
	520	if (flag)
	521	enable_interrupts();
	522	}
	523
	524	printf (" done\n");
75b5bbde	525	return 0;
60fbe254 WD	526	}
	527
	528	/*-----------------------------------------------------------------------
	529	* Copy memory to flash, returns:
	530	* 0 - OK
	531	* 1 - write timeout
	532	* 2 - Flash not erased
	533	*/
	534	int write_buff (flash_info_t info, uchar src, ulong addr, ulong cnt)
	535	{
	536	FPW data = 0; /* 16 or 32 bit word, matches flash bus width on MPC8XX */
	537	int bytes; /* number of bytes to program in current word */
	538	int left; /* number of bytes left to program */
	539	int i, res;
	540
	541	for (left = cnt, res = 0;
	542	left > 0 && res == 0;
	543	addr += sizeof(data), left -= sizeof(data) - bytes) {
	544
8bde7f77 WD	545	bytes = addr & (sizeof(data) - 1);
8bde7f77 WD	546	addr &= ~(sizeof(data) - 1);
60fbe254 WD	547
	548	/* combine source and destination data so can program
	549	* an entire word of 16 or 32 bits
	550	*/
8bde7f77 WD	551	for (i = 0; i < sizeof(data); i++) {
	552	data <<= 8;
	553	if (i < bytes \|\| i - bytes >= left )
60fbe254 WD	554	data += ((uchar )addr + i);
	555	else
	556	data += *src++;
	557	}
	558
	559	res = write_word(info, (FPWV *)addr, data);
	560	}
	561
	562	return (res);
	563	}
	564
	565	static int write_word (flash_info_t info, FPWV dest, FPW data)
	566	{
	567	int res = 0; /* result, assume success */
	568	FUNCPTR_WR absEntry;
	569	int flag;
	570
	571	/* Check if Flash is (sufficiently) erased */
	572	if ((*dest & data) != data) {
	573	return (2);
	574	}
	575
	576	if (info->start[0] != PHYS_FLASH_1)
	577	{
	578	return (3);
	579	}
	580
	581	load_cmd(IN_RAM_CMD_WRITE);
	582	absEntry = (FUNCPTR_WR)FLASH_WRITE_CMD;
	583
	584	flag = disable_interrupts();
	585	absEntry(FLASH29_CMD_PROGRAM,dest,data);
	586	if (flag) enable_interrupts();
	587
	588	udelay(100);
	589
	590	flag = disable_interrupts();
	591	absEntry(FLASH29_CMD_READ_RESET,0,0);
	592	if (flag) enable_interrupts();
	593
	594	return (res);
	595	}