1 "BEGIN INCLUDE FILE fortran_ps.incl.alm
 2 "
 3 " Created: 16 Dec 1977, D. Levin
 4 "
 5 "
 6 "                        Fields in the user's ps.
 7 "
 8           equ       ft_ps.unit,8
 9           equ       ft_ps.job_bits,20
10           equ       ft_ps.ele_desc_and_count,22
11           equ       ft_ps.element_desc,22
12           equ       ft_ps.element_count,23
13           equ       ft_ps.element_ptr,24
14           equ       ft_ps.data_words,28
15 "
16 "                        Fields in fortran I/O's ps.
17 "
18           equ       fio_ps.label_addr,0
19           equ       fio_ps.stack_frame_p,2
20           equ       fio_ps.label_index_addr,4
21           equ       fio_ps.job_bits_and_file,6
22           equ       fio_ps.job_bits,6
23           equ       fio_ps.file_number,7
24           equ       fio_ps.ele_desc_and_count,8
25           equ       fio_ps.element_desc,8
26           equ       fio_ps.element_count,9
27           equ       fio_ps.element_ptr,10
28 "
29 "  END INCLUDE FILE fortran_ps.incl.alm