[unix-history] / usr / src / sys / vax / if / if_dmc.c

/*	if_dmc.c	4.10	82/04/10	*/

#include "dmc.h"
#if NDMC > 0
#define printd if(dmcdebug)printf
int dmcdebug = 1;
/*
 * DMC11 device driver, internet version
 *
 * TODO
 *	allow more than one outstanding read or write.
 */

#include "../h/param.h"
#include "../h/systm.h"
#include "../h/mbuf.h"
#include "../h/pte.h"
#include "../h/buf.h"
#include "../h/tty.h"
#include "../h/protosw.h"
#include "../h/socket.h"
#include "../h/ubareg.h"
#include "../h/ubavar.h"
#include "../h/cpu.h"
#include "../h/mtpr.h"
#include "../h/vmmac.h"
#include "../net/in.h"
#include "../net/in_systm.h"
#include "../net/if.h"
#include "../net/if_uba.h"
#include "../net/if_dmc.h"
#include "../net/ip.h"
#include "../net/ip_var.h"
#include "../net/route.h"
#include <errno.h>

/*
 * Driver information for auto-configuration stuff.
 */
int	dmcprobe(), dmcattach(), dmcinit(), dmcoutput(), dmcreset();
struct	uba_device *dmcinfo[NDMC];
u_short	dmcstd[] = { 0 };
struct	uba_driver dmcdriver =
	{ dmcprobe, 0, dmcattach, 0, dmcstd, "dmc", dmcinfo };

#define	DMC_AF	0xff		/* 8 bits of address type in ui_flags */
#define	DMC_NET	0xff00		/* 8 bits of net number in ui_flags */

/*
 * DMC software status per interface.
 *
 * Each interface is referenced by a network interface structure,
 * sc_if, which the routing code uses to locate the interface.
 * This structure contains the output queue for the interface, its address, ...
 * We also have, for each interface, a UBA interface structure, which
 * contains information about the UNIBUS resources held by the interface:
 * map registers, buffered data paths, etc.  Information is cached in this
 * structure for use by the if_uba.c routines in running the interface
 * efficiently.
 */
struct dmc_softc {
	struct	ifnet sc_if;		/* network-visible interface */
	struct	ifuba sc_ifuba;		/* UNIBUS resources */
	short	sc_flag;		/* flags */
	short	sc_oactive;		/* output active */
	int	sc_ubinfo;		/* UBA mapping info for base table */
	struct clist sc_que;		/* command queue */
} dmc_softc[NDMC];

/* flags */
#define	DMCRUN		01
#define	DMCBMAPPED	02		/* base table mapped */

struct dmc_base {
	short	d_base[128];		/* DMC base table */
} dmc_base[NDMC];

#define	loword(x)	((short *)&x)[0]
#define	hiword(x)	((short *)&x)[1]

dmcprobe(reg)
	caddr_t reg;
{
	register int br, cvec;
	register struct dmcdevice *addr = (struct dmcdevice *)reg;
	register int i;

COUNT(DMCPROBE);
#ifdef lint
	br = 0; cvec = br; br = cvec;
	dmcrint(0); dmcxint(0);
#endif
	addr->bsel1 = DMC_MCLR;
	for (i = 100000; i && (addr->bsel1 & DMC_RUN) == 0; i--)
		;
	if ((addr->bsel1 & DMC_RUN) == 0)
		return (0);
	addr->bsel1 &= ~DMC_MCLR;
	addr->bsel0 = DMC_RQI|DMC_IEI;
	DELAY(100000);
	addr->bsel1 = DMC_MCLR;
	for (i = 100000; i && (addr->bsel1 & DMC_RUN) == 0; i--)
		;
	return (1);
}

/*
 * Interface exists: make available by filling in network interface
 * record.  System will initialize the interface when it is ready
 * to accept packets.
 */
dmcattach(ui)
	register struct uba_device *ui;
{
	register struct dmc_softc *sc = &dmc_softc[ui->ui_unit];
	register struct sockaddr_in *sin;

COUNT(DMCATTACH);
	sc->sc_if.if_unit = ui->ui_unit;
	sc->sc_if.if_name = "dmc";
	sc->sc_if.if_mtu = DMCMTU;
	sc->sc_if.if_net = (ui->ui_flags & DMC_NET) >> 8;
	sc->sc_if.if_host[0] = 17;	/* random number */
	sin = (struct sockaddr_in *)&sc->sc_if.if_addr;
	sin->sa_family = AF_INET;
	sin->sin_addr = if_makeaddr(sc->sc_if.if_net, sc->sc_if.if_host[0]);
	sc->sc_if.if_init = dmcinit;
	sc->sc_if.if_output = dmcoutput;
	sc->sc_if.if_ubareset = dmcreset;
	sc->sc_ifuba.ifuba_flags = UBA_NEEDBDP;
	if_attach(&sc->sc_if);
}

