1 /******************** lisp_subr_fmt.incl.pl1 ****************************/
 2 
 3 
 4 /* Include file describing the format
 5    of a lisp subroutine link. This format is designed
 6    to appear just like a standard ft2 link, so the linker
 7    can do link snapping for us */
 8 
 9 
10 dcl 1 lisp_subr_ based aligned,
11       2 subr_nargs fixed bin(17) unaligned,
12       2 flags fixed bin(17) unaligned,
13       2 link_ptr,                       /* the its pointer will be created here */
14         3 header_ptr fixed bin(17) unaligned, /* self relative pointer to definitions
15                                            pointer */
16         3 pad bit(12) unaligned,        /* = 0 */
17         3 ft2 bit(6) unaligned,         /* = o46 */
18         3 exp_ptr bit(18) unaligned,    /* pointer to exp word relative to definitions */
19         3 rest_of_link_ptr bit(18) unaligned,     /* = 0 */
20       2 exp_word,
21         3 type_pair_ptr bit(18) unaligned, /* offset of type_pair below, from def_ptr */
22         3 expr_word bit(18) unaligned,  /* value of offset from symbol, will be ""b */
23       2 type_pair,
24         3 type_no bit(18) unaligned,    /* type of link - set to 4 for lisp */
25         3 trap_ptr bit(18) unaligned,   /* for trapbforlink, set to 0 for lisp */
26         3 segname_ptr bit(18) unaligned, /* relative offset of segname in definitions */
27         3 entname_ptr bit(18) unaligned,/* relative offset of entname in definitions */
28       2 acc_seg_name,
29         3 segnamel bit(9) unaligned,    /* length of acc string */
30         3 segname char(0 refer(segnamel)) unaligned,
31     1 acc_ent_name based aligned,                 /* entry name overlay */
32       2 entnamel bit(9) unaligned,      /* length of acc string */
33       2 entname char(0 refer(entnamel)) unaligned, /* entry name */
34     1 lisp_subr_for_call based aligned, /* used to call through this link */
35       2 subr_entry ptr;                 /* this is the faulting link noted above */
36 
37 
38 /********************** end lisp_subr_fmt.incl.pl1 **********************/