1 /* BEGIN INCLUDE FILE ..... tedstk.incl.pl1 ..... 04/16/76 J Falksen         */
 2 
 3 dcl sv_p            ptr;
 4 dcl 1 sv            based (sv_p),
 5       2 prev        ptr,                /* ->previous frame                  */
 6       2 bp          ptr,                /* ->buffer control block last used  */
 7       2 ex          like b.ex,          /* execution limits in buffer        */
 8       2 a0          like b.a_,          /* "." in buffer                     */
 9       2 stackl      bit (18)aligned,    /* linked list of occurances of same */
10                                         /*  buffer in the stack              */
11       2 fill        bit (36)aligned,
12       2 this        fixed bin (21),     /* space index before this frame was */
13                                         /*  allocated                        */
14       2 pn          fixed bin (21),     /* parameter number                  */
15       2 pv (0:sv.pn),
16         3 pp ptr,                       /* pointer to parameter              */
17         3 pl fixed bin (21);            /* length of parameter               */
18 
19 dcl  pstr           based char (256);
20 
21 dcl 1 call_stk      based (dbase.seg_p (3)),
22       2 space       (2000) ptr;         /* place to put stack frames         */
23 
24 /* END INCLUDE FILE ..... tedstk.incl.pl1 .....                              */