/*
 * Reset of interface after UNIBUS reset.
 * If interface is on specified UBA, reset it's state.
 */
dmcreset(unit, uban)
	int unit, uban;
{
	register struct uba_device *ui;

COUNT(DMCRESET);
	if (unit >= NDMC || (ui = dmcinfo[unit]) == 0 || ui->ui_alive == 0 ||
	    ui->ui_ubanum != uban)
		return;
	printf(" dmc%d", unit);
	dmcinit(unit);
}

/*
 * Initialization of interface; reinitialize UNIBUS usage.
 */
dmcinit(unit)
	int unit;
{
	register struct dmc_softc *sc = &dmc_softc[unit];
	register struct uba_device *ui = dmcinfo[unit];
	register struct dmcdevice *addr;
	int base;

COUNT(DMCINIT);
	printd("dmcinit\n");
	if ((sc->sc_flag&DMCBMAPPED) == 0) {
		sc->sc_ubinfo = uballoc(ui->ui_ubanum,
		    (caddr_t)&dmc_base[unit], sizeof (struct dmc_base), 0);
		sc->sc_flag |= DMCBMAPPED;
	}
	if (if_ubainit(&sc->sc_ifuba, ui->ui_ubanum, 0,
	    (int)btoc(DMCMTU)) == 0) {
		printf("dmc%d: can't initialize\n", unit);
		sc->sc_if.if_flags &= ~IFF_UP;
		return;
	}
	addr = (struct dmcdevice *)ui->ui_addr;
	addr->bsel2 |= DMC_IEO;
	base = sc->sc_ubinfo & 0x3ffff;
	printd("  base 0x%x\n", base);
	dmcload(sc, DMC_BASEI, base, (base>>2)&DMC_XMEM);
	dmcload(sc, DMC_CNTLI, 0, 0);
	base = sc->sc_ifuba.ifu_r.ifrw_info & 0x3ffff;
	dmcload(sc, DMC_READ, base, ((base>>2)&DMC_XMEM)|DMCMTU);
	printd("  first read queued, addr 0x%x\n", base);
	sc->sc_if.if_flags |= IFF_UP;
	/* set up routing table entry */
	if ((sc->sc_if.if_flags & IFF_ROUTE) == 0) {
		rtinit(&sc->sc_if.if_addr, &sc->sc_if.if_addr,
			RTF_DIRECT|RTF_HOST|RTF_UP);
		sc->sc_if.if_flags |= IFF_ROUTE;
	}
}

/*
 * Start output on interface.  Get another datagram
 * to send from the interface queue and map it to
 * the interface before starting output.
 */
dmcstart(dev)
	dev_t dev;
{
	int unit = minor(dev);
	struct uba_device *ui = dmcinfo[unit];
	register struct dmc_softc *sc = &dmc_softc[unit];
	int addr, len;
	struct mbuf *m;

COUNT(DMCSTART);
	printd("dmcstart\n");
	/*
	 * Dequeue a request and map it to the UNIBUS.
	 * If no more requests, just return.
	 */
	IF_DEQUEUE(&sc->sc_if.if_snd, m);
	if (m == 0)
		return;
	len = if_wubaput(&sc->sc_ifuba, m);

	/*
	 * Have request mapped to UNIBUS for transmission.
	 * Purge any stale data from this BDP and start the output.
	 */
	if (sc->sc_ifuba.ifuba_flags & UBA_NEEDBDP)
		UBAPURGE(sc->sc_ifuba.ifu_uba, sc->sc_ifuba.ifu_w.ifrw_bdp);
	addr = sc->sc_ifuba.ifu_w.ifrw_info & 0x3ffff;
	printd("  len %d, addr 0x%x, ", len, addr);
	printd("mr 0x%x\n", sc->sc_ifuba.ifu_w.ifrw_mr[0]);
	dmcload(sc, DMC_WRITE, addr, (len&DMC_CCOUNT)|((addr>>2)&DMC_XMEM));
	sc->sc_oactive = 1;
}

