1
2
3 dcl ( no_token initial("000000000"b),
4 identifier initial("100000000"b),
5 isub initial("010000000"b),
6 plus initial("001000001"b),
7 minus initial("001000010"b),
8 asterisk initial("001000011"b),
9 slash initial("001000100"b),
10 expon initial("001000101"b),
11 not initial("001000110"b),
12 and initial("001000111"b),
13 or initial("001001000"b),
14 cat initial("001001001"b),
15 eq initial("001001010"b),
16 ne initial("001001011"b),
17 lt initial("001001100"b),
18 gt initial("001001101"b),
19 le initial("001001110"b),
20 ge initial("001001111"b),
21 ngt initial("001010000"b),
22 nlt initial("001010001"b),
23 assignment initial("001010010"b),
24 colon initial("001010011"b),
25 semi_colon initial("001010100"b),
26 comma initial("001010101"b),
27 period initial("001010110"b),
28 arrow initial("001010111"b),
29 left_parn initial("001011000"b),
30 right_parn initial("001011001"b),
31 percent initial("001011100"b),
32 bit_string initial("000100001"b),
33 char_string initial("000100010"b),
34 bin_integer initial("000110001"b),
35 dec_integer initial("000110011"b),
36 fixed_bin initial("000110000"b),
37 fixed_dec initial("000110010"b),
38 float_bin initial("000110100"b),
39 float_dec initial("000110110"b),
40 i_bin_integer initial("000111001"b),
41 i_dec_integer initial("000111011"b),
42 i_fixed_bin initial("000111000"b),
43 i_fixed_dec initial("000111010"b),
44 i_float_bin initial("000111100"b),
45 i_float_dec initial("000111110"b)) bit (9) aligned internal static options (constant);
46
47 dcl ( is_identifier initial ("100000000"b),
48 is_isub initial ("010000000"b),
49 is_delimiter initial ("001000000"b),
50 is_constant initial ("000100000"b),
51 is_arith_constant initial ("000010000"b),
52 is_arithmetic_constant initial ("000110000"b),
53 is_imaginary_constant initial ("000111000"b),
54 is_float_constant initial ("000110100"b),
55 is_decimal_constant initial ("000110010"b),
56 is_integral_constant initial ("000110001"b)
57 ) bit(9) internal static aligned options(constant);
58
59