1 /* ====== BEGIN INCLUDE SEGMENT         apl_dim_table.incl.pl1 ==================================== */
 2 
 3 dcl        (conversion_ptr, device_ptr, sequence_ptr) ptr,
 4           n fixed bin;
 5 
 6 dcl (     baud_rate_110                 init (0),
 7           baud_rate_150_or_134          init (1),
 8           baud_rate_300                 init (2),
 9           baud_rate_1200                init (3)
10           ) fixed bin internal static options (constant);
11 
12 
13 dcl     1 device_info                   based (device_ptr) aligned,
14           2 conversion_offset           unal bit (18),
15           2 sequence_offset             unal bit (18),
16           2 compression_in_offset       unal bit (18),
17           2 compression_out_offset      unal bit (18),
18           2 device_name                 unal char (32),
19           2 graphic_terminal            unal bit (1),
20           2 shift_needed                unal bit (1),
21           2 quit_editing_allowed        unal bit (1),
22           2 unused_bits_1               unal bit (15),
23           2 linefeed_character_device   unal bit (9),
24           2 escape_character_code       unal bit (9),       /* internal 8-bit code */
25           2 delay_character             unal bit (9),
26           2 upper_case                  unal bit (9),
27           2 lower_case                  unal bit (9),
28           2 escape_character_device     unal bit (9),       /* external 7-bit device */
29           2 default_page_length         unal fixed bin (17),
30           2 default_line_length         unal fixed bin (17),
31           2 pad_info                    dim (0:3) aligned,  /* 110, 150, 300, 1200 */
32             3 nl_addend                 unal fixed bin (17),
33             3 nl_multiplier             unal fixed bin (17),
34             3 tab_addend                unal fixed bin (17),
35             3 tab_multiplier            unal fixed bin (17),
36             3 bs_n_pads                 unal fixed bin (17),          /* number of pads after bs. */
37             3 np_n_pads                 unal fixed bin (17),          /* number of pads after new page. */
38           2 editing_prompt              varying char (8);
39 
40 dcl       1 conversions       based (conversion_ptr) aligned,
41           2 out               unal dim (0:255) bit (9),     /* internal 8-bit code to external 7-bit device */
42           2 in                unal dim (0:127) bit (9),     /* external 7-bit device to internal 8-bit code */
43           2 code_move         unal dim (0:255) bit (9),     /* internal movement of code */
44           2 device_move       unal dim (0:127) bit (6),     /* external movement of device */
45           2 unused_1          unal bit (24),
46           2 size              fixed bin,
47           2 escape            dim (0:n refer (conversions.size)),
48             3 prefix          unal bit (1),
49             3 conceal         unal bit (1),
50             3 unused_2        unal bit (7),
51             3 inchar          unal bit (9),
52             3 outchar         unal bit (9),
53             3 unused_3        unal bit (9);
54 
55 dcl       1 sequence          based (sequence_ptr) aligned,
56           2 size              unal fixed bin (8),
57           2 characters        unal dim (sequence.size) bit (9);
58 
59 dcl       1 compression_in    based (compression_in_ptr) aligned,
60           2 size              fixed bin,
61           2 compression_string char (compression_in.size);
62 
63 dcl       1 compression_out   based (compression_out_ptr) aligned,
64           2 size              fixed bin,
65           2 output_character  dim (compression_out.size) unal bit (9);
66 
67 /* ------ END INCLUDE SEGMENT           apl_dim_table.incl.pl1 ------------------------------------ */