/*
 * Utility routine to load the DMC device registers.
 */
dmcload(sc, type, w0, w1)
	register struct dmc_softc *sc;
	int type, w0, w1;
{
	register struct dmcdevice *addr;
	register int unit, sps, n;

COUNT(DMCLOAD);
	printd("dmcload: 0x%x 0x%x 0x%x\n", type, w0, w1);
	unit = sc - dmc_softc;
	addr = (struct dmcdevice *)dmcinfo[unit]->ui_addr;
	sps = spl5();
	if ((n = sc->sc_que.c_cc) == 0)
		addr->bsel0 = type | DMC_RQI;
	else
		(void) putc(type | DMC_RQI, &sc->sc_que);
	(void) putw(w0, &sc->sc_que);
	(void) putw(w1, &sc->sc_que);
	if (n == 0)
		dmcrint(unit);
	splx(sps);
}

/*
 * DMC interface receiver interrupt.
 * Ready to accept another command,
 * pull one off the command queue.
 */
dmcrint(unit)
	int unit;
{
	register struct dmc_softc *sc;
	register struct dmcdevice *addr;
	register int n;
	int w0, w1; /* DEBUG */

COUNT(DMCRINT);
	addr = (struct dmcdevice *)dmcinfo[unit]->ui_addr;
	sc = &dmc_softc[unit];
	while (addr->bsel0&DMC_RDYI) {
		w0 = getw(&sc->sc_que); /* DEBUG */
		addr->sel4 = w0; /* DEBUG */
		w1 = getw(&sc->sc_que); /* DEBUG */
		addr->sel6 = w1; /* DEBUG */
		/* DEBUG
		addr->sel4 = getw(&sc->sc_que);
		addr->sel6 = getw(&sc->sc_que);
		DEBUG */
		addr->bsel0 &= ~(DMC_IEI|DMC_RQI);
		printd("  w0 0x%x, w1 0x%x\n", w0, w1);
		while (addr->bsel0&DMC_RDYI)
			;
		if (sc->sc_que.c_cc == 0)
			return;
		addr->bsel0 = getc(&sc->sc_que);
		n = RDYSCAN;
		while (n-- && (addr->bsel0&DMC_RDYI) == 0)
			;
	}
	if (sc->sc_que.c_cc)
		addr->bsel0 |= DMC_IEI;
}

/*
 * DMC interface transmitter interrupt.
 * A transfer has completed, check for errors.
 * If it was a read, notify appropriate protocol.
 * If it was a write, pull the next one off the queue.
 */
dmcxint(unit)
	int unit;
{
	register struct dmc_softc *sc;
	struct uba_device *ui = dmcinfo[unit];
	struct dmcdevice *addr;
	struct mbuf *m;
	register struct ifqueue *inq;
	int arg, cmd, len;

COUNT(DMCXINT);
	addr = (struct dmcdevice *)ui->ui_addr;
	arg = addr->sel6;
	cmd = addr->bsel2&7;
	addr->bsel2 &= ~DMC_RDYO;
	sc = &dmc_softc[unit];
	printd("dmcxint\n");
	switch (cmd) {

	case DMC_OUR:
		/*
		 * A read has completed.  Purge input buffered
		 * data path.  Pass packet to type specific
		 * higher-level input routine.
		 */
		sc->sc_if.if_ipackets++;
		if (sc->sc_ifuba.ifuba_flags & UBA_NEEDBDP)
			UBAPURGE(sc->sc_ifuba.ifu_uba,
				sc->sc_ifuba.ifu_r.ifrw_bdp);
		len = arg & DMC_CCOUNT;
		printd("  read done, len %d\n", len);
		switch (ui->ui_flags & DMC_AF) {
#ifdef INET
		case AF_INET:
			schednetisr(NETISR_IP);
			inq = &ipintrq;
			break;
#endif

		default:
			printf("dmc%d: unknown address type %d\n", unit,
			    ui->ui_flags & DMC_AF);
			goto setup;
		}
		m = if_rubaget(&sc->sc_ifuba, len, 0);
		if (m == 0)
			goto setup;
		if (IF_QFULL(inq)) {
			IF_DROP(inq);
			(void) m_freem(m);
		} else
			IF_ENQUEUE(inq, m);

setup:
		arg = sc->sc_ifuba.ifu_r.ifrw_info & 0x3ffff;
		dmcload(sc, DMC_READ, arg, ((arg >> 2) & DMC_XMEM) | DMCMTU);
		return;

	case DMC_OUX:
		/*
		 * A write has completed, start another
		 * transfer if there is more data to send.
		 */
		if (sc->sc_oactive == 0)
			return;		/* SHOULD IT BE A FATAL ERROR? */
		printd("  write done\n");
		sc->sc_if.if_opackets++;
		sc->sc_oactive = 0;
		if (sc->sc_ifuba.ifu_xtofree) {
			(void) m_freem(sc->sc_ifuba.ifu_xtofree);
			sc->sc_ifuba.ifu_xtofree = 0;
		}
		if (sc->sc_if.if_snd.ifq_head == 0)
			return;
		dmcstart(unit);
		return;

	case DMC_CNTLO:
		arg &= DMC_CNTMASK;
		if (arg&DMC_FATAL) {
			addr->bsel1 = DMC_MCLR;
			sc->sc_flag &= ~DMCRUN;
			/*** DO SOMETHING TO RESTART DEVICE ***/
			printf("DMC FATAL ERROR 0%o\n", arg);
		} else {
			/* ACCUMULATE STATISTICS */
			printf("DMC SOFT ERROR 0%o\n", arg);
		}
		return;

	default:
		printf("dmc%d: bad control %o\n", unit, cmd);
	}
}

