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