1 dcl 1 basic_operators_frame aligned based(bo_pt),
2 2 pr(0:7) ptr,
3 2 prev_sp ptr,
4 2 next_sp ptr,
5 2 return_ptr ptr,
6 2 entry_ptr ptr,
7 2 operator_and_lp_ptr ptr,
8 2 arglist_ptr ptr,
9 2 reserved bit(72),
10 2 on_unit_relp(2) bit(18) unaligned,
11 2 translator_id bit(18) unaligned,
12 2 operator_return_offset bit(18) unaligned,
13 2 regs,
14 3 xr(0:7) bit(18) unaligned,
15 3 (a_reg,q_reg) fixed bin(35),
16 3 rest_of_regs(2) bit(36) aligned,
17 2 print_using_pt ptr,
18
19 2 abort_label label,
20 2 conversion_label label,
21 2 size_label label,
22 2 on_units(2),
23 3 name ptr,
24 3 body ptr,
25 3 size fixed bin,
26 3 next fixed bin,
27 2 program_header ptr,
28 2 text_base_ptr ptr,
29 2 string_segment ptr,
30 2 fcb_pt ptr,
31 2 arglist1(2) ptr,
32 2 runtime_arglist(2) ptr,
33 2 cpu_start fixed bin(71),
34 2 determinant float bin(63),
35 2 fcb(0:16) ptr unaligned,
36 2 precision_lng fixed bin(17) unaligned,
37 2 file_number fixed bin(17) unaligned,
38 2 (error_number,pdl) fixed bin,
39 2 program_header_offset bit(18) aligned,
40 2 numeric_data unaligned,
41 3 (finish,start) fixed bin(17),
42 2 string_data unaligned,
43 3 (finish,start) fixed bin(17),
44 2 random fixed bin,
45 2 first_frame bit(18),
46 2 last_frame bit(18),
47 2 next_frame bit(18),
48 2 number_read fixed bin,
49 2 (pu_pos,pu_length) fixed bin,
50 2 definitions ptr unal,
51 2 fn_temp1 fixed bin,
52 2 fn_temp2 fixed bin,
53 2 entryname ptr unal,
54 2 flags unaligned,
55 3 non_basic_caller bit(1),
56 3 main_program bit(1),
57 3 quits_disabled bit(1),
58 3 had_quit bit(1),
59 3 ignore_handler bit(1),
60 3 filler bit(13),
61 2 number_length fixed bin(17) unaligned,
62 2 string_value bit(36),
63 2 temporaries(3) aligned,
64 3 temp float bin,
65 3 tpad bit(36),
66 2 arg(1) ptr;
67
68 dcl 1 d_basic_operators_frame aligned based(bo_pt),
69 2 x_pr(0:7) ptr,
70 2 x_prev_sp ptr,
71 2 x_next_sp ptr,
72 2 x_return_ptr ptr,
73 2 x_entry_ptr ptr,
74 2 x_operator_and_lp_ptr ptr,
75 2 x_arglist_ptr ptr,
76 2 x_reserved bit(72),
77 2 x_on_unit_relp(2) bit(18) unaligned,
78 2 x_translator_id bit(18) unaligned,
79 2 x_operator_return_offset bit(18) unaligned,
80 2 x_regs,
81 3 x_xr(0:7) bit(18) unaligned,
82 3 (x_a_reg,x_q_reg) fixed bin,
83 3 x_rest_of_regs(2) bit(36) aligned,
84 2 x_print_using_pt ptr,
85 2 x_abort_label label,
86 2 x_conversion_label label,
87 2 x_size_label label,
88 2 x_on_units(2),
89 3 x_name ptr,
90 3 x_body ptr,
91 3 x_size fixed bin,
92 3 x_next fixed bin,
93 2 x_program_header ptr,
94 2 x_text_base_ptr ptr,
95 2 x_string_segment ptr,
96 2 x_fcb_pt ptr,
97 2 x_arglist1(2) ptr,
98 2 x_runtime_arglist(2) ptr,
99 2 x_cpu_start fixed bin(71),
100 2 x_determinant float bin(63),
101 2 x_fcb(0:16) ptr unaligned,
102 2 x_precision_lng fixed bin(17) unaligned,
103 2 x_file_number fixed bin(17) unaligned,
104 2 x_error_number fixed bin,
105 2 x_pdl fixed bin,
106 2 x_program_header_offset bit(18) aligned,
107 2 x_numeric_data unaligned,
108 3 (x_finish,x_start) fixed bin(17),
109 2 x_string_data unaligned,
110 3 (x_finish,x_start) fixed bin(17),
111 2 x_random fixed bin,
112 2 x_first_frame bit(18),
113 2 x_last_frame bit(18),
114 2 x_next_frame bit(18),
115 2 x_number_read fixed bin,
116 2 (x_pu_pos,x_pu_length) fixed bin,
117 2 x_definitions ptr unal,
118 2 x_fn_temp1 fixed bin,
119 2 x_fn_temp2 fixed bin,
120 2 x_entryname ptr unal,
121 2 x_flags unaligned,
122 3 x_non_basic_caller bit(1),
123 3 x_main_program bit(1),
124 3 x_quits_disabled bit(1),
125 3 x_had_quit bit(1),
126 3 x_filler bit(14),
127 2 x_number_length fixed bin(17) unaligned,
128 2 x_string_value bit(36),
129 2 d_temp(3) float bin(63),
130 2 x_arg(1) ptr;