1 /*        BEGIN INCLUDE FILE ... runtime_symbol.incl.pl1 ... Modified 07/79 */
 2 
 3 dcl       1 runtime_symbol    aligned based,
 4           2 flag              unal bit(1),        /* always "1"b for Version II */
 5           2 use_digit         unal bit(1),        /* if "1"b and units are half words units are really digits */
 6           2 array_units       unal bit(2),
 7           2 units             unal bit(2),        /* addressing units */
 8           2 type              unal bit(6),        /* data type */
 9           2 level             unal bit(6),        /* structure level */
10           2 ndims             unal bit(6),        /* number of dimensions */
11           2 bits              unal,
12             3 aligned         bit(1),
13             3 packed          bit(1),
14             3 simple          bit(1),
15           2 skip              unal bit(1),
16           2 scale             unal bit(8),        /* arithmetic scale factor */
17           2 name              unal bit(18),       /* rel ptr to acc name */
18           2 brother           unal bit(18),       /* rel ptr to brother entry */
19           2 father            unal bit(18),       /* rel ptr to father entry */
20           2 son               unal bit(18),       /* rel ptr to son entry */
21           2 address           unal,
22             3 location        bit(18),            /* location in storage class */
23             3 class           bit(4),             /* storage class */
24             3 next            bit(14),            /* rel ptr to next of same class */
25           2 size              fixed bin(35),      /* encoded string|arith size */
26           2 offset            fixed bin(35),      /* encoded offset from address */
27           2 virtual_org       fixed bin(35),
28           2 bounds(1),
29             3 lower           fixed bin(35),      /* encoded lower bound */
30             3 upper           fixed bin(35),      /* encoded upper bound */
31             3 multiplier      fixed bin(35);      /* encoded multiplier */
32 
33 dcl       1 runtime_bound     based,
34           2 lower             fixed bin(35),
35           2 upper             fixed bin(35),
36           2 multiplier        fixed bin(35);
37 
38 dcl       1 runtime_block     aligned based,
39           2 flag              unal bit(1),        /* always "1"b for Version II */
40           2 quick             unal bit(1),        /* "1"b if quick block */
41           2 fortran           unal bit(1),        /* "1"b if fortran program */
42           2 standard          unal bit(1),        /* "1"b if program has std obj segment */
43           2 owner_flag        unal bit(1),        /* "1"b if block has valid owner field */
44           2 skip              unal bit(1),
45           2 type              unal bit(6),        /* = 0 for a block node */
46           2 number            unal bit(6),        /* begin block number */
47           2 start             unal bit(18),       /* rel ptr to start of symbols */
48           2 name              unal bit(18),       /* rel ptr to name of proc */
49           2 brother           unal bit(18),       /* rel ptr to brother block */
50           2 father            unal bit(18),       /* rel ptr to father block */
51           2 son               unal bit(18),       /* rel ptr to son block */
52           2 map               unal,
53             3 first           bit(18),            /* rel ptr to first word of map */
54             3 last            bit(18),            /* rel ptr to last word of map */
55           2 entry_info        unal bit(18),       /* info about entry of quick block */
56           2 header            unal bit(18),       /* rel ptr to symbol header */
57           2 chain(4)          unal bit(18),       /* chain(i) is rel ptr to first symbol
58                                                      on start list with length >= 2**i */
59           2 token(0:5)        unal bit(18),       /* token(i) is rel ptr to first token
60                                                      on list with length >= 2 ** i */
61           2 owner             unal bit(18);       /* rel ptr to owner block */
62 
63 dcl       1 runtime_token     aligned based,
64           2 next              unal bit(18),       /* rel ptr to next token */
65           2 dcl               unal bit(18),       /* rel ptr to first dcl of this token */
66           2 name,                                 /* ACC */
67             3 size            unal unsigned fixed bin (9), /* number of chars in token */
68             3 string          unal char(n refer(runtime_token.size));
69 
70 dcl       1 encoded_value     aligned based,
71           2 flag              bit (2) unal,
72           2 code              bit (4) unal,
73           2 n1                bit (6) unal,
74           2 n2                bit (6) unal,
75           2 n3                bit (18) unal;
76 
77 /*        END INCLUDE FILE ... runtime_symbol.incl.pl1 */