1 "
2 " BEGIN INCLUDE FILE ... stack_frame.incl.alm 6/72 RBS
3 "
4 " Modified: 16 Dec 1977, D. Levin - to add fio_ps_ptr
5 " Modified: 3 Feb 1978, P. Krupp - to add run_unit_manager_bit & main_proc_bit
6 " Modified: 21 March 1978, D. Levin - change fio_ps_ptr to support_ptr
7 "
8 equ stack_frame.prev_sp,16
9 equ stack_frame.condition_word,16
10 equ stack_frame.next_sp,18
11 equ stack_frame.signaller_word,18
12 equ stack_frame.return_ptr,20
13 equ stack_frame.entry_ptr,22
14 equ stack_frame.operator_ptr,24
15 equ stack_frame.lp_ptr,24
16 equ stack_frame.arg_ptr,26
17 equ stack_frame.static_ptr,28
18 equ stack_frame.support_ptr,29 " only used by fortran I/O
19 equ stack_frame.on_unit_rel_ptrs,30
20 equ stack_frame.operator_ret_ptr,31
21 equ stack_frame.translator_id,31
22 equ stack_frame.regs,32
23 equ stack_frame.min_length,48
24 equ stack_frame.flag_word,16
25 bool stack_frame.main_proc_bit,020000 DL
26 bool stack_frame.run_unit_manager,010000 DL
27 bool stack_frame.signal_bit,004000 DL
28 bool stack_frame.crawl_out_bit,002000 DL
29 bool stack_frame.signaller_bit,001000 DL
30 bool stack_frame.link_trap_bit,000400 DL
31 bool stack_frame.support_bit,000200 DL
32 bool stack_frame.condition_bit,000100 DL
33
34 "
35 " END INCLUDE FILE ... stack_frame.incl.alm
36 "