bed09e13b897663cea95a2fd93b0f01f2a88021d
[dragonfly.git] / sys / dev / netif / snc / dp83932.c
1 /*      $FreeBSD: src/sys/dev/snc/dp83932.c,v 1.1.2.2 2003/02/11 08:52:00 nyan Exp $    */
2 /*      $DragonFly: src/sys/dev/netif/snc/Attic/dp83932.c,v 1.15 2005/06/12 16:31:50 joerg Exp $        */
3 /*      $NecBSD: dp83932.c,v 1.5 1999/07/29 05:08:44 kmatsuda Exp $     */
4 /*      $NetBSD: if_snc.c,v 1.18 1998/04/25 21:27:40 scottr Exp $       */
5
6 /*
7  * Copyright (c) 1997, 1998, 1999
8  *      Kouichi Matsuda.  All rights reserved.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  * 3. All advertising materials mentioning features or use of this software
19  *    must display the following acknowledgement:
20  *      This product includes software developed by Kouichi Matsuda for
21  *      NetBSD/pc98.
22  * 4. The name of the author may not be used to endorse or promote products
23  *    derived from this software without specific prior written permission
24  *
25  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
26  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
27  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
28  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
29  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
30  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
31  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
32  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
33  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
34  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35  */
36
37 /*
38  * Modified for FreeBSD(98) 4.0 from NetBSD/pc98 1.4.2 by Motomichi Matsuzaki.
39  */
40
41 /*
42  * Modified for NetBSD/pc98 1.2G from NetBSD/mac68k 1.2G by Kouichi Matsuda.
43  * Make adapted for NEC PC-9801-83, 84, PC-9801-103, 104, PC-9801N-25 and
44  * PC-9801N-J02, J02R, which uses National Semiconductor DP83934AVQB as
45  * Ethernet Controller and National Semiconductor NS46C46 as
46  * (64 * 16 bits) Microwire Serial EEPROM.
47  */
48
49 /*
50  * National Semiconductor  DP8393X SONIC Driver
51  * Copyright (c) 1991   Algorithmics Ltd (http://www.algor.co.uk)
52  * You may use, copy, and modify this program so long as you retain the
53  * copyright line.
54  *
55  * This driver has been substantially modified since Algorithmics donated
56  * it.
57  *
58  *   Denton Gentry <denny1@home.com>
59  * and also
60  *   Yanagisawa Takeshi <yanagisw@aa.ap.titech.ac.jp>
61  * did the work to get this running on the Macintosh.
62  */
63
64 #include "opt_inet.h"
65
66 #include <sys/param.h>
67 #include <sys/systm.h>
68 #include <sys/sockio.h>
69 #include <sys/mbuf.h>
70 #include <sys/protosw.h>
71 #include <sys/socket.h>
72 #include <sys/syslog.h>
73 #include <sys/errno.h>
74 #include <sys/thread2.h>
75 #if NRND > 0
76 #include <sys/rnd.h>
77 #endif
78
79 #include <net/ethernet.h>
80 #include <net/if.h>
81 #include <net/ifq_var.h>
82 #include <net/if_arp.h>
83 #include <net/if_dl.h>
84 #include <net/if_types.h>
85 #include <net/if_media.h>
86
87 #ifdef INET
88 #include <netinet/in.h>
89 #include <netinet/in_systm.h>
90 #include <netinet/in_var.h>
91 #include <netinet/ip.h>
92 #endif
93
94 #include <net/bpf.h>
95 #include <net/bpfdesc.h>
96
97 #include <sys/bus.h>
98 #include <machine/bus.h>
99 #include "dp83932reg.h"
100 #include "dp83932var.h"
101
102 hide void       sncwatchdog (struct ifnet *);
103 hide void       sncinit (void *);
104 hide int        sncstop (struct snc_softc *sc);
105 hide int        sncioctl (struct ifnet *ifp, u_long cmd, caddr_t data,
106                           struct ucred *);
107 hide void       sncstart (struct ifnet *ifp);
108 hide void       sncreset (struct snc_softc *sc);
109
110 hide void       caminitialise (struct snc_softc *);
111 hide void       camentry (struct snc_softc *, int, u_char *ea);
112 hide void       camprogram (struct snc_softc *);
113 hide void       initialise_tda (struct snc_softc *);
114 hide void       initialise_rda (struct snc_softc *);
115 hide void       initialise_rra (struct snc_softc *);
116 #ifdef SNCDEBUG
117 hide void       camdump (struct snc_softc *sc);
118 #endif
119
120 hide void       sonictxint (struct snc_softc *);
121 hide void       sonicrxint (struct snc_softc *);
122
123 hide u_int      sonicput (struct snc_softc *sc, struct mbuf *m0,
124                             int mtd_next);
125 hide int        sonic_read (struct snc_softc *, u_int32_t, int);
126 hide struct mbuf *sonic_get (struct snc_softc *,
127                             u_int32_t, int);
128
129 int     snc_enable (struct snc_softc *);
130 void    snc_disable (struct snc_softc *);
131
132 int     snc_mediachange (struct ifnet *);
133 void    snc_mediastatus (struct ifnet *, struct ifmediareq *);
134
135 #ifdef NetBSD
136 #if NetBSD <= 199714
137 struct cfdriver snc_cd = {
138         NULL, "snc", DV_IFNET
139 };
140 #endif
141 #endif
142
143 #undef assert
144 #undef _assert
145
146 #ifdef NDEBUG
147 #define assert(e)       ((void)0)
148 #define _assert(e)      ((void)0)
149 #else
150 #define _assert(e)      assert(e)
151 #ifdef __STDC__
152 #define assert(e)       ((e) ? (void)0 : __assert("snc ", __FILE__, __LINE__, #e))
153 #else   /* PCC */
154 #define assert(e)       ((e) ? (void)0 : __assert("snc "__FILE__, __LINE__, "e"))
155 #endif
156 #endif
157
158 #ifdef  SNCDEBUG
159 #define SNC_SHOWTXHDR   0x01    /* show tx ether_header */
160 #define SNC_SHOWRXHDR   0x02    /* show rx ether_header */
161 #define SNC_SHOWCAMENT  0x04    /* show CAM entry */
162 #endif  /* SNCDEBUG */
163 int sncdebug = 0;
164
165
166 void
167 sncconfig(sc, media, nmedia, defmedia, eaddr)
168         struct snc_softc *sc;
169         int *media, nmedia, defmedia;
170         uint8_t *eaddr;
171 {
172         struct ifnet *ifp = &sc->sc_if;
173         int i;
174
175 #ifdef SNCDEBUG
176         if ((sncdebug & SNC_SHOWCAMENT) != 0) {
177                 camdump(sc);
178         }
179 #endif
180
181 #ifdef SNCDEBUG
182         device_printf(sc->sc_dev,
183                       "buffers: rra=0x%x cda=0x%x rda=0x%x tda=0x%x\n",
184                       sc->v_rra[0], sc->v_cda,
185                       sc->v_rda, sc->mtda[0].mtd_vtxp);
186 #endif
187
188         ifp->if_softc = sc;
189         if_initname(ifp, "snc", device_get_unit(sc->sc_dev));
190         ifp->if_ioctl = sncioctl;
191         ifp->if_start = sncstart;
192         ifp->if_flags =
193             IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST;
194         ifp->if_watchdog = sncwatchdog;
195         ifp->if_init = sncinit;
196         ifp->if_mtu = ETHERMTU;
197         ifq_set_maxlen(&ifp->if_snd, IFQ_MAXLEN);
198         ifq_set_ready(&ifp->if_snd);
199
200         /* Initialize media goo. */
201         ifmedia_init(&sc->sc_media, 0, snc_mediachange,
202             snc_mediastatus);
203         if (media != NULL) {
204                 for (i = 0; i < nmedia; i++)
205                         ifmedia_add(&sc->sc_media, media[i], 0, NULL);
206                 ifmedia_set(&sc->sc_media, defmedia);
207         } else {
208                 ifmedia_add(&sc->sc_media, IFM_ETHER|IFM_MANUAL, 0, NULL);
209                 ifmedia_set(&sc->sc_media, IFM_ETHER|IFM_MANUAL);
210         }
211
212         ether_ifattach(ifp, eaddr);
213
214 #if NRND > 0
215         rnd_attach_source(&sc->rnd_source, device_get_nameunit(sc->sc_dev),
216             RND_TYPE_NET, 0);
217 #endif
218 }
219
220 void
221 sncshutdown(arg)
222         void *arg;
223 {
224
225         sncstop((struct snc_softc *)arg);
226 }
227
228 /*
229  * Media change callback.
230  */
231 int
232 snc_mediachange(ifp)
233         struct ifnet *ifp;
234 {
235         struct snc_softc *sc = ifp->if_softc;
236
237         if (sc->sc_mediachange)
238                 return ((*sc->sc_mediachange)(sc));
239         return (EINVAL);
240 }
241
242 /*
243  * Media status callback.
244  */
245 void
246 snc_mediastatus(ifp, ifmr)
247         struct ifnet *ifp;
248         struct ifmediareq *ifmr;
249 {
250         struct snc_softc *sc = ifp->if_softc;
251
252         if (sc->sc_enabled == 0) {
253                 ifmr->ifm_active = IFM_ETHER | IFM_NONE;
254                 ifmr->ifm_status = 0;
255                 return;
256         }
257
258         if (sc->sc_mediastatus)
259                 (*sc->sc_mediastatus)(sc, ifmr);
260 }
261
262
263 hide int
264 sncioctl(ifp, cmd, data, cr)
265         struct ifnet *ifp;
266         u_long cmd;
267         caddr_t data;
268         struct ucred *cr;
269 {
270         struct ifreq *ifr;
271         struct snc_softc *sc = ifp->if_softc;
272         int err = 0, temp;
273
274         crit_enter();
275
276         switch (cmd) {
277         case SIOCSIFFLAGS:
278                 if ((ifp->if_flags & IFF_UP) == 0 &&
279                     (ifp->if_flags & IFF_RUNNING) != 0) {
280                         /*
281                          * If interface is marked down and it is running,
282                          * then stop it.
283                          */
284                         sncstop(sc);
285                         ifp->if_flags &= ~IFF_RUNNING;
286                         snc_disable(sc);
287                 } else if ((ifp->if_flags & IFF_UP) != 0 &&
288                     (ifp->if_flags & IFF_RUNNING) == 0) {
289                         /*
290                          * If interface is marked up and it is stopped,
291                          * then start it.
292                          */
293                         if ((err = snc_enable(sc)) != 0)
294                                 break;
295                         sncinit(sc);
296                 } else if (sc->sc_enabled) {
297                         /*
298                          * reset the interface to pick up any other changes
299                          * in flags
300                          */
301                         temp = ifp->if_flags & IFF_UP;
302                         sncreset(sc);
303                         ifp->if_flags |= temp;
304                         sncstart(ifp);
305                 }
306                 break;
307
308         case SIOCADDMULTI:
309         case SIOCDELMULTI:
310                 if (sc->sc_enabled == 0) {
311                         err = EIO;
312                         break;
313                 }
314                 temp = ifp->if_flags & IFF_UP;
315                 sncreset(sc);
316                 ifp->if_flags |= temp;
317                 err = 0;
318                 break;
319         case SIOCGIFMEDIA:
320         case SIOCSIFMEDIA:
321                 ifr = (struct ifreq *) data;
322                 err = ifmedia_ioctl(ifp, ifr, &sc->sc_media, cmd);
323                 break;
324         default:
325                 err = ether_ioctl(ifp, cmd, data);
326                 break;
327         }
328
329         crit_exit();
330
331         return (err);
332 }
333
334 /*
335  * Encapsulate a packet of type family for the local net.
336  */
337 hide void
338 sncstart(ifp)
339         struct ifnet *ifp;
340 {
341         struct snc_softc        *sc = ifp->if_softc;
342         struct mbuf     *m;
343         int             mtd_next;
344
345         if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
346                 return;
347
348 outloop:
349         /* Check for room in the xmit buffer. */
350         if ((mtd_next = (sc->mtd_free + 1)) == NTDA)
351                 mtd_next = 0;
352
353         if (mtd_next == sc->mtd_hw) {
354                 ifp->if_flags |= IFF_OACTIVE;
355                 return;
356         }
357
358         m = ifq_poll(&ifp->if_snd);
359         if (m == NULL)
360                 return;
361
362         /* We need the header for m_pkthdr.len. */
363         if ((m->m_flags & M_PKTHDR) == 0)
364                 panic("%s: sncstart: no header mbuf",
365                       device_get_nameunit(sc->sc_dev));
366
367         /*
368          * If there is nothing in the o/p queue, and there is room in
369          * the Tx ring, then send the packet directly.  Otherwise append
370          * it to the o/p queue.
371          */
372         if ((sonicput(sc, m, mtd_next)) == 0)
373                 return;
374         m = ifq_dequeue(&ifp->if_snd);
375
376         BPF_MTAP(ifp, m);
377
378         sc->mtd_prev = sc->mtd_free;
379         sc->mtd_free = mtd_next;
380
381         ifp->if_opackets++;             /* # of pkts */
382
383         /* Jump back for possibly more punishment. */
384         goto outloop;
385 }
386
387 /*
388  * reset and restart the SONIC.  Called in case of fatal
389  * hardware/software errors.
390  */
391 hide void
392 sncreset(sc)
393         struct snc_softc *sc;
394 {
395         sncstop(sc);
396         sncinit(sc);
397 }
398
399 hide void
400 sncinit(xsc)
401         void *xsc;
402 {
403         struct snc_softc *sc = xsc;
404         u_long  s_rcr;
405
406         if (sc->sc_if.if_flags & IFF_RUNNING)
407                 /* already running */
408                 return;
409
410         crit_enter();
411
412         NIC_PUT(sc, SNCR_CR, CR_RST);   /* DCR only accessable in reset mode! */
413
414         /* config it */
415         NIC_PUT(sc, SNCR_DCR, (sc->sncr_dcr |
416                 (sc->bitmode ? DCR_DW32 : DCR_DW16)));
417         NIC_PUT(sc, SNCR_DCR2, sc->sncr_dcr2);
418
419         s_rcr = RCR_BRD | RCR_LBNONE;
420         if (sc->sc_if.if_flags & IFF_PROMISC)
421                 s_rcr |= RCR_PRO;
422         if (sc->sc_if.if_flags & IFF_ALLMULTI)
423                 s_rcr |= RCR_AMC;
424         NIC_PUT(sc, SNCR_RCR, s_rcr);
425
426         NIC_PUT(sc, SNCR_IMR, (IMR_PRXEN | IMR_PTXEN | IMR_TXEREN | IMR_LCDEN));
427
428         /* clear pending interrupts */
429         NIC_PUT(sc, SNCR_ISR, ISR_ALL);
430
431         /* clear tally counters */
432         NIC_PUT(sc, SNCR_CRCT, -1);
433         NIC_PUT(sc, SNCR_FAET, -1);
434         NIC_PUT(sc, SNCR_MPT, -1);
435
436         initialise_tda(sc);
437         initialise_rda(sc);
438         initialise_rra(sc);
439
440         /* enable the chip */
441         NIC_PUT(sc, SNCR_CR, 0);
442         wbflush();
443
444         /* program the CAM */
445         camprogram(sc);
446
447         /* get it to read resource descriptors */
448         NIC_PUT(sc, SNCR_CR, CR_RRRA);
449         wbflush();
450         while ((NIC_GET(sc, SNCR_CR)) & CR_RRRA)
451                 continue;
452
453         /* enable rx */
454         NIC_PUT(sc, SNCR_CR, CR_RXEN);
455         wbflush();
456
457         /* flag interface as "running" */
458         sc->sc_if.if_flags |= IFF_RUNNING;
459         sc->sc_if.if_flags &= ~IFF_OACTIVE;
460
461         crit_exit();
462 }
463
464 /*
465  * close down an interface and free its buffers
466  * Called on final close of device, or if sncinit() fails
467  * part way through.
468  */
469 hide int
470 sncstop(sc)
471         struct snc_softc *sc;
472 {
473         struct mtd *mtd;
474
475         crit_enter();
476
477         /* stick chip in reset */
478         NIC_PUT(sc, SNCR_CR, CR_RST);
479         wbflush();
480
481         /* free all receive buffers (currently static so nothing to do) */
482
483         /* free all pending transmit mbufs */
484         while (sc->mtd_hw != sc->mtd_free) {
485                 mtd = &sc->mtda[sc->mtd_hw];
486                 if (mtd->mtd_mbuf)
487                         m_freem(mtd->mtd_mbuf);
488                 if (++sc->mtd_hw == NTDA) sc->mtd_hw = 0;
489         }
490
491         sc->sc_if.if_timer = 0;
492         sc->sc_if.if_flags &= ~(IFF_RUNNING | IFF_UP);
493
494         crit_exit();
495
496         return (0);
497 }
498
499 /*
500  * Called if any Tx packets remain unsent after 5 seconds,
501  * In all cases we just reset the chip, and any retransmission
502  * will be handled by higher level protocol timeouts.
503  */
504 hide void
505 sncwatchdog(ifp)
506         struct ifnet *ifp;
507 {
508         struct snc_softc *sc = ifp->if_softc;
509         struct mtd *mtd;
510         int     temp;
511
512         if (sc->mtd_hw != sc->mtd_free) {
513                 /* something still pending for transmit */
514                 mtd = &sc->mtda[sc->mtd_hw];
515                 if (SRO(sc, mtd->mtd_vtxp, TXP_STATUS) == 0)
516                         log(LOG_ERR, "%s: Tx - timeout\n",
517                             device_get_nameunit(sc->sc_dev));
518                 else
519                         log(LOG_ERR, "%s: Tx - lost interrupt\n",
520                             device_get_nameunit(sc->sc_dev));
521                 temp = ifp->if_flags & IFF_UP;
522                 sncreset(sc);
523                 ifp->if_flags |= temp;
524         }
525 }
526
527 /*
528  * stuff packet into sonic (at splnet)
529  */
530 hide u_int
531 sonicput(sc, m0, mtd_next)
532         struct snc_softc *sc;
533         struct mbuf *m0;
534         int mtd_next;
535 {
536         struct mtd *mtdp;
537         struct mbuf *m;
538         u_int32_t buff;
539         u_int32_t txp;
540         u_int   len = 0;
541         u_int   totlen = 0;
542
543 #ifdef whyonearthwouldyoudothis
544         if (NIC_GET(sc, SNCR_CR) & CR_TXP)
545                 return (0);
546 #endif
547
548         /* grab the replacement mtd */
549         mtdp = &sc->mtda[sc->mtd_free];
550
551         buff = mtdp->mtd_vbuf;
552         
553         /* this packet goes to mtdnext fill in the TDA */
554         mtdp->mtd_mbuf = m0;
555         txp = mtdp->mtd_vtxp;
556
557         /* Write to the config word. Every (NTDA/2)+1 packets we set an intr */
558         if (sc->mtd_pint == 0) {
559                 sc->mtd_pint = NTDA/2;
560                 SWO(sc, txp, TXP_CONFIG, TCR_PINT);
561         } else {
562                 sc->mtd_pint--;
563                 SWO(sc, txp, TXP_CONFIG, 0);
564         }
565
566         for (m = m0; m; m = m->m_next) {
567                 len = m->m_len;
568                 totlen += len;
569                 (*sc->sc_copytobuf)(sc, mtod(m, caddr_t), buff, len);
570                 buff += len;
571         }
572         if (totlen >= TXBSIZE) {
573                 panic("%s: sonicput: packet overflow",
574                       device_get_nameunit(sc->sc_dev));
575         }
576
577         SWO(sc, txp, TXP_FRAGOFF + (0 * TXP_FRAGSIZE) + TXP_FPTRLO,
578             LOWER(mtdp->mtd_vbuf));
579         SWO(sc, txp, TXP_FRAGOFF + (0 * TXP_FRAGSIZE) + TXP_FPTRHI,
580             UPPER(mtdp->mtd_vbuf));
581
582         if (totlen < ETHERMIN + sizeof(struct ether_header)) {
583                 int pad = ETHERMIN + sizeof(struct ether_header) - totlen;
584                 (*sc->sc_zerobuf)(sc, mtdp->mtd_vbuf + totlen, pad);
585                 totlen = ETHERMIN + sizeof(struct ether_header);
586         }
587
588         SWO(sc, txp, TXP_FRAGOFF + (0 * TXP_FRAGSIZE) + TXP_FSIZE,
589             totlen);
590         SWO(sc, txp, TXP_FRAGCNT, 1);
591         SWO(sc, txp, TXP_PKTSIZE, totlen);
592
593         /* link onto the next mtd that will be used */
594         SWO(sc, txp, TXP_FRAGOFF + (1 * TXP_FRAGSIZE) + TXP_FPTRLO,
595             LOWER(sc->mtda[mtd_next].mtd_vtxp) | EOL);
596
597         /*
598          * The previous txp.tlink currently contains a pointer to
599          * our txp | EOL. Want to clear the EOL, so write our
600          * pointer to the previous txp.
601          */
602         SWO(sc, sc->mtda[sc->mtd_prev].mtd_vtxp, sc->mtd_tlinko,
603             LOWER(mtdp->mtd_vtxp));
604
605         /* make sure chip is running */
606         wbflush();
607         NIC_PUT(sc, SNCR_CR, CR_TXP);
608         wbflush();
609         sc->sc_if.if_timer = 5; /* 5 seconds to watch for failing to transmit */
610
611         return (totlen);
612 }
613
614 /*
615  * These are called from sonicioctl() when /etc/ifconfig is run to set
616  * the address or switch the i/f on.
617  */
618 /*
619  * CAM support
620  */
621 hide void
622 caminitialise(sc)
623         struct snc_softc *sc;
624 {
625         u_int32_t v_cda = sc->v_cda;
626         int     i;
627         int     camoffset;
628
629         for (i = 0; i < MAXCAM; i++) {
630                 camoffset = i * CDA_CAMDESC;
631                 SWO(sc, v_cda, (camoffset + CDA_CAMEP), i);
632                 SWO(sc, v_cda, (camoffset + CDA_CAMAP2), 0);
633                 SWO(sc, v_cda, (camoffset + CDA_CAMAP1), 0);
634                 SWO(sc, v_cda, (camoffset + CDA_CAMAP0), 0);
635         }
636         SWO(sc, v_cda, CDA_ENABLE, 0);
637
638 #ifdef SNCDEBUG
639         if ((sncdebug & SNC_SHOWCAMENT) != 0) {
640                 camdump(sc);
641         }
642 #endif
643 }
644
645 hide void
646 camentry(sc, entry, ea)
647         int entry;
648         u_char *ea;
649         struct snc_softc *sc;
650 {
651         u_int32_t v_cda = sc->v_cda;
652         int     camoffset = entry * CDA_CAMDESC;
653
654         SWO(sc, v_cda, camoffset + CDA_CAMEP, entry);
655         SWO(sc, v_cda, camoffset + CDA_CAMAP2, (ea[5] << 8) | ea[4]);
656         SWO(sc, v_cda, camoffset + CDA_CAMAP1, (ea[3] << 8) | ea[2]);
657         SWO(sc, v_cda, camoffset + CDA_CAMAP0, (ea[1] << 8) | ea[0]);
658         SWO(sc, v_cda, CDA_ENABLE, 
659             (SRO(sc, v_cda, CDA_ENABLE) | (1 << entry)));
660 }
661
662 hide void
663 camprogram(sc)
664         struct snc_softc *sc;
665 {
666         struct ifmultiaddr      *ifma;
667         struct ifnet *ifp;
668         int     timeout;
669         int     mcount = 0;
670
671         caminitialise(sc);
672
673         ifp = &sc->sc_if;
674
675         /* Always load our own address first. */
676         camentry (sc, mcount, sc->sc_ethercom.ac_enaddr);
677         mcount++;
678
679         /* Assume we won't need allmulti bit. */
680         ifp->if_flags &= ~IFF_ALLMULTI;
681
682         /* Loop through multicast addresses */
683         for (ifma = ifp->if_multiaddrs.lh_first; ifma != NULL;
684                                 ifma = ifma->ifma_link.le_next) {
685                 if (ifma->ifma_addr->sa_family != AF_LINK)
686                         continue;
687                 if (mcount == MAXCAM) {
688                          ifp->if_flags |= IFF_ALLMULTI;
689                          break;
690                 }
691
692                 /* program the CAM with the specified entry */
693                 camentry(sc, mcount,
694                          LLADDR((struct sockaddr_dl *)ifma->ifma_addr));
695                 mcount++;
696         }
697
698         NIC_PUT(sc, SNCR_CDP, LOWER(sc->v_cda));
699         NIC_PUT(sc, SNCR_CDC, MAXCAM);
700         NIC_PUT(sc, SNCR_CR, CR_LCAM);
701         wbflush();
702
703         timeout = 10000;
704         while ((NIC_GET(sc, SNCR_CR) & CR_LCAM) && timeout--)
705                 continue;
706         if (timeout == 0) {
707                 /* XXX */
708                 panic("%s: CAM initialisation failed\n",
709                       device_get_nameunit(sc->sc_dev));
710         }
711         timeout = 10000;
712         while (((NIC_GET(sc, SNCR_ISR) & ISR_LCD) == 0) && timeout--)
713                 continue;
714
715         if (NIC_GET(sc, SNCR_ISR) & ISR_LCD)
716                 NIC_PUT(sc, SNCR_ISR, ISR_LCD);
717         else
718                 device_printf(sc->sc_dev,
719                               "CAM initialisation without interrupt\n");
720 }
721
722 #ifdef SNCDEBUG
723 hide void
724 camdump(sc)
725         struct snc_softc *sc;
726 {
727         int     i;
728
729         printf("CAM entries:\n");
730         NIC_PUT(sc, SNCR_CR, CR_RST);
731         wbflush();
732
733         for (i = 0; i < 16; i++) {
734                 ushort  ap2, ap1, ap0;
735                 NIC_PUT(sc, SNCR_CEP, i);
736                 wbflush();
737                 ap2 = NIC_GET(sc, SNCR_CAP2);
738                 ap1 = NIC_GET(sc, SNCR_CAP1);
739                 ap0 = NIC_GET(sc, SNCR_CAP0);
740                 printf("%d: ap2=0x%x ap1=0x%x ap0=0x%x\n", i, ap2, ap1, ap0);
741         }
742         printf("CAM enable 0x%x\n", NIC_GET(sc, SNCR_CEP));
743
744         NIC_PUT(sc, SNCR_CR, 0);
745         wbflush();
746 }
747 #endif
748
749 hide void
750 initialise_tda(sc)
751         struct snc_softc *sc;
752 {
753         struct mtd *mtd;
754         int     i;
755
756         for (i = 0; i < NTDA; i++) {
757                 mtd = &sc->mtda[i];
758                 mtd->mtd_mbuf = 0;
759         }
760
761         sc->mtd_hw = 0;
762         sc->mtd_prev = NTDA - 1;
763         sc->mtd_free = 0;
764         sc->mtd_tlinko = TXP_FRAGOFF + 1*TXP_FRAGSIZE + TXP_FPTRLO;
765         sc->mtd_pint = NTDA/2;
766
767         NIC_PUT(sc, SNCR_UTDA, UPPER(sc->mtda[0].mtd_vtxp));
768         NIC_PUT(sc, SNCR_CTDA, LOWER(sc->mtda[0].mtd_vtxp));
769 }
770
771 hide void
772 initialise_rda(sc)
773         struct snc_softc *sc;
774 {
775         int             i;
776         u_int32_t       vv_rda = 0;
777         u_int32_t       v_rda = 0;
778
779         /* link the RDA's together into a circular list */
780         for (i = 0; i < (sc->sc_nrda - 1); i++) {
781                 v_rda = sc->v_rda + (i * RXPKT_SIZE(sc));
782                 vv_rda = sc->v_rda + ((i+1) * RXPKT_SIZE(sc));
783                 SWO(sc, v_rda, RXPKT_RLINK, LOWER(vv_rda));
784                 SWO(sc, v_rda, RXPKT_INUSE, 1);
785         }
786         v_rda = sc->v_rda + ((sc->sc_nrda - 1) * RXPKT_SIZE(sc));
787         SWO(sc, v_rda, RXPKT_RLINK, LOWER(sc->v_rda) | EOL);
788         SWO(sc, v_rda, RXPKT_INUSE, 1);
789
790         /* mark end of receive descriptor list */
791         sc->sc_rdamark = sc->sc_nrda - 1;
792
793         sc->sc_rxmark = 0;
794
795         NIC_PUT(sc, SNCR_URDA, UPPER(sc->v_rda));
796         NIC_PUT(sc, SNCR_CRDA, LOWER(sc->v_rda));
797         wbflush();
798 }
799
800 hide void
801 initialise_rra(sc)
802         struct snc_softc *sc;
803 {
804         int     i;
805         u_int   v;
806         int     bitmode = sc->bitmode;
807
808         if (bitmode)
809                 NIC_PUT(sc, SNCR_EOBC, RBASIZE(sc) / 2 - 2);
810         else
811                 NIC_PUT(sc, SNCR_EOBC, RBASIZE(sc) / 2 - 1);
812
813         NIC_PUT(sc, SNCR_URRA, UPPER(sc->v_rra[0]));
814         NIC_PUT(sc, SNCR_RSA, LOWER(sc->v_rra[0]));
815         /* rea must point just past the end of the rra space */
816         NIC_PUT(sc, SNCR_REA, LOWER(sc->v_rea));
817         NIC_PUT(sc, SNCR_RRP, LOWER(sc->v_rra[0]));
818         NIC_PUT(sc, SNCR_RSC, 0);
819
820         /* fill up SOME of the rra with buffers */
821         for (i = 0; i < NRBA; i++) {
822                 v = SONIC_GETDMA(sc->rbuf[i]);
823                 SWO(sc, sc->v_rra[i], RXRSRC_PTRHI, UPPER(v));
824                 SWO(sc, sc->v_rra[i], RXRSRC_PTRLO, LOWER(v));
825                 SWO(sc, sc->v_rra[i], RXRSRC_WCHI, UPPER(NBPG/2));
826                 SWO(sc, sc->v_rra[i], RXRSRC_WCLO, LOWER(NBPG/2));
827         }
828         sc->sc_rramark = NRBA;
829         NIC_PUT(sc, SNCR_RWP, LOWER(sc->v_rra[sc->sc_rramark]));
830         wbflush();
831 }
832
833 void
834 sncintr(arg)
835         void    *arg;
836 {
837         struct snc_softc *sc = (struct snc_softc *)arg;
838         int     isr;
839
840         if (sc->sc_enabled == 0)
841                 return;
842
843         while ((isr = (NIC_GET(sc, SNCR_ISR) & ISR_ALL)) != 0) {
844                 /* scrub the interrupts that we are going to service */
845                 NIC_PUT(sc, SNCR_ISR, isr);
846                 wbflush();
847
848                 if (isr & (ISR_BR | ISR_LCD | ISR_TC))
849                         device_printf(sc->sc_dev,
850                                       "unexpected interrupt status 0x%x\n",
851                                       isr);
852
853                 if (isr & (ISR_TXDN | ISR_TXER | ISR_PINT))
854                         sonictxint(sc);
855
856                 if (isr & ISR_PKTRX)
857                         sonicrxint(sc);
858
859                 if (isr & (ISR_HBL | ISR_RDE | ISR_RBE | ISR_RBAE | ISR_RFO)) {
860                         if (isr & ISR_HBL)
861                                 /*
862                                  * The repeater is not providing a heartbeat.
863                                  * In itself this isn't harmful, lots of the
864                                  * cheap repeater hubs don't supply a heartbeat.
865                                  * So ignore the lack of heartbeat. Its only
866                                  * if we can't detect a carrier that we have a
867                                  * problem.
868                                  */
869                                 ;
870                         if (isr & ISR_RDE)
871                                 device_printf(sc->sc_dev, 
872                                         "receive descriptors exhausted\n");
873                         if (isr & ISR_RBE)
874                                 device_printf(sc->sc_dev, 
875                                         "receive buffers exhausted\n");
876                         if (isr & ISR_RBAE)
877                                 device_printf(sc->sc_dev, 
878                                         "receive buffer area exhausted\n");
879                         if (isr & ISR_RFO)
880                                 device_printf(sc->sc_dev, 
881                                         "receive FIFO overrun\n");
882                 }
883                 if (isr & (ISR_CRC | ISR_FAE | ISR_MP)) {
884 #ifdef notdef
885                         if (isr & ISR_CRC)
886                                 sc->sc_crctally++;
887                         if (isr & ISR_FAE)
888                                 sc->sc_faetally++;
889                         if (isr & ISR_MP)
890                                 sc->sc_mptally++;
891 #endif
892                 }
893                 sncstart(&sc->sc_if);
894
895 #if NRND > 0
896                 if (isr)
897                         rnd_add_uint32(&sc->rnd_source, isr);
898 #endif
899         }
900         return;
901 }
902
903 /*
904  * Transmit interrupt routine
905  */
906 hide void
907 sonictxint(sc)
908         struct snc_softc *sc;
909 {
910         struct mtd      *mtd;
911         u_int32_t       txp;
912         unsigned short  txp_status;
913         int             mtd_hw;
914         struct ifnet    *ifp = &sc->sc_if;
915
916         mtd_hw = sc->mtd_hw;
917
918         if (mtd_hw == sc->mtd_free)
919                 return;
920
921         while (mtd_hw != sc->mtd_free) {
922                 mtd = &sc->mtda[mtd_hw];
923
924                 txp = mtd->mtd_vtxp;
925
926                 if (SRO(sc, txp, TXP_STATUS) == 0) {
927                         break; /* it hasn't really gone yet */
928                 }
929
930 #ifdef SNCDEBUG
931                 if ((sncdebug & SNC_SHOWTXHDR) != 0)
932                 {
933                         struct ether_header eh;
934
935                         (*sc->sc_copyfrombuf)(sc, &eh, mtd->mtd_vbuf, sizeof(eh));
936                         device_printf(sc->sc_dev,
937                             "xmit status=0x%x len=%d type=0x%x from %6D",
938                             SRO(sc, txp, TXP_STATUS),
939                             SRO(sc, txp, TXP_PKTSIZE),
940                             htons(eh.ether_type),
941                             eh.ether_shost, ":");
942                         printf(" (to %6D)\n", eh.ether_dhost, ":");
943                 }
944 #endif /* SNCDEBUG */
945
946                 ifp->if_flags &= ~IFF_OACTIVE;
947
948                 if (mtd->mtd_mbuf != 0) {
949                         m_freem(mtd->mtd_mbuf);
950                         mtd->mtd_mbuf = 0;
951                 }
952                 if (++mtd_hw == NTDA) mtd_hw = 0;
953
954                 txp_status = SRO(sc, txp, TXP_STATUS);
955
956                 ifp->if_collisions += (txp_status & TCR_EXC) ? 16 :
957                         ((txp_status & TCR_NC) >> 12);
958
959                 if ((txp_status & TCR_PTX) == 0) {
960                         ifp->if_oerrors++;
961                         device_printf(sc->sc_dev, "Tx packet status=0x%x\n",
962                                       txp_status);
963                         
964                         /* XXX - DG This looks bogus */
965                         if (mtd_hw != sc->mtd_free) {
966                                 printf("resubmitting remaining packets\n");
967                                 mtd = &sc->mtda[mtd_hw];
968                                 NIC_PUT(sc, SNCR_CTDA, LOWER(mtd->mtd_vtxp));
969                                 NIC_PUT(sc, SNCR_CR, CR_TXP);
970                                 wbflush();
971                                 break;
972                         }
973                 }
974         }
975
976         sc->mtd_hw = mtd_hw;
977         return;
978 }
979
980 /*
981  * Receive interrupt routine
982  */
983 hide void
984 sonicrxint(sc)
985         struct snc_softc *sc;
986 {
987         u_int32_t rda;
988         int     orra;
989         int     len;
990         int     rramark;
991         int     rdamark;
992         u_int16_t rxpkt_ptr;
993
994         rda = sc->v_rda + (sc->sc_rxmark * RXPKT_SIZE(sc));
995
996         while (SRO(sc, rda, RXPKT_INUSE) == 0) {
997                 u_int status = SRO(sc, rda, RXPKT_STATUS);
998
999                 orra = RBASEQ(SRO(sc, rda, RXPKT_SEQNO)) & RRAMASK;
1000                 rxpkt_ptr = SRO(sc, rda, RXPKT_PTRLO);
1001                 /*
1002                  * Do not trunc ether_header length.
1003                  * Our sonic_read() and sonic_get() require it.
1004                  */
1005                 len = SRO(sc, rda, RXPKT_BYTEC) - FCSSIZE;
1006                 if (status & RCR_PRX) {
1007                         /* XXX: Does PGOFSET require? */
1008                         u_int32_t pkt =
1009                             sc->rbuf[orra & RBAMASK] + (rxpkt_ptr & PGOFSET);
1010                         if (sonic_read(sc, pkt, len))
1011                                 sc->sc_if.if_ipackets++;
1012                         else
1013                                 sc->sc_if.if_ierrors++;
1014                 } else
1015                         sc->sc_if.if_ierrors++;
1016
1017                 /*
1018                  * give receive buffer area back to chip.
1019                  *
1020                  * If this was the last packet in the RRA, give the RRA to
1021                  * the chip again.
1022                  * If sonic read didnt copy it out then we would have to
1023                  * wait !!
1024                  * (dont bother add it back in again straight away)
1025                  *
1026                  * Really, we're doing v_rra[rramark] = v_rra[orra] but
1027                  * we have to use the macros because SONIC might be in
1028                  * 16 or 32 bit mode.
1029                  */
1030                 if (status & RCR_LPKT) {
1031                         u_int32_t tmp1, tmp2;
1032
1033                         rramark = sc->sc_rramark;
1034                         tmp1 = sc->v_rra[rramark];
1035                         tmp2 = sc->v_rra[orra];
1036                         SWO(sc, tmp1, RXRSRC_PTRLO,
1037                                 SRO(sc, tmp2, RXRSRC_PTRLO));
1038                         SWO(sc, tmp1, RXRSRC_PTRHI,
1039                                 SRO(sc, tmp2, RXRSRC_PTRHI));
1040                         SWO(sc, tmp1, RXRSRC_WCLO,
1041                                 SRO(sc, tmp2, RXRSRC_WCLO));
1042                         SWO(sc, tmp1, RXRSRC_WCHI,
1043                                 SRO(sc, tmp2, RXRSRC_WCHI));
1044
1045                         /* zap old rra for fun */
1046                         SWO(sc, tmp2, RXRSRC_WCHI, 0);
1047                         SWO(sc, tmp2, RXRSRC_WCLO, 0);
1048
1049                         sc->sc_rramark = (++rramark) & RRAMASK;
1050                         NIC_PUT(sc, SNCR_RWP, LOWER(sc->v_rra[rramark]));
1051                         wbflush();
1052                 }
1053
1054                 /*
1055                  * give receive descriptor back to chip simple
1056                  * list is circular
1057                  */
1058                 rdamark = sc->sc_rdamark;
1059                 SWO(sc, rda, RXPKT_INUSE, 1);
1060                 SWO(sc, rda, RXPKT_RLINK,
1061                         SRO(sc, rda, RXPKT_RLINK) | EOL);
1062                 SWO(sc, (sc->v_rda + (rdamark * RXPKT_SIZE(sc))), RXPKT_RLINK,
1063                         SRO(sc, (sc->v_rda + (rdamark * RXPKT_SIZE(sc))),
1064                         RXPKT_RLINK) & ~EOL);
1065                 sc->sc_rdamark = sc->sc_rxmark;
1066
1067                 if (++sc->sc_rxmark >= sc->sc_nrda)
1068                         sc->sc_rxmark = 0;
1069                 rda = sc->v_rda + (sc->sc_rxmark * RXPKT_SIZE(sc));
1070         }
1071 }
1072
1073 /*
1074  * sonic_read -- pull packet off interface and forward to
1075  * appropriate protocol handler
1076  */
1077 hide int
1078 sonic_read(sc, pkt, len)
1079         struct snc_softc *sc;
1080         u_int32_t pkt;
1081         int len;
1082 {
1083         struct ifnet *ifp = &sc->sc_if;
1084         struct mbuf *m;
1085
1086         if (len <= sizeof(struct ether_header) ||
1087             len > ETHERMTU + sizeof(struct ether_header)) {
1088                 device_printf(sc->sc_dev,
1089                               "invalid packet length %d bytes\n", len);
1090                 return (0);
1091         }
1092
1093         /* Pull packet off interface. */
1094         m = sonic_get(sc, pkt, len);
1095         if (m == 0) {
1096                 return (0);
1097         }
1098
1099         (*ifp->if_input)(ifp, m);
1100         return (1);
1101 }
1102
1103
1104 /*
1105  * munge the received packet into an mbuf chain
1106  */
1107 hide struct mbuf *
1108 sonic_get(sc, pkt, datalen)
1109         struct snc_softc *sc;
1110         u_int32_t pkt;
1111         int datalen;
1112 {
1113         struct  mbuf *m, *top, **mp;
1114         int     len;
1115         /*
1116          * Do not trunc ether_header length.
1117          * Our sonic_read() and sonic_get() require it.
1118          */
1119
1120         MGETHDR(m, MB_DONTWAIT, MT_DATA);
1121         if (m == 0)
1122                 return (0);
1123         m->m_pkthdr.rcvif = &sc->sc_if;
1124         m->m_pkthdr.len = datalen;
1125         len = MHLEN;
1126         top = 0;
1127         mp = &top;
1128
1129         while (datalen > 0) {
1130                 if (top) {
1131                         MGET(m, MB_DONTWAIT, MT_DATA);
1132                         if (m == 0) {
1133                                 m_freem(top);
1134                                 return (0);
1135                         }
1136                         len = MLEN;
1137                 }
1138                 if (datalen >= MINCLSIZE) {
1139                         MCLGET(m, MB_DONTWAIT);
1140                         if ((m->m_flags & M_EXT) == 0) {
1141                                 if (top) m_freem(top);
1142                                 return (0);
1143                         }
1144                         len = MCLBYTES;
1145                 }
1146 #if 0
1147                 /* XXX: Require? */
1148                 if (!top) {
1149                         int pad =
1150                             ALIGN(sizeof(struct ether_header)) -
1151                                 sizeof(struct ether_header);
1152                         m->m_data += pad;
1153                         len -= pad;
1154                 }
1155 #endif
1156                 m->m_len = len = min(datalen, len);
1157
1158                 (*sc->sc_copyfrombuf)(sc, mtod(m, caddr_t), pkt, len);
1159                 pkt += len;
1160                 datalen -= len;
1161                 *mp = m;
1162                 mp = &m->m_next;
1163         }
1164
1165         return (top);
1166 }
1167 /*
1168  * Enable power on the interface.
1169  */
1170 int
1171 snc_enable(sc)
1172         struct snc_softc *sc;
1173 {
1174
1175 #ifdef  SNCDEBUG
1176         device_printf(sc->sc_dev, "snc_enable()\n");
1177 #endif  /* SNCDEBUG */
1178
1179         if (sc->sc_enabled == 0 && sc->sc_enable != NULL) {
1180                 if ((*sc->sc_enable)(sc) != 0) {
1181                         device_printf(sc->sc_dev, "device enable failed\n");
1182                         return (EIO);
1183                 }
1184         }
1185
1186         sc->sc_enabled = 1;
1187         return (0);
1188 }
1189
1190 /*
1191  * Disable power on the interface.
1192  */
1193 void
1194 snc_disable(sc)
1195         struct snc_softc *sc;
1196 {
1197
1198 #ifdef  SNCDEBUG
1199         device_printf(sc->sc_dev, "snc_disable()\n");
1200 #endif  /* SNCDEBUG */
1201
1202         if (sc->sc_enabled != 0 && sc->sc_disable != NULL) {
1203                 (*sc->sc_disable)(sc);
1204                 sc->sc_enabled = 0;
1205         }
1206 }
1207
1208