1*7447Sroot /* ts.c 4.5 82/07/15 */ 23268Swnj 33268Swnj /* 43268Swnj * TS11 tape driver 53268Swnj */ 63268Swnj 73268Swnj #include "../h/param.h" 83268Swnj #include "../h/tsreg.h" 93268Swnj #include "../h/inode.h" 103268Swnj #include "../h/pte.h" 113268Swnj #include "../h/ubareg.h" 12*7447Sroot #include "../h/fs.h" 133268Swnj #include "saio.h" 143268Swnj #include "savax.h" 153268Swnj 163268Swnj 173268Swnj u_short tsstd[] = { 0772520 }; 183268Swnj 193268Swnj struct iob ctsbuf; 203268Swnj 213268Swnj u_short ts_uba; /* Unibus address of ts structure */ 223268Swnj 235158Sroot struct tsdevice *tsaddr = 0; 243268Swnj 253268Swnj struct ts { 263268Swnj struct ts_cmd ts_cmd; 273268Swnj struct ts_char ts_char; 283268Swnj struct ts_sts ts_sts; 293268Swnj } ts; 303268Swnj 313268Swnj tsopen(io) 323268Swnj register struct iob *io; 333268Swnj { 343268Swnj static struct ts *ts_ubaddr; 353344Swnj long i = 0; 363268Swnj 373268Swnj if (tsaddr == 0) 38*7447Sroot tsaddr = (struct tsdevice *)ubamem(io->i_unit, tsstd[0]); 393344Swnj tsaddr->tssr = 0; 403344Swnj while ((tsaddr->tssr & TS_SSR)==0) { 41*7447Sroot DELAY(10); 423344Swnj if (++i > 1000000) { 433344Swnj printf("ts: not ready\n"); 443344Swnj return; 453268Swnj } 463268Swnj } 473268Swnj if (tsaddr->tssr&TS_OFL) { 483268Swnj printf("ts: offline\n"); 493268Swnj return; 503268Swnj } 513268Swnj if (tsaddr->tssr&TS_NBA) { 523344Swnj int i; 533344Swnj 543268Swnj ctsbuf.i_ma = (caddr_t) &ts; 553268Swnj ctsbuf.i_cc = sizeof(ts); 563268Swnj if (ts_ubaddr == 0) 573344Swnj ts_ubaddr = (struct ts *)ubasetup(&ctsbuf, 2); 583344Swnj ts_uba = (u_short)((long)ts_ubaddr + (((long)ts_ubaddr>>16)&03)); 593268Swnj ts.ts_char.char_addr = (int)&ts_ubaddr->ts_sts; 603268Swnj ts.ts_char.char_size = sizeof(ts.ts_sts); 613344Swnj ts.ts_char.char_mode = TS_ESS; 623344Swnj ts.ts_cmd.c_cmd = TS_ACK|TS_SETCHR; 633344Swnj i = (int)&ts_ubaddr->ts_char; 643344Swnj ts.ts_cmd.c_loba = i; 653344Swnj ts.ts_cmd.c_hiba = (i>>16)&3; 663268Swnj ts.ts_cmd.c_size = sizeof(ts.ts_char); 673268Swnj tsaddr->tsdb = ts_uba; 683268Swnj } 693268Swnj tsstrategy(io, TS_REW); 703268Swnj if (io->i_cc = io->i_boff) 713268Swnj tsstrategy(io, TS_SFORWF); 723268Swnj } 733268Swnj 743268Swnj tsclose(io) 753268Swnj register struct iob *io; 763268Swnj { 773344Swnj 783268Swnj tsstrategy(io, TS_REW); 793268Swnj } 803268Swnj 813268Swnj tsstrategy(io, func) 823268Swnj register struct iob *io; 833268Swnj { 843344Swnj register int errcnt, info = 0; 853268Swnj 863268Swnj errcnt = 0; 873268Swnj retry: 883268Swnj while ((tsaddr->tssr & TS_SSR) == 0) 893344Swnj DELAY(100); 903344Swnj if (func == TS_REW || func == TS_SFORWF) 913344Swnj ts.ts_cmd.c_repcnt = io->i_cc; 923344Swnj else { 933344Swnj info = ubasetup(io, 1); 943344Swnj ts.ts_cmd.c_size = io->i_cc; 953344Swnj ts.ts_cmd.c_loba = info; 963344Swnj ts.ts_cmd.c_hiba = (info>>16)&3; 973344Swnj } 983268Swnj if (func == READ) 993268Swnj func = TS_RCOM; 1003268Swnj else if (func == WRITE) 1013268Swnj func = TS_WCOM; 1023268Swnj ts.ts_cmd.c_cmd = TS_ACK|TS_CVC|func; 1033268Swnj tsaddr->tsdb = ts_uba; 1043344Swnj do 1053344Swnj DELAY(100) 1063344Swnj while ((tsaddr->tssr & TS_SSR) == 0); 1073344Swnj if (info) 1083344Swnj ubafree(io, info); 1093344Swnj if (ts.ts_sts.s_xs0 & TS_TMK) 1103268Swnj return (0); 1113268Swnj if (tsaddr->tssr & TS_SC) { 112*7447Sroot printf("ts tape error: er=%b, xs0=%b\n", 1133349Swnj tsaddr->tssr, TSSR_BITS, 1143349Swnj ts.ts_sts.s_xs0, TSXS0_BITS); 1153268Swnj if (errcnt==10) { 1163349Swnj printf("ts: unrecovered error\n"); 1173268Swnj return (-1); 1183268Swnj } 1193268Swnj errcnt++; 1203268Swnj if (func == TS_RCOM || func == TS_WCOM) 1213268Swnj func |= TS_RETRY; 1223268Swnj goto retry; 1233268Swnj } 1243268Swnj if (errcnt) 1253349Swnj printf("ts: recovered by retry\n"); 1263268Swnj return (io->i_cc - ts.ts_sts.s_rbpcr); 1273268Swnj } 128