1 /* BEGIN INCLUDE FILE ... context.incl.pl1 */
 2 
 3 dcl       1 context                     based aligned,
 4           2 node_type                   bit(9) unaligned,
 5           2 bits                        structure unaligned,
 6             3 types                     structure,
 7               4 structure               bit(1),
 8               4 fixed                   bit(1),
 9               4 float                   bit(1),
10               4 bit                     bit(1),
11               4 char                    bit(1),
12               4 ptr                     bit(1),
13               4 offset                  bit(1),
14               4 area                    bit(1),
15               4 label                   bit(1),
16               4 entry                   bit(1),
17               4 file                    bit(1),
18               4 arg_descriptor          bit(1),
19               4 storage_block           bit(1),
20               4 unused_1                bit(1),
21               4 condition               bit(1),
22               4 format                  bit(1),
23               4 builtin                 bit(1),
24               4 generic                 bit(1),
25               4 picture                 bit(1),
26             3 parameter                 bit(1),
27           2 reserved                    bit(7) unaligned,
28           2 next                        ptr unaligned,
29           2 token                       ptr unaligned;
30 
31 /* END INCLUDE FILE ... context.incl.pl1 */