[people/ms/u-boot.git] / board / eltec / elppc / misc.c

/*
 * (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[CONFIG_SYS_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, CONFIG_SYS_NV_SROM_COPY_ADDR, CONFIG_SYS_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, CONFIG_SYS_SROM_SIZE) !=
		el_srom_checksum ((u_char *) buf, CONFIG_SYS_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 (CONFIG_SYS_NV_SROM_COPY_ADDR, (void *) &eerev,
			     CONFIG_SYS_SROM_SIZE);

	}

	/*if (initSrom) */
	/* copy current values as shadow image to nvram */
	if (initSrom == 0 && copyNv == 1)
		nvram_write (CONFIG_SYS_NV_SROM_COPY_ADDR, (void *) &eerev,
			     CONFIG_SYS_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);
}

/*----------------------------------------------------------------------------*/
Commit	Line	Data
e69b4b8f WD	1	/*
	2	* (C) Copyright 2002 ELTEC Elektronik AG
	3	* Frank Gottschling <fgottschling@eltec.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	/* includes */
	25	#include <common.h>
	26	#include <linux/ctype.h>
	27	#include <pci.h>
	28	#include <net.h>
	29	#include "srom.h"
	30
	31	/* imports */
6d0f6bcf	32	extern char console_buffer[CONFIG_SYS_CBSIZE];
e69b4b8f	33	extern int l2_cache_enable (int l2control);
bf9e3b38 WD	34	extern int eepro100_write_eeprom (struct eth_device *dev, int location,
	35	int addr_len, unsigned short data);
	36	extern int read_eeprom (struct eth_device *dev, int location, int addr_len);
e69b4b8f WD	37
	38	/----------------------------------------------------------------------------/
	39	/*
	40	* read/write to nvram is only byte access
	41	*/
bf9e3b38	42	void nvram_read (void dest, const long src, size_t count)
e69b4b8f	43	{
bf9e3b38	44	uchar d = (uchar ) dest;
0e8d1586	45	uchar s = (uchar ) (CONFIG_ENV_MAP_ADRS + src);
e69b4b8f	46
bf9e3b38 WD	47	while (count--)
bf9e3b38 WD	48	d++ = s++;
e69b4b8f	49
bf9e3b38	50	return dest;
e69b4b8f WD	51	}
e69b4b8f WD	52
bf9e3b38	53	void nvram_write (long dest, const void *src, size_t count)
e69b4b8f	54	{
0e8d1586	55	uchar d = (uchar ) (CONFIG_ENV_MAP_ADRS + dest);
bf9e3b38	56	uchar s = (uchar ) src;
e69b4b8f	57
bf9e3b38 WD	58	while (count--)
bf9e3b38 WD	59	d++ = s++;
e69b4b8f WD	60	}
	61
	62	/----------------------------------------------------------------------------/
	63	/*
	64	* handle sroms on ELPPC
	65	* fix ether address
	66	* set serial console as default
	67	*/
	68	int misc_init_r (void)
	69	{
bf9e3b38 WD	70	revinfo eerev;
	71	u_char *ptr;
	72	u_int i, l, initSrom, copyNv;
	73	char buf[256];
	74	char hex[23] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0,
	75	0, 0, 0, 0, 10, 11, 12, 13, 14, 15
	76	};
	77
	78	/* Clock setting for MPC107 i2c */
	79	mpc107_i2c_init (MPC107_EUMB_ADDR, 0x2b);
	80
	81	/* Reset the EPIC */
	82	out32r (MPC107_EUMB_GCR, 0xa0000000);
	83	while (in32r (MPC107_EUMB_GCR) & 0x80000000); /* Wait for reset to complete */
	84	out32r (MPC107_EUMB_GCR, 0x20000000); /* Put into into mixed mode */
	85	while (in32r (MPC107_EUMB_IACKR) != 0xff); /* Clear all pending interrupts */
	86
	87	/*
	88	* Check/Remake revision info
	89	*/
	90	initSrom = 0;
	91	copyNv = 0;
	92
	93	/* read out current revision srom contens */
	94	mpc107_srom_load (0x0000, (u_char *) & eerev, sizeof (revinfo),
	95	SECOND_DEVICE, FIRST_BLOCK);
	96
	97	/* read out current nvram shadow image */
