1 /* BEGIN INCLUDE FILE linus_variables.incl.pl1 -- jaw 7/19/77 */
 2 
 3 dcl 1 variables aligned based (lv_ptr),                     /* info for all variables */
 4     2 nvars_alloc fixed bin,                                /* no. var. slots alloc. */
 5     2 nvars fixed bin,                                      /* no. of variables currently defined */
 6     2 var_info (nvars_init refer (variables.nvars_alloc)),
 7       3 name char (32),                                     /* name of variable */
 8       3 var_ptr ptr,                                        /* ptr to  curr. value */
 9       3 bit_len fixed bin (35),                             /* bit length of current value */
10       3 assn_type fixed bin,                                /* assign_ type code of current value */
11       3 assn_len fixed bin (35),                            /* assign_ length of current value */
12       3 desc bit (36);                                      /* descrptor of current value */
13 
14 dcl  lv_ptr ptr;
15 dcl  nvars_init fixed bin;
16 
17 /* END INCLUDE FILE linus_variables.incl.pl1 */