1 /* BEGIN INCLUDE FILE ... config_tbls_card.incl.pl1 ... 11/27/80 W. Olin Sibert */
 2 
 3 dcl  tbls_cardp pointer;                                    /* pointer to TBLS card */
 4 
 5 dcl 1 tbls_card aligned based (tbls_cardp),                 /* TBLS card declaration */
 6     2 word char (4),                                        /* "tbls" */
 7     2 table (7),                                            /* Array of table names and sizes */
 8       3 name char (4),                                      /* Name of table */
 9       3 size fixed bin,                                     /* Size of table */
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 tbls_card_array aligned based (tbls_cardp),           /* Overlay for counting tables */
17     2 pad bit (36) aligned,
18     2 table (divide (tbls_card.n_fields, 2, 17, 0)),
19       3 name char (4),                                      /* Name of table */
20       3 size fixed bin;                                     /* Size of table */
21 
22 dcl  TBLS_CARD_WORD char (4) aligned internal static options (constant) init ("tbls");
23 
24 /* END INCLUDE FILE ... config_tbls_card.incl.pl1 */