1 2 /* Begin include file ...... tape_data.incl.pl1 */ 3 /* Last modified by Noel I. Morris, January 17, 1975 */ 4 5 dcl 1 tape_data$ ext aligned, /* contains tape information */ 6 7 2 nchan fixed bin, /* number of tape channels to use */ 8 (2 tape_mount_exists bit (1), /* non-zero if tape mount protocol available */ 9 2 rotate_drives bit (1)) unal, /* "1"b if different drive to be used with each mount */ 10 2 attach_hist (4) fixed bin unal, /* attach times (0-2, 2-5, 5-30, >30 minutes) */ 11 2 nsysdrives fixed bin, /* number of drives reserved for privileged use */ 12 2 max_concurrent fixed bin, /* max. # of handlers non-privileged user may use */ 13 2 n7drives fixed bin, /* # of 7-track handlers */ 14 2 n9drives fixed bin, /* # of 9-track handlers */ 15 2 ndrives fixed bin, /* highest handler number */ 16 2 last_drive fixed bin (6), /* last drive number successfully mounted */ 17 2 pad (6) fixed bin, 18 19 2 drivetab (16) like drivetab; /* per handler information */ 20 21 dcl dp ptr; /* pointer to per drive info */ 22 23 dcl 1 drivetab based (dp) aligned, /* per handler table */ 24 2 attached bit (36), /* ON if drive attached */ 25 2 pseudo_devx fixed bin (12), /* drive ID for use by ioam_ */ 26 2 dtx fixed bin, /* I/O Interfacer table index */ 27 (2 drive_type bit (1), /* "0"b => 9-track, "1"b => 7-track */ 28 2 in_use bit (1), /* ON if drive useable */ 29 2 configured bit (1), /* ON if drive in configuration */ 30 2 sys_use bit(1)) unal, /* ON if system(priv) user */ 31 2 errors fixed bin, /* total error count for handler */ 32 2 attach_time fixed bin(52); /* time of attach for acctng */ 33 34 /* End of include file ...... tape_data.incl.pl1 */ 35