1 /* BEGIN INCLUDE FILE ... config_mpcs_card.incl.pl1 ... 11/11/80 W. Olin Sibert */
 2 
 3 dcl  mpcs_cardp pointer;                                    /* Pointer to an MPCS card. */
 4 
 5 dcl 1 mpcs_card aligned based (mpcs_cardp),
 6     2 word char (4),                                        /* "mpcs" */
 7     2 name char (4),                                        /* Name of MPC to which it refers */
 8     2 state char (4),                                       /* "warm", "cold", or "off" */
 9     2 firmware,                                             /* Two part firmware revision name */
10       3 revision char (4),                                  /* "rev.": first three chars of revision string */
11       3 rev_name char (4),                                  /* Revision name, like "b1" */
12 
13     2 port_state (4) char (4),                              /* "on" or "off" for each port defined on MPC card */
14 
15     2 pad (6) bit (36) aligned,                             /* Pad to 15 fields */
16 
17     2 type_word aligned,
18       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
19       3 pad1 bit (4) unaligned,
20       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
21 
22 dcl 1 mpcs_card_array aligned based (mpcs_cardp),           /* Overlay for MPC port state array */
23     2 pad1 (5) bit (36) aligned,
24     2 port_state (min (4, max (0, mpcs_card.n_fields - 4))) char (4);
25 
26 dcl  MPCS_CARD_WORD char (4) aligned internal static options (constant) init ("mpcs");
27 
28 /* END INCLUDE FILE ... config_mpcs_card.incl.pl1 */