1 2 3 "BEGIN INCLUDE FILE plio2_ps.incl.alm 4 5 "Created 07/08/77 1352.7 edt Fri by convert_include_file, 6 " Version of 03/21/77 1355.7 edt Mon. 7 8 "Made from >exl>include>plio2_ps.incl.pl1, 9 " modified 07/08/77 1352.7 edt Fri 10 11 " 12 " Structure ps 13 " 14 equ ps_size,48 15 16 17 equ ps.stack_frame_p,0 18 equ ps.ST_top_p,2 19 equ ps.ST_block_p,4 20 equ ps.format_area_p,6 21 equ ps.ss_list_p,8 22 equ ps.ab_return,10 "LEVEL 2 23 24 equ ps.abret,10 25 equ ps.source_p,16 26 equ ps.special_list_p,18 27 equ ps.copy_file_p,20 28 equ ps.job,22 "LEVEL 2 29 30 bool ps.explicit_file,400000 "DU 31 bool ps.string,200000 "DU 32 bool ps.varying_string,100000 "DU 33 bool ps.data,040000 "DU 34 bool ps.edit,020000 "DU 35 bool ps.list,010000 "DU 36 bool ps.get,004000 "DU 37 bool ps.put,002000 "DU 38 bool ps.page,001000 "DU 39 bool ps.line,000400 "DU 40 bool ps.skip,000200 "DU 41 bool ps.copy,000100 "DU 42 bool ps.p1p2,000040 "DU 43 bool ps.bit_string,000020 "DU 44 bool ps.char_string,000010 "DU 45 bool ps.read,000004 "DU 46 bool ps.write,000002 "DU 47 bool ps.rewrite,000001 "DU 48 bool ps.delete,400000 "DL 49 bool ps.locate,200000 "DL 50 bool ps.key,100000 "DL 51 bool ps.keyto,040000 "DL 52 bool ps.keyfrom,020000 "DL 53 bool ps.set,010000 "DL 54 bool ps.into,004000 "DL 55 bool ps.ignore,002000 "DL 56 bool ps.from,001000 "DL 57 equ ps.version_shift,3 58 bool ps.version_mask,000077 59 bool ps.not_byte_buffer,000004 "DL 60 bool ps.packed_ptr,000001 "DL 61 62 equ ps.number,23 63 equ ps.value_p,24 64 equ ps.descriptor,26 65 equ ps.length,27 66 67 equ ps.top_half,28 "UPPER 68 equ ps.offset,28 "LOWER 69 70 equ ps.prep,29 71 equ ps.new_format,30 72 equ ps.switch,31 "LEVEL 2 73 74 bool ps.first_field,400000 "DU 75 bool ps.file,200000 "DU 76 bool ps.transmit_error,100000 "DU 77 bool ps.semi_sep,040000 "DU 78 79 equ ps.file_p,32 80 equ ps.fsbp,34 81 equ ps.auxp,36 82 equ ps.fabp,38 83 equ ps.fab2p,40 84 equ ps.vp,42 85 equ ps.descr,44 86 equ ps.start_copy,45 87 equ ps.quick_stream_storage,46 "LEVEL 2 88 89 equ ps.a_stored,46 90 equ ps.q_stored,47 91 " The following declaration was not created by cif: 92 bool ps.version_mask_inplace,0007700 "don't shift with this mask 93 94 "END INCLUDE FILE plio2_ps.incl.alm