drivers/net/at1700.c

   1 /* at1700.c: A network device driver for  the Allied Telesis AT1700.
   2
   3         Written 1993-98 by Donald Becker.
   4
   5         Copyright 1993 United States Government as represented by the
   6         Director, National Security Agency.
   7
   8         This software may be used and distributed according to the terms
   9         of the GNU General Public License, incorporated herein by reference.
  10
  11         The author may be reached as becker@scyld.com, or C/O
  12         Scyld Computing Corporation
  13         410 Severn Ave., Suite 210
  14         Annapolis MD 21403
  15
  16         This is a device driver for the Allied Telesis AT1700, and
  17         Fujitsu FMV-181/182/181A/182A/183/184/183A/184A, which are
  18         straight-forward Fujitsu MB86965 implementations.
  19
  20         Modification for Fujitsu FMV-18X cards is done by Yutaka Tamiya
  21         (tamy@flab.fujitsu.co.jp).
  22
  23   Sources:
  24     The Fujitsu MB86965 datasheet.
  25
  26         After the initial version of this driver was written Gerry Sawkins of
  27         ATI provided their EEPROM configuration code header file.
  28     Thanks to NIIBE Yutaka <gniibe@mri.co.jp> for bug fixes.
  29
  30     MCA bus (AT1720) support by Rene Schmit <rene@bss.lu>
  31
  32   Bugs:
  33         The MB86965 has a design flaw that makes all probes unreliable.  Not
  34         only is it difficult to detect, it also moves around in I/O space in
  35         response to inb()s from other device probes!
  36 */
  37
  38 #include <linux/errno.h>
  39 #include <linux/netdevice.h>
  40 #include <linux/etherdevice.h>
  41 #include <linux/mca-legacy.h>
  42 #include <linux/module.h>
  43 #include <linux/kernel.h>
  44 #include <linux/types.h>
  45 #include <linux/fcntl.h>
  46 #include <linux/interrupt.h>
  47 #include <linux/ioport.h>
  48 #include <linux/in.h>
  49 #include <linux/skbuff.h>
  50 #include <linux/slab.h>
  51 #include <linux/string.h>
  52 #include <linux/init.h>
  53 #include <linux/crc32.h>
  54 #include <linux/bitops.h>
  55
  56 #include <asm/system.h>
  57 #include <asm/io.h>
  58 #include <asm/dma.h>
  59
  60 static char version[] __initdata =
  61         "at1700.c:v1.16 9/11/06  Donald Becker (becker@cesdis.gsfc.nasa.gov)\n";
  62
  63 #define DRV_NAME "at1700"
  64
  65 /* Tunable parameters. */
  66
  67 /* When to switch from the 64-entry multicast filter to Rx-all-multicast. */
  68 #define MC_FILTERBREAK 64
  69
  70 /* These unusual address orders are used to verify the CONFIG register. */
  71
  72 static int fmv18x_probe_list[] __initdata = {
  73         0x220, 0x240, 0x260, 0x280, 0x2a0, 0x2c0, 0x300, 0x340, 0
  74 };
  75
  76 /*
  77  *      ISA
  78  */
  79
  80 static unsigned at1700_probe_list[] __initdata = {
  81         0x260, 0x280, 0x2a0, 0x240, 0x340, 0x320, 0x380, 0x300, 0
  82 };
  83
  84 /*
  85  *      MCA
  86  */
  87 #ifdef CONFIG_MCA_LEGACY
  88 static int at1700_ioaddr_pattern[] __initdata = {
  89         0x00, 0x04, 0x01, 0x05, 0x02, 0x06, 0x03, 0x07
  90 };
  91
  92 static int at1700_mca_probe_list[] __initdata = {
  93         0x400, 0x1400, 0x2400, 0x3400, 0x4400, 0x5400, 0x6400, 0x7400, 0
  94 };
  95
  96 static int at1700_irq_pattern[] __initdata = {
  97         0x00, 0x00, 0x00, 0x30, 0x70, 0xb0, 0x00, 0x00,
  98         0x00, 0xf0, 0x34, 0x74, 0xb4, 0x00, 0x00, 0xf4, 0x00
  99 };
 100 #endif
 101
 102 /* use 0 for production, 1 for verification, >2 for debug */
 103 #ifndef NET_DEBUG
 104 #define NET_DEBUG 1
 105 #endif
 106 static unsigned int net_debug = NET_DEBUG;
 107
 108 typedef unsigned char uchar;
 109
 110 /* Information that need to be kept for each board. */
 111 struct net_local {
 112         spinlock_t lock;
 113         unsigned char mc_filter[8];
 114         uint jumpered:1;                        /* Set iff the board has jumper config. */
 115         uint tx_started:1;                      /* Packets are on the Tx queue. */
 116         uint tx_queue_ready:1;                  /* Tx queue is ready to be sent. */
 117         uint rx_started:1;                      /* Packets are Rxing. */
 118         uchar tx_queue;                         /* Number of packet on the Tx queue. */
 119         char mca_slot;                          /* -1 means ISA */
 120         ushort tx_queue_len;                    /* Current length of the Tx queue. */
 121 };
 122
 123
 124 /* Offsets from the base address. */
 125 #define STATUS                  0
 126 #define TX_STATUS               0
 127 #define RX_STATUS               1
 128 #define TX_INTR                 2               /* Bit-mapped interrupt enable registers. */
 129 #define RX_INTR                 3
 130 #define TX_MODE                 4
 131 #define RX_MODE                 5
 132 #define CONFIG_0                6               /* Misc. configuration settings. */
 133 #define CONFIG_1                7
 134 /* Run-time register bank 2 definitions. */
 135 #define DATAPORT                8               /* Word-wide DMA or programmed-I/O dataport. */
 136 #define TX_START                10
 137 #define COL16CNTL               11              /* Controll Reg for 16 collisions */
 138 #define MODE13                  13
 139 #define RX_CTRL                 14
 140 /* Configuration registers only on the '865A/B chips. */
 141 #define EEPROM_Ctrl     16
 142 #define EEPROM_Data     17
 143 #define CARDSTATUS      16                      /* FMV-18x Card Status */
 144 #define CARDSTATUS1     17                      /* FMV-18x Card Status */
 145 #define IOCONFIG                18              /* Either read the jumper, or move the I/O. */
 146 #define IOCONFIG1               19
 147 #define SAPROM                  20              /* The station address PROM, if no EEPROM. */
 148 #define MODE24                  24
 149 #define RESET                   31              /* Write to reset some parts of the chip. */
 150 #define AT1700_IO_EXTENT        32
 151 #define PORT_OFFSET(o) (o)
 152
 153
 154 #define TX_TIMEOUT              10
 155
 156
 157 /* Index to functions, as function prototypes. */
 158
 159 static int at1700_probe1(struct net_device *dev, int ioaddr);
 160 static int read_eeprom(long ioaddr, int location);
 161 static int net_open(struct net_device *dev);
 162 static int      net_send_packet(struct sk_buff *skb, struct net_device *dev);
 163 static irqreturn_t net_interrupt(int irq, void *dev_id);
 164 static void net_rx(struct net_device *dev);
 165 static int net_close(struct net_device *dev);
 166 static void set_rx_mode(struct net_device *dev);
 167 static void net_tx_timeout (struct net_device *dev);
 168
 169
 170 #ifdef CONFIG_MCA_LEGACY
 171 struct at1720_mca_adapters_struct {
 172         char* name;
 173         int id;
 174 };
 175 /* rEnE : maybe there are others I don't know off... */
 176
 177 static struct at1720_mca_adapters_struct at1720_mca_adapters[] __initdata = {
 178         { "Allied Telesys AT1720AT",    0x6410 },
 179         { "Allied Telesys AT1720BT",    0x6413 },
 180         { "Allied Telesys AT1720T",     0x6416 },
 181         { NULL, 0 },
 182 };
 183 #endif
 184
 185 /* Check for a network adaptor of this type, and return '0' iff one exists.
 186    If dev->base_addr == 0, probe all likely locations.
 187    If dev->base_addr == 1, always return failure.
 188    If dev->base_addr == 2, allocate space for the device and return success
 189    (detachable devices only).
 190    */
 191
 192 static int io = 0x260;
 193
 194 static int irq;
 195
 196 static void cleanup_card(struct net_device *dev)
 197 {
 198 #ifdef CONFIG_MCA_LEGACY
 199         struct net_local *lp = netdev_priv(dev);
 200         if (lp->mca_slot >= 0)
 201                 mca_mark_as_unused(lp->mca_slot);
 202 #endif
 203         free_irq(dev->irq, NULL);
 204         release_region(dev->base_addr, AT1700_IO_EXTENT);
 205 }
 206
 207 struct net_device * __init at1700_probe(int unit)
 208 {
 209         struct net_device *dev = alloc_etherdev(sizeof(struct net_local));
 210         unsigned *port;
 211         int err = 0;
 212
 213         if (!dev)
 214                 return ERR_PTR(-ENODEV);
 215
 216         if (unit >= 0) {
 217                 sprintf(dev->name, "eth%d", unit);
 218                 netdev_boot_setup_check(dev);
 219                 io = dev->base_addr;
 220                 irq = dev->irq;
 221         } else {
 222                 dev->base_addr = io;
 223                 dev->irq = irq;
 224         }
 225
 226         if (io > 0x1ff) {       /* Check a single specified location. */
 227                 err = at1700_probe1(dev, io);
 228         } else if (io != 0) {   /* Don't probe at all. */
 229                 err = -ENXIO;
 230         } else {
 231                 for (port = at1700_probe_list; *port; port++) {
 232                         if (at1700_probe1(dev, *port) == 0)
 233                                 break;
 234                         dev->irq = irq;
 235                 }
 236                 if (!*port)
 237                         err = -ENODEV;
 238         }
 239         if (err)
 240                 goto out;
 241         err = register_netdev(dev);
 242         if (err)
 243                 goto out1;
 244         return dev;
 245 out1:
 246         cleanup_card(dev);
 247 out:
 248         free_netdev(dev);
 249         return ERR_PTR(err);
 250 }
 251
 252 /* The Fujitsu datasheet suggests that the NIC be probed for by checking its
 253    "signature", the default bit pattern after a reset.  This *doesn't* work --
 254    there is no way to reset the bus interface without a complete power-cycle!
 255
 256    It turns out that ATI came to the same conclusion I did: the only thing
 257    that can be done is checking a few bits and then diving right into an
 258    EEPROM read. */
 259
 260 static int __init at1700_probe1(struct net_device *dev, int ioaddr)
 261 {
 262         char fmv_irqmap[4] = {3, 7, 10, 15};
 263         char fmv_irqmap_pnp[8] = {3, 4, 5, 7, 9, 10, 11, 15};
 264         char at1700_irqmap[8] = {3, 4, 5, 9, 10, 11, 14, 15};
 265         unsigned int i, irq, is_fmv18x = 0, is_at1700 = 0;
 266         int slot, ret = -ENODEV;
 267         struct net_local *lp = netdev_priv(dev);
 268
 269         if (!request_region(ioaddr, AT1700_IO_EXTENT, DRV_NAME))
 270                 return -EBUSY;
 271
 272         /* Resetting the chip doesn't reset the ISA interface, so don't bother.
 273            That means we have to be careful with the register values we probe
 274            for.
 275          */
 276 #ifdef notdef
 277         printk("at1700 probe at %#x, eeprom is %4.4x %4.4x %4.4x ctrl %4.4x.\n",
 278                    ioaddr, read_eeprom(ioaddr, 4), read_eeprom(ioaddr, 5),
 279                    read_eeprom(ioaddr, 6), inw(ioaddr + EEPROM_Ctrl));
 280 #endif
 281
 282 #ifdef CONFIG_MCA_LEGACY
 283         /* rEnE (rene@bss.lu): got this from 3c509 driver source , adapted for AT1720 */
 284
 285     /* Based on Erik Nygren's (nygren@mit.edu) 3c529 patch, heavily
 286         modified by Chris Beauregard (cpbeaure@csclub.uwaterloo.ca)
 287         to support standard MCA probing. */
 288
 289         /* redone for multi-card detection by ZP Gu (zpg@castle.net) */
 290         /* now works as a module */
 291
 292         if (MCA_bus) {
 293                 int j;
 294                 int l_i;
 295                 u_char pos3, pos4;
 296
 297                 for (j = 0; at1720_mca_adapters[j].name != NULL; j ++) {
 298                         slot = 0;
 299                         while (slot != MCA_NOTFOUND) {
 300
 301                                 slot = mca_find_unused_adapter( at1720_mca_adapters[j].id, slot );
 302                                 if (slot == MCA_NOTFOUND) break;
 303
 304                                 /* if we get this far, an adapter has been detected and is
 305                                 enabled */
 306
 307                                 pos3 = mca_read_stored_pos( slot, 3 );
 308                                 pos4 = mca_read_stored_pos( slot, 4 );
 309
 310                                 for (l_i = 0; l_i < 0x09; l_i++)
 311                                         if (( pos3 & 0x07) == at1700_ioaddr_pattern[l_i])
 312                                                 break;
 313                                 ioaddr = at1700_mca_probe_list[l_i];
 314
 315                                 for (irq = 0; irq < 0x10; irq++)
 316                                         if (((((pos4>>4) & 0x0f) | (pos3 & 0xf0)) & 0xff) == at1700_irq_pattern[irq])
 317                                                 break;
 318
 319                                         /* probing for a card at a particular IO/IRQ */
 320                                 if ((dev->irq && dev->irq != irq) ||
 321                                     (dev->base_addr && dev->base_addr != ioaddr)) {
 322                                         slot++;         /* probing next slot */
 323                                         continue;
 324                                 }
 325
 326                                 dev->irq = irq;
 327
 328                                 /* claim the slot */
 329                                 mca_set_adapter_name( slot, at1720_mca_adapters[j].name );
 330                                 mca_mark_as_used(slot);
 331
 332                                 goto found;
 333                         }
 334                 }
 335                 /* if we get here, we didn't find an MCA adapter - try ISA */
 336         }
 337 #endif
 338         slot = -1;
 339         /* We must check for the EEPROM-config boards first, else accessing
 340            IOCONFIG0 will move the board! */
 341         if (at1700_probe_list[inb(ioaddr + IOCONFIG1) & 0x07] == ioaddr
 342                 && read_eeprom(ioaddr, 4) == 0x0000
 343                 && (read_eeprom(ioaddr, 5) & 0xff00) == 0xF400)
 344                 is_at1700 = 1;
 345         else if (inb(ioaddr   + SAPROM    ) == 0x00
 346                 && inb(ioaddr + SAPROM + 1) == 0x00
 347                 && inb(ioaddr + SAPROM + 2) == 0x0e)
 348                 is_fmv18x = 1;
 349         else {
 350                 goto err_out;
 351         }
 352
 353 #ifdef CONFIG_MCA_LEGACY
 354 found:
 355 #endif
 356
 357                 /* Reset the internal state machines. */
 358         outb(0, ioaddr + RESET);
 359
 360         if (is_at1700) {
 361                 irq = at1700_irqmap[(read_eeprom(ioaddr, 12)&0x04)
 362                                                    | (read_eeprom(ioaddr, 0)>>14)];
 363         } else {
 364                 /* Check PnP mode for FMV-183/184/183A/184A. */
 365                 /* This PnP routine is very poor. IO and IRQ should be known. */
 366                 if (inb(ioaddr + CARDSTATUS1) & 0x20) {
 367                         irq = dev->irq;
 368                         for (i = 0; i < 8; i++) {
 369                                 if (irq == fmv_irqmap_pnp[i])
 370                                         break;
 371                         }
 372                         if (i == 8) {
 373                                 goto err_mca;
 374                         }
 375                 } else {
 376                         if (fmv18x_probe_list[inb(ioaddr + IOCONFIG) & 0x07] != ioaddr)
 377                                 goto err_mca;
 378                         irq = fmv_irqmap[(inb(ioaddr + IOCONFIG)>>6) & 0x03];
 379                 }
 380         }
 381
 382         printk("%s: %s found at %#3x, IRQ %d, address ", dev->name,
 383                    is_at1700 ? "AT1700" : "FMV-18X", ioaddr, irq);
 384
 385         dev->base_addr = ioaddr;
 386         dev->irq = irq;
 387
 388         if (is_at1700) {
 389                 for(i = 0; i < 3; i++) {
 390                         unsigned short eeprom_val = read_eeprom(ioaddr, 4+i);
 391                         ((unsigned short *)dev->dev_addr)[i] = ntohs(eeprom_val);
 392                 }
 393         } else {
 394                 for(i = 0; i < 6; i++) {
 395                         unsigned char val = inb(ioaddr + SAPROM + i);
 396                         dev->dev_addr[i] = val;
 397                 }
 398         }
 399         printk("%pM", dev->dev_addr);
 400
 401         /* The EEPROM word 12 bit 0x0400 means use regular 100 ohm 10baseT signals,
 402            rather than 150 ohm shielded twisted pair compensation.
 403            0x0000 == auto-sense the interface
 404            0x0800 == use TP interface
 405            0x1800 == use coax interface
 406            */
 407         {
 408                 const char *porttype[] = {"auto-sense", "10baseT", "auto-sense", "10base2"};
 409                 if (is_at1700) {
 410                         ushort setup_value = read_eeprom(ioaddr, 12);
 411                         dev->if_port = setup_value >> 8;
 412                 } else {
 413                         ushort setup_value = inb(ioaddr + CARDSTATUS);
 414                         switch (setup_value & 0x07) {
 415                         case 0x01: /* 10base5 */
 416                         case 0x02: /* 10base2 */
 417                                 dev->if_port = 0x18; break;
 418                         case 0x04: /* 10baseT */
 419                                 dev->if_port = 0x08; break;
 420                         default:   /* auto-sense */
 421                                 dev->if_port = 0x00; break;
 422                         }
 423                 }
 424                 printk(" %s interface.\n", porttype[(dev->if_port>>3) & 3]);
 425         }
 426
 427         /* Set the configuration register 0 to 32K 100ns. byte-wide memory, 16 bit
 428            bus access, two 4K Tx queues, and disabled Tx and Rx. */
 429         outb(0xda, ioaddr + CONFIG_0);
 430
 431         /* Set the station address in bank zero. */
 432         outb(0x00, ioaddr + CONFIG_1);
 433         for (i = 0; i < 6; i++)
 434                 outb(dev->dev_addr[i], ioaddr + PORT_OFFSET(8 + i));
 435
 436         /* Switch to bank 1 and set the multicast table to accept none. */
 437         outb(0x04, ioaddr + CONFIG_1);
 438         for (i = 0; i < 8; i++)
 439                 outb(0x00, ioaddr + PORT_OFFSET(8 + i));
 440
 441
 442         /* Switch to bank 2 */
 443         /* Lock our I/O address, and set manual processing mode for 16 collisions. */
 444         outb(0x08, ioaddr + CONFIG_1);
 445         outb(dev->if_port, ioaddr + MODE13);
 446         outb(0x00, ioaddr + COL16CNTL);
 447
 448         if (net_debug)
 449                 printk(version);
 450
 451         memset(lp, 0, sizeof(struct net_local));
 452
 453         dev->open               = net_open;
 454         dev->stop               = net_close;
 455         dev->hard_start_xmit = net_send_packet;
 456         dev->set_multicast_list = &set_rx_mode;
 457         dev->tx_timeout = net_tx_timeout;
 458         dev->watchdog_timeo = TX_TIMEOUT;
 459
 460         spin_lock_init(&lp->lock);
 461
 462         lp->jumpered = is_fmv18x;
 463         lp->mca_slot = slot;
 464         /* Snarf the interrupt vector now. */
 465         ret = request_irq(irq, &net_interrupt, 0, DRV_NAME, dev);
 466         if (ret) {
 467                 printk(KERN_ERR "AT1700 at %#3x is unusable due to a "
 468                        "conflict on IRQ %d.\n",
 469                        ioaddr, irq);
 470                 goto err_mca;
 471         }
 472
 473         return 0;
 474
 475 err_mca:
 476 #ifdef CONFIG_MCA_LEGACY
 477         if (slot >= 0)
 478                 mca_mark_as_unused(slot);
 479 #endif
 480 err_out:
 481         release_region(ioaddr, AT1700_IO_EXTENT);
 482         return ret;
 483 }
 484
 485
 486 /*  EEPROM_Ctrl bits. */
 487 #define EE_SHIFT_CLK    0x40    /* EEPROM shift clock, in reg. 16. */
 488 #define EE_CS                   0x20    /* EEPROM chip select, in reg. 16. */
 489 #define EE_DATA_WRITE   0x80    /* EEPROM chip data in, in reg. 17. */
 490 #define EE_DATA_READ    0x80    /* EEPROM chip data out, in reg. 17. */
 491
 492 /* The EEPROM commands include the alway-set leading bit. */
 493 #define EE_WRITE_CMD    (5 << 6)
 494 #define EE_READ_CMD             (6 << 6)
 495 #define EE_ERASE_CMD    (7 << 6)
 496
 497 static int __init read_eeprom(long ioaddr, int location)
 498 {
 499         int i;
 500         unsigned short retval = 0;
 501         long ee_addr = ioaddr + EEPROM_Ctrl;
 502         long ee_daddr = ioaddr + EEPROM_Data;
 503         int read_cmd = location | EE_READ_CMD;
 504
 505         /* Shift the read command bits out. */
 506         for (i = 9; i >= 0; i--) {
 507                 short dataval = (read_cmd & (1 << i)) ? EE_DATA_WRITE : 0;
 508                 outb(EE_CS, ee_addr);
 509                 outb(dataval, ee_daddr);
 510                 outb(EE_CS | EE_SHIFT_CLK, ee_addr);    /* EEPROM clock tick. */
 511         }
 512         outb(EE_DATA_WRITE, ee_daddr);
 513         for (i = 16; i > 0; i--) {
 514                 outb(EE_CS, ee_addr);
 515                 outb(EE_CS | EE_SHIFT_CLK, ee_addr);
 516                 retval = (retval << 1) | ((inb(ee_daddr) & EE_DATA_READ) ? 1 : 0);
 517         }
 518
 519         /* Terminate the EEPROM access. */
 520         outb(EE_CS, ee_addr);
 521         outb(EE_SHIFT_CLK, ee_addr);
 522         outb(0, ee_addr);
 523         return retval;
 524 }
 525
 526
 527
 528 static int net_open(struct net_device *dev)
 529 {
 530         struct net_local *lp = netdev_priv(dev);
 531         int ioaddr = dev->base_addr;
 532
 533         /* Set the configuration register 0 to 32K 100ns. byte-wide memory, 16 bit
 534            bus access, and two 4K Tx queues. */
 535         outb(0x5a, ioaddr + CONFIG_0);
 536
 537         /* Powerup, switch to register bank 2, and enable the Rx and Tx. */
 538         outb(0xe8, ioaddr + CONFIG_1);
 539
 540         lp->tx_started = 0;
 541         lp->tx_queue_ready = 1;
 542         lp->rx_started = 0;
 543         lp->tx_queue = 0;
 544         lp->tx_queue_len = 0;
 545
 546         /* Turn on hardware Tx and Rx interrupts. */
 547         outb(0x82, ioaddr + TX_INTR);
 548         outb(0x81, ioaddr + RX_INTR);
 549
 550         /* Enable the IRQ on boards of fmv18x it is feasible. */
 551         if (lp->jumpered) {
 552                 outb(0x80, ioaddr + IOCONFIG1);
 553         }
 554
 555         netif_start_queue(dev);
 556         return 0;
 557 }
 558
 559 static void net_tx_timeout (struct net_device *dev)
 560 {
 561         struct net_local *lp = netdev_priv(dev);
 562         int ioaddr = dev->base_addr;
 563
 564         printk ("%s: transmit timed out with status %04x, %s?\n", dev->name,
 565                 inw (ioaddr + STATUS), inb (ioaddr + TX_STATUS) & 0x80
 566                 ? "IRQ conflict" : "network cable problem");
 567         printk ("%s: timeout registers: %04x %04x %04x %04x %04x %04x %04x %04x.\n",
 568          dev->name, inw(ioaddr + TX_STATUS), inw(ioaddr + TX_INTR), inw(ioaddr + TX_MODE),
 569                 inw(ioaddr + CONFIG_0), inw(ioaddr + DATAPORT), inw(ioaddr + TX_START),
 570                 inw(ioaddr + MODE13 - 1), inw(ioaddr + RX_CTRL));
 571         dev->stats.tx_errors++;
 572         /* ToDo: We should try to restart the adaptor... */
 573         outw(0xffff, ioaddr + MODE24);
 574         outw (0xffff, ioaddr + TX_STATUS);
 575         outb (0x5a, ioaddr + CONFIG_0);
 576         outb (0xe8, ioaddr + CONFIG_1);
 577         outw (0x8182, ioaddr + TX_INTR);
 578         outb (0x00, ioaddr + TX_START);
 579         outb (0x03, ioaddr + COL16CNTL);
 580
 581         dev->trans_start = jiffies;
 582
 583         lp->tx_started = 0;
 584         lp->tx_queue_ready = 1;
 585         lp->rx_started = 0;
 586         lp->tx_queue = 0;
 587         lp->tx_queue_len = 0;
 588
 589         netif_wake_queue(dev);
 590 }
 591
 592
 593 static int net_send_packet (struct sk_buff *skb, struct net_device *dev)
 594 {
 595         struct net_local *lp = netdev_priv(dev);
 596         int ioaddr = dev->base_addr;
 597         short length = ETH_ZLEN < skb->len ? skb->len : ETH_ZLEN;
 598         short len = skb->len;
 599         unsigned char *buf = skb->data;
 600         static u8 pad[ETH_ZLEN];
 601
 602         netif_stop_queue (dev);
 603
 604         /* We may not start transmitting unless we finish transferring
 605            a packet into the Tx queue. During executing the following
 606            codes we possibly catch a Tx interrupt. Thus we flag off
 607            tx_queue_ready, so that we prevent the interrupt routine
 608            (net_interrupt) to start transmitting. */
 609         lp->tx_queue_ready = 0;
 610         {
 611                 outw (length, ioaddr + DATAPORT);
 612                 /* Packet data */
 613                 outsw (ioaddr + DATAPORT, buf, len >> 1);
 614                 /* Check for dribble byte */
 615                 if (len & 1) {
 616                         outw(skb->data[skb->len-1], ioaddr + DATAPORT);
 617                         len++;
 618                 }
 619                 /* Check for packet padding */
 620                 if (length != skb->len)
 621                         outsw(ioaddr + DATAPORT, pad, (length - len + 1) >> 1);
 622
 623                 lp->tx_queue++;
 624                 lp->tx_queue_len += length + 2;
 625         }
 626         lp->tx_queue_ready = 1;
 627
 628         if (lp->tx_started == 0) {
 629                 /* If the Tx is idle, always trigger a transmit. */
 630                 outb (0x80 | lp->tx_queue, ioaddr + TX_START);
 631                 lp->tx_queue = 0;
 632                 lp->tx_queue_len = 0;
 633                 dev->trans_start = jiffies;
 634                 lp->tx_started = 1;
 635                 netif_start_queue (dev);
 636         } else if (lp->tx_queue_len < 4096 - 1502)
 637                 /* Yes, there is room for one more packet. */
 638                 netif_start_queue (dev);
 639         dev_kfree_skb (skb);
 640
 641         return 0;
 642 }
 643
 644 /* The typical workload of the driver:
 645    Handle the network interface interrupts. */
 646 static irqreturn_t net_interrupt(int irq, void *dev_id)
 647 {
 648         struct net_device *dev = dev_id;
 649         struct net_local *lp;
 650         int ioaddr, status;
 651         int handled = 0;
 652
 653         if (dev == NULL) {
 654                 printk ("at1700_interrupt(): irq %d for unknown device.\n", irq);
 655                 return IRQ_NONE;
 656         }
 657
 658         ioaddr = dev->base_addr;
 659         lp = netdev_priv(dev);
 660
 661         spin_lock (&lp->lock);
 662
 663         status = inw(ioaddr + TX_STATUS);
 664         outw(status, ioaddr + TX_STATUS);
 665
 666         if (net_debug > 4)
 667                 printk("%s: Interrupt with status %04x.\n", dev->name, status);
 668         if (lp->rx_started == 0 &&
 669             (status & 0xff00 || (inb(ioaddr + RX_MODE) & 0x40) == 0)) {
 670                 /* Got a packet(s).
 671                    We cannot execute net_rx more than once at the same time for
 672                    the same device. During executing net_rx, we possibly catch a
 673                    Tx interrupt. Thus we flag on rx_started, so that we prevent
 674                    the interrupt routine (net_interrupt) to dive into net_rx
 675                    again. */
 676                 handled = 1;
 677                 lp->rx_started = 1;
 678                 outb(0x00, ioaddr + RX_INTR);   /* Disable RX intr. */
 679                 net_rx(dev);
 680                 outb(0x81, ioaddr + RX_INTR);   /* Enable  RX intr. */
 681                 lp->rx_started = 0;
 682         }
 683         if (status & 0x00ff) {
 684                 handled = 1;
 685                 if (status & 0x02) {
 686                         /* More than 16 collisions occurred */
 687                         if (net_debug > 4)
 688                                 printk("%s: 16 Collision occur during Txing.\n", dev->name);
 689                         /* Cancel sending a packet. */
 690                         outb(0x03, ioaddr + COL16CNTL);
 691                         dev->stats.collisions++;
 692                 }
 693                 if (status & 0x82) {
 694                         dev->stats.tx_packets++;
 695                         /* The Tx queue has any packets and is not being
 696                            transferred a packet from the host, start
 697                            transmitting. */
 698                         if (lp->tx_queue && lp->tx_queue_ready) {
 699                                 outb(0x80 | lp->tx_queue, ioaddr + TX_START);
 700                                 lp->tx_queue = 0;
 701                                 lp->tx_queue_len = 0;
 702                                 dev->trans_start = jiffies;
 703                                 netif_wake_queue (dev);
 704                         } else {
 705                                 lp->tx_started = 0;
 706                                 netif_wake_queue (dev);
 707                         }
 708                 }
 709         }
 710
 711         spin_unlock (&lp->lock);
 712         return IRQ_RETVAL(handled);
 713 }
 714
 715 /* We have a good packet(s), get it/them out of the buffers. */
 716 static void
 717 net_rx(struct net_device *dev)
 718 {
 719         int ioaddr = dev->base_addr;
 720         int boguscount = 5;
 721
 722         while ((inb(ioaddr + RX_MODE) & 0x40) == 0) {
 723                 ushort status = inw(ioaddr + DATAPORT);
 724                 ushort pkt_len = inw(ioaddr + DATAPORT);
 725
 726                 if (net_debug > 4)
 727                         printk("%s: Rxing packet mode %02x status %04x.\n",
 728                                    dev->name, inb(ioaddr + RX_MODE), status);
 729 #ifndef final_version
 730                 if (status == 0) {
 731                         outb(0x05, ioaddr + RX_CTRL);
 732                         break;
 733                 }
 734 #endif
 735
 736                 if ((status & 0xF0) != 0x20) {  /* There was an error. */
 737                         dev->stats.rx_errors++;
 738                         if (status & 0x08) dev->stats.rx_length_errors++;
 739                         if (status & 0x04) dev->stats.rx_frame_errors++;
 740                         if (status & 0x02) dev->stats.rx_crc_errors++;
 741                         if (status & 0x01) dev->stats.rx_over_errors++;
 742                 } else {
 743                         /* Malloc up new buffer. */
 744                         struct sk_buff *skb;
 745
 746                         if (pkt_len > 1550) {
 747                                 printk("%s: The AT1700 claimed a very large packet, size %d.\n",
 748                                            dev->name, pkt_len);
 749                                 /* Prime the FIFO and then flush the packet. */
 750                                 inw(ioaddr + DATAPORT); inw(ioaddr + DATAPORT);
 751                                 outb(0x05, ioaddr + RX_CTRL);
 752                                 dev->stats.rx_errors++;
 753                                 break;
 754                         }
 755                         skb = dev_alloc_skb(pkt_len+3);
 756                         if (skb == NULL) {
 757                                 printk("%s: Memory squeeze, dropping packet (len %d).\n",
 758                                            dev->name, pkt_len);
 759                                 /* Prime the FIFO and then flush the packet. */
 760                                 inw(ioaddr + DATAPORT); inw(ioaddr + DATAPORT);
 761                                 outb(0x05, ioaddr + RX_CTRL);
 762                                 dev->stats.rx_dropped++;
 763                                 break;
 764                         }
 765                         skb_reserve(skb,2);
 766
 767                         insw(ioaddr + DATAPORT, skb_put(skb,pkt_len), (pkt_len + 1) >> 1);
 768                         skb->protocol=eth_type_trans(skb, dev);
 769                         netif_rx(skb);
 770                         dev->stats.rx_packets++;
 771                         dev->stats.rx_bytes += pkt_len;
 772                 }
 773                 if (--boguscount <= 0)
 774                         break;
 775         }
 776
 777         /* If any worth-while packets have been received, dev_rint()
 778            has done a mark_bh(NET_BH) for us and will work on them
 779            when we get to the bottom-half routine. */
 780         {
 781                 int i;
 782                 for (i = 0; i < 20; i++) {
 783                         if ((inb(ioaddr + RX_MODE) & 0x40) == 0x40)
 784                                 break;
 785                         inw(ioaddr + DATAPORT);                         /* dummy status read */
 786                         outb(0x05, ioaddr + RX_CTRL);
 787                 }
 788
 789                 if (net_debug > 5)
 790                         printk("%s: Exint Rx packet with mode %02x after %d ticks.\n",
 791                                    dev->name, inb(ioaddr + RX_MODE), i);
 792         }
 793         return;
 794 }
 795
 796 /* The inverse routine to net_open(). */
 797 static int net_close(struct net_device *dev)
 798 {
 799         struct net_local *lp = netdev_priv(dev);
 800         int ioaddr = dev->base_addr;
 801
 802         netif_stop_queue(dev);
 803
 804         /* Set configuration register 0 to disable Tx and Rx. */
 805         outb(0xda, ioaddr + CONFIG_0);
 806
 807         /* No statistic counters on the chip to update. */
 808
 809         /* Disable the IRQ on boards of fmv18x where it is feasible. */
 810         if (lp->jumpered) {
 811                 outb(0x00, ioaddr + IOCONFIG1);
 812                 free_irq(dev->irq, dev);
 813         }
 814
 815         /* Power-down the chip.  Green, green, green! */
 816         outb(0x00, ioaddr + CONFIG_1);
 817         return 0;
 818 }
 819
 820 /*
 821   Set the multicast/promiscuous mode for this adaptor.
 822 */
 823
 824 static void
 825 set_rx_mode(struct net_device *dev)
 826 {
 827         int ioaddr = dev->base_addr;
 828         struct net_local *lp = netdev_priv(dev);
 829         unsigned char mc_filter[8];              /* Multicast hash filter */
 830         unsigned long flags;
 831         int i;
 832
 833         if (dev->flags & IFF_PROMISC) {
 834                 memset(mc_filter, 0xff, sizeof(mc_filter));
 835                 outb(3, ioaddr + RX_MODE);      /* Enable promiscuous mode */
 836         } else if (dev->mc_count > MC_FILTERBREAK
 837                            ||  (dev->flags & IFF_ALLMULTI)) {
 838                 /* Too many to filter perfectly -- accept all multicasts. */
 839                 memset(mc_filter, 0xff, sizeof(mc_filter));
 840                 outb(2, ioaddr + RX_MODE);      /* Use normal mode. */
 841         } else if (dev->mc_count == 0) {
 842                 memset(mc_filter, 0x00, sizeof(mc_filter));
 843                 outb(1, ioaddr + RX_MODE);      /* Ignore almost all multicasts. */
 844         } else {
 845                 struct dev_mc_list *mclist;
 846                 int i;
 847
 848                 memset(mc_filter, 0, sizeof(mc_filter));
 849                 for (i = 0, mclist = dev->mc_list; mclist && i < dev->mc_count;
 850                          i++, mclist = mclist->next) {
 851                         unsigned int bit =
 852                                 ether_crc_le(ETH_ALEN, mclist->dmi_addr) >> 26;
 853                         mc_filter[bit >> 3] |= (1 << bit);
 854                 }
 855                 outb(0x02, ioaddr + RX_MODE);   /* Use normal mode. */
 856         }
 857
 858         spin_lock_irqsave (&lp->lock, flags);
 859         if (memcmp(mc_filter, lp->mc_filter, sizeof(mc_filter))) {
 860                 int saved_bank = inw(ioaddr + CONFIG_0);
 861                 /* Switch to bank 1 and set the multicast table. */
 862                 outw((saved_bank & ~0x0C00) | 0x0480, ioaddr + CONFIG_0);
 863                 for (i = 0; i < 8; i++)
 864                         outb(mc_filter[i], ioaddr + PORT_OFFSET(8 + i));
 865                 memcpy(lp->mc_filter, mc_filter, sizeof(mc_filter));
 866                 outw(saved_bank, ioaddr + CONFIG_0);
 867         }
 868         spin_unlock_irqrestore (&lp->lock, flags);
 869         return;
 870 }
 871
 872 #ifdef MODULE
 873 static struct net_device *dev_at1700;
 874
 875 module_param(io, int, 0);
 876 module_param(irq, int, 0);
 877 module_param(net_debug, int, 0);
 878 MODULE_PARM_DESC(io, "AT1700/FMV18X I/O base address");
 879 MODULE_PARM_DESC(irq, "AT1700/FMV18X IRQ number");
 880 MODULE_PARM_DESC(net_debug, "AT1700/FMV18X debug level (0-6)");
 881
 882 static int __init at1700_module_init(void)
 883 {
 884         if (io == 0)
 885                 printk("at1700: You should not use auto-probing with insmod!\n");
 886         dev_at1700 = at1700_probe(-1);
 887         if (IS_ERR(dev_at1700))
 888                 return PTR_ERR(dev_at1700);
 889         return 0;
 890 }
 891
 892 static void __exit at1700_module_exit(void)
 893 {
 894         unregister_netdev(dev_at1700);
 895         cleanup_card(dev_at1700);
 896         free_netdev(dev_at1700);
 897 }
 898 module_init(at1700_module_init);
 899 module_exit(at1700_module_exit);
 900 #endif /* MODULE */
 901 MODULE_LICENSE("GPL");
 902
 903
 904 /*
 905  * Local variables:
 906  *  compile-command: "gcc -DMODULE -D__KERNEL__ -Wall -Wstrict-prototypes -O6 -c at1700.c"
 907  *  alt-compile-command: "gcc -DMODVERSIONS -DMODULE -D__KERNEL__ -Wall -Wstrict-prototypes -O6 -c at1700.c"
 908  *  tab-width: 4
 909  *  c-basic-offset: 4
 910  *  c-indent-level: 4
 911  * End:
 912  */
 913