1 /* BEGIN INCLUDE FILE... cmcs_terminal_ctl.incl.pl1 */
 2 
 3 /* This table does nothing more than supply the default station_name
 4    for a given terminal subchannel (user$device_channel */
 5 
 6 /* Bob May, 4/30/77 */
 7 
 8 dcl (terminal_ctl_hdr_len init (0),
 9      terminal_ctl_entry_len init (6),
10      terminal_ctl_version init (1)) fixed bin int static options (constant);
11 
12 dcl  terminal_ctl_ptr ptr int static;
13 
14 dcl 1 terminal_ctl aligned based (terminal_ctl_ptr),
15     2 hdr like control_hdr,
16     2 entries (terminal_ctl.current_size) like terminal_ctl_entry;
17 
18 dcl  terminal_ctl_eindex fixed bin;
19 
20 dcl  terminal_ctl_eptr ptr;
21 
22 dcl 1 terminal_ctl_entry aligned based (terminal_ctl_eptr),
23     2 flags,
24      (3 inactive_sw bit (1),
25       3 filler bit (35)) unaligned,
26     2 device_channel char (8),                              /* from user$device_channel */
27     2 station_name char (12);                               /* default station for the given terminal */
28 
29 /* END INCLUDE FILE... cmcs_terminal_ctl.incl.pl1 */