![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ts.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / sys / vaxstand|
Return to ts.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / sys / vaxstand |
1.1 root 1: /*
2: * Copyright (c) 1982, 1986, 1988 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)ts.c 7.6 (Berkeley) 4/4/90
7: */
8:
9: /*
10: * TS11 tape driver
11: */
12:
13: #include "param.h"
14:
15: #include "../vax/pte.h"
16:
17: #include "../vaxuba/tsreg.h"
18: #include "../vaxuba/ubareg.h"
19:
20: #include "saio.h"
21: #include "savax.h"
22:
23: #define MAXCTLR 1 /* all addresses must be specified */
24: u_short tsstd[MAXCTLR] = { 0772520 };
25:
26: struct iob ctsbuf;
27:
28: u_short ts_uba; /* Unibus address of ts structure */
29:
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;
40: register struct tsdevice *tsaddr;
41: long i = 0;
42:
43: if ((u_int)io->i_adapt >= nuba)
44: return (EADAPT);
45: if ((u_int)io->i_ctlr >= MAXCTLR)
46: return (ECTLR);
47: /* TS11 only supports one transport per formatter */
48: if (io->i_unit)
49: return(EUNIT);
50: tsaddr = (struct tsdevice *)ubamem(io->i_adapt, tsstd[io->i_ctlr]);
51: if (badaddr((char *)tsaddr, sizeof (short)))
52: return (ENXIO);
53: tsaddr->tssr = 0;
54: while ((tsaddr->tssr & TS_SSR)==0) {
55: DELAY(10);
56: if (++i > 1000000) {
57: printf("ts: not ready\n");
58: return (ENXIO);
59: }
60: }
61: if (tsaddr->tssr&TS_OFL) {
62: printf("ts: offline\n");
63: return (ENXIO);
64: }
65: if (tsaddr->tssr&TS_NBA) {
66: int i;
67:
68: ctsbuf.i_ma = (caddr_t) &ts;
69: ctsbuf.i_cc = sizeof(ts);
70: if (ts_ubaddr == 0)
71: ts_ubaddr = (struct ts *)ubasetup(&ctsbuf, 2);
72: ts_uba = (u_short)((long)ts_ubaddr + (((long)ts_ubaddr>>16)&03));
73: ts.ts_char.char_addr = (int)&ts_ubaddr->ts_sts;
74: ts.ts_char.char_size = sizeof(ts.ts_sts);
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;
80: ts.ts_cmd.c_size = sizeof(ts.ts_char);
81: tsaddr->tsdb = ts_uba;
82: }
83: tsstrategy(io, TS_REW);
84: if (io->i_cc = io->i_part)
85: tsstrategy(io, TS_SFORWF);
86: return (0);
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: {
98: register struct tsdevice *tsaddr;
99: register int errcnt, info;
100:
101: tsaddr = (struct tsdevice *)ubamem(io->i_adapt, tsstd[io->i_ctlr]);
102: errcnt = info = 0;
103: retry:
104: while ((tsaddr->tssr & TS_SSR) == 0)
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;
113: if (func == READ)
114: func = TS_RCOM;
115: else if (func == WRITE)
116: func = TS_WCOM;
117: }
118: ts.ts_cmd.c_cmd = TS_ACK|TS_CVC|func;
119: tsaddr->tsdb = ts_uba;
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)
126: return (0);
127: if (tsaddr->tssr & TS_SC) {
128: printf("ts tape error: er=%b, xs0=%b\n",
129: tsaddr->tssr, TSSR_BITS,
130: ts.ts_sts.s_xs0, TSXS0_BITS);
131: if (errcnt++ == 10) {
132: printf("ts: unrecovered error\n");
133: return (-1);
134: }
135: if (func == TS_RCOM || func == TS_WCOM)
136: func |= TS_RETRY;
137: goto retry;
138: }
139: if (errcnt)
140: printf("ts: recovered by retry\n");
141: return (io->i_cc - ts.ts_sts.s_rbpcr);
142: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.