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    ARRAY_SIZE(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  */