Home | History | Annotate | Line # | Download | only in dev
hpib.c revision 1.20
      1  1.20  gmcgarry /*	$NetBSD: hpib.c,v 1.20 2002/03/15 05:52:54 gmcgarry Exp $	*/
      2  1.18   thorpej 
      3  1.18   thorpej /*-
      4  1.18   thorpej  * Copyright (c) 1996, 1997 The NetBSD Foundation, Inc.
      5  1.18   thorpej  * All rights reserved.
      6  1.18   thorpej  *
      7  1.18   thorpej  * This code is derived from software contributed to The NetBSD Foundation
      8  1.18   thorpej  * by Jason R. Thorpe.
      9  1.18   thorpej  *
     10  1.18   thorpej  * Redistribution and use in source and binary forms, with or without
     11  1.18   thorpej  * modification, are permitted provided that the following conditions
     12  1.18   thorpej  * are met:
     13  1.18   thorpej  * 1. Redistributions of source code must retain the above copyright
     14  1.18   thorpej  *    notice, this list of conditions and the following disclaimer.
     15  1.18   thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     16  1.18   thorpej  *    notice, this list of conditions and the following disclaimer in the
     17  1.18   thorpej  *    documentation and/or other materials provided with the distribution.
     18  1.18   thorpej  * 3. All advertising materials mentioning features or use of this software
     19  1.18   thorpej  *    must display the following acknowledgement:
     20  1.18   thorpej  *	This product includes software developed by the NetBSD
     21  1.18   thorpej  *	Foundation, Inc. and its contributors.
     22  1.18   thorpej  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23  1.18   thorpej  *    contributors may be used to endorse or promote products derived
     24  1.18   thorpej  *    from this software without specific prior written permission.
     25  1.18   thorpej  *
     26  1.18   thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27  1.18   thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28  1.18   thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29  1.18   thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30  1.18   thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31  1.18   thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32  1.18   thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33  1.18   thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34  1.18   thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35  1.18   thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36  1.18   thorpej  * POSSIBILITY OF SUCH DAMAGE.
     37  1.18   thorpej  */
     38   1.4       cgd 
     39   1.1       cgd /*
     40   1.3   mycroft  * Copyright (c) 1982, 1990, 1993
     41   1.3   mycroft  *	The Regents of the University of California.  All rights reserved.
     42   1.1       cgd  *
     43   1.1       cgd  * Redistribution and use in source and binary forms, with or without
     44   1.1       cgd  * modification, are permitted provided that the following conditions
     45   1.1       cgd  * are met:
     46   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     47   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     48   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     49   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     50   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     51   1.1       cgd  * 3. All advertising materials mentioning features or use of this software
     52   1.1       cgd  *    must display the following acknowledgement:
     53   1.1       cgd  *	This product includes software developed by the University of
     54   1.1       cgd  *	California, Berkeley and its contributors.
     55   1.1       cgd  * 4. Neither the name of the University nor the names of its contributors
     56   1.1       cgd  *    may be used to endorse or promote products derived from this software
     57   1.1       cgd  *    without specific prior written permission.
     58   1.1       cgd  *
     59   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     60   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     61   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     62   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     63   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     64   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     65   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     66   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     67   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     68   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     69   1.1       cgd  * SUCH DAMAGE.
     70   1.1       cgd  *
     71   1.4       cgd  *	@(#)hpib.c	8.2 (Berkeley) 1/12/94
     72   1.1       cgd  */
     73   1.1       cgd 
     74   1.1       cgd /*
     75  1.13   thorpej  * HP-IB bus driver
     76   1.1       cgd  */
     77   1.1       cgd 
     78  1.20  gmcgarry #include <sys/cdefs.h>
     79  1.20  gmcgarry __KERNEL_RCSID(0, "$NetBSD: hpib.c,v 1.20 2002/03/15 05:52:54 gmcgarry Exp $");
     80  1.20  gmcgarry 
     81   1.3   mycroft #include <sys/param.h>
     82   1.3   mycroft #include <sys/systm.h>
     83   1.3   mycroft #include <sys/buf.h>
     84  1.13   thorpej #include <sys/malloc.h>
     85  1.13   thorpej #include <sys/device.h>
     86  1.13   thorpej 
     87  1.13   thorpej #include <hp300/dev/dmavar.h>
     88   1.3   mycroft 
     89   1.3   mycroft #include <hp300/dev/hpibvar.h>
     90   1.1       cgd 
     91   1.3   mycroft #include <machine/cpu.h>
     92  1.16   thorpej #include <machine/hp300spu.h>
     93   1.1       cgd 
     94  1.13   thorpej int	hpibbusmatch __P((struct device *, struct cfdata *, void *));
     95  1.13   thorpej void	hpibbusattach __P((struct device *, struct device *, void *));
     96  1.13   thorpej 
     97  1.13   thorpej struct cfattach hpibbus_ca = {
     98  1.13   thorpej 	sizeof(struct hpibbus_softc), hpibbusmatch, hpibbusattach
     99   1.1       cgd };
    100   1.1       cgd 
    101  1.19   thorpej extern struct cfdriver hpibbus_cd;
    102   1.6   thorpej 
    103  1.13   thorpej void	hpibbus_attach_children __P((struct hpibbus_softc *));
    104  1.13   thorpej int	hpibbussearch __P((struct device *, struct cfdata *, void *));
    105  1.13   thorpej int	hpibbusprint __P((void *, const char *));
    106  1.13   thorpej 
    107  1.13   thorpej int	hpibbus_alloc __P((struct hpibbus_softc *, int, int));
    108  1.13   thorpej void	hpibbus_free __P((struct hpibbus_softc *, int, int));
    109  1.13   thorpej 
    110  1.13   thorpej void	hpibstart __P((void *));
    111  1.13   thorpej void	hpibdone __P((void *));
    112   1.1       cgd 
    113   1.1       cgd int	hpibtimeout = 100000;	/* # of status tests before we give up */
    114   1.3   mycroft int	hpibidtimeout = 10000;	/* # of status tests for hpibid() calls */
    115   1.1       cgd int	hpibdmathresh = 3;	/* byte count beyond which to attempt dma */
    116   1.1       cgd 
    117  1.13   thorpej /*
    118  1.13   thorpej  * HP-IB is essentially an IEEE 488 bus, with an HP command
    119  1.13   thorpej  * set (CS/80 on `newer' devices, Amigo on before-you-were-born
    120  1.13   thorpej  * devices) thrown on top.  Devices that respond to CS/80 (and
    121  1.13   thorpej  * probably Amigo, too) are tagged with a 16-bit ID.
    122  1.13   thorpej  *
    123  1.13   thorpej  * HP-IB has a 2-level addressing scheme; slave, the analog
    124  1.13   thorpej  * of a SCSI ID, and punit, the analog of a SCSI LUN.  Unforunately,
    125  1.13   thorpej  * IDs are on a per-slave basis; punits are often used for disk
    126  1.13   thorpej  * drives that have an accompanying tape drive on the second punit.
    127  1.13   thorpej  *
    128  1.13   thorpej  * In addition, not all HP-IB devices speak CS/80 or Amigo.
    129  1.13   thorpej  * Examples of such devices are HP-IB plotters, which simply
    130  1.13   thorpej  * take raw plotter commands over 488.  These devices do not
    131  1.13   thorpej  * have ID tags, and often the host cannot even tell if such
    132  1.13   thorpej  * a device is attached to the system!
    133  1.13   thorpej  *
    134  1.13   thorpej  * These two nasty bits mean that we have to treat HP-IB as
    135  1.13   thorpej  * an indirect bus.  However, since we are given some ID
    136  1.13   thorpej  * information, it is unreasonable to disallow cloning of
    137  1.13   thorpej  * CS/80 devices.
    138  1.13   thorpej  *
    139  1.13   thorpej  * To deal with all of this, we use the semi-twisted scheme
    140  1.13   thorpej  * in hpibbus_attach_children().  For each HP-IB slave, we loop
    141  1.13   thorpej  * through all of the possibly-configured children, allowing
    142  1.13   thorpej  * them to modify the punit parameter (but NOT the slave!).
    143  1.13   thorpej  *
    144  1.13   thorpej  * This is evil, but what can you do?
    145  1.13   thorpej  */
    146  1.13   thorpej 
    147   1.6   thorpej int
    148  1.13   thorpej hpibbusmatch(parent, match, aux)
    149  1.13   thorpej 	struct device *parent;
    150  1.13   thorpej 	struct cfdata *match;
    151  1.13   thorpej 	void *aux;
    152   1.1       cgd {
    153   1.7   thorpej 
    154  1.13   thorpej 	return (1);
    155  1.13   thorpej }
    156  1.13   thorpej 
    157  1.13   thorpej void
    158  1.13   thorpej hpibbusattach(parent, self, aux)
    159  1.13   thorpej 	struct device *parent, *self;
    160  1.13   thorpej 	void *aux;
    161  1.13   thorpej {
    162  1.13   thorpej 	struct hpibbus_softc *sc = (struct hpibbus_softc *)self;
    163  1.13   thorpej 	struct hpibdev_attach_args *ha = aux;
    164  1.13   thorpej 
    165  1.13   thorpej 	printf("\n");
    166  1.13   thorpej 
    167  1.13   thorpej 	/* Get the operations vector for the controller. */
    168  1.13   thorpej 	sc->sc_ops = ha->ha_ops;
    169  1.13   thorpej 	sc->sc_type = ha->ha_type;		/* XXX */
    170  1.13   thorpej 	sc->sc_ba = ha->ha_ba;
    171  1.13   thorpej 	*(ha->ha_softcpp) = sc;			/* XXX */
    172  1.13   thorpej 
    173  1.13   thorpej 	hpibreset(self->dv_unit);		/* XXX souldn't be here */
    174  1.13   thorpej 
    175  1.13   thorpej 	/*
    176  1.13   thorpej 	 * Initialize the DMA queue entry.
    177  1.13   thorpej 	 */
    178  1.20  gmcgarry 	MALLOC(sc->sc_dq, struct dmaqueue *, sizeof(struct dmaqueue),
    179  1.13   thorpej 	    M_DEVBUF, M_NOWAIT);
    180  1.13   thorpej 	if (sc->sc_dq == NULL) {
    181  1.13   thorpej 		printf("%s: can't allocate DMA queue entry\n", self->dv_xname);
    182  1.13   thorpej 		return;
    183   1.7   thorpej 	}
    184  1.13   thorpej 	sc->sc_dq->dq_softc = sc;
    185  1.13   thorpej 	sc->sc_dq->dq_start = hpibstart;
    186  1.13   thorpej 	sc->sc_dq->dq_done = hpibdone;
    187   1.7   thorpej 
    188  1.13   thorpej 	/* Initialize the slave request queue. */
    189  1.13   thorpej 	TAILQ_INIT(&sc->sc_queue);
    190  1.13   thorpej 
    191  1.13   thorpej 	/* Attach any devices on the bus. */
    192  1.13   thorpej 	hpibbus_attach_children(sc);
    193   1.7   thorpej }
    194   1.7   thorpej 
    195   1.7   thorpej void
    196  1.13   thorpej hpibbus_attach_children(sc)
    197  1.13   thorpej 	struct hpibbus_softc *sc;
    198   1.7   thorpej {
    199  1.13   thorpej 	struct hpibbus_attach_args ha;
    200  1.13   thorpej 	int slave;
    201   1.7   thorpej 
    202  1.13   thorpej 	for (slave = 0; slave < 8; slave++) {
    203  1.13   thorpej 		/*
    204  1.13   thorpej 		 * Get the ID tag for the device, if any.
    205  1.13   thorpej 		 * Plotters won't identify themselves, and
    206  1.13   thorpej 		 * get the same value as non-existent devices.
    207  1.13   thorpej 		 */
    208  1.13   thorpej 		ha.ha_id = hpibid(sc->sc_dev.dv_unit, slave);
    209  1.13   thorpej 
    210  1.13   thorpej 		ha.ha_slave = slave;	/* not to be modified by children */
    211  1.13   thorpej 		ha.ha_punit = 0;	/* children modify this */
    212  1.13   thorpej 
    213  1.13   thorpej 		/*
    214  1.13   thorpej 		 * Search though all configured children for this bus.
    215  1.13   thorpej 		 */
    216  1.13   thorpej 		(void)config_search(hpibbussearch, &sc->sc_dev, &ha);
    217  1.13   thorpej 	}
    218  1.13   thorpej }
    219  1.13   thorpej 
    220  1.13   thorpej int
    221  1.13   thorpej hpibbussearch(parent, cf, aux)
    222  1.13   thorpej 	struct device *parent;
    223  1.13   thorpej 	struct cfdata *cf;
    224  1.13   thorpej 	void *aux;
    225  1.13   thorpej {
    226  1.13   thorpej 	struct hpibbus_softc *sc = (struct hpibbus_softc *)parent;
    227  1.13   thorpej 	struct hpibbus_attach_args *ha = aux;
    228  1.13   thorpej 
    229  1.13   thorpej 	/* Make sure this is in a consistent state. */
    230  1.13   thorpej 	ha->ha_punit = 0;
    231  1.13   thorpej 
    232  1.13   thorpej 	if ((*cf->cf_attach->ca_match)(parent, cf, ha) > 0) {
    233  1.13   thorpej 		/*
    234  1.13   thorpej 		 * The device probe has succeeded, and filled in
    235  1.13   thorpej 		 * the punit information.  Make sure the configuration
    236  1.13   thorpej 		 * allows for this slave/punit combination.
    237  1.13   thorpej 		 */
    238  1.17       jtk 		if (cf->hpibbuscf_slave != HPIBBUSCF_SLAVE_DEFAULT &&
    239  1.13   thorpej 		    cf->hpibbuscf_slave != ha->ha_slave)
    240  1.13   thorpej 			goto out;
    241  1.17       jtk 		if (cf->hpibbuscf_punit != HPIBBUSCF_PUNIT_DEFAULT &&
    242  1.13   thorpej 		    cf->hpibbuscf_punit != ha->ha_punit)
    243  1.13   thorpej 			goto out;
    244  1.13   thorpej 
    245  1.13   thorpej 		/*
    246  1.13   thorpej 		 * Allocate the device's address from the bus's
    247  1.13   thorpej 		 * resource map.
    248  1.13   thorpej 		 */
    249  1.13   thorpej 		if (hpibbus_alloc(sc, ha->ha_slave, ha->ha_punit))
    250  1.13   thorpej 			goto out;
    251  1.13   thorpej 
    252  1.13   thorpej 		/*
    253  1.13   thorpej 		 * This device is allowed; attach it.
    254  1.13   thorpej 		 */
    255  1.13   thorpej 		config_attach(parent, cf, ha, hpibbusprint);
    256   1.7   thorpej 	}
    257  1.13   thorpej  out:
    258  1.13   thorpej 	return (0);
    259  1.13   thorpej }
    260  1.13   thorpej 
    261  1.13   thorpej int
    262  1.13   thorpej hpibbusprint(aux, pnp)
    263  1.13   thorpej 	void *aux;
    264  1.13   thorpej 	const char *pnp;
    265  1.13   thorpej {
    266  1.13   thorpej 	struct hpibbus_attach_args *ha = aux;
    267   1.6   thorpej 
    268  1.13   thorpej 	printf(" slave %d punit %d", ha->ha_slave, ha->ha_punit);
    269  1.13   thorpej 	return (UNCONF);
    270  1.13   thorpej }
    271  1.13   thorpej 
    272  1.13   thorpej int
    273  1.13   thorpej hpibdevprint(aux, pnp)
    274  1.13   thorpej 	void *aux;
    275  1.13   thorpej 	const char *pnp;
    276  1.13   thorpej {
    277  1.13   thorpej 
    278  1.13   thorpej 	/* only hpibbus's can attach to hpibdev's -- easy. */
    279  1.13   thorpej 	if (pnp != NULL)
    280  1.13   thorpej 		printf("hpibbus at %s", pnp);
    281  1.13   thorpej 	return (UNCONF);
    282   1.1       cgd }
    283   1.1       cgd 
    284   1.6   thorpej void
    285   1.1       cgd hpibreset(unit)
    286  1.14    scottr 	int unit;
    287   1.1       cgd {
    288  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    289   1.6   thorpej 
    290  1.13   thorpej 	(*sc->sc_ops->hpib_reset)(sc);
    291   1.1       cgd }
    292   1.1       cgd 
    293   1.6   thorpej int
    294  1.13   thorpej hpibreq(pdev, hq)
    295  1.13   thorpej 	struct device *pdev;
    296  1.13   thorpej 	struct hpibqueue *hq;
    297  1.13   thorpej {
    298  1.13   thorpej 	struct hpibbus_softc *sc = (struct hpibbus_softc *)pdev;
    299  1.13   thorpej 	int s;
    300  1.13   thorpej 
    301  1.13   thorpej 	s = splhigh();	/* XXXthorpej */
    302  1.13   thorpej 	TAILQ_INSERT_TAIL(&sc->sc_queue, hq, hq_list);
    303  1.13   thorpej 	splx(s);
    304  1.13   thorpej 
    305  1.13   thorpej 	if (sc->sc_queue.tqh_first == hq)
    306  1.13   thorpej 		return (1);
    307   1.1       cgd 
    308  1.13   thorpej 	return (0);
    309   1.1       cgd }
    310   1.1       cgd 
    311   1.6   thorpej void
    312  1.13   thorpej hpibfree(pdev, hq)
    313  1.13   thorpej 	struct device *pdev;
    314  1.13   thorpej 	struct hpibqueue *hq;
    315  1.13   thorpej {
    316  1.13   thorpej 	struct hpibbus_softc *sc = (struct hpibbus_softc *)pdev;
    317  1.13   thorpej 	int s;
    318  1.13   thorpej 
    319  1.13   thorpej 	s = splhigh();	/* XXXthorpej */
    320  1.13   thorpej 	TAILQ_REMOVE(&sc->sc_queue, hq, hq_list);
    321  1.13   thorpej 	splx(s);
    322   1.1       cgd 
    323  1.13   thorpej 	if ((hq = sc->sc_queue.tqh_first) != NULL)
    324  1.13   thorpej 		(*hq->hq_start)(hq->hq_softc);
    325   1.1       cgd }
    326   1.1       cgd 
    327   1.6   thorpej int
    328   1.1       cgd hpibid(unit, slave)
    329   1.3   mycroft 	int unit, slave;
    330   1.1       cgd {
    331   1.1       cgd 	short id;
    332   1.1       cgd 	int ohpibtimeout;
    333   1.1       cgd 
    334   1.1       cgd 	/*
    335   1.3   mycroft 	 * XXX shorten timeout value so autoconfig doesn't
    336   1.3   mycroft 	 * take forever on slow CPUs.
    337   1.1       cgd 	 */
    338   1.1       cgd 	ohpibtimeout = hpibtimeout;
    339   1.9   thorpej 	hpibtimeout = hpibidtimeout * (cpuspeed / 8);
    340   1.1       cgd 	if (hpibrecv(unit, 31, slave, &id, 2) != 2)
    341   1.1       cgd 		id = 0;
    342   1.1       cgd 	hpibtimeout = ohpibtimeout;
    343   1.1       cgd 	return(id);
    344   1.1       cgd }
    345   1.1       cgd 
    346   1.6   thorpej int
    347   1.1       cgd hpibsend(unit, slave, sec, addr, cnt)
    348   1.6   thorpej 	int unit, slave, sec, cnt;
    349   1.6   thorpej 	void *addr;
    350   1.1       cgd {
    351  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    352   1.6   thorpej 
    353  1.13   thorpej 	return ((*sc->sc_ops->hpib_send)(sc, slave, sec, addr, cnt));
    354   1.1       cgd }
    355   1.1       cgd 
    356   1.6   thorpej int
    357   1.1       cgd hpibrecv(unit, slave, sec, addr, cnt)
    358   1.6   thorpej 	int unit, slave, sec, cnt;
    359   1.6   thorpej 	void *addr;
    360   1.1       cgd {
    361  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    362   1.6   thorpej 
    363  1.13   thorpej 	return ((*sc->sc_ops->hpib_recv)(sc, slave, sec, addr, cnt));
    364   1.1       cgd }
    365   1.1       cgd 
    366   1.6   thorpej int
    367   1.1       cgd hpibpptest(unit, slave)
    368  1.14    scottr 	int unit;
    369   1.3   mycroft 	int slave;
    370   1.1       cgd {
    371  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    372   1.1       cgd 
    373  1.13   thorpej 	return ((*sc->sc_ops->hpib_ppoll)(sc) & (0x80 >> slave));
    374   1.1       cgd }
    375   1.1       cgd 
    376   1.6   thorpej void
    377   1.5   mycroft hpibppclear(unit)
    378   1.5   mycroft 	int unit;
    379   1.5   mycroft {
    380  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    381  1.13   thorpej 
    382  1.13   thorpej 	sc->sc_flags &= ~HPIBF_PPOLL;
    383   1.5   mycroft }
    384   1.5   mycroft 
    385  1.14    scottr void
    386   1.1       cgd hpibawait(unit)
    387   1.3   mycroft 	int unit;
    388   1.1       cgd {
    389  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    390   1.1       cgd 
    391  1.13   thorpej 	sc->sc_flags |= HPIBF_PPOLL;
    392  1.13   thorpej 	(*sc->sc_ops->hpib_ppwatch)(sc);
    393   1.1       cgd }
    394   1.1       cgd 
    395   1.6   thorpej int
    396   1.1       cgd hpibswait(unit, slave)
    397  1.14    scottr 	int unit;
    398   1.3   mycroft 	int slave;
    399   1.1       cgd {
    400  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    401  1.14    scottr 	int timo = hpibtimeout;
    402  1.14    scottr 	int mask, (*ppoll) __P((struct hpibbus_softc *));
    403   1.1       cgd 
    404  1.13   thorpej 	ppoll = sc->sc_ops->hpib_ppoll;
    405   1.1       cgd 	mask = 0x80 >> slave;
    406  1.13   thorpej 	while (((*ppoll)(sc) & mask) == 0) {
    407   1.1       cgd 		if (--timo == 0) {
    408  1.13   thorpej 			printf("%s: swait timeout\n", sc->sc_dev.dv_xname);
    409   1.1       cgd 			return(-1);
    410   1.1       cgd 		}
    411  1.13   thorpej 	}
    412   1.1       cgd 	return(0);
    413   1.1       cgd }
    414   1.1       cgd 
    415   1.6   thorpej int
    416   1.1       cgd hpibustart(unit)
    417   1.3   mycroft 	int unit;
    418   1.1       cgd {
    419  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    420   1.1       cgd 
    421  1.13   thorpej 	if (sc->sc_type == HPIBA)
    422  1.13   thorpej 		sc->sc_dq->dq_chan = DMA0;
    423   1.1       cgd 	else
    424  1.13   thorpej 		sc->sc_dq->dq_chan = DMA0 | DMA1;
    425  1.13   thorpej 	if (dmareq(sc->sc_dq))
    426   1.1       cgd 		return(1);
    427   1.1       cgd 	return(0);
    428   1.1       cgd }
    429   1.1       cgd 
    430   1.6   thorpej void
    431  1.13   thorpej hpibstart(arg)
    432  1.13   thorpej 	void *arg;
    433   1.1       cgd {
    434  1.13   thorpej 	struct hpibbus_softc *sc = arg;
    435  1.14    scottr 	struct hpibqueue *hq;
    436  1.13   thorpej 
    437  1.13   thorpej 	hq = sc->sc_queue.tqh_first;
    438  1.13   thorpej 	(*hq->hq_go)(hq->hq_softc);
    439   1.1       cgd }
    440   1.1       cgd 
    441   1.6   thorpej void
    442  1.13   thorpej hpibgo(unit, slave, sec, vbuf, count, rw, timo)
    443  1.13   thorpej 	int unit, slave, sec;
    444  1.13   thorpej 	void *vbuf;
    445  1.13   thorpej 	int count, rw, timo;
    446   1.1       cgd {
    447  1.13   thorpej 	struct hpibbus_softc *sc = hpibbus_cd.cd_devs[unit];
    448   1.6   thorpej 
    449  1.13   thorpej 	(*sc->sc_ops->hpib_go)(sc, slave, sec, vbuf, count, rw, timo);
    450   1.1       cgd }
    451   1.1       cgd 
    452   1.6   thorpej void
    453  1.13   thorpej hpibdone(arg)
    454  1.13   thorpej 	void *arg;
    455   1.1       cgd {
    456  1.13   thorpej 	struct hpibbus_softc *sc = arg;
    457   1.6   thorpej 
    458  1.13   thorpej 	(*sc->sc_ops->hpib_done)(sc);
    459   1.1       cgd }
    460   1.1       cgd 
    461   1.6   thorpej int
    462   1.8   thorpej hpibintr(arg)
    463   1.8   thorpej 	void *arg;
    464   1.1       cgd {
    465  1.13   thorpej 	struct hpibbus_softc *sc = arg;
    466  1.13   thorpej 
    467  1.13   thorpej 	return ((sc->sc_ops->hpib_intr)(arg));
    468  1.13   thorpej }
    469  1.13   thorpej 
    470  1.13   thorpej int
    471  1.13   thorpej hpibbus_alloc(sc, slave, punit)
    472  1.13   thorpej 	struct hpibbus_softc *sc;
    473  1.13   thorpej 	int slave, punit;
    474  1.13   thorpej {
    475  1.13   thorpej 
    476  1.13   thorpej 	if (slave >= HPIB_NSLAVES ||
    477  1.13   thorpej 	    punit >= HPIB_NPUNITS)
    478  1.13   thorpej 		panic("hpibbus_alloc: device address out of range");
    479  1.13   thorpej 
    480  1.13   thorpej 	if (sc->sc_rmap[slave][punit] == 0) {
    481  1.13   thorpej 		sc->sc_rmap[slave][punit] = 1;
    482  1.13   thorpej 		return (0);
    483  1.13   thorpej 	}
    484  1.13   thorpej 	return (1);
    485  1.13   thorpej }
    486  1.13   thorpej 
    487  1.13   thorpej void
    488  1.13   thorpej hpibbus_free(sc, slave, punit)
    489  1.13   thorpej 	struct hpibbus_softc *sc;
    490  1.13   thorpej 	int slave, punit;
    491  1.13   thorpej {
    492  1.13   thorpej 
    493  1.13   thorpej 	if (slave >= HPIB_NSLAVES ||
    494  1.13   thorpej 	    punit >= HPIB_NPUNITS)
    495  1.13   thorpej 		panic("hpibbus_free: device address out of range");
    496  1.13   thorpej 
    497  1.13   thorpej #ifdef DIAGNOSTIC
    498  1.13   thorpej 	if (sc->sc_rmap[slave][punit] == 0)
    499  1.13   thorpej 		panic("hpibbus_free: not allocated");
    500  1.13   thorpej #endif
    501   1.1       cgd 
    502  1.13   thorpej 	sc->sc_rmap[slave][punit] = 0;
    503   1.1       cgd }
    504