97cca505cf903117f51eca3b40576156cf73ad6e
[linux-2.6.git] / drivers / net / atarilance.c
1 /* atarilance.c: Ethernet driver for VME Lance cards on the Atari */
2 /*
3         Written 1995/96 by Roman Hodek (Roman.Hodek@informatik.uni-erlangen.de)
4
5         This software may be used and distributed according to the terms
6         of the GNU General Public License, incorporated herein by reference.
7
8         This drivers was written with the following sources of reference:
9          - The driver for the Riebl Lance card by the TU Vienna.
10          - The modified TUW driver for PAM's VME cards
11          - The PC-Linux driver for Lance cards (but this is for bus master
12        cards, not the shared memory ones)
13          - The Amiga Ariadne driver
14
15         v1.0: (in 1.2.13pl4/0.9.13)
16               Initial version
17         v1.1: (in 1.2.13pl5)
18               more comments
19                   deleted some debugging stuff
20                   optimized register access (keep AREG pointing to CSR0)
21                   following AMD, CSR0_STRT should be set only after IDON is detected
22                   use memcpy() for data transfers, that also employs long word moves
23                   better probe procedure for 24-bit systems
24           non-VME-RieblCards need extra delays in memcpy
25                   must also do write test, since 0xfxe00000 may hit ROM
26                   use 8/32 tx/rx buffers, which should give better NFS performance;
27                     this is made possible by shifting the last packet buffer after the
28                     RieblCard reserved area
29     v1.2: (in 1.2.13pl8)
30               again fixed probing for the Falcon; 0xfe01000 hits phys. 0x00010000
31                   and thus RAM, in case of no Lance found all memory contents have to
32                   be restored!
33                   Now possible to compile as module.
34         v1.3: 03/30/96 Jes Sorensen, Roman (in 1.3)
35               Several little 1.3 adaptions
36                   When the lance is stopped it jumps back into little-endian
37                   mode. It is therefore necessary to put it back where it
38                   belongs, in big endian mode, in order to make things work.
39                   This might be the reason why multicast-mode didn't work
40                   before, but I'm not able to test it as I only got an Amiga
41                   (we had similar problems with the A2065 driver).
42
43 */
44
45 static char version[] = "atarilance.c: v1.3 04/04/96 "
46                                            "Roman.Hodek@informatik.uni-erlangen.de\n";
47
48 #include <linux/netdevice.h>
49 #include <linux/etherdevice.h>
50 #include <linux/module.h>
51 #include <linux/stddef.h>
52 #include <linux/kernel.h>
53 #include <linux/string.h>
54 #include <linux/errno.h>
55 #include <linux/skbuff.h>
56 #include <linux/slab.h>
57 #include <linux/interrupt.h>
58 #include <linux/init.h>
59 #include <linux/bitops.h>
60
61 #include <asm/setup.h>
62 #include <asm/irq.h>
63 #include <asm/atarihw.h>
64 #include <asm/atariints.h>
65 #include <asm/io.h>
66
67 /* Debug level:
68  *  0 = silent, print only serious errors
69  *  1 = normal, print error messages
70  *  2 = debug, print debug infos
71  *  3 = debug, print even more debug infos (packet data)
72  */
73
74 #define LANCE_DEBUG     1
75
76 #ifdef LANCE_DEBUG
77 static int lance_debug = LANCE_DEBUG;
78 #else
79 static int lance_debug = 1;
80 #endif
81 module_param(lance_debug, int, 0);
82 MODULE_PARM_DESC(lance_debug, "atarilance debug level (0-3)");
83 MODULE_LICENSE("GPL");
84
85 /* Print debug messages on probing? */
86 #undef LANCE_DEBUG_PROBE
87
88 #define DPRINTK(n,a)                                                    \
89         do {                                                                            \
90                 if (lance_debug >= n)                                   \
91                         printk a;                                                       \
92         } while( 0 )
93
94 #ifdef LANCE_DEBUG_PROBE
95 # define PROBE_PRINT(a) printk a
96 #else
97 # define PROBE_PRINT(a)
98 #endif
99
100 /* These define the number of Rx and Tx buffers as log2. (Only powers
101  * of two are valid)
102  * Much more rx buffers (32) are reserved than tx buffers (8), since receiving
103  * is more time critical then sending and packets may have to remain in the
104  * board's memory when main memory is low.
105  */
106
107 #define TX_LOG_RING_SIZE                        3
108 #define RX_LOG_RING_SIZE                        5
109
110 /* These are the derived values */
111
112 #define TX_RING_SIZE                    (1 << TX_LOG_RING_SIZE)
113 #define TX_RING_LEN_BITS                (TX_LOG_RING_SIZE << 5)
114 #define TX_RING_MOD_MASK                (TX_RING_SIZE - 1)
115
116 #define RX_RING_SIZE                    (1 << RX_LOG_RING_SIZE)
117 #define RX_RING_LEN_BITS                (RX_LOG_RING_SIZE << 5)
118 #define RX_RING_MOD_MASK                (RX_RING_SIZE - 1)
119
120 #define TX_TIMEOUT      20
121
122 /* The LANCE Rx and Tx ring descriptors. */
123 struct lance_rx_head {
124         unsigned short                  base;           /* Low word of base addr */
125         volatile unsigned char  flag;
126         unsigned char                   base_hi;        /* High word of base addr (unused) */
127         short                                   buf_length;     /* This length is 2s complement! */
128         volatile short                  msg_length;     /* This length is "normal". */
129 };
130
131 struct lance_tx_head {
132         unsigned short                  base;           /* Low word of base addr */
133         volatile unsigned char  flag;
134         unsigned char                   base_hi;        /* High word of base addr (unused) */
135         short                                   length;         /* Length is 2s complement! */
136         volatile short                  misc;
137 };
138
139 struct ringdesc {
140         unsigned short  adr_lo;         /* Low 16 bits of address */
141         unsigned char   len;            /* Length bits */
142         unsigned char   adr_hi;         /* High 8 bits of address (unused) */
143 };
144
145 /* The LANCE initialization block, described in databook. */
146 struct lance_init_block {
147         unsigned short  mode;           /* Pre-set mode */
148         unsigned char   hwaddr[6];      /* Physical ethernet address */
149         unsigned                filter[2];      /* Multicast filter (unused). */
150         /* Receive and transmit ring base, along with length bits. */
151         struct ringdesc rx_ring;
152         struct ringdesc tx_ring;
153 };
154
155 /* The whole layout of the Lance shared memory */
156 struct lance_memory {
157         struct lance_init_block init;
158         struct lance_tx_head    tx_head[TX_RING_SIZE];
159         struct lance_rx_head    rx_head[RX_RING_SIZE];
160         char                                    packet_area[0]; /* packet data follow after the
161                                                                                          * init block and the ring
162                                                                                          * descriptors and are located
163                                                                                          * at runtime */
164 };
165
166 /* RieblCard specifics:
167  * The original TOS driver for these cards reserves the area from offset
168  * 0xee70 to 0xeebb for storing configuration data. Of interest to us is the
169  * Ethernet address there, and the magic for verifying the data's validity.
170  * The reserved area isn't touch by packet buffers. Furthermore, offset 0xfffe
171  * is reserved for the interrupt vector number.
172  */
173 #define RIEBL_RSVD_START        0xee70
174 #define RIEBL_RSVD_END          0xeec0
175 #define RIEBL_MAGIC                     0x09051990
176 #define RIEBL_MAGIC_ADDR        ((unsigned long *)(((char *)MEM) + 0xee8a))
177 #define RIEBL_HWADDR_ADDR       ((unsigned char *)(((char *)MEM) + 0xee8e))
178 #define RIEBL_IVEC_ADDR         ((unsigned short *)(((char *)MEM) + 0xfffe))
179
180 /* This is a default address for the old RieblCards without a battery
181  * that have no ethernet address at boot time. 00:00:36:04 is the
182  * prefix for Riebl cards, the 00:00 at the end is arbitrary.
183  */
184
185 static unsigned char OldRieblDefHwaddr[6] = {
186         0x00, 0x00, 0x36, 0x04, 0x00, 0x00
187 };
188
189
190 /* I/O registers of the Lance chip */
191
192 struct lance_ioreg {
193 /* base+0x0 */  volatile unsigned short data;
194 /* base+0x2 */  volatile unsigned short addr;
195                                 unsigned char                   _dummy1[3];
196 /* base+0x7 */  volatile unsigned char  ivec;
197                                 unsigned char                   _dummy2[5];
198 /* base+0xd */  volatile unsigned char  eeprom;
199                                 unsigned char                   _dummy3;
200 /* base+0xf */  volatile unsigned char  mem;
201 };
202
203 /* Types of boards this driver supports */
204
205 enum lance_type {
206         OLD_RIEBL,              /* old Riebl card without battery */
207         NEW_RIEBL,              /* new Riebl card with battery */
208         PAM_CARD                /* PAM card with EEPROM */
209 };
210
211 static char *lance_names[] = {
212         "Riebl-Card (without battery)",
213         "Riebl-Card (with battery)",
214         "PAM intern card"
215 };
216
217 /* The driver's private device structure */
218
219 struct lance_private {
220         enum lance_type         cardtype;
221         struct lance_ioreg      *iobase;
222         struct lance_memory     *mem;
223         int                     cur_rx, cur_tx; /* The next free ring entry */
224         int                     dirty_tx;               /* Ring entries to be freed. */
225                                 /* copy function */
226         void                    *(*memcpy_f)( void *, const void *, size_t );
227         struct net_device_stats stats;
228 /* This must be long for set_bit() */
229         long                    tx_full;
230         spinlock_t              devlock;
231 };
232
233 /* I/O register access macros */
234
235 #define MEM             lp->mem
236 #define DREG    IO->data
237 #define AREG    IO->addr
238 #define REGA(a) (*( AREG = (a), &DREG ))
239
240 /* Definitions for packet buffer access: */
241 #define PKT_BUF_SZ              1544
242 /* Get the address of a packet buffer corresponding to a given buffer head */
243 #define PKTBUF_ADDR(head)       (((unsigned char *)(MEM)) + (head)->base)
244
245 /* Possible memory/IO addresses for probing */
246
247 struct lance_addr {
248         unsigned long   memaddr;
249         unsigned long   ioaddr;
250         int                             slow_flag;
251 } lance_addr_list[] = {
252         { 0xfe010000, 0xfe00fff0, 0 },  /* RieblCard VME in TT */
253         { 0xffc10000, 0xffc0fff0, 0 },  /* RieblCard VME in MegaSTE
254                                                                            (highest byte stripped) */
255         { 0xffe00000, 0xffff7000, 1 },  /* RieblCard in ST
256                                                                            (highest byte stripped) */
257         { 0xffd00000, 0xffff7000, 1 },  /* RieblCard in ST with hw modif. to
258                                                                            avoid conflict with ROM
259                                                                            (highest byte stripped) */
260         { 0xffcf0000, 0xffcffff0, 0 },  /* PAMCard VME in TT and MSTE
261                                                                            (highest byte stripped) */
262         { 0xfecf0000, 0xfecffff0, 0 },  /* Rhotron's PAMCard VME in TT and MSTE
263                                                                            (highest byte stripped) */
264 };
265
266 #define N_LANCE_ADDR    (sizeof(lance_addr_list)/sizeof(*lance_addr_list))
267
268
269 /* Definitions for the Lance */
270
271 /* tx_head flags */
272 #define TMD1_ENP                0x01    /* end of packet */
273 #define TMD1_STP                0x02    /* start of packet */
274 #define TMD1_DEF                0x04    /* deferred */
275 #define TMD1_ONE                0x08    /* one retry needed */
276 #define TMD1_MORE               0x10    /* more than one retry needed */
277 #define TMD1_ERR                0x40    /* error summary */
278 #define TMD1_OWN                0x80    /* ownership (set: chip owns) */
279
280 #define TMD1_OWN_CHIP   TMD1_OWN
281 #define TMD1_OWN_HOST   0
282
283 /* tx_head misc field */
284 #define TMD3_TDR                0x03FF  /* Time Domain Reflectometry counter */
285 #define TMD3_RTRY               0x0400  /* failed after 16 retries */
286 #define TMD3_LCAR               0x0800  /* carrier lost */
287 #define TMD3_LCOL               0x1000  /* late collision */
288 #define TMD3_UFLO               0x4000  /* underflow (late memory) */
289 #define TMD3_BUFF               0x8000  /* buffering error (no ENP) */
290
291 /* rx_head flags */
292 #define RMD1_ENP                0x01    /* end of packet */
293 #define RMD1_STP                0x02    /* start of packet */
294 #define RMD1_BUFF               0x04    /* buffer error */
295 #define RMD1_CRC                0x08    /* CRC error */
296 #define RMD1_OFLO               0x10    /* overflow */
297 #define RMD1_FRAM               0x20    /* framing error */
298 #define RMD1_ERR                0x40    /* error summary */
299 #define RMD1_OWN                0x80    /* ownership (set: ship owns) */
300
301 #define RMD1_OWN_CHIP   RMD1_OWN
302 #define RMD1_OWN_HOST   0
303
304 /* register names */
305 #define CSR0    0               /* mode/status */
306 #define CSR1    1               /* init block addr (low) */
307 #define CSR2    2               /* init block addr (high) */
308 #define CSR3    3               /* misc */
309 #define CSR8    8               /* address filter */
310 #define CSR15   15              /* promiscuous mode */
311
312 /* CSR0 */
313 /* (R=readable, W=writeable, S=set on write, C=clear on write) */
314 #define CSR0_INIT       0x0001          /* initialize (RS) */
315 #define CSR0_STRT       0x0002          /* start (RS) */
316 #define CSR0_STOP       0x0004          /* stop (RS) */
317 #define CSR0_TDMD       0x0008          /* transmit demand (RS) */
318 #define CSR0_TXON       0x0010          /* transmitter on (R) */
319 #define CSR0_RXON       0x0020          /* receiver on (R) */
320 #define CSR0_INEA       0x0040          /* interrupt enable (RW) */
321 #define CSR0_INTR       0x0080          /* interrupt active (R) */
322 #define CSR0_IDON       0x0100          /* initialization done (RC) */
323 #define CSR0_TINT       0x0200          /* transmitter interrupt (RC) */
324 #define CSR0_RINT       0x0400          /* receiver interrupt (RC) */
325 #define CSR0_MERR       0x0800          /* memory error (RC) */
326 #define CSR0_MISS       0x1000          /* missed frame (RC) */
327 #define CSR0_CERR       0x2000          /* carrier error (no heartbeat :-) (RC) */
328 #define CSR0_BABL       0x4000          /* babble: tx-ed too many bits (RC) */
329 #define CSR0_ERR        0x8000          /* error (RC) */
330
331 /* CSR3 */
332 #define CSR3_BCON       0x0001          /* byte control */
333 #define CSR3_ACON       0x0002          /* ALE control */
334 #define CSR3_BSWP       0x0004          /* byte swap (1=big endian) */
335
336
337
338 /***************************** Prototypes *****************************/
339
340 static int addr_accessible( volatile void *regp, int wordflag, int
341                             writeflag );
342 static unsigned long lance_probe1( struct net_device *dev, struct lance_addr
343                                    *init_rec );
344 static int lance_open( struct net_device *dev );
345 static void lance_init_ring( struct net_device *dev );
346 static int lance_start_xmit( struct sk_buff *skb, struct net_device *dev );
347 static irqreturn_t lance_interrupt( int irq, void *dev_id );
348 static int lance_rx( struct net_device *dev );
349 static int lance_close( struct net_device *dev );
350 static struct net_device_stats *lance_get_stats( struct net_device *dev );
351 static void set_multicast_list( struct net_device *dev );
352 static int lance_set_mac_address( struct net_device *dev, void *addr );
353 static void lance_tx_timeout (struct net_device *dev);
354
355 /************************* End of Prototypes **************************/
356
357
358
359
360
361 static void *slow_memcpy( void *dst, const void *src, size_t len )
362
363 {       char *cto = dst;
364         const char *cfrom = src;
365
366         while( len-- ) {
367                 *cto++ = *cfrom++;
368                 MFPDELAY();
369         }
370         return( dst );
371 }
372
373
374 struct net_device * __init atarilance_probe(int unit)
375 {
376         int i;
377         static int found;
378         struct net_device *dev;
379         int err = -ENODEV;
380
381         if (!MACH_IS_ATARI || found)
382                 /* Assume there's only one board possible... That seems true, since
383                  * the Riebl/PAM board's address cannot be changed. */
384                 return ERR_PTR(-ENODEV);
385
386         dev = alloc_etherdev(sizeof(struct lance_private));
387         if (!dev)
388                 return ERR_PTR(-ENOMEM);
389         if (unit >= 0) {
390                 sprintf(dev->name, "eth%d", unit);
391                 netdev_boot_setup_check(dev);
392         }
393
394         for( i = 0; i < N_LANCE_ADDR; ++i ) {
395                 if (lance_probe1( dev, &lance_addr_list[i] )) {
396                         found = 1;
397                         err = register_netdev(dev);
398                         if (!err)
399                                 return dev;
400                         free_irq(dev->irq, dev);
401                         break;
402                 }
403         }
404         free_netdev(dev);
405         return ERR_PTR(err);
406 }
407
408
409 /* Derived from hwreg_present() in atari/config.c: */
410
411 static int __init addr_accessible( volatile void *regp, int wordflag, int writeflag )
412 {
413         int             ret;
414         long    flags;
415         long    *vbr, save_berr;
416
417         local_irq_save(flags);
418
419         __asm__ __volatile__ ( "movec   %/vbr,%0" : "=r" (vbr) : );
420         save_berr = vbr[2];
421
422         __asm__ __volatile__
423         (       "movel  %/sp,%/d1\n\t"
424                 "movel  #Lberr,%2@\n\t"
425                 "moveq  #0,%0\n\t"
426                 "tstl   %3\n\t"
427                 "bne    1f\n\t"
428                 "moveb  %1@,%/d0\n\t"
429                 "nop    \n\t"
430                 "bra    2f\n"
431 "1:              movew  %1@,%/d0\n\t"
432                 "nop    \n"
433 "2:              tstl   %4\n\t"
434                 "beq    2f\n\t"
435                 "tstl   %3\n\t"
436                 "bne    1f\n\t"
437                 "clrb   %1@\n\t"
438                 "nop    \n\t"
439                 "moveb  %/d0,%1@\n\t"
440                 "nop    \n\t"
441                 "bra    2f\n"
442 "1:              clrw   %1@\n\t"
443                 "nop    \n\t"
444                 "movew  %/d0,%1@\n\t"
445                 "nop    \n"
446 "2:              moveq  #1,%0\n"
447 "Lberr:  movel  %/d1,%/sp"
448                 : "=&d" (ret)
449                 : "a" (regp), "a" (&vbr[2]), "rm" (wordflag), "rm" (writeflag)
450                 : "d0", "d1", "memory"
451         );
452
453         vbr[2] = save_berr;
454         local_irq_restore(flags);
455
456         return( ret );
457 }
458
459
460 static unsigned long __init lance_probe1( struct net_device *dev,
461                                            struct lance_addr *init_rec )
462 {
463         volatile unsigned short *memaddr =
464                 (volatile unsigned short *)init_rec->memaddr;
465         volatile unsigned short *ioaddr =
466                 (volatile unsigned short *)init_rec->ioaddr;
467         struct lance_private    *lp;
468         struct lance_ioreg              *IO;
469         int                                     i;
470         static int                              did_version;
471         unsigned short                  save1, save2;
472
473         PROBE_PRINT(( "Probing for Lance card at mem %#lx io %#lx\n",
474                                   (long)memaddr, (long)ioaddr ));
475
476         /* Test whether memory readable and writable */
477         PROBE_PRINT(( "lance_probe1: testing memory to be accessible\n" ));
478         if (!addr_accessible( memaddr, 1, 1 )) goto probe_fail;
479
480         /* Written values should come back... */
481         PROBE_PRINT(( "lance_probe1: testing memory to be writable (1)\n" ));
482         save1 = *memaddr;
483         *memaddr = 0x0001;
484         if (*memaddr != 0x0001) goto probe_fail;
485         PROBE_PRINT(( "lance_probe1: testing memory to be writable (2)\n" ));
486         *memaddr = 0x0000;
487         if (*memaddr != 0x0000) goto probe_fail;
488         *memaddr = save1;
489
490         /* First port should be readable and writable */
491         PROBE_PRINT(( "lance_probe1: testing ioport to be accessible\n" ));
492         if (!addr_accessible( ioaddr, 1, 1 )) goto probe_fail;
493
494         /* and written values should be readable */
495         PROBE_PRINT(( "lance_probe1: testing ioport to be writeable\n" ));
496         save2 = ioaddr[1];
497         ioaddr[1] = 0x0001;
498         if (ioaddr[1] != 0x0001) goto probe_fail;
499
500         /* The CSR0_INIT bit should not be readable */
501         PROBE_PRINT(( "lance_probe1: testing CSR0 register function (1)\n" ));
502         save1 = ioaddr[0];
503         ioaddr[1] = CSR0;
504         ioaddr[0] = CSR0_INIT | CSR0_STOP;
505         if (ioaddr[0] != CSR0_STOP) {
506                 ioaddr[0] = save1;
507                 ioaddr[1] = save2;
508                 goto probe_fail;
509         }
510         PROBE_PRINT(( "lance_probe1: testing CSR0 register function (2)\n" ));
511         ioaddr[0] = CSR0_STOP;
512         if (ioaddr[0] != CSR0_STOP) {
513                 ioaddr[0] = save1;
514                 ioaddr[1] = save2;
515                 goto probe_fail;
516         }
517
518         /* Now ok... */
519         PROBE_PRINT(( "lance_probe1: Lance card detected\n" ));
520         goto probe_ok;
521
522   probe_fail:
523         return( 0 );
524
525   probe_ok:
526         lp = (struct lance_private *)dev->priv;
527         MEM = (struct lance_memory *)memaddr;
528         IO = lp->iobase = (struct lance_ioreg *)ioaddr;
529         dev->base_addr = (unsigned long)ioaddr; /* informational only */
530         lp->memcpy_f = init_rec->slow_flag ? slow_memcpy : memcpy;
531
532         REGA( CSR0 ) = CSR0_STOP;
533
534         /* Now test for type: If the eeprom I/O port is readable, it is a
535          * PAM card */
536         if (addr_accessible( &(IO->eeprom), 0, 0 )) {
537                 /* Switch back to Ram */
538                 i = IO->mem;
539                 lp->cardtype = PAM_CARD;
540         }
541         else if (*RIEBL_MAGIC_ADDR == RIEBL_MAGIC) {
542                 lp->cardtype = NEW_RIEBL;
543         }
544         else
545                 lp->cardtype = OLD_RIEBL;
546
547         if (lp->cardtype == PAM_CARD ||
548                 memaddr == (unsigned short *)0xffe00000) {
549                 /* PAMs card and Riebl on ST use level 5 autovector */
550                 if (request_irq(IRQ_AUTO_5, lance_interrupt, IRQ_TYPE_PRIO,
551                             "PAM/Riebl-ST Ethernet", dev)) {
552                         printk( "Lance: request for irq %d failed\n", IRQ_AUTO_5 );
553                         return( 0 );
554                 }
555                 dev->irq = (unsigned short)IRQ_AUTO_5;
556         }
557         else {
558                 /* For VME-RieblCards, request a free VME int;
559                  * (This must be unsigned long, since dev->irq is short and the
560                  * IRQ_MACHSPEC bit would be cut off...)
561                  */
562                 unsigned long irq = atari_register_vme_int();
563                 if (!irq) {
564                         printk( "Lance: request for VME interrupt failed\n" );
565                         return( 0 );
566                 }
567                 if (request_irq(irq, lance_interrupt, IRQ_TYPE_PRIO,
568                             "Riebl-VME Ethernet", dev)) {
569                         printk( "Lance: request for irq %ld failed\n", irq );
570                         return( 0 );
571                 }
572                 dev->irq = irq;
573         }
574
575         printk("%s: %s at io %#lx, mem %#lx, irq %d%s, hwaddr ",
576                    dev->name, lance_names[lp->cardtype],
577                    (unsigned long)ioaddr,
578                    (unsigned long)memaddr,
579                    dev->irq,
580                    init_rec->slow_flag ? " (slow memcpy)" : "" );
581
582         /* Get the ethernet address */
583         switch( lp->cardtype ) {
584           case OLD_RIEBL:
585                 /* No ethernet address! (Set some default address) */
586                 memcpy( dev->dev_addr, OldRieblDefHwaddr, 6 );
587                 break;
588           case NEW_RIEBL:
589                 lp->memcpy_f( dev->dev_addr, RIEBL_HWADDR_ADDR, 6 );
590                 break;
591           case PAM_CARD:
592                 i = IO->eeprom;
593                 for( i = 0; i < 6; ++i )
594                         dev->dev_addr[i] =
595                                 ((((unsigned short *)MEM)[i*2] & 0x0f) << 4) |
596                                 ((((unsigned short *)MEM)[i*2+1] & 0x0f));
597                 i = IO->mem;
598                 break;
599         }
600         for( i = 0; i < 6; ++i )
601                 printk( "%02x%s", dev->dev_addr[i], (i < 5) ? ":" : "\n" );
602         if (lp->cardtype == OLD_RIEBL) {
603                 printk( "%s: Warning: This is a default ethernet address!\n",
604                                 dev->name );
605                 printk( "      Use \"ifconfig hw ether ...\" to set the address.\n" );
606         }
607
608         spin_lock_init(&lp->devlock);
609
610         MEM->init.mode = 0x0000;                /* Disable Rx and Tx. */
611         for( i = 0; i < 6; i++ )
612                 MEM->init.hwaddr[i] = dev->dev_addr[i^1]; /* <- 16 bit swap! */
613         MEM->init.filter[0] = 0x00000000;
614         MEM->init.filter[1] = 0x00000000;
615         MEM->init.rx_ring.adr_lo = offsetof( struct lance_memory, rx_head );
616         MEM->init.rx_ring.adr_hi = 0;
617         MEM->init.rx_ring.len    = RX_RING_LEN_BITS;
618         MEM->init.tx_ring.adr_lo = offsetof( struct lance_memory, tx_head );
619         MEM->init.tx_ring.adr_hi = 0;
620         MEM->init.tx_ring.len    = TX_RING_LEN_BITS;
621
622         if (lp->cardtype == PAM_CARD)
623                 IO->ivec = IRQ_SOURCE_TO_VECTOR(dev->irq);
624         else
625                 *RIEBL_IVEC_ADDR = IRQ_SOURCE_TO_VECTOR(dev->irq);
626
627         if (did_version++ == 0)
628                 DPRINTK( 1, ( version ));
629
630         /* The LANCE-specific entries in the device structure. */
631         dev->open = &lance_open;
632         dev->hard_start_xmit = &lance_start_xmit;
633         dev->stop = &lance_close;
634         dev->get_stats = &lance_get_stats;
635         dev->set_multicast_list = &set_multicast_list;
636         dev->set_mac_address = &lance_set_mac_address;
637
638         /* XXX MSch */
639         dev->tx_timeout = lance_tx_timeout;
640         dev->watchdog_timeo = TX_TIMEOUT;
641
642
643 #if 0
644         dev->start = 0;
645 #endif
646
647         memset( &lp->stats, 0, sizeof(lp->stats) );
648
649         return( 1 );
650 }
651
652
653 static int lance_open( struct net_device *dev )
654
655 {       struct lance_private *lp = (struct lance_private *)dev->priv;
656         struct lance_ioreg       *IO = lp->iobase;
657         int i;
658
659         DPRINTK( 2, ( "%s: lance_open()\n", dev->name ));
660
661         lance_init_ring(dev);
662         /* Re-initialize the LANCE, and start it when done. */
663
664         REGA( CSR3 ) = CSR3_BSWP | (lp->cardtype == PAM_CARD ? CSR3_ACON : 0);
665         REGA( CSR2 ) = 0;
666         REGA( CSR1 ) = 0;
667         REGA( CSR0 ) = CSR0_INIT;
668         /* From now on, AREG is kept to point to CSR0 */
669
670         i = 1000000;
671         while (--i > 0)
672                 if (DREG & CSR0_IDON)
673                         break;
674         if (i < 0 || (DREG & CSR0_ERR)) {
675                 DPRINTK( 2, ( "lance_open(): opening %s failed, i=%d, csr0=%04x\n",
676                                           dev->name, i, DREG ));
677                 DREG = CSR0_STOP;
678                 return( -EIO );
679         }
680         DREG = CSR0_IDON;
681         DREG = CSR0_STRT;
682         DREG = CSR0_INEA;
683
684         netif_start_queue (dev);
685
686         DPRINTK( 2, ( "%s: LANCE is open, csr0 %04x\n", dev->name, DREG ));
687
688         return( 0 );
689 }
690
691
692 /* Initialize the LANCE Rx and Tx rings. */
693
694 static void lance_init_ring( struct net_device *dev )
695
696 {       struct lance_private *lp = (struct lance_private *)dev->priv;
697         int i;
698         unsigned offset;
699
700         lp->tx_full = 0;
701         lp->cur_rx = lp->cur_tx = 0;
702         lp->dirty_tx = 0;
703
704         offset = offsetof( struct lance_memory, packet_area );
705
706 /* If the packet buffer at offset 'o' would conflict with the reserved area
707  * of RieblCards, advance it */
708 #define CHECK_OFFSET(o)                                                                                                          \
709         do {                                                                                                                                     \
710                 if (lp->cardtype == OLD_RIEBL || lp->cardtype == NEW_RIEBL) {            \
711                         if (((o) < RIEBL_RSVD_START) ? (o)+PKT_BUF_SZ > RIEBL_RSVD_START \
712                                                                                  : (o) < RIEBL_RSVD_END)                         \
713                                 (o) = RIEBL_RSVD_END;                                                                            \
714                 }                                                                                                                                        \
715         } while(0)
716
717         for( i = 0; i < TX_RING_SIZE; i++ ) {
718                 CHECK_OFFSET(offset);
719                 MEM->tx_head[i].base = offset;
720                 MEM->tx_head[i].flag = TMD1_OWN_HOST;
721                 MEM->tx_head[i].base_hi = 0;
722                 MEM->tx_head[i].length = 0;
723                 MEM->tx_head[i].misc = 0;
724                 offset += PKT_BUF_SZ;
725         }
726
727         for( i = 0; i < RX_RING_SIZE; i++ ) {
728                 CHECK_OFFSET(offset);
729                 MEM->rx_head[i].base = offset;
730                 MEM->rx_head[i].flag = TMD1_OWN_CHIP;
731                 MEM->rx_head[i].base_hi = 0;
732                 MEM->rx_head[i].buf_length = -PKT_BUF_SZ;
733                 MEM->rx_head[i].msg_length = 0;
734                 offset += PKT_BUF_SZ;
735         }
736 }
737
738
739 /* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX */
740
741
742 static void lance_tx_timeout (struct net_device *dev)
743 {
744         struct lance_private *lp = (struct lance_private *) dev->priv;
745         struct lance_ioreg       *IO = lp->iobase;
746
747         AREG = CSR0;
748         DPRINTK( 1, ( "%s: transmit timed out, status %04x, resetting.\n",
749                           dev->name, DREG ));
750         DREG = CSR0_STOP;
751         /*
752          * Always set BSWP after a STOP as STOP puts it back into
753          * little endian mode.
754          */
755         REGA( CSR3 ) = CSR3_BSWP | (lp->cardtype == PAM_CARD ? CSR3_ACON : 0);
756         lp->stats.tx_errors++;
757 #ifndef final_version
758                 {       int i;
759                         DPRINTK( 2, ( "Ring data: dirty_tx %d cur_tx %d%s cur_rx %d\n",
760                                                   lp->dirty_tx, lp->cur_tx,
761                                                   lp->tx_full ? " (full)" : "",
762                                                   lp->cur_rx ));
763                         for( i = 0 ; i < RX_RING_SIZE; i++ )
764                                 DPRINTK( 2, ( "rx #%d: base=%04x blen=%04x mlen=%04x\n",
765                                                           i, MEM->rx_head[i].base,
766                                                           -MEM->rx_head[i].buf_length,
767                                                           MEM->rx_head[i].msg_length ));
768                         for( i = 0 ; i < TX_RING_SIZE; i++ )
769                                 DPRINTK( 2, ( "tx #%d: base=%04x len=%04x misc=%04x\n",
770                                                           i, MEM->tx_head[i].base,
771                                                           -MEM->tx_head[i].length,
772                                                           MEM->tx_head[i].misc ));
773                 }
774 #endif
775         /* XXX MSch: maybe purge/reinit ring here */
776         /* lance_restart, essentially */
777         lance_init_ring(dev);
778         REGA( CSR0 ) = CSR0_INEA | CSR0_INIT | CSR0_STRT;
779         dev->trans_start = jiffies;
780         netif_wake_queue (dev);
781 }
782
783 /* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX */
784
785 static int lance_start_xmit( struct sk_buff *skb, struct net_device *dev )
786
787 {       struct lance_private *lp = (struct lance_private *)dev->priv;
788         struct lance_ioreg       *IO = lp->iobase;
789         int entry, len;
790         struct lance_tx_head *head;
791         unsigned long flags;
792
793         DPRINTK( 2, ( "%s: lance_start_xmit() called, csr0 %4.4x.\n",
794                                   dev->name, DREG ));
795
796
797         /* The old LANCE chips doesn't automatically pad buffers to min. size. */
798         len = skb->len;
799         if (len < ETH_ZLEN)
800                 len = ETH_ZLEN;
801         /* PAM-Card has a bug: Can only send packets with even number of bytes! */
802         else if (lp->cardtype == PAM_CARD && (len & 1))
803                 ++len;
804
805         if (len > skb->len) {
806                 if (skb_padto(skb, len))
807                         return 0;
808         }
809
810         netif_stop_queue (dev);
811
812         /* Fill in a Tx ring entry */
813         if (lance_debug >= 3) {
814                 u_char *p;
815                 int i;
816                 printk( "%s: TX pkt type 0x%04x from ", dev->name,
817                                 ((u_short *)skb->data)[6]);
818                 for( p = &((u_char *)skb->data)[6], i = 0; i < 6; i++ )
819                         printk("%02x%s", *p++, i != 5 ? ":" : "" );
820                 printk(" to ");
821                 for( p = (u_char *)skb->data, i = 0; i < 6; i++ )
822                         printk("%02x%s", *p++, i != 5 ? ":" : "" );
823                 printk(" data at 0x%08x len %d\n", (int)skb->data,
824                            (int)skb->len );
825         }
826
827         /* We're not prepared for the int until the last flags are set/reset. And
828          * the int may happen already after setting the OWN_CHIP... */
829         spin_lock_irqsave (&lp->devlock, flags);
830
831         /* Mask to ring buffer boundary. */
832         entry = lp->cur_tx & TX_RING_MOD_MASK;
833         head  = &(MEM->tx_head[entry]);
834
835         /* Caution: the write order is important here, set the "ownership" bits
836          * last.
837          */
838
839
840         head->length = -len;
841         head->misc = 0;
842         lp->memcpy_f( PKTBUF_ADDR(head), (void *)skb->data, skb->len );
843         head->flag = TMD1_OWN_CHIP | TMD1_ENP | TMD1_STP;
844         lp->stats.tx_bytes += skb->len;
845         dev_kfree_skb( skb );
846         lp->cur_tx++;
847         while( lp->cur_tx >= TX_RING_SIZE && lp->dirty_tx >= TX_RING_SIZE ) {
848                 lp->cur_tx -= TX_RING_SIZE;
849                 lp->dirty_tx -= TX_RING_SIZE;
850         }
851
852         /* Trigger an immediate send poll. */
853         DREG = CSR0_INEA | CSR0_TDMD;
854         dev->trans_start = jiffies;
855
856         if ((MEM->tx_head[(entry+1) & TX_RING_MOD_MASK].flag & TMD1_OWN) ==
857                 TMD1_OWN_HOST)
858                 netif_start_queue (dev);
859         else
860                 lp->tx_full = 1;
861         spin_unlock_irqrestore (&lp->devlock, flags);
862
863         return 0;
864 }
865
866 /* The LANCE interrupt handler. */
867
868 static irqreturn_t lance_interrupt( int irq, void *dev_id )
869 {
870         struct net_device *dev = dev_id;
871         struct lance_private *lp;
872         struct lance_ioreg       *IO;
873         int csr0, boguscnt = 10;
874         int handled = 0;
875
876         if (dev == NULL) {
877                 DPRINTK( 1, ( "lance_interrupt(): interrupt for unknown device.\n" ));
878                 return IRQ_NONE;
879         }
880
881         lp = (struct lance_private *)dev->priv;
882         IO = lp->iobase;
883         spin_lock (&lp->devlock);
884
885         AREG = CSR0;
886
887         while( ((csr0 = DREG) & (CSR0_ERR | CSR0_TINT | CSR0_RINT)) &&
888                    --boguscnt >= 0) {
889                 handled = 1;
890                 /* Acknowledge all of the current interrupt sources ASAP. */
891                 DREG = csr0 & ~(CSR0_INIT | CSR0_STRT | CSR0_STOP |
892                                                                         CSR0_TDMD | CSR0_INEA);
893
894                 DPRINTK( 2, ( "%s: interrupt  csr0=%04x new csr=%04x.\n",
895                                           dev->name, csr0, DREG ));
896
897                 if (csr0 & CSR0_RINT)                   /* Rx interrupt */
898                         lance_rx( dev );
899
900                 if (csr0 & CSR0_TINT) {                 /* Tx-done interrupt */
901                         int dirty_tx = lp->dirty_tx;
902
903                         while( dirty_tx < lp->cur_tx) {
904                                 int entry = dirty_tx & TX_RING_MOD_MASK;
905                                 int status = MEM->tx_head[entry].flag;
906
907                                 if (status & TMD1_OWN_CHIP)
908                                         break;                  /* It still hasn't been Txed */
909
910                                 MEM->tx_head[entry].flag = 0;
911
912                                 if (status & TMD1_ERR) {
913                                         /* There was an major error, log it. */
914                                         int err_status = MEM->tx_head[entry].misc;
915                                         lp->stats.tx_errors++;
916                                         if (err_status & TMD3_RTRY) lp->stats.tx_aborted_errors++;
917                                         if (err_status & TMD3_LCAR) lp->stats.tx_carrier_errors++;
918                                         if (err_status & TMD3_LCOL) lp->stats.tx_window_errors++;
919                                         if (err_status & TMD3_UFLO) {
920                                                 /* Ackk!  On FIFO errors the Tx unit is turned off! */
921                                                 lp->stats.tx_fifo_errors++;
922                                                 /* Remove this verbosity later! */
923                                                 DPRINTK( 1, ( "%s: Tx FIFO error! Status %04x\n",
924                                                                           dev->name, csr0 ));
925                                                 /* Restart the chip. */
926                                                 DREG = CSR0_STRT;
927                                         }
928                                 } else {
929                                         if (status & (TMD1_MORE | TMD1_ONE | TMD1_DEF))
930                                                 lp->stats.collisions++;
931                                         lp->stats.tx_packets++;
932                                 }
933
934                                 /* XXX MSch: free skb?? */
935                                 dirty_tx++;
936                         }
937
938 #ifndef final_version
939                         if (lp->cur_tx - dirty_tx >= TX_RING_SIZE) {
940                                 DPRINTK( 0, ( "out-of-sync dirty pointer,"
941                                                           " %d vs. %d, full=%ld.\n",
942                                                           dirty_tx, lp->cur_tx, lp->tx_full ));
943                                 dirty_tx += TX_RING_SIZE;
944                         }
945 #endif
946
947                         if (lp->tx_full && (netif_queue_stopped(dev))
948                                 && dirty_tx > lp->cur_tx - TX_RING_SIZE + 2) {
949                                 /* The ring is no longer full, clear tbusy. */
950                                 lp->tx_full = 0;
951                                 netif_wake_queue (dev);
952                         }
953
954                         lp->dirty_tx = dirty_tx;
955                 }
956
957                 /* Log misc errors. */
958                 if (csr0 & CSR0_BABL) lp->stats.tx_errors++; /* Tx babble. */
959                 if (csr0 & CSR0_MISS) lp->stats.rx_errors++; /* Missed a Rx frame. */
960                 if (csr0 & CSR0_MERR) {
961                         DPRINTK( 1, ( "%s: Bus master arbitration failure (?!?), "
962                                                   "status %04x.\n", dev->name, csr0 ));
963                         /* Restart the chip. */
964                         DREG = CSR0_STRT;
965                 }
966         }
967
968     /* Clear any other interrupt, and set interrupt enable. */
969         DREG = CSR0_BABL | CSR0_CERR | CSR0_MISS | CSR0_MERR |
970                    CSR0_IDON | CSR0_INEA;
971
972         DPRINTK( 2, ( "%s: exiting interrupt, csr0=%#04x.\n",
973                                   dev->name, DREG ));
974
975         spin_unlock (&lp->devlock);
976         return IRQ_RETVAL(handled);
977 }
978
979
980 static int lance_rx( struct net_device *dev )
981
982 {       struct lance_private *lp = (struct lance_private *)dev->priv;
983         int entry = lp->cur_rx & RX_RING_MOD_MASK;
984         int i;
985
986         DPRINTK( 2, ( "%s: rx int, flag=%04x\n", dev->name,
987                                   MEM->rx_head[entry].flag ));
988
989         /* If we own the next entry, it's a new packet. Send it up. */
990         while( (MEM->rx_head[entry].flag & RMD1_OWN) == RMD1_OWN_HOST ) {
991                 struct lance_rx_head *head = &(MEM->rx_head[entry]);
992                 int status = head->flag;
993
994                 if (status != (RMD1_ENP|RMD1_STP)) {            /* There was an error. */
995                         /* There is a tricky error noted by John Murphy,
996                            <murf@perftech.com> to Russ Nelson: Even with full-sized
997                            buffers it's possible for a jabber packet to use two
998                            buffers, with only the last correctly noting the error. */
999                         if (status & RMD1_ENP)  /* Only count a general error at the */
1000                                 lp->stats.rx_errors++; /* end of a packet.*/
1001                         if (status & RMD1_FRAM) lp->stats.rx_frame_errors++;
1002                         if (status & RMD1_OFLO) lp->stats.rx_over_errors++;
1003                         if (status & RMD1_CRC) lp->stats.rx_crc_errors++;
1004                         if (status & RMD1_BUFF) lp->stats.rx_fifo_errors++;
1005                         head->flag &= (RMD1_ENP|RMD1_STP);
1006                 } else {
1007                         /* Malloc up new buffer, compatible with net-3. */
1008                         short pkt_len = head->msg_length & 0xfff;
1009                         struct sk_buff *skb;
1010
1011                         if (pkt_len < 60) {
1012                                 printk( "%s: Runt packet!\n", dev->name );
1013                                 lp->stats.rx_errors++;
1014                         }
1015                         else {
1016                                 skb = dev_alloc_skb( pkt_len+2 );
1017                                 if (skb == NULL) {
1018                                         DPRINTK( 1, ( "%s: Memory squeeze, deferring packet.\n",
1019                                                                   dev->name ));
1020                                         for( i = 0; i < RX_RING_SIZE; i++ )
1021                                                 if (MEM->rx_head[(entry+i) & RX_RING_MOD_MASK].flag &
1022                                                         RMD1_OWN_CHIP)
1023                                                         break;
1024
1025                                         if (i > RX_RING_SIZE - 2) {
1026                                                 lp->stats.rx_dropped++;
1027                                                 head->flag |= RMD1_OWN_CHIP;
1028                                                 lp->cur_rx++;
1029                                         }
1030                                         break;
1031                                 }
1032
1033                                 if (lance_debug >= 3) {
1034                                         u_char *data = PKTBUF_ADDR(head), *p;
1035                                         printk( "%s: RX pkt type 0x%04x from ", dev->name,
1036                                                         ((u_short *)data)[6]);
1037                                         for( p = &data[6], i = 0; i < 6; i++ )
1038                                                 printk("%02x%s", *p++, i != 5 ? ":" : "" );
1039                                         printk(" to ");
1040                                         for( p = data, i = 0; i < 6; i++ )
1041                                                 printk("%02x%s", *p++, i != 5 ? ":" : "" );
1042                                         printk(" data %02x %02x %02x %02x %02x %02x %02x %02x "
1043                                                    "len %d\n",
1044                                                    data[15], data[16], data[17], data[18],
1045                                                    data[19], data[20], data[21], data[22],
1046                                                    pkt_len );
1047                                 }
1048
1049                                 skb_reserve( skb, 2 );  /* 16 byte align */
1050                                 skb_put( skb, pkt_len );        /* Make room */
1051                                 lp->memcpy_f( skb->data, PKTBUF_ADDR(head), pkt_len );
1052                                 skb->protocol = eth_type_trans( skb, dev );
1053                                 netif_rx( skb );
1054                                 dev->last_rx = jiffies;
1055                                 lp->stats.rx_packets++;
1056                                 lp->stats.rx_bytes += pkt_len;
1057                         }
1058                 }
1059
1060                 head->flag |= RMD1_OWN_CHIP;
1061                 entry = (++lp->cur_rx) & RX_RING_MOD_MASK;
1062         }
1063         lp->cur_rx &= RX_RING_MOD_MASK;
1064
1065         /* From lance.c (Donald Becker): */
1066         /* We should check that at least two ring entries are free.      If not,
1067            we should free one and mark stats->rx_dropped++. */
1068
1069         return 0;
1070 }
1071
1072
1073 static int lance_close( struct net_device *dev )
1074
1075 {       struct lance_private *lp = (struct lance_private *)dev->priv;
1076         struct lance_ioreg       *IO = lp->iobase;
1077
1078         netif_stop_queue (dev);
1079
1080         AREG = CSR0;
1081
1082         DPRINTK( 2, ( "%s: Shutting down ethercard, status was %2.2x.\n",
1083                                   dev->name, DREG ));
1084
1085         /* We stop the LANCE here -- it occasionally polls
1086            memory if we don't. */
1087         DREG = CSR0_STOP;
1088
1089         return 0;
1090 }
1091
1092
1093 static struct net_device_stats *lance_get_stats( struct net_device *dev )
1094
1095 {       struct lance_private *lp = (struct lance_private *)dev->priv;
1096
1097         return &lp->stats;
1098 }
1099
1100
1101 /* Set or clear the multicast filter for this adaptor.
1102    num_addrs == -1              Promiscuous mode, receive all packets
1103    num_addrs == 0               Normal mode, clear multicast list
1104    num_addrs > 0                Multicast mode, receive normal and MC packets, and do
1105                                                 best-effort filtering.
1106  */
1107
1108 static void set_multicast_list( struct net_device *dev )
1109
1110 {       struct lance_private *lp = (struct lance_private *)dev->priv;
1111         struct lance_ioreg       *IO = lp->iobase;
1112
1113         if (netif_running(dev))
1114                 /* Only possible if board is already started */
1115                 return;
1116
1117         /* We take the simple way out and always enable promiscuous mode. */
1118         DREG = CSR0_STOP; /* Temporarily stop the lance. */
1119
1120         if (dev->flags & IFF_PROMISC) {
1121                 /* Log any net taps. */
1122                 DPRINTK( 2, ( "%s: Promiscuous mode enabled.\n", dev->name ));
1123                 REGA( CSR15 ) = 0x8000; /* Set promiscuous mode */
1124         } else {
1125                 short multicast_table[4];
1126                 int num_addrs = dev->mc_count;
1127                 int i;
1128                 /* We don't use the multicast table, but rely on upper-layer
1129                  * filtering. */
1130                 memset( multicast_table, (num_addrs == 0) ? 0 : -1,
1131                                 sizeof(multicast_table) );
1132                 for( i = 0; i < 4; i++ )
1133                         REGA( CSR8+i ) = multicast_table[i];
1134                 REGA( CSR15 ) = 0; /* Unset promiscuous mode */
1135         }
1136
1137         /*
1138          * Always set BSWP after a STOP as STOP puts it back into
1139          * little endian mode.
1140          */
1141         REGA( CSR3 ) = CSR3_BSWP | (lp->cardtype == PAM_CARD ? CSR3_ACON : 0);
1142
1143         /* Resume normal operation and reset AREG to CSR0 */
1144         REGA( CSR0 ) = CSR0_IDON | CSR0_INEA | CSR0_STRT;
1145 }
1146
1147
1148 /* This is needed for old RieblCards and possible for new RieblCards */
1149
1150 static int lance_set_mac_address( struct net_device *dev, void *addr )
1151
1152 {       struct lance_private *lp = (struct lance_private *)dev->priv;
1153         struct sockaddr *saddr = addr;
1154         int i;
1155
1156         if (lp->cardtype != OLD_RIEBL && lp->cardtype != NEW_RIEBL)
1157                 return( -EOPNOTSUPP );
1158
1159         if (netif_running(dev)) {
1160                 /* Only possible while card isn't started */
1161                 DPRINTK( 1, ( "%s: hwaddr can be set only while card isn't open.\n",
1162                                           dev->name ));
1163                 return( -EIO );
1164         }
1165
1166         memcpy( dev->dev_addr, saddr->sa_data, dev->addr_len );
1167         for( i = 0; i < 6; i++ )
1168                 MEM->init.hwaddr[i] = dev->dev_addr[i^1]; /* <- 16 bit swap! */
1169         lp->memcpy_f( RIEBL_HWADDR_ADDR, dev->dev_addr, 6 );
1170         /* set also the magic for future sessions */
1171         *RIEBL_MAGIC_ADDR = RIEBL_MAGIC;
1172
1173         return( 0 );
1174 }
1175
1176
1177 #ifdef MODULE
1178 static struct net_device *atarilance_dev;
1179
1180 int __init init_module(void)
1181 {
1182         atarilance_dev = atarilance_probe(-1);
1183         if (IS_ERR(atarilance_dev))
1184                 return PTR_ERR(atarilance_dev);
1185         return 0;
1186 }
1187
1188 void __exit cleanup_module(void)
1189 {
1190         unregister_netdev(atarilance_dev);
1191         free_irq(atarilance_dev->irq, atarilance_dev);
1192         free_netdev(atarilance_dev);
1193 }
1194
1195 #endif /* MODULE */
1196
1197
1198 /*
1199  * Local variables:
1200  *  c-indent-level: 4
1201  *  tab-width: 4
1202  * End:
1203  */