git.oblomov.eu Git - linux-2.6/blob - drivers/net/sun3lance.c

   1 /* sun3lance.c: Ethernet driver for SUN3 Lance chip */
   2 /*
   3
   4   Sun3 Lance ethernet driver, by Sam Creasey (sammy@users.qual.net).
   5   This driver is a part of the linux kernel, and is thus distributed
   6   under the GNU General Public License.
   7
   8   The values used in LANCE_OBIO and LANCE_IRQ seem to be empirically
   9   true for the correct IRQ and address of the lance registers.  They
  10   have not been widely tested, however.  What we probably need is a
  11   "proper" way to search for a device in the sun3's prom, but, alas,
  12   linux has no such thing.
  13
  14   This driver is largely based on atarilance.c, by Roman Hodek.  Other
  15   sources of inspiration were the NetBSD sun3 am7990 driver, and the
  16   linux sparc lance driver (sunlance.c).
  17
  18   There are more assumptions made throughout this driver, it almost
  19   certainly still needs work, but it does work at least for RARP/BOOTP and
  20   mounting the root NFS filesystem.
  21
  22 */
  23
  24 static char *version = "sun3lance.c: v1.2 1/12/2001  Sam Creasey (sammy@sammy.net)\n";
  25
  26 #include <linux/module.h>
  27 #include <linux/stddef.h>
  28 #include <linux/kernel.h>
  29 #include <linux/string.h>
  30 #include <linux/errno.h>
  31 #include <linux/slab.h>
  32 #include <linux/interrupt.h>
  33 #include <linux/init.h>
  34 #include <linux/ioport.h>
  35 #include <linux/delay.h>
  36 #include <linux/netdevice.h>
  37 #include <linux/etherdevice.h>
  38 #include <linux/skbuff.h>
  39 #include <linux/bitops.h>
  40
  41 #include <asm/setup.h>
  42 #include <asm/irq.h>
  43 #include <asm/io.h>
  44 #include <asm/pgtable.h>
  45 #include <asm/dvma.h>
  46 #include <asm/idprom.h>
  47 #include <asm/machines.h>
  48
  49 #ifdef CONFIG_SUN3
  50 #include <asm/sun3mmu.h>
  51 #else
  52 #include <asm/sun3xprom.h>
  53 #endif
  54
  55 /* sun3/60 addr/irq for the lance chip.  If your sun is different,
  56    change this. */
  57 #define LANCE_OBIO 0x120000
  58 #define LANCE_IRQ IRQ3
  59
  60 /* Debug level:
  61  *  0 = silent, print only serious errors
  62  *  1 = normal, print error messages
  63  *  2 = debug, print debug infos
  64  *  3 = debug, print even more debug infos (packet data)
  65  */
  66
  67 #define LANCE_DEBUG     0
  68
  69 #ifdef LANCE_DEBUG
  70 static int lance_debug = LANCE_DEBUG;
  71 #else
  72 static int lance_debug = 1;
  73 #endif
  74 module_param(lance_debug, int, 0);
  75 MODULE_PARM_DESC(lance_debug, "SUN3 Lance debug level (0-3)");
  76 MODULE_LICENSE("GPL");
  77
  78 #define DPRINTK(n,a) \
  79         do {  \
  80                 if (lance_debug >= n)  \
  81                         printk a; \
  82         } while( 0 )
  83
  84
  85 /* we're only using 32k of memory, so we use 4 TX
  86    buffers and 16 RX buffers.  These values are expressed as log2. */
  87
  88 #define TX_LOG_RING_SIZE                        3
  89 #define RX_LOG_RING_SIZE                        5
  90
  91 /* These are the derived values */
  92
  93 #define TX_RING_SIZE                    (1 << TX_LOG_RING_SIZE)
  94 #define TX_RING_LEN_BITS                (TX_LOG_RING_SIZE << 5)
  95 #define TX_RING_MOD_MASK                (TX_RING_SIZE - 1)
  96
  97 #define RX_RING_SIZE                    (1 << RX_LOG_RING_SIZE)
  98 #define RX_RING_LEN_BITS                (RX_LOG_RING_SIZE << 5)
  99 #define RX_RING_MOD_MASK                (RX_RING_SIZE - 1)
 100
 101 /* Definitions for packet buffer access: */
 102 #define PKT_BUF_SZ              1544
 103
 104 /* Get the address of a packet buffer corresponding to a given buffer head */
 105 #define PKTBUF_ADDR(head)       (void *)((unsigned long)(MEM) | (head)->base)
 106
 107
 108 /* The LANCE Rx and Tx ring descriptors. */
 109 struct lance_rx_head {
 110         unsigned short  base;           /* Low word of base addr */
 111         volatile unsigned char  flag;
 112         unsigned char  base_hi; /* High word of base addr (unused) */
 113         short buf_length;       /* This length is 2s complement! */
 114         volatile short msg_length;      /* This length is "normal". */
 115 };
 116
 117 struct lance_tx_head {
 118         unsigned short base;            /* Low word of base addr */
 119         volatile unsigned char  flag;
 120         unsigned char base_hi;  /* High word of base addr (unused) */
 121         short length;           /* Length is 2s complement! */
 122         volatile short misc;
 123 };
 124
 125 /* The LANCE initialization block, described in databook. */
 126 struct lance_init_block {
 127         unsigned short  mode;           /* Pre-set mode */
 128         unsigned char   hwaddr[6];      /* Physical ethernet address */
 129         unsigned int    filter[2];      /* Multicast filter (unused). */
 130         /* Receive and transmit ring base, along with length bits. */
 131         unsigned short rdra;
 132         unsigned short rlen;
 133         unsigned short tdra;
 134         unsigned short tlen;
 135         unsigned short pad[4]; /* is thie needed? */
 136 };
 137
 138 /* The whole layout of the Lance shared memory */
 139 struct lance_memory {
 140         struct lance_init_block init;
 141         struct lance_tx_head    tx_head[TX_RING_SIZE];
 142         struct lance_rx_head    rx_head[RX_RING_SIZE];
 143         char   rx_data[RX_RING_SIZE][PKT_BUF_SZ];
 144         char   tx_data[TX_RING_SIZE][PKT_BUF_SZ];
 145 };
 146
 147 /* The driver's private device structure */
 148
 149 struct lance_private {
 150         volatile unsigned short *iobase;
 151         struct lance_memory     *mem;
 152         int new_rx, new_tx;     /* The next free ring entry */
 153         int old_tx, old_rx;     /* ring entry to be processed */
 154         struct net_device_stats stats;
 155 /* These two must be longs for set_bit() */
 156         long        tx_full;
 157         long        lock;
 158 };
 159
 160 /* I/O register access macros */
 161
 162 #define MEM     lp->mem
 163 #define DREG    lp->iobase[0]
 164 #define AREG    lp->iobase[1]
 165 #define REGA(a) (*( AREG = (a), &DREG ))
 166
 167 /* Definitions for the Lance */
 168
 169 /* tx_head flags */
 170 #define TMD1_ENP                0x01    /* end of packet */
 171 #define TMD1_STP                0x02    /* start of packet */
 172 #define TMD1_DEF                0x04    /* deferred */
 173 #define TMD1_ONE                0x08    /* one retry needed */
 174 #define TMD1_MORE               0x10    /* more than one retry needed */
 175 #define TMD1_ERR                0x40    /* error summary */
 176 #define TMD1_OWN                0x80    /* ownership (set: chip owns) */
 177
 178 #define TMD1_OWN_CHIP   TMD1_OWN
 179 #define TMD1_OWN_HOST   0
 180
 181 /* tx_head misc field */
 182 #define TMD3_TDR                0x03FF  /* Time Domain Reflectometry counter */
 183 #define TMD3_RTRY               0x0400  /* failed after 16 retries */
 184 #define TMD3_LCAR               0x0800  /* carrier lost */
 185 #define TMD3_LCOL               0x1000  /* late collision */
 186 #define TMD3_UFLO               0x4000  /* underflow (late memory) */
 187 #define TMD3_BUFF               0x8000  /* buffering error (no ENP) */
 188
 189 /* rx_head flags */
 190 #define RMD1_ENP                0x01    /* end of packet */
 191 #define RMD1_STP                0x02    /* start of packet */
 192 #define RMD1_BUFF               0x04    /* buffer error */
 193 #define RMD1_CRC                0x08    /* CRC error */
 194 #define RMD1_OFLO               0x10    /* overflow */
 195 #define RMD1_FRAM               0x20    /* framing error */
 196 #define RMD1_ERR                0x40    /* error summary */
 197 #define RMD1_OWN                0x80    /* ownership (set: ship owns) */
 198
 199 #define RMD1_OWN_CHIP   RMD1_OWN
 200 #define RMD1_OWN_HOST   0
 201
 202 /* register names */
 203 #define CSR0    0               /* mode/status */
 204 #define CSR1    1               /* init block addr (low) */
 205 #define CSR2    2               /* init block addr (high) */
 206 #define CSR3    3               /* misc */
 207 #define CSR8    8               /* address filter */
 208 #define CSR15   15              /* promiscuous mode */
 209
 210 /* CSR0 */
 211 /* (R=readable, W=writeable, S=set on write, C=clear on write) */
 212 #define CSR0_INIT       0x0001          /* initialize (RS) */
 213 #define CSR0_STRT       0x0002          /* start (RS) */
 214 #define CSR0_STOP       0x0004          /* stop (RS) */
 215 #define CSR0_TDMD       0x0008          /* transmit demand (RS) */
 216 #define CSR0_TXON       0x0010          /* transmitter on (R) */
 217 #define CSR0_RXON       0x0020          /* receiver on (R) */
 218 #define CSR0_INEA       0x0040          /* interrupt enable (RW) */
 219 #define CSR0_INTR       0x0080          /* interrupt active (R) */
 220 #define CSR0_IDON       0x0100          /* initialization done (RC) */
 221 #define CSR0_TINT       0x0200          /* transmitter interrupt (RC) */
 222 #define CSR0_RINT       0x0400          /* receiver interrupt (RC) */
 223 #define CSR0_MERR       0x0800          /* memory error (RC) */
 224 #define CSR0_MISS       0x1000          /* missed frame (RC) */
 225 #define CSR0_CERR       0x2000          /* carrier error (no heartbeat :-) (RC) */
 226 #define CSR0_BABL       0x4000          /* babble: tx-ed too many bits (RC) */
 227 #define CSR0_ERR        0x8000          /* error (RC) */
 228
 229 /* CSR3 */
 230 #define CSR3_BCON       0x0001          /* byte control */
 231 #define CSR3_ACON       0x0002          /* ALE control */
 232 #define CSR3_BSWP       0x0004          /* byte swap (1=big endian) */
 233
 234 /***************************** Prototypes *****************************/
 235
 236 static int lance_probe( struct net_device *dev);
 237 static int lance_open( struct net_device *dev );
 238 static void lance_init_ring( struct net_device *dev );
 239 static int lance_start_xmit( struct sk_buff *skb, struct net_device *dev );
 240 static irqreturn_t lance_interrupt( int irq, void *dev_id, struct pt_regs *fp );
 241 static int lance_rx( struct net_device *dev );
 242 static int lance_close( struct net_device *dev );
 243 static struct net_device_stats *lance_get_stats( struct net_device *dev );
 244 static void set_multicast_list( struct net_device *dev );
 245
 246 /************************* End of Prototypes **************************/
 247
 248 struct net_device * __init sun3lance_probe(int unit)
 249 {
 250         struct net_device *dev;
 251         static int found;
 252         int err = -ENODEV;
 253
 254         /* check that this machine has an onboard lance */
 255         switch(idprom->id_machtype) {
 256         case SM_SUN3|SM_3_50:
 257         case SM_SUN3|SM_3_60:
 258         case SM_SUN3X|SM_3_80:
 259                 /* these machines have lance */
 260                 break;
 261
 262         default:
 263                 return ERR_PTR(-ENODEV);
 264         }
 265
 266         if (found)
 267                 return ERR_PTR(-ENODEV);
 268
 269         dev = alloc_etherdev(sizeof(struct lance_private));
 270         if (!dev)
 271                 return ERR_PTR(-ENOMEM);
 272         if (unit >= 0) {
 273                 sprintf(dev->name, "eth%d", unit);
 274                 netdev_boot_setup_check(dev);
 275         }
 276         SET_MODULE_OWNER(dev);
 277
 278         if (!lance_probe(dev))
 279                 goto out;
 280
 281         err = register_netdev(dev);
 282         if (err)
 283                 goto out1;
 284         found = 1;
 285         return dev;
 286
 287 out1:
 288 #ifdef CONFIG_SUN3
 289         iounmap((void *)dev->base_addr);
 290 #endif
 291 out:
 292         free_netdev(dev);
 293         return ERR_PTR(err);
 294 }
 295
 296 static int __init lance_probe( struct net_device *dev)
 297 {
 298         unsigned long ioaddr;
 299
 300         struct lance_private    *lp;
 301         int                     i;
 302         static int              did_version;
 303         volatile unsigned short *ioaddr_probe;
 304         unsigned short tmp1, tmp2;
 305
 306 #ifdef CONFIG_SUN3
 307         ioaddr = (unsigned long)ioremap(LANCE_OBIO, PAGE_SIZE);
 308         if (!ioaddr)
 309                 return 0;
 310 #else
 311         ioaddr = SUN3X_LANCE;
 312 #endif
 313
 314         /* test to see if there's really a lance here */
 315         /* (CSRO_INIT shouldn't be readable) */
 316
 317         ioaddr_probe = (volatile unsigned short *)ioaddr;
 318         tmp1 = ioaddr_probe[0];
 319         tmp2 = ioaddr_probe[1];
 320
 321         ioaddr_probe[1] = CSR0;
 322         ioaddr_probe[0] = CSR0_INIT | CSR0_STOP;
 323
 324         if(ioaddr_probe[0] != CSR0_STOP) {
 325                 ioaddr_probe[0] = tmp1;
 326                 ioaddr_probe[1] = tmp2;
 327
 328 #ifdef CONFIG_SUN3
 329                 iounmap((void *)ioaddr);
 330 #endif
 331                 return 0;
 332         }
 333
 334         lp = netdev_priv(dev);
 335
 336         /* XXX - leak? */
 337         MEM = dvma_malloc_align(sizeof(struct lance_memory), 0x10000);
 338
 339         lp->iobase = (volatile unsigned short *)ioaddr;
 340         dev->base_addr = (unsigned long)ioaddr; /* informational only */
 341
 342         REGA(CSR0) = CSR0_STOP;
 343
 344         request_irq(LANCE_IRQ, lance_interrupt, SA_INTERRUPT, "SUN3 Lance", dev);
 345         dev->irq = (unsigned short)LANCE_IRQ;
 346
 347
 348         printk("%s: SUN3 Lance at io %#lx, mem %#lx, irq %d, hwaddr ",
 349                    dev->name,
 350                    (unsigned long)ioaddr,
 351                    (unsigned long)MEM,
 352                    dev->irq);
 353
 354         /* copy in the ethernet address from the prom */
 355         for(i = 0; i < 6 ; i++)
 356              dev->dev_addr[i] = idprom->id_ethaddr[i];
 357
 358         /* tell the card it's ether address, bytes swapped */
 359         MEM->init.hwaddr[0] = dev->dev_addr[1];
 360         MEM->init.hwaddr[1] = dev->dev_addr[0];
 361         MEM->init.hwaddr[2] = dev->dev_addr[3];
 362         MEM->init.hwaddr[3] = dev->dev_addr[2];
 363         MEM->init.hwaddr[4] = dev->dev_addr[5];
 364         MEM->init.hwaddr[5] = dev->dev_addr[4];
 365
 366         for( i = 0; i < 6; ++i )
 367                 printk( "%02x%s", dev->dev_addr[i], (i < 5) ? ":" : "\n" );
 368
 369         MEM->init.mode = 0x0000;
 370         MEM->init.filter[0] = 0x00000000;
 371         MEM->init.filter[1] = 0x00000000;
 372         MEM->init.rdra = dvma_vtob(MEM->rx_head);
 373         MEM->init.rlen    = (RX_LOG_RING_SIZE << 13) |
 374                 (dvma_vtob(MEM->rx_head) >> 16);
 375         MEM->init.tdra = dvma_vtob(MEM->tx_head);
 376         MEM->init.tlen    = (TX_LOG_RING_SIZE << 13) |
 377                 (dvma_vtob(MEM->tx_head) >> 16);
 378
 379         DPRINTK(2, ("initaddr: %08lx rx_ring: %08lx tx_ring: %08lx\n",
 380                dvma_vtob(&(MEM->init)), dvma_vtob(MEM->rx_head),
 381                (dvma_vtob(MEM->tx_head))));
 382
 383         if (did_version++ == 0)
 384                 printk( version );
 385
 386         /* The LANCE-specific entries in the device structure. */
 387         dev->open = &lance_open;
 388         dev->hard_start_xmit = &lance_start_xmit;
 389         dev->stop = &lance_close;
 390         dev->get_stats = &lance_get_stats;
 391         dev->set_multicast_list = &set_multicast_list;
 392         dev->set_mac_address = NULL;
 393 //      KLUDGE -- REMOVE ME
 394         set_bit(__LINK_STATE_PRESENT, &dev->state);
 395
 396
 397         memset( &lp->stats, 0, sizeof(lp->stats) );
 398
 399         return 1;
 400 }
 401
 402 static int lance_open( struct net_device *dev )
 403 {
 404         struct lance_private *lp = netdev_priv(dev);
 405         int i;
 406
 407         DPRINTK( 2, ( "%s: lance_open()\n", dev->name ));
 408
 409         REGA(CSR0) = CSR0_STOP;
 410
 411         lance_init_ring(dev);
 412
 413         /* From now on, AREG is kept to point to CSR0 */
 414         REGA(CSR0) = CSR0_INIT;
 415
 416         i = 1000000;
 417         while (--i > 0)
 418                 if (DREG & CSR0_IDON)
 419                         break;
 420         if (i < 0 || (DREG & CSR0_ERR)) {
 421                 DPRINTK( 2, ( "lance_open(): opening %s failed, i=%d, csr0=%04x\n",
 422                                           dev->name, i, DREG ));
 423                 DREG = CSR0_STOP;
 424                 return( -EIO );
 425         }
 426
 427         DREG = CSR0_IDON | CSR0_STRT | CSR0_INEA;
 428
 429         netif_start_queue(dev);
 430
 431         DPRINTK( 2, ( "%s: LANCE is open, csr0 %04x\n", dev->name, DREG ));
 432
 433         return( 0 );
 434 }
 435
 436
 437 /* Initialize the LANCE Rx and Tx rings. */
 438
 439 static void lance_init_ring( struct net_device *dev )
 440 {
 441         struct lance_private *lp = netdev_priv(dev);
 442         int i;
 443
 444         lp->lock = 0;
 445         lp->tx_full = 0;
 446         lp->new_rx = lp->new_tx = 0;
 447         lp->old_rx = lp->old_tx = 0;
 448
 449         for( i = 0; i < TX_RING_SIZE; i++ ) {
 450                 MEM->tx_head[i].base = dvma_vtob(MEM->tx_data[i]);
 451                 MEM->tx_head[i].flag = 0;
 452                 MEM->tx_head[i].base_hi =
 453                         (dvma_vtob(MEM->tx_data[i])) >>16;
 454                 MEM->tx_head[i].length = 0;
 455                 MEM->tx_head[i].misc = 0;
 456         }
 457
 458         for( i = 0; i < RX_RING_SIZE; i++ ) {
 459                 MEM->rx_head[i].base = dvma_vtob(MEM->rx_data[i]);
 460                 MEM->rx_head[i].flag = RMD1_OWN_CHIP;
 461                 MEM->rx_head[i].base_hi =
 462                         (dvma_vtob(MEM->rx_data[i])) >> 16;
 463                 MEM->rx_head[i].buf_length = -PKT_BUF_SZ | 0xf000;
 464                 MEM->rx_head[i].msg_length = 0;
 465         }
 466
 467         /* tell the card it's ether address, bytes swapped */
 468         MEM->init.hwaddr[0] = dev->dev_addr[1];
 469         MEM->init.hwaddr[1] = dev->dev_addr[0];
 470         MEM->init.hwaddr[2] = dev->dev_addr[3];
 471         MEM->init.hwaddr[3] = dev->dev_addr[2];
 472         MEM->init.hwaddr[4] = dev->dev_addr[5];
 473         MEM->init.hwaddr[5] = dev->dev_addr[4];
 474
 475         MEM->init.mode = 0x0000;
 476         MEM->init.filter[0] = 0x00000000;
 477         MEM->init.filter[1] = 0x00000000;
 478         MEM->init.rdra = dvma_vtob(MEM->rx_head);
 479         MEM->init.rlen    = (RX_LOG_RING_SIZE << 13) |
 480                 (dvma_vtob(MEM->rx_head) >> 16);
 481         MEM->init.tdra = dvma_vtob(MEM->tx_head);
 482         MEM->init.tlen    = (TX_LOG_RING_SIZE << 13) |
 483                 (dvma_vtob(MEM->tx_head) >> 16);
 484
 485
 486         /* tell the lance the address of its init block */
 487         REGA(CSR1) = dvma_vtob(&(MEM->init));
 488         REGA(CSR2) = dvma_vtob(&(MEM->init)) >> 16;
 489
 490 #ifdef CONFIG_SUN3X
 491         REGA(CSR3) = CSR3_BSWP | CSR3_ACON | CSR3_BCON;
 492 #else
 493         REGA(CSR3) = CSR3_BSWP;
 494 #endif
 495
 496 }
 497
 498
 499 static int lance_start_xmit( struct sk_buff *skb, struct net_device *dev )
 500 {
 501         struct lance_private *lp = netdev_priv(dev);
 502         int entry, len;
 503         struct lance_tx_head *head;
 504         unsigned long flags;
 505
 506         DPRINTK( 1, ( "%s: transmit start.\n",
 507                       dev->name));
 508
 509         /* Transmitter timeout, serious problems. */
 510         if (netif_queue_stopped(dev)) {
 511                 int tickssofar = jiffies - dev->trans_start;
 512                 if (tickssofar < 20)
 513                         return( 1 );
 514
 515                 DPRINTK( 1, ( "%s: transmit timed out, status %04x, resetting.\n",
 516                                           dev->name, DREG ));
 517                 DREG = CSR0_STOP;
 518                 /*
 519                  * Always set BSWP after a STOP as STOP puts it back into
 520                  * little endian mode.
 521                  */
 522                 REGA(CSR3) = CSR3_BSWP;
 523                 lp->stats.tx_errors++;
 524
 525                 if(lance_debug >= 2) {
 526                         int i;
 527                         printk("Ring data: old_tx %d new_tx %d%s new_rx %d\n",
 528                                lp->old_tx, lp->new_tx,
 529                                lp->tx_full ? " (full)" : "",
 530                                lp->new_rx );
 531                         for( i = 0 ; i < RX_RING_SIZE; i++ )
 532                                 printk( "rx #%d: base=%04x blen=%04x mlen=%04x\n",
 533                                         i, MEM->rx_head[i].base,
 534                                         -MEM->rx_head[i].buf_length,
 535                                         MEM->rx_head[i].msg_length);
 536                         for( i = 0 ; i < TX_RING_SIZE; i++ )
 537                                 printk("tx #%d: base=%04x len=%04x misc=%04x\n",
 538                                        i, MEM->tx_head[i].base,
 539                                        -MEM->tx_head[i].length,
 540                                        MEM->tx_head[i].misc );
 541                 }
 542
 543                 lance_init_ring(dev);
 544                 REGA( CSR0 ) = CSR0_INEA | CSR0_INIT | CSR0_STRT;
 545
 546                 netif_start_queue(dev);
 547                 dev->trans_start = jiffies;
 548
 549                 return 0;
 550         }
 551
 552
 553         /* Block a timer-based transmit from overlapping.  This could better be
 554            done with atomic_swap(1, dev->tbusy), but set_bit() works as well. */
 555
 556         /* Block a timer-based transmit from overlapping with us by
 557            stopping the queue for a bit... */
 558
 559         netif_stop_queue(dev);
 560
 561         if (test_and_set_bit( 0, (void*)&lp->lock ) != 0) {
 562                 printk( "%s: tx queue lock!.\n", dev->name);
 563                 /* don't clear dev->tbusy flag. */
 564                 return 1;
 565         }
 566
 567         AREG = CSR0;
 568         DPRINTK( 2, ( "%s: lance_start_xmit() called, csr0 %4.4x.\n",
 569                                   dev->name, DREG ));
 570
 571 #ifdef CONFIG_SUN3X
 572         /* this weirdness doesn't appear on sun3... */
 573         if(!(DREG & CSR0_INIT)) {
 574                 DPRINTK( 1, ("INIT not set, reinitializing...\n"));
 575                 REGA( CSR0 ) = CSR0_STOP;
 576                 lance_init_ring(dev);
 577                 REGA( CSR0 ) = CSR0_INIT | CSR0_STRT;
 578         }
 579 #endif
 580
 581         /* Fill in a Tx ring entry */
 582 #if 0
 583         if (lance_debug >= 2) {
 584                 u_char *p;
 585                 int i;
 586                 printk( "%s: TX pkt %d type 0x%04x from ", dev->name,
 587                         lp->new_tx, ((u_short *)skb->data)[6]);
 588                 for( p = &((u_char *)skb->data)[6], i = 0; i < 6; i++ )
 589                         printk("%02x%s", *p++, i != 5 ? ":" : "" );
 590                 printk(" to ");
 591                 for( p = (u_char *)skb->data, i = 0; i < 6; i++ )
 592                         printk("%02x%s", *p++, i != 5 ? ":" : "" );
 593                 printk(" data at 0x%08x len %d\n", (int)skb->data,
 594                        (int)skb->len );
 595         }
 596 #endif
 597         /* We're not prepared for the int until the last flags are set/reset.
 598          * And the int may happen already after setting the OWN_CHIP... */
 599         local_irq_save(flags);
 600
 601         /* Mask to ring buffer boundary. */
 602         entry = lp->new_tx;
 603         head  = &(MEM->tx_head[entry]);
 604
 605         /* Caution: the write order is important here, set the "ownership" bits
 606          * last.
 607          */
 608
 609         /* the sun3's lance needs it's buffer padded to the minimum
 610            size */
 611         len = (ETH_ZLEN < skb->len) ? skb->len : ETH_ZLEN;
 612
 613 //      head->length = -len;
 614         head->length = (-len) | 0xf000;
 615         head->misc = 0;
 616
 617         memcpy( PKTBUF_ADDR(head), (void *)skb->data, skb->len );
 618         if (len != skb->len)
 619                 memset(PKTBUF_ADDR(head) + skb->len, 0, len-skb->len);
 620
 621         head->flag = TMD1_OWN_CHIP | TMD1_ENP | TMD1_STP;
 622         lp->new_tx = (lp->new_tx + 1) & TX_RING_MOD_MASK;
 623         lp->stats.tx_bytes += skb->len;
 624
 625         /* Trigger an immediate send poll. */
 626         REGA(CSR0) = CSR0_INEA | CSR0_TDMD | CSR0_STRT;
 627         AREG = CSR0;
 628         DPRINTK( 2, ( "%s: lance_start_xmit() exiting, csr0 %4.4x.\n",
 629                                   dev->name, DREG ));
 630         dev->trans_start = jiffies;
 631         dev_kfree_skb( skb );
 632
 633         lp->lock = 0;
 634         if ((MEM->tx_head[(entry+1) & TX_RING_MOD_MASK].flag & TMD1_OWN) ==
 635             TMD1_OWN_HOST)
 636                 netif_start_queue(dev);
 637
 638         local_irq_restore(flags);
 639
 640         return 0;
 641 }
 642
 643 /* The LANCE interrupt handler. */
 644
 645 static irqreturn_t lance_interrupt( int irq, void *dev_id, struct pt_regs *fp)
 646 {
 647         struct net_device *dev = dev_id;
 648         struct lance_private *lp = netdev_priv(dev);
 649         int csr0;
 650         static int in_interrupt;
 651
 652         if (dev == NULL) {
 653                 DPRINTK( 1, ( "lance_interrupt(): invalid dev_id\n" ));
 654                 return IRQ_NONE;
 655         }
 656
 657         if (in_interrupt)
 658                 DPRINTK( 2, ( "%s: Re-entering the interrupt handler.\n", dev->name ));
 659         in_interrupt = 1;
 660
 661  still_more:
 662         flush_cache_all();
 663
 664         AREG = CSR0;
 665         csr0 = DREG;
 666
 667         /* ack interrupts */
 668         DREG = csr0 & (CSR0_TINT | CSR0_RINT | CSR0_IDON);
 669
 670         /* clear errors */
 671         if(csr0 & CSR0_ERR)
 672                 DREG = CSR0_BABL | CSR0_MERR | CSR0_CERR | CSR0_MISS;
 673
 674
 675         DPRINTK( 2, ( "%s: interrupt  csr0=%04x new csr=%04x.\n",
 676                       dev->name, csr0, DREG ));
 677
 678         if (csr0 & CSR0_TINT) {                 /* Tx-done interrupt */
 679                 int old_tx = lp->old_tx;
 680
 681 //              if(lance_debug >= 3) {
 682 //                      int i;
 683 //
 684 //                      printk("%s: tx int\n", dev->name);
 685 //
 686 //                      for(i = 0; i < TX_RING_SIZE; i++)
 687 //                              printk("ring %d flag=%04x\n", i,
 688 //                                     MEM->tx_head[i].flag);
 689 //              }
 690
 691                 while( old_tx != lp->new_tx) {
 692                         struct lance_tx_head *head = &(MEM->tx_head[old_tx]);
 693
 694                         DPRINTK(3, ("on tx_ring %d\n", old_tx));
 695
 696                         if (head->flag & TMD1_OWN_CHIP)
 697                                 break; /* It still hasn't been Txed */
 698
 699                         if (head->flag & TMD1_ERR) {
 700                                 int status = head->misc;
 701                                 lp->stats.tx_errors++;
 702                                 if (status & TMD3_RTRY) lp->stats.tx_aborted_errors++;
 703                                 if (status & TMD3_LCAR) lp->stats.tx_carrier_errors++;
 704                                 if (status & TMD3_LCOL) lp->stats.tx_window_errors++;
 705                                 if (status & (TMD3_UFLO | TMD3_BUFF)) {
 706                                         lp->stats.tx_fifo_errors++;
 707                                         printk("%s: Tx FIFO error\n",
 708                                                dev->name);
 709                                         REGA(CSR0) = CSR0_STOP;
 710                                         REGA(CSR3) = CSR3_BSWP;
 711                                         lance_init_ring(dev);
 712                                         REGA(CSR0) = CSR0_STRT | CSR0_INEA;
 713                                         return IRQ_HANDLED;
 714                                 }
 715                         } else if(head->flag & (TMD1_ENP | TMD1_STP)) {
 716
 717                                 head->flag &= ~(TMD1_ENP | TMD1_STP);
 718                                 if(head->flag & (TMD1_ONE | TMD1_MORE))
 719                                         lp->stats.collisions++;
 720
 721                                 lp->stats.tx_packets++;
 722                                 DPRINTK(3, ("cleared tx ring %d\n", old_tx));
 723                         }
 724                         old_tx = (old_tx +1) & TX_RING_MOD_MASK;
 725                 }
 726
 727                 lp->old_tx = old_tx;
 728         }
 729
 730
 731         if (netif_queue_stopped(dev)) {
 732                 /* The ring is no longer full, clear tbusy. */
 733                 netif_start_queue(dev);
 734                 netif_wake_queue(dev);
 735         }
 736
 737         if (csr0 & CSR0_RINT)                   /* Rx interrupt */
 738                 lance_rx( dev );
 739
 740         /* Log misc errors. */
 741         if (csr0 & CSR0_BABL) lp->stats.tx_errors++; /* Tx babble. */
 742         if (csr0 & CSR0_MISS) lp->stats.rx_errors++; /* Missed a Rx frame. */
 743         if (csr0 & CSR0_MERR) {
 744                 DPRINTK( 1, ( "%s: Bus master arbitration failure (?!?), "
 745                               "status %04x.\n", dev->name, csr0 ));
 746                 /* Restart the chip. */
 747                 REGA(CSR0) = CSR0_STOP;
 748                 REGA(CSR3) = CSR3_BSWP;
 749                 lance_init_ring(dev);
 750                 REGA(CSR0) = CSR0_STRT | CSR0_INEA;
 751         }
 752
 753
 754     /* Clear any other interrupt, and set interrupt enable. */
 755 //      DREG = CSR0_BABL | CSR0_CERR | CSR0_MISS | CSR0_MERR |
 756 //                 CSR0_IDON | CSR0_INEA;
 757
 758         REGA(CSR0) = CSR0_INEA;
 759
 760         if(DREG & (CSR0_RINT | CSR0_TINT)) {
 761              DPRINTK(2, ("restarting interrupt, csr0=%#04x\n", DREG));
 762              goto still_more;
 763         }
 764
 765         DPRINTK( 2, ( "%s: exiting interrupt, csr0=%#04x.\n",
 766                                   dev->name, DREG ));
 767         in_interrupt = 0;
 768         return IRQ_HANDLED;
 769 }
 770
 771 /* get packet, toss into skbuff */
 772 static int lance_rx( struct net_device *dev )
 773 {
 774         struct lance_private *lp = netdev_priv(dev);
 775         int entry = lp->new_rx;
 776
 777         /* If we own the next entry, it's a new packet. Send it up. */
 778         while( (MEM->rx_head[entry].flag & RMD1_OWN) == RMD1_OWN_HOST ) {
 779                 struct lance_rx_head *head = &(MEM->rx_head[entry]);
 780                 int status = head->flag;
 781
 782                 if (status != (RMD1_ENP|RMD1_STP)) {  /* There was an error. */
 783                         /* There is a tricky error noted by John Murphy,
 784                            <murf@perftech.com> to Russ Nelson: Even with
 785                            full-sized buffers it's possible for a jabber packet to use two
 786                            buffers, with only the last correctly noting the error. */
 787                         if (status & RMD1_ENP)  /* Only count a general error at the */
 788                                 lp->stats.rx_errors++; /* end of a packet.*/
 789                         if (status & RMD1_FRAM) lp->stats.rx_frame_errors++;
 790                         if (status & RMD1_OFLO) lp->stats.rx_over_errors++;
 791                         if (status & RMD1_CRC) lp->stats.rx_crc_errors++;
 792                         if (status & RMD1_BUFF) lp->stats.rx_fifo_errors++;
 793                         head->flag &= (RMD1_ENP|RMD1_STP);
 794                 } else {
 795                         /* Malloc up new buffer, compatible with net-3. */
 796 //                      short pkt_len = head->msg_length;// & 0xfff;
 797                         short pkt_len = (head->msg_length & 0xfff) - 4;
 798                         struct sk_buff *skb;
 799
 800                         if (pkt_len < 60) {
 801                                 printk( "%s: Runt packet!\n", dev->name );
 802                                 lp->stats.rx_errors++;
 803                         }
 804                         else {
 805                                 skb = dev_alloc_skb( pkt_len+2 );
 806                                 if (skb == NULL) {
 807                                         DPRINTK( 1, ( "%s: Memory squeeze, deferring packet.\n",
 808                                                       dev->name ));
 809
 810                                         lp->stats.rx_dropped++;
 811                                         head->msg_length = 0;
 812                                         head->flag |= RMD1_OWN_CHIP;
 813                                         lp->new_rx = (lp->new_rx+1) &
 814                                              RX_RING_MOD_MASK;
 815                                 }
 816
 817 #if 0
 818                                 if (lance_debug >= 3) {
 819                                         u_char *data = PKTBUF_ADDR(head), *p;
 820                                         printk( "%s: RX pkt %d type 0x%04x from ", dev->name, entry, ((u_short *)data)[6]);
 821                                         for( p = &data[6], i = 0; i < 6; i++ )
 822                                                 printk("%02x%s", *p++, i != 5 ? ":" : "" );
 823                                         printk(" to ");
 824                                         for( p = data, i = 0; i < 6; i++ )
 825                                                 printk("%02x%s", *p++, i != 5 ? ":" : "" );
 826                                         printk(" data %02x %02x %02x %02x %02x %02x %02x %02x "
 827                                                "len %d at %08x\n",
 828                                                data[15], data[16], data[17], data[18],
 829                                                data[19], data[20], data[21], data[22],
 830                                                pkt_len, data);
 831                                 }
 832 #endif
 833                                 if (lance_debug >= 3) {
 834                                         u_char *data = PKTBUF_ADDR(head);
 835                                         printk( "%s: RX pkt %d type 0x%04x len %d\n ", dev->name, entry, ((u_short *)data)[6], pkt_len);
 836                                 }
 837
 838
 839                                 skb->dev = dev;
 840                                 skb_reserve( skb, 2 );  /* 16 byte align */
 841                                 skb_put( skb, pkt_len );        /* Make room */
 842 //                              memcpy( skb->data, PKTBUF_ADDR(head), pkt_len );
 843                                 eth_copy_and_sum(skb,
 844                                                  PKTBUF_ADDR(head),
 845                                                  pkt_len, 0);
 846
 847                                 skb->protocol = eth_type_trans( skb, dev );
 848                                 netif_rx( skb );
 849                                 dev->last_rx = jiffies;
 850                                 lp->stats.rx_packets++;
 851                                 lp->stats.rx_bytes += pkt_len;
 852                         }
 853                 }
 854
 855 //              head->buf_length = -PKT_BUF_SZ | 0xf000;
 856                 head->msg_length = 0;
 857                 head->flag = RMD1_OWN_CHIP;
 858
 859                 entry = lp->new_rx = (lp->new_rx +1) & RX_RING_MOD_MASK;
 860         }
 861
 862         /* From lance.c (Donald Becker): */
 863         /* We should check that at least two ring entries are free.
 864            If not, we should free one and mark stats->rx_dropped++. */
 865
 866         return 0;
 867 }
 868
 869
 870 static int lance_close( struct net_device *dev )
 871 {
 872         struct lance_private *lp = netdev_priv(dev);
 873
 874         netif_stop_queue(dev);
 875
 876         AREG = CSR0;
 877
 878         DPRINTK( 2, ( "%s: Shutting down ethercard, status was %2.2x.\n",
 879                                   dev->name, DREG ));
 880
 881         /* We stop the LANCE here -- it occasionally polls
 882            memory if we don't. */
 883         DREG = CSR0_STOP;
 884         return 0;
 885 }
 886
 887
 888 static struct net_device_stats *lance_get_stats( struct net_device *dev )
 889 {
 890         struct lance_private *lp = netdev_priv(dev);
 891
 892         return &lp->stats;
 893 }
 894
 895
 896 /* Set or clear the multicast filter for this adaptor.
 897    num_addrs == -1              Promiscuous mode, receive all packets
 898    num_addrs == 0               Normal mode, clear multicast list
 899    num_addrs > 0                Multicast mode, receive normal and MC packets, and do
 900                                                 best-effort filtering.
 901  */
 902
 903 /* completely untested on a sun3 */
 904 static void set_multicast_list( struct net_device *dev )
 905 {
 906         struct lance_private *lp = netdev_priv(dev);
 907
 908         if(netif_queue_stopped(dev))
 909                 /* Only possible if board is already started */
 910                 return;
 911
 912         /* We take the simple way out and always enable promiscuous mode. */
 913         DREG = CSR0_STOP; /* Temporarily stop the lance. */
 914
 915         if (dev->flags & IFF_PROMISC) {
 916                 /* Log any net taps. */
 917                 DPRINTK( 1, ( "%s: Promiscuous mode enabled.\n", dev->name ));
 918                 REGA( CSR15 ) = 0x8000; /* Set promiscuous mode */
 919         } else {
 920                 short multicast_table[4];
 921                 int num_addrs = dev->mc_count;
 922                 int i;
 923                 /* We don't use the multicast table, but rely on upper-layer
 924                  * filtering. */
 925                 memset( multicast_table, (num_addrs == 0) ? 0 : -1,
 926                                 sizeof(multicast_table) );
 927                 for( i = 0; i < 4; i++ )
 928                         REGA( CSR8+i ) = multicast_table[i];
 929                 REGA( CSR15 ) = 0; /* Unset promiscuous mode */
 930         }
 931
 932         /*
 933          * Always set BSWP after a STOP as STOP puts it back into
 934          * little endian mode.
 935          */
 936         REGA( CSR3 ) = CSR3_BSWP;
 937
 938         /* Resume normal operation and reset AREG to CSR0 */
 939         REGA( CSR0 ) = CSR0_IDON | CSR0_INEA | CSR0_STRT;
 940 }
 941
 942
 943 #ifdef MODULE
 944
 945 static struct net_device *sun3lance_dev;
 946
 947 int init_module(void)
 948 {
 949         sun3lance_dev = sun3lance_probe(-1);
 950         if (IS_ERR(sun3lance_dev))
 951                 return PTR_ERR(sun3lance_dev);
 952         return 0;
 953 }
 954
 955 void cleanup_module(void)
 956 {
 957         unregister_netdev(sun3lance_dev);
 958 #ifdef CONFIG_SUN3
 959         iounmap((void *)sun3lance_dev->base_addr);
 960 #endif
 961         free_netdev(sun3lance_dev);
 962 }
 963
 964 #endif /* MODULE */
 965