1 /* BEGIN INCLUDE FILE ... radix_factor_constants.incl.pl1 */
 2 
 3 /*        The following array, "digits", although static, IS assigned to in some cases    */
 4 /*        so could never be "options(constant)!!                                          */
 5 
 6 dcl       digits(0:5) char(16) int static init(   "0101010101010101",   /* only 1st two digits are meaningful */
 7                                                   "0101010101010101",   /* only 1st 2 digits meaningful       */
 8                                                   "0123012301230123",   /* only 1st 4 digits meaningful       */
 9                                                   "0123456701234567",   /* only 1st 8 digits meaningful       */
10                                                   "0123456789abcdef",   /* all 16 digits meaningful           */
11                                                   "0123456789ABCDEF");  /* all 16 digits meaningful           */
12 
13 dcl       capital_hex char(6) init("ABCDEF") int static options(constant);
14 
15 dcl       lower_case_hex char(6) init("abcdef") int static options(constant);
16 
17 dcl       expand_bit_chars(2:4) char(64) int static init(   "00011011",
18                                                   "000001010011100101110111",
19                                                   "0000000100100011010001010110011110001001101010111100110111101111");
20 
21 dcl       expand_bits(2:4) bit(64) int static init(         "00011011"b,
22                                                   "000001010011100101110111"b,
23                                                   "0000000100100011010001010110011110001001101010111100110111101111"b);
24 
25 /* END INCLUDE FILE ... radix_factor_constants.incl.pl1 */