Commit | Line | Data |
---|---|---|
da7c5cc6 | 1 | /* |
99152021 | 2 | * Copyright (c) 1982, 1986, 1988 Regents of the University of California. |
da7c5cc6 KM |
3 | * All rights reserved. The Berkeley software License Agreement |
4 | * specifies the terms and conditions for redistribution. | |
5 | * | |
f2f18eeb | 6 | * @(#)ts.c 7.8 (Berkeley) %G% |
da7c5cc6 | 7 | */ |
12785974 BJ |
8 | |
9 | /* | |
10 | * TS11 tape driver | |
11 | */ | |
12 | ||
b28b3a13 | 13 | #include "sys/param.h" |
a031a31b | 14 | |
b28b3a13 | 15 | #include "../include/pte.h" |
99152021 | 16 | |
b28b3a13 KB |
17 | #include "../uba/tsreg.h" |
18 | #include "../uba/ubareg.h" | |
a031a31b | 19 | |
b28b3a13 | 20 | #include "stand/saio.h" |
12785974 BJ |
21 | #include "savax.h" |
22 | ||
c48789a9 KB |
23 | #define MAXCTLR 1 /* all addresses must be specified */ |
24 | u_short tsstd[MAXCTLR] = { 0772520 }; | |
12785974 BJ |
25 | |
26 | struct iob ctsbuf; | |
27 | ||
28 | u_short ts_uba; /* Unibus address of ts structure */ | |
29 | ||
12785974 BJ |
30 | struct ts { |
31 | struct ts_cmd ts_cmd; | |
32 | struct ts_char ts_char; | |
33 | struct ts_sts ts_sts; | |
34 | } ts; | |
35 | ||
36 | tsopen(io) | |
37 | register struct iob *io; | |
38 | { | |
39 | static struct ts *ts_ubaddr; | |
c48789a9 | 40 | register struct tsdevice *tsaddr; |
67092c84 | 41 | long i = 0; |
12785974 | 42 | |
99152021 MK |
43 | if ((u_int)io->i_adapt >= nuba) |
44 | return (EADAPT); | |
c48789a9 KB |
45 | if ((u_int)io->i_ctlr >= MAXCTLR) |
46 | return (ECTLR); | |
47 | /* TS11 only supports one transport per formatter */ | |
99152021 | 48 | if (io->i_unit) |
c48789a9 KB |
49 | return(EUNIT); |
50 | tsaddr = (struct tsdevice *)ubamem(io->i_adapt, tsstd[io->i_ctlr]); | |
51 | if (badaddr((char *)tsaddr, sizeof (short))) | |
39c71180 | 52 | return (ENXIO); |
67092c84 BJ |
53 | tsaddr->tssr = 0; |
54 | while ((tsaddr->tssr & TS_SSR)==0) { | |
b5d17f4d | 55 | DELAY(10); |
67092c84 BJ |
56 | if (++i > 1000000) { |
57 | printf("ts: not ready\n"); | |
c48789a9 | 58 | return (ENXIO); |
12785974 BJ |
59 | } |
60 | } | |
61 | if (tsaddr->tssr&TS_OFL) { | |
62 | printf("ts: offline\n"); | |
c48789a9 | 63 | return (ENXIO); |
12785974 BJ |
64 | } |
65 | if (tsaddr->tssr&TS_NBA) { | |
67092c84 BJ |
66 | int i; |
67 | ||
12785974 BJ |
68 | ctsbuf.i_ma = (caddr_t) &ts; |
69 | ctsbuf.i_cc = sizeof(ts); | |
70 | if (ts_ubaddr == 0) | |
67092c84 BJ |
71 | ts_ubaddr = (struct ts *)ubasetup(&ctsbuf, 2); |
72 | ts_uba = (u_short)((long)ts_ubaddr + (((long)ts_ubaddr>>16)&03)); | |
12785974 BJ |
73 | ts.ts_char.char_addr = (int)&ts_ubaddr->ts_sts; |
74 | ts.ts_char.char_size = sizeof(ts.ts_sts); | |
67092c84 BJ |
75 | ts.ts_char.char_mode = TS_ESS; |
76 | ts.ts_cmd.c_cmd = TS_ACK|TS_SETCHR; | |
77 | i = (int)&ts_ubaddr->ts_char; | |
78 | ts.ts_cmd.c_loba = i; | |
79 | ts.ts_cmd.c_hiba = (i>>16)&3; | |
12785974 BJ |
80 | ts.ts_cmd.c_size = sizeof(ts.ts_char); |
81 | tsaddr->tsdb = ts_uba; | |
82 | } | |
83 | tsstrategy(io, TS_REW); | |
c48789a9 | 84 | if (io->i_cc = io->i_part) |
12785974 | 85 | tsstrategy(io, TS_SFORWF); |
39c71180 | 86 | return (0); |
12785974 BJ |
87 | } |
88 | ||
89 | tsclose(io) | |
90 | register struct iob *io; | |
91 | { | |
92 | tsstrategy(io, TS_REW); | |
93 | } | |
94 | ||
95 | tsstrategy(io, func) | |
96 | register struct iob *io; | |
97 | { | |
c48789a9 KB |
98 | register struct tsdevice *tsaddr; |
99 | register int errcnt, info; | |
12785974 | 100 | |
c48789a9 KB |
101 | tsaddr = (struct tsdevice *)ubamem(io->i_adapt, tsstd[io->i_ctlr]); |
102 | errcnt = info = 0; | |
12785974 BJ |
103 | retry: |
104 | while ((tsaddr->tssr & TS_SSR) == 0) | |
67092c84 BJ |
105 | DELAY(100); |
106 | if (func == TS_REW || func == TS_SFORWF) | |
107 | ts.ts_cmd.c_repcnt = io->i_cc; | |
108 | else { | |
109 | info = ubasetup(io, 1); | |
110 | ts.ts_cmd.c_size = io->i_cc; | |
111 | ts.ts_cmd.c_loba = info; | |
112 | ts.ts_cmd.c_hiba = (info>>16)&3; | |
f2f18eeb | 113 | if (func == F_READ) |
c48789a9 | 114 | func = TS_RCOM; |
f2f18eeb | 115 | else if (func == F_WRITE) |
c48789a9 | 116 | func = TS_WCOM; |
67092c84 | 117 | } |
12785974 BJ |
118 | ts.ts_cmd.c_cmd = TS_ACK|TS_CVC|func; |
119 | tsaddr->tsdb = ts_uba; | |
67092c84 BJ |
120 | do |
121 | DELAY(100) | |
122 | while ((tsaddr->tssr & TS_SSR) == 0); | |
123 | if (info) | |
124 | ubafree(io, info); | |
125 | if (ts.ts_sts.s_xs0 & TS_TMK) | |
12785974 BJ |
126 | return (0); |
127 | if (tsaddr->tssr & TS_SC) { | |
b5d17f4d | 128 | printf("ts tape error: er=%b, xs0=%b\n", |
10899d3a BJ |
129 | tsaddr->tssr, TSSR_BITS, |
130 | ts.ts_sts.s_xs0, TSXS0_BITS); | |
c48789a9 | 131 | if (errcnt++ == 10) { |
10899d3a | 132 | printf("ts: unrecovered error\n"); |
12785974 BJ |
133 | return (-1); |
134 | } | |
12785974 BJ |
135 | if (func == TS_RCOM || func == TS_WCOM) |
136 | func |= TS_RETRY; | |
137 | goto retry; | |
138 | } | |
139 | if (errcnt) | |
10899d3a | 140 | printf("ts: recovered by retry\n"); |
12785974 BJ |
141 | return (io->i_cc - ts.ts_sts.s_rbpcr); |
142 | } |