1 /* BEGIN INCLUDE FILE linus_arg_list.incl.pl1 -- jccj 4/15/77 */ 2 3 dcl 1 char_desc aligned based (char_ptr), /* Structure for character descriptors */ 4 2 fb_desc bit (36) aligned init ("100000100000000000000000000000100011"b), /* Fixed bin descriptor */ 5 2 n_chars fixed bin, 6 2 arr (n_chars_init refer (char_desc.n_chars)), 7 3 const bit (12) unal init ("101010100000"b), /* Constant part */ 8 3 var bit (24) unal; /* Variable part */ 9 10 dcl char_ptr ptr; 11 dcl n_chars_init fixed bin; 12 13 /* END INCLUDE FILE linus_arg_list.incl.pl1 */