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