if_mc.c revision 1.20 1 1.20 thorpej /* $NetBSD: if_mc.c,v 1.20 2003/04/02 00:44:22 thorpej Exp $ */
2 1.2 briggs
3 1.1 briggs /*-
4 1.1 briggs * Copyright (c) 1997 David Huang <khym (at) bga.com>
5 1.1 briggs * All rights reserved.
6 1.1 briggs *
7 1.1 briggs * Portions of this code are based on code by Denton Gentry <denny1 (at) home.com>,
8 1.1 briggs * Charles M. Hannum, Yanagisawa Takeshi <yanagisw (at) aa.ap.titech.ac.jp>, and
9 1.1 briggs * Jason R. Thorpe.
10 1.1 briggs *
11 1.1 briggs * Redistribution and use in source and binary forms, with or without
12 1.1 briggs * modification, are permitted provided that the following conditions
13 1.1 briggs * are met:
14 1.1 briggs * 1. Redistributions of source code must retain the above copyright
15 1.1 briggs * notice, this list of conditions and the following disclaimer.
16 1.1 briggs * 2. The name of the author may not be used to endorse or promote products
17 1.1 briggs * derived from this software without specific prior written permission
18 1.1 briggs *
19 1.1 briggs * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20 1.1 briggs * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21 1.1 briggs * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22 1.1 briggs * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23 1.1 briggs * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24 1.1 briggs * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 1.1 briggs * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 1.1 briggs * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 1.1 briggs * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 1.1 briggs * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 1.1 briggs *
30 1.1 briggs */
31 1.1 briggs
32 1.1 briggs /*
33 1.1 briggs * Driver for the AMD Am79C940 (MACE) ethernet chip, used for onboard
34 1.1 briggs * ethernet on the Centris/Quadra 660av and Quadra 840av.
35 1.1 briggs */
36 1.1 briggs
37 1.7 jonathan #include "opt_ddb.h"
38 1.7 jonathan #include "opt_inet.h"
39 1.8 jonathan #include "opt_ccitt.h"
40 1.9 jonathan #include "opt_llc.h"
41 1.10 jonathan #include "opt_ns.h"
42 1.7 jonathan
43 1.1 briggs #include <sys/param.h>
44 1.1 briggs #include <sys/systm.h>
45 1.1 briggs #include <sys/mbuf.h>
46 1.1 briggs #include <sys/buf.h>
47 1.1 briggs #include <sys/protosw.h>
48 1.1 briggs #include <sys/socket.h>
49 1.1 briggs #include <sys/syslog.h>
50 1.1 briggs #include <sys/ioctl.h>
51 1.1 briggs #include <sys/errno.h>
52 1.1 briggs #include <sys/device.h>
53 1.1 briggs
54 1.20 thorpej #include <uvm/uvm_extern.h>
55 1.20 thorpej
56 1.1 briggs #include <net/if.h>
57 1.1 briggs #include <net/if_dl.h>
58 1.1 briggs #include <net/if_ether.h>
59 1.1 briggs
60 1.1 briggs #ifdef INET
61 1.1 briggs #include <netinet/in.h>
62 1.1 briggs #include <netinet/if_inarp.h>
63 1.1 briggs #include <netinet/in_systm.h>
64 1.1 briggs #include <netinet/in_var.h>
65 1.1 briggs #include <netinet/ip.h>
66 1.1 briggs #endif
67 1.1 briggs
68 1.1 briggs #ifdef NS
69 1.1 briggs #include <netns/ns.h>
70 1.1 briggs #include <netns/ns_if.h>
71 1.1 briggs #endif
72 1.1 briggs
73 1.1 briggs #if defined(CCITT) && defined(LLC)
74 1.1 briggs #include <sys/socketvar.h>
75 1.1 briggs #include <netccitt/x25.h>
76 1.1 briggs #include <netccitt/pk.h>
77 1.1 briggs #include <netccitt/pk_var.h>
78 1.1 briggs #include <netccitt/pk_extern.h>
79 1.1 briggs #endif
80 1.1 briggs
81 1.16 mrg #include <uvm/uvm_extern.h>
82 1.1 briggs
83 1.1 briggs #include "bpfilter.h"
84 1.1 briggs #if NBPFILTER > 0
85 1.1 briggs #include <net/bpf.h>
86 1.1 briggs #include <net/bpfdesc.h>
87 1.1 briggs #endif
88 1.1 briggs
89 1.1 briggs #include <machine/bus.h>
90 1.1 briggs #include <mac68k/dev/if_mcreg.h>
91 1.1 briggs #include <mac68k/dev/if_mcvar.h>
92 1.1 briggs
93 1.1 briggs hide void mcwatchdog __P((struct ifnet *));
94 1.1 briggs hide int mcinit __P((struct mc_softc *sc));
95 1.1 briggs hide int mcstop __P((struct mc_softc *sc));
96 1.1 briggs hide int mcioctl __P((struct ifnet *ifp, u_long cmd, caddr_t data));
97 1.1 briggs hide void mcstart __P((struct ifnet *ifp));
98 1.1 briggs hide void mcreset __P((struct mc_softc *sc));
99 1.1 briggs
100 1.1 briggs integrate u_int maceput __P((struct mc_softc *sc, struct mbuf *m0));
101 1.3 scottr integrate void mc_tint __P((struct mc_softc *sc));
102 1.1 briggs integrate void mace_read __P((struct mc_softc *, caddr_t, int));
103 1.1 briggs integrate struct mbuf *mace_get __P((struct mc_softc *, caddr_t, int));
104 1.1 briggs static void mace_calcladrf __P((struct ethercom *ac, u_int8_t *af));
105 1.1 briggs static inline u_int16_t ether_cmp __P((void *, void *));
106 1.1 briggs
107 1.1 briggs
108 1.1 briggs /*
109 1.1 briggs * Compare two Ether/802 addresses for equality, inlined and
110 1.1 briggs * unrolled for speed. Use this like bcmp().
111 1.1 briggs *
112 1.1 briggs * XXX: Add <machine/inlines.h> for stuff like this?
113 1.1 briggs * XXX: or maybe add it to libkern.h instead?
114 1.1 briggs *
115 1.1 briggs * "I'd love to have an inline assembler version of this."
116 1.1 briggs * XXX: Who wanted that? mycroft? I wrote one, but this
117 1.1 briggs * version in C is as good as hand-coded assembly. -gwr
118 1.1 briggs *
119 1.1 briggs * Please do NOT tweak this without looking at the actual
120 1.1 briggs * assembly code generated before and after your tweaks!
121 1.1 briggs */
122 1.1 briggs static inline u_int16_t
123 1.1 briggs ether_cmp(one, two)
124 1.1 briggs void *one, *two;
125 1.1 briggs {
126 1.1 briggs register u_int16_t *a = (u_short *) one;
127 1.1 briggs register u_int16_t *b = (u_short *) two;
128 1.1 briggs register u_int16_t diff;
129 1.1 briggs
130 1.1 briggs #ifdef m68k
131 1.1 briggs /*
132 1.1 briggs * The post-increment-pointer form produces the best
133 1.1 briggs * machine code for m68k. This was carefully tuned
134 1.1 briggs * so it compiles to just 8 short (2-byte) op-codes!
135 1.1 briggs */
136 1.1 briggs diff = *a++ - *b++;
137 1.1 briggs diff |= *a++ - *b++;
138 1.1 briggs diff |= *a++ - *b++;
139 1.1 briggs #else
140 1.1 briggs /*
141 1.1 briggs * Most modern CPUs do better with a single expresion.
142 1.1 briggs * Note that short-cut evaluation is NOT helpful here,
143 1.1 briggs * because it just makes the code longer, not faster!
144 1.1 briggs */
145 1.1 briggs diff = (a[0] - b[0]) | (a[1] - b[1]) | (a[2] - b[2]);
146 1.1 briggs #endif
147 1.1 briggs
148 1.1 briggs return (diff);
149 1.1 briggs }
150 1.1 briggs
151 1.1 briggs #define ETHER_CMP ether_cmp
152 1.1 briggs
153 1.1 briggs /*
154 1.1 briggs * Interface exists: make available by filling in network interface
155 1.1 briggs * record. System will initialize the interface when it is ready
156 1.1 briggs * to accept packets.
157 1.1 briggs */
158 1.1 briggs int
159 1.1 briggs mcsetup(sc, lladdr)
160 1.1 briggs struct mc_softc *sc;
161 1.1 briggs u_int8_t *lladdr;
162 1.1 briggs {
163 1.1 briggs struct ifnet *ifp = &sc->sc_if;
164 1.1 briggs
165 1.1 briggs /* reset the chip and disable all interrupts */
166 1.1 briggs NIC_PUT(sc, MACE_BIUCC, SWRST);
167 1.1 briggs DELAY(100);
168 1.1 briggs NIC_PUT(sc, MACE_IMR, ~0);
169 1.1 briggs
170 1.1 briggs bcopy(lladdr, sc->sc_enaddr, ETHER_ADDR_LEN);
171 1.1 briggs printf(": address %s\n", ether_sprintf(lladdr));
172 1.1 briggs
173 1.1 briggs bcopy(sc->sc_dev.dv_xname, ifp->if_xname, IFNAMSIZ);
174 1.1 briggs ifp->if_softc = sc;
175 1.1 briggs ifp->if_ioctl = mcioctl;
176 1.1 briggs ifp->if_start = mcstart;
177 1.1 briggs ifp->if_flags =
178 1.1 briggs IFF_BROADCAST | IFF_SIMPLEX | IFF_NOTRAILERS | IFF_MULTICAST;
179 1.1 briggs ifp->if_watchdog = mcwatchdog;
180 1.1 briggs
181 1.1 briggs if_attach(ifp);
182 1.1 briggs ether_ifattach(ifp, lladdr);
183 1.1 briggs
184 1.1 briggs return (0);
185 1.1 briggs }
186 1.1 briggs
187 1.1 briggs hide int
188 1.1 briggs mcioctl(ifp, cmd, data)
189 1.1 briggs struct ifnet *ifp;
190 1.1 briggs u_long cmd;
191 1.1 briggs caddr_t data;
192 1.1 briggs {
193 1.1 briggs struct mc_softc *sc = ifp->if_softc;
194 1.1 briggs struct ifaddr *ifa;
195 1.1 briggs struct ifreq *ifr;
196 1.1 briggs
197 1.1 briggs int s = splnet(), err = 0;
198 1.1 briggs int temp;
199 1.1 briggs
200 1.1 briggs switch (cmd) {
201 1.1 briggs
202 1.1 briggs case SIOCSIFADDR:
203 1.1 briggs ifa = (struct ifaddr *)data;
204 1.1 briggs ifp->if_flags |= IFF_UP;
205 1.1 briggs switch (ifa->ifa_addr->sa_family) {
206 1.1 briggs #ifdef INET
207 1.1 briggs case AF_INET:
208 1.1 briggs mcinit(sc);
209 1.1 briggs arp_ifinit(ifp, ifa);
210 1.1 briggs break;
211 1.1 briggs #endif
212 1.1 briggs #ifdef NS
213 1.1 briggs case AF_NS:
214 1.1 briggs {
215 1.1 briggs register struct ns_addr *ina = &IA_SNS(ifa)->sns_addr;
216 1.1 briggs
217 1.1 briggs if (ns_nullhost(*ina))
218 1.1 briggs ina->x_host =
219 1.1 briggs *(union ns_host *)LLADDR(ifp->if_sadl);
220 1.1 briggs else {
221 1.1 briggs bcopy(ina->x_host.c_host,
222 1.1 briggs LLADDR(ifp->if_sadl),
223 1.1 briggs sizeof(sc->sc_enaddr));
224 1.1 briggs }
225 1.1 briggs /* Set new address. */
226 1.1 briggs mcinit(sc);
227 1.1 briggs break;
228 1.1 briggs }
229 1.1 briggs #endif
230 1.1 briggs default:
231 1.1 briggs mcinit(sc);
232 1.1 briggs break;
233 1.1 briggs }
234 1.1 briggs break;
235 1.1 briggs
236 1.1 briggs case SIOCSIFFLAGS:
237 1.1 briggs if ((ifp->if_flags & IFF_UP) == 0 &&
238 1.1 briggs (ifp->if_flags & IFF_RUNNING) != 0) {
239 1.1 briggs /*
240 1.1 briggs * If interface is marked down and it is running,
241 1.1 briggs * then stop it.
242 1.1 briggs */
243 1.1 briggs mcstop(sc);
244 1.1 briggs ifp->if_flags &= ~IFF_RUNNING;
245 1.1 briggs } else if ((ifp->if_flags & IFF_UP) != 0 &&
246 1.1 briggs (ifp->if_flags & IFF_RUNNING) == 0) {
247 1.1 briggs /*
248 1.1 briggs * If interface is marked up and it is stopped,
249 1.1 briggs * then start it.
250 1.1 briggs */
251 1.1 briggs (void)mcinit(sc);
252 1.1 briggs } else {
253 1.1 briggs /*
254 1.1 briggs * reset the interface to pick up any other changes
255 1.1 briggs * in flags
256 1.1 briggs */
257 1.1 briggs temp = ifp->if_flags & IFF_UP;
258 1.1 briggs mcreset(sc);
259 1.1 briggs ifp->if_flags |= temp;
260 1.1 briggs mcstart(ifp);
261 1.1 briggs }
262 1.1 briggs break;
263 1.1 briggs
264 1.1 briggs case SIOCADDMULTI:
265 1.1 briggs case SIOCDELMULTI:
266 1.1 briggs ifr = (struct ifreq *) data;
267 1.1 briggs err = (cmd == SIOCADDMULTI) ?
268 1.1 briggs ether_addmulti(ifr, &sc->sc_ethercom) :
269 1.1 briggs ether_delmulti(ifr, &sc->sc_ethercom);
270 1.1 briggs
271 1.1 briggs if (err == ENETRESET) {
272 1.1 briggs /*
273 1.1 briggs * Multicast list has changed; set the hardware
274 1.1 briggs * filter accordingly. But remember UP flag!
275 1.1 briggs */
276 1.1 briggs temp = ifp->if_flags & IFF_UP;
277 1.1 briggs mcreset(sc);
278 1.1 briggs ifp->if_flags |= temp;
279 1.1 briggs err = 0;
280 1.1 briggs }
281 1.1 briggs break;
282 1.1 briggs default:
283 1.1 briggs err = EINVAL;
284 1.1 briggs }
285 1.1 briggs splx(s);
286 1.1 briggs return (err);
287 1.1 briggs }
288 1.1 briggs
289 1.1 briggs /*
290 1.1 briggs * Encapsulate a packet of type family for the local net.
291 1.1 briggs */
292 1.1 briggs hide void
293 1.1 briggs mcstart(ifp)
294 1.1 briggs struct ifnet *ifp;
295 1.1 briggs {
296 1.1 briggs struct mc_softc *sc = ifp->if_softc;
297 1.1 briggs struct mbuf *m;
298 1.1 briggs
299 1.1 briggs if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
300 1.1 briggs return;
301 1.1 briggs
302 1.1 briggs while (1) {
303 1.1 briggs if (ifp->if_flags & IFF_OACTIVE)
304 1.1 briggs return;
305 1.1 briggs
306 1.1 briggs IF_DEQUEUE(&ifp->if_snd, m);
307 1.1 briggs if (m == 0)
308 1.1 briggs return;
309 1.1 briggs
310 1.1 briggs #if NBPFILTER > 0
311 1.1 briggs /*
312 1.1 briggs * If bpf is listening on this interface, let it
313 1.1 briggs * see the packet before we commit it to the wire.
314 1.1 briggs */
315 1.1 briggs if (ifp->if_bpf)
316 1.1 briggs bpf_mtap(ifp->if_bpf, m);
317 1.1 briggs #endif
318 1.1 briggs
319 1.1 briggs /*
320 1.1 briggs * Copy the mbuf chain into the transmit buffer.
321 1.1 briggs */
322 1.1 briggs ifp->if_flags |= IFF_OACTIVE;
323 1.1 briggs maceput(sc, m);
324 1.1 briggs
325 1.1 briggs ifp->if_opackets++; /* # of pkts */
326 1.1 briggs }
327 1.1 briggs }
328 1.1 briggs
329 1.1 briggs /*
330 1.1 briggs * reset and restart the MACE. Called in case of fatal
331 1.1 briggs * hardware/software errors.
332 1.1 briggs */
333 1.1 briggs hide void
334 1.1 briggs mcreset(sc)
335 1.1 briggs struct mc_softc *sc;
336 1.1 briggs {
337 1.1 briggs mcstop(sc);
338 1.1 briggs mcinit(sc);
339 1.1 briggs }
340 1.1 briggs
341 1.1 briggs hide int
342 1.1 briggs mcinit(sc)
343 1.1 briggs struct mc_softc *sc;
344 1.1 briggs {
345 1.1 briggs int s;
346 1.1 briggs u_int8_t maccc, ladrf[8];
347 1.1 briggs
348 1.1 briggs if (sc->sc_if.if_flags & IFF_RUNNING)
349 1.1 briggs /* already running */
350 1.1 briggs return (0);
351 1.1 briggs
352 1.1 briggs s = splnet();
353 1.1 briggs
354 1.1 briggs NIC_PUT(sc, MACE_BIUCC, sc->sc_biucc);
355 1.1 briggs NIC_PUT(sc, MACE_FIFOCC, sc->sc_fifocc);
356 1.1 briggs NIC_PUT(sc, MACE_IMR, ~0); /* disable all interrupts */
357 1.1 briggs NIC_PUT(sc, MACE_PLSCC, sc->sc_plscc);
358 1.1 briggs
359 1.1 briggs NIC_PUT(sc, MACE_UTR, RTRD); /* disable reserved test registers */
360 1.1 briggs
361 1.1 briggs /* set MAC address */
362 1.1 briggs NIC_PUT(sc, MACE_IAC, ADDRCHG);
363 1.1 briggs while (NIC_GET(sc, MACE_IAC) & ADDRCHG)
364 1.1 briggs ;
365 1.1 briggs NIC_PUT(sc, MACE_IAC, PHYADDR);
366 1.1 briggs bus_space_write_multi_1(sc->sc_regt, sc->sc_regh, MACE_REG(MACE_PADR),
367 1.1 briggs sc->sc_enaddr, ETHER_ADDR_LEN);
368 1.1 briggs
369 1.1 briggs /* set logical address filter */
370 1.1 briggs mace_calcladrf(&sc->sc_ethercom, ladrf);
371 1.1 briggs
372 1.1 briggs NIC_PUT(sc, MACE_IAC, ADDRCHG);
373 1.1 briggs while (NIC_GET(sc, MACE_IAC) & ADDRCHG)
374 1.1 briggs ;
375 1.1 briggs NIC_PUT(sc, MACE_IAC, LOGADDR);
376 1.1 briggs bus_space_write_multi_1(sc->sc_regt, sc->sc_regh, MACE_REG(MACE_LADRF),
377 1.1 briggs ladrf, 8);
378 1.1 briggs
379 1.1 briggs NIC_PUT(sc, MACE_XMTFC, APADXMT);
380 1.1 briggs /*
381 1.1 briggs * No need to autostrip padding on receive... Ethernet frames
382 1.1 briggs * don't have a length field, unlike 802.3 frames, so the MACE
383 1.1 briggs * can't figure out the length of the packet anyways.
384 1.1 briggs */
385 1.1 briggs NIC_PUT(sc, MACE_RCVFC, 0);
386 1.1 briggs
387 1.1 briggs maccc = ENXMT | ENRCV;
388 1.1 briggs if (sc->sc_if.if_flags & IFF_PROMISC)
389 1.1 briggs maccc |= PROM;
390 1.1 briggs
391 1.1 briggs NIC_PUT(sc, MACE_MACCC, maccc);
392 1.1 briggs
393 1.1 briggs if (sc->sc_bus_init)
394 1.1 briggs (*sc->sc_bus_init)(sc);
395 1.1 briggs
396 1.1 briggs /*
397 1.1 briggs * Enable all interrupts except receive, since we use the DMA
398 1.1 briggs * completion interrupt for that.
399 1.1 briggs */
400 1.1 briggs NIC_PUT(sc, MACE_IMR, RCVINTM);
401 1.1 briggs
402 1.1 briggs /* flag interface as "running" */
403 1.1 briggs sc->sc_if.if_flags |= IFF_RUNNING;
404 1.1 briggs sc->sc_if.if_flags &= ~IFF_OACTIVE;
405 1.1 briggs
406 1.1 briggs splx(s);
407 1.1 briggs return (0);
408 1.1 briggs }
409 1.1 briggs
410 1.1 briggs /*
411 1.1 briggs * close down an interface and free its buffers
412 1.1 briggs * Called on final close of device, or if mcinit() fails
413 1.1 briggs * part way through.
414 1.1 briggs */
415 1.1 briggs hide int
416 1.1 briggs mcstop(sc)
417 1.1 briggs struct mc_softc *sc;
418 1.1 briggs {
419 1.1 briggs int s = splnet();
420 1.1 briggs
421 1.1 briggs NIC_PUT(sc, MACE_BIUCC, SWRST);
422 1.1 briggs DELAY(100);
423 1.1 briggs
424 1.1 briggs sc->sc_if.if_timer = 0;
425 1.1 briggs sc->sc_if.if_flags &= ~(IFF_RUNNING | IFF_UP);
426 1.1 briggs
427 1.1 briggs splx(s);
428 1.1 briggs return (0);
429 1.1 briggs }
430 1.1 briggs
431 1.1 briggs /*
432 1.1 briggs * Called if any Tx packets remain unsent after 5 seconds,
433 1.1 briggs * In all cases we just reset the chip, and any retransmission
434 1.1 briggs * will be handled by higher level protocol timeouts.
435 1.1 briggs */
436 1.1 briggs hide void
437 1.1 briggs mcwatchdog(ifp)
438 1.1 briggs struct ifnet *ifp;
439 1.1 briggs {
440 1.1 briggs struct mc_softc *sc = ifp->if_softc;
441 1.1 briggs int temp;
442 1.1 briggs
443 1.1 briggs printf("mcwatchdog: resetting chip\n");
444 1.1 briggs temp = ifp->if_flags & IFF_UP;
445 1.1 briggs mcreset(sc);
446 1.1 briggs ifp->if_flags |= temp;
447 1.1 briggs }
448 1.1 briggs
449 1.1 briggs /*
450 1.1 briggs * stuff packet into MACE (at splnet)
451 1.1 briggs */
452 1.1 briggs integrate u_int
453 1.1 briggs maceput(sc, m)
454 1.1 briggs struct mc_softc *sc;
455 1.1 briggs struct mbuf *m;
456 1.1 briggs {
457 1.1 briggs struct mbuf *n;
458 1.1 briggs u_int len, totlen = 0;
459 1.1 briggs u_char *buff;
460 1.1 briggs
461 1.1 briggs buff = sc->sc_txbuf;
462 1.1 briggs
463 1.1 briggs for (; m; m = n) {
464 1.1 briggs u_char *data = mtod(m, u_char *);
465 1.1 briggs len = m->m_len;
466 1.1 briggs totlen += len;
467 1.1 briggs bcopy(data, buff, len);
468 1.1 briggs buff += len;
469 1.1 briggs MFREE(m, n);
470 1.1 briggs }
471 1.1 briggs
472 1.20 thorpej if (totlen > PAGE_SIZE)
473 1.1 briggs panic("%s: maceput: packet overflow", sc->sc_dev.dv_xname);
474 1.1 briggs
475 1.1 briggs #if 0
476 1.1 briggs if (totlen < ETHERMIN + sizeof(struct ether_header)) {
477 1.1 briggs int pad = ETHERMIN + sizeof(struct ether_header) - totlen;
478 1.1 briggs bzero(sc->sc_txbuf + totlen, pad);
479 1.1 briggs totlen = ETHERMIN + sizeof(struct ether_header);
480 1.1 briggs }
481 1.1 briggs #endif
482 1.1 briggs
483 1.1 briggs (*sc->sc_putpacket)(sc, totlen);
484 1.1 briggs
485 1.1 briggs sc->sc_if.if_timer = 5; /* 5 seconds to watch for failing to transmit */
486 1.1 briggs return (totlen);
487 1.1 briggs }
488 1.1 briggs
489 1.1 briggs void
490 1.1 briggs mcintr(arg)
491 1.1 briggs void *arg;
492 1.1 briggs {
493 1.1 briggs struct mc_softc *sc = arg;
494 1.1 briggs u_int8_t ir;
495 1.1 briggs
496 1.1 briggs ir = NIC_GET(sc, MACE_IR) & ~NIC_GET(sc, MACE_IMR);
497 1.1 briggs if (ir & JAB) {
498 1.1 briggs #ifdef MCDEBUG
499 1.1 briggs printf("%s: jabber error\n", sc->sc_dev.dv_xname);
500 1.1 briggs #endif
501 1.1 briggs sc->sc_if.if_oerrors++;
502 1.1 briggs }
503 1.1 briggs
504 1.1 briggs if (ir & BABL) {
505 1.1 briggs #ifdef MCDEBUG
506 1.1 briggs printf("%s: babble\n", sc->sc_dev.dv_xname);
507 1.1 briggs #endif
508 1.1 briggs sc->sc_if.if_oerrors++;
509 1.1 briggs }
510 1.1 briggs
511 1.1 briggs if (ir & CERR) {
512 1.14 scottr #ifdef MCDEBUG
513 1.1 briggs printf("%s: collision error\n", sc->sc_dev.dv_xname);
514 1.14 scottr #endif
515 1.1 briggs sc->sc_if.if_collisions++;
516 1.1 briggs }
517 1.1 briggs
518 1.1 briggs /*
519 1.1 briggs * Pretend we have carrier; if we don't this will be cleared
520 1.1 briggs * shortly.
521 1.1 briggs */
522 1.1 briggs sc->sc_havecarrier = 1;
523 1.1 briggs
524 1.1 briggs if (ir & XMTINT)
525 1.1 briggs mc_tint(sc);
526 1.1 briggs
527 1.1 briggs if (ir & RCVINT)
528 1.1 briggs mc_rint(sc);
529 1.1 briggs }
530 1.1 briggs
531 1.1 briggs integrate void
532 1.1 briggs mc_tint(sc)
533 1.1 briggs struct mc_softc *sc;
534 1.1 briggs {
535 1.1 briggs u_int8_t xmtrc, xmtfs;
536 1.1 briggs
537 1.1 briggs xmtrc = NIC_GET(sc, MACE_XMTRC);
538 1.1 briggs xmtfs = NIC_GET(sc, MACE_XMTFS);
539 1.1 briggs
540 1.1 briggs if ((xmtfs & XMTSV) == 0)
541 1.1 briggs return;
542 1.1 briggs
543 1.1 briggs if (xmtfs & UFLO) {
544 1.1 briggs printf("%s: underflow\n", sc->sc_dev.dv_xname);
545 1.1 briggs mcreset(sc);
546 1.1 briggs return;
547 1.1 briggs }
548 1.1 briggs
549 1.1 briggs if (xmtfs & LCOL) {
550 1.1 briggs printf("%s: late collision\n", sc->sc_dev.dv_xname);
551 1.1 briggs sc->sc_if.if_oerrors++;
552 1.1 briggs sc->sc_if.if_collisions++;
553 1.1 briggs }
554 1.1 briggs
555 1.1 briggs if (xmtfs & MORE)
556 1.1 briggs /* Real number is unknown. */
557 1.1 briggs sc->sc_if.if_collisions += 2;
558 1.1 briggs else if (xmtfs & ONE)
559 1.1 briggs sc->sc_if.if_collisions++;
560 1.1 briggs else if (xmtfs & RTRY) {
561 1.14 scottr printf("%s: excessive collisions\n", sc->sc_dev.dv_xname);
562 1.1 briggs sc->sc_if.if_collisions += 16;
563 1.1 briggs sc->sc_if.if_oerrors++;
564 1.1 briggs }
565 1.1 briggs
566 1.1 briggs if (xmtfs & LCAR) {
567 1.1 briggs sc->sc_havecarrier = 0;
568 1.1 briggs printf("%s: lost carrier\n", sc->sc_dev.dv_xname);
569 1.1 briggs sc->sc_if.if_oerrors++;
570 1.1 briggs }
571 1.1 briggs
572 1.1 briggs sc->sc_if.if_flags &= ~IFF_OACTIVE;
573 1.1 briggs sc->sc_if.if_timer = 0;
574 1.1 briggs mcstart(&sc->sc_if);
575 1.1 briggs }
576 1.1 briggs
577 1.5 scottr void
578 1.1 briggs mc_rint(sc)
579 1.1 briggs struct mc_softc *sc;
580 1.1 briggs {
581 1.1 briggs #define rxf sc->sc_rxframe
582 1.1 briggs u_int len;
583 1.1 briggs
584 1.1 briggs len = (rxf.rx_rcvcnt | ((rxf.rx_rcvsts & 0xf) << 8)) - 4;
585 1.1 briggs
586 1.1 briggs #ifdef MCDEBUG
587 1.1 briggs if (rxf.rx_rcvsts & 0xf0)
588 1.1 briggs printf("%s: rcvcnt %02x rcvsts %02x rntpc 0x%02x rcvcc 0x%02x\n",
589 1.1 briggs sc->sc_dev.dv_xname, rxf.rx_rcvcnt, rxf.rx_rcvsts,
590 1.1 briggs rxf.rx_rntpc, rxf.rx_rcvcc);
591 1.1 briggs #endif
592 1.1 briggs
593 1.1 briggs if (rxf.rx_rcvsts & OFLO) {
594 1.1 briggs printf("%s: receive FIFO overflow\n", sc->sc_dev.dv_xname);
595 1.1 briggs sc->sc_if.if_ierrors++;
596 1.1 briggs return;
597 1.1 briggs }
598 1.1 briggs
599 1.1 briggs if (rxf.rx_rcvsts & CLSN)
600 1.1 briggs sc->sc_if.if_collisions++;
601 1.1 briggs
602 1.1 briggs if (rxf.rx_rcvsts & FRAM) {
603 1.1 briggs #ifdef MCDEBUG
604 1.1 briggs printf("%s: framing error\n", sc->sc_dev.dv_xname);
605 1.1 briggs #endif
606 1.1 briggs sc->sc_if.if_ierrors++;
607 1.1 briggs return;
608 1.1 briggs }
609 1.1 briggs
610 1.1 briggs if (rxf.rx_rcvsts & FCS) {
611 1.1 briggs #ifdef MCDEBUG
612 1.1 briggs printf("%s: frame control checksum error\n", sc->sc_dev.dv_xname);
613 1.1 briggs #endif
614 1.1 briggs sc->sc_if.if_ierrors++;
615 1.1 briggs return;
616 1.1 briggs }
617 1.1 briggs
618 1.1 briggs mace_read(sc, rxf.rx_frame, len);
619 1.1 briggs #undef rxf
620 1.1 briggs }
621 1.1 briggs
622 1.1 briggs integrate void
623 1.1 briggs mace_read(sc, pkt, len)
624 1.1 briggs struct mc_softc *sc;
625 1.1 briggs caddr_t pkt;
626 1.1 briggs int len;
627 1.1 briggs {
628 1.1 briggs struct ifnet *ifp = &sc->sc_if;
629 1.1 briggs struct mbuf *m;
630 1.1 briggs
631 1.1 briggs if (len <= sizeof(struct ether_header) ||
632 1.1 briggs len > ETHERMTU + sizeof(struct ether_header)) {
633 1.1 briggs #ifdef MCDEBUG
634 1.1 briggs printf("%s: invalid packet size %d; dropping\n",
635 1.1 briggs sc->sc_dev.dv_xname, len);
636 1.1 briggs #endif
637 1.1 briggs ifp->if_ierrors++;
638 1.1 briggs return;
639 1.1 briggs }
640 1.1 briggs
641 1.1 briggs m = mace_get(sc, pkt, len);
642 1.1 briggs if (m == NULL) {
643 1.1 briggs ifp->if_ierrors++;
644 1.1 briggs return;
645 1.1 briggs }
646 1.1 briggs
647 1.1 briggs ifp->if_ipackets++;
648 1.19 thorpej
649 1.19 thorpej #if NBPFILTER > 0
650 1.19 thorpej /* Pass the packet to any BPF listeners. */
651 1.19 thorpej if (ifp->if_bpf)
652 1.19 thorpej bpf_mtap(ifp->if_bpf, m);
653 1.19 thorpej #endif
654 1.1 briggs
655 1.13 thorpej /* Pass the packet up. */
656 1.13 thorpej (*ifp->if_input)(ifp, m);
657 1.1 briggs }
658 1.1 briggs
659 1.1 briggs /*
660 1.1 briggs * Pull data off an interface.
661 1.1 briggs * Len is length of data, with local net header stripped.
662 1.1 briggs * We copy the data into mbufs. When full cluster sized units are present
663 1.1 briggs * we copy into clusters.
664 1.1 briggs */
665 1.1 briggs integrate struct mbuf *
666 1.1 briggs mace_get(sc, pkt, totlen)
667 1.1 briggs struct mc_softc *sc;
668 1.1 briggs caddr_t pkt;
669 1.1 briggs int totlen;
670 1.1 briggs {
671 1.1 briggs register struct mbuf *m;
672 1.1 briggs struct mbuf *top, **mp;
673 1.1 briggs int len;
674 1.1 briggs
675 1.1 briggs MGETHDR(m, M_DONTWAIT, MT_DATA);
676 1.1 briggs if (m == 0)
677 1.1 briggs return (0);
678 1.1 briggs m->m_pkthdr.rcvif = &sc->sc_if;
679 1.1 briggs m->m_pkthdr.len = totlen;
680 1.1 briggs len = MHLEN;
681 1.1 briggs top = 0;
682 1.1 briggs mp = ⊤
683 1.1 briggs
684 1.1 briggs while (totlen > 0) {
685 1.1 briggs if (top) {
686 1.1 briggs MGET(m, M_DONTWAIT, MT_DATA);
687 1.1 briggs if (m == 0) {
688 1.1 briggs m_freem(top);
689 1.1 briggs return 0;
690 1.1 briggs }
691 1.1 briggs len = MLEN;
692 1.1 briggs }
693 1.1 briggs if (totlen >= MINCLSIZE) {
694 1.1 briggs MCLGET(m, M_DONTWAIT);
695 1.1 briggs if ((m->m_flags & M_EXT) == 0) {
696 1.1 briggs m_free(m);
697 1.1 briggs m_freem(top);
698 1.1 briggs return 0;
699 1.1 briggs }
700 1.1 briggs len = MCLBYTES;
701 1.1 briggs }
702 1.1 briggs m->m_len = len = min(totlen, len);
703 1.1 briggs bcopy(pkt, mtod(m, caddr_t), len);
704 1.1 briggs pkt += len;
705 1.1 briggs totlen -= len;
706 1.1 briggs *mp = m;
707 1.1 briggs mp = &m->m_next;
708 1.1 briggs }
709 1.1 briggs
710 1.1 briggs return (top);
711 1.1 briggs }
712 1.1 briggs
713 1.1 briggs /*
714 1.1 briggs * Go through the list of multicast addresses and calculate the logical
715 1.1 briggs * address filter.
716 1.1 briggs */
717 1.1 briggs void
718 1.1 briggs mace_calcladrf(ac, af)
719 1.1 briggs struct ethercom *ac;
720 1.1 briggs u_int8_t *af;
721 1.1 briggs {
722 1.1 briggs struct ifnet *ifp = &ac->ec_if;
723 1.1 briggs struct ether_multi *enm;
724 1.6 mycroft register u_char *cp;
725 1.1 briggs register u_int32_t crc;
726 1.6 mycroft static const u_int32_t crctab[] = {
727 1.6 mycroft 0x00000000, 0x1db71064, 0x3b6e20c8, 0x26d930ac,
728 1.6 mycroft 0x76dc4190, 0x6b6b51f4, 0x4db26158, 0x5005713c,
729 1.6 mycroft 0xedb88320, 0xf00f9344, 0xd6d6a3e8, 0xcb61b38c,
730 1.6 mycroft 0x9b64c2b0, 0x86d3d2d4, 0xa00ae278, 0xbdbdf21c
731 1.6 mycroft };
732 1.6 mycroft register int len;
733 1.1 briggs struct ether_multistep step;
734 1.1 briggs
735 1.1 briggs /*
736 1.1 briggs * Set up multicast address filter by passing all multicast addresses
737 1.1 briggs * through a crc generator, and then using the high order 6 bits as an
738 1.1 briggs * index into the 64 bit logical address filter. The high order bit
739 1.1 briggs * selects the word, while the rest of the bits select the bit within
740 1.1 briggs * the word.
741 1.1 briggs */
742 1.1 briggs
743 1.1 briggs *((u_int32_t *)af) = *((u_int32_t *)af + 1) = 0;
744 1.1 briggs ETHER_FIRST_MULTI(step, ac, enm);
745 1.1 briggs while (enm != NULL) {
746 1.1 briggs if (ETHER_CMP(enm->enm_addrlo, enm->enm_addrhi)) {
747 1.1 briggs /*
748 1.1 briggs * We must listen to a range of multicast addresses.
749 1.1 briggs * For now, just accept all multicasts, rather than
750 1.1 briggs * trying to set only those filter bits needed to match
751 1.1 briggs * the range. (At this time, the only use of address
752 1.1 briggs * ranges is for IP multicast routing, for which the
753 1.1 briggs * range is big enough to require all bits set.)
754 1.1 briggs */
755 1.1 briggs goto allmulti;
756 1.1 briggs }
757 1.1 briggs
758 1.1 briggs cp = enm->enm_addrlo;
759 1.1 briggs crc = 0xffffffff;
760 1.1 briggs for (len = sizeof(enm->enm_addrlo); --len >= 0;) {
761 1.6 mycroft crc ^= *cp++;
762 1.6 mycroft crc = (crc >> 4) ^ crctab[crc & 0xf];
763 1.6 mycroft crc = (crc >> 4) ^ crctab[crc & 0xf];
764 1.1 briggs }
765 1.1 briggs /* Just want the 6 most significant bits. */
766 1.1 briggs crc >>= 26;
767 1.1 briggs
768 1.1 briggs /* Set the corresponding bit in the filter. */
769 1.1 briggs af[crc >> 3] |= 1 << (crc & 7);
770 1.1 briggs
771 1.1 briggs ETHER_NEXT_MULTI(step, enm);
772 1.1 briggs }
773 1.1 briggs ifp->if_flags &= ~IFF_ALLMULTI;
774 1.1 briggs return;
775 1.1 briggs
776 1.1 briggs allmulti:
777 1.1 briggs ifp->if_flags |= IFF_ALLMULTI;
778 1.1 briggs *((u_int32_t *)af) = *((u_int32_t *)af + 1) = 0xffffffff;
779 1.1 briggs }
780 1.1 briggs
781 1.1 briggs static u_char bbr4[] = {0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15};
782 1.1 briggs #define bbr(v) ((bbr4[(v)&0xf] << 4) | bbr4[((v)>>4) & 0xf])
783 1.1 briggs
784 1.1 briggs u_char
785 1.1 briggs mc_get_enaddr(t, h, o, dst)
786 1.1 briggs bus_space_tag_t t;
787 1.1 briggs bus_space_handle_t h;
788 1.12 scottr bus_size_t o;
789 1.1 briggs u_char *dst;
790 1.1 briggs {
791 1.1 briggs int i;
792 1.1 briggs u_char b, csum;
793 1.1 briggs
794 1.1 briggs /*
795 1.1 briggs * The XOR of the 8 bytes of the ROM must be 0xff for it to be
796 1.1 briggs * valid
797 1.1 briggs */
798 1.1 briggs for (i = 0, csum = 0; i < 8; i++) {
799 1.1 briggs b = bus_space_read_1(t, h, o+16*i);
800 1.1 briggs if (i < ETHER_ADDR_LEN)
801 1.1 briggs dst[i] = bbr(b);
802 1.1 briggs csum ^= b;
803 1.1 briggs }
804 1.1 briggs
805 1.1 briggs return csum;
806 1.1 briggs }
807