Merge branch 'agp-patches' of git://git.kernel.org/pub/scm/linux/kernel/git/airlied...
[linux-2.6] / drivers / net / ibmlana.c
1 /*
2 net-3-driver for the IBM LAN Adapter/A
3
4 This is an extension to the Linux operating system, and is covered by the
5 same GNU General Public License that covers that work.
6
7 Copyright 1999 by Alfred Arnold (alfred@ccac.rwth-aachen.de,
8                                  alfred.arnold@lancom.de)
9
10 This driver is based both on the SK_MCA driver, which is itself based on the
11 SK_G16 and 3C523 driver.
12
13 paper sources:
14   'PC Hardware: Aufbau, Funktionsweise, Programmierung' by
15   Hans-Peter Messmer for the basic Microchannel stuff
16
17   'Linux Geraetetreiber' by Allesandro Rubini, Kalle Dalheimer
18   for help on Ethernet driver programming
19
20   'DP83934CVUL-20/25 MHz SONIC-T Ethernet Controller Datasheet' by National
21   Semiconductor for info on the MAC chip
22
23   'LAN Technical Reference Ethernet Adapter Interface Version 1 Release 1.0
24    Document Number SC30-3661-00' by IBM for info on the adapter itself
25
26   Also see http://www.natsemi.com/
27
28 special acknowledgements to:
29   - Bob Eager for helping me out with documentation from IBM
30   - Jim Shorney for his endless patience with me while I was using
31     him as a beta tester to trace down the address filter bug ;-)
32
33   Missing things:
34
35   -> set debug level via ioctl instead of compile-time switches
36   -> I didn't follow the development of the 2.1.x kernels, so my
37      assumptions about which things changed with which kernel version
38      are probably nonsense
39
40 History:
41   Nov 6th, 1999
42         startup from SK_MCA driver
43   Dec 6th, 1999
44         finally got docs about the card.  A big thank you to Bob Eager!
45   Dec 12th, 1999
46         first packet received
47   Dec 13th, 1999
48         recv queue done, tcpdump works
49   Dec 15th, 1999
50         transmission part works
51   Dec 28th, 1999
52         added usage of the isa_functions for Linux 2.3 .  Things should
53         still work with 2.0.x....
54   Jan 28th, 2000
55         in Linux 2.2.13, the version.h file mysteriously didn't get
56         included.  Added a workaround for this.  Futhermore, it now
57         not only compiles as a modules ;-)
58   Jan 30th, 2000
59         newer kernels automatically probe more than one board, so the
60         'startslot' as a variable is also needed here
61   Apr 12th, 2000
62         the interrupt mask register is not set 'hard' instead of individually
63         setting registers, since this seems to set bits that shouldn't be
64         set
65   May 21st, 2000
66         reset interrupt status immediately after CAM load
67         add a recovery delay after releasing the chip's reset line
68   May 24th, 2000
69         finally found the bug in the address filter setup - damned signed
70         chars!
71   June 1st, 2000
72         corrected version codes, added support for the latest 2.3 changes
73   Oct 28th, 2002
74         cleaned up for the 2.5 tree <alan@redhat.com>
75
76  *************************************************************************/
77
78 #include <linux/kernel.h>
79 #include <linux/string.h>
80 #include <linux/errno.h>
81 #include <linux/ioport.h>
82 #include <linux/slab.h>
83 #include <linux/interrupt.h>
84 #include <linux/delay.h>
85 #include <linux/time.h>
86 #include <linux/mca-legacy.h>
87 #include <linux/module.h>
88 #include <linux/netdevice.h>
89 #include <linux/etherdevice.h>
90 #include <linux/skbuff.h>
91 #include <linux/bitops.h>
92
93 #include <asm/processor.h>
94 #include <asm/io.h>
95
96 #define _IBM_LANA_DRIVER_
97 #include "ibmlana.h"
98
99 #undef DEBUG
100
101 #define DRV_NAME "ibmlana"
102
103 /* ------------------------------------------------------------------------
104  * global static data - not more since we can handle multiple boards and
105  * have to pack all state info into the device struct!
106  * ------------------------------------------------------------------------ */
107
108 static char *MediaNames[Media_Count] = {
109         "10BaseT", "10Base5", "Unknown", "10Base2"
110 };
111
112 /* ------------------------------------------------------------------------
113  * private subfunctions
114  * ------------------------------------------------------------------------ */
115
116 #ifdef DEBUG
117   /* dump all registers */
118
119 static void dumpregs(struct net_device *dev)
120 {
121         int z;
122
123         for (z = 0; z < 160; z += 2) {
124                 if (!(z & 15))
125                         printk("REGS: %04x:", z);
126                 printk(" %04x", inw(dev->base_addr + z));
127                 if ((z & 15) == 14)
128                         printk("\n");
129         }
130 }
131
132 /* dump parts of shared memory - only needed during debugging */
133
134 static void dumpmem(struct net_device *dev, u32 start, u32 len)
135 {
136         ibmlana_priv *priv = netdev_priv(dev);
137         int z;
138
139         printk("Address %04x:\n", start);
140         for (z = 0; z < len; z++) {
141                 if ((z & 15) == 0)
142                         printk("%04x:", z);
143                 printk(" %02x", readb(priv->base + start + z));
144                 if ((z & 15) == 15)
145                         printk("\n");
146         }
147         if ((z & 15) != 0)
148                 printk("\n");
149 }
150
151 /* print exact time - ditto */
152
153 static void PrTime(void)
154 {
155         struct timeval tv;
156
157         do_gettimeofday(&tv);
158         printk("%9d:%06d: ", (int) tv.tv_sec, (int) tv.tv_usec);
159 }
160 #endif                          /* DEBUG */
161
162 /* deduce resources out of POS registers */
163
164 static void getaddrs(int slot, int *base, int *memlen, int *iobase,
165                      int *irq, ibmlana_medium * medium)
166 {
167         u_char pos0, pos1;
168
169         pos0 = mca_read_stored_pos(slot, 2);
170         pos1 = mca_read_stored_pos(slot, 3);
171
172         *base = 0xc0000 + ((pos1 & 0xf0) << 9);
173         *memlen = (pos1 & 0x01) ? 0x8000 : 0x4000;
174         *iobase = (pos0 & 0xe0) << 7;
175         switch (pos0 & 0x06) {
176         case 0:
177                 *irq = 5;
178                 break;
179         case 2:
180                 *irq = 15;
181                 break;
182         case 4:
183                 *irq = 10;
184                 break;
185         case 6:
186                 *irq = 11;
187                 break;
188         }
189         *medium = (pos0 & 0x18) >> 3;
190 }
191
192 /* wait on register value with mask and timeout */
193
194 static int wait_timeout(struct net_device *dev, int regoffs, u16 mask,
195                         u16 value, int timeout)
196 {
197         unsigned long fin = jiffies + timeout;
198
199         while (time_before(jiffies,fin))
200                 if ((inw(dev->base_addr + regoffs) & mask) == value)
201                         return 1;
202
203         return 0;
204 }
205
206
207 /* reset the whole board */
208
209 static void ResetBoard(struct net_device *dev)
210 {
211         unsigned char bcmval;
212
213         /* read original board control value */
214
215         bcmval = inb(dev->base_addr + BCMREG);
216
217         /* set reset bit for a while */
218
219         bcmval |= BCMREG_RESET;
220         outb(bcmval, dev->base_addr + BCMREG);
221         udelay(10);
222         bcmval &= ~BCMREG_RESET;
223         outb(bcmval, dev->base_addr + BCMREG);
224
225         /* switch over to RAM again */
226
227         bcmval |= BCMREG_RAMEN | BCMREG_RAMWIN;
228         outb(bcmval, dev->base_addr + BCMREG);
229 }
230
231 /* calculate RAM layout & set up descriptors in RAM */
232
233 static void InitDscrs(struct net_device *dev)
234 {
235         ibmlana_priv *priv = netdev_priv(dev);
236         u32 addr, baddr, raddr;
237         int z;
238         tda_t tda;
239         rda_t rda;
240         rra_t rra;
241
242         /* initialize RAM */
243
244         memset_io(priv->base, 0xaa,
245                       dev->mem_start - dev->mem_start); /* XXX: typo? */
246
247         /* setup n TX descriptors - independent of RAM size */
248
249         priv->tdastart = addr = 0;
250         priv->txbufstart = baddr = sizeof(tda_t) * TXBUFCNT;
251         for (z = 0; z < TXBUFCNT; z++) {
252                 tda.status = 0;
253                 tda.config = 0;
254                 tda.length = 0;
255                 tda.fragcount = 1;
256                 tda.startlo = baddr;
257                 tda.starthi = 0;
258                 tda.fraglength = 0;
259                 if (z == TXBUFCNT - 1)
260                         tda.link = priv->tdastart;
261                 else
262                         tda.link = addr + sizeof(tda_t);
263                 tda.link |= 1;
264                 memcpy_toio(priv->base + addr, &tda, sizeof(tda_t));
265                 addr += sizeof(tda_t);
266                 baddr += PKTSIZE;
267         }
268
269         /* calculate how many receive buffers fit into remaining memory */
270
271         priv->rxbufcnt = (dev->mem_end - dev->mem_start - baddr) / (sizeof(rra_t) + sizeof(rda_t) + PKTSIZE);
272
273         /* calculate receive addresses */
274
275         priv->rrastart = raddr = priv->txbufstart + (TXBUFCNT * PKTSIZE);
276         priv->rdastart = addr = priv->rrastart + (priv->rxbufcnt * sizeof(rra_t));
277         priv->rxbufstart = baddr = priv->rdastart + (priv->rxbufcnt * sizeof(rda_t));
278
279         for (z = 0; z < priv->rxbufcnt; z++) {
280                 rra.startlo = baddr;
281                 rra.starthi = 0;
282                 rra.cntlo = PKTSIZE >> 1;
283                 rra.cnthi = 0;
284                 memcpy_toio(priv->base + raddr, &rra, sizeof(rra_t));
285
286                 rda.status = 0;
287                 rda.length = 0;
288                 rda.startlo = 0;
289                 rda.starthi = 0;
290                 rda.seqno = 0;
291                 if (z < priv->rxbufcnt - 1)
292                         rda.link = addr + sizeof(rda_t);
293                 else
294                         rda.link = 1;
295                 rda.inuse = 1;
296                 memcpy_toio(priv->base + addr, &rda, sizeof(rda_t));
297
298                 baddr += PKTSIZE;
299                 raddr += sizeof(rra_t);
300                 addr += sizeof(rda_t);
301         }
302
303         /* initialize current pointers */
304
305         priv->nextrxdescr = 0;
306         priv->lastrxdescr = priv->rxbufcnt - 1;
307         priv->nexttxdescr = 0;
308         priv->currtxdescr = 0;
309         priv->txusedcnt = 0;
310         memset(priv->txused, 0, sizeof(priv->txused));
311 }
312
313 /* set up Rx + Tx descriptors in SONIC */
314
315 static int InitSONIC(struct net_device *dev)
316 {
317         ibmlana_priv *priv = netdev_priv(dev);
318
319         /* set up start & end of resource area */
320
321         outw(0, SONIC_URRA);
322         outw(priv->rrastart, dev->base_addr + SONIC_RSA);
323         outw(priv->rrastart + (priv->rxbufcnt * sizeof(rra_t)), dev->base_addr + SONIC_REA);
324         outw(priv->rrastart, dev->base_addr + SONIC_RRP);
325         outw(priv->rrastart, dev->base_addr + SONIC_RWP);
326
327         /* set EOBC so that only one packet goes into one buffer */
328
329         outw((PKTSIZE - 4) >> 1, dev->base_addr + SONIC_EOBC);
330
331         /* let SONIC read the first RRA descriptor */
332
333         outw(CMDREG_RRRA, dev->base_addr + SONIC_CMDREG);
334         if (!wait_timeout(dev, SONIC_CMDREG, CMDREG_RRRA, 0, 2)) {
335                 printk(KERN_ERR "%s: SONIC did not respond on RRRA command - giving up.", dev->name);
336                 return 0;
337         }
338
339         /* point SONIC to the first RDA */
340
341         outw(0, dev->base_addr + SONIC_URDA);
342         outw(priv->rdastart, dev->base_addr + SONIC_CRDA);
343
344         /* set upper half of TDA address */
345
346         outw(0, dev->base_addr + SONIC_UTDA);
347
348         return 1;
349 }
350
351 /* stop SONIC so we can reinitialize it */
352
353 static void StopSONIC(struct net_device *dev)
354 {
355         /* disable interrupts */
356
357         outb(inb(dev->base_addr + BCMREG) & (~BCMREG_IEN), dev->base_addr + BCMREG);
358         outb(0, dev->base_addr + SONIC_IMREG);
359
360         /* reset the SONIC */
361
362         outw(CMDREG_RST, dev->base_addr + SONIC_CMDREG);
363         udelay(10);
364         outw(CMDREG_RST, dev->base_addr + SONIC_CMDREG);
365 }
366
367 /* initialize card and SONIC for proper operation */
368
369 static void putcam(camentry_t * cams, int *camcnt, char *addr)
370 {
371         camentry_t *pcam = cams + (*camcnt);
372         u8 *uaddr = (u8 *) addr;
373
374         pcam->index = *camcnt;
375         pcam->addr0 = (((u16) uaddr[1]) << 8) | uaddr[0];
376         pcam->addr1 = (((u16) uaddr[3]) << 8) | uaddr[2];
377         pcam->addr2 = (((u16) uaddr[5]) << 8) | uaddr[4];
378         (*camcnt)++;
379 }
380
381 static void InitBoard(struct net_device *dev)
382 {
383         ibmlana_priv *priv = netdev_priv(dev);
384         int camcnt;
385         camentry_t cams[16];
386         u32 cammask;
387         struct dev_mc_list *mcptr;
388         u16 rcrval;
389
390         /* reset the SONIC */
391
392         outw(CMDREG_RST, dev->base_addr + SONIC_CMDREG);
393         udelay(10);
394
395         /* clear all spurious interrupts */
396
397         outw(inw(dev->base_addr + SONIC_ISREG), dev->base_addr + SONIC_ISREG);
398
399         /* set up the SONIC's bus interface - constant for this adapter -
400            must be done while the SONIC is in reset */
401
402         outw(DCREG_USR1 | DCREG_USR0 | DCREG_WC1 | DCREG_DW32, dev->base_addr + SONIC_DCREG);
403         outw(0, dev->base_addr + SONIC_DCREG2);
404
405         /* remove reset form the SONIC */
406
407         outw(0, dev->base_addr + SONIC_CMDREG);
408         udelay(10);
409
410         /* data sheet requires URRA to be programmed before setting up the CAM contents */
411
412         outw(0, dev->base_addr + SONIC_URRA);
413
414         /* program the CAM entry 0 to the device address */
415
416         camcnt = 0;
417         putcam(cams, &camcnt, dev->dev_addr);
418
419         /* start putting the multicast addresses into the CAM list.  Stop if
420            it is full. */
421
422         for (mcptr = dev->mc_list; mcptr != NULL; mcptr = mcptr->next) {
423                 putcam(cams, &camcnt, mcptr->dmi_addr);
424                 if (camcnt == 16)
425                         break;
426         }
427
428         /* calculate CAM mask */
429
430         cammask = (1 << camcnt) - 1;
431
432         /* feed CDA into SONIC, initialize RCR value (always get broadcasts) */
433
434         memcpy_toio(priv->base, cams, sizeof(camentry_t) * camcnt);
435         memcpy_toio(priv->base + (sizeof(camentry_t) * camcnt), &cammask, sizeof(cammask));
436
437 #ifdef DEBUG
438         printk("CAM setup:\n");
439         dumpmem(dev, 0, sizeof(camentry_t) * camcnt + sizeof(cammask));
440 #endif
441
442         outw(0, dev->base_addr + SONIC_CAMPTR);
443         outw(camcnt, dev->base_addr + SONIC_CAMCNT);
444         outw(CMDREG_LCAM, dev->base_addr + SONIC_CMDREG);
445         if (!wait_timeout(dev, SONIC_CMDREG, CMDREG_LCAM, 0, 2)) {
446                 printk(KERN_ERR "%s:SONIC did not respond on LCAM command - giving up.", dev->name);
447                 return;
448         } else {
449                 /* clear interrupt condition */
450
451                 outw(ISREG_LCD, dev->base_addr + SONIC_ISREG);
452
453 #ifdef DEBUG
454                 printk("Loading CAM done, address pointers %04x:%04x\n",
455                        inw(dev->base_addr + SONIC_URRA),
456                        inw(dev->base_addr + SONIC_CAMPTR));
457                 {
458                         int z;
459
460                         printk("\n-->CAM: PTR %04x CNT %04x\n",
461                                inw(dev->base_addr + SONIC_CAMPTR),
462                                inw(dev->base_addr + SONIC_CAMCNT));
463                         outw(CMDREG_RST, dev->base_addr + SONIC_CMDREG);
464                         for (z = 0; z < camcnt; z++) {
465                                 outw(z, dev->base_addr + SONIC_CAMEPTR);
466                                 printk("Entry %d: %04x %04x %04x\n", z,
467                                        inw(dev->base_addr + SONIC_CAMADDR0),
468                                        inw(dev->base_addr + SONIC_CAMADDR1),
469                                        inw(dev->base_addr + SONIC_CAMADDR2));
470                         }
471                         outw(0, dev->base_addr + SONIC_CMDREG);
472                 }
473 #endif
474         }
475
476         rcrval = RCREG_BRD | RCREG_LB_NONE;
477
478         /* if still multicast addresses left or ALLMULTI is set, set the multicast
479            enable bit */
480
481         if ((dev->flags & IFF_ALLMULTI) || (mcptr != NULL))
482                 rcrval |= RCREG_AMC;
483
484         /* promiscous mode ? */
485
486         if (dev->flags & IFF_PROMISC)
487                 rcrval |= RCREG_PRO;
488
489         /* program receive mode */
490
491         outw(rcrval, dev->base_addr + SONIC_RCREG);
492 #ifdef DEBUG
493         printk("\nRCRVAL: %04x\n", rcrval);
494 #endif
495
496         /* set up descriptors in shared memory + feed them into SONIC registers */
497
498         InitDscrs(dev);
499         if (!InitSONIC(dev))
500                 return;
501
502         /* reset all pending interrupts */
503
504         outw(0xffff, dev->base_addr + SONIC_ISREG);
505
506         /* enable transmitter + receiver interrupts */
507
508         outw(CMDREG_RXEN, dev->base_addr + SONIC_CMDREG);
509         outw(IMREG_PRXEN | IMREG_RBEEN | IMREG_PTXEN | IMREG_TXEREN, dev->base_addr + SONIC_IMREG);
510
511         /* turn on card interrupts */
512
513         outb(inb(dev->base_addr + BCMREG) | BCMREG_IEN, dev->base_addr + BCMREG);
514
515 #ifdef DEBUG
516         printk("Register dump after initialization:\n");
517         dumpregs(dev);
518 #endif
519 }
520
521 /* start transmission of a descriptor */
522
523 static void StartTx(struct net_device *dev, int descr)
524 {
525         ibmlana_priv *priv = netdev_priv(dev);
526         int addr;
527
528         addr = priv->tdastart + (descr * sizeof(tda_t));
529
530         /* put descriptor address into SONIC */
531
532         outw(addr, dev->base_addr + SONIC_CTDA);
533
534         /* trigger transmitter */
535
536         priv->currtxdescr = descr;
537         outw(CMDREG_TXP, dev->base_addr + SONIC_CMDREG);
538 }
539
540 /* ------------------------------------------------------------------------
541  * interrupt handler(s)
542  * ------------------------------------------------------------------------ */
543
544 /* receive buffer area exhausted */
545
546 static void irqrbe_handler(struct net_device *dev)
547 {
548         ibmlana_priv *priv = netdev_priv(dev);
549
550         /* point the SONIC back to the RRA start */
551
552         outw(priv->rrastart, dev->base_addr + SONIC_RRP);
553         outw(priv->rrastart, dev->base_addr + SONIC_RWP);
554 }
555
556 /* receive interrupt */
557
558 static void irqrx_handler(struct net_device *dev)
559 {
560         ibmlana_priv *priv = netdev_priv(dev);
561         rda_t rda;
562         u32 rdaaddr, lrdaaddr;
563
564         /* loop until ... */
565
566         while (1) {
567                 /* read descriptor that was next to be filled by SONIC */
568
569                 rdaaddr = priv->rdastart + (priv->nextrxdescr * sizeof(rda_t));
570                 lrdaaddr = priv->rdastart + (priv->lastrxdescr * sizeof(rda_t));
571                 memcpy_fromio(&rda, priv->base + rdaaddr, sizeof(rda_t));
572
573                 /* iron out upper word halves of fields we use - SONIC will duplicate
574                    bits 0..15 to 16..31 */
575
576                 rda.status &= 0xffff;
577                 rda.length &= 0xffff;
578                 rda.startlo &= 0xffff;
579
580                 /* stop if the SONIC still owns it, i.e. there is no data for us */
581
582                 if (rda.inuse)
583                         break;
584
585                 /* good packet? */
586
587                 else if (rda.status & RCREG_PRX) {
588                         struct sk_buff *skb;
589
590                         /* fetch buffer */
591
592                         skb = dev_alloc_skb(rda.length + 2);
593                         if (skb == NULL)
594                                 priv->stat.rx_dropped++;
595                         else {
596                                 /* copy out data */
597
598                                 memcpy_fromio(skb_put(skb, rda.length),
599                                                priv->base +
600                                                rda.startlo, rda.length);
601
602                                 /* set up skb fields */
603
604                                 skb->protocol = eth_type_trans(skb, dev);
605                                 skb->ip_summed = CHECKSUM_NONE;
606
607                                 /* bookkeeping */
608                                 dev->last_rx = jiffies;
609                                 priv->stat.rx_packets++;
610                                 priv->stat.rx_bytes += rda.length;
611
612                                 /* pass to the upper layers */
613                                 netif_rx(skb);
614                         }
615                 }
616
617                 /* otherwise check error status bits and increase statistics */
618
619                 else {
620                         priv->stat.rx_errors++;
621                         if (rda.status & RCREG_FAER)
622                                 priv->stat.rx_frame_errors++;
623                         if (rda.status & RCREG_CRCR)
624                                 priv->stat.rx_crc_errors++;
625                 }
626
627                 /* descriptor processed, will become new last descriptor in queue */
628
629                 rda.link = 1;
630                 rda.inuse = 1;
631                 memcpy_toio(priv->base + rdaaddr, &rda,
632                              sizeof(rda_t));
633
634                 /* set up link and EOL = 0 in currently last descriptor. Only write
635                    the link field since the SONIC may currently already access the
636                    other fields. */
637
638                 memcpy_toio(priv->base + lrdaaddr + 20, &rdaaddr, 4);
639
640                 /* advance indices */
641
642                 priv->lastrxdescr = priv->nextrxdescr;
643                 if ((++priv->nextrxdescr) >= priv->rxbufcnt)
644                         priv->nextrxdescr = 0;
645         }
646 }
647
648 /* transmit interrupt */
649
650 static void irqtx_handler(struct net_device *dev)
651 {
652         ibmlana_priv *priv = netdev_priv(dev);
653         tda_t tda;
654
655         /* fetch descriptor (we forgot the size ;-) */
656         memcpy_fromio(&tda, priv->base + priv->tdastart + (priv->currtxdescr * sizeof(tda_t)), sizeof(tda_t));
657
658         /* update statistics */
659         priv->stat.tx_packets++;
660         priv->stat.tx_bytes += tda.length;
661
662         /* update our pointers */
663         priv->txused[priv->currtxdescr] = 0;
664         priv->txusedcnt--;
665
666         /* if there are more descriptors present in RAM, start them */
667         if (priv->txusedcnt > 0)
668                 StartTx(dev, (priv->currtxdescr + 1) % TXBUFCNT);
669
670         /* tell the upper layer we can go on transmitting */
671         netif_wake_queue(dev);
672 }
673
674 static void irqtxerr_handler(struct net_device *dev)
675 {
676         ibmlana_priv *priv = netdev_priv(dev);
677         tda_t tda;
678
679         /* fetch descriptor to check status */
680         memcpy_fromio(&tda, priv->base + priv->tdastart + (priv->currtxdescr * sizeof(tda_t)), sizeof(tda_t));
681
682         /* update statistics */
683         priv->stat.tx_errors++;
684         if (tda.status & (TCREG_NCRS | TCREG_CRSL))
685                 priv->stat.tx_carrier_errors++;
686         if (tda.status & TCREG_EXC)
687                 priv->stat.tx_aborted_errors++;
688         if (tda.status & TCREG_OWC)
689                 priv->stat.tx_window_errors++;
690         if (tda.status & TCREG_FU)
691                 priv->stat.tx_fifo_errors++;
692
693         /* update our pointers */
694         priv->txused[priv->currtxdescr] = 0;
695         priv->txusedcnt--;
696
697         /* if there are more descriptors present in RAM, start them */
698         if (priv->txusedcnt > 0)
699                 StartTx(dev, (priv->currtxdescr + 1) % TXBUFCNT);
700
701         /* tell the upper layer we can go on transmitting */
702         netif_wake_queue(dev);
703 }
704
705 /* general interrupt entry */
706
707 static irqreturn_t irq_handler(int irq, void *device)
708 {
709         struct net_device *dev = (struct net_device *) device;
710         u16 ival;
711
712         /* in case we're not meant... */
713         if (!(inb(dev->base_addr + BCMREG) & BCMREG_IPEND))
714                 return IRQ_NONE;
715
716         /* loop through the interrupt bits until everything is clear */
717         while (1) {
718                 ival = inw(dev->base_addr + SONIC_ISREG);
719
720                 if (ival & ISREG_RBE) {
721                         irqrbe_handler(dev);
722                         outw(ISREG_RBE, dev->base_addr + SONIC_ISREG);
723                 }
724                 if (ival & ISREG_PKTRX) {
725                         irqrx_handler(dev);
726                         outw(ISREG_PKTRX, dev->base_addr + SONIC_ISREG);
727                 }
728                 if (ival & ISREG_TXDN) {
729                         irqtx_handler(dev);
730                         outw(ISREG_TXDN, dev->base_addr + SONIC_ISREG);
731                 }
732                 if (ival & ISREG_TXER) {
733                         irqtxerr_handler(dev);
734                         outw(ISREG_TXER, dev->base_addr + SONIC_ISREG);
735                 }
736                 break;
737         }
738         return IRQ_HANDLED;
739 }
740
741 /* ------------------------------------------------------------------------
742  * driver methods
743  * ------------------------------------------------------------------------ */
744
745 /* MCA info */
746
747 static int ibmlana_getinfo(char *buf, int slot, void *d)
748 {
749         int len = 0, i;
750         struct net_device *dev = (struct net_device *) d;
751         ibmlana_priv *priv;
752
753         /* can't say anything about an uninitialized device... */
754
755         if (dev == NULL)
756                 return len;
757         priv = netdev_priv(dev);
758
759         /* print info */
760
761         len += sprintf(buf + len, "IRQ: %d\n", priv->realirq);
762         len += sprintf(buf + len, "I/O: %#lx\n", dev->base_addr);
763         len += sprintf(buf + len, "Memory: %#lx-%#lx\n", dev->mem_start, dev->mem_end - 1);
764         len += sprintf(buf + len, "Transceiver: %s\n", MediaNames[priv->medium]);
765         len += sprintf(buf + len, "Device: %s\n", dev->name);
766         len += sprintf(buf + len, "MAC address:");
767         for (i = 0; i < 6; i++)
768                 len += sprintf(buf + len, " %02x", dev->dev_addr[i]);
769         buf[len++] = '\n';
770         buf[len] = 0;
771
772         return len;
773 }
774
775 /* open driver.  Means also initialization and start of LANCE */
776
777 static int ibmlana_open(struct net_device *dev)
778 {
779         int result;
780         ibmlana_priv *priv = netdev_priv(dev);
781
782         /* register resources - only necessary for IRQ */
783
784         result = request_irq(priv->realirq, irq_handler, IRQF_SHARED | IRQF_SAMPLE_RANDOM, dev->name, dev);
785         if (result != 0) {
786                 printk(KERN_ERR "%s: failed to register irq %d\n", dev->name, dev->irq);
787                 return result;
788         }
789         dev->irq = priv->realirq;
790
791         /* set up the card and SONIC */
792         InitBoard(dev);
793
794         /* initialize operational flags */
795         netif_start_queue(dev);
796         return 0;
797 }
798
799 /* close driver.  Shut down board and free allocated resources */
800
801 static int ibmlana_close(struct net_device *dev)
802 {
803         /* turn off board */
804
805         /* release resources */
806         if (dev->irq != 0)
807                 free_irq(dev->irq, dev);
808         dev->irq = 0;
809         return 0;
810 }
811
812 /* transmit a block. */
813
814 static int ibmlana_tx(struct sk_buff *skb, struct net_device *dev)
815 {
816         ibmlana_priv *priv = netdev_priv(dev);
817         int retval = 0, tmplen, addr;
818         unsigned long flags;
819         tda_t tda;
820         int baddr;
821
822         /* find out if there are free slots for a frame to transmit. If not,
823            the upper layer is in deep desperation and we simply ignore the frame. */
824
825         if (priv->txusedcnt >= TXBUFCNT) {
826                 retval = -EIO;
827                 priv->stat.tx_dropped++;
828                 goto tx_done;
829         }
830
831         /* copy the frame data into the next free transmit buffer - fillup missing */
832         tmplen = skb->len;
833         if (tmplen < 60)
834                 tmplen = 60;
835         baddr = priv->txbufstart + (priv->nexttxdescr * PKTSIZE);
836         memcpy_toio(priv->base + baddr, skb->data, skb->len);
837
838         /* copy filler into RAM - in case we're filling up...
839            we're filling a bit more than necessary, but that doesn't harm
840            since the buffer is far larger...
841            Sorry Linus for the filler string but I couldn't resist ;-) */
842
843         if (tmplen > skb->len) {
844                 char *fill = "NetBSD is a nice OS too! ";
845                 unsigned int destoffs = skb->len, l = strlen(fill);
846
847                 while (destoffs < tmplen) {
848                         memcpy_toio(priv->base + baddr + destoffs, fill, l);
849                         destoffs += l;
850                 }
851         }
852
853         /* set up the new frame descriptor */
854         addr = priv->tdastart + (priv->nexttxdescr * sizeof(tda_t));
855         memcpy_fromio(&tda, priv->base + addr, sizeof(tda_t));
856         tda.length = tda.fraglength = tmplen;
857         memcpy_toio(priv->base + addr, &tda, sizeof(tda_t));
858
859         /* if there were no active descriptors, trigger the SONIC */
860         spin_lock_irqsave(&priv->lock, flags);
861
862         priv->txusedcnt++;
863         priv->txused[priv->nexttxdescr] = 1;
864
865         /* are all transmission slots used up ? */
866         if (priv->txusedcnt >= TXBUFCNT)
867                 netif_stop_queue(dev);
868
869         if (priv->txusedcnt == 1)
870                 StartTx(dev, priv->nexttxdescr);
871         priv->nexttxdescr = (priv->nexttxdescr + 1) % TXBUFCNT;
872
873         spin_unlock_irqrestore(&priv->lock, flags);
874 tx_done:
875         dev_kfree_skb(skb);
876         return retval;
877 }
878
879 /* return pointer to Ethernet statistics */
880
881 static struct net_device_stats *ibmlana_stats(struct net_device *dev)
882 {
883         ibmlana_priv *priv = netdev_priv(dev);
884         return &priv->stat;
885 }
886
887 /* switch receiver mode. */
888
889 static void ibmlana_set_multicast_list(struct net_device *dev)
890 {
891         /* first stop the SONIC... */
892         StopSONIC(dev);
893         /* ...then reinit it with the new flags */
894         InitBoard(dev);
895 }
896
897 /* ------------------------------------------------------------------------
898  * hardware check
899  * ------------------------------------------------------------------------ */
900
901 static int startslot;           /* counts through slots when probing multiple devices */
902
903 static int ibmlana_probe(struct net_device *dev)
904 {
905         int slot, z;
906         int base = 0, irq = 0, iobase = 0, memlen = 0;
907         ibmlana_priv *priv;
908         ibmlana_medium medium;
909
910         SET_MODULE_OWNER(dev);
911
912         /* can't work without an MCA bus ;-) */
913         if (MCA_bus == 0)
914                 return -ENODEV;
915
916         base = dev->mem_start;
917         irq = dev->irq;
918
919         for (slot = startslot; (slot = mca_find_adapter(IBM_LANA_ID, slot)) != -1; slot++) {
920                 /* deduce card addresses */
921                 getaddrs(slot, &base, &memlen, &iobase, &irq, &medium);
922
923                 /* slot already in use ? */
924                 if (mca_is_adapter_used(slot))
925                         continue;
926                 /* were we looking for something different ? */
927                 if (dev->irq && dev->irq != irq)
928                         continue;
929                 if (dev->mem_start && dev->mem_start != base)
930                         continue;
931                 /* found something that matches */
932                 break;
933         }
934
935         /* nothing found ? */
936         if (slot == -1)
937                 return (base != 0 || irq != 0) ? -ENXIO : -ENODEV;
938
939         /* announce success */
940         printk(KERN_INFO "%s: IBM LAN Adapter/A found in slot %d\n", dev->name, slot + 1);
941
942         /* try to obtain I/O range */
943         if (!request_region(iobase, IBM_LANA_IORANGE, DRV_NAME)) {
944                 printk(KERN_ERR "%s: cannot allocate I/O range at %#x!\n", DRV_NAME, iobase);
945                 startslot = slot + 1;
946                 return -EBUSY;
947         }
948
949         priv = netdev_priv(dev);
950         priv->slot = slot;
951         priv->realirq = irq;
952         priv->medium = medium;
953         spin_lock_init(&priv->lock);
954
955
956         /* set base + irq for this device (irq not allocated so far) */
957
958         dev->irq = 0;
959         dev->mem_start = base;
960         dev->mem_end = base + memlen;
961         dev->base_addr = iobase;
962
963         priv->base = ioremap(base, memlen);
964         if (!priv->base) {
965                 printk(KERN_ERR "%s: cannot remap memory!\n", DRV_NAME);
966                 startslot = slot + 1;
967                 release_region(iobase, IBM_LANA_IORANGE);
968                 return -EBUSY;
969         }
970
971         /* make procfs entries */
972         mca_set_adapter_name(slot, "IBM LAN Adapter/A");
973         mca_set_adapter_procfn(slot, (MCA_ProcFn) ibmlana_getinfo, dev);
974
975         mca_mark_as_used(slot);
976
977         /* set methods */
978
979         dev->open = ibmlana_open;
980         dev->stop = ibmlana_close;
981         dev->hard_start_xmit = ibmlana_tx;
982         dev->do_ioctl = NULL;
983         dev->get_stats = ibmlana_stats;
984         dev->set_multicast_list = ibmlana_set_multicast_list;
985         dev->flags |= IFF_MULTICAST;
986
987         /* copy out MAC address */
988
989         for (z = 0; z < sizeof(dev->dev_addr); z++)
990                 dev->dev_addr[z] = inb(dev->base_addr + MACADDRPROM + z);
991
992         /* print config */
993
994         printk(KERN_INFO "%s: IRQ %d, I/O %#lx, memory %#lx-%#lx, "
995                "MAC address %02x:%02x:%02x:%02x:%02x:%02x.\n",
996                dev->name, priv->realirq, dev->base_addr,
997                dev->mem_start, dev->mem_end - 1,
998                dev->dev_addr[0], dev->dev_addr[1], dev->dev_addr[2],
999                dev->dev_addr[3], dev->dev_addr[4], dev->dev_addr[5]);
1000         printk(KERN_INFO "%s: %s medium\n", dev->name, MediaNames[priv->medium]);
1001
1002         /* reset board */
1003
1004         ResetBoard(dev);
1005
1006         /* next probe will start at next slot */
1007
1008         startslot = slot + 1;
1009
1010         return 0;
1011 }
1012
1013 /* ------------------------------------------------------------------------
1014  * modularization support
1015  * ------------------------------------------------------------------------ */
1016
1017 #ifdef MODULE
1018
1019 #define DEVMAX 5
1020
1021 static struct net_device *moddevs[DEVMAX];
1022 static int irq;
1023 static int io;
1024
1025 module_param(irq, int, 0);
1026 module_param(io, int, 0);
1027 MODULE_PARM_DESC(irq, "IBM LAN/A IRQ number");
1028 MODULE_PARM_DESC(io, "IBM LAN/A I/O base address");
1029 MODULE_LICENSE("GPL");
1030
1031 int init_module(void)
1032 {
1033         int z;
1034
1035         startslot = 0;
1036         for (z = 0; z < DEVMAX; z++) {
1037                 struct net_device *dev = alloc_etherdev(sizeof(ibmlana_priv));
1038                 if (!dev)
1039                         break;
1040                 dev->irq = irq;
1041                 dev->base_addr = io;
1042                 if (ibmlana_probe(dev)) {
1043                         free_netdev(dev);
1044                         break;
1045                 }
1046                 if (register_netdev(dev)) {
1047                         ibmlana_priv *priv = netdev_priv(dev);
1048                         release_region(dev->base_addr, IBM_LANA_IORANGE);
1049                         mca_mark_as_unused(priv->slot);
1050                         mca_set_adapter_name(priv->slot, "");
1051                         mca_set_adapter_procfn(priv->slot, NULL, NULL);
1052                         iounmap(priv->base);
1053                         free_netdev(dev);
1054                         break;
1055                 }
1056                 moddevs[z] = dev;
1057         }
1058         return (z > 0) ? 0 : -EIO;
1059 }
1060
1061 void cleanup_module(void)
1062 {
1063         int z;
1064         for (z = 0; z < DEVMAX; z++) {
1065                 struct net_device *dev = moddevs[z];
1066                 if (dev) {
1067                         ibmlana_priv *priv = netdev_priv(dev);
1068                         unregister_netdev(dev);
1069                         /*DeinitBoard(dev); */
1070                         release_region(dev->base_addr, IBM_LANA_IORANGE);
1071                         mca_mark_as_unused(priv->slot);
1072                         mca_set_adapter_name(priv->slot, "");
1073                         mca_set_adapter_procfn(priv->slot, NULL, NULL);
1074                         iounmap(priv->base);
1075                         free_netdev(dev);
1076                 }
1077         }
1078 }
1079 #endif                          /* MODULE */