initial import of NetBSD tree

1 files changed, 1218 insertions, 0 deletions

diff --git a/sys/dev/ic/am7990.c b/sys/dev/ic/am7990.c
new file mode 100644
index 00000000000..d1a8ef3d68d
--- /dev/null
+++ b/sys/dev/ic/am7990.c
@@ -0,0 +1,1218 @@
+/*	$NetBSD: am7990.c,v 1.3 1995/07/24 04:34:51 mycroft Exp $	*/
+
+/*-
+ * Copyright (c) 1995 Charles M. Hannum.  All rights reserved.
+ * Copyright (c) 1992, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Ralph Campbell and Rick Macklem.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)if_le.c	8.2 (Berkeley) 11/16/93
+ */
+
+#include <sys/ioctl.h>
+#include <sys/errno.h>
+
+#ifdef INET
+#include <netinet/in_systm.h>
+#include <netinet/in_var.h>
+#include <netinet/ip.h>
+#endif
+
+#ifdef NS
+#include <netns/ns.h>
+#include <netns/ns_if.h>
+#endif
+
+#if defined(CCITT) && defined(LLC)
+#include <sys/socketvar.h>
+#include <netccitt/x25.h>
+extern llc_ctlinput(), cons_rtrequest();
+#endif
+
+#if NBPFILTER > 0
+#include <net/bpf.h>
+#include <net/bpfdesc.h>
+#endif
+
+#ifdef LEDEBUG
+void recv_print __P((struct le_softc *, int));
+void xmit_print __P((struct le_softc *, int));
+#endif
+
+void
+leconfig(sc)
+	struct le_softc *sc;
+{
+	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
+	int mem;
+
+	/* Make sure the chip is stopped. */
+	lestop(sc);
+
+	/* Initialize ifnet structure. */
+	ifp->if_unit = sc->sc_dev.dv_unit;
+	ifp->if_start = lestart;
+	ifp->if_ioctl = leioctl;
+	ifp->if_watchdog = lewatchdog;
+	ifp->if_flags =
+	    IFF_BROADCAST | IFF_SIMPLEX | IFF_NOTRAILERS | IFF_MULTICAST;
+
+	/* Attach the interface. */
+	if_attach(ifp);
+	ether_ifattach(ifp);
+
+#if NBPFILTER > 0
+	bpfattach(&ifp->if_bpf, ifp, DLT_EN10MB, sizeof(struct ether_header));
+#endif
+
+	switch (sc->sc_memsize) {
+	case 8192:
+		sc->sc_nrbuf = 4;
+		sc->sc_ntbuf = 1;
+		break;
+	case 16384:
+		sc->sc_nrbuf = 8;
+		sc->sc_ntbuf = 2;
+		break;
+	case 32768:
+		sc->sc_nrbuf = 16;
+		sc->sc_ntbuf = 4;
+		break;
+	case 65536:
+		sc->sc_nrbuf = 32;
+		sc->sc_ntbuf = 8;
+		break;
+	default:
+		panic("leconfig: weird memory size");
+	}
+
+	printf(": address %s, %d receive buffers, %d transmit buffers\n",
+	    ether_sprintf(sc->sc_arpcom.ac_enaddr),
+	    sc->sc_nrbuf, sc->sc_ntbuf);
+
+	mem = 0;
+	sc->sc_initaddr = mem;
+	mem += sizeof(struct leinit);
+	sc->sc_rmdaddr = mem;
+	mem += sizeof(struct lermd) * sc->sc_nrbuf;
+	sc->sc_tmdaddr = mem;
+	mem += sizeof(struct letmd) * sc->sc_ntbuf;
+	sc->sc_rbufaddr = mem;
+	mem += LEBLEN * sc->sc_nrbuf;
+	sc->sc_tbufaddr = mem;
+	mem += LEBLEN * sc->sc_ntbuf;
+#ifdef notyet
+	if (mem > ...)
+		panic(...);
+#endif
+}
+
+void
+lereset(sc)
+	struct le_softc *sc;
+{
+	int s;
+
+	s = splimp();
+	leinit(sc);
+	splx(s);
+}
+
+void
+lewatchdog(unit)
+	short unit;
+{
+	struct le_softc *sc = LE_SOFTC(unit);
+
+	log(LOG_ERR, "%s: device timeout\n", sc->sc_dev.dv_xname);
+	++sc->sc_arpcom.ac_if.if_oerrors;
+
+	lereset(sc);
+}
+
+/*
+ * Set up the initialization block and the descriptor rings.
+ */
+void
+lememinit(sc)
+	register struct le_softc *sc;
+{
+	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
+	u_long a;
+	int bix;
+	struct leinit init;
+	struct lermd rmd;
+	struct letmd tmd;
+
+#if NBPFILTER > 0
+	if (ifp->if_flags & IFF_PROMISC)
+		init.init_mode = LE_MODE_NORMAL | LE_MODE_PROM;
+	else
+#endif
+		init.init_mode = LE_MODE_NORMAL;
+	init.init_padr[0] =
+	    (sc->sc_arpcom.ac_enaddr[1] << 8) | sc->sc_arpcom.ac_enaddr[0];
+	init.init_padr[1] =
+	    (sc->sc_arpcom.ac_enaddr[3] << 8) | sc->sc_arpcom.ac_enaddr[2];
+	init.init_padr[2] =
+	    (sc->sc_arpcom.ac_enaddr[5] << 8) | sc->sc_arpcom.ac_enaddr[4];
+	lesetladrf(&sc->sc_arpcom, init.init_ladrf);
+
+	sc->sc_last_rd = 0;
+	sc->sc_first_td = sc->sc_last_td = sc->sc_no_td = 0;
+
+	a = sc->sc_addr + LE_RMDADDR(sc, 0);
+	init.init_rdra = a;
+	init.init_rlen = (a >> 16) | ((ffs(sc->sc_nrbuf) - 1) << 13);
+
+	a = sc->sc_addr + LE_TMDADDR(sc, 0);
+	init.init_tdra = a;
+	init.init_tlen = (a >> 16) | ((ffs(sc->sc_ntbuf) - 1) << 13);
+
+	(*sc->sc_copytodesc)(sc, &init, LE_INITADDR(sc), sizeof(init));
+
+	/*
+	 * Set up receive ring descriptors.
+	 */
+	for (bix = 0; bix < sc->sc_nrbuf; bix++) {
+		a = sc->sc_addr + LE_RBUFADDR(sc, bix);
+		rmd.rmd0 = a;
+		rmd.rmd1_hadr = a >> 16;
+		rmd.rmd1_bits = LE_R1_OWN;
+		rmd.rmd2 = -LEBLEN | LE_XMD2_ONES;
+		rmd.rmd3 = 0;
+		(*sc->sc_copytodesc)(sc, &rmd, LE_RMDADDR(sc, bix),
+		    sizeof(rmd));
+	}
+
+	/*
+	 * Set up transmit ring descriptors.
+	 */
+	for (bix = 0; bix < sc->sc_ntbuf; bix++) {
+		a = sc->sc_addr + LE_TBUFADDR(sc, bix);
+		tmd.tmd0 = a;
+		tmd.tmd1_hadr = a >> 16;
+		tmd.tmd1_bits = 0;
+		tmd.tmd2 = 0 | LE_XMD2_ONES;
+		tmd.tmd3 = 0;
+		(*sc->sc_copytodesc)(sc, &tmd, LE_TMDADDR(sc, bix),
+		    sizeof(tmd));
+	}
+}
+
+void
+lestop(sc)
+	struct le_softc *sc;
+{
+
+	lewrcsr(sc, LE_CSR0, LE_C0_STOP);
+}
+
+/*
+ * Initialization of interface; set up initialization block
+ * and transmit/receive descriptor rings.
+ */
+void
+leinit(sc)
+	register struct le_softc *sc;
+{
+	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
+	register int timo;
+	u_long a;
+
+	lewrcsr(sc, LE_CSR0, LE_C0_STOP);
+	LE_DELAY(100);
+
+	/* Set the correct byte swapping mode, etc. */
+	lewrcsr(sc, LE_CSR3, sc->sc_conf3);
+
+	/* Set up LANCE init block. */
+	lememinit(sc);
+
+	/* Give LANCE the physical address of its init block. */
+	a = sc->sc_addr + LE_INITADDR(sc);
+	lewrcsr(sc, LE_CSR1, a);
+	lewrcsr(sc, LE_CSR2, a >> 16);
+
+	/* Try to initialize the LANCE. */
+	LE_DELAY(100);
+	lewrcsr(sc, LE_CSR0, LE_C0_INIT);
+
+	/* Wait for initialization to finish. */
+	for (timo = 100000; timo; timo--)
+		if (lerdcsr(sc, LE_CSR0) & LE_C0_IDON)
+			break;
+
+	if (lerdcsr(sc, LE_CSR0) & LE_C0_IDON) {
+		/* Start the LANCE. */
+		lewrcsr(sc, LE_CSR0, LE_C0_INEA | LE_C0_STRT | LE_C0_IDON);
+		ifp->if_flags |= IFF_RUNNING;
+		ifp->if_flags &= ~IFF_OACTIVE;
+		ifp->if_timer = 0;
+		lestart(ifp);
+	} else
+		printf("%s: card failed to initialize\n", sc->sc_dev.dv_xname);
+}
+
+/*
+ * Routine to copy from mbuf chain to transmit buffer in
+ * network buffer memory.
+ */
+integrate int
+leput(sc, boff, m)
+	struct le_softc *sc;
+	int boff;
+	register struct mbuf *m;
+{
+	register struct mbuf *n;
+	register int len, tlen = 0;
+
+	for (; m; m = n) {
+		len = m->m_len;
+		if (len == 0) {
+			MFREE(m, n);
+			continue;
+		}
+		(*sc->sc_copytobuf)(sc, mtod(m, caddr_t), boff, len);
+		boff += len;
+		tlen += len;
+		MFREE(m, n);
+	}
+	if (tlen < LEMINSIZE) {
+		(*sc->sc_zerobuf)(sc, boff, LEMINSIZE - tlen);
+		tlen = LEMINSIZE;
+	}
+	return (tlen);
+}
+
+/*
+ * Pull data off an interface.
+ * Len is length of data, with local net header stripped.
+ * We copy the data into mbufs.  When full cluster sized units are present
+ * we copy into clusters.
+ */
+integrate struct mbuf *
+leget(sc, boff, totlen)
+	struct le_softc *sc;
+	int boff, totlen;
+{
+	register struct mbuf *m;
+	struct mbuf *top, **mp;
+	int len, pad;
+
+	MGETHDR(m, M_DONTWAIT, MT_DATA);
+	if (m == 0)
+		return (0);
+	m->m_pkthdr.rcvif = &sc->sc_arpcom.ac_if;
+	m->m_pkthdr.len = totlen;
+	pad = ALIGN(sizeof(struct ether_header)) - sizeof(struct ether_header);
+	m->m_data += pad;
+	len = MHLEN - pad;
+	top = 0;
+	mp = &top;
+
+	while (totlen > 0) {
+		if (top) {
+			MGET(m, M_DONTWAIT, MT_DATA);
+			if (m == 0) {
+				m_freem(top);
+				return 0;
+			}
+			len = MLEN;
+		}
+		if (top && totlen >= MINCLSIZE) {
+			MCLGET(m, M_DONTWAIT);
+			if (m->m_flags & M_EXT)
+				len = MCLBYTES;
+		}
+		m->m_len = len = min(totlen, len);
+		(*sc->sc_copyfrombuf)(sc, mtod(m, caddr_t), boff, len);
+		boff += len;
+		totlen -= len;
+		*mp = m;
+		mp = &m->m_next;
+	}
+
+	return (top);
+}
+
+/*
+ * Pass a packet to the higher levels.
+ */
+integrate void
+leread(sc, boff, len)
+	register struct le_softc *sc;
+	int boff, len;
+{
+	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
+	struct mbuf *m;
+	struct ether_header *eh;
+
+	if (len <= sizeof(struct ether_header) ||
+	    len > ETHERMTU + sizeof(struct ether_header)) {
+		printf("%s: invalid packet size %d; dropping\n",
+		    sc->sc_dev.dv_xname, len);
+		ifp->if_ierrors++;
+		return;
+	}
+
+	/* Pull packet off interface. */
+	m = leget(sc, boff, len);
+	if (m == 0) {
+		ifp->if_ierrors++;
+		return;
+	}
+
+	ifp->if_ipackets++;
+
+	/* We assume that the header fit entirely in one mbuf. */
+	eh = mtod(m, struct ether_header *);
+
+#if NBPFILTER > 0
+	/*
+	 * Check if there's a BPF listener on this interface.
+	 * If so, hand off the raw packet to BPF.
+	 */
+	if (ifp->if_bpf) {
+		bpf_mtap(ifp->if_bpf, m);
+
+		/*
+		 * Note that the interface cannot be in promiscuous mode if
+		 * there are no BPF listeners.  And if we are in promiscuous
+		 * mode, we have to check if this packet is really ours.
+		 */
+		if ((ifp->if_flags & IFF_PROMISC) != 0 &&
+		    (eh->ether_dhost[0] & 1) == 0 && /* !mcast and !bcast */
+		    bcmp(eh->ether_dhost, sc->sc_arpcom.ac_enaddr,
+			    sizeof(eh->ether_dhost)) != 0) {
+			m_freem(m);
+			return;
+		}
+	}
+#endif
+
+	/* Pass the packet up, with the ether header sort-of removed. */
+	m_adj(m, sizeof(struct ether_header));
+	ether_input(ifp, eh, m);
+}
+
+integrate void
+lerint(sc)
+	struct le_softc *sc;
+{
+	register int bix;
+	int rp;
+	struct lermd rmd;
+
+	bix = sc->sc_last_rd;
+
+	/* Process all buffers with valid data. */
+	for (;;) {
+		rp = LE_RMDADDR(sc, bix);
+		(*sc->sc_copyfromdesc)(sc, &rmd, rp, sizeof(rmd));
+
+		if (rmd.rmd1_bits & LE_R1_OWN)
+			break;
+
+		if (rmd.rmd1_bits & LE_R1_ERR) {
+			if (rmd.rmd1_bits & LE_R1_ENP) {
+				if ((rmd.rmd1_bits & LE_R1_OFLO) == 0) {
+					if (rmd.rmd1_bits & LE_R1_FRAM)
+						printf("%s: framing error\n",
+						    sc->sc_dev.dv_xname);
+					if (rmd.rmd1_bits & LE_R1_CRC)
+						printf("%s: crc mismatch\n",
+						    sc->sc_dev.dv_xname);
+				}
+			} else {
+				if (rmd.rmd1_bits & LE_R1_OFLO)
+					printf("%s: overflow\n",
+					    sc->sc_dev.dv_xname);
+			}
+			if (rmd.rmd1_bits & LE_R1_BUFF)
+				printf("%s: receive buffer error\n",
+				    sc->sc_dev.dv_xname);
+		} else if (rmd.rmd1_bits & (LE_R1_STP | LE_R1_ENP) !=
+		    (LE_R1_STP | LE_R1_ENP)) {
+			printf("%s: dropping chained buffer\n",
+			    sc->sc_dev.dv_xname);
+		} else {
+#ifdef LEDEBUG
+			if (sc->sc_debug)
+				recv_print(sc, sc->sc_last_rd);
+#endif
+			leread(sc, LE_RBUFADDR(sc, bix), (int)rmd.rmd3 - 4);
+		}
+
+		rmd.rmd1_bits = LE_R1_OWN;
+		rmd.rmd2 = -LEBLEN | LE_XMD2_ONES;
+		rmd.rmd3 = 0;
+		(*sc->sc_copytodesc)(sc, &rmd, rp, sizeof(rmd));
+
+#ifdef LEDEBUG
+		if (sc->sc_debug)
+			printf("sc->sc_last_rd = %x, rmd = %x\n",
+			    sc->sc_last_rd, rmd);
+#endif
+
+		if (++bix == sc->sc_nrbuf)
+			bix = 0;
+	}
+
+	sc->sc_last_rd = bix;
+}
+
+integrate void
+letint(sc)
+	register struct le_softc *sc;
+{
+	register struct ifnet *ifp = &sc->sc_arpcom.ac_if;
+	register int bix;
+	struct letmd tmd;
+
+	bix = sc->sc_first_td;
+
+	for (;;) {
+		if (sc->sc_no_td <= 0)
+			break;
+
+#ifdef LEDEBUG
+		if (sc->sc_debug)
+			printf("trans tmd = %x\n", tmd);
+#endif
+
+		(*sc->sc_copyfromdesc)(sc, &tmd, LE_TMDADDR(sc, bix),
+		    sizeof(tmd));
+
+		if (tmd.tmd1_bits & LE_T1_OWN)
+			break;
+
+		ifp->if_flags &= ~IFF_OACTIVE;
+
+		if (tmd.tmd1_bits & LE_T1_ERR) {
+			if (tmd.tmd3 & LE_T3_BUFF)
+				printf("%s: transmit buffer error\n", sc->sc_dev.dv_xname);
+			else if (tmd.tmd3 & LE_T3_UFLO)
+				printf("%s: underflow\n", sc->sc_dev.dv_xname);
+			if (tmd.tmd3 & (LE_T3_BUFF | LE_T3_UFLO)) {
+				lereset(sc);
+				return;
+			}
+			if (tmd.tmd3 & LE_T3_LCAR)
+				printf("%s: lost carrier\n", sc->sc_dev.dv_xname);
+			if (tmd.tmd3 & LE_T3_LCOL)
+				ifp->if_collisions++;
+			if (tmd.tmd3 & LE_T3_RTRY) {
+				printf("%s: excessive collisions, tdr %d\n",
+				    sc->sc_dev.dv_xname, tmd.tmd3 & LE_T3_TDR_MASK);
+				ifp->if_collisions += 16;
+			}
+			ifp->if_oerrors++;
+		} else {
+			if (tmd.tmd1_bits & LE_T1_ONE)
+				ifp->if_collisions++;
+			else if (tmd.tmd1_bits & LE_T1_MORE)
+				/* Real number is unknown. */
+				ifp->if_collisions += 2;
+			ifp->if_opackets++;
+		}
+
+		if (++bix == sc->sc_ntbuf)
+			bix = 0;
+
+		--sc->sc_no_td;
+	}
+
+	sc->sc_first_td = bix;
+
+	lestart(ifp);
+
+	if (sc->sc_no_td == 0)
+		ifp->if_timer = 0;
+}
+
+/*
+ * Controller interrupt.
+ */
+#ifdef LEINTR_UNIT
+int
+leintr(unit)
+	int unit;
+{
+	register struct le_softc *sc = LE_SOFTC(unit);
+#else
+int
+leintr(arg)
+	register void *arg;
+{
+	register struct le_softc *sc = arg;
+#endif
+	register u_int16_t isr;
+
+	isr = lerdcsr(sc, LE_CSR0);
+#ifdef LEDEBUG
+	if (sc->sc_debug)
+		printf("%s: leintr entering with isr=%04x\n",
+		    sc->sc_dev.dv_xname, isr);
+#endif
+	if ((isr & LE_C0_INTR) == 0)
+		return (0);
+
+	lewrcsr(sc, LE_CSR0,
+	    isr & (LE_C0_INEA | LE_C0_BABL | LE_C0_MISS | LE_C0_MERR |
+		   LE_C0_RINT | LE_C0_TINT | LE_C0_IDON));
+	if (isr & LE_C0_ERR) {
+		if (isr & LE_C0_BABL) {
+			printf("%s: babble\n", sc->sc_dev.dv_xname);
+			sc->sc_arpcom.ac_if.if_oerrors++;
+		}
+#if 0
+		if (isr & LE_C0_CERR) {
+			printf("%s: collision error\n", sc->sc_dev.dv_xname);
+			sc->sc_arpcom.ac_if.if_collisions++;
+		}
+#endif
+		if (isr & LE_C0_MISS)
+			sc->sc_arpcom.ac_if.if_ierrors++;
+		if (isr & LE_C0_MERR) {
+			printf("%s: memory error\n", sc->sc_dev.dv_xname);
+			lereset(sc);
+			return (1);
+		}
+	}
+
+	if ((isr & LE_C0_RXON) == 0) {
+		printf("%s: receiver disabled\n", sc->sc_dev.dv_xname);
+		sc->sc_arpcom.ac_if.if_ierrors++;
+		lereset(sc);
+		return (1);
+	}
+	if ((isr & LE_C0_TXON) == 0) {
+		printf("%s: transmitter disabled\n", sc->sc_dev.dv_xname);
+		sc->sc_arpcom.ac_if.if_oerrors++;
+		lereset(sc);
+		return (1);
+	}
+
+	if (isr & LE_C0_RINT)
+		lerint(sc);
+	if (isr & LE_C0_TINT)
+		letint(sc);
+
+	return (1);
+}
+
+/*
+ * Setup output on interface.
+ * Get another datagram to send off of the interface queue, and map it to the
+ * interface before starting the output.
+ * Called only at splimp or interrupt level.
+ */
+void
+lestart(ifp)
+	register struct ifnet *ifp;
+{
+	register struct le_softc *sc = LE_SOFTC(ifp->if_unit);
+	register int bix;
+	register struct mbuf *m;
+	struct letmd tmd;
+	int rp;
+	int len;
+
+	if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
+		return;
+
+	bix = sc->sc_last_td;
+
+	for (;;) {
+		rp = LE_TMDADDR(sc, bix);
+		(*sc->sc_copyfromdesc)(sc, &tmd, rp, sizeof(tmd));
+
+		if (tmd.tmd1_bits & LE_T1_OWN) {
+			ifp->if_flags |= IFF_OACTIVE;
+			printf("missing buffer, no_td = %d, last_td = %d\n",
+			    sc->sc_no_td, sc->sc_last_td);
+		}
+
+		IF_DEQUEUE(&ifp->if_snd, m);
+		if (m == 0)
+			break;
+
+#if NBPFILTER > 0
+		/*
+		 * If BPF is listening on this interface, let it see the packet
+		 * before we commit it to the wire.
+		 */
+		if (ifp->if_bpf)
+			bpf_mtap(ifp->if_bpf, m);
+#endif
+
+		/*
+		 * Copy the mbuf chain into the transmit buffer.
+		 */
+		len = leput(sc, LE_TBUFADDR(sc, bix), m);
+
+#ifdef LEDEBUG
+		if (len > ETHERMTU + sizeof(struct ether_header))
+			printf("packet length %d\n", len);
+#endif
+
+		ifp->if_timer = 5;
+
+		/*
+		 * Init transmit registers, and set transmit start flag.
+		 */
+		tmd.tmd1_bits = LE_T1_OWN | LE_T1_STP | LE_T1_ENP;
+		tmd.tmd2 = -len | LE_XMD2_ONES;
+		tmd.tmd3 = 0;
+
+		(*sc->sc_copytodesc)(sc, &tmd, rp, sizeof(tmd));
+
+#ifdef LEDEBUG
+		if (sc->sc_debug)
+			xmit_print(sc, sc->sc_last_td);
+#endif
+
+		lewrcsr(sc, LE_CSR0, LE_C0_INEA | LE_C0_TDMD);
+
+		if (++bix == sc->sc_ntbuf)
+			bix = 0;
+
+		if (++sc->sc_no_td == sc->sc_ntbuf) {
+			ifp->if_flags |= IFF_OACTIVE;
+			break;
+		}
+
+	}
+
+	sc->sc_last_td = bix;
+}
+
+/*
+ * Process an ioctl request.
+ */
+int
+leioctl(ifp, cmd, data)
+	register struct ifnet *ifp;
+	u_long cmd;
+	caddr_t data;
+{
+	struct le_softc *sc = LE_SOFTC(ifp->if_unit);
+	struct ifaddr *ifa = (struct ifaddr *)data;
+	struct ifreq *ifr = (struct ifreq *)data;
+	int s, error = 0;
+
+	s = splimp();
+
+	switch (cmd) {
+
+	case SIOCSIFADDR:
+		ifp->if_flags |= IFF_UP;
+
+		switch (ifa->ifa_addr->sa_family) {
+#ifdef INET
+		case AF_INET:
+			leinit(sc);
+			arp_ifinit(&sc->sc_arpcom, ifa);
+			break;
+#endif
+#ifdef NS
+		case AF_NS:
+		    {
+			register struct ns_addr *ina = &IA_SNS(ifa)->sns_addr;
+
+			if (ns_nullhost(*ina))
+				ina->x_host =
+				    *(union ns_host *)(sc->sc_arpcom.ac_enaddr);
+			else
+				bcopy(ina->x_host.c_host,
+				    sc->sc_arpcom.ac_enaddr,
+				    sizeof(sc->sc_arpcom.ac_enaddr));
+			/* Set new address. */
+			leinit(sc);
+			break;
+		    }
+#endif
+		default:
+			leinit(sc);
+			break;
+		}
+		break;
+
+#if defined(CCITT) && defined(LLC)
+	case SIOCSIFCONF_X25:
+		ifp->if_flags |= IFF_UP;
+		ifa->ifa_rtrequest = (void (*)())cons_rtrequest; /* XXX */
+		error = x25_llcglue(PRC_IFUP, ifa->ifa_addr);
+		if (error == 0)
+			leinit(sc);
+		break;
+#endif /* CCITT && LLC */
+
+	case SIOCSIFFLAGS:
+		if ((ifp->if_flags & IFF_UP) == 0 &&
+		    (ifp->if_flags & IFF_RUNNING) != 0) {
+			/*
+			 * If interface is marked down and it is running, then
+			 * stop it.
+			 */
+			lestop(sc);
+			ifp->if_flags &= ~IFF_RUNNING;
+		} else if ((ifp->if_flags & IFF_UP) != 0 &&
+		    	   (ifp->if_flags & IFF_RUNNING) == 0) {
+			/*
+			 * If interface is marked up and it is stopped, then
+			 * start it.
+			 */
+			leinit(sc);
+		} else {
+			/*
+			 * Reset the interface to pick up changes in any other
+			 * flags that affect hardware registers.
+			 */
+			/*lestop(sc);*/
+			leinit(sc);
+		}
+#ifdef LEDEBUG
+		if (ifp->if_flags & IFF_DEBUG)
+			sc->sc_debug = 1;
+		else
+			sc->sc_debug = 0;
+#endif
+		break;
+
+	case SIOCADDMULTI:
+	case SIOCDELMULTI:
+		error = (cmd == SIOCADDMULTI) ?
+		    ether_addmulti(ifr, &sc->sc_arpcom) :
+		    ether_delmulti(ifr, &sc->sc_arpcom);
+
+		if (error == ENETRESET) {
+			/*
+			 * Multicast list has changed; set the hardware filter
+			 * accordingly.
+			 */
+			lereset(sc);
+			error = 0;
+		}
+		break;
+
+	default:
+		error = EINVAL;
+		break;
+	}
+
+	splx(s);
+	return (error);
+}
+
+#ifdef LEDEBUG
+void
+recv_print(sc, no)
+	struct le_softc *sc;
+	int no;
+{
+	struct lermd rmd;
+	u_int16_t len;
+	struct ether_header eh;
+
+	(*sc->sc_copyfromdesc)(sc, &rmd, LE_RMDADDR(sc, no), sizeof(rmd));
+	len = rmd.rmd3;
+	printf("%s: receive buffer %d, len = %d\n", sc->sc_dev.dv_xname, no,
+	    len);
+	printf("%s: status %04x\n", sc->sc_dev.dv_xname, lerdcsr(sc, LE_CSR0));
+	printf("%s: ladr %04x, hadr %02x, flags %02x, bcnt %04x, mcnt %04x\n",
+	    sc->sc_dev.dv_xname,
+	    rmd.rmd0, rmd.rmd1_hadr, rmd.rmd1_bits, rmd.rmd2, rmd.rmd3);
+	if (len >= sizeof(eh)) {
+		(*sc->sc_copyfrombuf)(sc, &eh, LE_RBUFADDR(sc, no), sizeof(eh));
+		printf("%s: dst %s", ether_sprintf(eh.ether_dhost));
+		printf(" src %s type %04x\n", ether_sprintf(eh.ether_shost),
+		    ntohs(eh.ether_type));
+	}
+}
+
+void
+xmit_print(sc, no)
+	struct le_softc *sc;
+	int no;
+{
+	struct letmd tmd;
+	u_int16_t len;
+	struct ether_header eh;
+
+	(*sc->sc_copyfromdesc)(sc, &tmd, LE_TMDADDR(sc, no), sizeof(tmd));
+	len = -tmd.tmd2;
+	printf("%s: transmit buffer %d, len = %d\n", sc->sc_dev.dv_xname, no,
+	    len);
+	printf("%s: status %04x\n", sc->sc_dev.dv_xname, lerdcsr(sc, LE_CSR0));
+	printf("%s: ladr %04x, hadr %02x, flags %02x, bcnt %04x, mcnt %04x\n",
+	    sc->sc_dev.dv_xname,
+	    tmd.tmd0, tmd.tmd1_hadr, tmd.tmd1_bits, tmd.tmd2, tmd.tmd3);
+	if (len >= sizeof(eh)) {
+		(*sc->sc_copyfrombuf)(sc, &eh, LE_TBUFADDR(sc, no), sizeof(eh));
+		printf("%s: dst %s", ether_sprintf(eh.ether_dhost));
+		printf(" src %s type %04x\n", ether_sprintf(eh.ether_shost),
+		    ntohs(eh.ether_type));
+	}
+}
+#endif /* LEDEBUG */
+
+/*
+ * Set up the logical address filter.
+ */
+void
+lesetladrf(ac, af)
+	struct arpcom *ac;
+	u_int16_t *af;
+{
+	struct ifnet *ifp = &ac->ac_if;
+	struct ether_multi *enm;
+	register u_char *cp, c;
+	register u_int32_t crc;
+	register int i, len;
+	struct ether_multistep step;
+
+	/*
+	 * Set up multicast address filter by passing all multicast addresses
+	 * through a crc generator, and then using the high order 6 bits as an
+	 * index into the 64 bit logical address filter.  The high order bit
+	 * selects the word, while the rest of the bits select the bit within
+	 * the word.
+	 */
+
+	if (ifp->if_flags & IFF_PROMISC)
+		goto allmulti;
+
+	af[0] = af[1] = af[2] = af[3] = 0x0000;
+	ETHER_FIRST_MULTI(step, ac, enm);
+	while (enm != NULL) {
+		if (bcmp(enm->enm_addrlo, enm->enm_addrhi,
+		    sizeof(enm->enm_addrlo)) != 0) {
+			/*
+			 * We must listen to a range of multicast addresses.
+			 * For now, just accept all multicasts, rather than
+			 * trying to set only those filter bits needed to match
+			 * the range.  (At this time, the only use of address
+			 * ranges is for IP multicast routing, for which the
+			 * range is big enough to require all bits set.)
+			 */
+			goto allmulti;
+		}
+
+		cp = enm->enm_addrlo;
+		crc = 0xffffffff;
+		for (len = sizeof(enm->enm_addrlo); --len >= 0;) {
+			c = *cp++;
+			for (i = 8; --i >= 0;) {
+				if ((crc & 0x01) ^ (c & 0x01)) {
+					crc >>= 1;
+					crc ^= 0xedb88320;
+				} else
+					crc >>= 1;
+				c >>= 1;
+			}
+		}
+		/* Just want the 6 most significant bits. */
+		crc >>= 26;
+
+		/* Set the corresponding bit in the filter. */
+		af[crc >> 4] |= 1 << (crc & 0xf);
+
+		ETHER_NEXT_MULTI(step, enm);
+	}
+	ifp->if_flags &= ~IFF_ALLMULTI;
+	return;
+
+allmulti:
+	ifp->if_flags |= IFF_ALLMULTI;
+	af[0] = af[1] = af[2] = af[3] = 0xffff;
+}
+
+
+#if 0	/* USE OF THE FOLLOWING IS MACHINE-SPECIFIC */
+/*
+ * Routines for accessing the transmit and receive buffers. Unfortunately,
+ * CPU addressing of these buffers is done in one of 3 ways:
+ * - contiguous (for the 3max and turbochannel option card)
+ * - gap2, which means shorts (2 bytes) interspersed with short (2 byte)
+ *   spaces (for the pmax)
+ * - gap16, which means 16bytes interspersed with 16byte spaces
+ *   for buffers which must begin on a 32byte boundary (for 3min and maxine)
+ * The buffer offset is the logical byte offset, assuming contiguous storage.
+ */
+void
+copytodesc_contig(sc, from, boff, len)
+	struct le_softc *sc;
+	caddr_t from;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+
+	/*
+	 * Just call bcopy() to do the work.
+	 */
+	bcopy(from, buf + boff, len);
+}
+
+void
+copyfromdesc_contig(sc, to, boff, len)
+	struct le_softc *sc;
+	caddr_t to;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+
+	/*
+	 * Just call bcopy() to do the work.
+	 */
+	bcopy(buf + boff, to, len);
+}
+
+void
+copytobuf_contig(sc, from, boff, len)
+	struct le_softc *sc;
+	caddr_t from;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+
+	/*
+	 * Just call bcopy() to do the work.
+	 */
+	bcopy(from, buf + boff, len);
+}
+
+void
+copyfrombuf_contig(sc, to, boff, len)
+	struct le_softc *sc;
+	caddr_t to;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+
+	/*
+	 * Just call bcopy() to do the work.
+	 */
+	bcopy(buf + boff, to, len);
+}
+
+void
+zerobuf_contig(sc, boff, len)
+	struct le_softc *sc;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+
+	/*
+	 * Just let bzero() do the work
+	 */
+	bzero(buf + boff, len);
+}
+
+/*
+ * For the pmax the buffer consists of shorts (2 bytes) interspersed with
+ * short (2 byte) spaces and must be accessed with halfword load/stores.
+ * (don't worry about doing an extra byte)
+ */
+void
+copytobuf_gap2(sc, from, boff, len)
+	struct le_softc *sc;
+	register caddr_t from;
+	int boff;
+	register int len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register volatile u_short *bptr;
+	register int xfer;
+
+	if (boff & 0x1) {
+		/* handle unaligned first byte */
+		bptr = ((volatile u_short *)buf) + (boff - 1);
+		*bptr = (*from++ << 8) | (*bptr & 0xff);
+		bptr += 2;
+		len--;
+	} else
+		bptr = ((volatile u_short *)buf) + boff;
+	if ((unsigned)from & 0x1) {
+		while (len > 1) {
+			*bptr = (from[1] << 8) | (from[0] & 0xff);
+			bptr += 2;
+			from += 2;
+			len -= 2;
+		}
+	} else {
+		/* optimize for aligned transfers */
+		xfer = (int)((unsigned)len & ~0x1);
+		CopyToBuffer((u_short *)from, bptr, xfer);
+		bptr += xfer;
+		from += xfer;
+		len -= xfer;
+	}
+	if (len == 1)
+		*bptr = (u_short)*from;
+}
+
+void
+copyfrombuf_gap2(sc, to, boff, len)
+	struct le_softc *sc;
+	register caddr_t to;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register volatile u_short *bptr;
+	register u_short tmp;
+	register int xfer;
+
+	if (boff & 0x1) {
+		/* handle unaligned first byte */
+		bptr = ((volatile u_short *)buf) + (boff - 1);
+		*to++ = (*bptr >> 8) & 0xff;
+		bptr += 2;
+		len--;
+	} else
+		bptr = ((volatile u_short *)buf) + boff;
+	if ((unsigned)to & 0x1) {
+		while (len > 1) {
+			tmp = *bptr;
+			*to++ = tmp & 0xff;
+			*to++ = (tmp >> 8) & 0xff;
+			bptr += 2;
+			len -= 2;
+		}
+	} else {
+		/* optimize for aligned transfers */
+		xfer = (int)((unsigned)len & ~0x1);
+		CopyFromBuffer(bptr, to, xfer);
+		bptr += xfer;
+		to += xfer;
+		len -= xfer;
+	}
+	if (len == 1)
+		*to = *bptr & 0xff;
+}
+
+void
+zerobuf_gap2(sc, boff, len)
+	struct le_softc *sc;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register volatile u_short *bptr;
+
+	if ((unsigned)boff & 0x1) {
+		bptr = ((volatile u_short *)buf) + (boff - 1);
+		*bptr &= 0xff;
+		bptr += 2;
+		len--;
+	} else
+		bptr = ((volatile u_short *)buf) + boff;
+	while (len > 0) {
+		*bptr = 0;
+		bptr += 2;
+		len -= 2;
+	}
+}
+
+/*
+ * For the 3min and maxine, the buffers are in main memory filled in with
+ * 16byte blocks interspersed with 16byte spaces.
+ */
+void
+copytobuf_gap16(sc, from, boff, len)
+	struct le_softc *sc;
+	register caddr_t from;
+	int boff;
+	register int len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register caddr_t bptr;
+	register int xfer;
+
+	bptr = buf + ((boff << 1) & ~0x1f);
+	boff &= 0xf;
+	xfer = min(len, 16 - boff);
+	while (len > 0) {
+		bcopy(from, bptr + boff, xfer);
+		from += xfer;
+		bptr += 32;
+		boff = 0;
+		len -= xfer;
+		xfer = min(len, 16);
+	}
+}
+
+void
+copyfrombuf_gap16(sc, to, boff, len)
+	struct le_softc *sc;
+	register caddr_t to;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register caddr_t bptr;
+	register int xfer;
+
+	bptr = buf + ((boff << 1) & ~0x1f);
+	boff &= 0xf;
+	xfer = min(len, 16 - boff);
+	while (len > 0) {
+		bcopy(bptr + boff, to, xfer);
+		to += xfer;
+		bptr += 32;
+		boff = 0;
+		len -= xfer;
+		xfer = min(len, 16);
+	}
+}
+
+void
+zerobuf_gap16(sc, boff, len)
+	struct le_softc *sc;
+	int boff, len;
+{
+	volatile caddr_t buf = sc->sc_mem;
+	register caddr_t bptr;
+	register int xfer;
+
+	bptr = buf + ((boff << 1) & ~0x1f);
+	boff &= 0xf;
+	xfer = min(len, 16 - boff);
+	while (len > 0) {
+		bzero(bptr + boff, xfer);
+		bptr += 32;
+		boff = 0;
+		len -= xfer;
+		xfer = min(len, 16);
+	}
+}
+#endif