1 /* BEGIN INCLUDE FILE ... system.incl.pl1 */
 2 
 3 /* Modified: 25 Apr 1979 by PCK to implemnt 4-bit decimal */
 4 
 5 dcl (     max_p_flt_bin_1                         initial(27),
 6           max_p_flt_bin_2                         initial(63),
 7           max_p_fix_bin_1                         initial(35),
 8           max_p_fix_bin_2                         initial(71),
 9 
10           max_p_dec                               initial(59),
11           max_p_bin_or_dec                        initial (71),       /* max (max_p_fix_bin_2, max_p_dec) */
12 
13           min_scale                               initial(-128),
14           max_scale                               initial(+127),
15           max_bit_string                          initial(9437184),
16           max_char_string                         initial(1048576),
17           max_area_size                           initial(262144),
18           min_area_size                           initial(28),
19 
20           max_bit_string_constant                 initial (253),      /* max length of bit literals */
21           max_char_string_constant                initial (254),      /* max length of character literals */
22           max_identifier_length                   initial (256),
23           max_number_of_dimensions                initial (127),
24 
25           max_length_precision                    initial(24),
26           max_offset_precision                    initial(24),        /* 18 bits for word offset + 6 bits for bit offset */
27 
28           max_words_per_variable                  initial (262144),
29 
30           bits_per_word                           initial(36),
31           bits_per_double                         initial(72),
32           packed_digits_per_character             initial(2),
33           characters_per_half                     initial(2),
34           characters_per_word                     initial(4),
35           characters_per_double                   initial(8),
36 
37           bits_per_character                      initial(9),
38           bits_per_half                           initial(18),
39           bits_per_decimal_digit                  initial(9),
40           bits_per_binary_exponent                initial(8),
41           bits_per_packed_ptr                     initial(36),
42           words_per_packed_pointer                initial(1),
43 
44           words_per_fix_bin_1                     initial(1),
45           words_per_fix_bin_2                     initial(2),
46           words_per_flt_bin_1                     initial(1),
47           words_per_flt_bin_2                     initial(2),
48           words_per_varying_string_header         initial(1),
49           words_per_offset                        initial(1),
50           words_per_pointer                       initial(2),
51           words_per_label_var                     initial(4),
52           words_per_entry_var                     initial(4),
53           words_per_file_var                      initial(4),
54           words_per_format                        initial(4),
55           words_per_condition_var                 initial(6),
56 
57           max_index_register_value                initial(262143),
58           max_signed_index_register_value         initial(131071),
59 
60           max_signed_xreg_precision               initial(17),
61           max_uns_xreg_precision                  initial(18),
62 
63           default_area_size                       initial(1024),
64           default_flt_bin_p                       initial(27),
65           default_fix_bin_p                       initial(17),
66           default_flt_dec_p                       initial(10),
67           default_fix_dec_p                       initial(7)) fixed bin(31) internal static options(constant);
68 
69 dcl       bits_per_digit                          initial(4.5)  fixed bin(31,1) internal static options(constant);
70 
71 dcl (     integer_type                  initial("010000000000000000000100000001100000"b),
72           dec_integer_type              initial("010000000000000000000100000010100000"b),
73           pointer_type                  initial("000001000000000000000100000000000000"b),
74           real_type                     initial("001000000000000000000100000001100000"b),
75           complex_type                  initial("001000000000000000000100000001010000"b),
76           builtin_type                  initial("000000000000000010000000000000000000"b),
77           storage_block_type            initial("000000000000100000000000000000000000"b),
78           arg_desc_type                 initial("000000000001000000000000000000000000"b),
79           local_label_var_type          initial("000000001000000000000100000100001000"b),
80           entry_var_type                initial("000000000100000000000000000000001000"b),
81           bit_type                      initial("000100000000000000000000000000000000"b),
82           char_type                     initial("000010000000000000000000000000000000"b)) bit(36) aligned int static
83                                                                                           options(constant);
84 
85 /* END INCLUDE FILE ... system.incl.pl1 */