Add support for friendly-arm SBC-2410X board
[oweals/u-boot.git] / drivers / cs8900.c
1 /*
2  * Cirrus Logic CS8900A Ethernet
3  *
4  * (C) 2003 Wolfgang Denk, wd@denx.de
5  *     Extension to synchronize ethaddr environment variable
6  *     against value in EEPROM
7  *
8  * (C) Copyright 2002
9  * Sysgo Real-Time Solutions, GmbH <www.elinos.com>
10  * Marius Groeger <mgroeger@sysgo.de>
11  *
12  * Copyright (C) 1999 Ben Williamson <benw@pobox.com>
13  *
14  * See file CREDITS for list of people who contributed to this
15  * project.
16  *
17  * This program is loaded into SRAM in bootstrap mode, where it waits
18  * for commands on UART1 to read and write memory, jump to code etc.
19  * A design goal for this program is to be entirely independent of the
20  * target board.  Anything with a CL-PS7111 or EP7211 should be able to run
21  * this code in bootstrap mode.  All the board specifics can be handled on
22  * the host.
23  *
24  * This program is free software; you can redistribute it and/or modify
25  * it under the terms of the GNU General Public License as published by
26  * the Free Software Foundation; either version 2 of the License, or
27  * (at your option) any later version.
28  *
29  * This program is distributed in the hope that it will be useful,
30  * but WITHOUT ANY WARRANTY; without even the implied warranty of
31  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
32  * GNU General Public License for more details.
33  *
34  * You should have received a copy of the GNU General Public License
35  * along with this program; if not, write to the Free Software
36  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
37  */
38
39 #include <common.h>
40 #include <command.h>
41 #include "cs8900.h"
42 #include <net.h>
43
44 #ifdef CONFIG_DRIVER_CS8900
45
46 #if (CONFIG_COMMANDS & CFG_CMD_NET)
47
48 #undef DEBUG
49
50 /* packet page register access functions */
51
52 #ifdef CS8900_BUS32
53 /* we don't need 16 bit initialisation on 32 bit bus */
54 #define get_reg_init_bus(x) get_reg((x))
55 #else
56 static unsigned short get_reg_init_bus (int regno)
57 {
58         /* force 16 bit busmode */
59         volatile unsigned char c;
60
61         c = CS8900_BUS16_0;
62         c = CS8900_BUS16_1;
63         c = CS8900_BUS16_0;
64         c = CS8900_BUS16_1;
65         c = CS8900_BUS16_0;
66
67         CS8900_PPTR = regno;
68         return (unsigned short) CS8900_PDATA;
69 }
70 #endif
71
72 static unsigned short get_reg (int regno)
73 {
74         CS8900_PPTR = regno;
75         return (unsigned short) CS8900_PDATA;
76 }
77
78
79 static void put_reg (int regno, unsigned short val)
80 {
81         CS8900_PPTR = regno;
82         CS8900_PDATA = val;
83 }
84
85 static void eth_reset (void)
86 {
87         int tmo;
88         unsigned short us;
89
90         /* reset NIC */
91         put_reg (PP_SelfCTL, get_reg (PP_SelfCTL) | PP_SelfCTL_Reset);
92
93         /* wait for 200ms */
94         udelay (200000);
95         /* Wait until the chip is reset */
96
97         tmo = get_timer (0) + 1 * CFG_HZ;
98         while ((((us = get_reg_init_bus (PP_SelfSTAT)) & PP_SelfSTAT_InitD) == 0)
99                    && tmo < get_timer (0))
100                 /*NOP*/;
101 }
102
103 static void eth_reginit (void)
104 {
105         /* receive only error free packets addressed to this card */
106         put_reg (PP_RxCTL, PP_RxCTL_IA | PP_RxCTL_Broadcast | PP_RxCTL_RxOK);
107         /* do not generate any interrupts on receive operations */
108         put_reg (PP_RxCFG, 0);
109         /* do not generate any interrupts on transmit operations */
110         put_reg (PP_TxCFG, 0);
111         /* do not generate any interrupts on buffer operations */
112         put_reg (PP_BufCFG, 0);
113         /* enable transmitter/receiver mode */
114         put_reg (PP_LineCTL, PP_LineCTL_Rx | PP_LineCTL_Tx);
115 }
116
117 void cs8900_get_enetaddr (uchar * addr)
118 {
119         int i;
120         unsigned char env_enetaddr[6];
121         char *tmp = getenv ("ethaddr");
122         char *end;
123
124         for (i=0; i<6; i++) {
125                 env_enetaddr[i] = tmp ? simple_strtoul(tmp, &end, 16) : 0;
126                 if (tmp)
127                         tmp = (*end) ? end+1 : end;
128         }
129
130         /* verify chip id */
131         if (get_reg_init_bus (PP_ChipID) != 0x630e)
132                 return;
133         eth_reset ();
134         if ((get_reg (PP_SelfST) & (PP_SelfSTAT_EEPROM | PP_SelfSTAT_EEPROM_OK)) ==
135                         (PP_SelfSTAT_EEPROM | PP_SelfSTAT_EEPROM_OK)) {
136
137                 /* Load the MAC from EEPROM */
138                 for (i = 0; i < 6 / 2; i++) {
139                         unsigned int Addr;
140
141                         Addr = get_reg (PP_IA + i * 2);
142                         addr[i * 2] = Addr & 0xFF;
143                         addr[i * 2 + 1] = Addr >> 8;
144                 }
145
146                 if (memcmp(env_enetaddr, "\0\0\0\0\0\0", 6) != 0 &&
147                     memcmp(env_enetaddr, addr, 6) != 0) {
148                         printf ("\nWarning: MAC addresses don't match:\n");
149                         printf ("\tHW MAC address:  "
150                                 "%02X:%02X:%02X:%02X:%02X:%02X\n",
151                                 addr[0], addr[1],
152                                 addr[2], addr[3],
153                                 addr[4], addr[5] );
154                         printf ("\t\"ethaddr\" value: "
155                                 "%02X:%02X:%02X:%02X:%02X:%02X\n",
156                                 env_enetaddr[0], env_enetaddr[1],
157                                 env_enetaddr[2], env_enetaddr[3],
158                                 env_enetaddr[4], env_enetaddr[5]) ;
159                         debug ("### Set MAC addr from environment\n");
160                         memcpy (addr, env_enetaddr, 6);
161                 }
162                 if (!tmp) {
163                         char ethaddr[20];
164                         sprintf (ethaddr, "%02X:%02X:%02X:%02X:%02X:%02X",
165                                  addr[0], addr[1],
166                                  addr[2], addr[3],
167                                  addr[4], addr[5]) ;
168                         debug ("### Set environment from HW MAC addr = \"%s\"\n",                               ethaddr);
169                         setenv ("ethaddr", ethaddr);
170                 }
171
172         }
173 }
174
175 void eth_halt (void)
176 {
177         /* disable transmitter/receiver mode */
178         put_reg (PP_LineCTL, 0);
179
180         /* "shutdown" to show ChipID or kernel wouldn't find he cs8900 ... */
181         get_reg_init_bus (PP_ChipID);
182 }
183
184 int eth_init (bd_t * bd)
185 {
186
187         /* verify chip id */
188         if (get_reg_init_bus (PP_ChipID) != 0x630e) {
189                 printf ("CS8900 Ethernet chip not found?!\n");
190                 return 0;
191         }
192
193         eth_reset ();
194         /* set the ethernet address */
195         put_reg (PP_IA + 0, bd->bi_enetaddr[0] | (bd->bi_enetaddr[1] << 8));
196         put_reg (PP_IA + 2, bd->bi_enetaddr[2] | (bd->bi_enetaddr[3] << 8));
197         put_reg (PP_IA + 4, bd->bi_enetaddr[4] | (bd->bi_enetaddr[5] << 8));
198
199         eth_reginit ();
200         return 0;
201 }
202
203 /* Get a data block via Ethernet */
204 extern int eth_rx (void)
205 {
206         int i;
207         unsigned short rxlen;
208         unsigned short *addr;
209         unsigned short status;
210
211         status = get_reg (PP_RER);
212
213         if ((status & PP_RER_RxOK) == 0)
214                 return 0;
215
216         status = CS8900_RTDATA;         /* stat */
217         rxlen = CS8900_RTDATA;          /* len */
218
219 #ifdef DEBUG
220         if (rxlen > PKTSIZE_ALIGN + PKTALIGN)
221                 printf ("packet too big!\n");
222 #endif
223         for (addr = (unsigned short *) NetRxPackets[0], i = rxlen >> 1; i > 0;
224                  i--)
225                 *addr++ = CS8900_RTDATA;
226         if (rxlen & 1)
227                 *addr++ = CS8900_RTDATA;
228
229         /* Pass the packet up to the protocol layers. */
230         NetReceive (NetRxPackets[0], rxlen);
231
232         return rxlen;
233 }
234
235 /* Send a data block via Ethernet. */
236 extern int eth_send (volatile void *packet, int length)
237 {
238         volatile unsigned short *addr;
239         int tmo;
240         unsigned short s;
241
242 retry:
243         /* initiate a transmit sequence */
244         CS8900_TxCMD = PP_TxCmd_TxStart_Full;
245         CS8900_TxLEN = length;
246
247         /* Test to see if the chip has allocated memory for the packet */
248         if ((get_reg (PP_BusSTAT) & PP_BusSTAT_TxRDY) == 0) {
249                 /* Oops... this should not happen! */
250 #ifdef DEBUG
251                 printf ("cs: unable to send packet; retrying...\n");
252 #endif
253                 for (tmo = get_timer (0) + 5 * CFG_HZ; get_timer (0) < tmo;)
254                         /*NOP*/;
255                 eth_reset ();
256                 eth_reginit ();
257                 goto retry;
258         }
259
260         /* Write the contents of the packet */
261         /* assume even number of bytes */
262         for (addr = packet; length > 0; length -= 2)
263                 CS8900_RTDATA = *addr++;
264
265         /* wait for transfer to succeed */
266         tmo = get_timer (0) + 5 * CFG_HZ;
267         while ((s = get_reg (PP_TER) & ~0x1F) == 0) {
268                 if (get_timer (0) >= tmo)
269                         break;
270         }
271
272         /* nothing */ ;
273         if ((s & (PP_TER_CRS | PP_TER_TxOK)) != PP_TER_TxOK) {
274 #ifdef DEBUG
275                 printf ("\ntransmission error %#x\n", s);
276 #endif
277         }
278
279         return 0;
280 }
281
282 static void cs8900_e2prom_ready(void)
283 {
284         while(get_reg(PP_SelfST) & SI_BUSY);
285 }
286
287 /***********************************************************/
288 /* read a 16-bit word out of the EEPROM                    */
289 /***********************************************************/
290
291 int cs8900_e2prom_read(unsigned char addr, unsigned short *value)
292 {
293         cs8900_e2prom_ready();
294         put_reg(PP_EECMD, EEPROM_READ_CMD | addr);
295         cs8900_e2prom_ready();
296         *value = get_reg(PP_EEData);
297
298         return 0;
299 }
300
301
302 /***********************************************************/
303 /* write a 16-bit word into the EEPROM                     */
304 /***********************************************************/
305
306 int cs8900_e2prom_write(unsigned char addr, unsigned short value)
307 {
308         cs8900_e2prom_ready();
309         put_reg(PP_EECMD, EEPROM_WRITE_EN);
310         cs8900_e2prom_ready();
311         put_reg(PP_EEData, value);
312         put_reg(PP_EECMD, EEPROM_WRITE_CMD | addr);
313         cs8900_e2prom_ready();
314         put_reg(PP_EECMD, EEPROM_WRITE_DIS);
315         cs8900_e2prom_ready();
316
317         return 0;
318 }
319
320 #endif  /* COMMANDS & CFG_NET */
321
322 #endif  /* CONFIG_DRIVER_CS8900 */