6d0f6bcf	98	nvram_read (buf, CONFIG_SYS_NV_SROM_COPY_ADDR, CONFIG_SYS_SROM_SIZE);
bf9e3b38 WD	99
	100	if (strcmp (eerev.magic, "ELTEC") != 0) {
	101	/* srom is not initialized -> create a default revision info */
	102	for (i = 0, ptr = (u_char *) & eerev; i < sizeof (revinfo);
	103	i++)
	104	*ptr++ = 0x00;
	105	strcpy (eerev.magic, "ELTEC");
	106	eerev.revrev[0] = 1;
	107	eerev.revrev[1] = 0;
	108	eerev.size = 0x00E0;
	109	eerev.category[0] = 0x01;
	110
	111	/* node id from dead e128 as default */
	112	eerev.etheraddr[0] = 0x00;
	113	eerev.etheraddr[1] = 0x00;
	114	eerev.etheraddr[2] = 0x5B;
	115	eerev.etheraddr[3] = 0x00;
	116	eerev.etheraddr[4] = 0x2E;
	117	eerev.etheraddr[5] = 0x4D;
	118
	119	/* cache config word for ELPPC */
	120	(int ) &eerev.res[0] = 0;
	121
	122	initSrom = 1; /* force dialog */
	123	copyNv = 1; /* copy to nvram */
8bde7f77 WD	124	}
8bde7f77 WD	125
bf9e3b38	126	if ((copyNv == 0)
6d0f6bcf JCPV	127	&& (el_srom_checksum ((u_char *) & eerev, CONFIG_SYS_SROM_SIZE) !=
6d0f6bcf JCPV	128	el_srom_checksum ((u_char *) buf, CONFIG_SYS_SROM_SIZE))) {
bf9e3b38 WD	129	printf ("Invalid revision info copy in nvram !\n");
	130	printf ("Press key:\n <c> to copy current revision info to nvram.\n");
	131	printf (" <r> to reenter revision info.\n");
	132	printf ("=> ");
	133	if (0 != readline (NULL)) {
	134	switch ((char) toupper (console_buffer[0])) {
	135	case 'C':
	136	copyNv = 1;
	137	break;
	138	case 'R':
	139	copyNv = 1;
	140	initSrom = 1;
	141	break;
	142	}
	143	}
8bde7f77 WD	144	}
8bde7f77 WD	145
bf9e3b38 WD	146	if (initSrom) {
	147	memcpy (buf, &eerev.revision[0][0], 14); /* save all revision info */
	148	printf ("Enter revision number (0-9): %c ",
	149	eerev.revision[0][0]);
	150	if (0 != readline (NULL)) {
	151	eerev.revision[0][0] =
	152	(char) toupper (console_buffer[0]);
	153	memcpy (&eerev.revision[1][0], buf, 12); /* shift rest of rev info */
	154	}
	155
	156	printf ("Enter revision character (A-Z): %c ",
	157	eerev.revision[0][1]);
	158	if (1 == readline (NULL)) {
	159	eerev.revision[0][1] =
	160	(char) toupper (console_buffer[0]);
	161	}
	162
	163	printf ("Enter board name (V-XXXX-XXXX): %s ",
	164	(char *) &eerev.board);
	165	if (11 == readline (NULL)) {
	166	for (i = 0; i < 11; i++)
	167	eerev.board[i] =
	168	(char) toupper (console_buffer[i]);
	169	eerev.board[11] = '\0';
	170	}
	171
	172	printf ("Enter serial number: %s ", (char *) &eerev.serial);
	173	if (6 == readline (NULL)) {
	174	for (i = 0; i < 6; i++)
	175	eerev.serial[i] = console_buffer[i];
	176	eerev.serial[6] = '\0';
	177	}
	178
	179	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]);
	180	if (12 == readline (NULL)) {
	181	for (i = 0; i < 12; i += 2)
	182	eerev.etheraddr[i >> 1] =
	183	(char) (16 *
	184	hex[toupper
	185	(console_buffer[i]) -
	186	'0'] +
	187	hex[toupper
	188	(console_buffer[i + 1]) -
	189	'0']);
	190	}
	191
	192	l = strlen ((char *) &eerev.text);
	193	printf ("Add to text section (max 64 chr): %s ",
	194	(char *) &eerev.text);
	195	if (0 != readline (NULL)) {
	196	for (i = l; i < 63; i++)
	197	eerev.text[i] = console_buffer[i - l];
	198	eerev.text[63] = '\0';
	199	}
	200
	201	/* prepare network eeprom */
	202	memset (buf, 0, 128);
	203
	204	buf[0] = eerev.etheraddr[1];
	205	buf[1] = eerev.etheraddr[0];
	206	buf[2] = eerev.etheraddr[3];
	207	buf[3] = eerev.etheraddr[2];
	208	buf[4] = eerev.etheraddr[5];
	209	buf[5] = eerev.etheraddr[4];
