c150695f8d19dc500d1c5b59339778082ec6c825
[dragonfly.git] / sys / dev / netif / ep / if_ep.c
1 /*
2  * Copyright (c) 1994 Herb Peyerl <hpeyerl@novatel.ca>
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, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by Herb Peyerl.
16  * 4. The name of Herb Peyerl may not be used to endorse or promote products
17  *    derived from this software without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29  *
30  *      if_ep.c,v 1.19 1995/01/24 20:53:45 davidg Exp
31  */
32
33 /*
34  *      Modified from the FreeBSD 1.1.5.1 version by:
35  *                      Andres Vega Garcia
36  *                      INRIA - Sophia Antipolis, France
37  *                      avega@sophia.inria.fr
38  */
39
40 /*
41  * $FreeBSD: src/sys/dev/ep/if_ep.c,v 1.95.2.3 2002/03/06 07:26:35 imp Exp $
42  * $DragonFly: src/sys/dev/netif/ep/if_ep.c,v 1.13 2005/01/23 20:21:31 joerg Exp $
43  *
44  *  Promiscuous mode added and interrupt logic slightly changed
45  *  to reduce the number of adapter failures. Transceiver select
46  *  logic changed to use value from EEPROM. Autoconfiguration
47  *  features added.
48  *  Done by:
49  *          Serge Babkin
50  *          Chelindbank (Chelyabinsk, Russia)
51  *          babkin@hq.icb.chel.su
52  */
53
54 /*
55  * Pccard support for 3C589 by:
56  *              HAMADA Naoki
57  *              nao@tom-yam.or.jp
58  */
59
60 /*
61  * MAINTAINER: Matthew N. Dodd <winter@jurai.net>
62  *                             <mdodd@FreeBSD.org>
63  */
64
65 #include <sys/param.h>
66 #include <sys/kernel.h>
67 #include <sys/systm.h>
68 #include <sys/malloc.h>
69 #include <sys/mbuf.h>
70 #include <sys/socket.h>
71 #include <sys/sockio.h>
72
73 #include <sys/module.h>
74 #include <sys/bus.h>
75
76 #include <machine/bus.h>
77 #include <machine/resource.h>
78 #include <sys/rman.h> 
79
80 #include <net/if.h>
81 #include <net/if_arp.h>
82 #include <net/if_media.h> 
83 #include <net/ethernet.h>
84 #include <net/bpf.h>
85
86 #include <netinet/in.h>
87 #include <netinet/if_ether.h>
88
89 #include <machine/clock.h>
90
91 #include "if_epreg.h"
92 #include "if_epvar.h"
93 #include "../elink_layer/elink.h"
94
95 /* Exported variables */
96 devclass_t ep_devclass;
97
98 #if 0
99 static char *   ep_conn_type[] = {"UTP", "AUI", "???", "BNC"};
100 static int      if_media2ep_media[] = { 0, 0, 0, UTP, BNC, AUI };
101 #endif
102
103 static int      ep_media2if_media[] =
104         { IFM_10_T, IFM_10_5, IFM_NONE, IFM_10_2, IFM_NONE };
105
106 /* if functions */
107 static void     ep_if_init      (void *);
108 static int      ep_if_ioctl(struct ifnet *, u_long, caddr_t, struct ucred *);
109 static void     ep_if_start     (struct ifnet *);
110 static void     ep_if_watchdog  (struct ifnet *);
111
112 /* if_media functions */
113 static int      ep_ifmedia_upd  (struct ifnet *);
114 static void     ep_ifmedia_sts  (struct ifnet *, struct ifmediareq *);
115
116 static void     epstop          (struct ep_softc *);
117 static void     epread          (struct ep_softc *);
118 static int      eeprom_rdy      (struct ep_softc *);
119
120 DECLARE_DUMMY_MODULE(if_ep);
121
122 #define EP_FTST(sc, f)  (sc->stat &   (f))
123 #define EP_FSET(sc, f)  (sc->stat |=  (f))
124 #define EP_FRST(sc, f)  (sc->stat &= ~(f))
125
126 static int
127 eeprom_rdy(sc)
128     struct ep_softc *sc;
129 {
130     int i;
131
132     for (i = 0; is_eeprom_busy(BASE) && i < MAX_EEPROMBUSY; i++) {
133         DELAY(100);
134     }
135     if (i >= MAX_EEPROMBUSY) {
136         printf("ep%d: eeprom failed to come ready.\n", sc->unit);
137         return (0);
138     }
139     return (1);
140 }
141
142 /*
143  * get_e: gets a 16 bits word from the EEPROM. we must have set the window
144  * before
145  */
146 u_int16_t
147 get_e(sc, offset)
148     struct ep_softc *sc;
149     u_int16_t offset;
150 {
151     if (!eeprom_rdy(sc))
152         return (0);
153     outw(BASE + EP_W0_EEPROM_COMMAND, (EEPROM_CMD_RD << sc->epb.cmd_off) | offset);
154     if (!eeprom_rdy(sc))
155         return (0);
156     return (inw(BASE + EP_W0_EEPROM_DATA));
157 }
158
159 void
160 ep_get_macaddr(sc, addr)
161         struct ep_softc *       sc;
162         uint8_t *               addr;
163 {
164         int                     i;
165         u_int16_t *             macaddr = (u_int16_t *)addr;
166
167         GO_WINDOW(0);
168         for(i = EEPROM_NODE_ADDR_0; i <= EEPROM_NODE_ADDR_2; i++) {
169                 macaddr[i] = htons(get_e(sc, i));
170         }
171
172         return;
173 }
174
175 int
176 ep_alloc(device_t dev)
177 {
178         struct ep_softc *       sc = device_get_softc(dev);
179         int                     rid;
180         int                     error = 0;
181
182         rid = 0;
183         sc->iobase = bus_alloc_resource(dev, SYS_RES_IOPORT, &rid,
184                                         0, ~0, 1, RF_ACTIVE);
185         if (!sc->iobase) {
186                 device_printf(dev, "No I/O space?!\n");
187                 error = ENXIO;
188                 goto bad;
189         }
190
191         rid = 0;
192         sc->irq = bus_alloc_resource(dev, SYS_RES_IRQ, &rid,
193                                      0, ~0, 1, RF_ACTIVE);
194         if (!sc->irq) {
195                 device_printf(dev, "No irq?!\n");
196                 error = ENXIO;
197                 goto bad;
198         }
199
200         sc->dev = dev;
201         sc->unit = device_get_unit(dev);
202         sc->stat = 0;   /* 16 bit access */
203
204         sc->ep_io_addr = rman_get_start(sc->iobase);
205
206         sc->ep_btag = rman_get_bustag(sc->iobase);
207         sc->ep_bhandle = rman_get_bushandle(sc->iobase);
208
209         sc->ep_connectors = 0;
210         sc->ep_connector = 0;
211
212         GO_WINDOW(0);
213         sc->epb.cmd_off = 0;
214         sc->epb.prod_id = get_e(sc, EEPROM_PROD_ID);
215         sc->epb.res_cfg = get_e(sc, EEPROM_RESOURCE_CFG);
216
217 bad:
218         return (error);
219 }
220
221 void
222 ep_get_media(sc)
223         struct ep_softc *       sc;
224 {
225         u_int16_t               config;
226         
227         GO_WINDOW(0);
228         config = inw(BASE + EP_W0_CONFIG_CTRL);
229         if (config & IS_AUI)
230                 sc->ep_connectors |= AUI;
231         if (config & IS_BNC)
232                 sc->ep_connectors |= BNC;
233         if (config & IS_UTP)
234                 sc->ep_connectors |= UTP;
235
236         if (!(sc->ep_connectors & 7)) {
237                 if (bootverbose)
238                         device_printf(sc->dev, "no connectors!\n");
239         }
240
241         /*
242          * This works for most of the cards so we'll do it here.
243          * The cards that require something different can override
244          * this later on.
245          */
246         sc->ep_connector = inw(BASE + EP_W0_ADDRESS_CFG) >> ACF_CONNECTOR_BITS;
247
248         return;
249 }
250
251 void
252 ep_free(device_t dev)
253 {
254         struct ep_softc *       sc = device_get_softc(dev);
255
256         if (sc->iobase)
257                 bus_release_resource(dev, SYS_RES_IOPORT, 0, sc->iobase);
258         if (sc->irq)
259                 bus_release_resource(dev, SYS_RES_IRQ, 0, sc->irq);
260
261         return;
262 }
263         
264 int
265 ep_attach(sc)
266         struct ep_softc *       sc;
267 {
268         struct ifnet *          ifp = NULL;
269         struct ifmedia *        ifm = NULL;
270         u_short *               p;
271         uint8_t                 ether_addr[ETHER_ADDR_LEN];
272         int                     i;
273         int                     attached;
274
275         sc->gone = 0;
276
277         ep_get_macaddr(sc, ether_addr);
278
279         /*
280          * Setup the station address
281          */
282         p = (u_short*)ether_addr;
283         GO_WINDOW(2);
284         for (i = 0; i < 3; i++) {
285                 outw(BASE + EP_W2_ADDR_0 + (i * 2), ntohs(p[i]));
286         }
287   
288         ifp = &sc->arpcom.ac_if;
289         attached = (ifp->if_softc != 0);
290
291         ifp->if_softc = sc;
292         if_initname(ifp, "ep", sc->unit);
293         ifp->if_mtu = ETHERMTU;
294         ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST;
295         ifp->if_start = ep_if_start;
296         ifp->if_ioctl = ep_if_ioctl;
297         ifp->if_watchdog = ep_if_watchdog;
298         ifp->if_init = ep_if_init;
299         ifp->if_snd.ifq_maxlen = IFQ_MAXLEN;
300
301         if (!sc->epb.mii_trans) {
302                 ifmedia_init(&sc->ifmedia, 0, ep_ifmedia_upd, ep_ifmedia_sts);
303
304                 if (sc->ep_connectors & AUI)
305                         ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_5, 0, NULL);
306                 if (sc->ep_connectors & UTP)
307                         ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_T, 0, NULL);
308                 if (sc->ep_connectors & BNC)
309                         ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_10_2, 0, NULL);
310                 if (!sc->ep_connectors)
311                         ifmedia_add(&sc->ifmedia, IFM_ETHER|IFM_NONE, 0, NULL);
312         
313                 ifmedia_set(&sc->ifmedia, IFM_ETHER|ep_media2if_media[sc->ep_connector]);
314         
315                 ifm = &sc->ifmedia;
316                 ifm->ifm_media = ifm->ifm_cur->ifm_media;
317                 ep_ifmedia_upd(ifp);
318         }
319
320         if (!attached)
321                 ether_ifattach(ifp, ether_addr);
322
323 #ifdef EP_LOCAL_STATS
324         sc->rx_no_first = sc->rx_no_mbuf = sc->rx_bpf_disc =
325                 sc->rx_overrunf = sc->rx_overrunl = sc->tx_underrun = 0;
326 #endif
327         EP_FSET(sc, F_RX_FIRST);
328         sc->top = sc->mcur = 0;
329
330         return 0;
331 }
332
333 /*
334  * The order in here seems important. Otherwise we may not receive
335  * interrupts. ?!
336  */
337 static void
338 ep_if_init(xsc)
339     void *xsc;
340 {
341     struct ep_softc *sc = xsc;
342     struct ifnet *ifp = &sc->arpcom.ac_if;
343     int s, i;
344
345     if (sc->gone)
346         return;
347
348         /*
349     if (ifp->if_addrlist == (struct ifaddr *) 0)
350         return;
351         */
352
353     s = splimp();
354     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
355
356     GO_WINDOW(0);
357     outw(BASE + EP_COMMAND, STOP_TRANSCEIVER);
358     GO_WINDOW(4);
359     outw(BASE + EP_W4_MEDIA_TYPE, DISABLE_UTP);
360     GO_WINDOW(0);
361
362     /* Disable the card */
363     outw(BASE + EP_W0_CONFIG_CTRL, 0);
364
365     /* Enable the card */
366     outw(BASE + EP_W0_CONFIG_CTRL, ENABLE_DRQ_IRQ);
367
368     GO_WINDOW(2);
369
370     /* Reload the ether_addr. */
371     for (i = 0; i < 6; i++)
372         outb(BASE + EP_W2_ADDR_0 + i, sc->arpcom.ac_enaddr[i]);
373
374     outw(BASE + EP_COMMAND, RX_RESET);
375     outw(BASE + EP_COMMAND, TX_RESET);
376     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
377
378     /* Window 1 is operating window */
379     GO_WINDOW(1);
380     for (i = 0; i < 31; i++)
381         inb(BASE + EP_W1_TX_STATUS);
382
383     /* get rid of stray intr's */
384     outw(BASE + EP_COMMAND, ACK_INTR | 0xff);
385
386     outw(BASE + EP_COMMAND, SET_RD_0_MASK | S_5_INTS);
387
388     outw(BASE + EP_COMMAND, SET_INTR_MASK | S_5_INTS);
389
390     if (ifp->if_flags & IFF_PROMISC)
391         outw(BASE + EP_COMMAND, SET_RX_FILTER | FIL_INDIVIDUAL |
392          FIL_GROUP | FIL_BRDCST | FIL_ALL);
393     else
394         outw(BASE + EP_COMMAND, SET_RX_FILTER | FIL_INDIVIDUAL |
395          FIL_GROUP | FIL_BRDCST);
396
397     if (!sc->epb.mii_trans) {
398         ep_ifmedia_upd(ifp);
399     }
400
401     outw(BASE + EP_COMMAND, RX_ENABLE);
402     outw(BASE + EP_COMMAND, TX_ENABLE);
403
404     ifp->if_flags |= IFF_RUNNING;
405     ifp->if_flags &= ~IFF_OACTIVE;      /* just in case */
406
407 #ifdef EP_LOCAL_STATS
408     sc->rx_no_first = sc->rx_no_mbuf =
409         sc->rx_overrunf = sc->rx_overrunl = sc->tx_underrun = 0;
410 #endif
411     EP_FSET(sc, F_RX_FIRST);
412     if (sc->top) {
413         m_freem(sc->top);
414         sc->top = sc->mcur = 0;
415     }
416     outw(BASE + EP_COMMAND, SET_RX_EARLY_THRESH | RX_INIT_EARLY_THRESH);
417     outw(BASE + EP_COMMAND, SET_TX_START_THRESH | 16);
418
419     /*
420      * Store up a bunch of mbuf's for use later. (MAX_MBS). First we free up
421      * any that we had in case we're being called from intr or somewhere
422      * else.
423      */
424
425     GO_WINDOW(1);
426     ep_if_start(ifp);
427
428     splx(s);
429 }
430
431 static const char padmap[] = {0, 3, 2, 1};
432
433 static void
434 ep_if_start(ifp)
435     struct ifnet *ifp;
436 {
437     struct ep_softc *sc = ifp->if_softc;
438     u_int len;
439     struct mbuf *m;
440     struct mbuf *top;
441     int s, pad;
442
443     if (sc->gone) {
444         return;
445     }
446
447     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
448     if (ifp->if_flags & IFF_OACTIVE) {
449         return;
450     }
451
452 startagain:
453     /* Sneak a peek at the next packet */
454     m = ifp->if_snd.ifq_head;
455     if (m == 0) {
456         return;
457     }
458     for (len = 0, top = m; m; m = m->m_next)
459         len += m->m_len;
460
461     pad = padmap[len & 3];
462
463     /*
464      * The 3c509 automatically pads short packets to minimum ethernet length,
465      * but we drop packets that are too large. Perhaps we should truncate
466      * them instead?
467      */
468     if (len + pad > ETHER_MAX_LEN) {
469         /* packet is obviously too large: toss it */
470         ++ifp->if_oerrors;
471         IF_DEQUEUE(&ifp->if_snd, m);
472         m_freem(m);
473         goto readcheck;
474     }
475     if (inw(BASE + EP_W1_FREE_TX) < len + pad + 4) {
476         /* no room in FIFO */
477         outw(BASE + EP_COMMAND, SET_TX_AVAIL_THRESH | (len + pad + 4));
478         /* make sure */
479         if (inw(BASE + EP_W1_FREE_TX) < len + pad + 4) {
480             ifp->if_flags |= IFF_OACTIVE;
481             return;
482         }
483     } else {
484         outw(BASE + EP_COMMAND, SET_TX_AVAIL_THRESH | EP_THRESH_DISABLE);
485     }
486
487     IF_DEQUEUE(&ifp->if_snd, m);
488
489     s = splhigh();
490
491     outw(BASE + EP_W1_TX_PIO_WR_1, len); 
492     outw(BASE + EP_W1_TX_PIO_WR_1, 0x0);        /* Second dword meaningless */
493
494     if (EP_FTST(sc, F_ACCESS_32_BITS)) {
495         for (top = m; m != 0; m = m->m_next) {
496             outsl(BASE + EP_W1_TX_PIO_WR_1, mtod(m, caddr_t),
497                   m->m_len / 4);
498             if (m->m_len & 3)
499                 outsb(BASE + EP_W1_TX_PIO_WR_1,
500                       mtod(m, caddr_t) + (m->m_len & (~3)),
501                       m->m_len & 3);
502         }
503     } else {
504         for (top = m; m != 0; m = m->m_next) {
505             outsw(BASE + EP_W1_TX_PIO_WR_1, mtod(m, caddr_t), m->m_len / 2);
506             if (m->m_len & 1)
507                 outb(BASE + EP_W1_TX_PIO_WR_1,
508                      *(mtod(m, caddr_t) + m->m_len - 1));
509         }
510     }
511
512     while (pad--)
513         outb(BASE + EP_W1_TX_PIO_WR_1, 0);      /* Padding */
514
515     splx(s);
516
517     BPF_MTAP(ifp, top);
518
519     ifp->if_timer = 2;
520     ifp->if_opackets++;
521     m_freem(top);
522
523     /*
524      * Is another packet coming in? We don't want to overflow the tiny RX
525      * fifo.
526      */
527 readcheck:
528     if (inw(BASE + EP_W1_RX_STATUS) & RX_BYTES_MASK) {
529         /*
530          * we check if we have packets left, in that case we prepare to come
531          * back later
532          */
533         if (ifp->if_snd.ifq_head) {
534             outw(BASE + EP_COMMAND, SET_TX_AVAIL_THRESH | 8);
535         }
536         return;
537     }
538     goto startagain;
539 }
540
541 void
542 ep_intr(arg)
543     void *arg;
544 {
545     struct ep_softc *sc;
546     int status;
547     struct ifnet *ifp;
548     int x;
549
550     x = splbio();
551
552     sc = (struct ep_softc *)arg;
553
554      /*
555       * quick fix: Try to detect an interrupt when the card goes away.
556       */
557     if (sc->gone || inw(BASE + EP_STATUS) == 0xffff) {
558             splx(x);
559             return;
560     }
561
562     ifp = &sc->arpcom.ac_if;
563
564     outw(BASE + EP_COMMAND, SET_INTR_MASK); /* disable all Ints */
565
566 rescan:
567
568     while ((status = inw(BASE + EP_STATUS)) & S_5_INTS) {
569
570         /* first acknowledge all interrupt sources */
571         outw(BASE + EP_COMMAND, ACK_INTR | (status & S_MASK));
572
573         if (status & (S_RX_COMPLETE | S_RX_EARLY))
574             epread(sc);
575         if (status & S_TX_AVAIL) {
576             /* we need ACK */
577             ifp->if_timer = 0;
578             ifp->if_flags &= ~IFF_OACTIVE;
579             GO_WINDOW(1);
580             inw(BASE + EP_W1_FREE_TX);
581             ep_if_start(ifp);
582         }
583         if (status & S_CARD_FAILURE) {
584             ifp->if_timer = 0;
585 #ifdef EP_LOCAL_STATS
586             printf("\nep%d:\n\tStatus: %x\n", sc->unit, status);
587             GO_WINDOW(4);
588             printf("\tFIFO Diagnostic: %x\n", inw(BASE + EP_W4_FIFO_DIAG));
589             printf("\tStat: %x\n", sc->stat);
590             printf("\tIpackets=%d, Opackets=%d\n",
591                 ifp->if_ipackets, ifp->if_opackets);
592             printf("\tNOF=%d, NOMB=%d, RXOF=%d, RXOL=%d, TXU=%d\n",
593                    sc->rx_no_first, sc->rx_no_mbuf, sc->rx_overrunf,
594                    sc->rx_overrunl, sc->tx_underrun);
595 #else
596
597 #ifdef DIAGNOSTIC
598             printf("ep%d: Status: %x (input buffer overflow)\n", sc->unit, status);
599 #else
600             ++ifp->if_ierrors;
601 #endif
602
603 #endif
604             ep_if_init(sc);
605             splx(x);
606             return;
607         }
608         if (status & S_TX_COMPLETE) {
609             ifp->if_timer = 0;
610             /* we  need ACK. we do it at the end */
611             /*
612              * We need to read TX_STATUS until we get a 0 status in order to
613              * turn off the interrupt flag.
614              */
615             while ((status = inb(BASE + EP_W1_TX_STATUS)) & TXS_COMPLETE) {
616                 if (status & TXS_SUCCES_INTR_REQ);
617                 else if (status & (TXS_UNDERRUN | TXS_JABBER | TXS_MAX_COLLISION)) {
618                     outw(BASE + EP_COMMAND, TX_RESET);
619                     if (status & TXS_UNDERRUN) {
620 #ifdef EP_LOCAL_STATS
621                         sc->tx_underrun++;
622 #endif
623                     } else {
624                         if (status & TXS_JABBER);
625                         else    /* TXS_MAX_COLLISION - we shouldn't get here */
626                             ++ifp->if_collisions;
627                     }
628                     ++ifp->if_oerrors;
629                     outw(BASE + EP_COMMAND, TX_ENABLE);
630                     /*
631                      * To have a tx_avail_int but giving the chance to the
632                      * Reception
633                      */
634                     if (ifp->if_snd.ifq_head) {
635                         outw(BASE + EP_COMMAND, SET_TX_AVAIL_THRESH | 8);
636                     }
637                 }
638                 outb(BASE + EP_W1_TX_STATUS, 0x0);      /* pops up the next
639                                                          * status */
640             }                   /* while */
641             ifp->if_flags &= ~IFF_OACTIVE;
642             GO_WINDOW(1);
643             inw(BASE + EP_W1_FREE_TX);
644             ep_if_start(ifp);
645         }                       /* end TX_COMPLETE */
646     }
647
648     outw(BASE + EP_COMMAND, C_INTR_LATCH);      /* ACK int Latch */
649
650     if ((status = inw(BASE + EP_STATUS)) & S_5_INTS)
651         goto rescan;
652
653     /* re-enable Ints */
654     outw(BASE + EP_COMMAND, SET_INTR_MASK | S_5_INTS);
655
656     splx(x);
657 }
658
659 static void
660 epread(sc)
661     struct ep_softc *sc;
662 {
663     struct mbuf *top, *mcur, *m;
664     struct ifnet *ifp;
665     int lenthisone;
666
667     short rx_fifo2, status;
668     short rx_fifo;
669
670     ifp = &sc->arpcom.ac_if;
671     status = inw(BASE + EP_W1_RX_STATUS);
672
673 read_again:
674
675     if (status & ERR_RX) {
676         ++ifp->if_ierrors;
677         if (status & ERR_RX_OVERRUN) {
678             /*
679              * we can think the rx latency is actually greather than we
680              * expect
681              */
682 #ifdef EP_LOCAL_STATS
683             if (EP_FTST(sc, F_RX_FIRST))
684                 sc->rx_overrunf++;
685             else
686                 sc->rx_overrunl++;
687 #endif
688         }
689         goto out;
690     }
691     rx_fifo = rx_fifo2 = status & RX_BYTES_MASK;
692
693     if (EP_FTST(sc, F_RX_FIRST)) {
694         MGETHDR(m, MB_DONTWAIT, MT_DATA);
695         if (!m)
696             goto out;
697         if (rx_fifo >= MINCLSIZE)
698             MCLGET(m, MB_DONTWAIT);
699         sc->top = sc->mcur = top = m;
700 #define EROUND  ((sizeof(struct ether_header) + 3) & ~3)
701 #define EOFF    (EROUND - sizeof(struct ether_header))
702         top->m_data += EOFF;
703
704         /* Read what should be the header. */
705         insw(BASE + EP_W1_RX_PIO_RD_1,
706              mtod(top, caddr_t), sizeof(struct ether_header) / 2);
707         top->m_len = sizeof(struct ether_header);
708         rx_fifo -= sizeof(struct ether_header);
709         sc->cur_len = rx_fifo2;
710     } else {
711         /* come here if we didn't have a complete packet last time */
712         top = sc->top;
713         m = sc->mcur;
714         sc->cur_len += rx_fifo2;
715     }
716
717     /* Reads what is left in the RX FIFO */
718     while (rx_fifo > 0) {
719         lenthisone = min(rx_fifo, M_TRAILINGSPACE(m));
720         if (lenthisone == 0) {  /* no room in this one */
721             mcur = m;
722             MGET(m, MB_DONTWAIT, MT_DATA);
723             if (!m)
724                 goto out;
725             if (rx_fifo >= MINCLSIZE)
726                 MCLGET(m, MB_DONTWAIT);
727             m->m_len = 0;
728             mcur->m_next = m;
729             lenthisone = min(rx_fifo, M_TRAILINGSPACE(m));
730         }
731         if (EP_FTST(sc, F_ACCESS_32_BITS)) { /* default for EISA configured cards*/
732             insl(BASE + EP_W1_RX_PIO_RD_1, mtod(m, caddr_t) + m->m_len,
733                  lenthisone / 4);
734             m->m_len += (lenthisone & ~3);
735             if (lenthisone & 3)
736                 insb(BASE + EP_W1_RX_PIO_RD_1,
737                      mtod(m, caddr_t) + m->m_len,
738                      lenthisone & 3);
739             m->m_len += (lenthisone & 3);
740         } else {
741             insw(BASE + EP_W1_RX_PIO_RD_1, mtod(m, caddr_t) + m->m_len,
742                  lenthisone / 2);
743             m->m_len += lenthisone;
744             if (lenthisone & 1)
745                 *(mtod(m, caddr_t) + m->m_len - 1) = inb(BASE + EP_W1_RX_PIO_RD_1);
746         }
747         rx_fifo -= lenthisone;
748     }
749
750     if (status & ERR_RX_INCOMPLETE) {   /* we haven't received the complete
751                                          * packet */
752         sc->mcur = m;
753 #ifdef EP_LOCAL_STATS
754         sc->rx_no_first++;      /* to know how often we come here */
755 #endif
756         EP_FRST(sc, F_RX_FIRST);
757         if (!((status = inw(BASE + EP_W1_RX_STATUS)) & ERR_RX_INCOMPLETE)) {
758             /* we see if by now, the packet has completly arrived */
759             goto read_again;
760         }
761         outw(BASE + EP_COMMAND, SET_RX_EARLY_THRESH | RX_NEXT_EARLY_THRESH);
762         return;
763     }
764     outw(BASE + EP_COMMAND, RX_DISCARD_TOP_PACK);
765     ++ifp->if_ipackets;
766     EP_FSET(sc, F_RX_FIRST);
767     top->m_pkthdr.rcvif = &sc->arpcom.ac_if;
768     top->m_pkthdr.len = sc->cur_len;
769
770     (*ifp->if_input)(ifp, top);
771     sc->top = 0;
772     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
773     outw(BASE + EP_COMMAND, SET_RX_EARLY_THRESH | RX_INIT_EARLY_THRESH);
774     return;
775
776 out:
777     outw(BASE + EP_COMMAND, RX_DISCARD_TOP_PACK);
778     if (sc->top) {
779         m_freem(sc->top);
780         sc->top = 0;
781 #ifdef EP_LOCAL_STATS
782         sc->rx_no_mbuf++;
783 #endif
784     }
785     EP_FSET(sc, F_RX_FIRST);
786     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
787     outw(BASE + EP_COMMAND, SET_RX_EARLY_THRESH | RX_INIT_EARLY_THRESH);
788 }
789
790 static int 
791 ep_ifmedia_upd(ifp)
792         struct ifnet *          ifp;
793 {
794         struct ep_softc *       sc = ifp->if_softc;
795         int                     i = 0, j;
796
797         GO_WINDOW(0);
798         outw(BASE + EP_COMMAND, STOP_TRANSCEIVER);
799         GO_WINDOW(4);
800         outw(BASE + EP_W4_MEDIA_TYPE, DISABLE_UTP);
801         GO_WINDOW(0);
802
803         switch (IFM_SUBTYPE(sc->ifmedia.ifm_media)) {
804                 case IFM_10_T:
805                         if (sc->ep_connectors & UTP) {
806                                 i = ACF_CONNECTOR_UTP;
807                                 GO_WINDOW(4);
808                                 outw(BASE + EP_W4_MEDIA_TYPE, ENABLE_UTP);
809                         }
810                         break;
811                 case IFM_10_2:
812                         if (sc->ep_connectors & BNC) {
813                                 i = ACF_CONNECTOR_BNC;
814                                 outw(BASE + EP_COMMAND, START_TRANSCEIVER);
815                                 DELAY(DELAY_MULTIPLE * 1000);
816                         }
817                         break;
818                 case IFM_10_5:
819                         if (sc->ep_connectors & AUI)
820                                 i = ACF_CONNECTOR_AUI;
821                         break;
822                 default:
823                         i = sc->ep_connector;
824                         device_printf(sc->dev,
825                                 "strange connector type in EEPROM: assuming AUI\n");
826         }
827
828         GO_WINDOW(0);
829         j = inw(BASE + EP_W0_ADDRESS_CFG) & 0x3fff;
830         outw(BASE + EP_W0_ADDRESS_CFG, j | (i << ACF_CONNECTOR_BITS));
831
832         return (0);
833 }
834
835 static void
836 ep_ifmedia_sts(ifp, ifmr)
837         struct ifnet *          ifp;
838         struct ifmediareq *     ifmr;
839 {
840         struct ep_softc *       sc = ifp->if_softc;
841
842         ifmr->ifm_active = sc->ifmedia.ifm_media;
843
844         return;
845 }
846
847 static int
848 ep_if_ioctl(ifp, cmd, data, cr)
849         struct ifnet *          ifp;
850         u_long                  cmd;
851         caddr_t                 data;
852         struct ucred *          cr;
853 {
854         struct ep_softc *       sc = ifp->if_softc;
855         struct ifreq *          ifr = (struct ifreq *)data;
856         int s, error = 0;
857
858         s = splimp();
859
860         switch (cmd) {
861         case SIOCSIFADDR:
862         case SIOCGIFADDR:
863         case SIOCSIFMTU:
864                 error = ether_ioctl(ifp, cmd, data);
865         break;
866
867         case SIOCSIFFLAGS:
868                 if (((ifp->if_flags & IFF_UP) == 0) &&
869                     (ifp->if_flags & IFF_RUNNING)) {
870                         ifp->if_flags &= ~IFF_RUNNING;
871                         epstop(sc);
872                 } else {
873                         /* reinitialize card on any parameter change */
874                         ep_if_init(sc);
875                 }
876                 break;
877 #ifdef notdef
878         case SIOCGHWADDR:
879                 bcopy((caddr_t) sc->sc_addr, (caddr_t) & ifr->ifr_data,
880                       sizeof(sc->sc_addr));
881                 break;
882 #endif
883         case SIOCADDMULTI:
884         case SIOCDELMULTI:
885                 /*
886                  * The Etherlink III has no programmable multicast
887                  * filter.  We always initialize the card to be
888                  * promiscuous to multicast, since we're always a
889                  * member of the ALL-SYSTEMS group, so there's no
890                  * need to process SIOC*MULTI requests.
891                  */
892                 error = 0;
893                 break;
894         case SIOCSIFMEDIA:
895         case SIOCGIFMEDIA:
896                 if (!sc->epb.mii_trans) {
897                         error = ifmedia_ioctl(ifp, ifr, &sc->ifmedia, cmd);
898                 } else {
899                         error = EINVAL;
900                 }
901                 break;
902         default:
903                 error = EINVAL;
904                 break;
905         }
906
907         (void)splx(s);
908
909         return (error);
910 }
911
912 static void
913 ep_if_watchdog(ifp)
914     struct ifnet *ifp;
915 {
916     struct ep_softc *sc = ifp->if_softc;
917
918     /*
919     printf("ep: watchdog\n");
920
921     log(LOG_ERR, "%s: watchdog\n", ifp->if_xname);
922     ifp->if_oerrors++;
923     */
924
925     if (sc->gone) {
926         return;
927     }
928
929     ifp->if_flags &= ~IFF_OACTIVE;
930     ep_if_start(ifp);
931     ep_intr(ifp->if_softc);
932 }
933
934 static void
935 epstop(sc)
936     struct ep_softc *sc;
937 {
938     if (sc->gone) {
939         return;
940     }
941
942     outw(BASE + EP_COMMAND, RX_DISABLE);
943     outw(BASE + EP_COMMAND, RX_DISCARD_TOP_PACK);
944     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
945     outw(BASE + EP_COMMAND, TX_DISABLE);
946     outw(BASE + EP_COMMAND, STOP_TRANSCEIVER);
947     outw(BASE + EP_COMMAND, RX_RESET);
948     outw(BASE + EP_COMMAND, TX_RESET);
949     while (inw(BASE + EP_STATUS) & S_COMMAND_IN_PROGRESS);
950     outw(BASE + EP_COMMAND, C_INTR_LATCH);
951     outw(BASE + EP_COMMAND, SET_RD_0_MASK);
952     outw(BASE + EP_COMMAND, SET_INTR_MASK);
953     outw(BASE + EP_COMMAND, SET_RX_FILTER);
954 }