DEFINITION MODULE tape;

TYPE BYTE = [0..255];

TYPE vol1 = RECORD
               LabelIdent    : ARRAY [1..3] OF BYTE;
               LabelNumber   : BYTE;
               VolumIdent    : ARRAY [5..10] OF BYTE;
               Access        : BYTE;
               Reserved1     : ARRAY [12..37] OF BYTE;
               OwnerIdent    : ARRAY [38..50] OF BYTE;
               DIGITALver    : BYTE;
               Reserved2     : ARRAY [52..79] OF BYTE;
               LabelVer      : BYTE
            END ;
            
TYPE hdr1 = RECORD
               LabelIdent    : ARRAY [1..3] OF BYTE;
               LabelNumber   : BYTE;
               FileIdent     : ARRAY [5..21] OF BYTE;
               FileSet       : ARRAY [22..27] OF BYTE;
               FileSect      : ARRAY [28..31] OF BYTE;
               FileSeq       : ARRAY [32..35] OF BYTE;
               Gen           : ARRAY [36..39] OF BYTE;
               GenVer        : ARRAY [40..41] OF BYTE;
               CreDat        : ARRAY [42..47] OF BYTE;
               ExpDate       : ARRAY [48..53] OF BYTE;
               Access        : BYTE;
               BlkCount      : ARRAY [55..60] OF BYTE;
               SysCode       : ARRAY [61..73] OF BYTE;
               Reserved1     : ARRAY [74..80] OF BYTE
            END ;
            
TYPE hdr2 = RECORD
               LabelIdent    : ARRAY [1..3] OF BYTE;
               LabelNumber   : BYTE;
               RecFm         : BYTE;
               BlkLength     : ARRAY [6..10] OF BYTE;
               RecLength     : ARRAY [11..15] OF BYTE;
               UserField     : ARRAY [16..37] OF BYTE;
               SysField      : ARRAY [38..50] OF BYTE;
               BuffOffs      : ARRAY [51..52] OF BYTE;
               Reserved1     : ARRAY [53..80] OF BYTE;
            END ;

TYPE hdr3 = RECORD
               LabelIdent    : ARRAY [1..3] OF BYTE;
	       LabelNumber   : BYTE;
               RMSattrs      : ARRAY [5..68] OF BYTE;
               SysDep        : ARRAY [69..80] OF BYTE;
            END ;

TYPE block = RECORD
                data         : ARRAY [0..4095] OF CHAR;  
             END ;

END tape.