1 /* BEGIN INCLUDE FILE ... boundary.incl.pl1 */ 2 3 /* Modified: 26 Apr 1979 by PCK to implement 4-bit decimal */ 4 5 dcl ( bit_ init(1), 6 digit_ init(2), 7 character_ init(3), 8 half_ init(4), 9 word_ init(5), 10 mod2_ init(6), 11 mod4_ init(7)) fixed bin(3) int static options(constant); 12 13 /* END INCLUDE FILE ... boundary.incl.pl1 */