1 /* BEGIN INCLUDE FILE ... console_device_specs.incl.pl1 ... 7/15/81, MRJ */
 2 
 3 /*
 4 
 5    The following array defines supported console device model numbers.
 6    Once the index to this array is known it is then used to get the
 7    'console model index' from the next array.
 8 
 9 */
10 
11 
12 dcl  CONSOLE_MODEL_NUMBER (8) fixed bin static options (constant)
13      init (8030, 8031, 6001, 6002, 6004, 6005, 6601, 6000);
14 /*          ibm   ibm   emc   scc   emc   scc   lcc   scc */
15 
16 
17 /*
18 
19 
20    The following array is used to get the 'console model index' that is used
21    throughout the system to identify which console type is being supported.
22 
23 
24 */
25 
26 
27 dcl  CONSOLE_MODEL_INDEX (8) fixed bin static options (constant)
28      init (1, 1, 2, 3, 2, 3, 4, 3);
29 
30 
31 /*
32 
33    The following array is indexed by the 'console model index' to determine if
34    the device is only cabable of BCD support (no ASCII support).
35 
36 */
37 
38 
39 dcl  CONSOLE_IS_BCD (4) bit (1) static options (constant)
40      init ((1)(1)"1"b, (3)(1)"0"b);
41 
42 
43 /*
44 
45    The following array is indexed by the 'console model index' to determine
46    if prompting is required by default.  This is true for those consoles where
47    there is no 'input' light.
48 
49 */
50 
51 
52 dcl  CONSOLE_PROMPT_BY_DEFAULT (4) bit (1) static options (constant)
53      init ((3)(1)"0"b, (1)(1)"1"b);
54 
55 
56 /*
57 
58    The following array gives the GCOS device type for the specified 'console
59    model index'.
60 
61 */
62 
63 
64 dcl  CONSOLE_GCOS_TYPE (4) bit (6) static options (constant)
65      init ("30"b3, "31"b3, "31"b3, "31"b3);
66 
67 
68 /* END INCLUDE FILE ... console_device_specs.incl.pl1 */