board/hymod/bsp.c - filogic/uboot - Gitiles

 /*
  * (C) Copyright 2000
  * 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
  *
  * hacked for Hymod FPGA support by Murray.Jensen@cmst.csiro.au, 29-Jan-01
  */

 #include <common.h>
 #include <command.h>
 #include <net.h>
 #include <i2c.h>
 #include <asm/iopin_8260.h>
 #include <cmd_bsp.h>

 /*-----------------------------------------------------------------------
  * Board Special Commands: FPGA load/store, EEPROM erase
  */

 #if (CONFIG_COMMANDS & CFG_CMD_BSP)

 #define LOAD_SUCCESS		0
 #define LOAD_FAIL_NOCONF	1
 #define LOAD_FAIL_NOINIT	2
 #define LOAD_FAIL_NODONE	3

 #define STORE_SUCCESS		0

 /*
  * Programming the Hymod FPGAs
  *
  * The 8260 io port config table is set up so that the INIT pin is
  * held Low (Open Drain output 0) - this will delay the automatic
  * Power-On config until INIT is released (by making it an input).
  *
  * If the FPGA has been programmed before, then the assertion of PROGRAM
  * will initiate configuration (i.e. it begins clearing the RAM).
  *
  * When the FPGA is ready to receive configuration data (either after
  * releasing INIT after Power-On, or after asserting PROGRAM), it will
  * pull INIT high.
  *
  * Notes from Paul Dunn:
  *
  *  1. program pin should be forced low for >= 300ns
  *     (about 20 bus clock cycles minimum).
  *
  *  2. then wait for init to go high, which signals
  *     that the FPGA has cleared its internal memory
  *     and is ready to load
  *
  *  3. perform load writes of entire config file
  *
  *  4. wait for done to go high, which should be
  *     within a few bus clock cycles. If done has not
  *     gone high after reasonable period, then load
  *     has not worked (wait several ms?)
  */

 int fpga_load (int mezz, uchar * addr, ulong size)
 {
 	DECLARE_GLOBAL_DATA_PTR;

 	hymod_conf_t *cp = &gd->bd->bi_hymod_conf;
 	xlx_iopins_t *fpgaio;
 	volatile uchar *fpgabase;
 	volatile uint cnt;
 	uchar *eaddr = addr + size;
 	int result;

 	if (mezz) {
 		if (!cp->mezz.mmap[0].prog.exists)
 			return (LOAD_FAIL_NOCONF);
 		fpgabase = (uchar *) cp->mezz.mmap[0].prog.base;
 		fpgaio = &cp->mezz.iopins[0];
 	} else {
 		if (!cp->main.mmap[0].prog.exists)
 			return (LOAD_FAIL_NOCONF);
 		fpgabase = (uchar *) cp->main.mmap[0].prog.base;
 		fpgaio = &cp->main.iopins[0];
 	}

 	/* set enable HIGH if required */
 	if (fpgaio->enable_pin.flag)
 		iopin_set_high (&fpgaio->enable_pin);

 	/* ensure INIT is released (set it to be an input) */
 	iopin_set_in (&fpgaio->init_pin);

 	/* toggle PROG Low then High (will already be Low after Power-On) */
 	iopin_set_low (&fpgaio->prog_pin);
 	udelay (1);					/* minimum 300ns - 1usec should do it */
 	iopin_set_high (&fpgaio->prog_pin);

 	/* wait for INIT High */
 	cnt = 0;
 	while (!iopin_is_high (&fpgaio->init_pin))
 		if (++cnt == 10000000) {
 			result = LOAD_FAIL_NOINIT;
 			goto done;
 		}

 	/* write configuration data */
 	while (addr < eaddr)
 		*fpgabase = *addr++;

 	/* wait for DONE High */
 	cnt = 0;
 	while (!iopin_is_high (&fpgaio->done_pin))
 		if (++cnt == 100000000) {
 			result = LOAD_FAIL_NODONE;
 			goto done;
 		}

 	/* success */
 	result = LOAD_SUCCESS;

   done:

 	if (fpgaio->enable_pin.flag)
 		iopin_set_low (&fpgaio->enable_pin);

 	return (result);
 }

 /* ------------------------------------------------------------------------- */
 int
 do_fpga (cmd_tbl_t * cmdtp, int flag, int argc, char *argv[])
 {
 	uchar *addr, *save_addr;
 	ulong size;
 	int mezz, arg, result;

 	switch (argc) {

 	case 0:
 	case 1:
 		break;

 	case 2:
 		if (strcmp (argv[1], "info") == 0) {
 			printf ("\nHymod FPGA Info...\n");
 			printf ("				Address		Size\n");
 			printf ("	Main Configuration:	0x%08x	%d\n",
 					FPGA_MAIN_CFG_BASE, FPGA_MAIN_CFG_SIZE);
 			printf ("	Main Register:		0x%08x	%d\n",
 					FPGA_MAIN_REG_BASE, FPGA_MAIN_REG_SIZE);
 			printf ("	Main Port:		0x%08x	%d\n",
 					FPGA_MAIN_PORT_BASE, FPGA_MAIN_PORT_SIZE);
 			printf ("	Mezz Configuration:	0x%08x	%d\n",
 					FPGA_MEZZ_CFG_BASE, FPGA_MEZZ_CFG_SIZE);
 			return 0;
 		}
 		break;

 	case 3:
 		if (strcmp (argv[1], "store") == 0) {
 			addr = (uchar *) simple_strtoul (argv[2], NULL, 16);

 			save_addr = addr;
 #if 0
 			/* reading config data unimplemented */
 			while VM
 			  :more config data * addr++ = *fpga;
 		  result = VM:? ? ?
 #else
 			result = 0;
 #endif
 			if (result == STORE_SUCCESS) {
 				printf ("SUCCEEDED (%d bytes)\n", addr - save_addr);
 				return 0;
 			} else
 				printf ("FAILED (%d bytes)\n", addr - save_addr);
 			return 1;
 		}
 		break;

 	case 4:
 		if (strcmp (argv[1], "tftp") == 0) {
 			copy_filename (BootFile, argv[2], sizeof (BootFile));
 			load_addr = simple_strtoul (argv[3], NULL, 16);

 			if (NetLoop (TFTP) == 0) {
 				printf ("tftp transfer failed - aborting fgpa load\n");
 				return 1;
 			}

 			if (NetBootFileXferSize == 0) {
 				printf ("can't determine file size - aborting fpga load\n");
 				return 1;
 			}

 			printf ("File transfer succeeded - beginning fpga load...");

 			result = fpga_load (0, (uchar *) load_addr,
 								NetBootFileXferSize);
 			if (result == LOAD_SUCCESS) {
 				printf ("SUCCEEDED\n");
 				return 0;
 			} else if (result == LOAD_FAIL_NOINIT)
 				printf ("FAILED (no INIT)\n");
 			else
 				printf ("FAILED (no DONE)\n");
 			return 1;

 		}
 		/* fall through ... */

 	case 5:
 		if (strcmp (argv[1], "load") == 0) {
 			if (argc == 5) {
 				if (strcmp (argv[2], "main") == 0)
 					mezz = 0;
 				else if (strcmp (argv[2], "mezz") == 0)
 					mezz = 1;
 				else {
 					printf ("FPGA type must be either `main' or `mezz'\n");
 					return 1;
 				}
 				arg = 3;
 			} else {
 				mezz = 0;
 				arg = 2;
 			}
 			addr = (uchar *) simple_strtoul (argv[arg++], NULL, 16);
 			size = (ulong) simple_strtoul (argv[arg], NULL, 16);

 			result = fpga_load (mezz, addr, size);
 			if (result == LOAD_SUCCESS) {
 				printf ("SUCCEEDED\n");
 				return 0;
 			} else if (result == LOAD_FAIL_NOINIT)
 				printf ("FAILED (no INIT)\n");
 			else
 				printf ("FAILED (no DONE)\n");
 			return 1;
 		}
 		break;

 	default:
 		break;
 	}

 	printf ("Usage:\n%s\n", cmdtp->usage);
 	return 1;
 }

 /* ------------------------------------------------------------------------- */
 int
 do_eecl (cmd_tbl_t * cmdtp, int flag, int argc, char *argv[])
 {
 	uchar data[HYMOD_EEPROM_SIZE];
 	uint offset;
 	int rcode = 0;

 	switch (argc) {

 	case 1:
 		offset = HYMOD_EEOFF_MAIN;
 		break;

 	case 2:
 		if (strcmp (argv[1], "main") == 0) {
 			offset = HYMOD_EEOFF_MAIN;
 			break;
 		}
 		if (strcmp (argv[1], "mezz") == 0) {
 			offset = HYMOD_EEOFF_MEZZ;
 			break;
 		}
 		/* fall through ... */

 	default:
 		printf ("Usage:\n%s\n", cmdtp->usage);
 		return 1;
 	}

 	memset (data, 0, HYMOD_EEPROM_SIZE);
 	if (i2c_write
 		(CFG_I2C_EEPROM_ADDR | offset, 0, CFG_I2C_EEPROM_ADDR_LEN, data,
 		 HYMOD_EEPROM_SIZE)) {
 		rcode = 1;
 	}

 	return rcode;
 }

 #endif							/* CFG_CMD_BSP */

 /* ------------------------------------------------------------------------- */
	/*
	* (C) Copyright 2000
	* 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
	*
	* hacked for Hymod FPGA support by Murray.Jensen@cmst.csiro.au, 29-Jan-01
	*/

	#include <common.h>
	#include <command.h>
	#include <net.h>
	#include <i2c.h>
	#include <asm/iopin_8260.h>
	#include <cmd_bsp.h>

	/*-----------------------------------------------------------------------
	* Board Special Commands: FPGA load/store, EEPROM erase
	*/

	#if (CONFIG_COMMANDS & CFG_CMD_BSP)

	#define LOAD_SUCCESS 0
	#define LOAD_FAIL_NOCONF 1
	#define LOAD_FAIL_NOINIT 2
	#define LOAD_FAIL_NODONE 3

	#define STORE_SUCCESS 0

	/*
	* Programming the Hymod FPGAs
	*
	* The 8260 io port config table is set up so that the INIT pin is
	* held Low (Open Drain output 0) - this will delay the automatic
	* Power-On config until INIT is released (by making it an input).
	*
	* If the FPGA has been programmed before, then the assertion of PROGRAM
	* will initiate configuration (i.e. it begins clearing the RAM).
	*
	* When the FPGA is ready to receive configuration data (either after
	* releasing INIT after Power-On, or after asserting PROGRAM), it will
	* pull INIT high.
	*
	* Notes from Paul Dunn:
	*
	* 1. program pin should be forced low for >= 300ns
	* (about 20 bus clock cycles minimum).
	*
	* 2. then wait for init to go high, which signals
	* that the FPGA has cleared its internal memory
	* and is ready to load
	*
	* 3. perform load writes of entire config file
	*
	* 4. wait for done to go high, which should be
	* within a few bus clock cycles. If done has not
	* gone high after reasonable period, then load
	* has not worked (wait several ms?)
	*/

	int fpga_load (int mezz, uchar * addr, ulong size)
	{
	DECLARE_GLOBAL_DATA_PTR;

	hymod_conf_t *cp = &gd->bd->bi_hymod_conf;
	xlx_iopins_t *fpgaio;
	volatile uchar *fpgabase;
	volatile uint cnt;
	uchar *eaddr = addr + size;
	int result;

	if (mezz) {
	if (!cp->mezz.mmap[0].prog.exists)
	return (LOAD_FAIL_NOCONF);
	fpgabase = (uchar *) cp->mezz.mmap[0].prog.base;
	fpgaio = &cp->mezz.iopins[0];
	} else {
	if (!cp->main.mmap[0].prog.exists)
	return (LOAD_FAIL_NOCONF);
	fpgabase = (uchar *) cp->main.mmap[0].prog.base;
	fpgaio = &cp->main.iopins[0];
	}

	/* set enable HIGH if required */
	if (fpgaio->enable_pin.flag)
	iopin_set_high (&fpgaio->enable_pin);

	/* ensure INIT is released (set it to be an input) */
	iopin_set_in (&fpgaio->init_pin);

	/* toggle PROG Low then High (will already be Low after Power-On) */
	iopin_set_low (&fpgaio->prog_pin);
	udelay (1); /* minimum 300ns - 1usec should do it */
	iopin_set_high (&fpgaio->prog_pin);

	/* wait for INIT High */
	cnt = 0;
	while (!iopin_is_high (&fpgaio->init_pin))
	if (++cnt == 10000000) {
	result = LOAD_FAIL_NOINIT;
	goto done;
	}

	/* write configuration data */
	while (addr < eaddr)
	fpgabase = addr++;

	/* wait for DONE High */
	cnt = 0;
	while (!iopin_is_high (&fpgaio->done_pin))
	if (++cnt == 100000000) {
	result = LOAD_FAIL_NODONE;
	goto done;
	}

	/* success */
	result = LOAD_SUCCESS;

	done:

	if (fpgaio->enable_pin.flag)
	iopin_set_low (&fpgaio->enable_pin);

	return (result);
	}

	/* ------------------------------------------------------------------------- */
	int
	do_fpga (cmd_tbl_t * cmdtp, int flag, int argc, char *argv[])
	{
	uchar addr, save_addr;
	ulong size;
	int mezz, arg, result;

	switch (argc) {

	case 0:
	case 1:
	break;

	case 2:
	if (strcmp (argv[1], "info") == 0) {
	printf ("\nHymod FPGA Info...\n");
	printf (" Address Size\n");
	printf (" Main Configuration: 0x%08x %d\n",
	FPGA_MAIN_CFG_BASE, FPGA_MAIN_CFG_SIZE);
	printf (" Main Register: 0x%08x %d\n",
	FPGA_MAIN_REG_BASE, FPGA_MAIN_REG_SIZE);
	printf (" Main Port: 0x%08x %d\n",
	FPGA_MAIN_PORT_BASE, FPGA_MAIN_PORT_SIZE);
	printf (" Mezz Configuration: 0x%08x %d\n",
	FPGA_MEZZ_CFG_BASE, FPGA_MEZZ_CFG_SIZE);
	return 0;
	}
	break;

	case 3:
	if (strcmp (argv[1], "store") == 0) {
	addr = (uchar *) simple_strtoul (argv[2], NULL, 16);

	save_addr = addr;
	#if 0
	/* reading config data unimplemented */
	while VM
	:more config data * addr++ = *fpga;
	result = VM:? ? ?
	#else
	result = 0;
	#endif
	if (result == STORE_SUCCESS) {
	printf ("SUCCEEDED (%d bytes)\n", addr - save_addr);
	return 0;
	} else
	printf ("FAILED (%d bytes)\n", addr - save_addr);
	return 1;
	}
	break;

	case 4:
	if (strcmp (argv[1], "tftp") == 0) {
	copy_filename (BootFile, argv[2], sizeof (BootFile));
	load_addr = simple_strtoul (argv[3], NULL, 16);

	if (NetLoop (TFTP) == 0) {
	printf ("tftp transfer failed - aborting fgpa load\n");
	return 1;
	}

	if (NetBootFileXferSize == 0) {
	printf ("can't determine file size - aborting fpga load\n");
	return 1;
	}

	printf ("File transfer succeeded - beginning fpga load...");

	result = fpga_load (0, (uchar *) load_addr,
	NetBootFileXferSize);
	if (result == LOAD_SUCCESS) {
	printf ("SUCCEEDED\n");
	return 0;
	} else if (result == LOAD_FAIL_NOINIT)
	printf ("FAILED (no INIT)\n");
	else
	printf ("FAILED (no DONE)\n");
	return 1;

	}
	/* fall through ... */

	case 5:
	if (strcmp (argv[1], "load") == 0) {
	if (argc == 5) {
	if (strcmp (argv[2], "main") == 0)
	mezz = 0;
	else if (strcmp (argv[2], "mezz") == 0)
	mezz = 1;
	else {
	printf ("FPGA type must be either `main' or `mezz'\n");
	return 1;
	}
	arg = 3;
	} else {
	mezz = 0;
	arg = 2;
	}
	addr = (uchar *) simple_strtoul (argv[arg++], NULL, 16);
	size = (ulong) simple_strtoul (argv[arg], NULL, 16);

	result = fpga_load (mezz, addr, size);
	if (result == LOAD_SUCCESS) {
	printf ("SUCCEEDED\n");
	return 0;
	} else if (result == LOAD_FAIL_NOINIT)
	printf ("FAILED (no INIT)\n");
	else
	printf ("FAILED (no DONE)\n");
	return 1;
	}
	break;

	default:
	break;
	}

	printf ("Usage:\n%s\n", cmdtp->usage);
	return 1;
	}

	/* ------------------------------------------------------------------------- */
	int
	do_eecl (cmd_tbl_t * cmdtp, int flag, int argc, char *argv[])
	{
	uchar data[HYMOD_EEPROM_SIZE];
	uint offset;
	int rcode = 0;

	switch (argc) {

	case 1:
	offset = HYMOD_EEOFF_MAIN;
	break;

	case 2:
	if (strcmp (argv[1], "main") == 0) {
	offset = HYMOD_EEOFF_MAIN;
	break;
	}
	if (strcmp (argv[1], "mezz") == 0) {
	offset = HYMOD_EEOFF_MEZZ;
	break;
	}
	/* fall through ... */

	default:
	printf ("Usage:\n%s\n", cmdtp->usage);
	return 1;
	}

	memset (data, 0, HYMOD_EEPROM_SIZE);
	if (i2c_write
	(CFG_I2C_EEPROM_ADDR \| offset, 0, CFG_I2C_EEPROM_ADDR_LEN, data,
	HYMOD_EEPROM_SIZE)) {
	rcode = 1;
	}

	return rcode;
	}

	#endif /* CFG_CMD_BSP */

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