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