/*
 * DMC output routine.
 * Just send the data, header was supplied by
 * upper level protocol routines.
 */
dmcoutput(ifp, m, dst)
	register struct ifnet *ifp;
	register struct mbuf *m;
	struct sockaddr *dst;
{
	struct uba_device *ui = dmcinfo[ifp->if_unit];
	int s;

COUNT(DMCOUTPUT);
	printd("dmcoutput\n");
	if (dst->sa_family != (ui->ui_flags & DMC_AF)) {
		printf("dmc%d: af%d not supported\n", ifp->if_unit, pf);
		m_freem(m);
		return (EAFNOSUPPORT);
	}
	s = splimp();
	if (IF_QFULL(&ifp->if_snd)) {
		IF_DROP(&ifp->if_snd);
		m_freem(m);
		splx(s);
		return (ENOBUFS);
	}
	IF_ENQUEUE(&ifp->if_snd, m);
	if (dmc_softc[ifp->if_unit].sc_oactive == 0)
		dmcstart(ifp->if_unit);
	splx(s);
	return (0);
}
Commit	Line	Data
8a2f82db	1	/* if_dmc.c 4.10 82/04/10 */
63665984 BJ	2
	3	#include "dmc.h"
	4	#if NDMC > 0
	5	#define printd if(dmcdebug)printf
	6	int dmcdebug = 1;
	7	/*
	8	* DMC11 device driver, internet version
	9	*
	10	* TODO
	11	* allow more than one outstanding read or write.
	12	*/
	13
	14	#include "../h/param.h"
	15	#include "../h/systm.h"
	16	#include "../h/mbuf.h"
	17	#include "../h/pte.h"
	18	#include "../h/buf.h"
	19	#include "../h/tty.h"
	20	#include "../h/protosw.h"
	21	#include "../h/socket.h"
	22	#include "../h/ubareg.h"
	23	#include "../h/ubavar.h"
	24	#include "../h/cpu.h"
	25	#include "../h/mtpr.h"
	26	#include "../h/vmmac.h"
	27	#include "../net/in.h"
	28	#include "../net/in_systm.h"
	29	#include "../net/if.h"
	30	#include "../net/if_uba.h"
791be395	31	#include "../net/if_dmc.h"
63665984 BJ	32	#include "../net/ip.h"
63665984 BJ	33	#include "../net/ip_var.h"
f6311fb6	34	#include "../net/route.h"
8a2f82db	35	#include <errno.h>
63665984 BJ	36
	37	/*
	38	* Driver information for auto-configuration stuff.
	39	*/
	40	int dmcprobe(), dmcattach(), dmcinit(), dmcoutput(), dmcreset();
	41	struct uba_device *dmcinfo[NDMC];
	42	u_short dmcstd[] = { 0 };
	43	struct uba_driver dmcdriver =
	44	{ dmcprobe, 0, dmcattach, 0, dmcstd, "dmc", dmcinfo };
	45
