1 /* BEGIN INCLUDE FILE ... config_intk_card.incl.pl1 ... 11/27/80 W. Olin Sibert */
 2 
 3 dcl  intk_cardp pointer;                                    /* pointer to INTK card */
 4 
 5 dcl 1 intk_card aligned based (intk_cardp),                 /* INTK card declaration */
 6     2 word char (4),                                        /* "intk" */
 7     2 warm_or_cold char (4),                                /* Type of bootload: "warm" or "cold" */
 8     2 boot_drive fixed bin,                                 /* Tape drive on which MST is mounted */
 9     2 parms (12) char (4),                                  /* up to 12 arbitrary bootload parameters */
10 
11     2 type_word aligned,
12       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
13       3 pad1 bit (4) unaligned,
14       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
15 
16 dcl 1 intk_card_array aligned based (intk_cardp),           /* Overlay for counting parameters */
17     2 pad (3) bit (36) aligned,
18     2 parms (max (0, intk_card.n_fields - 2)) bit (36) aligned;
19 
20 dcl  INTK_CARD_WORD char (4) aligned internal static options (constant) init ("intk");
21 
22 /* END INCLUDE FILE ... config_intk_card.incl.pl1 */