1 /* BEGIN INCLUDE FILE ... mpc_types.incl.pl1 ... 11/27/80 W. Olin Sibert */
 2 
 3 dcl  DISK_MPC_PREFIX char (3) internal static options (constant) init ("msp");
 4 
 5 dcl  DISK_MPC_MODEL (7) fixed bin internal static options (constant) init
 6     (181, 190, 191, 400, 451, 600, 601);                    /* Decimal model numbers of known MPCs */
 7 
 8 dcl  DISK_MPC_MODEL_INDEX (7) fixed bin internal static options (constant) init
 9     (1, 2, 3, 3, 3, 4, 4);                                  /* Index of real model name & number for each of the above */
10 
11 dcl  DISK_MPC_MODEL_NUMBER (4) fixed bin internal static options (constant) init
12     (181, 190, 191, 600);                                   /* Real model number for disk MPCs */
13 
14 dcl  DISK_FIRMWARE_NAME (4) char (8) internal static options (constant) init
15     ("dsc181", "dsc190", "dsc191", "dsc500");               /* Name of firmware for disk MPCs */
16 
17 
18 dcl  TAPE_MPC_PREFIX char (3) internal static options (constant) init ("mtp");
19 
20 dcl  TAPE_MPC_MODEL (7) fixed bin internal static options (constant) init
21     (500, 501, 502, 600, 601, 602, 610);                    /* Decimal model numbers of known MPCs */
22 
23 dcl  TAPE_MPC_MODEL_INDEX (7) fixed bin internal static options (constant) init
24     (1, 1, 1, 1, 2, 2, 3);                                  /* Index of real model name & number for each of the above */
25 
26 dcl  TAPE_MPC_MODEL_NUMBER (3) fixed bin internal static options (constant) init
27     (500, 601, 610);                                        /* Real model number for tape MPCs */
28 
29 dcl  TAPE_FIRMWARE_NAME (3) char (8) internal static options (constant) init
30     ("mtc500", "mtp601", "mtp610");                         /* Name of firmware for tape MPCs */
31 
32 
33 dcl  URC_MPC_PREFIX char (3) internal static options (constant) init ("urp");
34 
35 dcl  URC_MPC_MODEL (2) fixed bin internal static options (constant) init
36     (2, 600);                                               /* Decimal model numbers of known MPCs */
37 
38 dcl  URC_MPC_MODEL_INDEX (2) fixed bin internal static options (constant) init
39     (1, 2);                                                 /* Index of real model name & number for each of the above */
40 
41 dcl  URC_MPC_MODEL_NUMBER (2) fixed bin internal static options (constant) init
42     (2, 600);                                               /* Real model number for unit record MPCs */
43 
44 dcl  URC_FIRMWARE_NAME (2) char (8) internal static options (constant) init
45     ("urcmpc", "urcmpc");                                   /* Name of firmware for unit record MPCs */
46 
47 /* END INCLUDE FILE ... mpc_types.incl.pl1 */