/* * Cirrus Logic CS8900A Ethernet * * (C) 2003 Wolfgang Denk, wd@denx.de *     Extension to synchronize ethaddr environment variable *     against value in EEPROM * * (C) Copyright 2002 * Sysgo Real-Time Solutions, GmbH <www.elinos.com> * Marius Groeger <mgroeger@sysgo.de> * * Copyright (C) 1999 Ben Williamson <benw@pobox.com> * * See file CREDITS for list of people who contributed to this * project. * * This program is loaded into SRAM in bootstrap mode, where it waits * for commands on UART1 to read and write memory, jump to code etc. * A design goal for this program is to be entirely independent of the * target board.  Anything with a CL-PS7111 or EP7211 should be able to run * this code in bootstrap mode.  All the board specifics can be handled on * the host. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */#include <common.h>#include <command.h>#include "cs8900.h"#include <net.h>#ifdef CONFIG_DRIVER_CS8900#if (CONFIG_COMMANDS & CFG_CMD_NET)#undef DEBUG/* packet page register access functions */#ifdef CS8900_BUS32/* we don't need 16 bit initialisation on 32 bit bus */#define get_reg_init_bus(x) get_reg((x))#elsestatic unsigned short get_reg_init_bus (int regno){	/* force 16 bit busmode */	volatile unsigned char c;	c = CS8900_BUS16_0;	c = CS8900_BUS16_1;	c = CS8900_BUS16_0;	c = CS8900_BUS16_1;	c = CS8900_BUS16_0;	CS8900_PPTR = regno;	return (unsigned short) CS8900_PDATA;}#endifstatic unsigned short get_reg (int regno){	CS8900_PPTR = regno;	return (unsigned short) CS8900_PDATA;}static void put_reg (int regno, unsigned short val){	CS8900_PPTR = regno;	CS8900_PDATA = val;}static void eth_reset (void){	int tmo;	unsigned short us;	/* reset NIC */	put_reg (PP_SelfCTL, get_reg (PP_SelfCTL) | PP_SelfCTL_Reset);	/* wait for 200ms */	udelay (200000);	/* Wait until the chip is reset */	tmo = get_timer (0) + 1 * CFG_HZ;	while ((((us = get_reg_init_bus (PP_SelfSTAT)) & PP_SelfSTAT_InitD) == 0)		   && tmo < get_timer (0))		/*NOP*/;}static void eth_reginit (void){	/* receive only error free packets addressed to this card */	put_reg (PP_RxCTL, PP_RxCTL_IA | PP_RxCTL_Broadcast | PP_RxCTL_RxOK);	/* do not generate any interrupts on receive operations */	put_reg (PP_RxCFG, 0);	/* do not generate any interrupts on transmit operations */	put_reg (PP_TxCFG, 0);	/* do not generate any interrupts on buffer operations */	put_reg (PP_BufCFG, 0);	/* enable transmitter/receiver mode */	put_reg (PP_LineCTL, PP_LineCTL_Rx | PP_LineCTL_Tx);}void cs8900_get_enetaddr (uchar * addr){	int i;	unsigned char env_enetaddr[6];	char *tmp = getenv ("ethaddr");	char *end;	for (i=0; i<6; i++) {		env_enetaddr[i] = tmp ? simple_strtoul(tmp, &end, 16) : 0;		if (tmp)			tmp = (*end) ? end+1 : end;	}	/* verify chip id */	if (get_reg_init_bus (PP_ChipID) != 0x630e)		return;	eth_reset ();	if ((get_reg (PP_SelfST) & (PP_SelfSTAT_EEPROM | PP_SelfSTAT_EEPROM_OK)) ==			(PP_SelfSTAT_EEPROM | PP_SelfSTAT_EEPROM_OK)) {		/* Load the MAC from EEPROM */		for (i = 0; i < 6 / 2; i++) {			unsigned int Addr;			Addr = get_reg (PP_IA + i * 2);			addr[i * 2] = Addr & 0xFF;			addr[i * 2 + 1] = Addr >> 8;		}		if (memcmp(env_enetaddr, "\0\0\0\0\0\0", 6) != 0 &&		    memcmp(env_enetaddr, addr, 6) != 0) {			printf ("\nWarning: MAC addresses don't match:\n");			printf ("\tHW MAC address:  "				"%02X:%02X:%02X:%02X:%02X:%02X\n",				addr[0], addr[1],				addr[2], addr[3],				addr[4], addr[5] );			printf ("\t\"ethaddr\" value: "				"%02X:%02X:%02X:%02X:%02X:%02X\n",				env_enetaddr[0], env_enetaddr[1],				env_enetaddr[2], env_enetaddr[3],				env_enetaddr[4], env_enetaddr[5]) ;			debug ("### Set MAC addr from environment\n");			memcpy (addr, env_enetaddr, 6);		}		if (!tmp) {			char ethaddr[20];			sprintf (ethaddr, "%02X:%02X:%02X:%02X:%02X:%02X",				 addr[0], addr[1],				 addr[2], addr[3],				 addr[4], addr[5]) ;			debug ("### Set environment from HW MAC addr = \"%s\"\n",				ethaddr);			setenv ("ethaddr", ethaddr);		}	}}void eth_halt (void){	/* disable transmitter/receiver mode */	put_reg (PP_LineCTL, 0);	/* "shutdown" to show ChipID or kernel wouldn't find he cs8900 ... */	get_reg_init_bus (PP_ChipID);}int eth_init (bd_t * bd){	/* verify chip id */	if (get_reg_init_bus (PP_ChipID) != 0x630e) {		printf ("CS8900 Ethernet chip not found?!\n");		return 0;	}	eth_reset ();	/* set the ethernet address */	put_reg (PP_IA + 0, bd->bi_enetaddr[0] | (bd->bi_enetaddr[1] << 8));	put_reg (PP_IA + 2, bd->bi_enetaddr[2] | (bd->bi_enetaddr[3] << 8));	put_reg (PP_IA + 4, bd->bi_enetaddr[4] | (bd->bi_enetaddr[5] << 8));	eth_reginit ();	return 0;}/* Get a data block via Ethernet */extern int eth_rx (void){	int i;	unsigned short rxlen;	unsigned short *addr;	unsigned short status;	status = get_reg (PP_RER);	if ((status & PP_RER_RxOK) == 0)		return 0;	status = CS8900_RTDATA;		/* stat */	rxlen = CS8900_RTDATA;		/* len */#ifdef DEBUG	if (rxlen > PKTSIZE_ALIGN + PKTALIGN)		printf ("packet too big!\n");#endif	for (addr = (unsigned short *) NetRxPackets[0], i = rxlen >> 1; i > 0;		 i--)		*addr++ = CS8900_RTDATA;	if (rxlen & 1)		*addr++ = CS8900_RTDATA;	/* Pass the packet up to the protocol layers. */	NetReceive (NetRxPackets[0], rxlen);	return rxlen;}/* Send a data block via Ethernet. */extern int eth_send (volatile void *packet, int length){	volatile unsigned short *addr;	int tmo;	unsigned short s;retry:	/* initiate a transmit sequence */	CS8900_TxCMD = PP_TxCmd_TxStart_Full;	CS8900_TxLEN = length;	/* Test to see if the chip has allocated memory for the packet */	if ((get_reg (PP_BusSTAT) & PP_BusSTAT_TxRDY) == 0) {		/* Oops... this should not happen! */#ifdef DEBUG		printf ("cs: unable to send packet; retrying...\n");#endif		for (tmo = get_timer (0) + 5 * CFG_HZ; get_timer (0) < tmo;)			/*NOP*/;		eth_reset ();		eth_reginit ();		goto retry;	}	/* Write the contents of the packet */	/* assume even number of bytes */	for (addr = packet; length > 0; length -= 2)		CS8900_RTDATA = *addr++;	/* wait for transfer to succeed */	tmo = get_timer (0) + 5 * CFG_HZ;	while ((s = get_reg (PP_TER) & ~0x1F) == 0) {		if (get_timer (0) >= tmo)			break;	}	/* nothing */ ;	if ((s & (PP_TER_CRS | PP_TER_TxOK)) != PP_TER_TxOK) {#ifdef DEBUG		printf ("\ntransmission error %#x\n", s);#endif	}	return 0;}static void cs8900_e2prom_ready(void){	while(get_reg(PP_SelfST) & SI_BUSY);}/***********************************************************//* read a 16-bit word out of the EEPROM                    *//***********************************************************/int cs8900_e2prom_read(unsigned char addr, unsigned short *value){	cs8900_e2prom_ready();	put_reg(PP_EECMD, EEPROM_READ_CMD | addr);	cs8900_e2prom_ready();	*value = get_reg(PP_EEData);	return 0;}/***********************************************************//* write a 16-bit word into the EEPROM                     *//***********************************************************/int cs8900_e2prom_write(unsigned char addr, unsigned short value){	cs8900_e2prom_ready();	put_reg(PP_EECMD, EEPROM_WRITE_EN);	cs8900_e2prom_ready();	put_reg(PP_EEData, value);	put_reg(PP_EECMD, EEPROM_WRITE_CMD | addr);	cs8900_e2prom_ready();	put_reg(PP_EECMD, EEPROM_WRITE_DIS);	cs8900_e2prom_ready();	return 0;}#endif	/* COMMANDS & CFG_NET */#endif	/* CONFIG_DRIVER_CS8900 */