210
211	(unsigned short ) &buf[20] = 0x48B2;
212	(unsigned short ) &buf[22] = 0x0004;
213	(unsigned short ) &buf[24] = 0x1433;
214
215	printf ("\nSRom: Writing i82559 info ........ ");
216	if (eepro100_srom_store ((unsigned short *) buf) == -1)
217	printf ("FAILED\n");
218	else
219	printf ("OK\n");
220
221	/* update CRC */
222	eerev.crc =
223	el_srom_checksum ((u_char *) eerev.board, eerev.size);
224
225	/* write new values */
226	printf ("\nSRom: Writing revision info ...... ");
227	if (mpc107_srom_store
228	((BLOCK_SIZE - sizeof (revinfo)), (u_char *) & eerev,
229	sizeof (revinfo), SECOND_DEVICE, FIRST_BLOCK) == -1)
230	printf ("FAILED\n\n");
231	else
232	printf ("OK\n\n");
233
234	/* write new values as shadow image to nvram */
6d0f6bcf JCPV	235	nvram_write (CONFIG_SYS_NV_SROM_COPY_ADDR, (void *) &eerev,
6d0f6bcf JCPV	236	CONFIG_SYS_SROM_SIZE);
8bde7f77	237
8bde7f77 WD	238	}
8bde7f77 WD	239
bf9e3b38 WD	240	/if (initSrom) /
	241	/* copy current values as shadow image to nvram */
	242	if (initSrom == 0 && copyNv == 1)
6d0f6bcf JCPV	243	nvram_write (CONFIG_SYS_NV_SROM_COPY_ADDR, (void *) &eerev,
6d0f6bcf JCPV	244	CONFIG_SYS_SROM_SIZE);
bf9e3b38 WD	245
	246	/* update environment */
	247	sprintf (buf, "%02x:%02x:%02x:%02x:%02x:%02x",
	248	eerev.etheraddr[0], eerev.etheraddr[1],
	249	eerev.etheraddr[2], eerev.etheraddr[3],
	250	eerev.etheraddr[4], eerev.etheraddr[5]);
	251	setenv ("ethaddr", buf);
	252
bf9e3b38 WD	253	/* print actual board identification */
	254	printf ("Ident: %s Ser %s Rev %c%c\n",
	255	eerev.board, (char *) &eerev.serial,
	256	eerev.revision[0][0], eerev.revision[0][1]);
	257
	258	return (0);
e69b4b8f WD	259	}
	260
	261	/----------------------------------------------------------------------------/