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