1
2
3 dcl gdt_version_2 fixed bin static initial (2);
4
5 dcl gdt_pointer pointer;
6
7 dcl 1 graphic_device_table aligned based (gdt_pointer),
8 2 device_data aligned,
9 3 version_number fixed bin,
10 3 terminal_name char (32) aligned,
11 3 terminal_type char (4) aligned,
12 3 charsizes (3) float bin,
13 3 message_size fixed bin (35) aligned,
14 3 points_per_inch float bin (63),
15 3 pad (10) fixed bin aligned,
16 2 effector_data (32 : 70) aligned,
17 3 force_alignment aligned,
18 4 (expand, call, ignore, error, flush) bit (1) unaligned;
19
20 dcl (Reference initial (37),
21 Process_input initial (64),
22 Prepare_for_graphics initial (65),
23 Prepare_for_text initial (66),
24 Expansion initial (67),
25 Open initial (68),
26 Close initial (69),
27 Modes initial (70)) fixed bin static options (constant);
28
29