1 /*  BEGIN INCLUDE FILE:  ansi_vol1.incl.pl1                 */
 2 /*  Modified by J. A. Bush 11/06/82 for use by mtape_ */
 3 /*  format: style4 */
 4 
 5 dcl  ansi_vol1P ptr;                                        /* pointer on which ansi_vol1 is based */
 6 
 7 dcl  1 ansi_vol1 unaligned based (ansi_vol1P),              /* ANSI VOL1 label */
 8        2 label_id char (4),                                 /* "VOL1" */
 9        2 volume_id char (6),                                /* volume identifier */
10        2 access char (1),                                   /* " " if unlimited */
11        2 reserved1 char (26),                               /* blanks */
12        2 owner_id,                                          /* Owner Identifier field (14 characters) */
13          3 auth_code char (3),                              /* Multics stores authenication code here */
14          3 mult_id char (7),                                /* inited with MULTICS_ANSI_VERSION */
15          3 owner_id_pad char (4),                           /* blanks */
16        2 reserved2 char (28),                               /* blanks */
17        2 label_version char (1);                            /* label standard version */
18 
19 dcl  ANSI_VOL1 char (4) int static options (constant) init ("VOL1");
20 dcl  LABEL_STANDARD_VERSION char (1) int static options (constant) /* Label standard supported */
21           init ("3");                                       /* (currently to ANSI x3.27-1978) */
22 dcl  MULTICS_ANSI_VERSION char (7) int static options (constant) /* current mtape_/ANSI version */
23           init ("MULT001");                                 /* goes in the owner_id2 field */
24 
25 /*  END INCLUDE FILE:  ansi_vol1.incl.pl1                   */