1 /* BEGIN INCLUDE FILE ... pl1_attribute_table.incl.pl1 */
  2 
  3 /* Modified 780628 by PG for unsigned */
  4 /* Modified 830426 by BIM for options (packed) on pointers */
  5 
  6 dcl       index_given_letter (97:122) fixed bin (8) unal internal static
  7           initial (1, 5, 10, 19, 26, 31, 35, 83, 36, 83, 43,          /* A-K */
  8           44, 47, 48, 50, 53, 83, 64, 69, 83, 75, 80, (4)83);         /* L-Z */
  9 
 10 dcl       keyword (83) char (11) aligned internal static initial (
 11           "aligned", "area", "auto", "automatic", "based", "bin",
 12           "binary", "bit", "builtin", "char", "character", "complex",
 13           "cond", "condition", "constant", "controlled", "cplx", "ctl",
 14           "dec", "decimal", "def", "defined", "dim", "dimension",
 15           "direct", "entry", "env", "environment", "ext", "external",
 16           "file", "fixed", "float", "format", "generic", "init",
 17           "initial", "input", "int", "internal", "irred", "irreducible",
 18           "keyed", "label", "like", "local", "member", "nonvar",
 19           "nonvarying", "offset", "options", "output", "parameter", "parm",
 20           "pic", "picture", "pointer", "pos", "position", "prec",
 21           "precision", "print", "ptr", "real", "record", "red",
 22           "reducible", "returns", "seql", "sequential", "signed", "static",
 23           "stream", "structure", "unal", "unaligned", "uns", "unsigned",
 24           "update", "var", "variable", "varying", "~");
 25 
 26 dcl       system_keyword (15) char (16) aligned internal static initial (
 27           "aliasable", "arg-descriptor", "interactive", "options-constant",
 28           "options-variable", "parameter-desc", "reserved-1", "reserved-2",
 29           "reserved-3", "reserved-4", "return-value", "stringvalue",
 30           "storage-block", "temporary", "options-packed");
 31 
 32 dcl       bit_index (82) fixed bin (8) unal internal static initial (
 33           22, /* aligned */  8, /* area */ 46, /* auto */ 46, /* automatic */ 47, /* based */ 30, /* bin */
 34           30, /* binary */  4, /* bit */ 17, /* builtin */  5, /* char */  5, /* character */ 32, /* complex */
 35           15, /* cond */ 15, /* condition */ 53, /* constant */ 49, /* controlled */ 32, /* cplx */ 49, /* ctl */
 36           29, /* dec */ 29, /* decimal */ 50, /* def */ 50, /* defined */ 20, /* dim */ 20, /* dimension */
 37           64, /* direct */ 10, /* entry */ 71, /* env */ 71, /* environment */ 39, /* ext */ 39, /* external */
 38           11, /* file */  2, /* fixed */  3, /* float */ 16, /* format */ 18, /* generic */ 21, /* init */
 39           21, /* initial */ 57, /* input */ 38, /* int */ 38, /* internal */ 35, /* irred */ 35, /* irreducible */
 40           69, /* keyed */  9, /* label */ 40, /* like */ 28, /* local */ 41, /* member */ 42, /* nonvar */
 41           42, /* nonvarying */  7, /* offset */ 43, /* options */ 58, /* output */ 51, /* parameter */ 51, /* parm */
 42           19, /* pic */ 19, /* picture */  6, /* pointer */ 37, /* pos */ 37, /* position */ 26, /* prec */
 43           26, /* precision */ 56, /* print */  6, /* ptr */ 31, /* real */ 62, /* record */ 34, /* red */
 44           34, /* reducible */ 36, /* returns */ 63, /* seql */ 63, /* sequential */ 24, /* signed */ 48, /* static */
 45           60, /* stream */  1, /* structure */ 23, /* unal */ 23, /* unaligned */ 25, /* uns */ 25, /* unsigned */
 46           59, /* update */ 27, /* var */ 33, /* variable */ 27 /* varying */);
 47 
 48 dcl       system_bit_index (15) fixed bin (8) unal internal static initial (
 49           72, /* aliasable */ 12, /* arg-descriptor */ 65, /* env(interactive) */
 50           45, /* options(constant) */ 44, /* options(variable) */ 52, /* param-desc */
 51           61, /* reserved-1 */ 66, /* reserved-2 */ 67, /* reserved-3 */
 52           70, /* reserved-4 */ 55, /* return-value */ 68, /* env(stringvalue) */
 53           13, /* storage-block */ 54, /* temporary */ 14 /* options-variable */);
 54 
 55 dcl       incompatable (72) bit (72) aligned internal static initial (
 56 /*                  111111111122222222223333333333444444444455555555556666666666777
 57            123456789012345678901234567890123456789012345678901234567890123456789012
 58            ------------------------------------------------------------------------ */
 59           "011111111111101111101001111111110111000001010000000010011111011110011010"b, /*  1 structure */
 60           "101111111111101111100000001100000111100101010000000000011111011110011010"b, /*  2 fixed */
 61           "110111111111101111100000101100000111100101010000000000011111011110011010"b, /*  3 float */
 62           "111011111111101111100001110111110111000100010000000000011111011110011010"b, /*  4 bit */
 63           "111101111111101111100001110111110111000100010000000000011111011110011010"b, /*  5 character */
 64           "111110111111101111100001111111110111100101010000000010011111011110011010"b, /*  6 ptr */
 65           "111111011111101111100001111111110111100101010000000010011111011110011010"b, /*  7 offset */
 66           "111111101111101111100001111111110111100101010000000010011111011110011010"b, /*  8 area */
 67           "111111110111101111100001111011110111100101010000000000011111011110011010"b, /*  9 label */
 68           "111111111011101111100001111111110000100101000000000000011111011110011010"b, /* 10 entry */
 69           "111111111101101111100001111111110111100101010000000000000000000000000000"b, /* 11 file */
 70           "111111111110101111111111111111111111111111111111111101111111011110011010"b, /* 12 arg-descriptor */
 71           "111111111111001111111111111111111111111111111111111101111111011110011010"b, /* 13 storage-block */
 72           "111110111111101111100001111111110111100101010000000010011111011110011010"b, /* 14 options-packed */
 73           "111111111111100111111111111111111111110111111111111111111111011110011010"b, /* 15 condition */
 74           "111111111111101011100001111011110111100101010000000000011111011110011010"b, /* 16 format */
 75           "111111111111101101111111111111111111101111111111111111111111011110011010"b, /* 17 builtin */
 76           "111111111111101110111111111111111111101111111111111111111111011110011010"b, /* 18 generic */
 77           "111111111111101111000001111111000111000101010000000010011111011110011010"b, /* 19 picture */
 78           "000000000001101011000000000000000000000000000000000000011111011110011010"b, /* 20 dimension */
 79           "100000000001101011000000000000000000100100000000011111111111011110011010"b, /* 21 initial */
 80           "000000000001101011000010000000000000000000000000000010011111011110011010"b, /* 22 aligned */
 81           "000000000001101011000100000000000000000000000000000010011111011110011010"b, /* 23 unaligned */
 82           "100111111111101111100000101100000111100101010000000000011111011110011010"b, /* 24 signed */
 83           "101111111111101111100001001110010111100101010000000000011111011110011010"b, /* 25 unsigned */
 84           "100111111111101111100000001100000111100101010000000000011111011110011010"b, /* 26 precision */
 85           "111001111111101111100001110111110111100101010000000010011111011110011010"b, /* 27 varying */
 86           "111111110111101011100001111011110111100101010000000010011111011110011010"b, /* 28 local */
 87           "100111111111101111100000101101000111100101010000000000011111011110011010"b, /* 29 decimal */
 88           "100111111111101111100000001110000111100101010000000000011111011110011010"b, /* 30 binary */
 89           "100111111111101111000000001100010111100101010000000000011111011110011010"b, /* 31 real */
 90           "100111111111101111000000101100100111100101010000000000011111011110011010"b, /* 32 cplx */
 91           "000000000001101011000000000000000000000000000000000110011111011110011010"b, /* 33 variable */
 92           "111111111011101111100001111111110010100101000000000000011111011110011010"b, /* 34 reducible */
 93           "111111111011101111100001111111110100100101000000000000011111011110011010"b, /* 35 irreducible */
 94           "111111111011101111100001111111110000100101000000000000011111011110011010"b, /* 36 returns */
 95           "011001111111101111001001111111110111001010111111101111111111011110011010"b, /* 37 position */
 96           "000000000001101000000000000000000000001000000000000100000000000000000000"b, /* 38 internal */
 97           "000000000001100011000000000000000000110010001110011101100000000000000000"b, /* 39 external */
 98           "011111111111101111101001111111110111000001010000000010011111011110011010"b, /* 40 like */
 99           "000000000001101011000000000000000000101000001111111011111111011110011010"b, /* 41 member */
100           "111001111111101111100001111111110111000100010000000010011111011110011010"b, /* 42 nonvarying */
101           "000000000001101011000000000000000000100000000000000000011111011110011010"b, /* 43 options */
102           "111111111011101111100001111111110000100101000000000000011111011110011010"b, /* 44 options-variable */
103           "000000000001101011000000000000000000101010000110111111111111011110011010"b, /* 45 options-constant */
104           "000000000001101011000000000000000000101010001011111111111111011110011010"b, /* 46 automatic */
105           "000000000001101011000000000000000000101010001101111111111111011110011010"b, /* 47 based */
106           "000000000001101011000000000000000000100010000110111111111111011110011010"b, /* 48 static */
107           "000000000001101011000000000000000000100010001111011111111111011110011010"b, /* 49 ctl */
108           "000000000001101011001000000000000000001010001111101111111111011110011010"b, /* 50 defined */
109           "000000000001101011001000000000000000101010001111110111111111011110011010"b, /* 51 parm */
110           "000000000001101011001000000000001000111000001111111011111111011110011010"b, /* 52 parameter-desc */
111           "100001110000001011101110001100001000100111001111111101100000000000000000"b, /* 53 constant */
112           "000000000001101011001000000000000000101010001111111110111111011110011010"b, /* 54 temporary */
113           "000000000001101011001000000000000000101010001111111111011111011110011010"b, /* 55 return-value */
114           "111111111101101111111111111111111111100111111111111101101010011100011000"b, /* 56 print */
115           "111111111101101111111111111111111111100111111111111101110110000010000000"b, /* 57 input */
116           "111111111101101111111111111111111111100111111111111101101010000000000000"b, /* 58 output */
117           "111111111101101111111111111111111111100111111111111101111101000010000000"b, /* 59 update */
118           "111111111101101111111111111111111111100111111111111101100010011100011000"b, /* 60 stream */
119           "000000000000000000000000000000000000000000000000000000000000000000000000"b, /* 61 reserved-1 */
120           "111111111101101111111111111111111111100111111111111101110001000010000000"b, /* 62 record */
121           "111111111101101111111111111111111111100111111111111101110001000110000000"b, /* 63 sequential */
122           "111111111101101111111111111111111111100111111111111101110001001010000000"b, /* 64 direct */
123           "111111111101101111111111111111111111100111111111111101101010011100011000"b, /* 65 interactive */
124           "000000000000000000000000000000000000000000000000000000000000000000000000"b, /* 66 reserved-2 */
125           "000000000000000000000000000000000000000000000000000000000000000000000000"b, /* 67 reserved-3 */
126           "111111111101101111111111111111111111100111111111111101110001000010000000"b, /* 68 stringvalue */
127           "111111111101101111111111111111111111100111111111111101110001000010000000"b, /* 69 keyed */
128           "000000000000000000000000000000000000000000000000000000000000000000000000"b, /* 70 reserved-4 */
129           "111111111101101111111111111111111111100111111111111101100000000000000000"b, /* 71 environment */
130           "000000000000000000000000000000000000000000000000000000000000000000000000"b); /* 72 aliasable */
131 /*         ------------------------------------------------------------------------
132                     111111111122222222223333333333444444444455555555556666666666777
133            123456789012345678901234567890123456789012345678901234567890123456789012 */
134 
135 /* END INCLUDE FILE ... pl1_attribute_table.incl.pl1 */