1 /* BEGIN INCLUDE FILE ... config_prph_tap_card.incl.pl1 */
 2 
 3 dcl  prph_tap_cardp ptr;                                    /* Pointer to a PRPH TAPx card. */
 4 
 5 dcl 1 prph_tap_card based (prph_tap_cardp) aligned,         /* PRPH TAPx card declaration */
 6     2 word char (4),                                        /* "prph" */
 7     2 name char (4),                                        /* "tapX" */
 8     2 iom fixed bin (3),                                    /* IOM number */
 9     2 chan fixed bin (8),                                   /* channel number */
10     2 nchan fixed bin,                                      /* number of channels */
11 
12     2 group (5),
13       3 model fixed bin,                                    /* model number */
14       3 ndrives fixed bin,                                  /* number of drives */
15 
16     2 type_word aligned,
17       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
18       3 pad1 bit (4) unaligned,
19       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
20 
21 dcl 1 prph_tap_card_array aligned based (prph_tap_cardp),   /* Overlay for drive group array */
22     2 pad1 (5) bit (36) aligned,
23     2 group (divide (max (0, (prph_tap_card.n_fields - 4)), 2, 17, 0)),
24       3 model fixed bin,                                    /* model number */
25       3 ndrives fixed bin;                                  /* number of drives */
26 
27 /* END INCLUDE FILE ... config_prph_tap_card.incl.pl1 */