Home | History | Annotate | Line # | Download | only in dev
if_ae.c revision 1.48
      1  1.48  christos /*	$NetBSD: if_ae.c,v 1.48 1996/10/13 03:21:20 christos Exp $	*/
      2  1.14       cgd 
      3   1.1    briggs /*
      4  1.21    briggs  * Device driver for National Semiconductor DS8390/WD83C690 based ethernet
      5  1.21    briggs  * adapters.
      6   1.1    briggs  *
      7  1.21    briggs  * Copyright (c) 1994, 1995 Charles M. Hannum.  All rights reserved.
      8   1.1    briggs  *
      9  1.21    briggs  * Copyright (C) 1993, David Greenman.  This software may be used, modified,
     10  1.21    briggs  * copied, distributed, and sold, in both source and binary form provided that
     11  1.21    briggs  * the above copyright and these terms are retained.  Under no circumstances is
     12  1.21    briggs  * the author responsible for the proper functioning of this software, nor does
     13  1.21    briggs  * the author assume any responsibility for damages incurred with its use.
     14   1.1    briggs  *
     15  1.21    briggs  * Adapted for MacBSD by Brad Parker <brad (at) fcr.com>.
     16   1.1    briggs  *
     17   1.1    briggs  * Currently supports:
     18   1.1    briggs  *	Apples NB Ethernet card
     19   1.1    briggs  *	Interlan A310 Nubus Ethernet card
     20   1.1    briggs  *	Cayman Systems GatorCard
     21  1.15    briggs  *	Asante MacCon II/E
     22   1.1    briggs  */
     23   1.1    briggs 
     24   1.1    briggs #include "bpfilter.h"
     25   1.1    briggs 
     26   1.9    briggs #include <sys/param.h>
     27  1.22    briggs #include <sys/types.h>
     28   1.9    briggs #include <sys/systm.h>
     29   1.9    briggs #include <sys/errno.h>
     30   1.9    briggs #include <sys/ioctl.h>
     31   1.9    briggs #include <sys/mbuf.h>
     32   1.9    briggs #include <sys/socket.h>
     33   1.9    briggs #include <sys/syslog.h>
     34  1.21    briggs #include <sys/device.h>
     35   1.1    briggs 
     36   1.5    briggs #include <net/if.h>
     37   1.5    briggs #include <net/if_dl.h>
     38   1.5    briggs #include <net/if_types.h>
     39   1.5    briggs #include <net/netisr.h>
     40   1.1    briggs 
     41   1.1    briggs #ifdef INET
     42   1.5    briggs #include <netinet/in.h>
     43   1.5    briggs #include <netinet/in_systm.h>
     44   1.5    briggs #include <netinet/in_var.h>
     45   1.5    briggs #include <netinet/ip.h>
     46   1.5    briggs #include <netinet/if_ether.h>
     47   1.1    briggs #endif
     48   1.1    briggs 
     49   1.1    briggs #ifdef NS
     50   1.5    briggs #include <netns/ns.h>
     51   1.5    briggs #include <netns/ns_if.h>
     52   1.1    briggs #endif
     53   1.1    briggs 
     54   1.1    briggs #if NBPFILTER > 0
     55   1.5    briggs #include <net/bpf.h>
     56   1.5    briggs #include <net/bpfdesc.h>
     57   1.1    briggs #endif
     58   1.1    briggs 
     59  1.42    briggs #include <machine/viareg.h>
     60   1.3    briggs #include "nubus.h"
     61  1.31       cgd #include <dev/ic/dp8390reg.h>
     62   1.1    briggs #include "if_aereg.h"
     63   1.1    briggs 
     64  1.28    briggs #define INTERFACE_NAME_LEN	32
     65  1.28    briggs 
     66   1.1    briggs /*
     67   1.1    briggs  * ae_softc: per line info and status
     68   1.1    briggs  */
     69  1.25    briggs struct ae_softc {
     70  1.28    briggs 	struct device	sc_dev;
     71  1.28    briggs 	nubus_slot	sc_slot;
     72  1.28    briggs /*	struct	intrhand sc_ih;	*/
     73   1.3    briggs 
     74  1.25    briggs 	struct arpcom sc_arpcom;/* ethernet common */
     75   1.1    briggs 
     76  1.28    briggs 	char	type_str[INTERFACE_NAME_LEN];	/* type string */
     77  1.28    briggs 	u_short	type;		/* interface type code */
     78  1.28    briggs 	u_char	vendor;		/* interface vendor */
     79  1.28    briggs 	u_char	regs_rev;	/* registers are reversed */
     80  1.15    briggs 
     81  1.15    briggs #define	REG_MAP(sc, reg)	((sc)->regs_rev ? (0x0f-(reg))<<2 : (reg)<<2)
     82   1.1    briggs #define NIC_GET(sc, reg)	((sc)->nic_addr[REG_MAP(sc, reg)])
     83   1.1    briggs #define NIC_PUT(sc, reg, val)	((sc)->nic_addr[REG_MAP(sc, reg)] = (val))
     84  1.25    briggs 	volatile caddr_t nic_addr;	/* NIC (DS8390) I/O bus address */
     85  1.25    briggs 	caddr_t rom_addr;	/* on board prom address */
     86   1.1    briggs 
     87  1.25    briggs 	u_char  cr_proto;	/* values always set in CR */
     88  1.21    briggs 
     89  1.25    briggs 	caddr_t mem_start;	/* shared memory start address */
     90  1.25    briggs 	caddr_t mem_end;	/* shared memory end address */
     91  1.25    briggs 	u_long  mem_size;	/* total shared memory size */
     92  1.25    briggs 	caddr_t mem_ring;	/* start of RX ring-buffer (in smem) */
     93  1.25    briggs 
     94  1.25    briggs 	u_char  txb_cnt;	/* Number of transmit buffers */
     95  1.34    briggs 	u_char  txb_inuse;	/* number of transmit buffers active */
     96  1.25    briggs 
     97  1.25    briggs 	u_char  txb_new;	/* pointer to where new buffer will be added */
     98  1.25    briggs 	u_char  txb_next_tx;	/* pointer to next buffer ready to xmit */
     99  1.25    briggs 	u_short txb_len[8];	/* buffered xmit buffer lengths */
    100  1.25    briggs 	u_char  tx_page_start;	/* first page of TX buffer area */
    101  1.25    briggs 	u_char  rec_page_start;	/* first page of RX ring-buffer */
    102  1.25    briggs 	u_char  rec_page_stop;	/* last page of RX ring-buffer */
    103  1.25    briggs 	u_char  next_packet;	/* pointer to next unread RX packet */
    104  1.21    briggs };
    105   1.1    briggs 
    106  1.43    briggs static int	ae_id_card __P((nubus_slot *slot, struct ae_softc *sc));
    107  1.43    briggs static int	ae_size_card_memory __P((struct ae_softc *sc));
    108  1.43    briggs 
    109  1.22    briggs int aeprobe __P((struct device *, void *, void *));
    110  1.22    briggs void aeattach __P((struct device *, struct device *, void *));
    111  1.43    briggs void aeintr __P((void *, int));
    112  1.34    briggs int aeioctl __P((struct ifnet *, u_long, caddr_t));
    113  1.34    briggs void aestart __P((struct ifnet *));
    114  1.45   thorpej void aewatchdog __P((struct ifnet *));
    115  1.34    briggs void aereset __P((struct ae_softc *));
    116  1.34    briggs void aeinit __P((struct ae_softc *));
    117  1.34    briggs void aestop __P((struct ae_softc *));
    118  1.34    briggs 
    119  1.34    briggs void aeread __P((struct ae_softc *, caddr_t, int));
    120  1.34    briggs struct mbuf *aeget __P((struct ae_softc *, caddr_t, int));
    121  1.21    briggs 
    122  1.25    briggs #define inline			/* XXX for debugging porpoises */
    123  1.21    briggs 
    124  1.34    briggs u_short ae_put __P((struct ae_softc *, struct mbuf *, caddr_t));
    125  1.34    briggs void ae_getmcaf __P((struct arpcom *, u_char *));
    126  1.34    briggs 
    127  1.21    briggs static inline void ae_rint __P((struct ae_softc *));
    128  1.21    briggs static inline void ae_xmit __P((struct ae_softc *));
    129  1.28    briggs static inline caddr_t ae_ring_copy __P((
    130  1.43    briggs 		struct ae_softc *, caddr_t, caddr_t, int));
    131  1.28    briggs 
    132  1.41   thorpej struct cfattach ae_ca = {
    133  1.41   thorpej 	sizeof(struct ae_softc), aeprobe, aeattach
    134  1.41   thorpej };
    135  1.41   thorpej 
    136  1.41   thorpej struct cfdriver ae_cd = {
    137  1.41   thorpej 	NULL, "ae", DV_IFNET
    138  1.28    briggs };
    139  1.28    briggs 
    140   1.1    briggs #define	ETHER_MIN_LEN	64
    141   1.1    briggs #define ETHER_MAX_LEN	1518
    142   1.1    briggs #define	ETHER_ADDR_LEN	6
    143   1.1    briggs 
    144  1.28    briggs static char zero = 0;
    145   1.8    briggs 
    146  1.12   lkestel /*
    147  1.12   lkestel  * XXX These two should be moved to locore, and maybe changed to use shorts
    148  1.12   lkestel  * instead of bytes.  The reason for these is that bcopy and bzero use longs,
    149  1.12   lkestel  * which the ethernet cards can't handle.
    150  1.12   lkestel  */
    151  1.12   lkestel 
    152  1.43    briggs void			bszero __P((u_short *addr, int len));
    153  1.43    briggs static inline void	word_copy __P((caddr_t a, caddr_t b, int len));
    154  1.43    briggs static inline void	byte_copy __P((caddr_t a, caddr_t b, int len));
    155  1.43    briggs 
    156  1.12   lkestel void
    157  1.25    briggs bszero(u_short * addr, int len)
    158  1.12   lkestel {
    159  1.21    briggs 	while (len--)
    160  1.12   lkestel 		*addr++ = 0;
    161  1.12   lkestel }
    162  1.30    briggs 
    163  1.21    briggs /*
    164  1.21    briggs  * Memory copy, copies word at time.
    165  1.21    briggs  */
    166  1.21    briggs static inline void
    167  1.21    briggs word_copy(a, b, len)
    168  1.21    briggs 	caddr_t a, b;
    169  1.25    briggs 	int     len;
    170  1.12   lkestel {
    171  1.25    briggs 	u_short *x = (u_short *) a, *y = (u_short *) b;
    172  1.12   lkestel 
    173  1.21    briggs 	len >>= 1;
    174  1.21    briggs 	while (len--)
    175  1.21    briggs 		*y++ = *x++;
    176  1.15    briggs }
    177  1.30    briggs 
    178  1.23    briggs /*
    179  1.23    briggs  * Memory copy, copies bytes at time.
    180  1.23    briggs  */
    181  1.23    briggs static inline void
    182  1.23    briggs byte_copy(a, b, len)
    183  1.23    briggs 	caddr_t a, b;
    184  1.25    briggs 	int     len;
    185  1.23    briggs {
    186  1.23    briggs 	while (len--)
    187  1.23    briggs 		*b++ = *a++;
    188  1.23    briggs }
    189  1.23    briggs 
    190  1.28    briggs static int
    191  1.28    briggs ae_id_card(slot, sc)
    192  1.28    briggs 	nubus_slot	*slot;
    193  1.25    briggs 	struct ae_softc *sc;
    194   1.8    briggs {
    195  1.28    briggs 	nubus_dir	dir;
    196  1.28    briggs 	nubus_dirent	dirent;
    197  1.28    briggs 	nubus_type	slottype;
    198  1.28    briggs 
    199  1.28    briggs 	nubus_get_main_dir(slot, &dir);
    200  1.28    briggs 
    201  1.28    briggs 	if (nubus_find_rsrc(slot, &dir, 0x80, &dirent) <= 0)
    202  1.28    briggs 		return 0;
    203  1.28    briggs 
    204  1.28    briggs 	nubus_get_dir_from_rsrc(slot, &dirent, &dir);
    205  1.28    briggs 
    206  1.28    briggs 	if (nubus_find_rsrc(slot, &dir, NUBUS_RSRC_TYPE, &dirent) <= 0)
    207  1.28    briggs 		return 0;
    208  1.28    briggs 
    209  1.28    briggs 	if (nubus_get_ind_data(slot, &dirent,
    210  1.28    briggs 		(caddr_t) &slottype, sizeof(nubus_type)) <= 0)
    211  1.28    briggs 		return 0;
    212  1.28    briggs 
    213  1.28    briggs 	if (slottype.category != NUBUS_CATEGORY_NETWORK)
    214  1.28    briggs 		return 0;
    215   1.8    briggs 
    216  1.28    briggs 	if (slottype.type != NUBUS_TYPE_ETHERNET)
    217  1.28    briggs 		return 0;
    218  1.28    briggs 
    219  1.29    briggs 	switch (slottype.drsw) {
    220  1.28    briggs 	case NUBUS_DRSW_3COM:
    221  1.28    briggs 	case NUBUS_DRSW_APPLE:
    222  1.36    briggs 	case NUBUS_DRSW_TECHWORKS:
    223  1.28    briggs 		sc->vendor = AE_VENDOR_APPLE;
    224  1.28    briggs 		break;
    225  1.28    briggs 	case NUBUS_DRSW_ASANTE:
    226  1.28    briggs 		sc->vendor = AE_VENDOR_ASANTE;
    227  1.28    briggs 		break;
    228  1.33    briggs 	case NUBUS_DRSW_FARALLON:
    229  1.33    briggs 		sc->vendor = AE_VENDOR_FARALLON;
    230  1.33    briggs 		break;
    231  1.38    briggs 	case NUBUS_DRSW_FOCUS:
    232  1.38    briggs 		sc->vendor = AE_VENDOR_FOCUS;
    233  1.38    briggs 		break;
    234  1.29    briggs 	case NUBUS_DRSW_GATOR:
    235  1.29    briggs 		switch (slottype.drhw) {
    236  1.29    briggs 		default:
    237  1.29    briggs 		case NUBUS_DRHW_INTERLAN:
    238  1.29    briggs 			sc->vendor = AE_VENDOR_INTERLAN;
    239  1.29    briggs 			break;
    240  1.29    briggs 		case NUBUS_DRHW_KINETICS:
    241  1.29    briggs 			sc->vendor = AE_VENDOR_DAYNA;
    242  1.29    briggs 			break;
    243  1.29    briggs 		}
    244  1.28    briggs 		break;
    245  1.28    briggs 	default:
    246  1.48  christos 		printf("Unknown ethernet drsw: %x\n", slottype.drsw);
    247  1.28    briggs 		sc->vendor = AE_VENDOR_UNKNOWN;
    248  1.28    briggs 		return 0;
    249   1.8    briggs 	}
    250   1.8    briggs 
    251  1.28    briggs 	strncpy(sc->type_str, nubus_get_card_name(slot), INTERFACE_NAME_LEN);
    252  1.28    briggs 
    253  1.28    briggs 	sc->type_str[INTERFACE_NAME_LEN-1] = '\0';
    254  1.28    briggs 
    255  1.28    briggs 	return 1;
    256  1.15    briggs }
    257  1.15    briggs 
    258  1.43    briggs static int
    259  1.15    briggs ae_size_card_memory(sc)
    260  1.25    briggs 	struct ae_softc *sc;
    261  1.15    briggs {
    262  1.15    briggs 	u_short *p;
    263  1.15    briggs 	u_short i1, i2, i3, i4;
    264  1.21    briggs 
    265  1.25    briggs 	p = (u_short *) sc->mem_start;
    266  1.15    briggs 
    267  1.15    briggs 	/*
    268  1.15    briggs 	 * very simple size memory, assuming it's installed in 8k
    269  1.15    briggs 	 * banks; also assume it will generally mirror in upper banks
    270  1.15    briggs 	 * if not installed.
    271  1.15    briggs 	 */
    272  1.25    briggs 	i1 = (8192 * 0) / 2;
    273  1.25    briggs 	i2 = (8192 * 1) / 2;
    274  1.25    briggs 	i3 = (8192 * 2) / 2;
    275  1.25    briggs 	i4 = (8192 * 3) / 2;
    276  1.21    briggs 
    277  1.15    briggs 	p[i1] = 0x1111;
    278  1.15    briggs 	p[i2] = 0x2222;
    279  1.15    briggs 	p[i3] = 0x3333;
    280  1.15    briggs 	p[i4] = 0x4444;
    281  1.21    briggs 
    282  1.15    briggs 	if (p[i1] == 0x1111 && p[i2] == 0x2222 &&
    283  1.15    briggs 	    p[i3] == 0x3333 && p[i4] == 0x4444)
    284  1.25    briggs 		return 8192 * 4;
    285  1.21    briggs 
    286  1.21    briggs 	if ((p[i1] == 0x1111 && p[i2] == 0x2222) ||
    287  1.21    briggs 	    (p[i1] == 0x3333 && p[i2] == 0x4444))
    288  1.25    briggs 		return 8192 * 2;
    289  1.15    briggs 
    290  1.21    briggs 	if (p[i1] == 0x1111 || p[i1] == 0x4444)
    291  1.21    briggs 		return 8192;
    292  1.15    briggs 
    293  1.21    briggs 	return 0;
    294   1.8    briggs }
    295   1.8    briggs 
    296   1.1    briggs int
    297  1.22    briggs aeprobe(parent, match, aux)
    298  1.21    briggs 	struct device *parent;
    299  1.25    briggs 	void   *match, *aux;
    300   1.1    briggs {
    301  1.21    briggs 	struct ae_softc *sc = match;
    302  1.28    briggs 	nubus_slot *nu = (nubus_slot *) aux;
    303  1.28    briggs 	caddr_t	addr;
    304  1.25    briggs 	int     i, memsize;
    305  1.25    briggs 	int     flags = 0;
    306   1.1    briggs 
    307  1.30    briggs 	if (ae_id_card(nu, sc) <= 0)
    308   1.3    briggs 		return 0;
    309   1.3    briggs 
    310  1.15    briggs 	sc->regs_rev = 0;
    311  1.15    briggs 
    312  1.44    briggs 	addr = (caddr_t) nu->virtual_base;
    313  1.28    briggs 
    314   1.1    briggs 	switch (sc->vendor) {
    315  1.25    briggs 	case AE_VENDOR_INTERLAN:
    316  1.28    briggs 		sc->nic_addr = addr + GC_NIC_OFFSET;
    317  1.28    briggs 		sc->rom_addr = addr + GC_ROM_OFFSET;
    318  1.28    briggs 		sc->mem_start = addr + GC_DATA_OFFSET;
    319  1.46    briggs 		if ((memsize = ae_size_card_memory(sc)) == 0) {
    320  1.48  christos 			printf("Failed to determine size of RAM.\n");
    321  1.15    briggs 			return 0;
    322  1.46    briggs 		}
    323   1.1    briggs 
    324   1.1    briggs 		/* reset the NIC chip */
    325  1.28    briggs 		*((caddr_t) addr + GC_RESET_OFFSET) = (char) zero;
    326  1.21    briggs 
    327   1.1    briggs 		/* Get station address from on-board ROM */
    328   1.1    briggs 		for (i = 0; i < ETHER_ADDR_LEN; ++i)
    329  1.25    briggs 			sc->sc_arpcom.ac_enaddr[i] = *(sc->rom_addr + i * 4);
    330   1.1    briggs 		break;
    331   1.1    briggs 
    332  1.34    briggs 		/* apple-compatible cards */
    333  1.25    briggs 	case AE_VENDOR_ASANTE:
    334  1.25    briggs 	case AE_VENDOR_APPLE:
    335  1.15    briggs 		sc->regs_rev = 1;
    336  1.28    briggs 		sc->nic_addr = addr + AE_NIC_OFFSET;
    337  1.28    briggs 		sc->rom_addr = addr + AE_ROM_OFFSET;
    338  1.28    briggs 		sc->mem_start = addr + AE_DATA_OFFSET;
    339  1.46    briggs 		if ((memsize = ae_size_card_memory(sc)) == 0) {
    340  1.48  christos 			printf("Failed to determine size of RAM.\n");
    341  1.21    briggs 			return (0);
    342  1.46    briggs 		}
    343   1.1    briggs 
    344   1.1    briggs 		/* Get station address from on-board ROM */
    345   1.1    briggs 		for (i = 0; i < ETHER_ADDR_LEN; ++i)
    346  1.25    briggs 			sc->sc_arpcom.ac_enaddr[i] = *(sc->rom_addr + i * 2);
    347   1.1    briggs 		break;
    348   1.8    briggs 
    349  1.25    briggs 	case AE_VENDOR_DAYNA:
    350  1.48  christos 		printf("We think we are a Dayna card, but ");
    351  1.28    briggs 		sc->nic_addr = addr + DP_NIC_OFFSET;
    352  1.28    briggs 		sc->rom_addr = addr + DP_ROM_OFFSET;
    353  1.28    briggs 		sc->mem_start = addr + DP_DATA_OFFSET;
    354   1.8    briggs 		memsize = 8192;
    355   1.8    briggs 
    356   1.8    briggs 		/* Get station address from on-board ROM */
    357   1.8    briggs 		for (i = 0; i < ETHER_ADDR_LEN; ++i)
    358  1.25    briggs 			sc->sc_arpcom.ac_enaddr[i] = *(sc->rom_addr + i * 2);
    359  1.48  christos 		printf("it is dangerous to continue.\n");
    360  1.25    briggs 		return (0);	/* Since we don't work yet... */
    361  1.33    briggs 		break;
    362  1.33    briggs 
    363  1.33    briggs 	case AE_VENDOR_FARALLON:
    364  1.33    briggs 		sc->regs_rev = 1;
    365  1.33    briggs 		sc->rom_addr = addr + FE_ROM_OFFSET;
    366  1.33    briggs 		sc->nic_addr = addr + AE_NIC_OFFSET;
    367  1.33    briggs 		sc->mem_start = addr + AE_DATA_OFFSET;
    368  1.46    briggs 		if ((memsize = ae_size_card_memory(sc)) == 0) {
    369  1.48  christos 			printf("Failed to determine size of RAM.\n");
    370  1.33    briggs 			return (0);
    371  1.46    briggs 		}
    372  1.33    briggs 
    373  1.33    briggs 		/* Get station address from on-board ROM */
    374  1.33    briggs 		for (i = 0; i < ETHER_ADDR_LEN; ++i)
    375  1.33    briggs 			sc->sc_arpcom.ac_enaddr[i] = *(sc->rom_addr + i);
    376   1.8    briggs 		break;
    377   1.8    briggs 
    378  1.38    briggs 	case AE_VENDOR_FOCUS:
    379  1.48  christos 		printf("Focus EtherLAN card detected, but not supported.\n");
    380  1.25    briggs 	default:
    381  1.21    briggs 		return (0);
    382   1.8    briggs 		break;
    383   1.1    briggs 	}
    384   1.7    briggs 
    385  1.22    briggs 	sc->cr_proto = ED_CR_RD2;
    386  1.21    briggs 
    387  1.21    briggs 	/* Allocate one xmit buffer if < 16k, two buffers otherwise. */
    388  1.21    briggs 	if ((memsize < 16384) || (flags & AE_FLAGS_NO_DOUBLE_BUFFERING))
    389   1.1    briggs 		sc->txb_cnt = 1;
    390  1.21    briggs 	else
    391   1.1    briggs 		sc->txb_cnt = 2;
    392   1.1    briggs 
    393   1.1    briggs 	sc->tx_page_start = 0;
    394  1.22    briggs 	sc->rec_page_start = sc->tx_page_start + sc->txb_cnt * ED_TXBUF_SIZE;
    395  1.22    briggs 	sc->rec_page_stop = sc->tx_page_start + (memsize >> ED_PAGE_SHIFT);
    396  1.22    briggs 	sc->mem_ring = sc->mem_start + (sc->rec_page_start << ED_PAGE_SHIFT);
    397  1.21    briggs 	sc->mem_size = memsize;
    398  1.21    briggs 	sc->mem_end = sc->mem_start + memsize;
    399   1.1    briggs 
    400  1.21    briggs 	/* Now zero memory and verify that it is clear. */
    401  1.25    briggs 	bszero((u_short *) sc->mem_start, memsize / 2);
    402   1.1    briggs 
    403   1.1    briggs 	for (i = 0; i < memsize; ++i)
    404  1.21    briggs 		if (sc->mem_start[i]) {
    405  1.48  christos printf("%s: failed to clear shared memory at %p - check configuration\n",
    406  1.21    briggs 			    sc->sc_dev.dv_xname,
    407  1.21    briggs 			    sc->mem_start + i);
    408  1.21    briggs 			return (0);
    409   1.1    briggs 		}
    410  1.28    briggs 
    411  1.28    briggs 	bcopy(nu, &sc->sc_slot, sizeof(nubus_slot));
    412  1.30    briggs 
    413  1.21    briggs 	return (1);
    414  1.21    briggs }
    415  1.30    briggs 
    416   1.1    briggs /*
    417   1.1    briggs  * Install interface into kernel networking data structures
    418   1.1    briggs  */
    419   1.9    briggs void
    420  1.22    briggs aeattach(parent, self, aux)
    421  1.22    briggs 	struct device *parent, *self;
    422  1.25    briggs 	void   *aux;
    423   1.1    briggs {
    424  1.25    briggs 	struct ae_softc *sc = (void *) self;
    425  1.21    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
    426   1.3    briggs 
    427  1.21    briggs 	/* Set interface to stopped condition (reset). */
    428  1.34    briggs 	aestop(sc);
    429   1.1    briggs 
    430  1.21    briggs 	/* Initialize ifnet structure. */
    431  1.45   thorpej 	bcopy(sc->sc_dev.dv_xname, ifp->if_xname, IFNAMSIZ);
    432  1.45   thorpej 	ifp->if_softc = sc;
    433  1.34    briggs 	ifp->if_start = aestart;
    434  1.34    briggs 	ifp->if_ioctl = aeioctl;
    435  1.34    briggs 	ifp->if_watchdog = aewatchdog;
    436  1.21    briggs 	ifp->if_flags =
    437  1.21    briggs 	    IFF_BROADCAST | IFF_SIMPLEX | IFF_NOTRAILERS | IFF_MULTICAST;
    438   1.3    briggs 
    439  1.21    briggs 	/* Attach the interface. */
    440   1.1    briggs 	if_attach(ifp);
    441  1.21    briggs 	ether_ifattach(ifp);
    442   1.1    briggs 
    443  1.21    briggs 	/* Print additional info when attached. */
    444  1.48  christos 	printf(": address %s, ", ether_sprintf(sc->sc_arpcom.ac_enaddr));
    445   1.1    briggs 
    446  1.48  christos 	printf("type %s, %ldk mem.\n", sc->type_str, sc->mem_size / 1024);
    447   1.1    briggs 
    448   1.1    briggs #if NBPFILTER > 0
    449  1.21    briggs 	bpfattach(&ifp->if_bpf, ifp, DLT_EN10MB, sizeof(struct ether_header));
    450   1.1    briggs #endif
    451  1.21    briggs 
    452  1.21    briggs 	/* make sure interrupts are vectored to us */
    453  1.28    briggs 	add_nubus_intr(sc->sc_slot.slot, aeintr, sc);
    454  1.26    briggs 
    455  1.26    briggs 	/*
    456  1.26    briggs 	 * XXX -- enable nubus interrupts here.  Should be done elsewhere,
    457  1.26    briggs 	 *        but that currently breaks with some nubus video cards'
    458  1.26    briggs 	 *	  interrupts.  So we only enable nubus interrupts if we
    459  1.26    briggs 	 *	  have an ethernet card...  i.e., we do it here.
    460  1.26    briggs 	 */
    461  1.26    briggs 	enable_nubus_intr();
    462   1.3    briggs }
    463  1.34    briggs 
    464   1.1    briggs /*
    465   1.1    briggs  * Reset interface.
    466   1.1    briggs  */
    467  1.21    briggs void
    468  1.34    briggs aereset(sc)
    469   1.3    briggs 	struct ae_softc *sc;
    470   1.1    briggs {
    471  1.25    briggs 	int     s;
    472   1.1    briggs 
    473  1.37   mycroft 	s = splnet();
    474  1.34    briggs 	aestop(sc);
    475  1.34    briggs 	aeinit(sc);
    476  1.21    briggs 	splx(s);
    477  1.21    briggs }
    478  1.34    briggs 
    479   1.1    briggs /*
    480   1.1    briggs  * Take interface offline.
    481   1.1    briggs  */
    482   1.1    briggs void
    483  1.34    briggs aestop(sc)
    484   1.3    briggs 	struct ae_softc *sc;
    485   1.1    briggs {
    486  1.25    briggs 	int     n = 5000;
    487   1.1    briggs 
    488  1.21    briggs 	/* Stop everything on the interface, and select page 0 registers. */
    489  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STP);
    490   1.1    briggs 
    491   1.1    briggs 	/*
    492  1.21    briggs 	 * Wait for interface to enter stopped state, but limit # of checks to
    493  1.21    briggs 	 * 'n' (about 5ms).  It shouldn't even take 5us on modern DS8390's, but
    494  1.21    briggs 	 * just in case it's an old one.
    495   1.1    briggs 	 */
    496  1.22    briggs 	while (((NIC_GET(sc, ED_P0_ISR) & ED_ISR_RST) == 0) && --n);
    497   1.1    briggs }
    498  1.34    briggs 
    499   1.1    briggs /*
    500  1.21    briggs  * Device timeout/watchdog routine.  Entered if the device neglects to generate
    501  1.21    briggs  * an interrupt after a transmit has been started on it.
    502   1.1    briggs  */
    503  1.25    briggs static int aeintr_ctr = 0;
    504  1.43    briggs 
    505  1.20    briggs void
    506  1.45   thorpej aewatchdog(ifp)
    507  1.45   thorpej 	struct ifnet *ifp;
    508   1.1    briggs {
    509  1.45   thorpej 	struct ae_softc *sc = ifp->if_softc;
    510  1.15    briggs 
    511  1.18    briggs #if 1
    512  1.18    briggs /*
    513  1.18    briggs  * This is a kludge!  The via code seems to miss slot interrupts
    514  1.18    briggs  * sometimes.  This kludges around that by calling the handler
    515  1.18    briggs  * by hand if the watchdog is activated. -- XXX (akb)
    516  1.18    briggs  */
    517  1.25    briggs 	int     i;
    518  1.18    briggs 
    519  1.18    briggs 	i = aeintr_ctr;
    520  1.18    briggs 
    521  1.43    briggs 	(*via2itab[1]) ((void *) 1);
    522  1.18    briggs 
    523  1.19    briggs 	if (i != aeintr_ctr) {
    524  1.45   thorpej 		log(LOG_ERR, "%s: device timeout, recovered\n",
    525  1.45   thorpej 		    sc->sc_dev.dv_xname);
    526  1.18    briggs 		return;
    527  1.19    briggs 	}
    528  1.18    briggs #endif
    529  1.18    briggs 
    530  1.21    briggs 	log(LOG_ERR, "%s: device timeout\n", sc->sc_dev.dv_xname);
    531  1.21    briggs 	++sc->sc_arpcom.ac_if.if_oerrors;
    532  1.21    briggs 
    533  1.34    briggs 	aereset(sc);
    534   1.1    briggs }
    535  1.34    briggs 
    536   1.1    briggs /*
    537  1.21    briggs  * Initialize device.
    538   1.1    briggs  */
    539  1.21    briggs void
    540  1.34    briggs aeinit(sc)
    541   1.3    briggs 	struct ae_softc *sc;
    542   1.1    briggs {
    543  1.21    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
    544  1.34    briggs 	int     i;
    545  1.27    briggs 	u_char  mcaf[8];
    546   1.1    briggs 
    547   1.1    briggs 	/*
    548   1.1    briggs 	 * Initialize the NIC in the exact order outlined in the NS manual.
    549  1.21    briggs 	 * This init procedure is "mandatory"...don't change what or when
    550  1.21    briggs 	 * things happen.
    551   1.1    briggs 	 */
    552   1.1    briggs 
    553  1.21    briggs 	/* Reset transmitter flags. */
    554  1.34    briggs 	ifp->if_timer = 0;
    555   1.1    briggs 
    556  1.21    briggs 	sc->txb_inuse = 0;
    557  1.21    briggs 	sc->txb_new = 0;
    558  1.21    briggs 	sc->txb_next_tx = 0;
    559   1.1    briggs 
    560  1.21    briggs 	/* Set interface for page 0, remote DMA complete, stopped. */
    561  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STP);
    562   1.1    briggs 
    563   1.1    briggs 	/*
    564  1.21    briggs 	 * Set FIFO threshold to 8, No auto-init Remote DMA, byte
    565  1.21    briggs 	 * order=80x86, word-wide DMA xfers,
    566   1.1    briggs 	 */
    567  1.22    briggs 	NIC_PUT(sc, ED_P0_DCR,
    568  1.22    briggs 	    ED_DCR_FT1 | ED_DCR_WTS | ED_DCR_LS);
    569   1.1    briggs 
    570  1.21    briggs 	/* Clear remote byte count registers. */
    571  1.22    briggs 	NIC_PUT(sc, ED_P0_RBCR0, 0);
    572  1.22    briggs 	NIC_PUT(sc, ED_P0_RBCR1, 0);
    573   1.1    briggs 
    574  1.21    briggs 	/* Tell RCR to do nothing for now. */
    575  1.22    briggs 	NIC_PUT(sc, ED_P0_RCR, ED_RCR_MON);
    576   1.1    briggs 
    577  1.21    briggs 	/* Place NIC in internal loopback mode. */
    578  1.22    briggs 	NIC_PUT(sc, ED_P0_TCR, ED_TCR_LB0);
    579   1.1    briggs 
    580  1.21    briggs 	/* Initialize receive buffer ring. */
    581  1.23    briggs 	NIC_PUT(sc, ED_P0_TPSR, sc->rec_page_start);
    582  1.22    briggs 	NIC_PUT(sc, ED_P0_PSTART, sc->rec_page_start);
    583  1.27    briggs 
    584  1.22    briggs 	NIC_PUT(sc, ED_P0_PSTOP, sc->rec_page_stop);
    585  1.27    briggs 	NIC_PUT(sc, ED_P0_BNRY, sc->rec_page_start);
    586   1.1    briggs 
    587   1.1    briggs 	/*
    588  1.21    briggs 	 * Clear all interrupts.  A '1' in each bit position clears the
    589  1.21    briggs 	 * corresponding flag.
    590   1.1    briggs 	 */
    591  1.22    briggs 	NIC_PUT(sc, ED_P0_ISR, 0xff);
    592  1.15    briggs 
    593   1.1    briggs 	/*
    594   1.1    briggs 	 * Enable the following interrupts: receive/transmit complete,
    595  1.21    briggs 	 * receive/transmit error, and Receiver OverWrite.
    596   1.1    briggs 	 *
    597   1.1    briggs 	 * Counter overflow and Remote DMA complete are *not* enabled.
    598   1.1    briggs 	 */
    599  1.22    briggs 	NIC_PUT(sc, ED_P0_IMR,
    600  1.22    briggs 	    ED_IMR_PRXE | ED_IMR_PTXE | ED_IMR_RXEE | ED_IMR_TXEE |
    601  1.22    briggs 	    ED_IMR_OVWE);
    602   1.1    briggs 
    603  1.21    briggs 	/* Program command register for page 1. */
    604  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_1 | ED_CR_STP);
    605   1.1    briggs 
    606  1.21    briggs 	/* Copy out our station address. */
    607   1.1    briggs 	for (i = 0; i < ETHER_ADDR_LEN; ++i)
    608  1.22    briggs 		NIC_PUT(sc, ED_P1_PAR0 + i, sc->sc_arpcom.ac_enaddr[i]);
    609   1.1    briggs 
    610  1.21    briggs 	/* Set multicast filter on chip. */
    611  1.21    briggs 	ae_getmcaf(&sc->sc_arpcom, mcaf);
    612  1.21    briggs 	for (i = 0; i < 8; i++)
    613  1.27    briggs 		NIC_PUT(sc, ED_P1_MAR0 + i, mcaf[i]);
    614   1.1    briggs 
    615   1.1    briggs 	/*
    616  1.21    briggs 	 * Set current page pointer to one page after the boundary pointer, as
    617  1.21    briggs 	 * recommended in the National manual.
    618   1.1    briggs 	 */
    619  1.21    briggs 	sc->next_packet = sc->rec_page_start + 1;
    620  1.22    briggs 	NIC_PUT(sc, ED_P1_CURR, sc->next_packet);
    621   1.1    briggs 
    622  1.21    briggs 	/* Program command register for page 0. */
    623  1.22    briggs 	NIC_PUT(sc, ED_P1_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STP);
    624  1.21    briggs 
    625  1.22    briggs 	i = ED_RCR_AB | ED_RCR_AM;
    626  1.21    briggs 	if (ifp->if_flags & IFF_PROMISC) {
    627  1.21    briggs 		/*
    628  1.21    briggs 		 * Set promiscuous mode.  Multicast filter was set earlier so
    629  1.21    briggs 		 * that we should receive all multicast packets.
    630  1.21    briggs 		 */
    631  1.22    briggs 		i |= ED_RCR_PRO | ED_RCR_AR | ED_RCR_SEP;
    632  1.21    briggs 	}
    633  1.22    briggs 	NIC_PUT(sc, ED_P0_RCR, i);
    634  1.21    briggs 
    635  1.21    briggs 	/* Take interface out of loopback. */
    636  1.22    briggs 	NIC_PUT(sc, ED_P0_TCR, 0);
    637   1.1    briggs 
    638  1.21    briggs 	/* Fire up the interface. */
    639  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STA);
    640   1.1    briggs 
    641  1.21    briggs 	/* Set 'running' flag, and clear output active flag. */
    642   1.1    briggs 	ifp->if_flags |= IFF_RUNNING;
    643   1.1    briggs 	ifp->if_flags &= ~IFF_OACTIVE;
    644   1.1    briggs 
    645  1.21    briggs 	/* ...and attempt to start output. */
    646  1.34    briggs 	aestart(ifp);
    647  1.34    briggs }
    648   1.1    briggs 
    649   1.1    briggs /*
    650  1.21    briggs  * This routine actually starts the transmission on the interface.
    651   1.1    briggs  */
    652  1.21    briggs static inline void
    653  1.21    briggs ae_xmit(sc)
    654  1.21    briggs 	struct ae_softc *sc;
    655   1.1    briggs {
    656  1.21    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
    657  1.21    briggs 	u_short len;
    658  1.21    briggs 
    659  1.21    briggs 	len = sc->txb_len[sc->txb_next_tx];
    660   1.1    briggs 
    661  1.21    briggs 	/* Set NIC for page 0 register access. */
    662  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STA);
    663   1.1    briggs 
    664  1.21    briggs 	/* Set TX buffer start page. */
    665  1.22    briggs 	NIC_PUT(sc, ED_P0_TPSR, sc->tx_page_start +
    666  1.22    briggs 	    sc->txb_next_tx * ED_TXBUF_SIZE);
    667   1.1    briggs 
    668  1.21    briggs 	/* Set TX length. */
    669  1.22    briggs 	NIC_PUT(sc, ED_P0_TBCR0, len);
    670  1.22    briggs 	NIC_PUT(sc, ED_P0_TBCR1, len >> 8);
    671   1.1    briggs 
    672  1.21    briggs 	/* Set page 0, remote DMA complete, transmit packet, and *start*. */
    673  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_TXP | ED_CR_STA);
    674   1.1    briggs 
    675  1.21    briggs 	/* Point to next transmit buffer slot and wrap if necessary. */
    676  1.21    briggs 	sc->txb_next_tx++;
    677  1.21    briggs 	if (sc->txb_next_tx == sc->txb_cnt)
    678  1.21    briggs 		sc->txb_next_tx = 0;
    679   1.1    briggs 
    680  1.21    briggs 	/* Set a timer just in case we never hear from the board again. */
    681  1.18    briggs 	ifp->if_timer = 2;
    682   1.1    briggs }
    683  1.34    briggs 
    684   1.1    briggs /*
    685   1.1    briggs  * Start output on interface.
    686   1.1    briggs  * We make two assumptions here:
    687  1.37   mycroft  *  1) that the current priority is set to splnet _before_ this code
    688   1.1    briggs  *     is called *and* is returned to the appropriate priority after
    689   1.1    briggs  *     return
    690   1.1    briggs  *  2) that the IFF_OACTIVE flag is checked before this code is called
    691   1.1    briggs  *     (i.e. that the output part of the interface is idle)
    692   1.1    briggs  */
    693  1.20    briggs void
    694  1.34    briggs aestart(ifp)
    695   1.1    briggs 	struct ifnet *ifp;
    696   1.1    briggs {
    697  1.45   thorpej 	struct ae_softc *sc = ifp->if_softc;
    698  1.34    briggs 	struct mbuf *m0;
    699   1.1    briggs 	caddr_t buffer;
    700  1.25    briggs 	int     len;
    701   1.1    briggs 
    702  1.34    briggs 	if ((ifp->if_flags & (IFF_RUNNING | IFF_OACTIVE)) != IFF_RUNNING)
    703  1.34    briggs 		return;
    704  1.34    briggs 
    705   1.1    briggs outloop:
    706  1.21    briggs 	/* See if there is room to put another packet in the buffer. */
    707  1.21    briggs 	if (sc->txb_inuse == sc->txb_cnt) {
    708  1.21    briggs 		/* No room.  Indicate this to the outside world and exit. */
    709  1.21    briggs 		ifp->if_flags |= IFF_OACTIVE;
    710  1.21    briggs 		return;
    711  1.21    briggs 	}
    712  1.34    briggs 	IF_DEQUEUE(&ifp->if_snd, m0);
    713  1.34    briggs 	if (m0 == 0)
    714   1.1    briggs 		return;
    715  1.34    briggs 
    716  1.34    briggs 	/* We need to use m->m_pkthdr.len, so require the header */
    717  1.34    briggs 	if ((m0->m_flags & M_PKTHDR) == 0)
    718  1.34    briggs 		panic("aestart: no header mbuf");
    719  1.34    briggs 
    720  1.34    briggs #if NBPFILTER > 0
    721  1.34    briggs 	/* Tap off here if there is a BPF listener. */
    722  1.34    briggs 	if (ifp->if_bpf)
    723  1.34    briggs 		bpf_mtap(ifp->if_bpf, m0);
    724  1.34    briggs #endif
    725  1.21    briggs 
    726  1.21    briggs 	/* txb_new points to next open buffer slot. */
    727  1.22    briggs 	buffer = sc->mem_start + ((sc->txb_new * ED_TXBUF_SIZE) << ED_PAGE_SHIFT);
    728  1.21    briggs 
    729  1.34    briggs 	len = ae_put(sc, m0, buffer);
    730  1.34    briggs #if DIAGNOSTIC
    731  1.34    briggs 	if (len != m0->m_pkthdr.len)
    732  1.48  christos 		printf("aestart: len %d != m0->m_pkthdr.len %d.\n",
    733  1.34    briggs 			len, m0->m_pkthdr.len);
    734  1.34    briggs #endif
    735  1.34    briggs 	len = m0->m_pkthdr.len;
    736   1.1    briggs 
    737  1.34    briggs 	m_freem(m0);
    738  1.21    briggs 	sc->txb_len[sc->txb_new] = max(len, ETHER_MIN_LEN);
    739  1.34    briggs 
    740  1.34    briggs 	/* Start the first packet transmitting. */
    741  1.34    briggs 	if (sc->txb_inuse == 0)
    742  1.34    briggs 		ae_xmit(sc);
    743   1.1    briggs 
    744  1.21    briggs 	/* Point to next buffer slot and wrap if necessary. */
    745  1.21    briggs 	if (++sc->txb_new == sc->txb_cnt)
    746  1.21    briggs 		sc->txb_new = 0;
    747   1.1    briggs 
    748  1.34    briggs 	sc->txb_inuse++;
    749   1.1    briggs 
    750  1.21    briggs 	/* Loop back to the top to possibly buffer more packets. */
    751  1.21    briggs 	goto outloop;
    752   1.1    briggs }
    753  1.34    briggs 
    754   1.1    briggs /*
    755   1.1    briggs  * Ethernet interface receiver interrupt.
    756   1.1    briggs  */
    757   1.1    briggs static inline void
    758  1.21    briggs ae_rint(sc)
    759  1.21    briggs 	struct ae_softc *sc;
    760   1.1    briggs {
    761  1.25    briggs 	u_char  boundary, current;
    762  1.22    briggs 	u_short len;
    763  1.34    briggs 	u_char  nlen, *lenp;
    764  1.24    briggs 	struct ae_ring packet_hdr;
    765  1.34    briggs 	caddr_t packet_ptr;
    766  1.21    briggs 
    767  1.21    briggs loop:
    768  1.21    briggs 	/* Set NIC to page 1 registers to get 'current' pointer. */
    769  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_1 | ED_CR_STA);
    770   1.1    briggs 
    771   1.1    briggs 	/*
    772   1.1    briggs 	 * 'sc->next_packet' is the logical beginning of the ring-buffer - i.e.
    773  1.21    briggs 	 * it points to where new data has been buffered.  The 'CURR' (current)
    774  1.21    briggs 	 * register points to the logical end of the ring-buffer - i.e. it
    775  1.21    briggs 	 * points to where additional new data will be added.  We loop here
    776  1.21    briggs 	 * until the logical beginning equals the logical end (or in other
    777  1.21    briggs 	 * words, until the ring-buffer is empty).
    778   1.1    briggs 	 */
    779  1.22    briggs 	current = NIC_GET(sc, ED_P1_CURR);
    780  1.21    briggs 	if (sc->next_packet == current)
    781  1.21    briggs 		return;
    782   1.1    briggs 
    783  1.21    briggs 	/* Set NIC to page 0 registers to update boundary register. */
    784  1.22    briggs 	NIC_PUT(sc, ED_P1_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STA);
    785   1.1    briggs 
    786  1.21    briggs 	do {
    787  1.21    briggs 		/* Get pointer to this buffer's header structure. */
    788  1.21    briggs 		packet_ptr = sc->mem_ring +
    789  1.22    briggs 		    ((sc->next_packet - sc->rec_page_start) << ED_PAGE_SHIFT);
    790   1.1    briggs 
    791   1.1    briggs 		/*
    792  1.21    briggs 		 * The byte count includes a 4 byte header that was added by
    793  1.21    briggs 		 * the NIC.
    794   1.1    briggs 		 */
    795  1.25    briggs 		packet_hdr = *(struct ae_ring *) packet_ptr;
    796  1.34    briggs 		lenp = (u_char *) &((struct ae_ring *) packet_ptr)->count;
    797  1.34    briggs 		len = lenp[0] | (lenp[1] << 8);
    798  1.34    briggs 		packet_hdr.count = len;
    799   1.1    briggs 
    800   1.1    briggs 		/*
    801  1.21    briggs 		 * Try do deal with old, buggy chips that sometimes duplicate
    802  1.21    briggs 		 * the low byte of the length into the high byte.  We do this
    803  1.21    briggs 		 * by simply ignoring the high byte of the length and always
    804  1.21    briggs 		 * recalculating it.
    805  1.21    briggs 		 *
    806  1.21    briggs 		 * NOTE: sc->next_packet is pointing at the current packet.
    807   1.1    briggs 		 */
    808  1.21    briggs 		if (packet_hdr.next_packet >= sc->next_packet)
    809  1.21    briggs 			nlen = (packet_hdr.next_packet - sc->next_packet);
    810  1.21    briggs 		else
    811  1.21    briggs 			nlen = ((packet_hdr.next_packet - sc->rec_page_start) +
    812  1.25    briggs 			    (sc->rec_page_stop - sc->next_packet));
    813  1.21    briggs 		--nlen;
    814  1.22    briggs 		if ((len & ED_PAGE_MASK) + sizeof(packet_hdr) > ED_PAGE_SIZE)
    815  1.21    briggs 			--nlen;
    816  1.22    briggs 		len = (len & ED_PAGE_MASK) | (nlen << ED_PAGE_SHIFT);
    817  1.21    briggs #ifdef DIAGNOSTIC
    818  1.22    briggs 		if (len != packet_hdr.count) {
    819  1.48  christos 			printf("%s: length does not match next packet pointer\n",
    820  1.21    briggs 			    sc->sc_dev.dv_xname);
    821  1.48  christos 			printf("%s: len %04x nlen %04x start %02x first %02x curr %02x next %02x stop %02x\n",
    822  1.21    briggs 			    sc->sc_dev.dv_xname, packet_hdr.count, len,
    823  1.21    briggs 			    sc->rec_page_start, sc->next_packet, current,
    824  1.21    briggs 			    packet_hdr.next_packet, sc->rec_page_stop);
    825  1.21    briggs 		}
    826  1.21    briggs #endif
    827   1.1    briggs 
    828   1.1    briggs 		/*
    829  1.21    briggs 		 * Be fairly liberal about what we allow as a "reasonable"
    830  1.21    briggs 		 * length so that a [crufty] packet will make it to BPF (and
    831  1.21    briggs 		 * can thus be analyzed).  Note that all that is really
    832  1.21    briggs 		 * important is that we have a length that will fit into one
    833  1.21    briggs 		 * mbuf cluster or less; the upper layer protocols can then
    834  1.21    briggs 		 * figure out the length from their own length field(s).
    835   1.1    briggs 		 */
    836  1.21    briggs 		if (len <= MCLBYTES &&
    837  1.21    briggs 		    packet_hdr.next_packet >= sc->rec_page_start &&
    838  1.21    briggs 		    packet_hdr.next_packet < sc->rec_page_stop) {
    839  1.21    briggs 			/* Go get packet. */
    840  1.34    briggs 			aeread(sc, packet_ptr + sizeof(struct ae_ring),
    841  1.24    briggs 			    len - sizeof(struct ae_ring));
    842  1.21    briggs 			++sc->sc_arpcom.ac_if.if_ipackets;
    843  1.21    briggs 		} else {
    844  1.21    briggs 			/* Really BAD.  The ring pointers are corrupted. */
    845  1.21    briggs 			log(LOG_ERR,
    846  1.21    briggs 			    "%s: NIC memory corrupt - invalid packet length %d\n",
    847  1.21    briggs 			    sc->sc_dev.dv_xname, len);
    848  1.21    briggs 			++sc->sc_arpcom.ac_if.if_ierrors;
    849  1.34    briggs 			aereset(sc);
    850  1.21    briggs 			return;
    851  1.21    briggs 		}
    852   1.1    briggs 
    853  1.21    briggs 		/* Update next packet pointer. */
    854  1.21    briggs 		sc->next_packet = packet_hdr.next_packet;
    855   1.1    briggs 
    856   1.1    briggs 		/*
    857  1.21    briggs 		 * Update NIC boundary pointer - being careful to keep it one
    858  1.21    briggs 		 * buffer behind (as recommended by NS databook).
    859   1.1    briggs 		 */
    860  1.21    briggs 		boundary = sc->next_packet - 1;
    861  1.21    briggs 		if (boundary < sc->rec_page_start)
    862  1.21    briggs 			boundary = sc->rec_page_stop - 1;
    863  1.22    briggs 		NIC_PUT(sc, ED_P0_BNRY, boundary);
    864  1.21    briggs 	} while (sc->next_packet != current);
    865  1.21    briggs 
    866  1.21    briggs 	goto loop;
    867   1.1    briggs }
    868  1.34    briggs 
    869  1.21    briggs /* Ethernet interface interrupt processor. */
    870  1.22    briggs void
    871  1.43    briggs aeintr(arg, slot)
    872  1.43    briggs 	void	*arg;
    873  1.43    briggs 	int	slot;
    874   1.1    briggs {
    875  1.34    briggs 	struct ae_softc *sc = arg;
    876  1.34    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
    877  1.25    briggs 	u_char  isr;
    878   1.1    briggs 
    879  1.18    briggs 	aeintr_ctr++;
    880   1.1    briggs 
    881  1.21    briggs 	/* Set NIC to page 0 registers. */
    882  1.22    briggs 	NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STA);
    883  1.21    briggs 
    884  1.22    briggs 	isr = NIC_GET(sc, ED_P0_ISR);
    885  1.21    briggs 	if (!isr)
    886  1.22    briggs 		return;
    887   1.1    briggs 
    888  1.21    briggs 	/* Loop until there are no more new interrupts. */
    889  1.21    briggs 	for (;;) {
    890   1.1    briggs 		/*
    891  1.21    briggs 		 * Reset all the bits that we are 'acknowledging' by writing a
    892  1.21    briggs 		 * '1' to each bit position that was set.
    893  1.21    briggs 		 * (Writing a '1' *clears* the bit.)
    894   1.1    briggs 		 */
    895  1.22    briggs 		NIC_PUT(sc, ED_P0_ISR, isr);
    896   1.1    briggs 
    897   1.1    briggs 		/*
    898  1.21    briggs 		 * Handle transmitter interrupts.  Handle these first because
    899  1.21    briggs 		 * the receiver will reset the board under some conditions.
    900   1.1    briggs 		 */
    901  1.22    briggs 		if (isr & (ED_ISR_PTX | ED_ISR_TXE)) {
    902  1.25    briggs 			u_char  collisions = NIC_GET(sc, ED_P0_NCR) & 0x0f;
    903   1.1    briggs 
    904   1.1    briggs 			/*
    905  1.21    briggs 			 * Check for transmit error.  If a TX completed with an
    906  1.21    briggs 			 * error, we end up throwing the packet away.  Really
    907   1.1    briggs 			 * the only error that is possible is excessive
    908   1.1    briggs 			 * collisions, and in this case it is best to allow the
    909  1.21    briggs 			 * automatic mechanisms of TCP to backoff the flow.  Of
    910   1.1    briggs 			 * course, with UDP we're screwed, but this is expected
    911   1.1    briggs 			 * when a network is heavily loaded.
    912   1.1    briggs 			 */
    913  1.22    briggs 			(void) NIC_GET(sc, ED_P0_TSR);
    914  1.22    briggs 			if (isr & ED_ISR_TXE) {
    915   1.1    briggs 				/*
    916  1.21    briggs 				 * Excessive collisions (16).
    917   1.1    briggs 				 */
    918  1.22    briggs 				if ((NIC_GET(sc, ED_P0_TSR) & ED_TSR_ABT)
    919  1.21    briggs 				    && (collisions == 0)) {
    920   1.1    briggs 					/*
    921  1.21    briggs 					 * When collisions total 16, the P0_NCR
    922  1.21    briggs 					 * will indicate 0, and the TSR_ABT is
    923  1.21    briggs 					 * set.
    924   1.1    briggs 					 */
    925   1.1    briggs 					collisions = 16;
    926   1.1    briggs 				}
    927  1.21    briggs 				/* Update output errors counter. */
    928  1.34    briggs 				++ifp->if_oerrors;
    929   1.1    briggs 			} else {
    930   1.1    briggs 				/*
    931   1.1    briggs 				 * Update total number of successfully
    932  1.21    briggs 				 * transmitted packets.
    933   1.1    briggs 				 */
    934  1.35    briggs 				++ifp->if_opackets;
    935   1.1    briggs 			}
    936   1.1    briggs 
    937  1.34    briggs 			/* Done with the buffer. */
    938  1.34    briggs 			sc->txb_inuse--;
    939   1.1    briggs 
    940  1.21    briggs 			/* Clear watchdog timer. */
    941  1.34    briggs 			ifp->if_timer = 0;
    942  1.34    briggs 			ifp->if_flags &= ~IFF_OACTIVE;
    943   1.1    briggs 
    944   1.1    briggs 			/*
    945   1.1    briggs 			 * Add in total number of collisions on last
    946  1.21    briggs 			 * transmission.
    947   1.1    briggs 			 */
    948  1.34    briggs 			ifp->if_collisions += collisions;
    949   1.1    briggs 
    950   1.1    briggs 			/*
    951  1.21    briggs 			 * Decrement buffer in-use count if not zero (can only
    952  1.21    briggs 			 * be zero if a transmitter interrupt occured while not
    953  1.21    briggs 			 * actually transmitting).
    954   1.1    briggs 			 * If data is ready to transmit, start it transmitting,
    955  1.21    briggs 			 * otherwise defer until after handling receiver.
    956   1.1    briggs 			 */
    957  1.34    briggs 			if (sc->txb_inuse > 0)
    958  1.21    briggs 				ae_xmit(sc);
    959   1.1    briggs 		}
    960  1.21    briggs 		/* Handle receiver interrupts. */
    961  1.22    briggs 		if (isr & (ED_ISR_PRX | ED_ISR_RXE | ED_ISR_OVW)) {
    962  1.21    briggs 			/*
    963  1.21    briggs 			 * Overwrite warning.  In order to make sure that a
    964  1.21    briggs 			 * lockup of the local DMA hasn't occurred, we reset
    965  1.21    briggs 			 * and re-init the NIC.  The NSC manual suggests only a
    966  1.21    briggs 			 * partial reset/re-init is necessary - but some chips
    967  1.21    briggs 			 * seem to want more.  The DMA lockup has been seen
    968  1.21    briggs 			 * only with early rev chips - Methinks this bug was
    969  1.21    briggs 			 * fixed in later revs.  -DG
    970  1.21    briggs 			 */
    971  1.22    briggs 			if (isr & ED_ISR_OVW) {
    972  1.34    briggs 				++ifp->if_ierrors;
    973  1.21    briggs #ifdef DIAGNOSTIC
    974   1.1    briggs 				log(LOG_WARNING,
    975  1.21    briggs 				    "%s: warning - receiver ring buffer overrun\n",
    976  1.21    briggs 				    sc->sc_dev.dv_xname);
    977  1.21    briggs #endif
    978  1.21    briggs 				/* Stop/reset/re-init NIC. */
    979  1.34    briggs 				aereset(sc);
    980  1.21    briggs 			} else {
    981   1.1    briggs 				/*
    982  1.21    briggs 				 * Receiver Error.  One or more of: CRC error,
    983  1.21    briggs 				 * frame alignment error FIFO overrun, or
    984  1.21    briggs 				 * missed packet.
    985   1.1    briggs 				 */
    986  1.22    briggs 				if (isr & ED_ISR_RXE) {
    987  1.34    briggs 					++ifp->if_ierrors;
    988   1.1    briggs #ifdef AE_DEBUG
    989  1.48  christos 					printf("%s: receive error %x\n",
    990  1.21    briggs 					    sc->sc_dev.dv_xname,
    991  1.22    briggs 					    NIC_GET(sc, ED_P0_RSR));
    992   1.1    briggs #endif
    993   1.1    briggs 				}
    994   1.1    briggs 				/*
    995   1.1    briggs 				 * Go get the packet(s)
    996   1.1    briggs 				 * XXX - Doing this on an error is dubious
    997  1.21    briggs 				 * because there shouldn't be any data to get
    998  1.21    briggs 				 * (we've configured the interface to not
    999  1.21    briggs 				 * accept packets with errors).
   1000   1.1    briggs 				 */
   1001  1.21    briggs 				ae_rint(sc);
   1002   1.1    briggs 			}
   1003   1.1    briggs 		}
   1004   1.1    briggs 		/*
   1005  1.21    briggs 		 * If it looks like the transmitter can take more data, attempt
   1006  1.21    briggs 		 * to start output on the interface.  This is done after
   1007  1.21    briggs 		 * handling the receiver to give the receiver priority.
   1008   1.1    briggs 		 */
   1009  1.34    briggs 		aestart(ifp);
   1010   1.1    briggs 
   1011   1.1    briggs 		/*
   1012  1.21    briggs 		 * Return NIC CR to standard state: page 0, remote DMA
   1013  1.21    briggs 		 * complete, start (toggling the TXP bit off, even if was just
   1014  1.21    briggs 		 * set in the transmit routine, is *okay* - it is 'edge'
   1015  1.21    briggs 		 * triggered from low to high).
   1016   1.1    briggs 		 */
   1017  1.22    briggs 		NIC_PUT(sc, ED_P0_CR, sc->cr_proto | ED_CR_PAGE_0 | ED_CR_STA);
   1018   1.1    briggs 
   1019   1.1    briggs 		/*
   1020  1.21    briggs 		 * If the Network Talley Counters overflow, read them to reset
   1021  1.21    briggs 		 * them.  It appears that old 8390's won't clear the ISR flag
   1022  1.21    briggs 		 * otherwise - resulting in an infinite loop.
   1023   1.1    briggs 		 */
   1024  1.22    briggs 		if (isr & ED_ISR_CNT) {
   1025  1.40    briggs 			static u_char	dummy;
   1026  1.40    briggs 			dummy = NIC_GET(sc, ED_P0_CNTR0);
   1027  1.40    briggs 			dummy = NIC_GET(sc, ED_P0_CNTR1);
   1028  1.40    briggs 			dummy = NIC_GET(sc, ED_P0_CNTR2);
   1029   1.1    briggs 		}
   1030  1.22    briggs 		isr = NIC_GET(sc, ED_P0_ISR);
   1031  1.21    briggs 		if (!isr)
   1032  1.22    briggs 			return;
   1033   1.1    briggs 	}
   1034   1.1    briggs }
   1035  1.34    briggs 
   1036   1.1    briggs /*
   1037  1.21    briggs  * Process an ioctl request.  This code needs some work - it looks pretty ugly.
   1038   1.1    briggs  */
   1039   1.1    briggs int
   1040  1.34    briggs aeioctl(ifp, cmd, data)
   1041   1.1    briggs 	register struct ifnet *ifp;
   1042  1.34    briggs 	u_long  cmd;
   1043   1.1    briggs 	caddr_t data;
   1044   1.1    briggs {
   1045  1.45   thorpej 	struct ae_softc *sc = ifp->if_softc;
   1046  1.25    briggs 	register struct ifaddr *ifa = (struct ifaddr *) data;
   1047  1.25    briggs 	struct ifreq *ifr = (struct ifreq *) data;
   1048  1.25    briggs 	int     s, error = 0;
   1049   1.1    briggs 
   1050  1.37   mycroft 	s = splnet();
   1051   1.1    briggs 
   1052  1.34    briggs 	switch (cmd) {
   1053   1.1    briggs 
   1054   1.1    briggs 	case SIOCSIFADDR:
   1055   1.1    briggs 		ifp->if_flags |= IFF_UP;
   1056   1.1    briggs 
   1057   1.1    briggs 		switch (ifa->ifa_addr->sa_family) {
   1058   1.1    briggs #ifdef INET
   1059   1.1    briggs 		case AF_INET:
   1060  1.34    briggs 			aeinit(sc);
   1061  1.21    briggs 			arp_ifinit(&sc->sc_arpcom, ifa);
   1062   1.1    briggs 			break;
   1063   1.1    briggs #endif
   1064   1.1    briggs #ifdef NS
   1065  1.25    briggs 			/* XXX - This code is probably wrong. */
   1066   1.1    briggs 		case AF_NS:
   1067  1.25    briggs 			{
   1068  1.25    briggs 				register struct ns_addr *ina = &IA_SNS(ifa)->sns_addr;
   1069   1.1    briggs 
   1070  1.25    briggs 				if (ns_nullhost(*ina))
   1071  1.25    briggs 					ina->x_host =
   1072  1.25    briggs 					    *(union ns_host *) (sc->sc_arpcom.ac_enaddr);
   1073  1.25    briggs 				else
   1074  1.25    briggs 					bcopy(ina->x_host.c_host,
   1075  1.25    briggs 					    sc->sc_arpcom.ac_enaddr,
   1076  1.25    briggs 					    sizeof(sc->sc_arpcom.ac_enaddr));
   1077  1.25    briggs 				/* Set new address. */
   1078  1.34    briggs 				aeinit(sc);
   1079  1.25    briggs 				break;
   1080  1.25    briggs 			}
   1081   1.1    briggs #endif
   1082   1.1    briggs 		default:
   1083  1.34    briggs 			aeinit(sc);
   1084   1.1    briggs 			break;
   1085   1.1    briggs 		}
   1086   1.1    briggs 		break;
   1087   1.1    briggs 
   1088   1.1    briggs 	case SIOCSIFFLAGS:
   1089  1.21    briggs 		if ((ifp->if_flags & IFF_UP) == 0 &&
   1090  1.21    briggs 		    (ifp->if_flags & IFF_RUNNING) != 0) {
   1091  1.21    briggs 			/*
   1092  1.21    briggs 			 * If interface is marked down and it is running, then
   1093  1.21    briggs 			 * stop it.
   1094  1.21    briggs 			 */
   1095  1.34    briggs 			aestop(sc);
   1096   1.1    briggs 			ifp->if_flags &= ~IFF_RUNNING;
   1097  1.25    briggs 		} else
   1098  1.25    briggs 			if ((ifp->if_flags & IFF_UP) != 0 &&
   1099  1.25    briggs 			    (ifp->if_flags & IFF_RUNNING) == 0) {
   1100  1.25    briggs 				/*
   1101  1.25    briggs 				 * If interface is marked up and it is stopped, then
   1102  1.25    briggs 				 * start it.
   1103  1.25    briggs 				 */
   1104  1.34    briggs 				aeinit(sc);
   1105  1.25    briggs 			} else {
   1106  1.25    briggs 				/*
   1107  1.25    briggs 				 * Reset the interface to pick up changes in any other
   1108  1.25    briggs 				 * flags that affect hardware registers.
   1109  1.25    briggs 				 */
   1110  1.34    briggs 				aestop(sc);
   1111  1.34    briggs 				aeinit(sc);
   1112  1.25    briggs 			}
   1113  1.21    briggs 		break;
   1114  1.21    briggs 
   1115  1.21    briggs 	case SIOCADDMULTI:
   1116  1.21    briggs 	case SIOCDELMULTI:
   1117  1.21    briggs 		/* Update our multicast list. */
   1118  1.34    briggs 		error = (cmd == SIOCADDMULTI) ?
   1119  1.21    briggs 		    ether_addmulti(ifr, &sc->sc_arpcom) :
   1120  1.21    briggs 		    ether_delmulti(ifr, &sc->sc_arpcom);
   1121  1.21    briggs 
   1122  1.21    briggs 		if (error == ENETRESET) {
   1123   1.1    briggs 			/*
   1124  1.21    briggs 			 * Multicast list has changed; set the hardware filter
   1125  1.21    briggs 			 * accordingly.
   1126   1.1    briggs 			 */
   1127  1.34    briggs 			aestop(sc);	/* XXX for ds_setmcaf? */
   1128  1.34    briggs 			aeinit(sc);
   1129  1.21    briggs 			error = 0;
   1130   1.1    briggs 		}
   1131   1.1    briggs 		break;
   1132   1.1    briggs 
   1133   1.1    briggs 	default:
   1134   1.1    briggs 		error = EINVAL;
   1135  1.34    briggs 		break;
   1136   1.1    briggs 	}
   1137  1.21    briggs 
   1138  1.21    briggs 	splx(s);
   1139   1.1    briggs 	return (error);
   1140   1.1    briggs }
   1141  1.34    briggs 
   1142   1.1    briggs /*
   1143   1.1    briggs  * Retreive packet from shared memory and send to the next level up via
   1144  1.21    briggs  * ether_input().  If there is a BPF listener, give a copy to BPF, too.
   1145   1.1    briggs  */
   1146  1.21    briggs void
   1147  1.34    briggs aeread(sc, buf, len)
   1148   1.1    briggs 	struct ae_softc *sc;
   1149  1.21    briggs 	caddr_t buf;
   1150  1.34    briggs 	int len;
   1151   1.1    briggs {
   1152  1.34    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
   1153  1.34    briggs 	struct mbuf *m;
   1154   1.1    briggs 	struct ether_header *eh;
   1155   1.1    briggs 
   1156  1.34    briggs 	/* Pull packet off interface. */
   1157  1.34    briggs 	m = aeget(sc, buf, len);
   1158  1.34    briggs 	if (m == 0) {
   1159  1.34    briggs 		ifp->if_ierrors++;
   1160  1.21    briggs 		return;
   1161  1.34    briggs 	}
   1162   1.1    briggs 
   1163  1.34    briggs 	ifp->if_ipackets++;
   1164  1.34    briggs 
   1165  1.34    briggs 	/* We assume that the header fits entirely in one mbuf. */
   1166  1.21    briggs 	eh = mtod(m, struct ether_header *);
   1167  1.21    briggs 
   1168   1.1    briggs #if NBPFILTER > 0
   1169   1.1    briggs 	/*
   1170  1.34    briggs 	 * Check if there's a BPF listener on this interface.
   1171  1.34    briggs 	 * If so, hand off the raw packet to bpf.
   1172   1.1    briggs 	 */
   1173  1.34    briggs 	if (ifp->if_bpf) {
   1174  1.34    briggs 		bpf_mtap(ifp->if_bpf, m);
   1175   1.1    briggs 
   1176   1.1    briggs 		/*
   1177   1.1    briggs 		 * Note that the interface cannot be in promiscuous mode if
   1178   1.1    briggs 		 * there are no BPF listeners.  And if we are in promiscuous
   1179   1.1    briggs 		 * mode, we have to check if this packet is really ours.
   1180   1.1    briggs 		 */
   1181  1.34    briggs 		if ((ifp->if_flags & IFF_PROMISC) &&
   1182  1.25    briggs 		    (eh->ether_dhost[0] & 1) == 0 &&	/* !mcast and !bcast */
   1183  1.21    briggs 		    bcmp(eh->ether_dhost, sc->sc_arpcom.ac_enaddr,
   1184  1.25    briggs 			sizeof(eh->ether_dhost)) != 0) {
   1185  1.21    briggs 			m_freem(m);
   1186   1.1    briggs 			return;
   1187   1.1    briggs 		}
   1188   1.1    briggs 	}
   1189   1.1    briggs #endif
   1190   1.1    briggs 
   1191  1.21    briggs 	/* Fix up data start offset in mbuf to point past ether header. */
   1192  1.21    briggs 	m_adj(m, sizeof(struct ether_header));
   1193  1.34    briggs 	ether_input(ifp, eh, m);
   1194   1.1    briggs }
   1195  1.34    briggs 
   1196   1.1    briggs /*
   1197  1.21    briggs  * Supporting routines.
   1198   1.1    briggs  */
   1199   1.1    briggs /*
   1200  1.21    briggs  * Given a source and destination address, copy 'amount' of a packet from the
   1201  1.21    briggs  * ring buffer into a linear destination buffer.  Takes into account ring-wrap.
   1202   1.1    briggs  */
   1203  1.21    briggs static inline caddr_t
   1204  1.21    briggs ae_ring_copy(sc, src, dst, amount)
   1205   1.1    briggs 	struct ae_softc *sc;
   1206  1.21    briggs 	caddr_t src, dst;
   1207  1.43    briggs 	int amount;
   1208   1.1    briggs {
   1209  1.25    briggs 	u_short tmp_amount;
   1210   1.1    briggs 
   1211  1.21    briggs 	/* Does copy wrap to lower addr in ring buffer? */
   1212  1.21    briggs 	if (src + amount > sc->mem_end) {
   1213  1.21    briggs 		tmp_amount = sc->mem_end - src;
   1214  1.21    briggs 
   1215  1.21    briggs 		/* Copy amount up to end of NIC memory. */
   1216  1.23    briggs 		byte_copy(src, dst, tmp_amount);
   1217  1.21    briggs 
   1218   1.1    briggs 		amount -= tmp_amount;
   1219  1.21    briggs 		src = sc->mem_ring;
   1220   1.1    briggs 		dst += tmp_amount;
   1221   1.1    briggs 	}
   1222  1.23    briggs 	byte_copy(src, dst, amount);
   1223   1.1    briggs 
   1224  1.21    briggs 	return (src + amount);
   1225   1.1    briggs }
   1226  1.34    briggs 
   1227   1.1    briggs /*
   1228  1.21    briggs  * Copy data from receive buffer to end of mbuf chain allocate additional mbufs
   1229  1.21    briggs  * as needed.  Return pointer to last mbuf in chain.
   1230  1.21    briggs  * sc = ae info (softc)
   1231  1.21    briggs  * src = pointer in ae ring buffer
   1232   1.1    briggs  * dst = pointer to last mbuf in mbuf chain to copy to
   1233   1.1    briggs  * amount = amount of data to copy
   1234   1.1    briggs  */
   1235   1.1    briggs struct mbuf *
   1236  1.34    briggs aeget(sc, src, total_len)
   1237   1.1    briggs 	struct ae_softc *sc;
   1238  1.21    briggs 	caddr_t src;
   1239   1.1    briggs 	u_short total_len;
   1240   1.1    briggs {
   1241  1.34    briggs 	struct ifnet *ifp = &sc->sc_arpcom.ac_if;
   1242  1.34    briggs 	struct mbuf *top, **mp, *m;
   1243  1.34    briggs 	int len;
   1244   1.1    briggs 
   1245  1.34    briggs 	MGETHDR(m, M_DONTWAIT, MT_DATA);
   1246  1.34    briggs 	if (m == 0)
   1247  1.34    briggs 		return 0;
   1248  1.34    briggs 	m->m_pkthdr.rcvif = ifp;
   1249  1.34    briggs 	m->m_pkthdr.len = total_len;
   1250  1.34    briggs 	len = MHLEN;
   1251  1.34    briggs 	top = 0;
   1252  1.34    briggs 	mp = &top;
   1253   1.1    briggs 
   1254  1.34    briggs 	while (total_len > 0) {
   1255  1.34    briggs 		if (top) {
   1256   1.1    briggs 			MGET(m, M_DONTWAIT, MT_DATA);
   1257  1.34    briggs 			if (m == 0) {
   1258  1.34    briggs 				m_freem(top);
   1259  1.34    briggs 				return 0;
   1260  1.34    briggs 			}
   1261  1.34    briggs 			len = MLEN;
   1262  1.34    briggs 		}
   1263  1.34    briggs 		if (total_len >= MINCLSIZE) {
   1264  1.34    briggs 			MCLGET(m, M_DONTWAIT);
   1265  1.34    briggs 			if (m->m_flags & M_EXT)
   1266  1.34    briggs 				len = MCLBYTES;
   1267   1.1    briggs 		}
   1268  1.34    briggs 		m->m_len = len = min(total_len, len);
   1269  1.43    briggs 		src = ae_ring_copy(sc, src, mtod(m, caddr_t), (int) len);
   1270  1.34    briggs 		total_len -= len;
   1271  1.34    briggs 		*mp = m;
   1272  1.34    briggs 		mp = &m->m_next;
   1273  1.34    briggs 	}
   1274   1.1    briggs 
   1275  1.34    briggs 	return top;
   1276  1.21    briggs }
   1277  1.21    briggs /*
   1278  1.21    briggs  * Compute the multicast address filter from the list of multicast addresses we
   1279  1.21    briggs  * need to listen to.
   1280  1.21    briggs  */
   1281  1.21    briggs void
   1282  1.21    briggs ae_getmcaf(ac, af)
   1283  1.21    briggs 	struct arpcom *ac;
   1284  1.27    briggs 	u_char *af;
   1285  1.21    briggs {
   1286  1.21    briggs 	struct ifnet *ifp = &ac->ac_if;
   1287  1.21    briggs 	struct ether_multi *enm;
   1288  1.21    briggs 	register u_char *cp, c;
   1289  1.21    briggs 	register u_long crc;
   1290  1.21    briggs 	register int i, len;
   1291  1.21    briggs 	struct ether_multistep step;
   1292  1.21    briggs 
   1293  1.21    briggs 	/*
   1294  1.21    briggs 	 * Set up multicast address filter by passing all multicast addresses
   1295  1.21    briggs 	 * through a crc generator, and then using the high order 6 bits as an
   1296  1.21    briggs 	 * index into the 64 bit logical address filter.  The high order bit
   1297  1.21    briggs 	 * selects the word, while the rest of the bits select the bit within
   1298  1.21    briggs 	 * the word.
   1299  1.21    briggs 	 */
   1300  1.21    briggs 
   1301  1.21    briggs 	if (ifp->if_flags & IFF_PROMISC) {
   1302  1.21    briggs 		ifp->if_flags |= IFF_ALLMULTI;
   1303  1.27    briggs 		for (i = 0; i < 8; i++)
   1304  1.27    briggs 			af[i] = 0xff;
   1305  1.21    briggs 		return;
   1306  1.21    briggs 	}
   1307  1.27    briggs 	for (i = 0; i < 8; i++)
   1308  1.27    briggs 		af[i] = 0;
   1309  1.21    briggs 	ETHER_FIRST_MULTI(step, ac, enm);
   1310  1.21    briggs 	while (enm != NULL) {
   1311  1.21    briggs 		if (bcmp(enm->enm_addrlo, enm->enm_addrhi,
   1312  1.25    briggs 			sizeof(enm->enm_addrlo)) != 0) {
   1313  1.21    briggs 			/*
   1314  1.21    briggs 			 * We must listen to a range of multicast addresses.
   1315  1.21    briggs 			 * For now, just accept all multicasts, rather than
   1316  1.21    briggs 			 * trying to set only those filter bits needed to match
   1317  1.21    briggs 			 * the range.  (At this time, the only use of address
   1318  1.21    briggs 			 * ranges is for IP multicast routing, for which the
   1319  1.21    briggs 			 * range is big enough to require all bits set.)
   1320  1.21    briggs 			 */
   1321  1.21    briggs 			ifp->if_flags |= IFF_ALLMULTI;
   1322  1.27    briggs 			for (i = 0; i < 8; i++)
   1323  1.27    briggs 				af[i] = 0xff;
   1324  1.21    briggs 			return;
   1325  1.21    briggs 		}
   1326  1.21    briggs 		cp = enm->enm_addrlo;
   1327  1.21    briggs 		crc = 0xffffffff;
   1328  1.21    briggs 		for (len = sizeof(enm->enm_addrlo); --len >= 0;) {
   1329  1.21    briggs 			c = *cp++;
   1330  1.21    briggs 			for (i = 8; --i >= 0;) {
   1331  1.21    briggs 				if (((crc & 0x80000000) ? 1 : 0) ^ (c & 0x01)) {
   1332  1.21    briggs 					crc <<= 1;
   1333  1.21    briggs 					crc ^= 0x04c11db6 | 1;
   1334  1.21    briggs 				} else
   1335  1.21    briggs 					crc <<= 1;
   1336  1.21    briggs 				c >>= 1;
   1337  1.21    briggs 			}
   1338  1.21    briggs 		}
   1339  1.21    briggs 		/* Just want the 6 most significant bits. */
   1340  1.21    briggs 		crc >>= 26;
   1341  1.21    briggs 
   1342  1.21    briggs 		/* Turn on the corresponding bit in the filter. */
   1343  1.27    briggs 		af[crc >> 3] |= 1 << (crc & 0x7);
   1344  1.21    briggs 
   1345  1.21    briggs 		ETHER_NEXT_MULTI(step, enm);
   1346   1.1    briggs 	}
   1347  1.21    briggs 	ifp->if_flags &= ~IFF_ALLMULTI;
   1348  1.21    briggs }
   1349  1.21    briggs /*
   1350  1.21    briggs  * Copy packet from mbuf to the board memory
   1351  1.21    briggs  *
   1352  1.21    briggs  * Currently uses an extra buffer/extra memory copy,
   1353  1.21    briggs  * unless the whole packet fits in one mbuf.
   1354  1.21    briggs  *
   1355  1.21    briggs  */
   1356  1.21    briggs u_short
   1357  1.21    briggs ae_put(sc, m, buf)
   1358  1.21    briggs 	struct ae_softc *sc;
   1359  1.21    briggs 	struct mbuf *m;
   1360  1.21    briggs 	caddr_t buf;
   1361  1.21    briggs {
   1362  1.21    briggs 	u_char *data, savebyte[2];
   1363  1.25    briggs 	int     len, wantbyte;
   1364  1.25    briggs 	u_short totlen = 0;
   1365  1.21    briggs 
   1366  1.21    briggs 	wantbyte = 0;
   1367  1.21    briggs 
   1368  1.34    briggs 	for (; m ; m = m->m_next) {
   1369  1.21    briggs 		data = mtod(m, u_char *);
   1370  1.21    briggs 		len = m->m_len;
   1371  1.21    briggs 		totlen += len;
   1372  1.21    briggs 		if (len > 0) {
   1373  1.21    briggs 			/* Finish the last word. */
   1374  1.21    briggs 			if (wantbyte) {
   1375  1.21    briggs 				savebyte[1] = *data;
   1376  1.21    briggs 				word_copy(savebyte, buf, 2);
   1377  1.21    briggs 				buf += 2;
   1378  1.21    briggs 				data++;
   1379  1.21    briggs 				len--;
   1380  1.21    briggs 				wantbyte = 0;
   1381  1.21    briggs 			}
   1382  1.21    briggs 			/* Output contiguous words. */
   1383  1.21    briggs 			if (len > 1) {
   1384  1.21    briggs 				word_copy(data, buf, len);
   1385  1.21    briggs 				buf += len & ~1;
   1386  1.21    briggs 				data += len & ~1;
   1387  1.21    briggs 				len &= 1;
   1388  1.21    briggs 			}
   1389  1.21    briggs 			/* Save last byte, if necessary. */
   1390  1.21    briggs 			if (len == 1) {
   1391  1.21    briggs 				savebyte[0] = *data;
   1392  1.21    briggs 				wantbyte = 1;
   1393  1.21    briggs 			}
   1394  1.21    briggs 		}
   1395  1.21    briggs 	}
   1396  1.21    briggs 
   1397  1.21    briggs 	if (wantbyte) {
   1398  1.21    briggs 		savebyte[1] = 0;
   1399  1.21    briggs 		word_copy(savebyte, buf, 2);
   1400  1.21    briggs 	}
   1401  1.21    briggs 	return (totlen);
   1402   1.1    briggs }
   1403