1 /* Begin include file alm_relocation_bits.incl.pl1. */
 2 /* Created 5 November 1970, R H Campbell. */
 3 /* Modified 19 November 1970, R H Campbell. */
 4 /* Last modified on 04/30/72 at 23:54:51 by R F Mabee. */
 5 
 6  declare  (iabsol initial (0b),                                       /* Absolute. */
 7            itext initial (10000b),                                    /* Text. */
 8            imtext initial (10001b),                                   /* Negative text. */
 9            ilink initial (10010b),                                    /* Link segment. */
10            imlink initial (10011b),                                   /* Negative link segment. */
11            ilkptr initial (10100b),                                   /* Linkage pointer. */
12            idefpt initial (10101b),                                   /* Definitialion pointer. */
13            isymbl initial (10110b),                                   /* Symbol. */
14            imsymb initial (10111b),                                   /* Negative symbol. */
15            ilblok initial (11000b),                                   /* Linkage block. */
16            imblok initial (11001b),                                   /* Negative linkage block. */
17            iselfr initial (11010b),                                   /* Self relative. */
18            iresv1 initial (11011b),                                   /* Unused. */
19            iresv2 initial (11100b),                                   /* Unused. */
20            iresv3 initial (11101b),                                   /* Unused. */
21            iresv4 initial (11110b),                                   /* Unused. */
22            iescap initial (11111b)) static fixed bin;                 /* Escape. */
23 
24  declare  (iltext initial (10000000000000000000000b),                 /* glwrd (itext, 0) */
25            illink initial (10010000000000000000000b),                 /* glwrd (ilink, 0) */
26            ilmlnk initial (10011000000000000000000b),                 /* glwrd (imlink, 0) */
27            ilsymb initial (10110000000000000000000b),                 /* glwrd (isymbl, 0) */
28            ildefs initial (10101000000000000000000b)) static fixed bin (26); /* glwrd (idefpt, 0) */
29 
30  declare   ibits (0: 2) static fixed bin initial (10000b, 10010b, 10110b); /* itext, ilink, isymbl */
31 
32                                                             /* end alm_relocation_bits. */