/*	ts.c	4.1	81/03/15	*/

/*
 * TS11 tape driver
 */

#include "../h/param.h"
#include "../h/tsreg.h"
#include "../h/inode.h"
#include "../h/pte.h"
#include "../h/ubareg.h"
#include "saio.h"
#include "savax.h"


u_short	tsstd[] = { 0772520 };

struct	iob	ctsbuf;

u_short	ts_uba;			/* Unibus address of ts structure */

struct device *tsaddr = 0;

struct ts {
	struct ts_cmd ts_cmd;
	struct ts_char ts_char;
	struct ts_sts ts_sts;
} ts;

tsopen(io)
	register struct iob *io;
{
	static struct ts *ts_ubaddr;

	if (tsaddr == 0)
		tsaddr = ubamem(io->i_unit, tsstd[0]);
	if (ts_ubaddr==0 || tsaddr->tssr&(TS_OFL|TS_NBA) || (tsaddr->tssr&TS_SSR)==0) {
		long i = 0;
		tsaddr->tssr = 0;
		while ((tsaddr->tssr & TS_SSR)==0) {
			if (++i > 1000000) {
				printf("ts: not ready\n");
				return;
			}
		}
	}
	if (tsaddr->tssr&TS_OFL) {
		printf("ts: offline\n");
		return;
	}
	if (tsaddr->tssr&TS_NBA) {
		ctsbuf.i_ma = (caddr_t) &ts;
		ctsbuf.i_cc = sizeof(ts);
		if (ts_ubaddr == 0)
			ts_ubaddr = (struct ts *)ubasetup(&ctsbuf, 0);
		ts_uba = (u_short)((long)ts_ubaddr + (((long)ubaddr >> 16) & 03));
		ts.ts_char.char_addr = (int)&ts_ubaddr->ts_sts;
		ts.ts_char.char_size = sizeof(ts.ts_sts);
		ts.ts_char.char_mode = TS_ESS;		/* Stop on 2 tape marks */
		ts.ts_cmd.c_cmd = TS_ACK|TS_SETCHR;	/* write characteristics */
		ts.ts_cmd.c_addr = (int)&ts_ubaddr->ts_char;
		ts.ts_cmd.c_size = sizeof(ts.ts_char);
		tsaddr->tsdb = ts_uba;
	}
	tsstrategy(io, TS_REW);
	if (io->i_cc = io->i_boff)
		tsstrategy(io, TS_SFORWF);
}

tsclose(io)
	register struct iob *io;
{
	tsstrategy(io, TS_REW);
}

tsstrategy(io, func)
	register struct iob *io;
{
	register int errcnt, info;

	errcnt = 0;
retry:
	while ((tsaddr->tssr & TS_SSR) == 0)
		;
	info = ubasetup(io, 1);
	ts.ts_cmd.c_size = io->i_cc;
	ts.ts_cmd.c_addr = info&0777777;
	if (func == READ)
		func = TS_RCOM;
	else if (func == WRITE)
		func = TS_WCOM;
	ts.ts_cmd.c_cmd = TS_ACK|TS_CVC|func;
	tsaddr->tsdb = ts_uba;
	while ((tsaddr->tssr & TS_SSR) == 0)
		;
	ubafree(io, info);
	if (ts.ts_sts.s_xs0 & TS_TMK)	/* tape mark */
		return (0);
	if (tsaddr->tssr & TS_SC) {
		if (errcnt == 0)
			printf("ts tape error: er=%o", tsaddr->tssr);
		if (errcnt==10) {
			printf("\n");
			return (-1);
		}
		errcnt++;
		if (func == TS_RCOM || func == TS_WCOM)
			func |= TS_RETRY;
		goto retry;
	}
	if (errcnt)
		printf(" recovered by retry\n");
	return (io->i_cc - ts.ts_sts.s_rbpcr);
}