1 
 2           /* BEGIN INCLUDE FILE lisp_unmkd_pdl.incl.pl1 */
 3 
 4           /* which describes the format of information that gets
 5              put on the unmarked pdl */
 6 
 7 dcl errcode(2) fixed bin aligned based, /* (1) is error code for lisp_error_ */
 8                                         /* (2) is file system code (if any) */
 9 
10     1 frame aligned based,                        /* many types of frames are pushed */
11       2 prev_frame bit(18) unaligned,             /* rel ptr to previous frame same type, or 0 */
12       2 stack_ptr bit(18) unaligned,              /* rel(stack_ptr) when the frame was created */
13       2 (dat1, dat2) bit(18) unaligned,           /* available for any lawful purpose */
14       2 ret label;                                /* where to return to */
15 
16 dcl nframeptrs fixed bin static init(6),          /* in the following two declarations,
17                                                      I used 6 where I meant nframeptrs because of compiler bug */
18     lisp_static_vars_$frame_ptrs (0:6) ptr ext static,
19     frame_ptrs (0 : 6) pointer defined (lisp_static_vars_$frame_ptrs);          /* prog_frame, err_frame, etc. */
20 
21 
22           /* END INCLUDE FILE lisp_unmkd_pdl.incl.pl1 */
23