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 */