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