1 /*  START OF:       config_rvtc_card.incl.pl1 ... March 1982  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 dcl  rvtc_cardp pointer;                                    /* pointer to RVTC card */
 4 
 5 dcl 1 rvtc_card aligned based (rvtc_cardp),                 /* RVTC card declaration */
 6     2 word char (4),                                        /* "rvtc" */
 7     2 n_rpv_vtoces fixed bin,                               /* Number of VTOCEs to build on RPV */
 8     2 pad (13) bit (36) aligned,                            /* Pad to 15 fields */
 9 
10     2 type_word aligned,
11       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
12       3 pad1 bit (4) unaligned,
13       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
14 
15 dcl  RVTC_CARD_WORD char (4) aligned internal static options (constant) init ("rvtc");
16 
17 
18 
19 /*  END OF:         config_rvtc_card.incl.pl1                 *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */