Home | History | Annotate | Line # | Download | only in dev
if_qn.c revision 1.17
      1 /*	$NetBSD: if_qn.c,v 1.17 1999/03/25 23:10:53 thorpej Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1995 Mika Kortelainen
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. All advertising materials mentioning features or use of this software
     16  *    must display the following acknowledgement:
     17  *      This product includes software developed by  Mika Kortelainen
     18  * 4. The name of the author may not be used to endorse or promote products
     19  *    derived from this software without specific prior written permission
     20  *
     21  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     22  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     23  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     24  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     25  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     26  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     30  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31  *
     32  * Thanks for Aspecs Oy (Finland) for the data book for the NIC used
     33  * in this card and also many thanks for the Resource Management Force
     34  * (QuickNet card manufacturer) and especially Daniel Koch for providing
     35  * me with the necessary 'inside' information to write the driver.
     36  *
     37  * This is partly based on other code:
     38  * - if_ed.c: basic function structure for Ethernet driver and now also
     39  *	qn_put() is done similarly, i.e. no extra packet buffers.
     40  *
     41  *	Device driver for National Semiconductor DS8390/WD83C690 based ethernet
     42  *	adapters.
     43  *
     44  *	Copyright (c) 1994, 1995 Charles M. Hannum.  All rights reserved.
     45  *
     46  *	Copyright (C) 1993, David Greenman.  This software may be used,
     47  *	modified, copied, distributed, and sold, in both source and binary
     48  *	form provided that the above copyright and these terms are retained.
     49  *	Under no circumstances is the author responsible for the proper
     50  *	functioning of this software, nor does the author assume any
     51  *	responsibility for damages incurred with its use.
     52  *
     53  * - if_es.c: used as an example of -current driver
     54  *
     55  *	Copyright (c) 1995 Michael L. Hitch
     56  *	All rights reserved.
     57  *
     58  * - if_fe.c: some ideas for error handling for qn_rint() which might
     59  *	have fixed those random lock ups, too.
     60  *
     61  *	All Rights Reserved, Copyright (C) Fujitsu Limited 1995
     62  *
     63  *
     64  * TODO:
     65  * - add multicast support
     66  */
     67 
     68 #include "qn.h"
     69 #if NQN > 0
     70 
     71 #define QN_DEBUG
     72 #define QN_DEBUG1_no /* hides some old tests */
     73 #define QN_CHECKS_no /* adds some checks (not needed in normal situations) */
     74 
     75 #include "bpfilter.h"
     76 
     77 /*
     78  * Fujitsu MB86950 Ethernet Controller (as used in the QuickNet QN2000
     79  * Ethernet card)
     80  */
     81 
     82 #include "opt_inet.h"
     83 #include "opt_ns.h"
     84 
     85 #include <sys/param.h>
     86 #include <sys/systm.h>
     87 #include <sys/mbuf.h>
     88 #include <sys/buf.h>
     89 #include <sys/device.h>
     90 #include <sys/protosw.h>
     91 #include <sys/socket.h>
     92 #include <sys/syslog.h>
     93 #include <sys/ioctl.h>
     94 #include <sys/errno.h>
     95 
     96 #include <net/if.h>
     97 #include <net/if_dl.h>
     98 #include <net/if_ether.h>
     99 
    100 #ifdef INET
    101 #include <netinet/in.h>
    102 #include <netinet/in_systm.h>
    103 #include <netinet/in_var.h>
    104 #include <netinet/ip.h>
    105 #include <netinet/if_inarp.h>
    106 #endif
    107 
    108 #ifdef NS
    109 #include <netns/ns.h>
    110 #include <netns/ns_if.h>
    111 #endif
    112 
    113 #include <machine/cpu.h>
    114 #include <machine/mtpr.h>
    115 #include <amiga/amiga/device.h>
    116 #include <amiga/amiga/isr.h>
    117 #include <amiga/dev/zbusvar.h>
    118 #include <amiga/dev/if_qnreg.h>
    119 
    120 
    121 #define	NIC_R_MASK	(R_INT_PKT_RDY | R_INT_ALG_ERR |\
    122 			 R_INT_CRC_ERR | R_INT_OVR_FLO)
    123 #define	MAX_PACKETS	30 /* max number of packets read per interrupt */
    124 
    125 /*
    126  * Ethernet software status per interface
    127  *
    128  * Each interface is referenced by a network interface structure,
    129  * qn_if, which the routing code uses to locate the interface.
    130  * This structure contains the output queue for the interface, its address, ...
    131  */
    132 struct	qn_softc {
    133 	struct	device sc_dev;
    134 	struct	isr sc_isr;
    135 	struct	ethercom sc_ethercom;	/* Common ethernet structures */
    136 	u_char	volatile *sc_base;
    137 	u_char	volatile *sc_nic_base;
    138 	u_short	volatile *nic_fifo;
    139 	u_short	volatile *nic_r_status;
    140 	u_short	volatile *nic_t_status;
    141 	u_short	volatile *nic_r_mask;
    142 	u_short	volatile *nic_t_mask;
    143 	u_short	volatile *nic_r_mode;
    144 	u_short	volatile *nic_t_mode;
    145 	u_short	volatile *nic_reset;
    146 	u_short	volatile *nic_len;
    147 	u_char	transmit_pending;
    148 #if NBPFILTER > 0
    149 	caddr_t	sc_bpf;
    150 #endif
    151 } qn_softc[NQN];
    152 
    153 #if NBPFILTER > 0
    154 #include <net/bpf.h>
    155 #include <net/bpfdesc.h>
    156 #endif
    157 
    158 
    159 int	qnmatch __P((struct device *, struct cfdata *, void *));
    160 void	qnattach __P((struct device *, struct device *, void *));
    161 int	qnintr __P((void *));
    162 int	qnioctl __P((struct ifnet *, u_long, caddr_t));
    163 void	qnstart __P((struct ifnet *));
    164 void	qnwatchdog __P((struct ifnet *));
    165 void	qnreset __P((struct qn_softc *));
    166 void	qninit __P((struct qn_softc *));
    167 void	qnstop __P((struct qn_softc *));
    168 static	u_short qn_put __P((u_short volatile *, struct mbuf *));
    169 static	void qn_rint __P((struct qn_softc *, u_short));
    170 static	void qn_flush __P((struct qn_softc *));
    171 static	void inline word_copy_from_card __P((u_short volatile *, u_short *, u_short));
    172 static	void inline word_copy_to_card __P((u_short *, u_short volatile *, register u_short));
    173 static	void qn_get_packet __P((struct qn_softc *, u_short));
    174 #ifdef QN_DEBUG1
    175 static	void qn_dump __P((struct qn_softc *));
    176 #endif
    177 
    178 struct cfattach qn_ca = {
    179 	sizeof(struct qn_softc), qnmatch, qnattach
    180 };
    181 
    182 int
    183 qnmatch(parent, cfp, aux)
    184 	struct device *parent;
    185 	struct cfdata *cfp;
    186 	void *aux;
    187 {
    188 	struct zbus_args *zap;
    189 
    190 	zap = (struct zbus_args *)aux;
    191 
    192 	/* RMF QuickNet QN2000 EtherNet card */
    193 	if (zap->manid == 2011 && zap->prodid == 2)
    194 		return (1);
    195 
    196 	return (0);
    197 }
    198 
    199 /*
    200  * Interface exists: make available by filling in network interface
    201  * record.  System will initialize the interface when it is ready
    202  * to accept packets.
    203  */
    204 void
    205 qnattach(parent, self, aux)
    206 	struct device *parent, *self;
    207 	void *aux;
    208 {
    209 	struct zbus_args *zap;
    210 	struct qn_softc *sc = (struct qn_softc *)self;
    211 	struct ifnet *ifp = &sc->sc_ethercom.ec_if;
    212 	u_int8_t myaddr[ETHER_ADDR_LEN];
    213 
    214 	zap = (struct zbus_args *)aux;
    215 
    216 	sc->sc_base = zap->va;
    217 	sc->sc_nic_base = sc->sc_base + QUICKNET_NIC_BASE;
    218 	sc->nic_fifo = (u_short volatile *)(sc->sc_nic_base + NIC_BMPR0);
    219 	sc->nic_len = (u_short volatile *)(sc->sc_nic_base + NIC_BMPR2);
    220 	sc->nic_t_status = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR0);
    221 	sc->nic_r_status = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR2);
    222 	sc->nic_t_mask = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR1);
    223 	sc->nic_r_mask = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR3);
    224 	sc->nic_t_mode = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR4);
    225 	sc->nic_r_mode = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR5);
    226 	sc->nic_reset = (u_short volatile *)(sc->sc_nic_base + NIC_DLCR6);
    227 	sc->transmit_pending = 0;
    228 
    229 	/*
    230 	 * The ethernet address of the board (1st three bytes are the vendor
    231 	 * address, the rest is the serial number of the board).
    232 	 */
    233 	myaddr[0] = 0x5c;
    234 	myaddr[1] = 0x5c;
    235 	myaddr[2] = 0x00;
    236 	myaddr[3] = (zap->serno >> 16) & 0xff;
    237 	myaddr[4] = (zap->serno >> 8) & 0xff;
    238 	myaddr[5] = zap->serno & 0xff;
    239 
    240 	/* set interface to stopped condition (reset) */
    241 	qnstop(sc);
    242 
    243 	bcopy(sc->sc_dev.dv_xname, ifp->if_xname, IFNAMSIZ);
    244 	ifp->if_softc = sc;
    245 	ifp->if_ioctl = qnioctl;
    246 	ifp->if_watchdog = qnwatchdog;
    247 	ifp->if_output = ether_output;
    248 	ifp->if_start = qnstart;
    249 	/* XXX IFF_MULTICAST */
    250 	ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX | IFF_NOTRAILERS;
    251 	ifp->if_mtu = ETHERMTU;
    252 
    253 	/* Attach the interface. */
    254 	if_attach(ifp);
    255 	ether_ifattach(ifp, myaddr);
    256 
    257 #ifdef QN_DEBUG
    258 	printf(": hardware address %s\n", ether_sprintf(myaddr));
    259 #endif
    260 
    261 #if NBPFILTER > 0
    262 	bpfattach(&sc->sc_bpf, ifp, DLT_EN10MB, sizeof(struct ether_header));
    263 #endif
    264 
    265 	sc->sc_isr.isr_intr = qnintr;
    266 	sc->sc_isr.isr_arg = sc;
    267 	sc->sc_isr.isr_ipl = 2;
    268 	add_isr(&sc->sc_isr);
    269 }
    270 
    271 /*
    272  * Initialize device
    273  *
    274  */
    275 void
    276 qninit(sc)
    277 	struct qn_softc *sc;
    278 {
    279 	struct ifnet *ifp = &sc->sc_ethercom.ec_if;
    280 	u_short i;
    281 	static int retry = 0;
    282 
    283 	*sc->nic_r_mask   = NIC_R_MASK;
    284 	*sc->nic_t_mode   = NO_LOOPBACK;
    285 
    286 	if (sc->sc_ethercom.ec_if.if_flags & IFF_PROMISC) {
    287 		*sc->nic_r_mode = PROMISCUOUS_MODE;
    288 		log(LOG_INFO, "qn: Promiscuous mode (not tested)\n");
    289 	} else
    290 		*sc->nic_r_mode = NORMAL_MODE;
    291 
    292 	/* Set physical ethernet address. */
    293 	for (i = 0; i < ETHER_ADDR_LEN; i++)
    294 		*((u_short volatile *)(sc->sc_nic_base+
    295 				       QNET_HARDWARE_ADDRESS+2*i)) =
    296 		    ((((u_short)LLADDR(ifp->if_sadl)[i]) << 8) |
    297 		    LLADDR(ifp->if_sadl)[i]);
    298 
    299 	ifp->if_flags |= IFF_RUNNING;
    300 	ifp->if_flags &= ~IFF_OACTIVE;
    301 	sc->transmit_pending = 0;
    302 
    303 	qn_flush(sc);
    304 
    305 	/* QuickNet magic. Done ONLY once, otherwise a lockup occurs. */
    306 	if (retry == 0) {
    307 		*((u_short volatile *)(sc->sc_nic_base + QNET_MAGIC)) = 0;
    308 		retry = 1;
    309 	}
    310 
    311 	/* Enable data link controller. */
    312 	*sc->nic_reset = ENABLE_DLC;
    313 
    314 	/* Attempt to start output, if any. */
    315 	qnstart(ifp);
    316 }
    317 
    318 /*
    319  * Device timeout/watchdog routine.  Entered if the device neglects to
    320  * generate an interrupt after a transmit has been started on it.
    321  */
    322 void
    323 qnwatchdog(ifp)
    324 	struct ifnet *ifp;
    325 {
    326 	struct qn_softc *sc = ifp->if_softc;
    327 
    328 	log(LOG_INFO, "qn: device timeout (watchdog)\n");
    329 	++sc->sc_ethercom.ec_if.if_oerrors;
    330 
    331 	qnreset(sc);
    332 }
    333 
    334 /*
    335  * Flush card's buffer RAM.
    336  */
    337 static void
    338 qn_flush(sc)
    339 	struct qn_softc *sc;
    340 {
    341 #if 1
    342 	/* Read data until bus read error (i.e. buffer empty). */
    343 	while (!(*sc->nic_r_status & R_BUS_RD_ERR))
    344 		(void)(*sc->nic_fifo);
    345 #else
    346 	/* Read data twice to clear some internal pipelines. */
    347 	(void)(*sc->nic_fifo);
    348 	(void)(*sc->nic_fifo);
    349 #endif
    350 
    351 	/* Clear bus read error. */
    352 	*sc->nic_r_status = R_BUS_RD_ERR;
    353 }
    354 
    355 /*
    356  * Reset the interface.
    357  *
    358  */
    359 void
    360 qnreset(sc)
    361 	struct qn_softc *sc;
    362 {
    363 	int s;
    364 
    365 	s = splnet();
    366 	qnstop(sc);
    367 	qninit(sc);
    368 	splx(s);
    369 }
    370 
    371 /*
    372  * Take interface offline.
    373  */
    374 void
    375 qnstop(sc)
    376 	struct qn_softc *sc;
    377 {
    378 
    379 	/* Stop the interface. */
    380 	*sc->nic_reset    = DISABLE_DLC;
    381 	delay(200);
    382 	*sc->nic_t_status = CLEAR_T_ERR;
    383 	*sc->nic_t_mask   = CLEAR_T_MASK;
    384 	*sc->nic_r_status = CLEAR_R_ERR;
    385 	*sc->nic_r_mask   = CLEAR_R_MASK;
    386 
    387 	/* Turn DMA off */
    388 	*((u_short volatile *)(sc->sc_nic_base + NIC_BMPR4)) = 0;
    389 
    390 	/* Accept no packets. */
    391 	*sc->nic_r_mode = 0;
    392 	*sc->nic_t_mode = 0;
    393 
    394 	qn_flush(sc);
    395 }
    396 
    397 /*
    398  * Start output on interface. Get another datagram to send
    399  * off the interface queue, and copy it to the
    400  * interface before starting the output.
    401  *
    402  * This assumes that it is called inside a critical section...
    403  *
    404  */
    405 void
    406 qnstart(ifp)
    407 	struct ifnet *ifp;
    408 {
    409 	struct qn_softc *sc = ifp->if_softc;
    410 	struct mbuf *m;
    411 	u_short len;
    412 	int timout = 60000;
    413 
    414 
    415 	if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
    416 		return;
    417 
    418 	IF_DEQUEUE(&ifp->if_snd, m);
    419 	if (m == 0)
    420 		return;
    421 
    422 #if NBPFILTER > 0
    423 	/*
    424 	 * If bpf is listening on this interface, let it
    425 	 * see the packet before we commit it to the wire
    426 	 *
    427 	 * (can't give the copy in QuickNet card RAM to bpf, because
    428 	 * that RAM is not visible to the host but is read from FIFO)
    429 	 *
    430 	 */
    431 	if (sc->sc_bpf)
    432 		bpf_mtap(sc->sc_bpf, m);
    433 #endif
    434 	len = qn_put(sc->nic_fifo, m);
    435 	m_freem(m);
    436 
    437 	/*
    438 	 * Really transmit the packet.
    439 	 */
    440 
    441 	/* Set packet length (byte-swapped). */
    442 	len = ((len >> 8) & 0x0007) | TRANSMIT_START | ((len & 0x00ff) << 8);
    443 	*sc->nic_len = len;
    444 
    445 	/* Wait for the packet to really leave. */
    446 	while (!(*sc->nic_t_status & T_TMT_OK) && --timout) {
    447 		if ((timout % 10000) == 0)
    448 			log(LOG_INFO, "qn: timout...\n");
    449 	}
    450 
    451 	if (timout == 0)
    452 		/* Maybe we should try to recover from this one? */
    453 		/* But now, let's just fall thru and hope the best... */
    454 		log(LOG_INFO, "qn: transmit timout (fatal?)\n");
    455 
    456 	sc->transmit_pending = 1;
    457 	*sc->nic_t_mask = INT_TMT_OK | INT_SIXTEEN_COL;
    458 
    459 	ifp->if_flags |= IFF_OACTIVE;
    460 	ifp->if_timer = 2;
    461 }
    462 
    463 /*
    464  * Memory copy, copies word at a time
    465  */
    466 static void inline
    467 word_copy_from_card(card, b, len)
    468 	u_short volatile *card;
    469 	u_short *b, len;
    470 {
    471 	register u_short l = len/2;
    472 
    473 	while (l--)
    474 		*b++ = *card;
    475 }
    476 
    477 static void inline
    478 word_copy_to_card(a, card, len)
    479 	u_short *a;
    480 	u_short volatile *card;
    481 	register u_short len;
    482 {
    483 	/*register u_short l = len/2;*/
    484 
    485 	while (len--)
    486 		*card = *a++;
    487 }
    488 
    489 /*
    490  * Copy packet from mbuf to the board memory
    491  *
    492  */
    493 static u_short
    494 qn_put(addr, m)
    495 	u_short volatile *addr;
    496 	struct mbuf *m;
    497 {
    498 	u_short *data;
    499 	u_char savebyte[2];
    500 	int len, len1, wantbyte;
    501 	u_short totlen;
    502 
    503 	totlen = wantbyte = 0;
    504 
    505 	for (; m != NULL; m = m->m_next) {
    506 		data = mtod(m, u_short *);
    507 		len = m->m_len;
    508 		if (len > 0) {
    509 			totlen += len;
    510 
    511 			/* Finish the last word. */
    512 			if (wantbyte) {
    513 				savebyte[1] = *((u_char *)data);
    514 				*addr = *((u_short *)savebyte);
    515 				((u_char *)data)++;
    516 				len--;
    517 				wantbyte = 0;
    518 			}
    519 			/* Output contiguous words. */
    520 			if (len > 1) {
    521 				len1 = len/2;
    522 				word_copy_to_card(data, addr, len1);
    523 				data += len1;
    524 				len &= 1;
    525 			}
    526 			/* Save last byte, if necessary. */
    527 			if (len == 1) {
    528 				savebyte[0] = *((u_char *)data);
    529 				wantbyte = 1;
    530 			}
    531 		}
    532 	}
    533 
    534 	if (wantbyte) {
    535 		savebyte[1] = 0;
    536 		*addr = *((u_short *)savebyte);
    537 	}
    538 
    539 	if(totlen < (ETHER_MIN_LEN - ETHER_CRC_LEN)) {
    540 		/*
    541 		 * Fill the rest of the packet with zeros.
    542 		 * N.B.: This is required! Otherwise MB86950 fails.
    543 		 */
    544 		for(len = totlen + 1; len < (ETHER_MIN_LEN - ETHER_CRC_LEN);
    545 		    len += 2)
    546 	  		*addr = (u_short)0x0000;
    547 		totlen = (ETHER_MIN_LEN - ETHER_CRC_LEN);
    548 	}
    549 
    550 	return (totlen);
    551 }
    552 
    553 /*
    554  * Copy packet from board RAM.
    555  *
    556  * Trailers not supported.
    557  *
    558  */
    559 static void
    560 qn_get_packet(sc, len)
    561 	struct qn_softc *sc;
    562 	u_short len;
    563 {
    564 	register u_short volatile *nic_fifo_ptr = sc->nic_fifo;
    565 	struct ifnet *ifp = &sc->sc_ethercom.ec_if;
    566 	struct ether_header *eh;
    567 	struct mbuf *m, *dst, *head = NULL;
    568 	register u_short len1;
    569 	u_short amount;
    570 
    571 	/* Allocate header mbuf. */
    572 	MGETHDR(m, M_DONTWAIT, MT_DATA);
    573 	if (m == NULL)
    574 		goto bad;
    575 
    576 	/*
    577 	 * Round len to even value.
    578 	 */
    579 	if (len & 1)
    580 		len++;
    581 
    582 	m->m_pkthdr.rcvif = &sc->sc_ethercom.ec_if;
    583 	m->m_pkthdr.len = len;
    584 	m->m_len = 0;
    585 	head = m;
    586 
    587 	eh = mtod(head, struct ether_header *);
    588 
    589 	word_copy_from_card(nic_fifo_ptr,
    590 	    mtod(head, u_short *),
    591 	    sizeof(struct ether_header));
    592 
    593 	head->m_len += sizeof(struct ether_header);
    594 	len -= sizeof(struct ether_header);
    595 
    596 	while (len > 0) {
    597 		len1 = len;
    598 
    599 		amount = M_TRAILINGSPACE(m);
    600 		if (amount == 0) {
    601 			/* Allocate another mbuf. */
    602 			dst = m;
    603 			MGET(m, M_DONTWAIT, MT_DATA);
    604 			if (m == NULL)
    605 				goto bad;
    606 
    607 			if (len1 >= MINCLSIZE)
    608 				MCLGET(m, M_DONTWAIT);
    609 
    610 			m->m_len = 0;
    611 			dst->m_next = m;
    612 
    613 			amount = M_TRAILINGSPACE(m);
    614 		}
    615 
    616 		if (amount < len1)
    617 			len1 = amount;
    618 
    619 		word_copy_from_card(nic_fifo_ptr,
    620 		    (u_short *)(mtod(m, caddr_t) + m->m_len),
    621 		    len1);
    622 		m->m_len += len1;
    623 		len -= len1;
    624 	}
    625 
    626 #if NBPFILTER > 0
    627 	if (sc->sc_bpf) {
    628 		bpf_mtap(sc->sc_bpf, head);
    629 
    630 		/*
    631 		 * The interface cannot be in promiscuous mode if there are
    632 		 * no BPF listeners. And in prom. mode we have to check
    633 		 * if the packet is really ours...
    634 		 */
    635 		if ((ifp->if_flags & IFF_PROMISC) &&
    636 		    (eh->ether_dhost[0] & 1) == 0 && /* not bcast or mcast */
    637 		    bcmp(eh->ether_dhost,
    638         	        LLADDR(ifp->if_sadl),
    639 		        ETHER_ADDR_LEN) != 0) {
    640 			m_freem(head);
    641 			return;
    642 		}
    643 	}
    644 #endif
    645 
    646 	m_adj(head, sizeof(struct ether_header));
    647 	ether_input(ifp, eh, head);
    648 	return;
    649 
    650 bad:
    651 	if (head) {
    652 		m_freem(head);
    653 		log(LOG_INFO, "qn_get_packet: mbuf alloc failed\n");
    654 	}
    655 }
    656 
    657 /*
    658  * Ethernet interface receiver interrupt.
    659  */
    660 static void
    661 qn_rint(sc, rstat)
    662 	struct qn_softc *sc;
    663 	u_short rstat;
    664 {
    665 	int i;
    666 	u_short len, status;
    667 
    668 	/* Clear the status register. */
    669 	*sc->nic_r_status = CLEAR_R_ERR;
    670 
    671 	/*
    672 	 * Was there some error?
    673 	 * Some of them are senseless because they are masked off.
    674 	 * XXX
    675 	 */
    676 	if (rstat & R_INT_OVR_FLO) {
    677 #ifdef QN_DEBUG
    678 		log(LOG_INFO, "Overflow\n");
    679 #endif
    680 		++sc->sc_ethercom.ec_if.if_ierrors;
    681 	}
    682 	if (rstat & R_INT_CRC_ERR) {
    683 #ifdef QN_DEBUG
    684 		log(LOG_INFO, "CRC Error\n");
    685 #endif
    686 		++sc->sc_ethercom.ec_if.if_ierrors;
    687 	}
    688 	if (rstat & R_INT_ALG_ERR) {
    689 #ifdef QN_DEBUG
    690 		log(LOG_INFO, "Alignment error\n");
    691 #endif
    692 		++sc->sc_ethercom.ec_if.if_ierrors;
    693 	}
    694 	if (rstat & R_INT_SRT_PKT) {
    695 		/* Short packet (these may occur and are
    696 		 * no reason to worry about - or maybe
    697 		 * they are?).
    698 		 */
    699 #ifdef QN_DEBUG
    700 		log(LOG_INFO, "Short packet\n");
    701 #endif
    702 		++sc->sc_ethercom.ec_if.if_ierrors;
    703 	}
    704 	if (rstat & 0x4040) {
    705 #ifdef QN_DEBUG
    706 		log(LOG_INFO, "Bus read error\n");
    707 #endif
    708 		++sc->sc_ethercom.ec_if.if_ierrors;
    709 		qnreset(sc);
    710 	}
    711 
    712 	/*
    713 	 * Read at most MAX_PACKETS packets per interrupt
    714 	 */
    715 	for (i = 0; i < MAX_PACKETS; i++) {
    716 		if (*sc->nic_r_mode & RM_BUF_EMP)
    717 			/* Buffer empty. */
    718 			break;
    719 
    720 		/*
    721 		 * Read the first word: upper byte contains useful
    722 		 * information.
    723 		 */
    724 		status = *sc->nic_fifo;
    725 		if ((status & 0x7000) != 0x2000) {
    726 			log(LOG_INFO, "qn: ERROR: status=%04x\n", status);
    727 			continue;
    728 		}
    729 
    730 		/*
    731 		 * Read packet length (byte-swapped).
    732 		 * CRC is stripped off by the NIC.
    733 		 */
    734 		len = *sc->nic_fifo;
    735 		len = ((len << 8) & 0xff00) | ((len >> 8) & 0x00ff);
    736 
    737 #ifdef QN_CHECKS
    738 		if (len > (ETHER_MAX_LEN - ETHER_CRC_LEN) ||
    739 		    len < ETHER_HDR_LEN) {
    740 			log(LOG_WARNING,
    741 			    "%s: received a %s packet? (%u bytes)\n",
    742 			    sc->sc_dev.dv_xname,
    743 			    len < ETHER_HDR_LEN ? "partial" : "big", len);
    744 			++sc->sc_ethercom.ec_if.if_ierrors;
    745 			continue;
    746 		}
    747 #endif
    748 #ifdef QN_CHECKS
    749 		if (len < (ETHER_MIN_LEN - ETHER_CRC_LEN))
    750 			log(LOG_WARNING,
    751 			    "%s: received a short packet? (%u bytes)\n",
    752 			    sc->sc_dev.dv_xname, len);
    753 #endif
    754 
    755 		/* Read the packet. */
    756 		qn_get_packet(sc, len);
    757 
    758 		++sc->sc_ethercom.ec_if.if_ipackets;
    759 	}
    760 
    761 #ifdef QN_DEBUG
    762 	/* This print just to see whether MAX_PACKETS is large enough. */
    763 	if (i == MAX_PACKETS)
    764 		log(LOG_INFO, "used all the %d loops\n", MAX_PACKETS);
    765 #endif
    766 }
    767 
    768 /*
    769  * Our interrupt routine
    770  */
    771 int
    772 qnintr(arg)
    773 	void *arg;
    774 {
    775 	struct qn_softc *sc = arg;
    776 	u_short tint, rint, tintmask;
    777 	char return_tintmask = 0;
    778 
    779 	/*
    780 	 * If the driver has not been initialized, just return immediately.
    781 	 * This also happens if there is no QuickNet board present.
    782 	 */
    783 	if (sc->sc_base == NULL)
    784 		return (0);
    785 
    786 	/* Get interrupt statuses and masks. */
    787 	rint = (*sc->nic_r_status) & NIC_R_MASK;
    788 	tintmask = *sc->nic_t_mask;
    789 	tint = (*sc->nic_t_status) & tintmask;
    790 	if (tint == 0 && rint == 0)
    791 		return (0);
    792 
    793 	/* Disable interrupts so that we won't miss anything. */
    794 	*sc->nic_r_mask = CLEAR_R_MASK;
    795 	*sc->nic_t_mask = CLEAR_T_MASK;
    796 
    797 	/*
    798 	 * Handle transmitter interrupts. Some of them are not asked for
    799 	 * but do happen, anyway.
    800 	 */
    801 
    802 	if (tint != 0) {
    803 		/* Clear transmit interrupt status. */
    804 		*sc->nic_t_status = CLEAR_T_ERR;
    805 
    806 		if (sc->transmit_pending && (tint & T_TMT_OK)) {
    807 			sc->transmit_pending = 0;
    808 			/*
    809 			 * Update total number of successfully
    810 			 * transmitted packets.
    811 			 */
    812 			sc->sc_ethercom.ec_if.if_opackets++;
    813 		}
    814 
    815 		if (tint & T_SIXTEEN_COL) {
    816 			/*
    817 			 * 16 collision (i.e., packet lost).
    818 			 */
    819 			log(LOG_INFO, "qn: 16 collision - packet lost\n");
    820 #ifdef QN_DEBUG1
    821 			qn_dump(sc);
    822 #endif
    823 			sc->sc_ethercom.ec_if.if_oerrors++;
    824 			sc->sc_ethercom.ec_if.if_collisions += 16;
    825 			sc->transmit_pending = 0;
    826 		}
    827 
    828 		if (sc->transmit_pending) {
    829 			log(LOG_INFO, "qn:still pending...\n");
    830 
    831 			/* Must return transmission interrupt mask. */
    832 			return_tintmask = 1;
    833 		} else {
    834 			sc->sc_ethercom.ec_if.if_flags &= ~IFF_OACTIVE;
    835 
    836 			/* Clear watchdog timer. */
    837 			sc->sc_ethercom.ec_if.if_timer = 0;
    838 		}
    839 	} else
    840 		return_tintmask = 1;
    841 
    842 	/*
    843 	 * Handle receiver interrupts.
    844 	 */
    845 	if (rint != 0)
    846 		qn_rint(sc, rint);
    847 
    848 	if ((sc->sc_ethercom.ec_if.if_flags & IFF_OACTIVE) == 0)
    849 		qnstart(&sc->sc_ethercom.ec_if);
    850 	else if (return_tintmask == 1)
    851 		*sc->nic_t_mask = tintmask;
    852 
    853 	/* Set receive interrupt mask back. */
    854 	*sc->nic_r_mask = NIC_R_MASK;
    855 
    856 	return (1);
    857 }
    858 
    859 /*
    860  * Process an ioctl request. This code needs some work - it looks pretty ugly.
    861  * I somehow think that this is quite a common excuse... ;-)
    862  */
    863 int
    864 qnioctl(ifp, command, data)
    865 	register struct ifnet *ifp;
    866 	u_long command;
    867 	caddr_t data;
    868 {
    869 	struct qn_softc *sc = ifp->if_softc;
    870 	register struct ifaddr *ifa = (struct ifaddr *)data;
    871 #if 0
    872 	struct ifreg *ifr = (struct ifreg *)data;
    873 #endif
    874 	int s, error = 0;
    875 
    876 	s = splnet();
    877 
    878 	switch (command) {
    879 
    880 	case SIOCSIFADDR:
    881 		ifp->if_flags |= IFF_UP;
    882 
    883 		switch (ifa->ifa_addr->sa_family) {
    884 #ifdef INET
    885 		case AF_INET:
    886 			qnstop(sc);
    887 			qninit(sc);
    888 			arp_ifinit(ifp, ifa);
    889 			break;
    890 #endif
    891 #ifdef NS
    892 		case AF_NS:
    893 		    {
    894 			register struct ns_addr *ina = &(IA_SNS(ifa)->sns_addr);
    895 
    896 			if (ns_nullhost(*ina))
    897 				ina->x_host =
    898 				    *(union ns_host *)LLADDR(ifp->if_sadl);
    899 			else
    900 				bcopy(ina->x_host.c_host,
    901 				    LLADDR(ifp->if_sadl), ETHER_ADDR_LEN);
    902 			qnstop(sc);
    903 			qninit(sc);
    904 			break;
    905 		    }
    906 #endif
    907 		default:
    908 			log(LOG_INFO, "qn:sa_family:default (not tested)\n");
    909 			qnstop(sc);
    910 			qninit(sc);
    911 			break;
    912 		}
    913 		break;
    914 
    915 	case SIOCSIFFLAGS:
    916 		if ((ifp->if_flags & IFF_UP) == 0 &&
    917 		    (ifp->if_flags & IFF_RUNNING) != 0) {
    918 			/*
    919 			 * If interface is marked down and it is running, then
    920 			 * stop it.
    921 			 */
    922 #ifdef QN_DEBUG1
    923 			qn_dump(sc);
    924 #endif
    925 			qnstop(sc);
    926 			ifp->if_flags &= ~IFF_RUNNING;
    927 		} else if ((ifp->if_flags & IFF_UP) != 0 &&
    928 			   (ifp->if_flags & IFF_RUNNING) == 0) {
    929 			/*
    930 			 * If interface is marked up and it is stopped, then
    931 			 * start it.
    932 			 */
    933 			qninit(sc);
    934 		} else {
    935 			/*
    936 			 * Something else... we won't do anything so we won't
    937 			 * break anything (hope so).
    938 			 */
    939 #ifdef QN_DEBUG1
    940 			log(LOG_INFO, "Else branch...\n");
    941 #endif
    942 		}
    943 		break;
    944 
    945 	case SIOCADDMULTI:
    946 	case SIOCDELMULTI:
    947 		log(LOG_INFO, "qnioctl: multicast not done yet\n");
    948 #if 0
    949 		error = (command == SIOCADDMULTI) ?
    950 		    ether_addmulti(ifr, &sc->sc_ethercom) :
    951 		    ether_delmulti(ifr, &sc->sc_ethercom);
    952 
    953 		if (error == ENETRESET) {
    954 			/*
    955 			 * Multicast list has changed; set the hardware filter
    956 			 * accordingly.
    957 			 */
    958 			log(LOG_INFO, "qnioctl: multicast not done yet\n");
    959 			error = 0;
    960 		}
    961 #else
    962 		error = EINVAL;
    963 #endif
    964 		break;
    965 
    966 	default:
    967 		log(LOG_INFO, "qnioctl: default\n");
    968 		error = EINVAL;
    969 	}
    970 
    971 	splx(s);
    972 	return (error);
    973 }
    974 
    975 /*
    976  * Dump some register information.
    977  */
    978 #ifdef QN_DEBUG1
    979 static void
    980 qn_dump(sc)
    981 	struct qn_softc *sc;
    982 {
    983 
    984 	log(LOG_INFO, "t_status  : %04x\n", *sc->nic_t_status);
    985 	log(LOG_INFO, "t_mask    : %04x\n", *sc->nic_t_mask);
    986 	log(LOG_INFO, "t_mode    : %04x\n", *sc->nic_t_mode);
    987 	log(LOG_INFO, "r_status  : %04x\n", *sc->nic_r_status);
    988 	log(LOG_INFO, "r_mask    : %04x\n", *sc->nic_r_mask);
    989 	log(LOG_INFO, "r_mode    : %04x\n", *sc->nic_r_mode);
    990 	log(LOG_INFO, "pending   : %02x\n", sc->transmit_pending);
    991 	log(LOG_INFO, "if_flags  : %04x\n", sc->sc_ethercom.ec_if.if_flags);
    992 }
    993 #endif
    994 
    995 #endif /* NQN > 0 */
    996