1 " BEGIN INCLUDE FILE lisp_stack_seg.incl.alm 2 3 " lisp stack segment header format 4 " Last modified by Reed 6/21/72 5 " 6 equ marked_stack_bottom,0 offset of ptr to bottom of marked stack 7 equ unmkd_stack_bottom,2 offset of ptr to bottom of unmkd_stack 8 equ stack_ptr_ptr,4 offset of ptr to lisp_static_vars_$stack_ptr 9 equ unmkd_ptr_ptr,6 offset of ptr to lisp_static_vars_$unmkd_ptr's offset word 10 equ array_pointer,8 points at cell of array most recently referenced 11 equ nil,10 offset of cell containing pointer to nil... 12 equ true,12 offset of cell containing pointer to t... 13 equ in_pl1_code,14 offset of flag saying whether stack_ptr 14 " & unmkd_ptr or ap and ab|.,x7 are valid...if zero, ap,ab arevalid. 15 " table of pointers to operators 16 17 equ bind_op,16 18 equ unbind_op,18 19 equ errset1_op,20 20 equ errset2_op,22 21 equ unerrset_op,24 22 equ call_op,26 23 equ catch1_op,28 24 equ catch2_op,30 25 equ uncatch_op,32 26 equ gensym_data,34 " data for gensym function 27 28 equ system_lp,36 pointer to common linkage section for bound segment. 29 equ iogbind_op,38 operator to help out with compiled iog. 30 equ unseen_go_tag_op,40 31 equ throw1_op,42 32 equ throw2_op,44 33 equ signp_op,46 34 equ type_fields,48 35 equ return_op,50 36 equ err_op,52 37 equ pl1_interface,54 38 equ pl1_lsubr_interface,56 39 equ cons_op,58 operator for compiled cons 40 equ ncons_op,60 opeator for compiled cons with nil 41 equ xcons_op,62 operator for compiled xcons 42 equ begin_list_op,64 operator to begin compiled list code 43 equ append_list_op,66 operator to get new list cell and hook on end 44 equ terminate_list_op,68 operator to finish off list. 45 equ compare_op,70 46 equ link_opr,72 47 equ array_operator,74 48 equ dead_array_operator,76 49 equ store_operator,78 50 equ floating_store_operator,80 51 equ array_info_for_store,82 52 equ array_offset_for_store,84 53 equ array_link_snap_opr,86 54 equ create_string_desc_op,88 string desc for PL/I call 55 equ create_array_desc_op,90 array desc for PL/I call 56 equ pl1_call_op,92 PL/I call operator 57 equ cons_string_op,94 operator to cons up a string 58 equ create_varying_string_op,96 59 equ unwp1_op,98 unwind-protect start 60 equ unwp2_op,100 ditto, for compat. 61 equ ununwp_op,102 End unwind-protect. 62 equ irest_return_op,104 Interrupt restore return 63 equ pl1_call_nopop_op,106 PL1 call, dont pop PL1 frame 64 equ rcv_char_star_op,108 Receive char * result, pop pl1frame 65 " spare 110 66 equ begin_unmkd_stack,124 beginning of unmkd_stack 67 68 " END INCLUDE FILE lisp_stack_seg.incl.alm 69