1
2
3
4
5
6
7
8 declare
9 1 device_table_header aligned based,
10 2 allocation_area_ptr pointer,
11 2 version_number fixed binary (17),
12 2 table_length fixed binary (18),
13
14 2 conversion_entry entry (ptr, ptr, fixed bin (24), fixed bin (24),
15 ptr, fixed bin (24), fixed bin (24), bit (36) aligned),
16
17 2 normal_table_rel bit (18) unaligned,
18 2 edited_table_rel bit (18) unaligned,
19
20 2 output_format_rel bit (18) unaligned,
21 2 output_noopt_format_rel bit (18) unaligned,
22
23 2 output_padding_rel bit (18) unaligned,
24 2 output_padding_info bit (18) unaligned,
25
26 2 input_table_rel bit (18) unaligned,
27 2 input_movement_table_rel bit (18) unaligned,
28
29 2 default_line_length fixed binary (24),
30 2 default_page_length fixed binary (24),
31
32 2 tab_table_rel bit (18) unaligned,
33 2 tab_table_length fixed binary (17) unaligned,
34
35 2 line_overflow_descriptor aligned like output_descriptor_template,
36 2 page_overflow_descriptor aligned like output_descriptor_template,
37
38 2 escape_char bit (9) unaligned,
39 2 highest_char bit (9) unaligned,
40 2 up_shift_char bit (9) unaligned,
41 2 down_shift_char bit (9) unaligned,
42
43 2 padding_char bit (9) unaligned,
44 2 extra bit (27) unaligned,
45
46 2 info_bits unaligned,
47 3 shifting_terminal bit (1);
48
49
50 declare
51 1 output_descriptor_template aligned based,
52 2 horizontal_movement bit (5) unaligned,
53 2 vertical_movement bit (5) unaligned,
54 2 special_functions bit (3) unaligned,
55 2 ignore_this_character bit (1) unaligned,
56 2 function_description bit (4) unaligned,
57 2 description_data bit (18) unaligned;
58
59 declare
60 1 sequence_template aligned based,
61 2 count fixed binary (8) unaligned,
62 2 byte (1 : 1) bit (9) unaligned;
63
64 declare
65 1 input_descriptor_template aligned based,
66 2 match_character bit (9) unaligned,
67 2 translated_character bit (9) unaligned,
68 2 escape_list_rel bit (18) unaligned,
69
70 2 horizontal_movement bit (5) unaligned,
71 2 vertical_movement bit (5) unaligned,
72 2 special_functions bit (3) unaligned,
73 2 ignore_this_character bit (1) unaligned,
74 2 function_descriptor bit (4) unaligned,
75 2 padding bit (18) unaligned;
76
77 declare
78 1 input_escape_list aligned based,
79 2 count fixed binary (17),
80 2 escape_entry (1 : 1) like input_descriptor_template;
81
82 declare
83 1 output_format_template aligned based,
84 2 SP_descriptor like output_descriptor_template,
85 2 HT_descriptor like output_descriptor_template,
86 2 EOL_descriptor like output_descriptor_template,
87
88 2 BS_descriptor like output_descriptor_template,
89 2 RHT_descriptor like output_descriptor_template,
90 2 CR_descriptor like output_descriptor_template,
91
92 2 NL_descriptor like output_descriptor_template,
93 2 VT_descriptor like output_descriptor_template,
94 2 NP_descriptor like output_descriptor_template,
95
96 2 LF_descriptor like output_descriptor_template,
97 2 VTcol_descriptor like output_descriptor_template,
98 2 FF_descriptor like output_descriptor_template,
99
100 2 RNL_descriptor like output_descriptor_template,
101 2 RVT_descriptor like output_descriptor_template,
102 2 RNP_descriptor like output_descriptor_template,
103
104 2 RLF_descriptor like output_descriptor_template,
105 2 RVTcol_descriptor like output_descriptor_template,
106 2 RFF_descriptor like output_descriptor_template,
107
108 2 CR_over_BS_columns fixed binary (24),
109 2 BS_over_CR_columns fixed binary (24);
110
111
112
113