sys/dev/ex/if_ex.c

   1 /*
   2  * Copyright (c) 1996, Javier Martín Rueda (jmrueda@diatel.upm.es)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice unmodified, this list of conditions, and the following
  10  *    disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  14  *
  15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18  * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25  * SUCH DAMAGE.
  26  *
  27  * $FreeBSD$
  28  *
  29  * MAINTAINER: Matthew N. Dodd <winter@jurai.net>
  30  *                             <mdodd@FreeBSD.org>
  31  */
  32
  33 /*
  34  * Intel EtherExpress Pro/10, Pro/10+ Ethernet driver
  35  *
  36  * Revision history:
  37  *
  38  * 30-Oct-1996: first beta version. Inet and BPF supported, but no multicast.
  39  */
  40
  41 #include <sys/param.h>
  42 #include <sys/systm.h>
  43 #include <sys/kernel.h>
  44 #include <sys/sockio.h>
  45 #include <sys/mbuf.h>
  46 #include <sys/socket.h>
  47
  48 #include <sys/module.h>
  49 #include <sys/bus.h>
  50
  51 #include <machine/bus.h>
  52 #include <machine/resource.h>
  53 #include <sys/rman.h>
  54
  55 #include <net/if.h>
  56 #include <net/if_arp.h>
  57 #include <net/if_media.h>
  58 #include <net/ethernet.h>
  59 #include <net/bpf.h>
  60
  61 #include <netinet/in.h>
  62 #include <netinet/if_ether.h>
  63
  64
  65 #include <isa/isavar.h>
  66 #include <isa/pnpvar.h>
  67
  68 #include <dev/ex/if_exreg.h>
  69 #include <dev/ex/if_exvar.h>
  70
  71 #ifdef EXDEBUG
  72 # define Start_End 1
  73 # define Rcvd_Pkts 2
  74 # define Sent_Pkts 4
  75 # define Status    8
  76 static int debug_mask = 0;
  77 static int exintr_count = 0;
  78 # define DODEBUG(level, action) if (level & debug_mask) action
  79 #else
  80 # define DODEBUG(level, action)
  81 #endif
  82
  83 char irq2eemap[] =
  84         { -1, -1, 0, 1, -1, 2, -1, -1, -1, 0, 3, 4, -1, -1, -1, -1 };
  85 u_char ee2irqmap[] =
  86         { 9, 3, 5, 10, 11, 0, 0, 0 };
  87
  88 char plus_irq2eemap[] =
  89         { -1, -1, -1, 0, 1, 2, -1, 3, -1, 4, 5, 6, 7, -1, -1, -1 };
  90 u_char plus_ee2irqmap[] =
  91         { 3, 4, 5, 7, 9, 10, 11, 12 };
  92
  93 /* Network Interface Functions */
  94 static void     ex_init         (void *);
  95 static void     ex_start        (struct ifnet *);
  96 static int      ex_ioctl        (struct ifnet *, u_long, caddr_t);
  97 static void     ex_watchdog     (struct ifnet *);
  98
  99 /* ifmedia Functions    */
 100 static int      ex_ifmedia_upd  (struct ifnet *);
 101 static void     ex_ifmedia_sts  (struct ifnet *, struct ifmediareq *);
 102
 103 static int      ex_get_media    (u_int32_t iobase);
 104
 105 static void     ex_reset        (struct ex_softc *);
 106
 107 static void     ex_tx_intr      (struct ex_softc *);
 108 static void     ex_rx_intr      (struct ex_softc *);
 109
 110 int
 111 look_for_card (u_int32_t iobase)
 112 {
 113         int count1, count2;
 114
 115         /*
 116          * Check for the i82595 signature, and check that the round robin
 117          * counter actually advances.
 118          */
 119         if (((count1 = inb(iobase + ID_REG)) & Id_Mask) != Id_Sig)
 120                 return(0);
 121         count2 = inb(iobase + ID_REG);
 122         count2 = inb(iobase + ID_REG);
 123         count2 = inb(iobase + ID_REG);
 124
 125         return((count2 & Counter_bits) == ((count1 + 0xc0) & Counter_bits));
 126 }
 127
 128 void
 129 ex_get_address (u_int32_t iobase, u_char *enaddr)
 130 {
 131         u_int16_t       eaddr_tmp;
 132
 133         eaddr_tmp = eeprom_read(iobase, EE_Eth_Addr_Lo);
 134         enaddr[5] = eaddr_tmp & 0xff;
 135         enaddr[4] = eaddr_tmp >> 8;
 136         eaddr_tmp = eeprom_read(iobase, EE_Eth_Addr_Mid);
 137         enaddr[3] = eaddr_tmp & 0xff;
 138         enaddr[2] = eaddr_tmp >> 8;
 139         eaddr_tmp = eeprom_read(iobase, EE_Eth_Addr_Hi);
 140         enaddr[1] = eaddr_tmp & 0xff;
 141         enaddr[0] = eaddr_tmp >> 8;
 142
 143         return;
 144 }
 145
 146 int
 147 ex_card_type (u_char *enaddr)
 148 {
 149         if ((enaddr[0] == 0x00) && (enaddr[1] == 0xA0) && (enaddr[2] == 0xC9))
 150                 return (CARD_TYPE_EX_10_PLUS);
 151
 152         return (CARD_TYPE_EX_10);
 153 }
 154
 155 /*
 156  * Caller is responsible for eventually calling
 157  * ex_release_resources() on failure.
 158  */
 159 int
 160 ex_alloc_resources (device_t dev)
 161 {
 162         struct ex_softc *       sc = device_get_softc(dev);
 163         int                     error = 0;
 164
 165         sc->ioport = bus_alloc_resource(dev, SYS_RES_IOPORT, &sc->ioport_rid,
 166                                         0, ~0, 1, RF_ACTIVE);
 167         if (!sc->ioport) {
 168                 device_printf(dev, "No I/O space?!\n");
 169                 error = ENOMEM;
 170                 goto bad;
 171         }
 172
 173         sc->irq = bus_alloc_resource(dev, SYS_RES_IRQ, &sc->irq_rid,
 174                                         0, ~0, 1, RF_ACTIVE);
 175
 176         if (!sc->irq) {
 177                 device_printf(dev, "No IRQ?!\n");
 178                 error = ENOMEM;
 179                 goto bad;
 180         }
 181
 182 bad:
 183         return (error);
 184 }
 185
 186 void
 187 ex_release_resources (device_t dev)
 188 {
 189         struct ex_softc *       sc = device_get_softc(dev);
 190
 191         if (sc->ih) {
 192                 bus_teardown_intr(dev, sc->irq, sc->ih);
 193                 sc->ih = NULL;
 194         }
 195
 196         if (sc->ioport) {
 197                 bus_release_resource(dev, SYS_RES_IOPORT,
 198                                         sc->ioport_rid, sc->ioport);
 199                 sc->ioport = NULL;
 200         }
 201
 202         if (sc->irq) {
 203                 bus_release_resource(dev, SYS_RES_IRQ,
 204                                         sc->irq_rid, sc->irq);
 205                 sc->irq = NULL;
 206         }
 207
 208         return;
 209 }
 210
 211 int
 212 ex_attach(device_t dev)
 213 {
 214         struct ex_softc *       sc = device_get_softc(dev);
 215         struct ifnet *          ifp = &sc->arpcom.ac_if;
 216         struct ifmedia *        ifm;
 217         int                     unit = device_get_unit(dev);
 218         u_int16_t               temp;
 219
 220         /* work out which set of irq <-> internal tables to use */
 221         if (ex_card_type(sc->arpcom.ac_enaddr) == CARD_TYPE_EX_10_PLUS) {
 222                 sc->irq2ee = plus_irq2eemap;
 223                 sc->ee2irq = plus_ee2irqmap;
 224         } else {
 225                 sc->irq2ee = irq2eemap;
 226                 sc->ee2irq = ee2irqmap;
 227         }
 228
 229         sc->mem_size = CARD_RAM_SIZE;   /* XXX This should be read from the card itself. */
 230
 231         /*
 232          * Initialize the ifnet structure.
 233          */
 234         ifp->if_softc = sc;
 235         ifp->if_unit = unit;
 236         ifp->if_name = "ex";
 237         ifp->if_mtu = ETHERMTU;
 238         ifp->if_flags = IFF_SIMPLEX | IFF_BROADCAST /* XXX not done yet. | IFF_MULTICAST */;
 239         ifp->if_output = ether_output;
 240         ifp->if_start = ex_start;
 241         ifp->if_ioctl = ex_ioctl;
 242         ifp->if_watchdog = ex_watchdog;
 243         ifp->if_init = ex_init;
 244         ifp->if_snd.ifq_maxlen = IFQ_MAXLEN;
 245
 246         ifmedia_init(&sc->ifmedia, 0, ex_ifmedia_upd, ex_ifmedia_sts);
 247
 248         temp = eeprom_read(sc->iobase, EE_W5);
 249         if (temp & EE_W5_PORT_TPE)
 250                 ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_T, 0, NULL);
 251         if (temp & EE_W5_PORT_BNC)
 252                 ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_2, 0, NULL);
 253         if (temp & EE_W5_PORT_AUI)
 254                 ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_5, 0, NULL);
 255
 256         ifmedia_set(&sc->ifmedia, ex_get_media(sc->iobase));
 257
 258         ifm = &sc->ifmedia;
 259         ifm->ifm_media = ifm->ifm_cur->ifm_media;
 260         ex_ifmedia_upd(ifp);
 261
 262         /*
 263          * Attach the interface.
 264          */
 265         ether_ifattach(ifp, ETHER_BPF_SUPPORTED);
 266
 267         device_printf(sc->dev, "Ethernet address %6D\n",
 268                         sc->arpcom.ac_enaddr, ":");
 269
 270         return(0);
 271 }
 272
 273 static void
 274 ex_init(void *xsc)
 275 {
 276         struct ex_softc *       sc = (struct ex_softc *) xsc;
 277         struct ifnet *          ifp = &sc->arpcom.ac_if;
 278         int                     s;
 279         int                     i;
 280         register int            iobase = sc->iobase;
 281         unsigned short          temp_reg;
 282
 283         DODEBUG(Start_End, printf("ex_init%d: start\n", ifp->if_unit););
 284
 285         if (TAILQ_FIRST(&ifp->if_addrhead) == NULL) {
 286                 return;
 287         }
 288         s = splimp();
 289         ifp->if_timer = 0;
 290
 291         /*
 292          * Load the ethernet address into the card.
 293          */
 294         outb(iobase + CMD_REG, Bank2_Sel);
 295         temp_reg = inb(iobase + EEPROM_REG);
 296         if (temp_reg & Trnoff_Enable) {
 297                 outb(iobase + EEPROM_REG, temp_reg & ~Trnoff_Enable);
 298         }
 299         for (i = 0; i < ETHER_ADDR_LEN; i++) {
 300                 outb(iobase + I_ADDR_REG0 + i, sc->arpcom.ac_enaddr[i]);
 301         }
 302         /*
 303          * - Setup transmit chaining and discard bad received frames.
 304          * - Match broadcast.
 305          * - Clear test mode.
 306          * - Set receiving mode.
 307          * - Set IRQ number.
 308          */
 309         outb(iobase + REG1, inb(iobase + REG1) | Tx_Chn_Int_Md | Tx_Chn_ErStp | Disc_Bad_Fr);
 310         outb(iobase + REG2, inb(iobase + REG2) | No_SA_Ins | RX_CRC_InMem);
 311         outb(iobase + REG3, inb(iobase + REG3) & 0x3f /* XXX constants. */ );
 312         outb(iobase + CMD_REG, Bank1_Sel);
 313         outb(iobase + INT_NO_REG, (inb(iobase + INT_NO_REG) & 0xf8) | sc->irq2ee[sc->irq_no]);
 314
 315         /*
 316          * Divide the available memory in the card into rcv and xmt buffers.
 317          * By default, I use the first 3/4 of the memory for the rcv buffer,
 318          * and the remaining 1/4 of the memory for the xmt buffer.
 319          */
 320         sc->rx_mem_size = sc->mem_size * 3 / 4;
 321         sc->tx_mem_size = sc->mem_size - sc->rx_mem_size;
 322         sc->rx_lower_limit = 0x0000;
 323         sc->rx_upper_limit = sc->rx_mem_size - 2;
 324         sc->tx_lower_limit = sc->rx_mem_size;
 325         sc->tx_upper_limit = sc->mem_size - 2;
 326         outb(iobase + RCV_LOWER_LIMIT_REG, sc->rx_lower_limit >> 8);
 327         outb(iobase + RCV_UPPER_LIMIT_REG, sc->rx_upper_limit >> 8);
 328         outb(iobase + XMT_LOWER_LIMIT_REG, sc->tx_lower_limit >> 8);
 329         outb(iobase + XMT_UPPER_LIMIT_REG, sc->tx_upper_limit >> 8);
 330
 331         /*
 332          * Enable receive and transmit interrupts, and clear any pending int.
 333          */
 334         outb(iobase + REG1, inb(iobase + REG1) | TriST_INT);
 335         outb(iobase + CMD_REG, Bank0_Sel);
 336         outb(iobase + MASK_REG, All_Int & ~(Rx_Int | Tx_Int));
 337         outb(iobase + STATUS_REG, All_Int);
 338
 339         /*
 340          * Initialize receive and transmit ring buffers.
 341          */
 342         outw(iobase + RCV_BAR, sc->rx_lower_limit);
 343         sc->rx_head = sc->rx_lower_limit;
 344         outw(iobase + RCV_STOP_REG, sc->rx_upper_limit | 0xfe);
 345         outw(iobase + XMT_BAR, sc->tx_lower_limit);
 346         sc->tx_head = sc->tx_tail = sc->tx_lower_limit;
 347
 348         ifp->if_flags |= IFF_RUNNING;
 349         ifp->if_flags &= ~IFF_OACTIVE;
 350         DODEBUG(Status, printf("OIDLE init\n"););
 351
 352         /*
 353          * Final reset of the board, and enable operation.
 354          */
 355         outb(iobase + CMD_REG, Sel_Reset_CMD);
 356         DELAY(2);
 357         outb(iobase + CMD_REG, Rcv_Enable_CMD);
 358
 359         ex_start(ifp);
 360         splx(s);
 361
 362         DODEBUG(Start_End, printf("ex_init%d: finish\n", ifp->if_unit););
 363 }
 364
 365
 366 static void
 367 ex_start(struct ifnet *ifp)
 368 {
 369         struct ex_softc *       sc = ifp->if_softc;
 370         int                     iobase = sc->iobase;
 371         int                     i, s, len, data_len, avail, dest, next;
 372         unsigned char           tmp16[2];
 373         struct mbuf *           opkt;
 374         struct mbuf *           m;
 375
 376         DODEBUG(Start_End, printf("ex_start%d: start\n", unit););
 377
 378         s = splimp();
 379
 380         /*
 381          * Main loop: send outgoing packets to network card until there are no
 382          * more packets left, or the card cannot accept any more yet.
 383          */
 384         while (((opkt = ifp->if_snd.ifq_head) != NULL) &&
 385                !(ifp->if_flags & IFF_OACTIVE)) {
 386
 387                 /*
 388                  * Ensure there is enough free transmit buffer space for
 389                  * this packet, including its header. Note: the header
 390                  * cannot wrap around the end of the transmit buffer and
 391                  * must be kept together, so we allow space for twice the
 392                  * length of the header, just in case.
 393                  */
 394
 395                 for (len = 0, m = opkt; m != NULL; m = m->m_next) {
 396                         len += m->m_len;
 397                 }
 398
 399                 data_len = len;
 400
 401                 DODEBUG(Sent_Pkts, printf("1. Sending packet with %d data bytes. ", data_len););
 402
 403                 if (len & 1) {
 404                         len += XMT_HEADER_LEN + 1;
 405                 } else {
 406                         len += XMT_HEADER_LEN;
 407                 }
 408
 409                 if ((i = sc->tx_tail - sc->tx_head) >= 0) {
 410                         avail = sc->tx_mem_size - i;
 411                 } else {
 412                         avail = -i;
 413                 }
 414
 415                 DODEBUG(Sent_Pkts, printf("i=%d, avail=%d\n", i, avail););
 416
 417                 if (avail >= len + XMT_HEADER_LEN) {
 418                         IF_DEQUEUE(&ifp->if_snd, opkt);
 419
 420 #ifdef EX_PSA_INTR
 421                         /*
 422                          * Disable rx and tx interrupts, to avoid corruption
 423                          * of the host address register by interrupt service
 424                          * routines.
 425                          * XXX Is this necessary with splimp() enabled?
 426                          */
 427                         outb(iobase + MASK_REG, All_Int);
 428 #endif
 429
 430                         /*
 431                          * Compute the start and end addresses of this
 432                          * frame in the tx buffer.
 433                          */
 434                         dest = sc->tx_tail;
 435                         next = dest + len;
 436
 437                         if (next > sc->tx_upper_limit) {
 438                                 if ((sc->tx_upper_limit + 2 - sc->tx_tail) <=
 439                                     XMT_HEADER_LEN) {
 440                                         dest = sc->tx_lower_limit;
 441                                         next = dest + len;
 442                                 } else {
 443                                         next = sc->tx_lower_limit +
 444                                                 next - sc->tx_upper_limit - 2;
 445                                 }
 446                         }
 447
 448                         /*
 449                          * Build the packet frame in the card's ring buffer.
 450                          */
 451                         DODEBUG(Sent_Pkts, printf("2. dest=%d, next=%d. ", dest, next););
 452
 453                         outw(iobase + HOST_ADDR_REG, dest);
 454                         outw(iobase + IO_PORT_REG, Transmit_CMD);
 455                         outw(iobase + IO_PORT_REG, 0);
 456                         outw(iobase + IO_PORT_REG, next);
 457                         outw(iobase + IO_PORT_REG, data_len);
 458
 459                         /*
 460                          * Output the packet data to the card. Ensure all
 461                          * transfers are 16-bit wide, even if individual
 462                          * mbufs have odd length.
 463                          */
 464
 465                         for (m = opkt, i = 0; m != NULL; m = m->m_next) {
 466                                 DODEBUG(Sent_Pkts, printf("[%d]", m->m_len););
 467                                 if (i) {
 468                                         tmp16[1] = *(mtod(m, caddr_t));
 469                                         outsw(iobase + IO_PORT_REG, tmp16, 1);
 470                                 }
 471                                 outsw(iobase + IO_PORT_REG,
 472                                       mtod(m, caddr_t) + i, (m->m_len - i) / 2);
 473
 474                                 if ((i = (m->m_len - i) & 1) != 0) {
 475                                         tmp16[0] = *(mtod(m, caddr_t) +
 476                                                    m->m_len - 1);
 477                                 }
 478                         }
 479                         if (i) {
 480                                 outsw(iobase + IO_PORT_REG, tmp16, 1);
 481                         }
 482
 483                         /*
 484                          * If there were other frames chained, update the
 485                          * chain in the last one.
 486                          */
 487                         if (sc->tx_head != sc->tx_tail) {
 488                                 if (sc->tx_tail != dest) {
 489                                         outw(iobase + HOST_ADDR_REG,
 490                                              sc->tx_last + XMT_Chain_Point);
 491                                         outw(iobase + IO_PORT_REG, dest);
 492                                 }
 493                                 outw(iobase + HOST_ADDR_REG,
 494                                      sc->tx_last + XMT_Byte_Count);
 495                                 i = inw(iobase + IO_PORT_REG);
 496                                 outw(iobase + HOST_ADDR_REG,
 497                                      sc->tx_last + XMT_Byte_Count);
 498                                 outw(iobase + IO_PORT_REG, i | Ch_bit);
 499                         }
 500
 501                         /*
 502                          * Resume normal operation of the card:
 503                          * - Make a dummy read to flush the DRAM write
 504                          *   pipeline.
 505                          * - Enable receive and transmit interrupts.
 506                          * - Send Transmit or Resume_XMT command, as
 507                          *   appropriate.
 508                          */
 509                         inw(iobase + IO_PORT_REG);
 510 #ifdef EX_PSA_INTR
 511                         outb(iobase + MASK_REG, All_Int & ~(Rx_Int | Tx_Int));
 512 #endif
 513                         if (sc->tx_head == sc->tx_tail) {
 514                                 outw(iobase + XMT_BAR, dest);
 515                                 outb(iobase + CMD_REG, Transmit_CMD);
 516                                 sc->tx_head = dest;
 517                                 DODEBUG(Sent_Pkts, printf("Transmit\n"););
 518                         } else {
 519                                 outb(iobase + CMD_REG, Resume_XMT_List_CMD);
 520                                 DODEBUG(Sent_Pkts, printf("Resume\n"););
 521                         }
 522
 523                         sc->tx_last = dest;
 524                         sc->tx_tail = next;
 525
 526                         if (ifp->if_bpf != NULL) {
 527                                 bpf_mtap(ifp, opkt);
 528                         }
 529
 530                         ifp->if_timer = 2;
 531                         ifp->if_opackets++;
 532                         m_freem(opkt);
 533                 } else {
 534                         ifp->if_flags |= IFF_OACTIVE;
 535                         DODEBUG(Status, printf("OACTIVE start\n"););
 536                 }
 537         }
 538
 539         splx(s);
 540
 541         DODEBUG(Start_End, printf("ex_start%d: finish\n", unit););
 542 }
 543
 544 void
 545 ex_stop(struct ex_softc *sc)
 546 {
 547         int iobase = sc->iobase;
 548
 549         DODEBUG(Start_End, printf("ex_stop%d: start\n", unit););
 550
 551         /*
 552          * Disable card operation:
 553          * - Disable the interrupt line.
 554          * - Flush transmission and disable reception.
 555          * - Mask and clear all interrupts.
 556          * - Reset the 82595.
 557          */
 558         outb(iobase + CMD_REG, Bank1_Sel);
 559         outb(iobase + REG1, inb(iobase + REG1) & ~TriST_INT);
 560         outb(iobase + CMD_REG, Bank0_Sel);
 561         outb(iobase + CMD_REG, Rcv_Stop);
 562         sc->tx_head = sc->tx_tail = sc->tx_lower_limit;
 563         sc->tx_last = 0; /* XXX I think these two lines are not necessary, because ex_init will always be called again to reinit the interface. */
 564         outb(iobase + MASK_REG, All_Int);
 565         outb(iobase + STATUS_REG, All_Int);
 566         outb(iobase + CMD_REG, Reset_CMD);
 567         DELAY(200);
 568
 569         DODEBUG(Start_End, printf("ex_stop%d: finish\n", unit););
 570
 571         return;
 572 }
 573
 574 void
 575 ex_intr(void *arg)
 576 {
 577         struct ex_softc *       sc = (struct ex_softc *)arg;
 578         struct ifnet *  ifp = &sc->arpcom.ac_if;
 579         int                     iobase = sc->iobase;
 580         int                     int_status, send_pkts;
 581
 582         DODEBUG(Start_End, printf("ex_intr%d: start\n", unit););
 583
 584 #ifdef EXDEBUG
 585         if (++exintr_count != 1)
 586                 printf("WARNING: nested interrupt (%d). Mail the author.\n", exintr_count);
 587 #endif
 588
 589         send_pkts = 0;
 590         while ((int_status = inb(iobase + STATUS_REG)) & (Tx_Int | Rx_Int)) {
 591                 if (int_status & Rx_Int) {
 592                         outb(iobase + STATUS_REG, Rx_Int);
 593
 594                         ex_rx_intr(sc);
 595                 } else if (int_status & Tx_Int) {
 596                         outb(iobase + STATUS_REG, Tx_Int);
 597
 598                         ex_tx_intr(sc);
 599                         send_pkts = 1;
 600                 }
 601         }
 602
 603         /*
 604          * If any packet has been transmitted, and there are queued packets to
 605          * be sent, attempt to send more packets to the network card.
 606          */
 607
 608         if (send_pkts && (ifp->if_snd.ifq_head != NULL)) {
 609                 ex_start(ifp);
 610         }
 611
 612 #ifdef EXDEBUG
 613         exintr_count--;
 614 #endif
 615
 616         DODEBUG(Start_End, printf("ex_intr%d: finish\n", unit););
 617
 618         return;
 619 }
 620
 621 static void
 622 ex_tx_intr(struct ex_softc *sc)
 623 {
 624         struct ifnet *  ifp = &sc->arpcom.ac_if;
 625         int             iobase = sc->iobase;
 626         int             tx_status;
 627
 628         DODEBUG(Start_End, printf("ex_tx_intr%d: start\n", unit););
 629
 630         /*
 631          * - Cancel the watchdog.
 632          * For all packets transmitted since last transmit interrupt:
 633          * - Advance chain pointer to next queued packet.
 634          * - Update statistics.
 635          */
 636
 637         ifp->if_timer = 0;
 638
 639         while (sc->tx_head != sc->tx_tail) {
 640                 outw(iobase + HOST_ADDR_REG, sc->tx_head);
 641
 642                 if (! inw(iobase + IO_PORT_REG) & Done_bit)
 643                         break;
 644
 645                 tx_status = inw(iobase + IO_PORT_REG);
 646                 sc->tx_head = inw(iobase + IO_PORT_REG);
 647
 648                 if (tx_status & TX_OK_bit) {
 649                         ifp->if_opackets++;
 650                 } else {
 651                         ifp->if_oerrors++;
 652                 }
 653
 654                 ifp->if_collisions += tx_status & No_Collisions_bits;
 655         }
 656
 657         /*
 658          * The card should be ready to accept more packets now.
 659          */
 660
 661         ifp->if_flags &= ~IFF_OACTIVE;
 662
 663         DODEBUG(Status, printf("OIDLE tx_intr\n"););
 664         DODEBUG(Start_End, printf("ex_tx_intr%d: finish\n", unit););
 665
 666         return;
 667 }
 668
 669 static void
 670 ex_rx_intr(struct ex_softc *sc)
 671 {
 672         struct ifnet *          ifp = &sc->arpcom.ac_if;
 673         int                     iobase = sc->iobase;
 674         int                     rx_status;
 675         int                     pkt_len;
 676         int                     QQQ;
 677         struct mbuf *           m;
 678         struct mbuf *           ipkt;
 679         struct ether_header *   eh;
 680
 681         DODEBUG(Start_End, printf("ex_rx_intr%d: start\n", unit););
 682
 683         /*
 684          * For all packets received since last receive interrupt:
 685          * - If packet ok, read it into a new mbuf and queue it to interface,
 686          *   updating statistics.
 687          * - If packet bad, just discard it, and update statistics.
 688          * Finally, advance receive stop limit in card's memory to new location.
 689          */
 690
 691         outw(iobase + HOST_ADDR_REG, sc->rx_head);
 692
 693         while (inw(iobase + IO_PORT_REG) == RCV_Done) {
 694
 695                 rx_status = inw(iobase + IO_PORT_REG);
 696                 sc->rx_head = inw(iobase + IO_PORT_REG);
 697                 QQQ = pkt_len = inw(iobase + IO_PORT_REG);
 698
 699                 if (rx_status & RCV_OK_bit) {
 700                         MGETHDR(m, M_DONTWAIT, MT_DATA);
 701                         ipkt = m;
 702                         if (ipkt == NULL) {
 703                                 ifp->if_iqdrops++;
 704                         } else {
 705                                 ipkt->m_pkthdr.rcvif = ifp;
 706                                 ipkt->m_pkthdr.len = pkt_len;
 707                                 ipkt->m_len = MHLEN;
 708
 709                                 while (pkt_len > 0) {
 710                                         if (pkt_len > MINCLSIZE) {
 711                                                 MCLGET(m, M_DONTWAIT);
 712                                                 if (m->m_flags & M_EXT) {
 713                                                         m->m_len = MCLBYTES;
 714                                                 } else {
 715                                                         m_freem(ipkt);
 716                                                         ifp->if_iqdrops++;
 717                                                         goto rx_another;
 718                                                 }
 719                                         }
 720                                         m->m_len = min(m->m_len, pkt_len);
 721
 722           /*
 723            * NOTE: I'm assuming that all mbufs allocated are of even length,
 724            * except for the last one in an odd-length packet.
 725            */
 726
 727                                         insw(iobase + IO_PORT_REG,
 728                                              mtod(m, caddr_t), m->m_len / 2);
 729
 730                                         if (m->m_len & 1) {
 731                                                 *(mtod(m, caddr_t) + m->m_len - 1) = inb(iobase + IO_PORT_REG);
 732                                         }
 733                                         pkt_len -= m->m_len;
 734
 735                                         if (pkt_len > 0) {
 736                                                 MGET(m->m_next, M_DONTWAIT, MT_DATA);
 737                                                 if (m->m_next == NULL) {
 738                                                         m_freem(ipkt);
 739                                                         ifp->if_iqdrops++;
 740                                                         goto rx_another;
 741                                                 }
 742                                                 m = m->m_next;
 743                                                 m->m_len = MLEN;
 744                                         }
 745                                 }
 746                                 eh = mtod(ipkt, struct ether_header *);
 747 #ifdef EXDEBUG
 748         if (debug_mask & Rcvd_Pkts) {
 749                 if ((eh->ether_dhost[5] != 0xff) || (eh->ether_dhost[0] != 0xff)) {
 750                         printf("Receive packet with %d data bytes: %6D -> ", QQQ, eh->ether_shost, ":");
 751                         printf("%6D\n", eh->ether_dhost, ":");
 752                 } /* QQQ */
 753         }
 754 #endif
 755                                 m_adj(ipkt, sizeof(struct ether_header));
 756                                 ether_input(ifp, eh, ipkt);
 757                                 ifp->if_ipackets++;
 758                         }
 759                 } else {
 760                         ifp->if_ierrors++;
 761                 }
 762                 outw(iobase + HOST_ADDR_REG, sc->rx_head);
 763 rx_another: ;
 764         }
 765
 766         if (sc->rx_head < sc->rx_lower_limit + 2)
 767                 outw(iobase + RCV_STOP_REG, sc->rx_upper_limit);
 768         else
 769                 outw(iobase + RCV_STOP_REG, sc->rx_head - 2);
 770
 771         DODEBUG(Start_End, printf("ex_rx_intr%d: finish\n", unit););
 772
 773         return;
 774 }
 775
 776
 777 static int
 778 ex_ioctl(register struct ifnet *ifp, u_long cmd, caddr_t data)
 779 {
 780         struct ex_softc *       sc = ifp->if_softc;
 781         struct ifreq *          ifr = (struct ifreq *)data;
 782         int                     s;
 783         int                     error = 0;
 784
 785         DODEBUG(Start_End, printf("ex_ioctl%d: start ", ifp->if_unit););
 786
 787         s = splimp();
 788
 789         switch(cmd) {
 790                 case SIOCSIFADDR:
 791                 case SIOCGIFADDR:
 792                 case SIOCSIFMTU:
 793                         error = ether_ioctl(ifp, cmd, data);
 794                         break;
 795
 796                 case SIOCSIFFLAGS:
 797                         DODEBUG(Start_End, printf("SIOCSIFFLAGS"););
 798                         if ((ifp->if_flags & IFF_UP) == 0 &&
 799                             (ifp->if_flags & IFF_RUNNING)) {
 800
 801                                 ifp->if_flags &= ~IFF_RUNNING;
 802                                 ex_stop(sc);
 803                         } else {
 804                                 ex_init(sc);
 805                         }
 806                         break;
 807 #ifdef NODEF
 808                 case SIOCGHWADDR:
 809                         DODEBUG(Start_End, printf("SIOCGHWADDR"););
 810                         bcopy((caddr_t)sc->sc_addr, (caddr_t)&ifr->ifr_data,
 811                               sizeof(sc->sc_addr));
 812                         break;
 813 #endif
 814                 case SIOCADDMULTI:
 815                         DODEBUG(Start_End, printf("SIOCADDMULTI"););
 816                 case SIOCDELMULTI:
 817                         DODEBUG(Start_End, printf("SIOCDELMULTI"););
 818                         /* XXX Support not done yet. */
 819                         error = EINVAL;
 820                         break;
 821                 case SIOCSIFMEDIA:
 822                 case SIOCGIFMEDIA:
 823                         error = ifmedia_ioctl(ifp, ifr, &sc->ifmedia, cmd);
 824                         break;
 825                 default:
 826                         DODEBUG(Start_End, printf("unknown"););
 827                         error = EINVAL;
 828         }
 829
 830         splx(s);
 831
 832         DODEBUG(Start_End, printf("\nex_ioctl%d: finish\n", ifp->if_unit););
 833
 834         return(error);
 835 }
 836
 837
 838 static void
 839 ex_reset(struct ex_softc *sc)
 840 {
 841         int s;
 842
 843         DODEBUG(Start_End, printf("ex_reset%d: start\n", unit););
 844
 845         s = splimp();
 846
 847         ex_stop(sc);
 848         ex_init(sc);
 849
 850         splx(s);
 851
 852         DODEBUG(Start_End, printf("ex_reset%d: finish\n", unit););
 853
 854         return;
 855 }
 856
 857 static void
 858 ex_watchdog(struct ifnet *ifp)
 859 {
 860         struct ex_softc *       sc = ifp->if_softc;
 861
 862         DODEBUG(Start_End, printf("ex_watchdog%d: start\n", ifp->if_unit););
 863
 864         ifp->if_flags &= ~IFF_OACTIVE;
 865
 866         DODEBUG(Status, printf("OIDLE watchdog\n"););
 867
 868         ifp->if_oerrors++;
 869         ex_reset(sc);
 870         ex_start(ifp);
 871
 872         DODEBUG(Start_End, printf("ex_watchdog%d: finish\n", ifp->if_unit););
 873
 874         return;
 875 }
 876
 877 static int
 878 ex_get_media (u_int32_t iobase)
 879 {
 880         int     tmp;
 881
 882         outb(iobase + CMD_REG, Bank2_Sel);
 883         tmp = inb(iobase + REG3);
 884         outb(iobase + CMD_REG, Bank0_Sel);
 885
 886         if (tmp & TPE_bit)
 887                 return(IFM_ETHER|IFM_10_T);
 888         if (tmp & BNC_bit)
 889                 return(IFM_ETHER|IFM_10_2);
 890
 891         return (IFM_ETHER|IFM_10_5);
 892 }
 893
 894 static int
 895 ex_ifmedia_upd (ifp)
 896         struct ifnet *          ifp;
 897 {
 898
 899         return (0);
 900 }
 901
 902 static void
 903 ex_ifmedia_sts(ifp, ifmr)
 904         struct ifnet *          ifp;
 905         struct ifmediareq *     ifmr;
 906 {
 907         struct ex_softc *       sc = ifp->if_softc;
 908
 909         ifmr->ifm_active = ex_get_media(sc->iobase);
 910
 911         return;
 912 }
 913
 914 u_short
 915 eeprom_read(u_int32_t iobase, int location)
 916 {
 917         int i;
 918         u_short data = 0;
 919         int ee_addr;
 920         int read_cmd = location | EE_READ_CMD;
 921         short ctrl_val = EECS;
 922
 923         ee_addr = iobase + EEPROM_REG;
 924         outb(iobase + CMD_REG, Bank2_Sel);
 925         outb(ee_addr, EECS);
 926         for (i = 8; i >= 0; i--) {
 927                 short outval = (read_cmd & (1 << i)) ? ctrl_val | EEDI : ctrl_val;
 928                 outb(ee_addr, outval);
 929                 outb(ee_addr, outval | EESK);
 930                 DELAY(3);
 931                 outb(ee_addr, outval);
 932                 DELAY(2);
 933         }
 934         outb(ee_addr, ctrl_val);
 935
 936         for (i = 16; i > 0; i--) {
 937                 outb(ee_addr, ctrl_val | EESK);
 938                 DELAY(3);
 939                 data = (data << 1) | ((inb(ee_addr) & EEDO) ? 1 : 0);
 940                 outb(ee_addr, ctrl_val);
 941                 DELAY(2);
 942         }
 943
 944         ctrl_val &= ~EECS;
 945         outb(ee_addr, ctrl_val | EESK);
 946         DELAY(3);
 947         outb(ee_addr, ctrl_val);
 948         DELAY(2);
 949         outb(iobase + CMD_REG, Bank0_Sel);
 950         return(data);
 951 }