1 /* include file lisp_stack_fmt.incl.pl1 --
 2    describes the format of the pushdown list
 3    used by the lisp evaluator and lisp subrs
 4    for passing arguments, saving atom bindings,
 5    and as temporaries */
 6 
 7 dcl
 8       temp(10000) fixed bin(71) aligned based,
 9 
10       temp_ptr(10000) ptr aligned based,
11     1 push_down_list_ptr_types(10000) based aligned,
12       2 junk bit(21) unaligned,
13       2 temp_type bit(9) unaligned,
14       2 more_junk bit(42) unaligned,
15 
16     1 pdl_ptr_types36(10000) based aligned,
17       2 temp_type36 bit(36),
18       2 junk bit(36),
19 
20     1 binding_block aligned based,
21       2 top_block bit(18) unaligned,
22       2 bot_block bit(18) unaligned,    /* these two are rel pointers into the marked PDL */
23       2 back_ptr  bit(18) unaligned,      /* relative pointer into unmarked PDL for last binding block. */
24       2 rev_ptr  bit(18) unaligned,     /* relative pointer to reversal bb which reversed this one, init to 0 */
25 
26     1 bindings(10000) based aligned,    /* format fof bindings on stack */
27       2 old_val fixed bin(71) aligned,
28       2 atom fixed bin(71) aligned;
29 
30 
31 
32 /* end include file lisp_stack_fmt.incl.pl1 */