ee787340	46	#define DMC_AF 0xff /* 8 bits of address type in ui_flags */
63665984 BJ	47	#define DMC_NET 0xff00 /* 8 bits of net number in ui_flags */
	48
	49	/*
	50	* DMC software status per interface.
	51	*
	52	* Each interface is referenced by a network interface structure,
	53	* sc_if, which the routing code uses to locate the interface.
	54	* This structure contains the output queue for the interface, its address, ...
	55	* We also have, for each interface, a UBA interface structure, which
	56	* contains information about the UNIBUS resources held by the interface:
	57	* map registers, buffered data paths, etc. Information is cached in this
	58	* structure for use by the if_uba.c routines in running the interface
	59	* efficiently.
	60	*/
	61	struct dmc_softc {
	62	struct ifnet sc_if; /* network-visible interface */
	63	struct ifuba sc_ifuba; /* UNIBUS resources */
	64	short sc_flag; /* flags */
	65	short sc_oactive; /* output active */
	66	int sc_ubinfo; /* UBA mapping info for base table */
	67	struct clist sc_que; /* command queue */
	68	} dmc_softc[NDMC];
	69
	70	/* flags */
	71	#define DMCRUN 01
	72	#define DMCBMAPPED 02 /* base table mapped */
	73
	74	struct dmc_base {
	75	short d_base[128]; /* DMC base table */
	76	} dmc_base[NDMC];
	77
	78	#define loword(x) ((short *)&x)[0]
	79	#define hiword(x) ((short *)&x)[1]
	80
	81	dmcprobe(reg)
	82	caddr_t reg;
	83	{
	84	register int br, cvec;
	85	register struct dmcdevice addr = (struct dmcdevice )reg;
	86	register int i;
	87
f6311fb6	88	COUNT(DMCPROBE);
63665984 BJ	89	#ifdef lint
	90	br = 0; cvec = br; br = cvec;
	91	dmcrint(0); dmcxint(0);
	92	#endif
	93	addr->bsel1 = DMC_MCLR;
	94	for (i = 100000; i && (addr->bsel1 & DMC_RUN) == 0; i--)
	95	;
	96	if ((addr->bsel1 & DMC_RUN) == 0)
ee787340	97	return (0);
63665984 BJ	98	addr->bsel1 &= ~DMC_MCLR;
	99	addr->bsel0 = DMC_RQI\|DMC_IEI;
	100	DELAY(100000);
	101	addr->bsel1 = DMC_MCLR;
	102	for (i = 100000; i && (addr->bsel1 & DMC_RUN) == 0; i--)
	103	;
ee787340	104	return (1);
63665984 BJ	105	}
	106
	107	/*
	108	* Interface exists: make available by filling in network interface
	109	* record. System will initialize the interface when it is ready
	110	* to accept packets.
	111	*/
	112	dmcattach(ui)
	113	register struct uba_device *ui;
	114	{
	115	register struct dmc_softc *sc = &dmc_softc[ui->ui_unit];
ee787340	116	register struct sockaddr_in *sin;
63665984	117
f6311fb6	118	COUNT(DMCATTACH);
63665984 BJ	119	sc->sc_if.if_unit = ui->ui_unit;
	120	sc->sc_if.if_name = "dmc";
	121	sc->sc_if.if_mtu = DMCMTU;
	122	sc->sc_if.if_net = (ui->ui_flags & DMC_NET) >> 8;
	123	sc->sc_if.if_host[0] = 17; /* random number */
ee787340 SL	124	sin = (struct sockaddr_in *)&sc->sc_if.if_addr;
	125	sin->sa_family = AF_INET;
	126	sin->sin_addr = if_makeaddr(sc->sc_if.if_net, sc->sc_if.if_host[0]);
63665984 BJ	127	sc->sc_if.if_init = dmcinit;
	128	sc->sc_if.if_output = dmcoutput;
	129	sc->sc_if.if_ubareset = dmcreset;
791be395	130	sc->sc_ifuba.ifuba_flags = UBA_NEEDBDP;
63665984 BJ	131	if_attach(&sc->sc_if);
	132	}
	133
	134	/*
	135	* Reset of interface after UNIBUS reset.
	136	* If interface is on specified UBA, reset it's state.
	137	*/
	138	dmcreset(unit, uban)
	139	int unit, uban;
	140	{
	141	register struct uba_device *ui;
	142
f6311fb6	143	COUNT(DMCRESET);
63665984 BJ	144	if (unit >= NDMC \|\| (ui = dmcinfo[unit]) == 0 \|\| ui->ui_alive == 0 \|\|
	145	ui->ui_ubanum != uban)
	146	return;
	147	printf(" dmc%d", unit);
	148	dmcinit(unit);
	149	}
	150
	151	/*
	152	* Initialization of interface; reinitialize UNIBUS usage.
	153	*/
	154	dmcinit(unit)
	155	int unit;
	156	{
	157	register struct dmc_softc *sc = &dmc_softc[unit];
	158	register struct uba_device *ui = dmcinfo[unit];
	159	register struct dmcdevice *addr;
	160	int base;
	161
f6311fb6	162	COUNT(DMCINIT);
63665984 BJ	163	printd("dmcinit\n");
	164	if ((sc->sc_flag&DMCBMAPPED) == 0) {
	165	sc->sc_ubinfo = uballoc(ui->ui_ubanum,
	166	(caddr_t)&dmc_base[unit], sizeof (struct dmc_base), 0);
	167	sc->sc_flag \|= DMCBMAPPED;
	168	}
	169	if (if_ubainit(&sc->sc_ifuba, ui->ui_ubanum, 0,
b3a74b5e	170	(int)btoc(DMCMTU)) == 0) {
63665984	171	printf("dmc%d: can't initialize\n", unit);
ee787340	172	sc->sc_if.if_flags &= ~IFF_UP;
63665984 BJ	173	return;
	174	}
	175	addr = (struct dmcdevice *)ui->ui_addr;
	176	addr->bsel2 \|= DMC_IEO;
	177	base = sc->sc_ubinfo & 0x3ffff;
	178	printd(" base 0x%x\n", base);
	179	dmcload(sc, DMC_BASEI, base, (base>>2)&DMC_XMEM);
	180	dmcload(sc, DMC_CNTLI, 0, 0);
	181	base = sc->sc_ifuba.ifu_r.ifrw_info & 0x3ffff;
	182	dmcload(sc, DMC_READ, base, ((base>>2)&DMC_XMEM)\|DMCMTU);
	183	printd(" first read queued, addr 0x%x\n", base);
ee787340	184	sc->sc_if.if_flags \|= IFF_UP;
f6311fb6 SL	185	/* set up routing table entry */
	186	if ((sc->sc_if.if_flags & IFF_ROUTE) == 0) {
	187	rtinit(&sc->sc_if.if_addr, &sc->sc_if.if_addr,
fc74f0c9	188	RTF_DIRECT\|RTF_HOST\|RTF_UP);
f6311fb6 SL	189	sc->sc_if.if_flags \|= IFF_ROUTE;
f6311fb6 SL	190	}
63665984 BJ	191	}
	192
	193	/*
	194	* Start output on interface. Get another datagram
	195	* to send from the interface queue and map it to
	196	* the interface before starting output.
	197	*/
	198	dmcstart(dev)
	199	dev_t dev;
	200	{
	201	int unit = minor(dev);
	202	struct uba_device *ui = dmcinfo[unit];
	203	register struct dmc_softc *sc = &dmc_softc[unit];
	204	int addr, len;
	205	struct mbuf *m;
	206
f6311fb6	207	COUNT(DMCSTART);
63665984 BJ	208	printd("dmcstart\n");
	209	/*
	210	* Dequeue a request and map it to the UNIBUS.
	211	* If no more requests, just return.
	212	*/
	213	IF_DEQUEUE(&sc->sc_if.if_snd, m);
	214	if (m == 0)
	215	return;
	216	len = if_wubaput(&sc->sc_ifuba, m);
	217
	218	/*
	219	* Have request mapped to UNIBUS for transmission.
	220	* Purge any stale data from this BDP and start the output.
	221	*/
791be395 BJ	222	if (sc->sc_ifuba.ifuba_flags & UBA_NEEDBDP)
791be395 BJ	223	UBAPURGE(sc->sc_ifuba.ifu_uba, sc->sc_ifuba.ifu_w.ifrw_bdp);
63665984 BJ	224	addr = sc->sc_ifuba.ifu_w.ifrw_info & 0x3ffff;
	225	printd(" len %d, addr 0x%x, ", len, addr);
	226	printd("mr 0x%x\n", sc->sc_ifuba.ifu_w.ifrw_mr[0]);
	227	dmcload(sc, DMC_WRITE, addr, (len&DMC_CCOUNT)\|((addr>>2)&DMC_XMEM));
	228	sc->sc_oactive = 1;
	229	}
	230
	231	/*
	232	* Utility routine to load the DMC device registers.
	233	*/
	234	dmcload(sc, type, w0, w1)
	235	register struct dmc_softc *sc;
	236	int type, w0, w1;
	237	{
	238	register struct dmcdevice *addr;
	239	register int unit, sps, n;
	240
f6311fb6	241	COUNT(DMCLOAD);
63665984 BJ	242	printd("dmcload: 0x%x 0x%x 0x%x\n", type, w0, w1);
	243	unit = sc - dmc_softc;
	244	addr = (struct dmcdevice *)dmcinfo[unit]->ui_addr;
	245	sps = spl5();
	246	if ((n = sc->sc_que.c_cc) == 0)
	247	addr->bsel0 = type \| DMC_RQI;
	248	else
668cc26d SL	249	(void) putc(type \| DMC_RQI, &sc->sc_que);
	250	(void) putw(w0, &sc->sc_que);
	251	(void) putw(w1, &sc->sc_que);
63665984 BJ	252	if (n == 0)
	253	dmcrint(unit);
	254	splx(sps);
	255	}
	256
	257	/*
	258	* DMC interface receiver interrupt.
	259	* Ready to accept another command,
	260	* pull one off the command queue.
	261	*/
	262	dmcrint(unit)
	263	int unit;
	264	{
	265	register struct dmc_softc *sc;
	266	register struct dmcdevice *addr;
	267	register int n;
	268	int w0, w1; /* DEBUG */
	269
f6311fb6	270	COUNT(DMCRINT);
63665984 BJ	271	addr = (struct dmcdevice *)dmcinfo[unit]->ui_addr;
	272	sc = &dmc_softc[unit];
	273	while (addr->bsel0&DMC_RDYI) {
	274	w0 = getw(&sc->sc_que); /* DEBUG */
	275	addr->sel4 = w0; /* DEBUG */
	276	w1 = getw(&sc->sc_que); /* DEBUG */
	277	addr->sel6 = w1; /* DEBUG */
	278	/* DEBUG
	279	addr->sel4 = getw(&sc->sc_que);
	280	addr->sel6 = getw(&sc->sc_que);
	281	DEBUG */
	282	addr->bsel0 &= ~(DMC_IEI\|DMC_RQI);
	283	printd(" w0 0x%x, w1 0x%x\n", w0, w1);
	284	while (addr->bsel0&DMC_RDYI)
	285	;
	286	if (sc->sc_que.c_cc == 0)
	287	return;
	288	addr->bsel0 = getc(&sc->sc_que);
	289	n = RDYSCAN;
	290	while (n-- && (addr->bsel0&DMC_RDYI) == 0)
	291	;
	292	}
	293	if (sc->sc_que.c_cc)
	294	addr->bsel0 \|= DMC_IEI;
	295	}
	296
	297	/*
	298	* DMC interface transmitter interrupt.
	299	* A transfer has completed, check for errors.
	300	* If it was a read, notify appropriate protocol.
	301	* If it was a write, pull the next one off the queue.
	302	*/
	303	dmcxint(unit)
	304	int unit;
	305	{
	306	register struct dmc_softc *sc;
	307	struct uba_device *ui = dmcinfo[unit];
	308	struct dmcdevice *addr;
	309	struct mbuf *m;
	310	register struct ifqueue *inq;
	311	int arg, cmd, len;
	312
f6311fb6	313	COUNT(DMCXINT);
63665984 BJ	314	addr = (struct dmcdevice *)ui->ui_addr;
	315	arg = addr->sel6;
	316	cmd = addr->bsel2&7;
	317	addr->bsel2 &= ~DMC_RDYO;
	318	sc = &dmc_softc[unit];
	319	printd("dmcxint\n");
	320	switch (cmd) {
	321
	322	case DMC_OUR:
	323	/*
	324	* A read has completed. Purge input buffered
	325	* data path. Pass packet to type specific
	326	* higher-level input routine.
	327	*/
	328	sc->sc_if.if_ipackets++;
791be395 BJ	329	if (sc->sc_ifuba.ifuba_flags & UBA_NEEDBDP)
	330	UBAPURGE(sc->sc_ifuba.ifu_uba,
	331	sc->sc_ifuba.ifu_r.ifrw_bdp);
63665984 BJ	332	len = arg & DMC_CCOUNT;
63665984 BJ	333	printd(" read done, len %d\n", len);
ee787340	334	switch (ui->ui_flags & DMC_AF) {
63665984	335	#ifdef INET
ee787340	336	case AF_INET:
9c8692e9	337	schednetisr(NETISR_IP);
63665984 BJ	338	inq = &ipintrq;
	339	break;
	340	#endif
	341
	342	default:
ee787340 SL	343	printf("dmc%d: unknown address type %d\n", unit,
ee787340 SL	344	ui->ui_flags & DMC_AF);
63665984 BJ	345	goto setup;
	346	}
	347	m = if_rubaget(&sc->sc_ifuba, len, 0);
	348	if (m == 0)
	349	goto setup;
1e977657 BJ	350	if (IF_QFULL(inq)) {
	351	IF_DROP(inq);
	352	(void) m_freem(m);
	353	} else
	354	IF_ENQUEUE(inq, m);
63665984 BJ	355
	356	setup:
	357	arg = sc->sc_ifuba.ifu_r.ifrw_info & 0x3ffff;
	358	dmcload(sc, DMC_READ, arg, ((arg >> 2) & DMC_XMEM) \| DMCMTU);
	359	return;
	360
	361	case DMC_OUX:
	362	/*
	363	* A write has completed, start another
	364	* transfer if there is more data to send.
	365	*/
	366	if (sc->sc_oactive == 0)
	367	return; /* SHOULD IT BE A FATAL ERROR? */
	368	printd(" write done\n");
	369	sc->sc_if.if_opackets++;
	370	sc->sc_oactive = 0;
	371	if (sc->sc_ifuba.ifu_xtofree) {
1e977657	372	(void) m_freem(sc->sc_ifuba.ifu_xtofree);
63665984 BJ	373	sc->sc_ifuba.ifu_xtofree = 0;
	374	}
	375	if (sc->sc_if.if_snd.ifq_head == 0)
	376	return;
	377	dmcstart(unit);
	378	return;
	379
	380	case DMC_CNTLO:
	381	arg &= DMC_CNTMASK;
	382	if (arg&DMC_FATAL) {
	383	addr->bsel1 = DMC_MCLR;
	384	sc->sc_flag &= ~DMCRUN;
	385	/* DO SOMETHING TO RESTART DEVICE */
	386	printf("DMC FATAL ERROR 0%o\n", arg);
	387	} else {
	388	/* ACCUMULATE STATISTICS */
	389	printf("DMC SOFT ERROR 0%o\n", arg);
	390	}
	391	return;
	392
	393	default:
	394	printf("dmc%d: bad control %o\n", unit, cmd);
	395	}
	396	}
	397
	398	/*
	399	* DMC output routine.
	400	* Just send the data, header was supplied by
	401	* upper level protocol routines.
	402	*/
