1 /* BEGIN INCLUDE FILE ... arg_descriptor.incl.pl1
 2 
 3    James R. Davis 1 Mar 79 */
 4 /* Modified June 83 JMAthane for extended arg descriptor format */
 5 
 6      dcl     1 arg_descriptor       based (arg_descriptor_ptr) aligned,
 7                2 flag               bit (1) unal,
 8                2 type               fixed bin (6) unsigned unal,
 9                2 packed             bit (1) unal,
10                2 number_dims        fixed bin (4) unsigned unal,
11                2 size               fixed bin (24) unsigned unal;
12 
13      dcl     1 fixed_arg_descriptor based (arg_descriptor_ptr) aligned,
14                2 flag               bit (1) unal,
15                2 type               fixed bin (6) unsigned unal,
16                2 packed             bit (1) unal,
17                2 number_dims        fixed bin (4) unsigned unal,
18                2 scale              fixed bin (11) unal,
19                2 precision          fixed bin (12) unsigned unal;
20 
21      dcl     1 extended_arg_descriptor based (arg_descriptor_ptr) aligned,
22                2 flag               bit (1) unal,           /* = "1"b */
23                2 type               fixed bin (6) unsigned unal, /* = 58 */
24                2 packed             bit (1) unal,           /* significant if number_dims ^= 0 */
25                2 number_dims        fixed (4) unsigned unal,/* number of variable dimensions */
26                2 size               bit (24) unal,
27                2 dims               (0 refer (extended_arg_descriptor.number_dims)), /* part referenced by called generated code */
28                  3 low              fixed bin (35),
29                  3 high             fixed bin (35),
30                  3 multiplier       fixed bin (35),         /* in bits if packed, in words if not */
31                2 real_type          fixed bin (18) unsigned unal,
32                2 type_offset        fixed bin (18) unsigned unal; /* offset rel to symbol tree to symbol node for type, if any */
33 
34      dcl     arg_descriptor_ptr     ptr;
35 
36      dcl     extended_arg_type      fixed bin init (58);
37 
38 /* END INCLUDE file .... arg_descriptor.incl.pl1  */