1 2 3 "BEGIN INCLUDE FILE plio2_psr.incl.alm 4 5 "Created 07/08/77 1415.7 edt Fri by convert_include_file, 6 " Version of 03/21/77 1355.7 edt Mon. 7 8 "Made from >exl>include>plio2_psr.incl.pl1, 9 " modified 07/08/77 1415.7 edt Fri 10 11 " 12 " Structure psr 13 " 14 equ psr_size,113 15 16 17 equ psr.ab_return,10 "LEVEL 2 18 19 equ psr.abret,10 20 equ psr.source_p,16 21 equ psr.set_p_p,18 22 equ psr.variable_bitlen,21 23 equ psr.job,22 "LEVEL 2 24 25 bool psr.explicit_file,400000 "DU 26 bool psr.string,200000 "DU 27 bool psr.varying_string,100000 "DU 28 bool psr.data,040000 "DU 29 bool psr.edit,020000 "DU 30 bool psr.list,010000 "DU 31 bool psr.get,004000 "DU 32 bool psr.put,002000 "DU 33 bool psr.page,001000 "DU 34 bool psr.line,000400 "DU 35 bool psr.skip,000200 "DU 36 bool psr.copy,000100 "DU 37 bool psr.p1p2,000040 "DU 38 bool psr.bit_string,000020 "DU 39 bool psr.char_string,000010 "DU 40 bool psr.read,000004 "DU 41 bool psr.write,000002 "DU 42 bool psr.rewrite,000001 "DU 43 bool psr.delete,400000 "DL 44 bool psr.locate,200000 "DL 45 bool psr.key,100000 "DL 46 bool psr.keyto,040000 "DL 47 bool psr.keyfrom,020000 "DL 48 bool psr.set,010000 "DL 49 bool psr.into,004000 "DL 50 bool psr.ignore,002000 "DL 51 bool psr.from,001000 "DL 52 equ psr.version_shift,3 53 bool psr.version_mask,000077 54 bool psr.not_bytebuffer,000004 "DL 55 bool psr.varying_array,000002 "DL 56 bool psr.packedptr,000001 "DL 57 58 equ psr.number,23 59 equ psr.variable_p,24 60 equ psr.locking_switch,29 61 equ psr.new_format,30 62 equ psr.file_p,32 63 equ psr.fsbp,34 64 equ psr.auxp,36 65 equ psr.fabp,38 66 equ psr.fab2p,40 67 equ psr.pl1_ops_flags,47 "LEVEL 2 68 69 bool psr.keyto_keyset,400000 "DU 70 71 equ psr.keytemp,48 "DOUBLE 72 73 " The following declaration was not created by cif: 74 bool psr.version_mask_inplace,000770 "don't shift with this mask 75 76 "END INCLUDE FILE plio2_psr.incl.alm