ee787340	403	dmcoutput(ifp, m, dst)
63665984 BJ	404	register struct ifnet *ifp;
63665984 BJ	405	register struct mbuf *m;
ee787340	406	struct sockaddr *dst;
63665984 BJ	407	{
	408	struct uba_device *ui = dmcinfo[ifp->if_unit];
	409	int s;
	410
f6311fb6	411	COUNT(DMCOUTPUT);
63665984	412	printd("dmcoutput\n");
ee787340 SL	413	if (dst->sa_family != (ui->ui_flags & DMC_AF)) {
	414	printf("dmc%d: af%d not supported\n", ifp->if_unit, pf);
	415	m_freem(m);
8a2f82db	416	return (EAFNOSUPPORT);
63665984 BJ	417	}
63665984 BJ	418	s = splimp();
1e977657 BJ	419	if (IF_QFULL(&ifp->if_snd)) {
1e977657 BJ	420	IF_DROP(&ifp->if_snd);
ee787340	421	m_freem(m);
1e977657	422	splx(s);
8a2f82db	423	return (ENOBUFS);
1e977657	424	}
63665984 BJ	425	IF_ENQUEUE(&ifp->if_snd, m);
	426	if (dmc_softc[ifp->if_unit].sc_oactive == 0)
	427	dmcstart(ifp->if_unit);
	428	splx(s);
8a2f82db	429	return (0);
63665984	430	}