Return to ht.c CVS log

Up to [CSRG BSD Unix] / 3BSD / sys / stand

Annotation of 3BSD/sys/stand/ht.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * TJU16 tape driver
                      3:  */
                      4: 
                      5: #include "../h/param.h"
                      6: #include "../h/inode.h"
                      7: #include "../h/mba.h"
                      8: #include "saio.h"
                      9: 
                     10: struct device
                     11: {
                     12:        int     htcs1;
                     13:        int     htds;
                     14:        int     hter;
                     15:        int     htmr;
                     16:        int     htas;
                     17:        int     htfc;
                     18:        int     htdt;
                     19:        int     htck;
                     20:        int     htsn;
                     21:        int     httc;
                     22: };
                     23: 
                     24: #define        HTADDR  ((struct device *)(PHYSMBA1 + MBA_ERB))
                     25: 
                     26: #define        GO      01
                     27: #define        WCOM    060
                     28: #define        RCOM    070
                     29: #define        NOP     0
                     30: #define        WEOF    026
                     31: #define        SFORW   030
                     32: #define        SREV    032
                     33: #define        ERASE   024
                     34: #define        REW     06
                     35: #define        DCLR    010
                     36: #define P800   01700           /* 800 + pdp11 mode */
                     37: #define        P1600   02300           /* 1600 + pdp11 mode */
                     38: #define        IENABLE 0100
                     39: #define        RDY     0200
                     40: #define        TM      04
                     41: #define        DRY     0200
                     42: #define EOT    02000
                     43: #define CS     02000
                     44: #define COR    0100000
                     45: #define PES    040
                     46: #define WRL    04000
                     47: #define MOL    010000
                     48: #define ERR    040000
                     49: #define FCE    01000
                     50: #define        TRE     040000
                     51: #define HARD   064023  /* UNS|OPI|NEF|FMT|RMR|ILR|ILF */
                     52: 
                     53: #define        SIO     1
                     54: #define        SSFOR   2
                     55: #define        SSREV   3
                     56: #define SRETRY 4
                     57: #define SCOM   5
                     58: #define SOK    6
                     59: 
                     60: htopen(io)
                     61: register struct iob *io;
                     62: {
                     63:        register skip;
                     64:        int i;
                     65: 
                     66:        htinit();
                     67:        htstrategy(io, REW);
                     68:        skip = io->i_boff;
                     69:        while (skip--) {
                     70:                io->i_cc = -1;
                     71:                while (htstrategy(io, SFORW))
                     72:                        ;
                     73:                i = 65536;
                     74:                while (--i)
                     75:                        ;
                     76:                htstrategy(io, NOP);
                     77:        }
                     78: }
                     79: 
                     80: htclose(io)
                     81: register struct iob *io;
                     82: {
                     83:        htstrategy(io, REW);
                     84: }
                     85: 
                     86: htstrategy(io, func)
                     87: register struct iob *io;
                     88: {
                     89:        register int unit, den, errcnt, ds;
                     90:        short fc;
                     91: 
                     92:        unit = io->i_unit;
                     93:        errcnt = 0;
                     94: retry:
                     95:        if(unit & 1)
                     96:                den = P1600;
                     97:        else
                     98:                den = P800;
                     99:        htquiet();
                    100:        if((HTADDR->httc&03777) != den)
                    101:                HTADDR->httc = den;
                    102:        HTADDR->htfc = -io->i_cc;
                    103:        if (func == SREV) {
                    104:                HTADDR->htfc = -1;
                    105:                HTADDR->htcs1 = SREV | GO;
                    106:                return(0);
                    107:        }
                    108:        if (func == READ || func == WRITE)
                    109:                mbastart(io, HTADDR, func);
                    110:        else
                    111:                HTADDR->htcs1 = func | GO;
                    112:        htquiet();
                    113:        ds = HTADDR->htds & TM;
                    114:        if (ds&TM) {
                    115:                htinit();
                    116:                return(0);
                    117:        }
                    118:        if (ds&ERR) {
                    119:                if (errcnt == 0)
                    120:                        printf("tape error: ds=%x, er=%x, mbasr=%x",
                    121:                            HTADDR->htds, HTADDR->hter, PHYSMBA1->mba_sr);
                    122:                htinit();
                    123:                if (errcnt == 10) {
                    124:                        printf("\n");
                    125:                        return(-1);
                    126:                }
                    127:                errcnt++;
                    128:                htstrategy(io, SREV);
                    129:                goto retry;
                    130:        }
                    131:        if (errcnt)
                    132:                printf(" recovered by retry\n");
                    133:        fc = HTADDR->htfc;
                    134:        return(io->i_cc+fc);
                    135: }
                    136: 
                    137: htinit()
                    138: {
                    139: 
                    140:        HTADDR->htcs1 = DCLR|GO;
                    141: }
                    142: 
                    143: htquiet()
                    144: {
                    145:        register int s;
                    146: 
                    147:        do
                    148:                s = HTADDR->htds;
                    149:        while ((s & RDY) == 0);
                    150: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.