1 /* TOP of COMMON.incl.pl1               ** plio-4 **
 2    new design of non static "pliostat" as of 3/17/70 */
 3 
 4 
 5 dcl based_bit36 bit(36) aligned based,
 6     based_char4 char(4) based,
 7     based_int fixed bin(15) based,
 8     based_dint fixed bin(71) based;
 9 
10 dcl char_buf char(1000) unaligned based;
11 
12 dcl psp ptr;
13 dcl 1 ps based(psp) aligned,
14 
15      2 ret_label label,
16 
17      2 fab2p ptr,
18      2 fabp ptr,
19      2 fsbp ptr,    /* points to the FSB if any */
20 
21 
22      2 aux(2) ptr,  /* symbol table pointers or format list pointers */
23      2 gcpx ptr, /* points to the gc structure when such is in use */
24 
25     2 switch unaligned,
26           3 string_sw bit(1), /* "1"b for str-opt, "0"b otherwise*/
27           3 put_sep bit(1),
28           3 var_str bit(1),   /* string option with varying string */
29           3 xxx3 bit(1),
30           3 data bit(1),
31           3 edit bit(1),
32           3 list bit(1),
33           3 copy bit(1),      /* may be used for copy option */
34      2 auxextra(2) ptr;       /* 3rd and 4th ptrs of AUX */
35 
36 /* END of COMMON :     25 lines */