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