1 /* BEGIN INCLUDE FILE ... config_udsk_card.incl.pl1 ... 11/27/80 W. Olin Sibert */
 2 
 3 dcl  udsk_cardp pointer;                                    /* pointer to UDSK card */
 4 
 5 dcl 1 udsk_card aligned based (udsk_cardp),                 /* UDSK card declaration */
 6     2 word char (4),                                        /* "udsk" */
 7     2 subsystem char (4),                                   /* Name of disk subsystem */
 8     2 nchan fixed bin,                                      /* Max number of channels usable by ioi */
 9 
10     2 group (6),                                            /* Groups of drives available for ioi use */
11       3 drive fixed bin,                                    /* Index of first drive in group */
12       3 ndrives fixed bin,                                  /* Number of drives in group */
13 
14     2 type_word aligned,
15       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
16       3 pad1 bit (4) unaligned,
17       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
18 
19 dcl 1 udsk_card_array aligned based (udsk_cardp),           /* Overlay for counting drive groups */
20     2 pad (3) bit (36) aligned,
21     2 group (divide (max (0, udsk_card.n_fields - 2), 2, 17, 0)),
22       3 drive fixed bin,                                    /* Index of first drive in group */
23       3 ndrives fixed bin;                                  /* Number of drives in group */
24 
25 dcl  UDSK_CARD_WORD char (4) aligned internal static options (constant) init ("udsk");
26 
27 /* END INCLUDE FILE ... config_udsk_card.incl.pl1 */