board/eltec/elppc/misc.c - github/trini/u-boot - Gitiles

 /*
  * (C) Copyright 2002 ELTEC Elektronik AG
  * Frank Gottschling <fgottschling@eltec.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
  */

 /* includes */
 #include <common.h>
 #include <linux/ctype.h>
 #include <pci.h>
 #include <net.h>
 #include "srom.h"

 /* imports  */
 extern char console_buffer[CFG_CBSIZE];
 extern int l2_cache_enable (int l2control);
 extern int eepro100_write_eeprom (struct eth_device *dev, int location,
 				  int addr_len, unsigned short data);
 extern int read_eeprom (struct eth_device *dev, int location, int addr_len);

 /*----------------------------------------------------------------------------*/
 /*
  * read/write to nvram is only byte access
  */
 void *nvram_read (void *dest, const long src, size_t count)
 {
 	uchar *d = (uchar *) dest;
 	uchar *s = (uchar *) (CONFIG_ENV_MAP_ADRS + src);

 	while (count--)
 		*d++ = *s++;

 	return dest;
 }

 void nvram_write (long dest, const void *src, size_t count)
 {
 	uchar *d = (uchar *) (CONFIG_ENV_MAP_ADRS + dest);
 	uchar *s = (uchar *) src;

 	while (count--)
 		*d++ = *s++;
 }

 /*----------------------------------------------------------------------------*/
 /*
  * handle sroms on ELPPC
  * fix ether address
  * set serial console as default
  */
 int misc_init_r (void)
 {
 	revinfo eerev;
 	u_char *ptr;
 	u_int i, l, initSrom, copyNv;
 	char buf[256];
 	char hex[23] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0,
 		0, 0, 0, 0, 10, 11, 12, 13, 14, 15
 	};

 	/* Clock setting for MPC107 i2c */
 	mpc107_i2c_init (MPC107_EUMB_ADDR, 0x2b);

 	/* Reset the EPIC */
 	out32r (MPC107_EUMB_GCR, 0xa0000000);
 	while (in32r (MPC107_EUMB_GCR) & 0x80000000);	/* Wait for reset to complete */
 	out32r (MPC107_EUMB_GCR, 0x20000000);	/* Put into into mixed mode */
 	while (in32r (MPC107_EUMB_IACKR) != 0xff);	/* Clear all pending interrupts */

 	/*
 	 * Check/Remake revision info
 	 */
 	initSrom = 0;
 	copyNv = 0;

 	/* read out current revision srom contens */
 	mpc107_srom_load (0x0000, (u_char *) & eerev, sizeof (revinfo),
 			  SECOND_DEVICE, FIRST_BLOCK);

 	/* read out current nvram shadow image */
 	nvram_read (buf, CFG_NV_SROM_COPY_ADDR, CFG_SROM_SIZE);

 	if (strcmp (eerev.magic, "ELTEC") != 0) {
 		/* srom is not initialized -> create a default revision info */
 		for (i = 0, ptr = (u_char *) & eerev; i < sizeof (revinfo);
 		     i++)
 			*ptr++ = 0x00;
 		strcpy (eerev.magic, "ELTEC");
 		eerev.revrev[0] = 1;
 		eerev.revrev[1] = 0;
 		eerev.size = 0x00E0;
 		eerev.category[0] = 0x01;

 		/* node id from dead e128 as default */
 		eerev.etheraddr[0] = 0x00;
 		eerev.etheraddr[1] = 0x00;
 		eerev.etheraddr[2] = 0x5B;
 		eerev.etheraddr[3] = 0x00;
 		eerev.etheraddr[4] = 0x2E;
 		eerev.etheraddr[5] = 0x4D;

 		/* cache config word for ELPPC */
 		*(int *) &eerev.res[0] = 0;

 		initSrom = 1;	/* force dialog */
 		copyNv = 1;	/* copy to nvram */
 	}

 	if ((copyNv == 0)
 	    && (el_srom_checksum ((u_char *) & eerev, CFG_SROM_SIZE) !=
 		el_srom_checksum ((u_char *) buf, CFG_SROM_SIZE))) {
 		printf ("Invalid revision info copy in nvram !\n");
 		printf ("Press key:\n  <c> to copy current revision info to nvram.\n");
 		printf ("  <r> to reenter revision info.\n");
 		printf ("=> ");
 		if (0 != readline (NULL)) {
 			switch ((char) toupper (console_buffer[0])) {
 			case 'C':
 				copyNv = 1;
 				break;
 			case 'R':
 				copyNv = 1;
 				initSrom = 1;
 				break;
 			}
 		}
 	}

 	if (initSrom) {
 		memcpy (buf, &eerev.revision[0][0], 14);	/* save all revision info */
 		printf ("Enter revision number (0-9): %c  ",
 			eerev.revision[0][0]);
 		if (0 != readline (NULL)) {
 			eerev.revision[0][0] =
 				(char) toupper (console_buffer[0]);
 			memcpy (&eerev.revision[1][0], buf, 12);	/* shift rest of rev info */
 		}

 		printf ("Enter revision character (A-Z): %c  ",
 			eerev.revision[0][1]);
 		if (1 == readline (NULL)) {
 			eerev.revision[0][1] =
 				(char) toupper (console_buffer[0]);
 		}

 		printf ("Enter board name (V-XXXX-XXXX): %s  ",
 			(char *) &eerev.board);
 		if (11 == readline (NULL)) {
 			for (i = 0; i < 11; i++)
 				eerev.board[i] =
 					(char) toupper (console_buffer[i]);
 			eerev.board[11] = '\0';
 		}

 		printf ("Enter serial number: %s ", (char *) &eerev.serial);
 		if (6 == readline (NULL)) {
 			for (i = 0; i < 6; i++)
 				eerev.serial[i] = console_buffer[i];
 			eerev.serial[6] = '\0';
 		}

 		printf ("Enter ether node ID with leading zero (HEX): %02x%02x%02x%02x%02x%02x  ", eerev.etheraddr[0], eerev.etheraddr[1], eerev.etheraddr[2], eerev.etheraddr[3], eerev.etheraddr[4], eerev.etheraddr[5]);
 		if (12 == readline (NULL)) {
 			for (i = 0; i < 12; i += 2)
 				eerev.etheraddr[i >> 1] =
 					(char) (16 *
 						hex[toupper
 						    (console_buffer[i]) -
 						    '0'] +
 						hex[toupper
 						    (console_buffer[i + 1]) -
 						    '0']);
 		}

 		l = strlen ((char *) &eerev.text);
 		printf ("Add to text section (max 64 chr): %s ",
 			(char *) &eerev.text);
 		if (0 != readline (NULL)) {
 			for (i = l; i < 63; i++)
 				eerev.text[i] = console_buffer[i - l];
 			eerev.text[63] = '\0';
 		}

 		/* prepare network eeprom */
 		memset (buf, 0, 128);

 		buf[0] = eerev.etheraddr[1];
 		buf[1] = eerev.etheraddr[0];
 		buf[2] = eerev.etheraddr[3];
 		buf[3] = eerev.etheraddr[2];
 		buf[4] = eerev.etheraddr[5];
 		buf[5] = eerev.etheraddr[4];

 		*(unsigned short *) &buf[20] = 0x48B2;
 		*(unsigned short *) &buf[22] = 0x0004;
 		*(unsigned short *) &buf[24] = 0x1433;

 		printf ("\nSRom:  Writing i82559 info ........ ");
 		if (eepro100_srom_store ((unsigned short *) buf) == -1)
 			printf ("FAILED\n");
 		else
 			printf ("OK\n");

 		/* update CRC */
 		eerev.crc =
 			el_srom_checksum ((u_char *) eerev.board, eerev.size);

 		/* write new values */
 		printf ("\nSRom:  Writing revision info ...... ");
 		if (mpc107_srom_store
 		    ((BLOCK_SIZE - sizeof (revinfo)), (u_char *) & eerev,
 		     sizeof (revinfo), SECOND_DEVICE, FIRST_BLOCK) == -1)
 			printf ("FAILED\n\n");
 		else
 			printf ("OK\n\n");

 		/* write new values as shadow image to nvram */
 		nvram_write (CFG_NV_SROM_COPY_ADDR, (void *) &eerev,
 			     CFG_SROM_SIZE);

 	}

 	/*if (initSrom) */
 	/* copy current values as shadow image to nvram */
 	if (initSrom == 0 && copyNv == 1)
 		nvram_write (CFG_NV_SROM_COPY_ADDR, (void *) &eerev,
 			     CFG_SROM_SIZE);

 	/* update environment */
 	sprintf (buf, "%02x:%02x:%02x:%02x:%02x:%02x",
 		 eerev.etheraddr[0], eerev.etheraddr[1],
 		 eerev.etheraddr[2], eerev.etheraddr[3],
 		 eerev.etheraddr[4], eerev.etheraddr[5]);
 	setenv ("ethaddr", buf);

 	/* print actual board identification */
 	printf ("Ident: %s  Ser %s  Rev %c%c\n",
 		eerev.board, (char *) &eerev.serial,
 		eerev.revision[0][0], eerev.revision[0][1]);

 	return (0);
 }

 /*----------------------------------------------------------------------------*/
	/*
	* (C) Copyright 2002 ELTEC Elektronik AG
	* Frank Gottschling <fgottschling@eltec.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
	*/

	/* includes */
	#include <common.h>
	#include <linux/ctype.h>
	#include <pci.h>
	#include <net.h>
	#include "srom.h"

	/* imports */
	extern char console_buffer[CFG_CBSIZE];
	extern int l2_cache_enable (int l2control);
	extern int eepro100_write_eeprom (struct eth_device *dev, int location,
	int addr_len, unsigned short data);
	extern int read_eeprom (struct eth_device *dev, int location, int addr_len);

	/----------------------------------------------------------------------------/
	/*
	* read/write to nvram is only byte access
	*/
	void nvram_read (void dest, const long src, size_t count)
	{
	uchar d = (uchar ) dest;
	uchar s = (uchar ) (CONFIG_ENV_MAP_ADRS + src);

	while (count--)
	d++ = s++;

	return dest;
	}

	void nvram_write (long dest, const void *src, size_t count)
	{
	uchar d = (uchar ) (CONFIG_ENV_MAP_ADRS + dest);
	uchar s = (uchar ) src;

	while (count--)
	d++ = s++;
	}

	/----------------------------------------------------------------------------/
	/*
	* handle sroms on ELPPC
	* fix ether address
	* set serial console as default
	*/
	int misc_init_r (void)
	{
	revinfo eerev;
	u_char *ptr;
	u_int i, l, initSrom, copyNv;
	char buf[256];
	char hex[23] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0,
	0, 0, 0, 0, 10, 11, 12, 13, 14, 15
	};

	/* Clock setting for MPC107 i2c */
	mpc107_i2c_init (MPC107_EUMB_ADDR, 0x2b);

	/* Reset the EPIC */
	out32r (MPC107_EUMB_GCR, 0xa0000000);
	while (in32r (MPC107_EUMB_GCR) & 0x80000000); /* Wait for reset to complete */
	out32r (MPC107_EUMB_GCR, 0x20000000); /* Put into into mixed mode */
	while (in32r (MPC107_EUMB_IACKR) != 0xff); /* Clear all pending interrupts */

	/*
	* Check/Remake revision info
	*/
	initSrom = 0;
	copyNv = 0;

	/* read out current revision srom contens */
	mpc107_srom_load (0x0000, (u_char *) & eerev, sizeof (revinfo),
	SECOND_DEVICE, FIRST_BLOCK);

	/* read out current nvram shadow image */
	nvram_read (buf, CFG_NV_SROM_COPY_ADDR, CFG_SROM_SIZE);

	if (strcmp (eerev.magic, "ELTEC") != 0) {
	/* srom is not initialized -> create a default revision info */
	for (i = 0, ptr = (u_char *) & eerev; i < sizeof (revinfo);
	i++)
	*ptr++ = 0x00;
	strcpy (eerev.magic, "ELTEC");
	eerev.revrev[0] = 1;
	eerev.revrev[1] = 0;
	eerev.size = 0x00E0;
	eerev.category[0] = 0x01;

	/* node id from dead e128 as default */
	eerev.etheraddr[0] = 0x00;
	eerev.etheraddr[1] = 0x00;
	eerev.etheraddr[2] = 0x5B;
	eerev.etheraddr[3] = 0x00;
	eerev.etheraddr[4] = 0x2E;
	eerev.etheraddr[5] = 0x4D;

	/* cache config word for ELPPC */
	(int ) &eerev.res[0] = 0;

	initSrom = 1; /* force dialog */
	copyNv = 1; /* copy to nvram */
	}

	if ((copyNv == 0)
	&& (el_srom_checksum ((u_char *) & eerev, CFG_SROM_SIZE) !=
	el_srom_checksum ((u_char *) buf, CFG_SROM_SIZE))) {
	printf ("Invalid revision info copy in nvram !\n");
	printf ("Press key:\n <c> to copy current revision info to nvram.\n");
	printf (" <r> to reenter revision info.\n");
	printf ("=> ");
	if (0 != readline (NULL)) {
	switch ((char) toupper (console_buffer[0])) {
	case 'C':
	copyNv = 1;
	break;
	case 'R':
	copyNv = 1;
	initSrom = 1;
	break;
	}
	}
	}

	if (initSrom) {
	memcpy (buf, &eerev.revision[0][0], 14); /* save all revision info */
	printf ("Enter revision number (0-9): %c ",
	eerev.revision[0][0]);
	if (0 != readline (NULL)) {
	eerev.revision[0][0] =
	(char) toupper (console_buffer[0]);
	memcpy (&eerev.revision[1][0], buf, 12); /* shift rest of rev info */
	}

	printf ("Enter revision character (A-Z): %c ",
	eerev.revision[0][1]);
	if (1 == readline (NULL)) {
	eerev.revision[0][1] =
	(char) toupper (console_buffer[0]);
	}

	printf ("Enter board name (V-XXXX-XXXX): %s ",
	(char *) &eerev.board);
	if (11 == readline (NULL)) {
	for (i = 0; i < 11; i++)
	eerev.board[i] =
	(char) toupper (console_buffer[i]);
	eerev.board[11] = '\0';
	}

	printf ("Enter serial number: %s ", (char *) &eerev.serial);
	if (6 == readline (NULL)) {
	for (i = 0; i < 6; i++)
	eerev.serial[i] = console_buffer[i];
	eerev.serial[6] = '\0';
	}

	printf ("Enter ether node ID with leading zero (HEX): %02x%02x%02x%02x%02x%02x ", eerev.etheraddr[0], eerev.etheraddr[1], eerev.etheraddr[2], eerev.etheraddr[3], eerev.etheraddr[4], eerev.etheraddr[5]);
	if (12 == readline (NULL)) {
	for (i = 0; i < 12; i += 2)
	eerev.etheraddr[i >> 1] =
	(char) (16 *
	hex[toupper
	(console_buffer[i]) -
	'0'] +
	hex[toupper
	(console_buffer[i + 1]) -
	'0']);
	}

	l = strlen ((char *) &eerev.text);
	printf ("Add to text section (max 64 chr): %s ",
	(char *) &eerev.text);
	if (0 != readline (NULL)) {
	for (i = l; i < 63; i++)
	eerev.text[i] = console_buffer[i - l];
	eerev.text[63] = '\0';
	}

	/* prepare network eeprom */
	memset (buf, 0, 128);

	buf[0] = eerev.etheraddr[1];
	buf[1] = eerev.etheraddr[0];
	buf[2] = eerev.etheraddr[3];
	buf[3] = eerev.etheraddr[2];
	buf[4] = eerev.etheraddr[5];
	buf[5] = eerev.etheraddr[4];

	(unsigned short ) &buf[20] = 0x48B2;
	(unsigned short ) &buf[22] = 0x0004;
	(unsigned short ) &buf[24] = 0x1433;

	printf ("\nSRom: Writing i82559 info ........ ");
	if (eepro100_srom_store ((unsigned short *) buf) == -1)
	printf ("FAILED\n");
	else
	printf ("OK\n");

	/* update CRC */
	eerev.crc =
	el_srom_checksum ((u_char *) eerev.board, eerev.size);

	/* write new values */
	printf ("\nSRom: Writing revision info ...... ");
	if (mpc107_srom_store
	((BLOCK_SIZE - sizeof (revinfo)), (u_char *) & eerev,
	sizeof (revinfo), SECOND_DEVICE, FIRST_BLOCK) == -1)
	printf ("FAILED\n\n");
	else
	printf ("OK\n\n");

	/* write new values as shadow image to nvram */
	nvram_write (CFG_NV_SROM_COPY_ADDR, (void *) &eerev,
	CFG_SROM_SIZE);

	}

	/if (initSrom) /
	/* copy current values as shadow image to nvram */
	if (initSrom == 0 && copyNv == 1)
	nvram_write (CFG_NV_SROM_COPY_ADDR, (void *) &eerev,
	CFG_SROM_SIZE);

	/* update environment */
	sprintf (buf, "%02x:%02x:%02x:%02x:%02x:%02x",
	eerev.etheraddr[0], eerev.etheraddr[1],
	eerev.etheraddr[2], eerev.etheraddr[3],
	eerev.etheraddr[4], eerev.etheraddr[5]);
	setenv ("ethaddr", buf);

	/* print actual board identification */
	printf ("Ident: %s Ser %s Rev %c%c\n",
	eerev.board, (char *) &eerev.serial,
	eerev.revision[0][0], eerev.revision[0][1]);

	return (0);
	}

	/----------------------------------------------------------------------------/