blob: 89b3a8394ed97aa67ee84ee391f876a91af0b58c [file] [log] [blame]
wdenk2d1a5372004-02-23 19:30:57 +00001/*
2 * Copyright (C) 2004 IMMS gGmbH <www.imms.de>
3 *
4 * This program is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU General Public License as
6 * published by the Free Software Foundation; either version 2 of
7 * the License, or (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
17 * MA 02111-1307 USA
18 *
19 * author(s): Thomas Elste, <info@elste.org>
20 * (some parts derived from uCLinux Netarm Ethernet Driver)
21 */
22
23
24#include <common.h>
wdenkcd0a9de2004-02-23 20:48:38 +000025
26#ifdef CONFIG_DRIVER_NETARMETH
wdenk2d1a5372004-02-23 19:30:57 +000027#include <command.h>
28#include <net.h>
29#include "netarm_eth.h"
30#include <asm/arch/netarm_registers.h>
31
wdenk2d1a5372004-02-23 19:30:57 +000032
33#if (CONFIG_COMMANDS & CFG_CMD_NET)
34
35static int na_mii_poll_busy (void);
36
37static void na_get_mac_addr (void)
38{
39 unsigned short p[3];
40 char *m_addr;
41 char ethaddr[20];
42
43 m_addr = (char *) p;
44
45 p[0] = (unsigned short) GET_EADDR (NETARM_ETH_SAL_STATION_ADDR_1);
46 p[1] = (unsigned short) GET_EADDR (NETARM_ETH_SAL_STATION_ADDR_2);
47 p[2] = (unsigned short) GET_EADDR (NETARM_ETH_SAL_STATION_ADDR_3);
48
49 sprintf (ethaddr, "%02X:%02X:%02X:%02X:%02X:%02X",
50 m_addr[0], m_addr[1],
51 m_addr[2], m_addr[3], m_addr[4], m_addr[5]);
52
53 printf ("HW-MAC Address: %s\n", ethaddr);
54
55 /* set env, todo: check if already an adress is set */
56 setenv ("ethaddr", ethaddr);
57}
58
59
60static void na_mii_write (int reg, int value)
61{
62 int mii_addr;
63
64 /* Select register */
65 mii_addr = CFG_ETH_PHY_ADDR + reg;
66 SET_EADDR (NETARM_ETH_MII_ADDR, mii_addr);
67 /* Write value */
68 SET_EADDR (NETARM_ETH_MII_WRITE, value);
69 na_mii_poll_busy ();
70}
71
72static unsigned int na_mii_read (int reg)
73{
74 int mii_addr, val;
75
76 /* Select register */
77 mii_addr = CFG_ETH_PHY_ADDR + reg;
78 SET_EADDR (NETARM_ETH_MII_ADDR, mii_addr);
79 /* do one management cycle */
80 SET_EADDR (NETARM_ETH_MII_CMD,
81 GET_EADDR (NETARM_ETH_MII_CMD) | NETARM_ETH_MIIC_RSTAT);
82 na_mii_poll_busy ();
83 /* Return read value */
84 val = GET_EADDR (NETARM_ETH_MII_READ);
85 return val;
86}
87
88static int na_mii_poll_busy (void)
89{
90 /* arm simple, non interrupt dependent timer */
91 reset_timer_masked ();
92 while (get_timer_masked () < NA_MII_POLL_BUSY_DELAY) {
93 if (!(GET_EADDR (NETARM_ETH_MII_IND) & NETARM_ETH_MIII_BUSY)) {
94 return 1;
95 }
96 }
97 printf ("na_mii_busy timeout\n");
98 return (0);
99}
100
101static int na_mii_identify_phy (void)
102{
103 int id_reg_a = 0;
104
105 /* get phy id register */
106 id_reg_a = na_mii_read (MII_PHY_ID);
107
108 if (id_reg_a == 0x0043) {
109 /* This must be an Enable or a Lucent LU3X31 PHY chip */
110 return 1;
111 } else if (id_reg_a == 0x0013) {
112 /* it is an Intel LXT971A */
113 return 1;
114 }
115 return (0);
116}
117
118static int na_mii_negotiate (void)
119{
120 int i = 0;
121
122 /* Enable auto-negotiation */
123 na_mii_write (MII_PHY_AUTONEGADV, 0x01e1);
124 /* FIXME: 0x01E1 is 100Mb half and full duplex, 0x0061 is 10Mb only */
125 /* Restart auto-negotiation */
126 na_mii_write (MII_PHY_CONTROL, 0x1200);
127
128 /* status register is 0xffff after setting the autoneg restart bit */
129 while (na_mii_read (MII_PHY_STATUS) == 0xffff) {
130 i++;
131 }
132
133 /* na_mii_read uses the timer already, so we can't use it again for
134 timeout checking.
135 Instead we just try some times.
136 */
137 for (i = 0; i < 40000; i++) {
138 if ((na_mii_read (MII_PHY_STATUS) & 0x0024) == 0x0024) {
139 return 0;
140 }
141 }
142 /*
143 printf("*Warning* autonegotiation timeout, status: 0x%x\n",na_mii_read(MII_PHY_STATUS));
144 */
145 return (1);
146}
147
148static unsigned int na_mii_check_speed (void)
149{
150 unsigned int status;
151
152 /* Read Status register */
153 status = na_mii_read (MII_PHY_STATUS);
154 /* Check link status. If 0, default to 100 Mbps. */
155 if ((status & 0x0004) == 0) {
156 printf ("*Warning* no link detected, set default speed to 100Mbs\n");
157 return 1;
158 } else {
159 if ((na_mii_read (17) & 0x4000) != 0) {
160 printf ("100Mbs link detected\n");
161 return 1;
162 } else {
163 printf ("10Mbs link detected\n");
164 return 0;
165 }
166 }
167 return 0;
168}
169
170static int reset_eth (void)
171{
172 int pt;
173
174 na_get_mac_addr ();
175 pt = na_mii_identify_phy ();
176
177 /* reset the phy */
178 na_mii_write (MII_PHY_CONTROL, 0x8000);
179 reset_timer_masked ();
180 while (get_timer_masked () < NA_MII_NEGOTIATE_DELAY) {
181 if ((na_mii_read (MII_PHY_STATUS) & 0x8000) == 0) {
182 break;
183 }
184 }
185 if (get_timer_masked () >= NA_MII_NEGOTIATE_DELAY)
186 printf ("phy reset timeout\n");
187
188 /* set the PCS reg */
189 SET_EADDR (NETARM_ETH_PCS_CFG, NETARM_ETH_PCSC_CLKS_25M |
190 NETARM_ETH_PCSC_ENJAB | NETARM_ETH_PCSC_NOCFR);
191
192 na_mii_negotiate ();
193 na_mii_check_speed ();
194
195 /* Delay 10 millisecond. (Maybe this should be 1 second.) */
196 udelay (10000);
197
198 /* Turn receive on.
199 Enable statistics register autozero on read.
200 Do not insert MAC address on transmit.
201 Do not enable special test modes. */
202 SET_EADDR (NETARM_ETH_STL_CFG,
203 (NETARM_ETH_STLC_AUTOZ | NETARM_ETH_STLC_RXEN));
204
205 /* Set the inter-packet gap delay to 0.96us for MII.
206 The NET+ARM H/W Reference Guide indicates that the Back-to-back IPG
207 Gap Timer Register should be set to 0x15 and the Non Back-to-back IPG
208 Gap Timer Register should be set to 0x00000C12 for the MII PHY. */
209 SET_EADDR (NETARM_ETH_B2B_IPG_GAP_TMR, 0x15);
210 SET_EADDR (NETARM_ETH_NB2B_IPG_GAP_TMR, 0x00000C12);
211
212 /* Add CRC to end of packets.
213 Pad packets to minimum length of 64 bytes.
214 Allow unlimited length transmit packets.
215 Receive all broadcast packets.
216 NOTE: Multicast addressing is NOT enabled here currently. */
217 SET_EADDR (NETARM_ETH_MAC_CFG,
218 (NETARM_ETH_MACC_CRCEN |
219 NETARM_ETH_MACC_PADEN | NETARM_ETH_MACC_HUGEN));
220 SET_EADDR (NETARM_ETH_SAL_FILTER, NETARM_ETH_SALF_BROAD);
221
222 /* enable fifos */
223 SET_EADDR (NETARM_ETH_GEN_CTRL,
224 (NETARM_ETH_GCR_ERX | NETARM_ETH_GCR_ETX));
225
226 return (0);
227}
228
229
230extern int eth_init (bd_t * bd)
231{
232 reset_eth ();
233 return 0;
234}
235
236extern void eth_halt (void)
237{
238 SET_EADDR (NETARM_ETH_GEN_CTRL, 0);
239}
240
241/* Get a data block via Ethernet */
242extern int eth_rx (void)
243{
244 int i;
245 unsigned short rxlen;
246 unsigned int *addr;
247 unsigned int rxstatus, lastrxlen;
248 char *pa;
249
250 /* RXBR is 1, data block was received */
251 if ((GET_EADDR (NETARM_ETH_GEN_STAT) & NETARM_ETH_GST_RXBR) == 0)
252 return 0;
253
254 /* get status register and the length of received block */
255 rxstatus = GET_EADDR (NETARM_ETH_RX_STAT);
256 rxlen = (rxstatus & NETARM_ETH_RXSTAT_SIZE) >> 16;
257
258 if (rxlen == 0)
259 return 0;
260
261 /* clear RXBR to make fifo available */
262 SET_EADDR (NETARM_ETH_GEN_STAT,
263 GET_EADDR (NETARM_ETH_GEN_STAT) & ~NETARM_ETH_GST_RXBR);
264
265 /* clear TXBC to make fifo available */
266 /* According to NETARM50 data manual you just have to clear
267 RXBR but that has no effect. Only after clearing TXBC the
268 Fifo becomes readable. */
269 SET_EADDR (NETARM_ETH_GEN_STAT,
270 GET_EADDR (NETARM_ETH_GEN_STAT) & ~NETARM_ETH_GST_TXBC);
271
272 addr = (unsigned int *) NetRxPackets[0];
273 pa = (char *) NetRxPackets[0];
274
275 /* read the fifo */
276 for (i = 0; i < rxlen / 4; i++) {
277 *addr = GET_EADDR (NETARM_ETH_FIFO_DAT1);
278 addr++;
279 }
280
281 if (GET_EADDR (NETARM_ETH_GEN_STAT) & NETARM_ETH_GST_RXREGR) {
282 /* RXFDB indicates wether the last word is 1,2,3 or 4 bytes long */
283 lastrxlen =
284 (GET_EADDR (NETARM_ETH_GEN_STAT) &
285 NETARM_ETH_GST_RXFDB) >> 28;
286 *addr = GET_EADDR (NETARM_ETH_FIFO_DAT1);
287 switch (lastrxlen) {
288 case 1:
289 *addr &= 0xff000000;
290 break;
291 case 2:
292 *addr &= 0xffff0000;
293 break;
294 case 3:
295 *addr &= 0xffffff00;
296 break;
297 }
298 }
299
300 /* Pass the packet up to the protocol layers. */
301 NetReceive (NetRxPackets[0], rxlen);
302
303 return rxlen;
304}
305
306/* Send a data block via Ethernet. */
307extern int eth_send (volatile void *packet, int length)
308{
309 int i, length32;
310 char *pa;
311 unsigned int *pa32, lastp = 0, rest;
312
313 pa = (char *) packet;
314 pa32 = (unsigned int *) packet;
315 length32 = length / 4;
316 rest = length % 4;
317
318 /* make sure there's no garbage in the last word */
319 switch (rest) {
320 case 0:
321 lastp = pa32[length32];
322 length32--;
323 break;
324 case 1:
325 lastp = pa32[length32] & 0x000000ff;
326 break;
327 case 2:
328 lastp = pa32[length32] & 0x0000ffff;
329 break;
330 case 3:
331 lastp = pa32[length32] & 0x00ffffff;
332 break;
333 }
334
335 /* write to the fifo */
336 for (i = 0; i < length32; i++)
337 SET_EADDR (NETARM_ETH_FIFO_DAT1, pa32[i]);
338
339 /* the last word is written to an extra register, this
340 starts the transmission */
341 SET_EADDR (NETARM_ETH_FIFO_DAT2, lastp);
342
343 /* NETARM_ETH_TXSTAT_TXOK should be checked, to know if the transmission
344 went fine. But we can't use the timer for a timeout loop because
345 of it is used already in upper layers. So we just try some times. */
346 i = 0;
347 while (i < 50000) {
348 if ((GET_EADDR (NETARM_ETH_TX_STAT) & NETARM_ETH_TXSTAT_TXOK)
349 == NETARM_ETH_TXSTAT_TXOK)
350 return 0;
351 i++;
352 }
353
354 printf ("eth_send timeout\n");
355 return 1;
356}
357
358#endif /* COMMANDS & CFG_NET */
359
360#endif /* CONFIG_DRIVER_NETARMETH */