Home | History | Annotate | Line # | Download | only in dev
mt.c revision 1.18
      1  1.18   gehenna /*	$NetBSD: mt.c,v 1.18 2002/09/06 13:18:43 gehenna Exp $	*/
      2   1.9   thorpej 
      3   1.9   thorpej /*-
      4   1.9   thorpej  * Copyright (c) 1996, 1997 The NetBSD Foundation, Inc.
      5   1.9   thorpej  * All rights reserved.
      6   1.9   thorpej  *
      7   1.9   thorpej  * This code is derived from software contributed to The NetBSD Foundation
      8   1.9   thorpej  * by Jason R. Thorpe.
      9   1.9   thorpej  *
     10   1.9   thorpej  * Redistribution and use in source and binary forms, with or without
     11   1.9   thorpej  * modification, are permitted provided that the following conditions
     12   1.9   thorpej  * are met:
     13   1.9   thorpej  * 1. Redistributions of source code must retain the above copyright
     14   1.9   thorpej  *    notice, this list of conditions and the following disclaimer.
     15   1.9   thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     16   1.9   thorpej  *    notice, this list of conditions and the following disclaimer in the
     17   1.9   thorpej  *    documentation and/or other materials provided with the distribution.
     18   1.9   thorpej  * 3. All advertising materials mentioning features or use of this software
     19   1.9   thorpej  *    must display the following acknowledgement:
     20   1.9   thorpej  *	This product includes software developed by the NetBSD
     21   1.9   thorpej  *	Foundation, Inc. and its contributors.
     22   1.9   thorpej  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23   1.9   thorpej  *    contributors may be used to endorse or promote products derived
     24   1.9   thorpej  *    from this software without specific prior written permission.
     25   1.9   thorpej  *
     26   1.9   thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27   1.9   thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28   1.9   thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29   1.9   thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30   1.9   thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31   1.9   thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32   1.9   thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33   1.9   thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34   1.9   thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35   1.9   thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36   1.9   thorpej  * POSSIBILITY OF SUCH DAMAGE.
     37   1.9   thorpej  */
     38   1.1   thorpej 
     39   1.1   thorpej /*
     40   1.1   thorpej  * Copyright (c) 1992, The University of Utah and
     41   1.1   thorpej  * the Computer Systems Laboratory at the University of Utah (CSL).
     42   1.1   thorpej  * All rights reserved.
     43   1.1   thorpej  *
     44   1.1   thorpej  * Permission to use, copy, modify and distribute this software is hereby
     45   1.1   thorpej  * granted provided that (1) source code retains these copyright, permission,
     46   1.1   thorpej  * and disclaimer notices, and (2) redistributions including binaries
     47   1.1   thorpej  * reproduce the notices in supporting documentation, and (3) all advertising
     48   1.1   thorpej  * materials mentioning features or use of this software display the following
     49   1.1   thorpej  * acknowledgement: ``This product includes software developed by the
     50   1.1   thorpej  * Computer Systems Laboratory at the University of Utah.''
     51   1.1   thorpej  *
     52   1.1   thorpej  * THE UNIVERSITY OF UTAH AND CSL ALLOW FREE USE OF THIS SOFTWARE IN ITS "AS
     53   1.1   thorpej  * IS" CONDITION.  THE UNIVERSITY OF UTAH AND CSL DISCLAIM ANY LIABILITY OF
     54   1.1   thorpej  * ANY KIND FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     55   1.1   thorpej  *
     56   1.1   thorpej  * CSL requests users of this software to return to csl-dist (at) cs.utah.edu any
     57   1.1   thorpej  * improvements that they make and grant CSL redistribution rights.
     58   1.1   thorpej  *
     59   1.1   thorpej  *	Utah $Hdr: mt.c 1.8 95/09/12$
     60   1.1   thorpej  */
     61   1.1   thorpej /*	@(#)mt.c	3.9	90/07/10	mt Xinu
     62   1.1   thorpej  *
     63   1.1   thorpej  * Magnetic tape driver (7974a, 7978a/b, 7979a, 7980a, 7980xc)
     64   1.1   thorpej  * Original version contributed by Mt. Xinu.
     65   1.1   thorpej  * Modified for 4.4BSD by Mark Davies and Andrew Vignaux, Department of
     66   1.1   thorpej  * Computer Science, Victoria University of Wellington
     67   1.1   thorpej  */
     68  1.16  gmcgarry 
     69  1.16  gmcgarry #include <sys/cdefs.h>
     70  1.18   gehenna __KERNEL_RCSID(0, "$NetBSD: mt.c,v 1.18 2002/09/06 13:18:43 gehenna Exp $");
     71   1.1   thorpej 
     72   1.1   thorpej #include <sys/param.h>
     73   1.1   thorpej #include <sys/systm.h>
     74  1.13   thorpej #include <sys/callout.h>
     75   1.1   thorpej #include <sys/buf.h>
     76   1.1   thorpej #include <sys/ioctl.h>
     77   1.1   thorpej #include <sys/mtio.h>
     78   1.1   thorpej #include <sys/file.h>
     79   1.1   thorpej #include <sys/proc.h>
     80   1.1   thorpej #include <sys/errno.h>
     81   1.1   thorpej #include <sys/syslog.h>
     82   1.1   thorpej #include <sys/tty.h>
     83   1.1   thorpej #include <sys/kernel.h>
     84   1.1   thorpej #include <sys/tprintf.h>
     85   1.7   thorpej #include <sys/device.h>
     86   1.7   thorpej #include <sys/conf.h>
     87   1.1   thorpej 
     88   1.1   thorpej #include <hp300/dev/hpibvar.h>
     89   1.7   thorpej 
     90   1.1   thorpej #include <hp300/dev/mtreg.h>
     91   1.1   thorpej 
     92   1.1   thorpej struct	mtinfo {
     93   1.1   thorpej 	u_short	hwid;
     94   1.1   thorpej 	char	*desc;
     95   1.1   thorpej } mtinfo[] = {
     96   1.8    scottr 	{ MT7978ID,	"7978"	},
     97   1.8    scottr 	{ MT7979AID,	"7979A"	},
     98   1.8    scottr 	{ MT7980ID,	"7980"	},
     99   1.8    scottr 	{ MT7974AID,	"7974A"	},
    100   1.1   thorpej };
    101   1.1   thorpej int	nmtinfo = sizeof(mtinfo) / sizeof(mtinfo[0]);
    102   1.1   thorpej 
    103   1.1   thorpej struct	mt_softc {
    104   1.7   thorpej 	struct	device sc_dev;
    105  1.13   thorpej 	struct	callout sc_start_ch;
    106  1.13   thorpej 	struct	callout sc_intr_ch;
    107   1.7   thorpej 	int	sc_hpibno;	/* logical HPIB this slave it attached to */
    108   1.7   thorpej 	int	sc_slave;	/* HPIB slave address (0-6) */
    109   1.1   thorpej 	short	sc_flags;	/* see below */
    110   1.1   thorpej 	u_char	sc_lastdsj;	/* place for DSJ in mtreaddsj() */
    111   1.1   thorpej 	u_char	sc_lastecmd;	/* place for End Command in mtreaddsj() */
    112   1.1   thorpej 	short	sc_recvtimeo;	/* count of hpibsend timeouts to prevent hang */
    113   1.1   thorpej 	short	sc_statindex;	/* index for next sc_stat when MTF_STATTIMEO */
    114   1.1   thorpej 	struct	mt_stat sc_stat;/* status bytes last read from device */
    115   1.1   thorpej 	short	sc_density;	/* current density of tape (mtio.h format) */
    116   1.1   thorpej 	short	sc_type;	/* tape drive model (hardware IDs) */
    117   1.7   thorpej 	struct	hpibqueue sc_hq; /* HPIB device queue member */
    118   1.1   thorpej 	tpr_t	sc_ttyp;
    119  1.17   hannken 	struct bufq_state sc_tab;/* buf queue */
    120  1.11   thorpej 	int	sc_active;
    121   1.7   thorpej 	struct buf sc_bufstore;	/* XXX buffer storage */
    122   1.7   thorpej };
    123   1.1   thorpej 
    124   1.1   thorpej #ifdef DEBUG
    125   1.1   thorpej int	mtdebug = 0;
    126   1.1   thorpej #define	dlog	if (mtdebug) log
    127   1.1   thorpej #else
    128   1.1   thorpej #define	dlog	if (0) log
    129   1.1   thorpej #endif
    130   1.1   thorpej 
    131   1.1   thorpej #define	UNIT(x)		(minor(x) & 3)
    132   1.1   thorpej 
    133   1.1   thorpej #define B_CMD		B_XXX		/* command buf instead of data */
    134   1.1   thorpej #define	b_cmd		b_blkno		/* blkno holds cmd when B_CMD */
    135   1.1   thorpej 
    136   1.7   thorpej int	mtmatch __P((struct device *, struct cfdata *, void *));
    137   1.7   thorpej void	mtattach __P((struct device *, struct device *, void *));
    138   1.7   thorpej 
    139   1.7   thorpej struct cfattach mt_ca = {
    140   1.7   thorpej 	sizeof(struct mt_softc), mtmatch, mtattach
    141   1.1   thorpej };
    142   1.1   thorpej 
    143  1.10   thorpej extern struct cfdriver mt_cd;
    144   1.7   thorpej 
    145  1.18   gehenna dev_type_open(mtopen);
    146  1.18   gehenna dev_type_close(mtclose);
    147  1.18   gehenna dev_type_read(mtread);
    148  1.18   gehenna dev_type_write(mtwrite);
    149  1.18   gehenna dev_type_ioctl(mtioctl);
    150  1.18   gehenna dev_type_strategy(mtstrategy);
    151  1.18   gehenna 
    152  1.18   gehenna const struct bdevsw mt_bdevsw = {
    153  1.18   gehenna 	mtopen, mtclose, mtstrategy, mtioctl, nodump, nosize, D_TAPE
    154  1.18   gehenna };
    155  1.18   gehenna 
    156  1.18   gehenna const struct cdevsw mt_cdevsw = {
    157  1.18   gehenna 	mtopen, mtclose, mtread, mtwrite, mtioctl,
    158  1.18   gehenna 	nostop, notty, nopoll, nommap, D_TAPE
    159  1.18   gehenna };
    160  1.18   gehenna 
    161   1.7   thorpej int	mtident __P((struct mt_softc *, struct hpibbus_attach_args *));
    162   1.7   thorpej void	mtustart __P((struct mt_softc *));
    163   1.7   thorpej int	mtreaddsj __P((struct mt_softc *, int));
    164   1.7   thorpej int	mtcommand __P((dev_t, int, int));
    165   1.7   thorpej void	spl_mtintr __P((void *));
    166   1.7   thorpej void	spl_mtstart __P((void *));
    167   1.7   thorpej 
    168   1.7   thorpej void	mtstart __P((void *));
    169   1.7   thorpej void	mtgo __P((void *));
    170   1.7   thorpej void	mtintr __P((void *));
    171   1.7   thorpej 
    172   1.2   thorpej int
    173   1.7   thorpej mtmatch(parent, match, aux)
    174   1.7   thorpej 	struct device *parent;
    175   1.7   thorpej 	struct cfdata *match;
    176   1.7   thorpej 	void *aux;
    177   1.1   thorpej {
    178   1.7   thorpej 	struct hpibbus_attach_args *ha = aux;
    179   1.2   thorpej 
    180   1.7   thorpej 	return (mtident(NULL, ha));
    181   1.2   thorpej }
    182   1.2   thorpej 
    183   1.2   thorpej void
    184   1.7   thorpej mtattach(parent, self, aux)
    185   1.7   thorpej 	struct device *parent, *self;
    186   1.7   thorpej 	void *aux;
    187   1.7   thorpej {
    188   1.7   thorpej 	struct mt_softc *sc = (struct mt_softc *)self;
    189   1.7   thorpej 	struct hpibbus_attach_args *ha = aux;
    190   1.7   thorpej 	int unit, hpibno, slave;
    191   1.7   thorpej 
    192   1.7   thorpej 	if (mtident(sc, ha) == 0) {
    193   1.7   thorpej 		printf("\n%s: impossible!\n", sc->sc_dev.dv_xname);
    194   1.7   thorpej 		return;
    195   1.7   thorpej 	}
    196   1.2   thorpej 
    197   1.7   thorpej 	unit = self->dv_unit;
    198   1.7   thorpej 	hpibno = parent->dv_unit;
    199   1.7   thorpej 	slave = ha->ha_slave;
    200   1.1   thorpej 
    201  1.17   hannken 	bufq_alloc(&sc->sc_tab, BUFQ_FCFS);
    202  1.13   thorpej 	callout_init(&sc->sc_start_ch);
    203  1.13   thorpej 	callout_init(&sc->sc_intr_ch);
    204   1.1   thorpej 
    205   1.1   thorpej 	sc->sc_hpibno = hpibno;
    206   1.1   thorpej 	sc->sc_slave = slave;
    207   1.1   thorpej 	sc->sc_flags = MTF_EXISTS;
    208   1.6   thorpej 
    209   1.7   thorpej 	/* Initialize hpib job queue entry. */
    210   1.7   thorpej 	sc->sc_hq.hq_softc = sc;
    211   1.7   thorpej 	sc->sc_hq.hq_slave = sc->sc_slave;
    212   1.7   thorpej 	sc->sc_hq.hq_start = mtstart;
    213   1.7   thorpej 	sc->sc_hq.hq_go = mtgo;
    214   1.7   thorpej 	sc->sc_hq.hq_intr = mtintr;
    215   1.7   thorpej }
    216   1.7   thorpej 
    217   1.7   thorpej int
    218   1.7   thorpej mtident(sc, ha)
    219   1.7   thorpej 	struct mt_softc *sc;
    220   1.7   thorpej 	struct hpibbus_attach_args *ha;
    221   1.7   thorpej {
    222   1.7   thorpej 	int i;
    223   1.7   thorpej 
    224   1.7   thorpej 	for (i = 0; i < nmtinfo; i++) {
    225   1.7   thorpej 		if (ha->ha_id == mtinfo[i].hwid) {
    226   1.7   thorpej 			if (sc != NULL) {
    227   1.7   thorpej 				sc->sc_type = mtinfo[i].hwid;
    228   1.7   thorpej 				printf(": %s tape\n", mtinfo[i].desc);
    229   1.7   thorpej 			}
    230   1.7   thorpej 			return (1);
    231   1.7   thorpej 		}
    232   1.7   thorpej 	}
    233   1.7   thorpej 	return (0);
    234   1.1   thorpej }
    235   1.1   thorpej 
    236   1.1   thorpej /*
    237   1.1   thorpej  * Perform a read of "Device Status Jump" register and update the
    238   1.1   thorpej  * status if necessary.  If status is read, the given "ecmd" is also
    239   1.1   thorpej  * performed, unless "ecmd" is zero.  Returns DSJ value, -1 on failure
    240   1.1   thorpej  * and -2 on "temporary" failure.
    241   1.1   thorpej  */
    242   1.7   thorpej int
    243   1.7   thorpej mtreaddsj(sc, ecmd)
    244   1.7   thorpej 	struct mt_softc *sc;
    245   1.1   thorpej 	int ecmd;
    246   1.1   thorpej {
    247   1.1   thorpej 	int retval;
    248   1.1   thorpej 
    249   1.1   thorpej 	if (sc->sc_flags & MTF_STATTIMEO)
    250   1.1   thorpej 		goto getstats;
    251   1.1   thorpej 	retval = hpibrecv(sc->sc_hpibno,
    252   1.7   thorpej 	    (sc->sc_flags & MTF_DSJTIMEO) ? -1 : sc->sc_slave,
    253   1.7   thorpej 	    MTT_DSJ, &(sc->sc_lastdsj), 1);
    254   1.1   thorpej 	sc->sc_flags &= ~MTF_DSJTIMEO;
    255   1.1   thorpej 	if (retval != 1) {
    256   1.7   thorpej 		dlog(LOG_DEBUG, "%s can't hpibrecv DSJ",
    257   1.7   thorpej 		    sc->sc_dev.dv_xname);
    258   1.1   thorpej 		if (sc->sc_recvtimeo == 0)
    259   1.1   thorpej 			sc->sc_recvtimeo = hz;
    260   1.1   thorpej 		if (--sc->sc_recvtimeo == 0)
    261   1.1   thorpej 			return (-1);
    262   1.1   thorpej 		if (retval == 0)
    263   1.1   thorpej 			sc->sc_flags |= MTF_DSJTIMEO;
    264   1.1   thorpej 		return (-2);
    265   1.1   thorpej 	}
    266   1.1   thorpej 	sc->sc_recvtimeo = 0;
    267   1.1   thorpej 	sc->sc_statindex = 0;
    268   1.7   thorpej 	dlog(LOG_DEBUG, "%s readdsj: 0x%x", sc->sc_dev.dv_xname,
    269   1.7   thorpej 	    sc->sc_lastdsj);
    270   1.1   thorpej 	sc->sc_lastecmd = ecmd;
    271   1.1   thorpej 	switch (sc->sc_lastdsj) {
    272   1.1   thorpej 	    case 0:
    273   1.1   thorpej 		if (ecmd & MTE_DSJ_FORCE)
    274   1.1   thorpej 			break;
    275   1.1   thorpej 		return (0);
    276   1.1   thorpej 
    277   1.1   thorpej 	    case 2:
    278   1.1   thorpej 		sc->sc_lastecmd = MTE_COMPLETE;
    279   1.1   thorpej 	    case 1:
    280   1.1   thorpej 		break;
    281   1.1   thorpej 
    282   1.1   thorpej 	    default:
    283   1.7   thorpej 		log(LOG_ERR, "%s readdsj: DSJ 0x%x\n", sc->sc_dev.dv_xname,
    284   1.7   thorpej 		    sc->sc_lastdsj);
    285   1.1   thorpej 		return (-1);
    286   1.1   thorpej 	}
    287   1.1   thorpej     getstats:
    288   1.1   thorpej 	retval = hpibrecv(sc->sc_hpibno,
    289   1.7   thorpej 	    (sc->sc_flags & MTF_STATCONT) ? -1 : sc->sc_slave,
    290   1.7   thorpej 	    MTT_STAT, ((char *)&(sc->sc_stat)) + sc->sc_statindex,
    291   1.7   thorpej 	    sizeof(sc->sc_stat) - sc->sc_statindex);
    292   1.1   thorpej 	sc->sc_flags &= ~(MTF_STATTIMEO | MTF_STATCONT);
    293   1.1   thorpej 	if (retval != sizeof(sc->sc_stat) - sc->sc_statindex) {
    294   1.1   thorpej 		if (sc->sc_recvtimeo == 0)
    295   1.1   thorpej 			sc->sc_recvtimeo = hz;
    296   1.1   thorpej 		if (--sc->sc_recvtimeo != 0) {
    297   1.1   thorpej 			if (retval >= 0) {
    298   1.1   thorpej 				sc->sc_statindex += retval;
    299   1.1   thorpej 				sc->sc_flags |= MTF_STATCONT;
    300   1.1   thorpej 			}
    301   1.1   thorpej 			sc->sc_flags |= MTF_STATTIMEO;
    302   1.1   thorpej 			return (-2);
    303   1.1   thorpej 		}
    304   1.7   thorpej 		log(LOG_ERR, "%s readdsj: can't read status",
    305   1.7   thorpej 		    sc->sc_dev.dv_xname);
    306   1.1   thorpej 		return (-1);
    307   1.1   thorpej 	}
    308   1.1   thorpej 	sc->sc_recvtimeo = 0;
    309   1.1   thorpej 	sc->sc_statindex = 0;
    310   1.7   thorpej 	dlog(LOG_DEBUG, "%s readdsj: status is %x %x %x %x %x %x",
    311   1.7   thorpej 	    sc->sc_dev.dv_xname,
    312   1.7   thorpej 	    sc->sc_stat1, sc->sc_stat2, sc->sc_stat3,
    313   1.7   thorpej 	    sc->sc_stat4, sc->sc_stat5, sc->sc_stat6);
    314   1.1   thorpej 	if (sc->sc_lastecmd)
    315   1.1   thorpej 		(void) hpibsend(sc->sc_hpibno, sc->sc_slave,
    316   1.7   thorpej 		    MTL_ECMD, &(sc->sc_lastecmd), 1);
    317   1.1   thorpej 	return ((int) sc->sc_lastdsj);
    318   1.1   thorpej }
    319   1.1   thorpej 
    320   1.7   thorpej int
    321   1.1   thorpej mtopen(dev, flag, mode, p)
    322   1.1   thorpej 	dev_t dev;
    323   1.1   thorpej 	int flag, mode;
    324   1.1   thorpej 	struct proc *p;
    325   1.1   thorpej {
    326   1.8    scottr 	int unit = UNIT(dev);
    327   1.7   thorpej 	struct mt_softc *sc;
    328   1.8    scottr 	int req_den;
    329   1.1   thorpej 	int error;
    330   1.1   thorpej 
    331   1.7   thorpej 	if (unit >= mt_cd.cd_ndevs ||
    332   1.7   thorpej 	    (sc = mt_cd.cd_devs[unit]) == NULL ||
    333   1.7   thorpej 	    (sc->sc_flags & MTF_EXISTS) == 0)
    334   1.1   thorpej 		return (ENXIO);
    335   1.7   thorpej 
    336   1.7   thorpej 	dlog(LOG_DEBUG, "%s open: flags 0x%x", sc->sc_dev.dv_xname,
    337   1.7   thorpej 	    sc->sc_flags);
    338   1.1   thorpej 	if (sc->sc_flags & MTF_OPEN)
    339   1.1   thorpej 		return (EBUSY);
    340   1.1   thorpej 	sc->sc_flags |= MTF_OPEN;
    341   1.1   thorpej 	sc->sc_ttyp = tprintf_open(p);
    342   1.1   thorpej 	if ((sc->sc_flags & MTF_ALIVE) == 0) {
    343   1.1   thorpej 		error = mtcommand(dev, MTRESET, 0);
    344   1.1   thorpej 		if (error != 0 || (sc->sc_flags & MTF_ALIVE) == 0)
    345   1.1   thorpej 			goto errout;
    346   1.1   thorpej 		if ((sc->sc_stat1 & (SR1_BOT | SR1_ONLINE)) == SR1_ONLINE)
    347   1.1   thorpej 			(void) mtcommand(dev, MTREW, 0);
    348   1.1   thorpej 	}
    349   1.1   thorpej 	for (;;) {
    350   1.1   thorpej 		if ((error = mtcommand(dev, MTNOP, 0)) != 0)
    351   1.1   thorpej 			goto errout;
    352   1.1   thorpej 		if (!(sc->sc_flags & MTF_REW))
    353   1.1   thorpej 			break;
    354   1.7   thorpej 		if (tsleep((caddr_t) &lbolt, PCATCH | (PZERO + 1),
    355   1.7   thorpej 		    "mt", 0) != 0) {
    356   1.1   thorpej 			error = EINTR;
    357   1.1   thorpej 			goto errout;
    358   1.1   thorpej 		}
    359   1.1   thorpej 	}
    360   1.1   thorpej 	if ((flag & FWRITE) && (sc->sc_stat1 & SR1_RO)) {
    361   1.1   thorpej 		error = EROFS;
    362   1.1   thorpej 		goto errout;
    363   1.1   thorpej 	}
    364   1.1   thorpej 	if (!(sc->sc_stat1 & SR1_ONLINE)) {
    365   1.7   thorpej 		uprintf("%s: not online\n", sc->sc_dev.dv_xname);
    366   1.1   thorpej 		error = EIO;
    367   1.1   thorpej 		goto errout;
    368   1.1   thorpej 	}
    369   1.1   thorpej 	/*
    370   1.1   thorpej 	 * Select density:
    371   1.1   thorpej 	 *  - find out what density the drive is set to
    372   1.1   thorpej 	 *	(i.e. the density of the current tape)
    373   1.1   thorpej 	 *  - if we are going to write
    374   1.1   thorpej 	 *    - if we're not at the beginning of the tape
    375   1.1   thorpej 	 *      - complain if we want to change densities
    376   1.1   thorpej 	 *    - otherwise, select the mtcommand to set the density
    377   1.1   thorpej 	 *
    378   1.1   thorpej 	 * If the drive doesn't support it then don't change the recorded
    379   1.1   thorpej 	 * density.
    380   1.1   thorpej 	 *
    381   1.1   thorpej 	 * The original MOREbsd code had these additional conditions
    382   1.1   thorpej 	 * for the mid-tape change
    383   1.1   thorpej 	 *
    384   1.1   thorpej 	 *	req_den != T_BADBPI &&
    385   1.1   thorpej 	 *	sc->sc_density != T_6250BPI
    386   1.1   thorpej 	 *
    387   1.1   thorpej 	 * which suggests that it would be possible to write multiple
    388   1.1   thorpej 	 * densities if req_den == T_BAD_BPI or the current tape
    389   1.1   thorpej 	 * density was 6250.  Testing of our 7980 suggests that the
    390   1.1   thorpej 	 * device cannot change densities mid-tape.
    391   1.1   thorpej 	 *
    392   1.1   thorpej 	 * ajv (at) comp.vuw.ac.nz
    393   1.1   thorpej 	 */
    394   1.1   thorpej 	sc->sc_density = (sc->sc_stat2 & SR2_6250) ? T_6250BPI : (
    395   1.1   thorpej 			 (sc->sc_stat3 & SR3_1600) ? T_1600BPI : (
    396   1.1   thorpej 			 (sc->sc_stat3 & SR3_800) ? T_800BPI : -1));
    397   1.1   thorpej 	req_den = (dev & T_DENSEL);
    398   1.1   thorpej 
    399   1.1   thorpej 	if (flag & FWRITE) {
    400   1.1   thorpej 		if (!(sc->sc_stat1 & SR1_BOT)) {
    401   1.1   thorpej 			if (sc->sc_density != req_den) {
    402   1.2   thorpej 				uprintf("%s: can't change density mid-tape\n",
    403   1.7   thorpej 				    sc->sc_dev.dv_xname);
    404   1.1   thorpej 				error = EIO;
    405   1.1   thorpej 				goto errout;
    406   1.1   thorpej 			}
    407   1.1   thorpej 		}
    408   1.1   thorpej 		else {
    409   1.1   thorpej 			int mtset_density =
    410   1.1   thorpej 			    (req_den == T_800BPI  ? MTSET800BPI : (
    411   1.1   thorpej 			     req_den == T_1600BPI ? MTSET1600BPI : (
    412   1.1   thorpej 			     req_den == T_6250BPI ? MTSET6250BPI : (
    413   1.1   thorpej 			     sc->sc_type == MT7980ID
    414   1.1   thorpej 						  ? MTSET6250DC
    415   1.1   thorpej 						  : MTSET6250BPI))));
    416   1.1   thorpej 			if (mtcommand(dev, mtset_density, 0) == 0)
    417   1.1   thorpej 				sc->sc_density = req_den;
    418   1.1   thorpej 		}
    419   1.1   thorpej 	}
    420   1.1   thorpej 	return (0);
    421   1.1   thorpej errout:
    422   1.1   thorpej 	sc->sc_flags &= ~MTF_OPEN;
    423   1.1   thorpej 	return (error);
    424   1.1   thorpej }
    425   1.1   thorpej 
    426   1.7   thorpej int
    427   1.7   thorpej mtclose(dev, flag, fmt, p)
    428   1.1   thorpej 	dev_t dev;
    429   1.7   thorpej 	int flag, fmt;
    430   1.7   thorpej 	struct proc *p;
    431   1.1   thorpej {
    432   1.7   thorpej 	struct mt_softc *sc = mt_cd.cd_devs[UNIT(dev)];
    433   1.1   thorpej 
    434   1.1   thorpej 	if (sc->sc_flags & MTF_WRT) {
    435   1.1   thorpej 		(void) mtcommand(dev, MTWEOF, 2);
    436   1.1   thorpej 		(void) mtcommand(dev, MTBSF, 0);
    437   1.1   thorpej 	}
    438   1.1   thorpej 	if ((minor(dev) & T_NOREWIND) == 0)
    439   1.1   thorpej 		(void) mtcommand(dev, MTREW, 0);
    440   1.1   thorpej 	sc->sc_flags &= ~MTF_OPEN;
    441   1.1   thorpej 	tprintf_close(sc->sc_ttyp);
    442   1.1   thorpej 	return (0);
    443   1.1   thorpej }
    444   1.1   thorpej 
    445   1.7   thorpej int
    446   1.1   thorpej mtcommand(dev, cmd, cnt)
    447   1.1   thorpej 	dev_t dev;
    448   1.1   thorpej 	int cmd;
    449   1.1   thorpej 	int cnt;
    450   1.1   thorpej {
    451   1.7   thorpej 	struct mt_softc *sc = mt_cd.cd_devs[UNIT(dev)];
    452   1.7   thorpej 	struct buf *bp = &sc->sc_bufstore;
    453   1.1   thorpej 	int error = 0;
    454   1.1   thorpej 
    455   1.1   thorpej #if 1
    456   1.1   thorpej 	if (bp->b_flags & B_BUSY)
    457   1.1   thorpej 		return (EBUSY);
    458   1.1   thorpej #endif
    459   1.1   thorpej 	bp->b_cmd = cmd;
    460   1.1   thorpej 	bp->b_dev = dev;
    461   1.1   thorpej 	do {
    462   1.1   thorpej 		bp->b_flags = B_BUSY | B_CMD;
    463   1.1   thorpej 		mtstrategy(bp);
    464  1.11   thorpej 		biowait(bp);
    465   1.1   thorpej 		if (bp->b_flags & B_ERROR) {
    466   1.1   thorpej 			error = (int) (unsigned) bp->b_error;
    467   1.1   thorpej 			break;
    468   1.1   thorpej 		}
    469   1.1   thorpej 	} while (--cnt > 0);
    470   1.1   thorpej #if 0
    471   1.1   thorpej 	bp->b_flags = 0 /*&= ~B_BUSY*/;
    472   1.1   thorpej #else
    473   1.1   thorpej 	bp->b_flags &= ~B_BUSY;
    474   1.1   thorpej #endif
    475   1.1   thorpej 	return (error);
    476   1.1   thorpej }
    477   1.1   thorpej 
    478   1.1   thorpej /*
    479   1.1   thorpej  * Only thing to check here is for legal record lengths (writes only).
    480   1.1   thorpej  */
    481   1.1   thorpej void
    482   1.1   thorpej mtstrategy(bp)
    483   1.8    scottr 	struct buf *bp;
    484   1.1   thorpej {
    485   1.8    scottr 	struct mt_softc *sc;
    486   1.8    scottr 	int unit;
    487   1.8    scottr 	int s;
    488   1.1   thorpej 
    489   1.1   thorpej 	unit = UNIT(bp->b_dev);
    490   1.7   thorpej 	sc = mt_cd.cd_devs[unit];
    491   1.7   thorpej 	dlog(LOG_DEBUG, "%s strategy", sc->sc_dev.dv_xname);
    492   1.1   thorpej 	if ((bp->b_flags & (B_CMD | B_READ)) == 0) {
    493   1.1   thorpej #define WRITE_BITS_IGNORED	8
    494   1.1   thorpej #if 0
    495   1.1   thorpej 		if (bp->b_bcount & ((1 << WRITE_BITS_IGNORED) - 1)) {
    496   1.1   thorpej 			tprintf(sc->sc_ttyp,
    497   1.2   thorpej 				"%s: write record must be multiple of %d\n",
    498   1.7   thorpej 				sc->sc_dev.dv_xname, 1 << WRITE_BITS_IGNORED);
    499   1.1   thorpej 			goto error;
    500   1.1   thorpej 		}
    501   1.1   thorpej #endif
    502   1.1   thorpej 		s = 16 * 1024;
    503   1.1   thorpej 		if (sc->sc_stat2 & SR2_LONGREC) {
    504   1.1   thorpej 			switch (sc->sc_density) {
    505   1.1   thorpej 			    case T_1600BPI:
    506   1.1   thorpej 				s = 32 * 1024;
    507   1.1   thorpej 				break;
    508   1.1   thorpej 
    509   1.1   thorpej 			    case T_6250BPI:
    510   1.1   thorpej 			    case T_BADBPI:
    511   1.1   thorpej 				s = 60 * 1024;
    512   1.1   thorpej 				break;
    513   1.1   thorpej 			}
    514   1.1   thorpej 		}
    515   1.1   thorpej 		if (bp->b_bcount > s) {
    516   1.1   thorpej 			tprintf(sc->sc_ttyp,
    517   1.8    scottr 				"%s: write record (%ld) too big: limit (%d)\n",
    518   1.7   thorpej 				sc->sc_dev.dv_xname, bp->b_bcount, s);
    519   1.8    scottr #if 0 /* XXX see above */
    520   1.1   thorpej 	    error:
    521   1.8    scottr #endif
    522   1.1   thorpej 			bp->b_flags |= B_ERROR;
    523   1.1   thorpej 			bp->b_error = EIO;
    524  1.11   thorpej 			biodone(bp);
    525   1.1   thorpej 			return;
    526   1.1   thorpej 		}
    527   1.1   thorpej 	}
    528   1.1   thorpej 	s = splbio();
    529  1.17   hannken 	BUFQ_PUT(&sc->sc_tab, bp);
    530  1.11   thorpej 	if (sc->sc_active == 0) {
    531  1.11   thorpej 		sc->sc_active = 1;
    532   1.7   thorpej 		mtustart(sc);
    533   1.1   thorpej 	}
    534   1.1   thorpej 	splx(s);
    535   1.1   thorpej }
    536   1.1   thorpej 
    537   1.1   thorpej void
    538   1.7   thorpej mtustart(sc)
    539   1.7   thorpej 	struct mt_softc *sc;
    540   1.1   thorpej {
    541   1.1   thorpej 
    542   1.7   thorpej 	dlog(LOG_DEBUG, "%s ustart", sc->sc_dev.dv_xname);
    543   1.7   thorpej 	if (hpibreq(sc->sc_dev.dv_parent, &sc->sc_hq))
    544   1.7   thorpej 		mtstart(sc);
    545   1.1   thorpej }
    546   1.1   thorpej 
    547   1.1   thorpej void
    548   1.3   thorpej spl_mtintr(arg)
    549   1.3   thorpej 	void *arg;
    550   1.1   thorpej {
    551   1.3   thorpej 	struct mt_softc *sc = arg;
    552   1.1   thorpej 	int s = splbio();
    553   1.1   thorpej 
    554   1.3   thorpej 	hpibppclear(sc->sc_hpibno);
    555   1.3   thorpej 	mtintr(sc);
    556  1.15  gmcgarry 	splx(s);
    557   1.1   thorpej }
    558   1.1   thorpej 
    559   1.1   thorpej void
    560   1.7   thorpej spl_mtstart(arg)
    561   1.7   thorpej 	void *arg;
    562   1.1   thorpej {
    563   1.1   thorpej 	int s = splbio();
    564   1.1   thorpej 
    565   1.7   thorpej 	mtstart(arg);
    566  1.15  gmcgarry 	splx(s);
    567   1.1   thorpej }
    568   1.1   thorpej 
    569   1.1   thorpej void
    570   1.7   thorpej mtstart(arg)
    571   1.7   thorpej 	void *arg;
    572   1.1   thorpej {
    573   1.7   thorpej 	struct mt_softc *sc = arg;
    574  1.12   frueauf 	struct buf *bp;
    575   1.1   thorpej 	short	cmdcount = 1;
    576   1.1   thorpej 	u_char	cmdbuf[2];
    577   1.1   thorpej 
    578   1.7   thorpej 	dlog(LOG_DEBUG, "%s start", sc->sc_dev.dv_xname);
    579   1.1   thorpej 	sc->sc_flags &= ~MTF_WRT;
    580  1.17   hannken 	bp = BUFQ_PEEK(&sc->sc_tab);
    581   1.1   thorpej 	if ((sc->sc_flags & MTF_ALIVE) == 0 &&
    582   1.1   thorpej 	    ((bp->b_flags & B_CMD) == 0 || bp->b_cmd != MTRESET))
    583   1.1   thorpej 		goto fatalerror;
    584   1.1   thorpej 
    585   1.1   thorpej 	if (sc->sc_flags & MTF_REW) {
    586   1.1   thorpej 		if (!hpibpptest(sc->sc_hpibno, sc->sc_slave))
    587   1.1   thorpej 			goto stillrew;
    588   1.7   thorpej 		switch (mtreaddsj(sc, MTE_DSJ_FORCE|MTE_COMPLETE|MTE_IDLE)) {
    589   1.1   thorpej 		    case 0:
    590   1.1   thorpej 		    case 1:
    591   1.1   thorpej 		stillrew:
    592   1.1   thorpej 			if ((sc->sc_stat1 & SR1_BOT) ||
    593   1.1   thorpej 			    !(sc->sc_stat1 & SR1_ONLINE)) {
    594   1.1   thorpej 				sc->sc_flags &= ~MTF_REW;
    595   1.1   thorpej 				break;
    596   1.1   thorpej 			}
    597   1.1   thorpej 		    case -2:
    598   1.1   thorpej 			/*
    599   1.1   thorpej 			 * -2 means "timeout" reading DSJ, which is probably
    600   1.1   thorpej 			 * temporary.  This is considered OK when doing a NOP,
    601   1.1   thorpej 			 * but not otherwise.
    602   1.1   thorpej 			 */
    603   1.1   thorpej 			if (sc->sc_flags & (MTF_DSJTIMEO | MTF_STATTIMEO)) {
    604  1.13   thorpej 				callout_reset(&sc->sc_start_ch, hz >> 5,
    605  1.13   thorpej 				    spl_mtstart, sc);
    606   1.1   thorpej 				return;
    607   1.1   thorpej 			}
    608   1.1   thorpej 		    case 2:
    609   1.1   thorpej 			if (bp->b_cmd != MTNOP || !(bp->b_flags & B_CMD)) {
    610   1.1   thorpej 				bp->b_error = EBUSY;
    611   1.1   thorpej 				goto errdone;
    612   1.1   thorpej 			}
    613   1.1   thorpej 			goto done;
    614   1.1   thorpej 
    615   1.1   thorpej 		    default:
    616   1.1   thorpej 			goto fatalerror;
    617   1.1   thorpej 		}
    618   1.1   thorpej 	}
    619   1.1   thorpej 	if (bp->b_flags & B_CMD) {
    620   1.1   thorpej 		if (sc->sc_flags & MTF_PASTEOT) {
    621   1.1   thorpej 			switch(bp->b_cmd) {
    622   1.1   thorpej 			    case MTFSF:
    623   1.1   thorpej 			    case MTWEOF:
    624   1.1   thorpej 			    case MTFSR:
    625   1.1   thorpej 				bp->b_error = ENOSPC;
    626   1.1   thorpej 				goto errdone;
    627   1.1   thorpej 
    628   1.1   thorpej 			    case MTBSF:
    629   1.1   thorpej 			    case MTOFFL:
    630   1.1   thorpej 			    case MTBSR:
    631   1.1   thorpej 			    case MTREW:
    632   1.1   thorpej 				sc->sc_flags &= ~(MTF_PASTEOT | MTF_ATEOT);
    633   1.1   thorpej 				break;
    634   1.1   thorpej 			}
    635   1.1   thorpej 		}
    636   1.1   thorpej 		switch(bp->b_cmd) {
    637   1.1   thorpej 		    case MTFSF:
    638   1.1   thorpej 			if (sc->sc_flags & MTF_HITEOF)
    639   1.1   thorpej 				goto done;
    640   1.1   thorpej 			cmdbuf[0] = MTTC_FSF;
    641   1.1   thorpej 			break;
    642   1.1   thorpej 
    643   1.1   thorpej 		    case MTBSF:
    644   1.1   thorpej 			if (sc->sc_flags & MTF_HITBOF)
    645   1.1   thorpej 				goto done;
    646   1.1   thorpej 			cmdbuf[0] = MTTC_BSF;
    647   1.1   thorpej 			break;
    648   1.1   thorpej 
    649   1.1   thorpej 		    case MTOFFL:
    650   1.1   thorpej 			sc->sc_flags |= MTF_REW;
    651   1.1   thorpej 			cmdbuf[0] = MTTC_REWOFF;
    652   1.1   thorpej 			break;
    653   1.1   thorpej 
    654   1.1   thorpej 		    case MTWEOF:
    655   1.1   thorpej 			cmdbuf[0] = MTTC_WFM;
    656   1.1   thorpej 			break;
    657   1.1   thorpej 
    658   1.1   thorpej 		    case MTBSR:
    659   1.1   thorpej 			cmdbuf[0] = MTTC_BSR;
    660   1.1   thorpej 			break;
    661   1.1   thorpej 
    662   1.1   thorpej 		    case MTFSR:
    663   1.1   thorpej 			cmdbuf[0] = MTTC_FSR;
    664   1.1   thorpej 			break;
    665   1.1   thorpej 
    666   1.1   thorpej 		    case MTREW:
    667   1.1   thorpej 			sc->sc_flags |= MTF_REW;
    668   1.1   thorpej 			cmdbuf[0] = MTTC_REW;
    669   1.1   thorpej 			break;
    670   1.1   thorpej 
    671   1.1   thorpej 		    case MTNOP:
    672   1.1   thorpej 			/*
    673   1.1   thorpej 			 * NOP is supposed to set status bits.
    674   1.1   thorpej 			 * Force readdsj to do it.
    675   1.1   thorpej 			 */
    676   1.7   thorpej 			switch (mtreaddsj(sc,
    677   1.7   thorpej 			  MTE_DSJ_FORCE | MTE_COMPLETE | MTE_IDLE)) {
    678   1.1   thorpej 			    default:
    679   1.1   thorpej 				goto done;
    680   1.1   thorpej 
    681   1.1   thorpej 			    case -1:
    682   1.1   thorpej 				/*
    683   1.1   thorpej 				 * If this fails, perform a device clear
    684   1.1   thorpej 				 * to fix any protocol problems and (most
    685   1.1   thorpej 				 * likely) get the status.
    686   1.1   thorpej 				 */
    687   1.1   thorpej 				bp->b_cmd = MTRESET;
    688   1.1   thorpej 				break;
    689   1.1   thorpej 
    690   1.1   thorpej 			    case -2:
    691  1.13   thorpej 				callout_reset(&sc->sc_start_ch, hz >> 5,
    692  1.13   thorpej 				    spl_mtstart, sc);
    693   1.1   thorpej 				return;
    694   1.1   thorpej 			}
    695   1.1   thorpej 
    696   1.1   thorpej 		    case MTRESET:
    697   1.1   thorpej 			/*
    698   1.1   thorpej 			 * 1) selected device clear (send with "-2" secondary)
    699   1.1   thorpej 			 * 2) set timeout, then wait for "service request"
    700   1.1   thorpej 			 * 3) interrupt will read DSJ (and END COMPLETE-IDLE)
    701   1.1   thorpej 			 */
    702   1.1   thorpej 			if (hpibsend(sc->sc_hpibno, sc->sc_slave, -2, NULL, 0)){
    703   1.7   thorpej 				log(LOG_ERR, "%s can't reset",
    704   1.7   thorpej 				    sc->sc_dev.dv_xname);
    705   1.1   thorpej 				goto fatalerror;
    706   1.1   thorpej 			}
    707  1.13   thorpej 			callout_reset(&sc->sc_intr_ch, 4 * hz, spl_mtintr, sc);
    708   1.8    scottr 			hpibawait(sc->sc_hpibno);
    709   1.1   thorpej 			return;
    710   1.1   thorpej 
    711   1.1   thorpej 		    case MTSET800BPI:
    712   1.1   thorpej 			cmdbuf[0] = MTTC_800;
    713   1.1   thorpej 			break;
    714   1.1   thorpej 
    715   1.1   thorpej 		    case MTSET1600BPI:
    716   1.1   thorpej 			cmdbuf[0] = MTTC_1600;
    717   1.1   thorpej 			break;
    718   1.1   thorpej 
    719   1.1   thorpej 		    case MTSET6250BPI:
    720   1.1   thorpej 			cmdbuf[0] = MTTC_6250;
    721   1.1   thorpej 			break;
    722   1.1   thorpej 
    723   1.1   thorpej 		    case MTSET6250DC:
    724   1.1   thorpej 			cmdbuf[0] = MTTC_DC6250;
    725   1.1   thorpej 			break;
    726   1.1   thorpej 		}
    727   1.1   thorpej 	} else {
    728   1.1   thorpej 		if (sc->sc_flags & MTF_PASTEOT) {
    729   1.1   thorpej 			bp->b_error = ENOSPC;
    730   1.1   thorpej 			goto errdone;
    731   1.1   thorpej 		}
    732   1.1   thorpej 		if (bp->b_flags & B_READ) {
    733   1.1   thorpej 			sc->sc_flags |= MTF_IO;
    734   1.1   thorpej 			cmdbuf[0] = MTTC_READ;
    735   1.1   thorpej 		} else {
    736   1.1   thorpej 			sc->sc_flags |= MTF_WRT | MTF_IO;
    737   1.1   thorpej 			cmdbuf[0] = MTTC_WRITE;
    738   1.1   thorpej 			cmdbuf[1] = (bp->b_bcount + ((1 << WRITE_BITS_IGNORED) - 1)) >> WRITE_BITS_IGNORED;
    739   1.1   thorpej 			cmdcount = 2;
    740   1.1   thorpej 		}
    741   1.1   thorpej 	}
    742   1.1   thorpej 	if (hpibsend(sc->sc_hpibno, sc->sc_slave, MTL_TCMD, cmdbuf, cmdcount)
    743   1.1   thorpej 	    == cmdcount) {
    744   1.1   thorpej 		if (sc->sc_flags & MTF_REW)
    745   1.1   thorpej 			goto done;
    746   1.1   thorpej 		hpibawait(sc->sc_hpibno);
    747   1.1   thorpej 		return;
    748   1.1   thorpej 	}
    749   1.1   thorpej fatalerror:
    750   1.1   thorpej 	/*
    751   1.1   thorpej 	 * If anything fails, the drive is probably hosed, so mark it not
    752   1.1   thorpej 	 * "ALIVE" (but it EXISTS and is OPEN or we wouldn't be here, and
    753   1.1   thorpej 	 * if, last we heard, it was REWinding, remember that).
    754   1.1   thorpej 	 */
    755   1.1   thorpej 	sc->sc_flags &= MTF_EXISTS | MTF_OPEN | MTF_REW;
    756   1.1   thorpej 	bp->b_error = EIO;
    757   1.1   thorpej errdone:
    758   1.1   thorpej 	bp->b_flags |= B_ERROR;
    759   1.1   thorpej done:
    760   1.1   thorpej 	sc->sc_flags &= ~(MTF_HITEOF | MTF_HITBOF);
    761  1.17   hannken 	(void)BUFQ_GET(&sc->sc_tab);
    762  1.11   thorpej 	biodone(bp);
    763   1.7   thorpej 	hpibfree(sc->sc_dev.dv_parent, &sc->sc_hq);
    764  1.17   hannken 	if ((bp = BUFQ_PEEK(&sc->sc_tab)) == NULL)
    765  1.11   thorpej 		sc->sc_active = 0;
    766   1.1   thorpej 	else
    767   1.7   thorpej 		mtustart(sc);
    768   1.1   thorpej }
    769   1.1   thorpej 
    770   1.1   thorpej /*
    771   1.1   thorpej  * The Utah code had a bug which meant that the driver was unable to read.
    772   1.1   thorpej  * "rw" was initialized to bp->b_flags & B_READ before "bp" was initialized.
    773   1.1   thorpej  *   -- ajv (at) comp.vuw.ac.nz
    774   1.1   thorpej  */
    775   1.1   thorpej void
    776   1.7   thorpej mtgo(arg)
    777   1.7   thorpej 	void *arg;
    778   1.1   thorpej {
    779   1.7   thorpej 	struct mt_softc *sc = arg;
    780   1.7   thorpej 	struct buf *bp;
    781   1.1   thorpej 	int rw;
    782   1.1   thorpej 
    783   1.7   thorpej 	dlog(LOG_DEBUG, "%s go", sc->sc_dev.dv_xname);
    784  1.17   hannken 	bp = BUFQ_PEEK(&sc->sc_tab);
    785   1.1   thorpej 	rw = bp->b_flags & B_READ;
    786   1.1   thorpej 	hpibgo(sc->sc_hpibno, sc->sc_slave, rw ? MTT_READ : MTL_WRITE,
    787  1.14   thorpej 	    bp->b_data, bp->b_bcount, rw, rw != 0);
    788   1.1   thorpej }
    789   1.1   thorpej 
    790   1.7   thorpej void
    791   1.3   thorpej mtintr(arg)
    792   1.3   thorpej 	void *arg;
    793   1.1   thorpej {
    794   1.7   thorpej 	struct mt_softc *sc = arg;
    795  1.12   frueauf 	struct buf *bp;
    796   1.7   thorpej 	int i;
    797   1.7   thorpej 	u_char cmdbuf[4];
    798   1.1   thorpej 
    799  1.17   hannken 	bp = BUFQ_PEEK(&sc->sc_tab);
    800   1.1   thorpej 	if (bp == NULL) {
    801   1.7   thorpej 		log(LOG_ERR, "%s intr: bp == NULL", sc->sc_dev.dv_xname);
    802   1.1   thorpej 		return;
    803   1.1   thorpej 	}
    804   1.7   thorpej 
    805   1.7   thorpej 	dlog(LOG_DEBUG, "%s intr", sc->sc_dev.dv_xname);
    806   1.7   thorpej 
    807   1.1   thorpej 	/*
    808   1.1   thorpej 	 * Some operation completed.  Read status bytes and report errors.
    809   1.1   thorpej 	 * Clear EOF flags here `cause they're set once on specific conditions
    810   1.1   thorpej 	 * below when a command succeeds.
    811   1.1   thorpej 	 * A DSJ of 2 always means keep waiting.  If the command was READ
    812   1.1   thorpej 	 * (and we're in data DMA phase) stop data transfer first.
    813   1.1   thorpej 	 */
    814   1.1   thorpej 	sc->sc_flags &= ~(MTF_HITEOF | MTF_HITBOF);
    815   1.1   thorpej 	if ((bp->b_flags & (B_CMD|B_READ)) == B_READ &&
    816   1.1   thorpej 	    !(sc->sc_flags & (MTF_IO | MTF_STATTIMEO | MTF_DSJTIMEO))){
    817   1.1   thorpej 		cmdbuf[0] = MTE_STOP;
    818   1.1   thorpej 		(void) hpibsend(sc->sc_hpibno, sc->sc_slave, MTL_ECMD,cmdbuf,1);
    819   1.1   thorpej 	}
    820   1.7   thorpej 	switch (mtreaddsj(sc, 0)) {
    821   1.1   thorpej 	    case 0:
    822   1.1   thorpej 		break;
    823   1.1   thorpej 
    824   1.1   thorpej 	    case 1:
    825   1.1   thorpej 		/*
    826   1.1   thorpej 		 * If we're in the middle of a READ/WRITE and have yet to
    827   1.1   thorpej 		 * start the data transfer, a DSJ of one should terminate it.
    828   1.1   thorpej 		 */
    829   1.1   thorpej 		sc->sc_flags &= ~MTF_IO;
    830   1.1   thorpej 		break;
    831   1.1   thorpej 
    832   1.1   thorpej 	    case 2:
    833   1.1   thorpej 		(void) hpibawait(sc->sc_hpibno);
    834   1.1   thorpej 		return;
    835   1.1   thorpej 
    836   1.1   thorpej 	    case -2:
    837   1.1   thorpej 		/*
    838   1.1   thorpej 		 * -2 means that the drive failed to respond quickly enough
    839   1.1   thorpej 		 * to the request for DSJ.  It's probably just "busy" figuring
    840   1.1   thorpej 		 * it out and will know in a little bit...
    841   1.1   thorpej 		 */
    842  1.13   thorpej 		callout_reset(&sc->sc_intr_ch, hz >> 5, spl_mtintr, sc);
    843   1.1   thorpej 		return;
    844   1.1   thorpej 
    845   1.1   thorpej 	    default:
    846   1.7   thorpej 		log(LOG_ERR, "%s intr: can't get drive stat",
    847   1.7   thorpej 		    sc->sc_dev.dv_xname);
    848   1.1   thorpej 		goto error;
    849   1.1   thorpej 	}
    850   1.1   thorpej 	if (sc->sc_stat1 & (SR1_ERR | SR1_REJECT)) {
    851   1.1   thorpej 		i = sc->sc_stat4 & SR4_ERCLMASK;
    852   1.7   thorpej 		log(LOG_ERR, "%s: %s error, retry %d, SR2/3 %x/%x, code %d",
    853   1.7   thorpej 			sc->sc_dev.dv_xname, i == SR4_DEVICE ? "device" :
    854   1.1   thorpej 			(i == SR4_PROTOCOL ? "protocol" :
    855   1.1   thorpej 			(i == SR4_SELFTEST ? "selftest" : "unknown")),
    856   1.1   thorpej 			sc->sc_stat4 & SR4_RETRYMASK, sc->sc_stat2,
    857   1.1   thorpej 			sc->sc_stat3, sc->sc_stat5);
    858   1.1   thorpej 
    859   1.1   thorpej 		if ((bp->b_flags & B_CMD) && bp->b_cmd == MTRESET)
    860  1.13   thorpej 			callout_stop(&sc->sc_intr_ch);
    861   1.1   thorpej 		if (sc->sc_stat3 & SR3_POWERUP)
    862   1.1   thorpej 			sc->sc_flags &= MTF_OPEN | MTF_EXISTS;
    863   1.1   thorpej 		goto error;
    864   1.1   thorpej 	}
    865   1.1   thorpej 	/*
    866   1.1   thorpej 	 * Report and clear any soft errors.
    867   1.1   thorpej 	 */
    868   1.1   thorpej 	if (sc->sc_stat1 & SR1_SOFTERR) {
    869   1.2   thorpej 		log(LOG_WARNING, "%s: soft error, retry %d\n",
    870   1.7   thorpej 			sc->sc_dev.dv_xname, sc->sc_stat4 & SR4_RETRYMASK);
    871   1.1   thorpej 		sc->sc_stat1 &= ~SR1_SOFTERR;
    872   1.1   thorpej 	}
    873   1.1   thorpej 	/*
    874   1.1   thorpej 	 * We've initiated a read or write, but haven't actually started to
    875   1.1   thorpej 	 * DMA the data yet.  At this point, the drive's ready.
    876   1.1   thorpej 	 */
    877   1.1   thorpej 	if (sc->sc_flags & MTF_IO) {
    878   1.1   thorpej 		sc->sc_flags &= ~MTF_IO;
    879   1.1   thorpej 		if (hpibustart(sc->sc_hpibno))
    880   1.7   thorpej 			mtgo(sc);
    881   1.1   thorpej 		return;
    882   1.1   thorpej 	}
    883   1.1   thorpej 	/*
    884   1.1   thorpej 	 * Check for End Of Tape - we're allowed to hit EOT and then write (or
    885   1.1   thorpej 	 * read) one more record.  If we get here and have not already hit EOT,
    886   1.1   thorpej 	 * return ENOSPC to inform the process that it's hit it.  If we get
    887   1.1   thorpej 	 * here and HAVE already hit EOT, don't allow any more operations that
    888   1.1   thorpej 	 * move the tape forward.
    889   1.1   thorpej 	 */
    890   1.1   thorpej 	if (sc->sc_stat1 & SR1_EOT) {
    891   1.1   thorpej 		if (sc->sc_flags & MTF_ATEOT)
    892   1.1   thorpej 			sc->sc_flags |= MTF_PASTEOT;
    893   1.1   thorpej 		else {
    894   1.1   thorpej 			bp->b_flags |= B_ERROR;
    895   1.1   thorpej 			bp->b_error = ENOSPC;
    896   1.1   thorpej 			sc->sc_flags |= MTF_ATEOT;
    897   1.1   thorpej 		}
    898   1.1   thorpej 	}
    899   1.1   thorpej 	/*
    900   1.1   thorpej 	 * If a motion command was being executed, check for Tape Marks.
    901   1.1   thorpej 	 * If we were doing data, make sure we got the right amount, and
    902   1.1   thorpej 	 * check for hitting tape marks on reads.
    903   1.1   thorpej 	 */
    904   1.1   thorpej 	if (bp->b_flags & B_CMD) {
    905   1.1   thorpej 		if (sc->sc_stat1 & SR1_EOF) {
    906   1.1   thorpej 			if (bp->b_cmd == MTFSR)
    907   1.1   thorpej 				sc->sc_flags |= MTF_HITEOF;
    908   1.1   thorpej 			if (bp->b_cmd == MTBSR)
    909   1.1   thorpej 				sc->sc_flags |= MTF_HITBOF;
    910   1.1   thorpej 		}
    911   1.1   thorpej 		if (bp->b_cmd == MTRESET) {
    912  1.13   thorpej 			callout_stop(&sc->sc_intr_ch);
    913   1.1   thorpej 			sc->sc_flags |= MTF_ALIVE;
    914   1.1   thorpej 		}
    915   1.1   thorpej 	} else {
    916   1.1   thorpej 		i = hpibrecv(sc->sc_hpibno, sc->sc_slave, MTT_BCNT, cmdbuf, 2);
    917   1.1   thorpej 		if (i != 2) {
    918   1.8    scottr 			log(LOG_ERR, "%s intr: can't get xfer length\n",
    919   1.8    scottr 			    sc->sc_dev.dv_xname);
    920   1.1   thorpej 			goto error;
    921   1.1   thorpej 		}
    922   1.1   thorpej 		i = (int) *((u_short *) cmdbuf);
    923   1.1   thorpej 		if (i <= bp->b_bcount) {
    924   1.1   thorpej 			if (i == 0)
    925   1.1   thorpej 				sc->sc_flags |= MTF_HITEOF;
    926   1.1   thorpej 			bp->b_resid = bp->b_bcount - i;
    927   1.8    scottr 			dlog(LOG_DEBUG, "%s intr: bcount %ld, resid %ld",
    928   1.7   thorpej 			    sc->sc_dev.dv_xname, bp->b_bcount, bp->b_resid);
    929   1.1   thorpej 		} else {
    930   1.1   thorpej 			tprintf(sc->sc_ttyp,
    931   1.8    scottr 				"%s: record (%d) larger than wanted (%ld)\n",
    932   1.7   thorpej 				sc->sc_dev.dv_xname, i, bp->b_bcount);
    933   1.1   thorpej     error:
    934   1.1   thorpej 			sc->sc_flags &= ~MTF_IO;
    935   1.1   thorpej 			bp->b_error = EIO;
    936   1.1   thorpej 			bp->b_flags |= B_ERROR;
    937   1.1   thorpej 		}
    938   1.1   thorpej 	}
    939   1.1   thorpej 	/*
    940   1.1   thorpej 	 * The operation is completely done.
    941   1.1   thorpej 	 * Let the drive know with an END command.
    942   1.1   thorpej 	 */
    943   1.1   thorpej 	cmdbuf[0] = MTE_COMPLETE | MTE_IDLE;
    944   1.1   thorpej 	(void) hpibsend(sc->sc_hpibno, sc->sc_slave, MTL_ECMD, cmdbuf, 1);
    945   1.1   thorpej 	bp->b_flags &= ~B_CMD;
    946  1.17   hannken 	(void)BUFQ_GET(&sc->sc_tab);
    947  1.11   thorpej 	biodone(bp);
    948   1.7   thorpej 	hpibfree(sc->sc_dev.dv_parent, &sc->sc_hq);
    949  1.17   hannken 	if (BUFQ_PEEK(&sc->sc_tab) == NULL)
    950  1.11   thorpej 		sc->sc_active = 0;
    951   1.1   thorpej 	else
    952   1.7   thorpej 		mtustart(sc);
    953   1.1   thorpej }
    954   1.1   thorpej 
    955   1.7   thorpej int
    956   1.7   thorpej mtread(dev, uio, flags)
    957   1.1   thorpej 	dev_t dev;
    958   1.1   thorpej 	struct uio *uio;
    959   1.7   thorpej 	int flags;
    960   1.1   thorpej {
    961   1.7   thorpej 	struct mt_softc *sc = mt_cd.cd_devs[UNIT(dev)];
    962   1.7   thorpej 
    963   1.7   thorpej 	return(physio(mtstrategy, &sc->sc_bufstore,
    964   1.7   thorpej 	    dev, B_READ, minphys, uio));
    965   1.1   thorpej }
    966   1.1   thorpej 
    967   1.7   thorpej int
    968   1.7   thorpej mtwrite(dev, uio, flags)
    969   1.1   thorpej 	dev_t dev;
    970   1.1   thorpej 	struct uio *uio;
    971   1.7   thorpej 	int flags;
    972   1.1   thorpej {
    973   1.7   thorpej 	struct mt_softc *sc = mt_cd.cd_devs[UNIT(dev)];
    974   1.7   thorpej 
    975   1.7   thorpej 	return(physio(mtstrategy, &sc->sc_bufstore,
    976   1.7   thorpej 	    dev, B_WRITE, minphys, uio));
    977   1.1   thorpej }
    978   1.1   thorpej 
    979   1.7   thorpej int
    980   1.7   thorpej mtioctl(dev, cmd, data, flag, p)
    981   1.1   thorpej 	dev_t dev;
    982   1.1   thorpej 	u_long cmd;
    983   1.1   thorpej 	caddr_t data;
    984   1.1   thorpej 	int flag;
    985   1.7   thorpej 	struct proc *p;
    986   1.1   thorpej {
    987   1.8    scottr 	struct mtop *op;
    988   1.1   thorpej 	int cnt;
    989   1.1   thorpej 
    990   1.1   thorpej 	switch (cmd) {
    991   1.1   thorpej 	    case MTIOCTOP:
    992   1.1   thorpej 		op = (struct mtop *)data;
    993   1.1   thorpej 		switch(op->mt_op) {
    994   1.1   thorpej 		    case MTWEOF:
    995   1.1   thorpej 		    case MTFSF:
    996   1.1   thorpej 		    case MTBSR:
    997   1.1   thorpej 		    case MTBSF:
    998   1.1   thorpej 		    case MTFSR:
    999   1.1   thorpej 			cnt = op->mt_count;
   1000   1.1   thorpej 			break;
   1001   1.1   thorpej 
   1002   1.1   thorpej 		    case MTOFFL:
   1003   1.1   thorpej 		    case MTREW:
   1004   1.1   thorpej 		    case MTNOP:
   1005   1.1   thorpej 			cnt = 0;
   1006   1.1   thorpej 			break;
   1007   1.1   thorpej 
   1008   1.1   thorpej 		    default:
   1009   1.1   thorpej 			return (EINVAL);
   1010   1.1   thorpej 		}
   1011   1.1   thorpej 		return (mtcommand(dev, op->mt_op, cnt));
   1012   1.1   thorpej 
   1013   1.1   thorpej 	    case MTIOCGET:
   1014   1.1   thorpej 		break;
   1015   1.1   thorpej 
   1016   1.1   thorpej 	    default:
   1017   1.1   thorpej 		return (EINVAL);
   1018   1.1   thorpej 	}
   1019   1.1   thorpej 	return (0);
   1020   1.1   thorpej }
   1021