1 /*  BEGIN INCLUDE FILE:  ibm_vol1.incl.pl1                  */
 2 /*  Modified by J. A. Bush 11/06/82 for use by mtape_ */
 3 /*  format: style4 */
 4 
 5 dcl  ibm_vol1P ptr;                                         /* pointer on which ibm_vol1 is based */
 6 
 7 dcl  1 ibm_vol1 unaligned based (ibm_vol1P),
 8        2 label_id char (4),                                 /* VOL1 */
 9        2 volume_serial char (6),                            /* volume serial number (can be alphameric) */
10        2 reserved1 char (1),                                /* "0" */
11        2 VTOC_pointer char (10),                            /* " " */
12        2 reserved2 char (20),                               /* " " */
13        2 owner_id,                                          /* Owner identifier field (10 characters) */
14          3 auth_code char (3),                              /* Multics stores authentication code here */
15          3 mult_id char (7),                                /* Inited with MULTICS_IBM_VERSION */
16        2 reserved3 char (29);                               /* " " */
17 
18 dcl  IBM_VOL1 char (4) int static options (constant) init ("VOL1");
19 dcl  MULTICS_IBM_VERSION char (7) int static options (constant) /* current mtape_/IBM version */
20           init ("MULT001");                                 /* goes in the owner_id2 field */
21 
22 /*  END INCLUDE FILE:  ibm_vol1.incl.pl1                    */