if_ie.c revision 1.52 1 1.52 dyoung /* $NetBSD: if_ie.c,v 1.52 2008/11/07 00:20:02 dyoung Exp $ */
2 1.1 gwr
3 1.1 gwr /*-
4 1.27 mycroft * Copyright (c) 1993, 1994, 1995 Charles M. Hannum.
5 1.1 gwr * Copyright (c) 1992, 1993, University of Vermont and State
6 1.1 gwr * Agricultural College.
7 1.1 gwr * Copyright (c) 1992, 1993, Garrett A. Wollman.
8 1.1 gwr *
9 1.1 gwr * Portions:
10 1.3 gwr * Copyright (c) 1994, 1995, Rafal K. Boni
11 1.1 gwr * Copyright (c) 1990, 1991, William F. Jolitz
12 1.1 gwr * Copyright (c) 1990, The Regents of the University of California
13 1.1 gwr *
14 1.1 gwr * All rights reserved.
15 1.1 gwr *
16 1.1 gwr * Redistribution and use in source and binary forms, with or without
17 1.1 gwr * modification, are permitted provided that the following conditions
18 1.1 gwr * are met:
19 1.1 gwr * 1. Redistributions of source code must retain the above copyright
20 1.1 gwr * notice, this list of conditions and the following disclaimer.
21 1.1 gwr * 2. Redistributions in binary form must reproduce the above copyright
22 1.1 gwr * notice, this list of conditions and the following disclaimer in the
23 1.1 gwr * documentation and/or other materials provided with the distribution.
24 1.1 gwr * 3. All advertising materials mentioning features or use of this software
25 1.1 gwr * must display the following acknowledgement:
26 1.27 mycroft * This product includes software developed by Charles M. Hannum, by the
27 1.1 gwr * University of Vermont and State Agricultural College and Garrett A.
28 1.1 gwr * Wollman, by William F. Jolitz, and by the University of California,
29 1.1 gwr * Berkeley, Lawrence Berkeley Laboratory, and its contributors.
30 1.1 gwr * 4. Neither the names of the Universities nor the names of the authors
31 1.1 gwr * may be used to endorse or promote products derived from this software
32 1.1 gwr * without specific prior written permission.
33 1.1 gwr *
34 1.1 gwr * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
35 1.1 gwr * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
36 1.1 gwr * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
37 1.1 gwr * ARE DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OR AUTHORS BE LIABLE
38 1.1 gwr * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
39 1.1 gwr * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
40 1.1 gwr * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
41 1.1 gwr * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
42 1.1 gwr * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
43 1.1 gwr * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
44 1.1 gwr * SUCH DAMAGE.
45 1.1 gwr */
46 1.1 gwr
47 1.1 gwr /*
48 1.1 gwr * Intel 82586 Ethernet chip
49 1.1 gwr * Register, bit, and structure definitions.
50 1.1 gwr *
51 1.1 gwr * Original StarLAN driver written by Garrett Wollman with reference to the
52 1.1 gwr * Clarkson Packet Driver code for this chip written by Russ Nelson and others.
53 1.1 gwr *
54 1.1 gwr * BPF support code taken from hpdev/if_le.c, supplied with tcpdump.
55 1.1 gwr *
56 1.1 gwr * 3C507 support is loosely based on code donated to NetBSD by Rafal Boni.
57 1.1 gwr *
58 1.1 gwr * Majorly cleaned up and 3C507 code merged by Charles Hannum.
59 1.1 gwr *
60 1.3 gwr * Converted to SUN ie driver by Charles D. Cranor,
61 1.3 gwr * October 1994, January 1995.
62 1.3 gwr * This sun version based on i386 version 1.30.
63 1.17 gwr * [ see sys/dev/isa/if_ie.c ]
64 1.1 gwr */
65 1.1 gwr
66 1.1 gwr /*
67 1.1 gwr * The i82586 is a very painful chip, found in sun3's, sun-4/100's
68 1.1 gwr * sun-4/200's, and VME based suns. The byte order is all wrong for a
69 1.1 gwr * SUN, making life difficult. Programming this chip is mostly the same,
70 1.1 gwr * but certain details differ from system to system. This driver is
71 1.1 gwr * written so that different "ie" interfaces can be controled by the same
72 1.1 gwr * driver.
73 1.1 gwr */
74 1.1 gwr
75 1.1 gwr /*
76 1.1 gwr Mode of operation:
77 1.1 gwr
78 1.1 gwr We run the 82586 in a standard Ethernet mode. We keep NFRAMES
79 1.1 gwr received frame descriptors around for the receiver to use, and
80 1.1 gwr NRXBUF associated receive buffer descriptors, both in a circular
81 1.1 gwr list. Whenever a frame is received, we rotate both lists as
82 1.1 gwr necessary. (The 586 treats both lists as a simple queue.) We also
83 1.1 gwr keep a transmit command around so that packets can be sent off
84 1.1 gwr quickly.
85 1.3 gwr
86 1.1 gwr We configure the adapter in AL-LOC = 1 mode, which means that the
87 1.1 gwr Ethernet/802.3 MAC header is placed at the beginning of the receive
88 1.1 gwr buffer rather than being split off into various fields in the RFD.
89 1.1 gwr This also means that we must include this header in the transmit
90 1.1 gwr buffer as well.
91 1.3 gwr
92 1.1 gwr By convention, all transmit commands, and only transmit commands,
93 1.1 gwr shall have the I (IE_CMD_INTR) bit set in the command. This way,
94 1.1 gwr when an interrupt arrives at ieintr(), it is immediately possible
95 1.1 gwr to tell what precisely caused it. ANY OTHER command-sending
96 1.6 mycroft routines should run at splnet(), and should post an acknowledgement
97 1.1 gwr to every interrupt they generate.
98 1.1 gwr */
99 1.39 lukem
100 1.39 lukem #include <sys/cdefs.h>
101 1.52 dyoung __KERNEL_RCSID(0, "$NetBSD: if_ie.c,v 1.52 2008/11/07 00:20:02 dyoung Exp $");
102 1.1 gwr
103 1.25 jonathan #include "opt_inet.h"
104 1.26 jonathan #include "opt_ns.h"
105 1.1 gwr #include "bpfilter.h"
106 1.1 gwr
107 1.1 gwr #include <sys/param.h>
108 1.1 gwr #include <sys/systm.h>
109 1.1 gwr #include <sys/mbuf.h>
110 1.1 gwr #include <sys/buf.h>
111 1.1 gwr #include <sys/protosw.h>
112 1.1 gwr #include <sys/socket.h>
113 1.1 gwr #include <sys/ioctl.h>
114 1.3 gwr #include <sys/errno.h>
115 1.1 gwr #include <sys/syslog.h>
116 1.3 gwr #include <sys/device.h>
117 1.1 gwr
118 1.1 gwr #include <net/if.h>
119 1.1 gwr #include <net/if_types.h>
120 1.1 gwr #include <net/if_dl.h>
121 1.20 is #include <net/if_ether.h>
122 1.1 gwr
123 1.1 gwr #if NBPFILTER > 0
124 1.1 gwr #include <net/bpf.h>
125 1.1 gwr #include <net/bpfdesc.h>
126 1.1 gwr #endif
127 1.1 gwr
128 1.1 gwr #ifdef INET
129 1.1 gwr #include <netinet/in.h>
130 1.1 gwr #include <netinet/in_systm.h>
131 1.1 gwr #include <netinet/in_var.h>
132 1.1 gwr #include <netinet/ip.h>
133 1.20 is #include <netinet/if_inarp.h>
134 1.1 gwr #endif
135 1.1 gwr
136 1.1 gwr #ifdef NS
137 1.1 gwr #include <netns/ns.h>
138 1.1 gwr #include <netns/ns_if.h>
139 1.1 gwr #endif
140 1.1 gwr
141 1.33 mrg #include <uvm/uvm_extern.h>
142 1.1 gwr
143 1.16 gwr #include <machine/autoconf.h>
144 1.16 gwr #include <machine/cpu.h>
145 1.16 gwr #include <machine/pmap.h>
146 1.16 gwr
147 1.1 gwr /*
148 1.1 gwr * ugly byte-order hack for SUNs
149 1.1 gwr */
150 1.1 gwr
151 1.51 tsutsui #define XSWAP(y) ( (((y) & 0xff00) >> 8) | (((y) & 0xff) << 8) )
152 1.1 gwr #define SWAP(x) ((u_short)(XSWAP((u_short)(x))))
153 1.1 gwr
154 1.1 gwr #include "i82586.h"
155 1.10 gwr #include "if_iereg.h"
156 1.10 gwr #include "if_ievar.h"
157 1.1 gwr
158 1.18 gwr /* #define IEDEBUG XXX */
159 1.1 gwr
160 1.1 gwr /*
161 1.1 gwr * IED: ie debug flags
162 1.1 gwr */
163 1.1 gwr
164 1.1 gwr #define IED_RINT 0x01
165 1.1 gwr #define IED_TINT 0x02
166 1.1 gwr #define IED_RNR 0x04
167 1.1 gwr #define IED_CNA 0x08
168 1.1 gwr #define IED_READFRAME 0x10
169 1.17 gwr #define IED_ENQ 0x20
170 1.17 gwr #define IED_XMIT 0x40
171 1.17 gwr #define IED_ALL 0x7f
172 1.1 gwr
173 1.17 gwr #ifdef IEDEBUG
174 1.17 gwr #define inline /* not */
175 1.41 chs void print_rbd(volatile struct ie_recv_buf_desc *);
176 1.17 gwr int in_ierint = 0;
177 1.17 gwr int in_ietint = 0;
178 1.17 gwr int ie_debug_flags = 0;
179 1.17 gwr #endif
180 1.17 gwr
181 1.18 gwr /* XXX - Skip TDR for now - it always complains... */
182 1.18 gwr int ie_run_tdr = 0;
183 1.18 gwr
184 1.41 chs static void iewatchdog(struct ifnet *);
185 1.41 chs static int ieinit(struct ie_softc *);
186 1.45 christos static int ieioctl(struct ifnet *, u_long, void *);
187 1.41 chs static void iestart(struct ifnet *);
188 1.41 chs static void iereset(struct ie_softc *);
189 1.41 chs static int ie_setupram(struct ie_softc *);
190 1.41 chs
191 1.41 chs static int cmd_and_wait(struct ie_softc *, int, void *, int);
192 1.41 chs
193 1.41 chs static void ie_drop_packet_buffer(struct ie_softc *);
194 1.41 chs static void ie_readframe(struct ie_softc *, int);
195 1.41 chs static inline void ie_setup_config(struct ie_config_cmd *, int, int);
196 1.41 chs
197 1.41 chs static void ierint(struct ie_softc *);
198 1.41 chs static void iestop(struct ie_softc *);
199 1.41 chs static void ietint(struct ie_softc *);
200 1.41 chs static void iexmit(struct ie_softc *);
201 1.41 chs
202 1.41 chs static int mc_setup(struct ie_softc *, void *);
203 1.41 chs static void mc_reset(struct ie_softc *);
204 1.41 chs static void run_tdr(struct ie_softc *, struct ie_tdr_cmd *);
205 1.41 chs static void iememinit(struct ie_softc *);
206 1.41 chs
207 1.51 tsutsui static inline uint8_t *Align(char *);
208 1.41 chs static inline u_int Swap32(u_int);
209 1.41 chs static inline u_int vtop24(struct ie_softc *, void *);
210 1.51 tsutsui static inline uint16_t vtop16sw(struct ie_softc *, void *);
211 1.41 chs
212 1.41 chs static inline void ie_ack(struct ie_softc *, u_int);
213 1.51 tsutsui static inline u_short ether_cmp(u_char *, uint8_t *);
214 1.41 chs static inline int check_eh(struct ie_softc *, struct ether_header *, int *);
215 1.41 chs static inline int ie_buflen(struct ie_softc *, int);
216 1.41 chs static inline int ie_packet_len(struct ie_softc *);
217 1.41 chs static inline struct mbuf * ieget(struct ie_softc *, int *);
218 1.1 gwr
219 1.1 gwr
220 1.1 gwr /*
221 1.1 gwr * Here are a few useful functions. We could have done these as macros,
222 1.1 gwr * but since we have the inline facility, it makes sense to use that
223 1.1 gwr * instead.
224 1.1 gwr */
225 1.17 gwr
226 1.17 gwr /* KVA to 24 bit device address */
227 1.41 chs static inline u_int
228 1.41 chs vtop24(struct ie_softc *sc, void *ptr)
229 1.17 gwr {
230 1.17 gwr u_int pa;
231 1.17 gwr
232 1.46 tsutsui pa = (vaddr_t)ptr - (vaddr_t)sc->sc_iobase;
233 1.17 gwr #ifdef IEDEBUG
234 1.17 gwr if (pa & ~0xffFFff)
235 1.17 gwr panic("ie:vtop24");
236 1.17 gwr #endif
237 1.51 tsutsui return pa;
238 1.17 gwr }
239 1.17 gwr
240 1.17 gwr /* KVA to 16 bit offset, swapped */
241 1.41 chs static inline u_short
242 1.41 chs vtop16sw(struct ie_softc *sc, void *ptr)
243 1.17 gwr {
244 1.17 gwr u_int pa;
245 1.17 gwr
246 1.46 tsutsui pa = (vaddr_t)ptr - (vaddr_t)sc->sc_maddr;
247 1.17 gwr #ifdef IEDEBUG
248 1.17 gwr if (pa & ~0xFFff)
249 1.17 gwr panic("ie:vtop16");
250 1.17 gwr #endif
251 1.17 gwr
252 1.51 tsutsui return SWAP(pa);
253 1.17 gwr }
254 1.17 gwr
255 1.41 chs static inline u_int
256 1.41 chs Swap32(u_int x)
257 1.1 gwr {
258 1.17 gwr u_int y;
259 1.17 gwr
260 1.17 gwr y = x & 0xFF;
261 1.17 gwr y <<= 8; x >>= 8;
262 1.17 gwr y |= x & 0xFF;
263 1.17 gwr y <<= 8; x >>= 8;
264 1.17 gwr y |= x & 0xFF;
265 1.17 gwr y <<= 8; x >>= 8;
266 1.17 gwr y |= x & 0xFF;
267 1.1 gwr
268 1.51 tsutsui return y;
269 1.1 gwr }
270 1.1 gwr
271 1.51 tsutsui static inline uint8_t *
272 1.46 tsutsui Align(char *ptr)
273 1.1 gwr {
274 1.1 gwr u_long l = (u_long)ptr;
275 1.1 gwr
276 1.1 gwr l = (l + 3) & ~3L;
277 1.51 tsutsui return (uint8_t *)l;
278 1.1 gwr }
279 1.1 gwr
280 1.17 gwr
281 1.41 chs static inline void
282 1.41 chs ie_ack(struct ie_softc *sc, u_int mask)
283 1.1 gwr {
284 1.1 gwr volatile struct ie_sys_ctl_block *scb = sc->scb;
285 1.1 gwr
286 1.16 gwr cmd_and_wait(sc, scb->ie_status & mask, 0, 0);
287 1.1 gwr }
288 1.1 gwr
289 1.1 gwr
290 1.1 gwr /*
291 1.1 gwr * Taken almost exactly from Bill's if_is.c,
292 1.1 gwr * then modified beyond recognition...
293 1.1 gwr */
294 1.41 chs void
295 1.41 chs ie_attach(struct ie_softc *sc)
296 1.1 gwr {
297 1.1 gwr struct ifnet *ifp = &sc->sc_if;
298 1.1 gwr
299 1.9 gwr /* MD code has done its part before calling this. */
300 1.17 gwr printf(": macaddr %s\n", ether_sprintf(sc->sc_addr));
301 1.1 gwr
302 1.17 gwr /*
303 1.17 gwr * Compute number of transmit and receive buffers.
304 1.17 gwr * Tx buffers take 1536 bytes, and fixed in number.
305 1.17 gwr * Rx buffers are 512 bytes each, variable number.
306 1.17 gwr * Need at least 1 frame for each 3 rx buffers.
307 1.17 gwr * The ratio 3bufs:2frames is a compromise.
308 1.17 gwr */
309 1.17 gwr sc->ntxbuf = NTXBUF; /* XXX - Fix me... */
310 1.17 gwr switch (sc->sc_msize) {
311 1.17 gwr case 16384:
312 1.17 gwr sc->nframes = 8 * 4;
313 1.17 gwr sc->nrxbuf = 8 * 6;
314 1.17 gwr break;
315 1.17 gwr case 32768:
316 1.17 gwr sc->nframes = 16 * 4;
317 1.17 gwr sc->nrxbuf = 16 * 6;
318 1.17 gwr break;
319 1.17 gwr case 65536:
320 1.17 gwr sc->nframes = 32 * 4;
321 1.17 gwr sc->nrxbuf = 32 * 6;
322 1.17 gwr break;
323 1.17 gwr default:
324 1.17 gwr sc->nframes = 0;
325 1.17 gwr }
326 1.17 gwr if (sc->nframes > MXFRAMES)
327 1.17 gwr sc->nframes = MXFRAMES;
328 1.17 gwr if (sc->nrxbuf > MXRXBUF)
329 1.17 gwr sc->nrxbuf = MXRXBUF;
330 1.9 gwr
331 1.18 gwr #ifdef IEDEBUG
332 1.51 tsutsui aprint_debug_dev(sc->sc_dev,
333 1.51 tsutsui "%dK memory, %d tx frames, %d rx frames, %d rx bufs\n",
334 1.51 tsutsui (sc->sc_msize >> 10), sc->ntxbuf, sc->nframes, sc->nrxbuf);
335 1.18 gwr #endif
336 1.9 gwr
337 1.17 gwr if ((sc->nframes <= 0) || (sc->nrxbuf <= 0))
338 1.51 tsutsui panic("%s: weird memory size", __func__);
339 1.9 gwr
340 1.1 gwr /*
341 1.9 gwr * Setup RAM for transmit/receive
342 1.1 gwr */
343 1.1 gwr if (ie_setupram(sc) == 0) {
344 1.51 tsutsui aprint_error(": RAM CONFIG FAILED!\n");
345 1.1 gwr /* XXX should reclaim resources? */
346 1.1 gwr return;
347 1.1 gwr }
348 1.1 gwr
349 1.1 gwr /*
350 1.1 gwr * Initialize and attach S/W interface
351 1.1 gwr */
352 1.51 tsutsui strcpy(ifp->if_xname, device_xname(sc->sc_dev));
353 1.11 thorpej ifp->if_softc = sc;
354 1.1 gwr ifp->if_start = iestart;
355 1.1 gwr ifp->if_ioctl = ieioctl;
356 1.1 gwr ifp->if_watchdog = iewatchdog;
357 1.5 mycroft ifp->if_flags =
358 1.5 mycroft IFF_BROADCAST | IFF_SIMPLEX | IFF_NOTRAILERS | IFF_MULTICAST;
359 1.1 gwr
360 1.1 gwr /* Attach the interface. */
361 1.1 gwr if_attach(ifp);
362 1.20 is ether_ifattach(ifp, sc->sc_addr);
363 1.1 gwr }
364 1.1 gwr
365 1.1 gwr /*
366 1.17 gwr * Setup IE's ram space.
367 1.17 gwr */
368 1.17 gwr static int
369 1.41 chs ie_setupram(struct ie_softc *sc)
370 1.17 gwr {
371 1.17 gwr volatile struct ie_sys_conf_ptr *scp;
372 1.17 gwr volatile struct ie_int_sys_conf_ptr *iscp;
373 1.17 gwr volatile struct ie_sys_ctl_block *scb;
374 1.17 gwr int off;
375 1.17 gwr
376 1.17 gwr /*
377 1.17 gwr * Allocate from end of buffer space for
378 1.17 gwr * ISCP, SCB, and other small stuff.
379 1.17 gwr */
380 1.17 gwr off = sc->buf_area_sz;
381 1.17 gwr off &= ~3;
382 1.17 gwr
383 1.17 gwr /* SCP (address already chosen). */
384 1.17 gwr scp = sc->scp;
385 1.43 tsutsui (sc->sc_memset)(__UNVOLATILE(scp), 0, sizeof(*scp));
386 1.17 gwr
387 1.17 gwr /* ISCP */
388 1.17 gwr off -= sizeof(*iscp);
389 1.51 tsutsui iscp = (volatile void *)(sc->buf_area + off);
390 1.43 tsutsui (sc->sc_memset)(__UNVOLATILE(iscp), 0, sizeof(*iscp));
391 1.17 gwr sc->iscp = iscp;
392 1.17 gwr
393 1.17 gwr /* SCB */
394 1.17 gwr off -= sizeof(*scb);
395 1.51 tsutsui scb = (volatile void *)(sc->buf_area + off);
396 1.43 tsutsui (sc->sc_memset)(__UNVOLATILE(scb), 0, sizeof(*scb));
397 1.17 gwr sc->scb = scb;
398 1.17 gwr
399 1.17 gwr /* Remainder is for buffers, etc. */
400 1.17 gwr sc->buf_area_sz = off;
401 1.17 gwr
402 1.17 gwr /*
403 1.17 gwr * Now fill in the structures we just allocated.
404 1.17 gwr */
405 1.17 gwr
406 1.17 gwr /* SCP: main thing is 24-bit ptr to ISCP */
407 1.17 gwr scp->ie_bus_use = 0; /* 16-bit */
408 1.43 tsutsui scp->ie_iscp_ptr = Swap32(vtop24(sc, __UNVOLATILE(iscp)));
409 1.17 gwr
410 1.17 gwr /* ISCP */
411 1.17 gwr iscp->ie_busy = 1; /* ie_busy == char */
412 1.43 tsutsui iscp->ie_scb_offset = vtop16sw(sc, __UNVOLATILE(scb));
413 1.17 gwr iscp->ie_base = Swap32(vtop24(sc, sc->sc_maddr));
414 1.17 gwr
415 1.17 gwr /* SCB */
416 1.17 gwr scb->ie_command_list = SWAP(0xffff);
417 1.17 gwr scb->ie_recv_list = SWAP(0xffff);
418 1.17 gwr
419 1.17 gwr /* Other stuff is done in ieinit() */
420 1.51 tsutsui (sc->reset_586)(sc);
421 1.51 tsutsui (sc->chan_attn)(sc);
422 1.17 gwr
423 1.17 gwr delay(100); /* wait a while... */
424 1.17 gwr
425 1.17 gwr if (iscp->ie_busy) {
426 1.17 gwr return 0;
427 1.17 gwr }
428 1.17 gwr /*
429 1.17 gwr * Acknowledge any interrupts we may have caused...
430 1.17 gwr */
431 1.17 gwr ie_ack(sc, IE_ST_WHENCE);
432 1.17 gwr
433 1.17 gwr return 1;
434 1.17 gwr }
435 1.17 gwr
436 1.17 gwr /*
437 1.1 gwr * Device timeout/watchdog routine. Entered if the device neglects to
438 1.1 gwr * generate an interrupt after a transmit has been started on it.
439 1.1 gwr */
440 1.41 chs static void
441 1.41 chs iewatchdog(struct ifnet *ifp)
442 1.1 gwr {
443 1.12 thorpej struct ie_softc *sc = ifp->if_softc;
444 1.1 gwr
445 1.51 tsutsui log(LOG_ERR, "%s: device timeout\n", device_xname(sc->sc_dev));
446 1.20 is ++ifp->if_oerrors;
447 1.1 gwr iereset(sc);
448 1.1 gwr }
449 1.1 gwr
450 1.1 gwr /*
451 1.1 gwr * What to do upon receipt of an interrupt.
452 1.1 gwr */
453 1.41 chs int
454 1.41 chs ie_intr(void *arg)
455 1.1 gwr {
456 1.17 gwr struct ie_softc *sc = arg;
457 1.51 tsutsui uint16_t status;
458 1.17 gwr int loopcnt;
459 1.1 gwr
460 1.1 gwr /*
461 1.1 gwr * check for parity error
462 1.1 gwr */
463 1.1 gwr if (sc->hard_type == IE_VME) {
464 1.51 tsutsui volatile struct ievme *iev =
465 1.51 tsutsui (volatile struct ievme *)sc->sc_reg;
466 1.51 tsutsui
467 1.1 gwr if (iev->status & IEVME_PERR) {
468 1.21 fair printf("%s: parity error (ctrl 0x%x @ 0x%02x%04x)\n",
469 1.51 tsutsui device_xname(sc->sc_dev), iev->pectrl,
470 1.16 gwr iev->pectrl & IEVME_HADDR, iev->peaddr);
471 1.1 gwr iev->pectrl = iev->pectrl | IEVME_PARACK;
472 1.1 gwr }
473 1.1 gwr }
474 1.3 gwr
475 1.22 gwr status = sc->scb->ie_status;
476 1.22 gwr if ((status & IE_ST_WHENCE) == 0)
477 1.17 gwr return 0;
478 1.17 gwr
479 1.22 gwr loopcnt = sc->nframes;
480 1.51 tsutsui loop:
481 1.3 gwr /* Ack interrupts FIRST in case we receive more during the ISR. */
482 1.22 gwr ie_ack(sc, IE_ST_WHENCE & status);
483 1.3 gwr
484 1.1 gwr if (status & (IE_ST_RECV | IE_ST_RNR)) {
485 1.1 gwr #ifdef IEDEBUG
486 1.1 gwr in_ierint++;
487 1.1 gwr if (sc->sc_debug & IED_RINT)
488 1.51 tsutsui printf("%s: rint\n", device_xname(sc->sc_dev));
489 1.1 gwr #endif
490 1.1 gwr ierint(sc);
491 1.1 gwr #ifdef IEDEBUG
492 1.1 gwr in_ierint--;
493 1.1 gwr #endif
494 1.1 gwr }
495 1.3 gwr
496 1.1 gwr if (status & IE_ST_DONE) {
497 1.1 gwr #ifdef IEDEBUG
498 1.1 gwr in_ietint++;
499 1.1 gwr if (sc->sc_debug & IED_TINT)
500 1.51 tsutsui printf("%s: tint\n", device_xname(sc->sc_dev));
501 1.1 gwr #endif
502 1.1 gwr ietint(sc);
503 1.1 gwr #ifdef IEDEBUG
504 1.1 gwr in_ietint--;
505 1.1 gwr #endif
506 1.1 gwr }
507 1.3 gwr
508 1.17 gwr /*
509 1.18 gwr * Receiver not ready (RNR) just means it has
510 1.18 gwr * run out of resources (buffers or frames).
511 1.18 gwr * One can easily cause this with (i.e.) spray.
512 1.19 gwr * This is not a serious error, so be silent.
513 1.17 gwr */
514 1.1 gwr if (status & IE_ST_RNR) {
515 1.18 gwr #ifdef IEDEBUG
516 1.51 tsutsui printf("%s: receiver not ready\n", device_xname(sc->sc_dev));
517 1.18 gwr #endif
518 1.19 gwr sc->sc_if.if_ierrors++;
519 1.3 gwr iereset(sc);
520 1.1 gwr }
521 1.3 gwr
522 1.1 gwr #ifdef IEDEBUG
523 1.1 gwr if ((status & IE_ST_ALLDONE) && (sc->sc_debug & IED_CNA))
524 1.51 tsutsui printf("%s: cna\n", device_xname(sc->sc_dev));
525 1.1 gwr #endif
526 1.1 gwr
527 1.22 gwr status = sc->scb->ie_status;
528 1.22 gwr if (status & IE_ST_WHENCE) {
529 1.22 gwr /* It still wants service... */
530 1.17 gwr if (--loopcnt > 0)
531 1.17 gwr goto loop;
532 1.22 gwr /* ... but we've been here long enough. */
533 1.22 gwr log(LOG_ERR, "%s: interrupt stuck?\n",
534 1.51 tsutsui device_xname(sc->sc_dev));
535 1.17 gwr iereset(sc);
536 1.17 gwr }
537 1.1 gwr return 1;
538 1.1 gwr }
539 1.1 gwr
540 1.1 gwr /*
541 1.1 gwr * Process a received-frame interrupt.
542 1.1 gwr */
543 1.41 chs void
544 1.41 chs ierint(struct ie_softc *sc)
545 1.1 gwr {
546 1.1 gwr volatile struct ie_sys_ctl_block *scb = sc->scb;
547 1.17 gwr int i, status;
548 1.1 gwr static int timesthru = 1024;
549 1.1 gwr
550 1.1 gwr i = sc->rfhead;
551 1.1 gwr for (;;) {
552 1.1 gwr status = sc->rframes[i]->ie_fd_status;
553 1.1 gwr
554 1.1 gwr if ((status & IE_FD_COMPLETE) && (status & IE_FD_OK)) {
555 1.1 gwr if (!--timesthru) {
556 1.19 gwr sc->sc_if.if_ierrors +=
557 1.1 gwr SWAP(scb->ie_err_crc) +
558 1.1 gwr SWAP(scb->ie_err_align) +
559 1.1 gwr SWAP(scb->ie_err_resource) +
560 1.1 gwr SWAP(scb->ie_err_overrun);
561 1.3 gwr scb->ie_err_crc = 0;
562 1.3 gwr scb->ie_err_align = 0;
563 1.1 gwr scb->ie_err_resource = 0;
564 1.1 gwr scb->ie_err_overrun = 0;
565 1.1 gwr timesthru = 1024;
566 1.1 gwr }
567 1.1 gwr ie_readframe(sc, i);
568 1.1 gwr } else {
569 1.1 gwr if ((status & IE_FD_RNR) != 0 &&
570 1.1 gwr (scb->ie_status & IE_RU_READY) == 0) {
571 1.43 tsutsui sc->rframes[0]->ie_fd_buf_desc = vtop16sw(sc,
572 1.43 tsutsui __UNVOLATILE(sc->rbuffs[0]));
573 1.43 tsutsui scb->ie_recv_list = vtop16sw(sc,
574 1.43 tsutsui __UNVOLATILE(sc->rframes[0]));
575 1.16 gwr cmd_and_wait(sc, IE_RU_START, 0, 0);
576 1.1 gwr }
577 1.1 gwr break;
578 1.1 gwr }
579 1.1 gwr i = (i + 1) % sc->nframes;
580 1.1 gwr }
581 1.1 gwr }
582 1.1 gwr
583 1.1 gwr /*
584 1.17 gwr * Process a command-complete interrupt. These are only generated by the
585 1.17 gwr * transmission of frames. This routine is deceptively simple, since most
586 1.17 gwr * of the real work is done by iestart().
587 1.1 gwr */
588 1.41 chs void
589 1.41 chs ietint(struct ie_softc *sc)
590 1.1 gwr {
591 1.20 is struct ifnet *ifp;
592 1.17 gwr int status;
593 1.1 gwr
594 1.20 is ifp = &sc->sc_if;
595 1.20 is
596 1.17 gwr ifp->if_timer = 0;
597 1.17 gwr ifp->if_flags &= ~IFF_OACTIVE;
598 1.1 gwr
599 1.3 gwr status = sc->xmit_cmds[sc->xctail]->ie_xmit_status;
600 1.1 gwr
601 1.3 gwr if (!(status & IE_STAT_COMPL) || (status & IE_STAT_BUSY))
602 1.51 tsutsui printf("%s: command still busy!\n", __func__);
603 1.3 gwr
604 1.3 gwr if (status & IE_STAT_OK) {
605 1.17 gwr ifp->if_opackets++;
606 1.17 gwr ifp->if_collisions +=
607 1.3 gwr SWAP(status & IE_XS_MAXCOLL);
608 1.17 gwr } else {
609 1.17 gwr ifp->if_oerrors++;
610 1.17 gwr /*
611 1.17 gwr * XXX
612 1.17 gwr * Check SQE and DEFERRED?
613 1.17 gwr * What if more than one bit is set?
614 1.17 gwr */
615 1.17 gwr if (status & IE_STAT_ABORT)
616 1.51 tsutsui printf("%s: send aborted\n", device_xname(sc->sc_dev));
617 1.17 gwr if (status & IE_XS_LATECOLL)
618 1.51 tsutsui printf("%s: late collision\n",
619 1.51 tsutsui device_xname(sc->sc_dev));
620 1.17 gwr if (status & IE_XS_NOCARRIER)
621 1.51 tsutsui printf("%s: no carrier\n", device_xname(sc->sc_dev));
622 1.17 gwr if (status & IE_XS_LOSTCTS)
623 1.51 tsutsui printf("%s: lost CTS\n", device_xname(sc->sc_dev));
624 1.17 gwr if (status & IE_XS_UNDERRUN)
625 1.51 tsutsui printf("%s: DMA underrun\n", device_xname(sc->sc_dev));
626 1.17 gwr if (status & IE_XS_EXCMAX) {
627 1.23 gwr /* Do not print this one (too noisy). */
628 1.17 gwr ifp->if_collisions += 16;
629 1.17 gwr }
630 1.1 gwr }
631 1.1 gwr
632 1.1 gwr /*
633 1.1 gwr * If multicast addresses were added or deleted while we
634 1.1 gwr * were transmitting, mc_reset() set the want_mcsetup flag
635 1.1 gwr * indicating that we should do it.
636 1.1 gwr */
637 1.1 gwr if (sc->want_mcsetup) {
638 1.45 christos mc_setup(sc, (void *)sc->xmit_cbuffs[sc->xctail]);
639 1.1 gwr sc->want_mcsetup = 0;
640 1.1 gwr }
641 1.3 gwr
642 1.3 gwr /* Done with the buffer. */
643 1.17 gwr sc->xmit_busy--;
644 1.3 gwr sc->xctail = (sc->xctail + 1) % NTXBUF;
645 1.1 gwr
646 1.17 gwr /* Start the next packet, if any, transmitting. */
647 1.17 gwr if (sc->xmit_busy > 0)
648 1.17 gwr iexmit(sc);
649 1.17 gwr
650 1.17 gwr iestart(ifp);
651 1.1 gwr }
652 1.1 gwr
653 1.1 gwr /*
654 1.1 gwr * Compare two Ether/802 addresses for equality, inlined and
655 1.1 gwr * unrolled for speed. I'd love to have an inline assembler
656 1.9 gwr * version of this... XXX: Who wanted that? mycroft?
657 1.9 gwr * I wrote one, but the following is just as efficient.
658 1.9 gwr * This expands to 10 short m68k instructions! -gwr
659 1.9 gwr * Note: use this like bcmp()
660 1.1 gwr */
661 1.51 tsutsui static inline uint16_t
662 1.51 tsutsui ether_cmp(uint8_t *one, uint8_t *two)
663 1.1 gwr {
664 1.51 tsutsui uint16_t *a = (uint16_t *)one;
665 1.51 tsutsui uint16_t *b = (uint16_t *)two;
666 1.51 tsutsui uint16_t diff;
667 1.9 gwr
668 1.9 gwr diff = *a++ - *b++;
669 1.9 gwr diff |= *a++ - *b++;
670 1.9 gwr diff |= *a++ - *b++;
671 1.1 gwr
672 1.51 tsutsui return diff;
673 1.1 gwr }
674 1.9 gwr #define ether_equal !ether_cmp
675 1.1 gwr
676 1.1 gwr /*
677 1.1 gwr * Check for a valid address. to_bpf is filled in with one of the following:
678 1.1 gwr * 0 -> BPF doesn't get this packet
679 1.1 gwr * 1 -> BPF does get this packet
680 1.1 gwr * 2 -> BPF does get this packet, but we don't
681 1.1 gwr * Return value is true if the packet is for us, and false otherwise.
682 1.1 gwr *
683 1.1 gwr * This routine is a mess, but it's also critical that it be as fast
684 1.1 gwr * as possible. It could be made cleaner if we can assume that the
685 1.1 gwr * only client which will fiddle with IFF_PROMISC is BPF. This is
686 1.1 gwr * probably a good assumption, but we do not make it here. (Yet.)
687 1.1 gwr */
688 1.41 chs static inline int
689 1.41 chs check_eh(struct ie_softc *sc, struct ether_header *eh, int *to_bpf)
690 1.1 gwr {
691 1.42 tsutsui #if NBPFILTER > 0
692 1.20 is struct ifnet *ifp;
693 1.1 gwr
694 1.20 is ifp = &sc->sc_if;
695 1.34 thorpej *to_bpf = (ifp->if_bpf != 0);
696 1.1 gwr #endif
697 1.1 gwr
698 1.34 thorpej /*
699 1.34 thorpej * This is all handled at a higher level now.
700 1.34 thorpej */
701 1.34 thorpej return 1;
702 1.1 gwr }
703 1.1 gwr
704 1.1 gwr /*
705 1.1 gwr * We want to isolate the bits that have meaning... This assumes that
706 1.1 gwr * IE_RBUF_SIZE is an even power of two. If somehow the act_len exceeds
707 1.1 gwr * the size of the buffer, then we are screwed anyway.
708 1.1 gwr */
709 1.41 chs static inline int
710 1.41 chs ie_buflen(struct ie_softc *sc, int head)
711 1.1 gwr {
712 1.36 tsutsui int len;
713 1.1 gwr
714 1.17 gwr len = SWAP(sc->rbuffs[head]->ie_rbd_actual);
715 1.17 gwr len &= (IE_RBUF_SIZE | (IE_RBUF_SIZE - 1));
716 1.51 tsutsui return len;
717 1.1 gwr }
718 1.1 gwr
719 1.41 chs static inline int
720 1.41 chs ie_packet_len(struct ie_softc *sc)
721 1.1 gwr {
722 1.17 gwr int i;
723 1.17 gwr int head = sc->rbhead;
724 1.17 gwr int acc = 0;
725 1.1 gwr
726 1.1 gwr do {
727 1.51 tsutsui if ((sc->rbuffs[sc->rbhead]->ie_rbd_actual & IE_RBD_USED)
728 1.51 tsutsui == 0) {
729 1.1 gwr #ifdef IEDEBUG
730 1.1 gwr print_rbd(sc->rbuffs[sc->rbhead]);
731 1.1 gwr #endif
732 1.51 tsutsui log(LOG_ERR,
733 1.51 tsutsui "%s: receive descriptors out of sync at %d\n",
734 1.51 tsutsui device_xname(sc->sc_dev), sc->rbhead);
735 1.1 gwr iereset(sc);
736 1.1 gwr return -1;
737 1.1 gwr }
738 1.3 gwr
739 1.1 gwr i = sc->rbuffs[head]->ie_rbd_actual & IE_RBD_LAST;
740 1.1 gwr
741 1.1 gwr acc += ie_buflen(sc, head);
742 1.1 gwr head = (head + 1) % sc->nrxbuf;
743 1.51 tsutsui } while (i == 0);
744 1.1 gwr
745 1.1 gwr return acc;
746 1.1 gwr }
747 1.1 gwr
748 1.1 gwr /*
749 1.3 gwr * Setup all necessary artifacts for an XMIT command, and then pass the XMIT
750 1.3 gwr * command to the chip to be executed. On the way, if we have a BPF listener
751 1.3 gwr * also give him a copy.
752 1.3 gwr */
753 1.41 chs static void
754 1.41 chs iexmit(struct ie_softc *sc)
755 1.3 gwr {
756 1.20 is struct ifnet *ifp;
757 1.20 is
758 1.20 is ifp = &sc->sc_if;
759 1.3 gwr
760 1.17 gwr #ifdef IEDEBUG
761 1.17 gwr if (sc->sc_debug & IED_XMIT)
762 1.51 tsutsui printf("%s: xmit buffer %d\n", device_xname(sc->sc_dev),
763 1.17 gwr sc->xctail);
764 1.17 gwr #endif
765 1.17 gwr
766 1.3 gwr #if NBPFILTER > 0
767 1.3 gwr /*
768 1.3 gwr * If BPF is listening on this interface, let it see the packet before
769 1.3 gwr * we push it on the wire.
770 1.3 gwr */
771 1.20 is if (ifp->if_bpf)
772 1.20 is bpf_tap(ifp->if_bpf,
773 1.3 gwr sc->xmit_cbuffs[sc->xctail],
774 1.3 gwr SWAP(sc->xmit_buffs[sc->xctail]->ie_xmit_flags));
775 1.3 gwr #endif
776 1.3 gwr
777 1.3 gwr sc->xmit_buffs[sc->xctail]->ie_xmit_flags |= IE_XMIT_LAST;
778 1.3 gwr sc->xmit_buffs[sc->xctail]->ie_xmit_next = SWAP(0xffff);
779 1.17 gwr sc->xmit_buffs[sc->xctail]->ie_xmit_buf =
780 1.17 gwr Swap32(vtop24(sc, sc->xmit_cbuffs[sc->xctail]));
781 1.3 gwr
782 1.3 gwr sc->xmit_cmds[sc->xctail]->com.ie_cmd_link = SWAP(0xffff);
783 1.3 gwr sc->xmit_cmds[sc->xctail]->com.ie_cmd_cmd =
784 1.17 gwr IE_CMD_XMIT | IE_CMD_INTR | IE_CMD_LAST;
785 1.3 gwr
786 1.3 gwr sc->xmit_cmds[sc->xctail]->ie_xmit_status = SWAP(0);
787 1.3 gwr sc->xmit_cmds[sc->xctail]->ie_xmit_desc =
788 1.43 tsutsui vtop16sw(sc, __UNVOLATILE(sc->xmit_buffs[sc->xctail]));
789 1.3 gwr
790 1.3 gwr sc->scb->ie_command_list =
791 1.43 tsutsui vtop16sw(sc, __UNVOLATILE(sc->xmit_cmds[sc->xctail]));
792 1.16 gwr cmd_and_wait(sc, IE_CU_START, 0, 0);
793 1.3 gwr
794 1.20 is ifp->if_timer = 5;
795 1.3 gwr }
796 1.3 gwr
797 1.3 gwr /*
798 1.1 gwr * Read data off the interface, and turn it into an mbuf chain.
799 1.1 gwr *
800 1.1 gwr * This code is DRAMATICALLY different from the previous version; this
801 1.1 gwr * version tries to allocate the entire mbuf chain up front, given the
802 1.1 gwr * length of the data available. This enables us to allocate mbuf
803 1.1 gwr * clusters in many situations where before we would have had a long
804 1.1 gwr * chain of partially-full mbufs. This should help to speed up the
805 1.1 gwr * operation considerably. (Provided that it works, of course.)
806 1.1 gwr */
807 1.17 gwr static inline struct mbuf *
808 1.41 chs ieget(struct ie_softc *sc, int *to_bpf)
809 1.1 gwr {
810 1.17 gwr struct mbuf *top, **mp, *m;
811 1.17 gwr int len, totlen, resid;
812 1.17 gwr int thisrboff, thismboff;
813 1.17 gwr int head;
814 1.30 thorpej struct ether_header eh;
815 1.1 gwr
816 1.1 gwr totlen = ie_packet_len(sc);
817 1.1 gwr if (totlen <= 0)
818 1.17 gwr return 0;
819 1.1 gwr
820 1.17 gwr head = sc->rbhead;
821 1.1 gwr
822 1.1 gwr /*
823 1.1 gwr * Snarf the Ethernet header.
824 1.1 gwr */
825 1.45 christos (sc->sc_memcpy)((void *)&eh, (void *)sc->cbuffs[head],
826 1.30 thorpej sizeof(struct ether_header));
827 1.1 gwr
828 1.1 gwr /*
829 1.1 gwr * As quickly as possible, check if this packet is for us.
830 1.1 gwr * If not, don't waste a single cycle copying the rest of the
831 1.1 gwr * packet in.
832 1.1 gwr * This is only a consideration when FILTER is defined; i.e., when
833 1.1 gwr * we are either running BPF or doing multicasting.
834 1.1 gwr */
835 1.51 tsutsui if (check_eh(sc, &eh, to_bpf) == 0) {
836 1.3 gwr /* just this case, it's not an error */
837 1.19 gwr sc->sc_if.if_ierrors--;
838 1.17 gwr return 0;
839 1.1 gwr }
840 1.1 gwr
841 1.30 thorpej resid = totlen;
842 1.17 gwr
843 1.17 gwr MGETHDR(m, M_DONTWAIT, MT_DATA);
844 1.17 gwr if (m == 0)
845 1.17 gwr return 0;
846 1.3 gwr
847 1.19 gwr m->m_pkthdr.rcvif = &sc->sc_if;
848 1.17 gwr m->m_pkthdr.len = totlen;
849 1.17 gwr len = MHLEN;
850 1.1 gwr top = 0;
851 1.17 gwr mp = ⊤
852 1.1 gwr
853 1.1 gwr /*
854 1.1 gwr * This loop goes through and allocates mbufs for all the data we will
855 1.1 gwr * be copying in. It does not actually do the copying yet.
856 1.1 gwr */
857 1.17 gwr while (totlen > 0) {
858 1.1 gwr if (top) {
859 1.1 gwr MGET(m, M_DONTWAIT, MT_DATA);
860 1.17 gwr if (m == 0) {
861 1.1 gwr m_freem(top);
862 1.17 gwr return 0;
863 1.1 gwr }
864 1.17 gwr len = MLEN;
865 1.1 gwr }
866 1.17 gwr if (totlen >= MINCLSIZE) {
867 1.1 gwr MCLGET(m, M_DONTWAIT);
868 1.1 gwr if (m->m_flags & M_EXT)
869 1.17 gwr len = MCLBYTES;
870 1.1 gwr }
871 1.31 thorpej
872 1.31 thorpej if (mp == &top) {
873 1.46 tsutsui char *newdata = (char *)
874 1.31 thorpej ALIGN(m->m_data + sizeof(struct ether_header)) -
875 1.31 thorpej sizeof(struct ether_header);
876 1.31 thorpej len -= newdata - m->m_data;
877 1.31 thorpej m->m_data = newdata;
878 1.31 thorpej }
879 1.31 thorpej
880 1.17 gwr m->m_len = len = min(totlen, len);
881 1.31 thorpej
882 1.17 gwr totlen -= len;
883 1.17 gwr *mp = m;
884 1.17 gwr mp = &m->m_next;
885 1.17 gwr }
886 1.1 gwr
887 1.1 gwr m = top;
888 1.1 gwr thismboff = 0;
889 1.1 gwr
890 1.1 gwr /*
891 1.30 thorpej * Copy the Ethernet header into the mbuf chain.
892 1.30 thorpej */
893 1.45 christos memcpy(mtod(m, void *), &eh, sizeof(struct ether_header));
894 1.30 thorpej thismboff = sizeof(struct ether_header);
895 1.30 thorpej thisrboff = sizeof(struct ether_header);
896 1.30 thorpej resid -= sizeof(struct ether_header);
897 1.30 thorpej
898 1.30 thorpej /*
899 1.1 gwr * Now we take the mbuf chain (hopefully only one mbuf most of the
900 1.1 gwr * time) and stuff the data into it. There are no possible failures
901 1.1 gwr * at or after this point.
902 1.1 gwr */
903 1.17 gwr while (resid > 0) {
904 1.17 gwr int thisrblen = ie_buflen(sc, head) - thisrboff;
905 1.17 gwr int thismblen = m->m_len - thismboff;
906 1.17 gwr
907 1.17 gwr len = min(thisrblen, thismblen);
908 1.46 tsutsui (sc->sc_memcpy)(mtod(m, char *) + thismboff,
909 1.45 christos (void *)(sc->cbuffs[head] + thisrboff),
910 1.28 thorpej (u_int)len);
911 1.17 gwr resid -= len;
912 1.1 gwr
913 1.17 gwr if (len == thismblen) {
914 1.1 gwr m = m->m_next;
915 1.17 gwr thismboff = 0;
916 1.17 gwr } else
917 1.17 gwr thismboff += len;
918 1.17 gwr
919 1.17 gwr if (len == thisrblen) {
920 1.17 gwr head = (head + 1) % sc->nrxbuf;
921 1.17 gwr thisrboff = 0;
922 1.17 gwr } else
923 1.17 gwr thisrboff += len;
924 1.1 gwr }
925 1.1 gwr
926 1.1 gwr /*
927 1.1 gwr * Unless something changed strangely while we were doing the copy,
928 1.1 gwr * we have now copied everything in from the shared memory.
929 1.1 gwr * This means that we are done.
930 1.1 gwr */
931 1.17 gwr return top;
932 1.1 gwr }
933 1.1 gwr
934 1.1 gwr /*
935 1.1 gwr * Read frame NUM from unit UNIT (pre-cached as IE).
936 1.1 gwr *
937 1.1 gwr * This routine reads the RFD at NUM, and copies in the buffers from
938 1.1 gwr * the list of RBD, then rotates the RBD and RFD lists so that the receiver
939 1.1 gwr * doesn't start complaining. Trailers are DROPPED---there's no point
940 1.1 gwr * in wasting time on confusing code to deal with them. Hopefully,
941 1.1 gwr * this machine will never ARP for trailers anyway.
942 1.1 gwr */
943 1.41 chs static void
944 1.41 chs ie_readframe(struct ie_softc *sc, int num)
945 1.1 gwr {
946 1.3 gwr int status;
947 1.1 gwr struct mbuf *m = 0;
948 1.1 gwr #if NBPFILTER > 0
949 1.17 gwr int bpf_gets_it = 0;
950 1.1 gwr #endif
951 1.1 gwr
952 1.3 gwr status = sc->rframes[num]->ie_fd_status;
953 1.1 gwr
954 1.17 gwr /* Advance the RFD list, since we're done with this descriptor. */
955 1.1 gwr sc->rframes[num]->ie_fd_status = SWAP(0);
956 1.1 gwr sc->rframes[num]->ie_fd_last |= IE_FD_LAST;
957 1.1 gwr sc->rframes[sc->rftail]->ie_fd_last &= ~IE_FD_LAST;
958 1.1 gwr sc->rftail = (sc->rftail + 1) % sc->nframes;
959 1.1 gwr sc->rfhead = (sc->rfhead + 1) % sc->nframes;
960 1.1 gwr
961 1.3 gwr if (status & IE_FD_OK) {
962 1.1 gwr #if NBPFILTER > 0
963 1.30 thorpej m = ieget(sc, &bpf_gets_it);
964 1.1 gwr #else
965 1.42 tsutsui m = ieget(sc, NULL);
966 1.1 gwr #endif
967 1.17 gwr ie_drop_packet_buffer(sc);
968 1.17 gwr }
969 1.17 gwr if (m == 0) {
970 1.19 gwr sc->sc_if.if_ierrors++;
971 1.17 gwr return;
972 1.1 gwr }
973 1.3 gwr
974 1.1 gwr #ifdef IEDEBUG
975 1.30 thorpej if (sc->sc_debug & IED_READFRAME) {
976 1.30 thorpej struct ether_header *eh = mtod(m, struct ether_header *);
977 1.30 thorpej
978 1.21 fair printf("%s: frame from ether %s type 0x%x\n",
979 1.51 tsutsui device_xname(sc->sc_dev),
980 1.30 thorpej ether_sprintf(eh->ether_shost), (u_int)eh->ether_type);
981 1.30 thorpej }
982 1.1 gwr #endif
983 1.1 gwr
984 1.1 gwr #if NBPFILTER > 0
985 1.1 gwr /*
986 1.1 gwr * Check for a BPF filter; if so, hand it up.
987 1.1 gwr * Note that we have to stick an extra mbuf up front, because
988 1.1 gwr * bpf_mtap expects to have the ether header at the front.
989 1.1 gwr * It doesn't matter that this results in an ill-formatted mbuf chain,
990 1.1 gwr * since BPF just looks at the data. (It doesn't try to free the mbuf,
991 1.1 gwr * tho' it will make a copy for tcpdump.)
992 1.1 gwr */
993 1.1 gwr if (bpf_gets_it) {
994 1.17 gwr /* Pass it up. */
995 1.30 thorpej bpf_mtap(sc->sc_if.if_bpf, m);
996 1.17 gwr
997 1.17 gwr /*
998 1.17 gwr * A signal passed up from the filtering code indicating that
999 1.17 gwr * the packet is intended for BPF but not for the protocol
1000 1.17 gwr * machinery. We can save a few cycles by not handing it off
1001 1.17 gwr * to them.
1002 1.17 gwr */
1003 1.17 gwr if (bpf_gets_it == 2) {
1004 1.17 gwr m_freem(m);
1005 1.17 gwr return;
1006 1.17 gwr }
1007 1.1 gwr }
1008 1.3 gwr #endif /* NBPFILTER > 0 */
1009 1.1 gwr
1010 1.1 gwr /*
1011 1.1 gwr * In here there used to be code to check destination addresses upon
1012 1.1 gwr * receipt of a packet. We have deleted that code, and replaced it
1013 1.1 gwr * with code to check the address much earlier in the cycle, before
1014 1.1 gwr * copying the data in; this saves us valuable cycles when operating
1015 1.1 gwr * as a multicast router or when using BPF.
1016 1.1 gwr */
1017 1.1 gwr
1018 1.1 gwr /*
1019 1.1 gwr * Finally pass this packet up to higher layers.
1020 1.1 gwr */
1021 1.32 chs (*sc->sc_if.if_input)(&sc->sc_if, m);
1022 1.19 gwr sc->sc_if.if_ipackets++;
1023 1.1 gwr }
1024 1.1 gwr
1025 1.41 chs static void
1026 1.41 chs ie_drop_packet_buffer(struct ie_softc *sc)
1027 1.1 gwr {
1028 1.3 gwr int i;
1029 1.1 gwr
1030 1.1 gwr do {
1031 1.1 gwr /*
1032 1.1 gwr * This means we are somehow out of sync. So, we reset the
1033 1.1 gwr * adapter.
1034 1.1 gwr */
1035 1.51 tsutsui if ((sc->rbuffs[sc->rbhead]->ie_rbd_actual & IE_RBD_USED)
1036 1.51 tsutsui == 0) {
1037 1.1 gwr #ifdef IEDEBUG
1038 1.1 gwr print_rbd(sc->rbuffs[sc->rbhead]);
1039 1.1 gwr #endif
1040 1.51 tsutsui log(LOG_ERR,
1041 1.51 tsutsui "%s: receive descriptors out of sync at %d\n",
1042 1.51 tsutsui device_xname(sc->sc_dev), sc->rbhead);
1043 1.1 gwr iereset(sc);
1044 1.1 gwr return;
1045 1.1 gwr }
1046 1.3 gwr
1047 1.1 gwr i = sc->rbuffs[sc->rbhead]->ie_rbd_actual & IE_RBD_LAST;
1048 1.1 gwr
1049 1.1 gwr sc->rbuffs[sc->rbhead]->ie_rbd_length |= IE_RBD_LAST;
1050 1.1 gwr sc->rbuffs[sc->rbhead]->ie_rbd_actual = SWAP(0);
1051 1.1 gwr sc->rbhead = (sc->rbhead + 1) % sc->nrxbuf;
1052 1.1 gwr sc->rbuffs[sc->rbtail]->ie_rbd_length &= ~IE_RBD_LAST;
1053 1.1 gwr sc->rbtail = (sc->rbtail + 1) % sc->nrxbuf;
1054 1.51 tsutsui } while (i == 0);
1055 1.1 gwr }
1056 1.1 gwr
1057 1.1 gwr /*
1058 1.1 gwr * Start transmission on an interface.
1059 1.1 gwr */
1060 1.41 chs static void
1061 1.41 chs iestart(struct ifnet *ifp)
1062 1.1 gwr {
1063 1.11 thorpej struct ie_softc *sc = ifp->if_softc;
1064 1.1 gwr struct mbuf *m0, *m;
1065 1.51 tsutsui uint8_t *buffer;
1066 1.51 tsutsui uint16_t len;
1067 1.1 gwr
1068 1.17 gwr if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
1069 1.4 gwr return;
1070 1.1 gwr
1071 1.17 gwr for (;;) {
1072 1.17 gwr if (sc->xmit_busy == sc->ntxbuf) {
1073 1.17 gwr ifp->if_flags |= IFF_OACTIVE;
1074 1.17 gwr break;
1075 1.17 gwr }
1076 1.3 gwr
1077 1.17 gwr IF_DEQUEUE(&ifp->if_snd, m0);
1078 1.17 gwr if (m0 == 0)
1079 1.1 gwr break;
1080 1.1 gwr
1081 1.17 gwr /* We need to use m->m_pkthdr.len, so require the header */
1082 1.17 gwr if ((m0->m_flags & M_PKTHDR) == 0)
1083 1.51 tsutsui panic("%s: no header mbuf", __func__);
1084 1.17 gwr
1085 1.17 gwr #if NBPFILTER > 0
1086 1.17 gwr /* Tap off here if there is a BPF listener. */
1087 1.17 gwr if (ifp->if_bpf)
1088 1.17 gwr bpf_mtap(ifp->if_bpf, m0);
1089 1.17 gwr #endif
1090 1.17 gwr
1091 1.17 gwr #ifdef IEDEBUG
1092 1.17 gwr if (sc->sc_debug & IED_ENQ)
1093 1.51 tsutsui printf("%s: fill buffer %d\n", device_xname(sc->sc_dev),
1094 1.17 gwr sc->xchead);
1095 1.17 gwr #endif
1096 1.17 gwr
1097 1.3 gwr buffer = sc->xmit_cbuffs[sc->xchead];
1098 1.17 gwr for (m = m0; m != 0; m = m->m_next) {
1099 1.45 christos (sc->sc_memcpy)(buffer, mtod(m, void *), m->m_len);
1100 1.1 gwr buffer += m->m_len;
1101 1.1 gwr }
1102 1.38 bouyer if (m0->m_pkthdr.len < ETHER_MIN_LEN - ETHER_CRC_LEN) {
1103 1.38 bouyer sc->sc_memset(buffer, 0,
1104 1.38 bouyer ETHER_MIN_LEN - ETHER_CRC_LEN - m0->m_pkthdr.len);
1105 1.38 bouyer len = ETHER_MIN_LEN - ETHER_CRC_LEN;
1106 1.38 bouyer } else
1107 1.38 bouyer len = m0->m_pkthdr.len;
1108 1.1 gwr
1109 1.1 gwr m_freem(m0);
1110 1.3 gwr sc->xmit_buffs[sc->xchead]->ie_xmit_flags = SWAP(len);
1111 1.1 gwr
1112 1.17 gwr /* Start the first packet transmitting. */
1113 1.17 gwr if (sc->xmit_busy == 0)
1114 1.17 gwr iexmit(sc);
1115 1.1 gwr
1116 1.17 gwr sc->xchead = (sc->xchead + 1) % sc->ntxbuf;
1117 1.17 gwr sc->xmit_busy++;
1118 1.1 gwr }
1119 1.1 gwr }
1120 1.1 gwr
1121 1.41 chs static void
1122 1.41 chs iereset(struct ie_softc *sc)
1123 1.1 gwr {
1124 1.41 chs int s;
1125 1.41 chs
1126 1.41 chs s = splnet();
1127 1.1 gwr
1128 1.18 gwr /* No message here. The caller does that. */
1129 1.17 gwr iestop(sc);
1130 1.1 gwr
1131 1.1 gwr /*
1132 1.1 gwr * Stop i82586 dead in its tracks.
1133 1.1 gwr */
1134 1.16 gwr if (cmd_and_wait(sc, IE_RU_ABORT | IE_CU_ABORT, 0, 0))
1135 1.51 tsutsui printf("%s: abort commands timed out\n",
1136 1.51 tsutsui device_xname(sc->sc_dev));
1137 1.1 gwr
1138 1.16 gwr if (cmd_and_wait(sc, IE_RU_DISABLE | IE_CU_STOP, 0, 0))
1139 1.51 tsutsui printf("%s: disable commands timed out\n",
1140 1.51 tsutsui device_xname(sc->sc_dev));
1141 1.1 gwr
1142 1.17 gwr ieinit(sc);
1143 1.1 gwr
1144 1.1 gwr splx(s);
1145 1.1 gwr }
1146 1.1 gwr
1147 1.1 gwr /*
1148 1.1 gwr * Send a command to the controller and wait for it to either
1149 1.1 gwr * complete or be accepted, depending on the command. If the
1150 1.1 gwr * command pointer is null, then pretend that the command is
1151 1.1 gwr * not an action command. If the command pointer is not null,
1152 1.1 gwr * and the command is an action command, wait for
1153 1.1 gwr * ((volatile struct ie_cmd_common *)pcmd)->ie_cmd_status & MASK
1154 1.1 gwr * to become true.
1155 1.1 gwr */
1156 1.41 chs static int
1157 1.41 chs cmd_and_wait(struct ie_softc *sc, int cmd, void *pcmd, int mask)
1158 1.1 gwr {
1159 1.1 gwr volatile struct ie_cmd_common *cc = pcmd;
1160 1.1 gwr volatile struct ie_sys_ctl_block *scb = sc->scb;
1161 1.17 gwr int tmo;
1162 1.1 gwr
1163 1.51 tsutsui scb->ie_command = (uint16_t)cmd;
1164 1.17 gwr (sc->chan_attn)(sc);
1165 1.17 gwr
1166 1.17 gwr /* Wait for the command to be accepted by the CU. */
1167 1.17 gwr tmo = 10;
1168 1.17 gwr while (scb->ie_command && --tmo)
1169 1.17 gwr delay(10);
1170 1.17 gwr if (scb->ie_command) {
1171 1.17 gwr #ifdef IEDEBUG
1172 1.17 gwr printf("%s: cmd_and_wait, CU stuck (1)\n",
1173 1.51 tsutsui device_xname(sc->sc_dev));
1174 1.17 gwr #endif
1175 1.17 gwr return -1; /* timed out */
1176 1.17 gwr }
1177 1.1 gwr
1178 1.17 gwr /*
1179 1.17 gwr * If asked, also wait for it to finish.
1180 1.17 gwr */
1181 1.1 gwr if (IE_ACTION_COMMAND(cmd) && pcmd) {
1182 1.1 gwr
1183 1.1 gwr /*
1184 1.17 gwr * According to the packet driver, the minimum timeout should
1185 1.17 gwr * be .369 seconds, which we round up to .4.
1186 1.1 gwr */
1187 1.17 gwr tmo = 36900;
1188 1.1 gwr
1189 1.1 gwr /*
1190 1.1 gwr * Now spin-lock waiting for status. This is not a very nice
1191 1.1 gwr * thing to do, but I haven't figured out how, or indeed if, we
1192 1.1 gwr * can put the process waiting for action to sleep. (We may
1193 1.1 gwr * be getting called through some other timeout running in the
1194 1.1 gwr * kernel.)
1195 1.1 gwr */
1196 1.17 gwr while (((cc->ie_cmd_status & mask) == 0) && --tmo)
1197 1.17 gwr delay(10);
1198 1.1 gwr
1199 1.17 gwr if ((cc->ie_cmd_status & mask) == 0) {
1200 1.17 gwr #ifdef IEDEBUG
1201 1.17 gwr printf("%s: cmd_and_wait, CU stuck (2)\n",
1202 1.51 tsutsui device_xname(sc->sc_dev));
1203 1.17 gwr #endif
1204 1.17 gwr return -1; /* timed out */
1205 1.17 gwr }
1206 1.1 gwr }
1207 1.17 gwr return 0;
1208 1.1 gwr }
1209 1.1 gwr
1210 1.1 gwr /*
1211 1.17 gwr * Run the time-domain reflectometer.
1212 1.1 gwr */
1213 1.41 chs static void
1214 1.41 chs run_tdr(struct ie_softc *sc, struct ie_tdr_cmd *cmd)
1215 1.1 gwr {
1216 1.3 gwr int result;
1217 1.1 gwr
1218 1.1 gwr cmd->com.ie_cmd_status = SWAP(0);
1219 1.1 gwr cmd->com.ie_cmd_cmd = IE_CMD_TDR | IE_CMD_LAST;
1220 1.1 gwr cmd->com.ie_cmd_link = SWAP(0xffff);
1221 1.1 gwr
1222 1.17 gwr sc->scb->ie_command_list = vtop16sw(sc, cmd);
1223 1.1 gwr cmd->ie_tdr_time = SWAP(0);
1224 1.1 gwr
1225 1.16 gwr if (cmd_and_wait(sc, IE_CU_START, cmd, IE_STAT_COMPL) ||
1226 1.51 tsutsui (cmd->com.ie_cmd_status & IE_STAT_OK) == 0)
1227 1.17 gwr result = 0x10000; /* impossible value */
1228 1.1 gwr else
1229 1.1 gwr result = cmd->ie_tdr_time;
1230 1.1 gwr
1231 1.1 gwr ie_ack(sc, IE_ST_WHENCE);
1232 1.1 gwr
1233 1.1 gwr if (result & IE_TDR_SUCCESS)
1234 1.1 gwr return;
1235 1.1 gwr
1236 1.1 gwr if (result & 0x10000) {
1237 1.51 tsutsui printf("%s: TDR command failed\n", device_xname(sc->sc_dev));
1238 1.1 gwr } else if (result & IE_TDR_XCVR) {
1239 1.51 tsutsui printf("%s: transceiver problem\n", device_xname(sc->sc_dev));
1240 1.1 gwr } else if (result & IE_TDR_OPEN) {
1241 1.14 christos printf("%s: TDR detected an open %d clocks away\n",
1242 1.51 tsutsui device_xname(sc->sc_dev), SWAP(result & IE_TDR_TIME));
1243 1.1 gwr } else if (result & IE_TDR_SHORT) {
1244 1.14 christos printf("%s: TDR detected a short %d clocks away\n",
1245 1.51 tsutsui device_xname(sc->sc_dev), SWAP(result & IE_TDR_TIME));
1246 1.1 gwr } else {
1247 1.21 fair printf("%s: TDR returned unknown status 0x%x\n",
1248 1.51 tsutsui device_xname(sc->sc_dev), result);
1249 1.1 gwr }
1250 1.1 gwr }
1251 1.1 gwr
1252 1.1 gwr /*
1253 1.17 gwr * iememinit: set up the buffers
1254 1.1 gwr *
1255 1.1 gwr * we have a block of KVA at sc->buf_area which is of size sc->buf_area_sz.
1256 1.1 gwr * this is to be used for the buffers. the chip indexs its control data
1257 1.1 gwr * structures with 16 bit offsets, and it indexes actual buffers with
1258 1.1 gwr * 24 bit addresses. so we should allocate control buffers first so that
1259 1.1 gwr * we don't overflow the 16 bit offset field. The number of transmit
1260 1.1 gwr * buffers is fixed at compile time.
1261 1.1 gwr *
1262 1.1 gwr * note: this function was written to be easy to understand, rather than
1263 1.1 gwr * highly efficient (it isn't in the critical path).
1264 1.17 gwr *
1265 1.17 gwr * The memory layout is: tbufs, rbufs, (gap), control blocks
1266 1.17 gwr * [tbuf0, tbuf1] [rbuf0,...rbufN] gap [rframes] [tframes]
1267 1.17 gwr * XXX - This needs review...
1268 1.1 gwr */
1269 1.1 gwr static void
1270 1.41 chs iememinit(struct ie_softc *sc)
1271 1.1 gwr {
1272 1.51 tsutsui uint8_t *ptr;
1273 1.17 gwr int i;
1274 1.51 tsutsui uint16_t nxt;
1275 1.1 gwr
1276 1.17 gwr /* First, zero all the memory. */
1277 1.17 gwr ptr = sc->buf_area;
1278 1.28 thorpej (sc->sc_memset)(ptr, 0, sc->buf_area_sz);
1279 1.1 gwr
1280 1.17 gwr /* Allocate tx/rx buffers. */
1281 1.17 gwr for (i = 0; i < NTXBUF; i++) {
1282 1.17 gwr sc->xmit_cbuffs[i] = ptr;
1283 1.17 gwr ptr += IE_TBUF_SIZE;
1284 1.17 gwr }
1285 1.17 gwr for (i = 0; i < sc->nrxbuf; i++) {
1286 1.17 gwr sc->cbuffs[i] = ptr;
1287 1.17 gwr ptr += IE_RBUF_SIZE;
1288 1.17 gwr }
1289 1.17 gwr
1290 1.17 gwr /* Small pad (Don't trust the chip...) */
1291 1.17 gwr ptr += 16;
1292 1.17 gwr
1293 1.17 gwr /* Allocate and fill in xmit buffer descriptors. */
1294 1.17 gwr for (i = 0; i < NTXBUF; i++) {
1295 1.51 tsutsui sc->xmit_buffs[i] = (volatile void *)ptr;
1296 1.17 gwr ptr = Align(ptr + sizeof(*sc->xmit_buffs[i]));
1297 1.17 gwr sc->xmit_buffs[i]->ie_xmit_buf =
1298 1.17 gwr Swap32(vtop24(sc, sc->xmit_cbuffs[i]));
1299 1.17 gwr sc->xmit_buffs[i]->ie_xmit_next = SWAP(0xffff);
1300 1.17 gwr }
1301 1.17 gwr
1302 1.17 gwr /* Allocate and fill in recv buffer descriptors. */
1303 1.17 gwr for (i = 0; i < sc->nrxbuf; i++) {
1304 1.51 tsutsui sc->rbuffs[i] = (volatile void *)ptr;
1305 1.17 gwr ptr = Align(ptr + sizeof(*sc->rbuffs[i]));
1306 1.17 gwr sc->rbuffs[i]->ie_rbd_buffer =
1307 1.51 tsutsui Swap32(vtop24(sc, sc->cbuffs[i]));
1308 1.17 gwr sc->rbuffs[i]->ie_rbd_length = SWAP(IE_RBUF_SIZE);
1309 1.17 gwr }
1310 1.17 gwr
1311 1.17 gwr /* link together recv bufs and set EOL on last */
1312 1.17 gwr i = sc->nrxbuf - 1;
1313 1.17 gwr sc->rbuffs[i]->ie_rbd_length |= IE_RBD_LAST;
1314 1.43 tsutsui nxt = vtop16sw(sc, __UNVOLATILE(sc->rbuffs[0]));
1315 1.17 gwr do {
1316 1.17 gwr sc->rbuffs[i]->ie_rbd_next = nxt;
1317 1.43 tsutsui nxt = vtop16sw(sc, __UNVOLATILE(sc->rbuffs[i]));
1318 1.17 gwr } while (--i >= 0);
1319 1.17 gwr
1320 1.17 gwr /* Allocate transmit commands. */
1321 1.17 gwr for (i = 0; i < NTXBUF; i++) {
1322 1.51 tsutsui sc->xmit_cmds[i] = (volatile void *)ptr;
1323 1.17 gwr ptr = Align(ptr + sizeof(*sc->xmit_cmds[i]));
1324 1.17 gwr sc->xmit_cmds[i]->com.ie_cmd_link = SWAP(0xffff);
1325 1.17 gwr }
1326 1.17 gwr
1327 1.17 gwr /* Allocate receive frames. */
1328 1.17 gwr for (i = 0; i < sc->nframes; i++) {
1329 1.51 tsutsui sc->rframes[i] = (volatile void *)ptr;
1330 1.17 gwr ptr = Align(ptr + sizeof(*sc->rframes[i]));
1331 1.17 gwr }
1332 1.17 gwr
1333 1.17 gwr /* Link together recv frames and set EOL on last */
1334 1.17 gwr i = sc->nframes - 1;
1335 1.17 gwr sc->rframes[i]->ie_fd_last |= IE_FD_LAST;
1336 1.43 tsutsui nxt = vtop16sw(sc, __UNVOLATILE(sc->rframes[0]));
1337 1.17 gwr do {
1338 1.17 gwr sc->rframes[i]->ie_fd_next = nxt;
1339 1.43 tsutsui nxt = vtop16sw(sc, __UNVOLATILE(sc->rframes[i]));
1340 1.17 gwr } while (--i >= 0);
1341 1.1 gwr
1342 1.1 gwr
1343 1.3 gwr /* Pointers to last packet sent and next available transmit buffer. */
1344 1.3 gwr sc->xchead = sc->xctail = 0;
1345 1.3 gwr
1346 1.17 gwr /* Clear transmit-busy flag. */
1347 1.3 gwr sc->xmit_busy = 0;
1348 1.1 gwr
1349 1.1 gwr /*
1350 1.17 gwr * Set the head and tail pointers on receive to keep track of
1351 1.17 gwr * the order in which RFDs and RBDs are used. link the
1352 1.17 gwr * recv frames and buffer into the scb.
1353 1.1 gwr */
1354 1.1 gwr sc->rfhead = 0;
1355 1.1 gwr sc->rftail = sc->nframes - 1;
1356 1.1 gwr sc->rbhead = 0;
1357 1.1 gwr sc->rbtail = sc->nrxbuf - 1;
1358 1.1 gwr
1359 1.17 gwr sc->scb->ie_recv_list =
1360 1.43 tsutsui vtop16sw(sc, __UNVOLATILE(sc->rframes[0]));
1361 1.17 gwr sc->rframes[0]->ie_fd_buf_desc =
1362 1.43 tsutsui vtop16sw(sc, __UNVOLATILE(sc->rbuffs[0]));
1363 1.1 gwr
1364 1.17 gwr i = (ptr - sc->buf_area);
1365 1.1 gwr #ifdef IEDEBUG
1366 1.17 gwr printf("IE_DEBUG: used %d of %d bytes\n", i, sc->buf_area_sz);
1367 1.1 gwr #endif
1368 1.17 gwr if (i > sc->buf_area_sz)
1369 1.17 gwr panic("ie: iememinit, out of space");
1370 1.1 gwr }
1371 1.1 gwr
1372 1.1 gwr /*
1373 1.1 gwr * Run the multicast setup command.
1374 1.6 mycroft * Called at splnet().
1375 1.1 gwr */
1376 1.41 chs static int
1377 1.41 chs mc_setup(struct ie_softc *sc, void *ptr)
1378 1.1 gwr {
1379 1.17 gwr struct ie_mcast_cmd *cmd = ptr; /* XXX - Was volatile */
1380 1.1 gwr
1381 1.1 gwr cmd->com.ie_cmd_status = SWAP(0);
1382 1.1 gwr cmd->com.ie_cmd_cmd = IE_CMD_MCAST | IE_CMD_LAST;
1383 1.1 gwr cmd->com.ie_cmd_link = SWAP(0xffff);
1384 1.1 gwr
1385 1.45 christos (sc->sc_memcpy)((void *)cmd->ie_mcast_addrs,
1386 1.45 christos (void *)sc->mcast_addrs,
1387 1.1 gwr sc->mcast_count * sizeof *sc->mcast_addrs);
1388 1.1 gwr
1389 1.1 gwr cmd->ie_mcast_bytes =
1390 1.51 tsutsui SWAP(sc->mcast_count * ETHER_ADDR_LEN); /* grrr... */
1391 1.1 gwr
1392 1.17 gwr sc->scb->ie_command_list = vtop16sw(sc, cmd);
1393 1.16 gwr if (cmd_and_wait(sc, IE_CU_START, cmd, IE_STAT_COMPL) ||
1394 1.51 tsutsui (cmd->com.ie_cmd_status & IE_STAT_OK) == 0) {
1395 1.14 christos printf("%s: multicast address setup command failed\n",
1396 1.51 tsutsui device_xname(sc->sc_dev));
1397 1.1 gwr return 0;
1398 1.1 gwr }
1399 1.1 gwr return 1;
1400 1.1 gwr }
1401 1.1 gwr
1402 1.41 chs static inline void
1403 1.41 chs ie_setup_config(struct ie_config_cmd *cmd, int promiscuous, int manchester)
1404 1.17 gwr {
1405 1.17 gwr
1406 1.17 gwr /*
1407 1.17 gwr * these are all char's so no need to byte-swap
1408 1.17 gwr */
1409 1.17 gwr cmd->ie_config_count = 0x0c;
1410 1.17 gwr cmd->ie_fifo = 8;
1411 1.17 gwr cmd->ie_save_bad = 0x40;
1412 1.17 gwr cmd->ie_addr_len = 0x2e;
1413 1.17 gwr cmd->ie_priority = 0;
1414 1.17 gwr cmd->ie_ifs = 0x60;
1415 1.17 gwr cmd->ie_slot_low = 0;
1416 1.17 gwr cmd->ie_slot_high = 0xf2;
1417 1.17 gwr cmd->ie_promisc = promiscuous | manchester << 2;
1418 1.17 gwr cmd->ie_crs_cdt = 0;
1419 1.17 gwr cmd->ie_min_len = 64;
1420 1.17 gwr cmd->ie_junk = 0xff;
1421 1.17 gwr }
1422 1.17 gwr
1423 1.1 gwr /*
1424 1.1 gwr * This routine inits the ie.
1425 1.1 gwr * This includes executing the CONFIGURE, IA-SETUP, and MC-SETUP commands,
1426 1.1 gwr * starting the receiver unit, and clearing interrupts.
1427 1.1 gwr *
1428 1.6 mycroft * THIS ROUTINE MUST BE CALLED AT splnet() OR HIGHER.
1429 1.1 gwr */
1430 1.41 chs static int
1431 1.41 chs ieinit(struct ie_softc *sc)
1432 1.1 gwr {
1433 1.1 gwr volatile struct ie_sys_ctl_block *scb = sc->scb;
1434 1.3 gwr void *ptr;
1435 1.20 is struct ifnet *ifp;
1436 1.1 gwr
1437 1.20 is ifp = &sc->sc_if;
1438 1.17 gwr ptr = sc->buf_area; /* XXX - Use scb instead? */
1439 1.1 gwr
1440 1.1 gwr /*
1441 1.1 gwr * Send the configure command first.
1442 1.1 gwr */
1443 1.1 gwr {
1444 1.17 gwr struct ie_config_cmd *cmd = ptr; /* XXX - Was volatile */
1445 1.1 gwr
1446 1.17 gwr scb->ie_command_list = vtop16sw(sc, cmd);
1447 1.1 gwr cmd->com.ie_cmd_status = SWAP(0);
1448 1.1 gwr cmd->com.ie_cmd_cmd = IE_CMD_CONFIG | IE_CMD_LAST;
1449 1.1 gwr cmd->com.ie_cmd_link = SWAP(0xffff);
1450 1.1 gwr
1451 1.17 gwr ie_setup_config(cmd, (sc->promisc != 0), 0);
1452 1.1 gwr
1453 1.16 gwr if (cmd_and_wait(sc, IE_CU_START, cmd, IE_STAT_COMPL) ||
1454 1.51 tsutsui (cmd->com.ie_cmd_status & IE_STAT_OK) == 0) {
1455 1.14 christos printf("%s: configure command failed\n",
1456 1.51 tsutsui device_xname(sc->sc_dev));
1457 1.1 gwr return 0;
1458 1.1 gwr }
1459 1.1 gwr }
1460 1.3 gwr
1461 1.1 gwr /*
1462 1.1 gwr * Now send the Individual Address Setup command.
1463 1.1 gwr */
1464 1.1 gwr {
1465 1.17 gwr struct ie_iasetup_cmd *cmd = ptr; /* XXX - Was volatile */
1466 1.1 gwr
1467 1.17 gwr scb->ie_command_list = vtop16sw(sc, cmd);
1468 1.1 gwr cmd->com.ie_cmd_status = SWAP(0);
1469 1.1 gwr cmd->com.ie_cmd_cmd = IE_CMD_IASETUP | IE_CMD_LAST;
1470 1.1 gwr cmd->com.ie_cmd_link = SWAP(0xffff);
1471 1.1 gwr
1472 1.45 christos (sc->sc_memcpy)((void *)&cmd->ie_address,
1473 1.47 dyoung CLLADDR(ifp->if_sadl), sizeof(cmd->ie_address));
1474 1.1 gwr
1475 1.16 gwr if (cmd_and_wait(sc, IE_CU_START, cmd, IE_STAT_COMPL) ||
1476 1.51 tsutsui (cmd->com.ie_cmd_status & IE_STAT_OK) == 0) {
1477 1.14 christos printf("%s: individual address setup command failed\n",
1478 1.51 tsutsui device_xname(sc->sc_dev));
1479 1.1 gwr return 0;
1480 1.1 gwr }
1481 1.1 gwr }
1482 1.1 gwr
1483 1.1 gwr /*
1484 1.1 gwr * Now run the time-domain reflectometer.
1485 1.1 gwr */
1486 1.18 gwr if (ie_run_tdr)
1487 1.18 gwr run_tdr(sc, ptr);
1488 1.1 gwr
1489 1.1 gwr /*
1490 1.1 gwr * Acknowledge any interrupts we have generated thus far.
1491 1.1 gwr */
1492 1.1 gwr ie_ack(sc, IE_ST_WHENCE);
1493 1.1 gwr
1494 1.1 gwr /*
1495 1.1 gwr * Set up the transmit and recv buffers.
1496 1.1 gwr */
1497 1.17 gwr iememinit(sc);
1498 1.1 gwr
1499 1.3 gwr /* tell higher levels that we are here */
1500 1.20 is ifp->if_flags |= IFF_RUNNING;
1501 1.20 is ifp->if_flags &= ~IFF_OACTIVE;
1502 1.3 gwr
1503 1.17 gwr sc->scb->ie_recv_list =
1504 1.43 tsutsui vtop16sw(sc, __UNVOLATILE(sc->rframes[0]));
1505 1.16 gwr cmd_and_wait(sc, IE_RU_START, 0, 0);
1506 1.1 gwr
1507 1.3 gwr ie_ack(sc, IE_ST_WHENCE);
1508 1.1 gwr
1509 1.1 gwr if (sc->run_586)
1510 1.3 gwr (sc->run_586)(sc);
1511 1.1 gwr
1512 1.1 gwr return 0;
1513 1.1 gwr }
1514 1.1 gwr
1515 1.41 chs static void
1516 1.41 chs iestop(struct ie_softc *sc)
1517 1.1 gwr {
1518 1.1 gwr
1519 1.16 gwr cmd_and_wait(sc, IE_RU_DISABLE, 0, 0);
1520 1.1 gwr }
1521 1.1 gwr
1522 1.41 chs static int
1523 1.45 christos ieioctl(struct ifnet *ifp, u_long cmd, void *data)
1524 1.1 gwr {
1525 1.11 thorpej struct ie_softc *sc = ifp->if_softc;
1526 1.17 gwr struct ifaddr *ifa = (struct ifaddr *)data;
1527 1.17 gwr int s, error = 0;
1528 1.1 gwr
1529 1.6 mycroft s = splnet();
1530 1.1 gwr
1531 1.1 gwr switch (cmd) {
1532 1.1 gwr
1533 1.52 dyoung case SIOCINITIFADDR:
1534 1.1 gwr ifp->if_flags |= IFF_UP;
1535 1.1 gwr
1536 1.1 gwr switch (ifa->ifa_addr->sa_family) {
1537 1.1 gwr #ifdef INET
1538 1.1 gwr case AF_INET:
1539 1.1 gwr ieinit(sc);
1540 1.20 is arp_ifinit(ifp, ifa);
1541 1.1 gwr break;
1542 1.1 gwr #endif
1543 1.1 gwr #ifdef NS
1544 1.1 gwr /* XXX - This code is probably wrong. */
1545 1.1 gwr case AF_NS:
1546 1.1 gwr {
1547 1.1 gwr struct ns_addr *ina = &IA_SNS(ifa)->sns_addr;
1548 1.1 gwr
1549 1.1 gwr if (ns_nullhost(*ina))
1550 1.1 gwr ina->x_host =
1551 1.20 is *(union ns_host *)LLADDR(ifp->if_sadl);
1552 1.1 gwr else
1553 1.37 tsutsui memcpy(LLADDR(ifp->if_sadl),
1554 1.37 tsutsui ina->x_host.c_host, ETHER_ADDR_LEN);
1555 1.1 gwr /* Set new address. */
1556 1.1 gwr ieinit(sc);
1557 1.1 gwr break;
1558 1.1 gwr }
1559 1.1 gwr #endif /* NS */
1560 1.1 gwr default:
1561 1.1 gwr ieinit(sc);
1562 1.1 gwr break;
1563 1.1 gwr }
1564 1.1 gwr break;
1565 1.1 gwr
1566 1.1 gwr case SIOCSIFFLAGS:
1567 1.52 dyoung if ((error = ifioctl_common(ifp, cmd, data)) != 0)
1568 1.52 dyoung break;
1569 1.1 gwr sc->promisc = ifp->if_flags & (IFF_PROMISC | IFF_ALLMULTI);
1570 1.1 gwr
1571 1.52 dyoung switch (ifp->if_flags & (IFF_UP|IFF_RUNNING)) {
1572 1.52 dyoung case IFF_RUNNING:
1573 1.1 gwr /*
1574 1.1 gwr * If interface is marked down and it is running, then
1575 1.1 gwr * stop it.
1576 1.1 gwr */
1577 1.1 gwr iestop(sc);
1578 1.1 gwr ifp->if_flags &= ~IFF_RUNNING;
1579 1.52 dyoung break;
1580 1.52 dyoung case IFF_UP:
1581 1.1 gwr /*
1582 1.1 gwr * If interface is marked up and it is stopped, then
1583 1.1 gwr * start it.
1584 1.1 gwr */
1585 1.1 gwr ieinit(sc);
1586 1.52 dyoung break;
1587 1.52 dyoung default:
1588 1.1 gwr /*
1589 1.1 gwr * Reset the interface to pick up changes in any other
1590 1.1 gwr * flags that affect hardware registers.
1591 1.1 gwr */
1592 1.1 gwr iestop(sc);
1593 1.1 gwr ieinit(sc);
1594 1.52 dyoung break;
1595 1.1 gwr }
1596 1.1 gwr #ifdef IEDEBUG
1597 1.1 gwr if (ifp->if_flags & IFF_DEBUG)
1598 1.1 gwr sc->sc_debug = IED_ALL;
1599 1.1 gwr else
1600 1.17 gwr sc->sc_debug = ie_debug_flags;
1601 1.1 gwr #endif
1602 1.1 gwr break;
1603 1.1 gwr
1604 1.1 gwr case SIOCADDMULTI:
1605 1.1 gwr case SIOCDELMULTI:
1606 1.48 dyoung if ((error = ether_ioctl(ifp, cmd, data)) == ENETRESET) {
1607 1.1 gwr /*
1608 1.1 gwr * Multicast list has changed; set the hardware filter
1609 1.1 gwr * accordingly.
1610 1.1 gwr */
1611 1.40 thorpej if (ifp->if_flags & IFF_RUNNING)
1612 1.40 thorpej mc_reset(sc);
1613 1.1 gwr error = 0;
1614 1.1 gwr }
1615 1.1 gwr break;
1616 1.1 gwr
1617 1.1 gwr default:
1618 1.52 dyoung error = ether_ioctl(ifp, cmd, data);
1619 1.52 dyoung break;
1620 1.1 gwr }
1621 1.1 gwr splx(s);
1622 1.1 gwr return error;
1623 1.1 gwr }
1624 1.1 gwr
1625 1.41 chs static void
1626 1.41 chs mc_reset(struct ie_softc *sc)
1627 1.1 gwr {
1628 1.1 gwr struct ether_multi *enm;
1629 1.1 gwr struct ether_multistep step;
1630 1.20 is struct ifnet *ifp;
1631 1.20 is
1632 1.20 is ifp = &sc->sc_if;
1633 1.1 gwr
1634 1.1 gwr /*
1635 1.1 gwr * Step through the list of addresses.
1636 1.1 gwr */
1637 1.1 gwr sc->mcast_count = 0;
1638 1.20 is ETHER_FIRST_MULTI(step, &sc->sc_ethercom, enm);
1639 1.1 gwr while (enm) {
1640 1.1 gwr if (sc->mcast_count >= MAXMCAST ||
1641 1.37 tsutsui ether_cmp(enm->enm_addrlo, enm->enm_addrhi) != 0) {
1642 1.20 is ifp->if_flags |= IFF_ALLMULTI;
1643 1.51 tsutsui ieioctl(ifp, SIOCSIFFLAGS, NULL);
1644 1.1 gwr goto setflag;
1645 1.1 gwr }
1646 1.37 tsutsui memcpy(&sc->mcast_addrs[sc->mcast_count], enm->enm_addrlo,
1647 1.37 tsutsui ETHER_ADDR_LEN);
1648 1.1 gwr sc->mcast_count++;
1649 1.1 gwr ETHER_NEXT_MULTI(step, enm);
1650 1.1 gwr }
1651 1.1 gwr setflag:
1652 1.1 gwr sc->want_mcsetup = 1;
1653 1.1 gwr }
1654 1.1 gwr
1655 1.1 gwr #ifdef IEDEBUG
1656 1.41 chs void
1657 1.41 chs print_rbd(volatile struct ie_recv_buf_desc *rbd)
1658 1.1 gwr {
1659 1.1 gwr
1660 1.14 christos printf("RBD at %08lx:\nactual %04x, next %04x, buffer %08x\n"
1661 1.1 gwr "length %04x, mbz %04x\n", (u_long)rbd, rbd->ie_rbd_actual,
1662 1.1 gwr rbd->ie_rbd_next, rbd->ie_rbd_buffer, rbd->ie_rbd_length,
1663 1.1 gwr rbd->mbz);
1664 1.1 gwr }
1665 1.1 gwr #endif
1666