|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 11776 (0x2e00)
Notes: MEMBER_P, Member_Text
Names: »PTF «
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦1d861f2ef⟧
└─⟦this⟧ ».PTF «
// LOG ON // LIBRARY NAME-0 // MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * 2034 // LOCAL BLANK-*ALL,AREA-SYSTEM // IF ?1?/ IF JOBQ-NO IF EVOKED-NO RESET HELP PTF // IFF ?1?=NEWS GOTO NONEWS // PTFNEWS ?2?,?3?,?4?,?5?,,,,,,,PTF // RETURN // TAG NONEWS // IFF ?1?=APPLY IFF ?1?=DIRECT GOTO NODED // IFF ?3'ALLPTF'?=ALLPTF GOTO NODED // LOAD $FECHK // RUN // DEDICATE // IFF ?CD?=0000 RETURN // TAG NODED // EVALUATE P16='' P17='' // IF ?1?/COPY EVALUATE P16=?6'S1'? P17=?7'AUTO'? // IF ?1?/DIRECT EVALUATE P16=?5'S1'? P17=?6'AUTO'? // IF ?1?/MCOPY EVALUATE P16=?3'S1'? // IF ?1?/SAVE EVALUATE P16=?4'S1'? // IF ?1?/RESTORE EVALUATE P16=?4'S1'? // IF ?16?/M1 EVALUATE P16='M1.01' // IF ?16?/M2 EVALUATE P16='M2.01' // IFF ?1?=SAVE IFF ?1?=RESTORE GOTO NOSAVE1 // IF ?5'AUTO'?=AUTO ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES // ELSE ALLOCATE UNIT-I1 // GOTO NOSAVE2 // TAG NOSAVE1 // IFF ?16?/ ALLOCATE UNIT-I1 // TAG NOSAVE2 // IFF ?16?/ IF VOLID-'DSK000,?16?' EVALUATE // IFF ?16?/ LOCAL OFFSET-57,DATA-'?16?',AREA-SYSTEM // IF ?17?=AUTO LOCAL OFFSET-49,DATA-'1',AREA-SYSTEM // LOAD $FECHK // RUN // STATUS ?1?,?2?,?3?,?4?,0 // IFF ?CD?=0000 RETURN // LOAD $FEAIDS // RUN // SERVLOG MSG-'PTF ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8? (?L'51,6'?)' // END // IF ?1?/PATCH GOTO PP1 // IF ?1?/LIST GOTO PL1 // IF ?1?/SAVE GOTO A1 // IF ?1?/RESTORE GOTO A1 // IF ?1?/DELETE GOTO A1 // IF ?1?/COPY GOTO A5 // IF ?1?/DIRECT GOTO A45 // IF ?1?/APPLY GOTO A3 // IF ?1?/REMOVE GOTO A4 // IF ?1?/MCOPY GOTO M10 // IF ?1?/MAPPLY GOTO M20 // IF ?1?/MREMOVE GOTO M30 // #ERR 3306,C INVALID PTF FUNCTION REQUESTED // TAG A1 // IF ?2'ALLPTF'?/ALLPTF GOTO A5 // IF ?2?/AP1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/AS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BA1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BH1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BNH?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BNW?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BRJ?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CB1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CCN?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CNF?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/DF1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/DS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/FO1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IG1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IW1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IW2?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/LC1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/MA1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/OLP?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/QH1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/QU1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/RG1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SD1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SE1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SW1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/TX1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/TXS?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WP1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WP3?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WS1?L'33,2'? EVALUATE P2='PTB'?2? // GOTO A5 // TAG A3 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // IF ?3?/AP1?L'33,2'? EVALUATE P3='PTFAP1?L'33,2'?' P15=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P3='PTFAS1?L'33,2'?' P15=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P3='PTFBA1?L'33,2'?' P15=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P3='PTFBH1?L'33,2'?' P15=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P3='PTFBNH?L'33,2'?' P15=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P3='PTFBNW?L'33,2'?' P15=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P3='PTFBRJ?L'33,2'?' P15=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P3='PTFCB1?L'33,2'?' P15=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P3='PTFCCN?L'33,2'?' P15=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P3='PTFCNF?L'33,2'?' P15=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P3='PTFDF1?L'33,2'?' P15=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P3='PTFDS1?L'33,2'?' P15=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P3='PTFFO1?L'33,2'?' P15=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P3='PTFIG1?L'33,2'?' P15=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P3='PTFIS1?L'33,2'?' P15=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P3='PTFIW1?L'33,2'?' P15=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P3='PTFIW2?L'33,2'?' P15=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P3='PTFLC1?L'33,2'?' P15=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P3='PTFMA1?L'33,2'?' P15=#MIGRLIB // IF ?3?/OLP?L'33,2'? EVALUATE P3='PTFOLP?L'33,2'?' P15=#ONLPD // IF ?3?/QH1?L'33,2'? EVALUATE P3='PTFQH1?L'33,2'?' P15=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P3='PTFQU1?L'33,2'?' P15=#QRYLIB // IF ?3?/RG1?L'33,2'? EVALUATE P3='PTFRG1?L'33,2'?' P15=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P3='PTFSD1?L'33,2'?' P15=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P3='PTFSE1?L'33,2'?' P15=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P3='PTFSS1?L'33,2'?' P15=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P3='PTFSW1?L'33,2'?' P15=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P3='PTFTX1?L'33,2'?' P15=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P3='PTFTXS?L'33,2'?' P15=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P3='PTFWP1?L'33,2'?' P15=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P3='PTFWP3?L'33,2'?' P15=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P3='PTFWS1?L'33,2'?' P15=#WSULIB // IF ?4?/ EVALUATE P4=?15? // GOTO A5 // TAG A45 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // IF ?3?/AP1?L'33,2'? EVALUATE P15=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P15=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P15=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P15=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P15=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P15=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P15=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P15=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P15=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P15=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P15=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P15=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P15=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P15=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P15=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P15=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P15=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P15=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P15=#MIGRLIB // IF ?3?/QH1?L'33,2'? EVALUATE P15=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P15=#QRYLIB // IF ?3?/OLP?L'33,2'? EVALUATE P15=#ONLPD // IF ?3?/RG1?L'33,2'? EVALUATE P15=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P15=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P15=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P15=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P15=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P15=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P15=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P15=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P15=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P15=#WSULIB // IF ?4?/ EVALUATE P4=?15? // GOTO A5 // TAG A4 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // LOCAL OFFSET-080,DATA-'?3?',AREA-SYSTEM,BLANK-8 // LOCAL OFFSET-083,DATA-'?L'80,5'?',AREA-SYSTEM // LOCAL OFFSET-080,DATA-'PTB',AREA-SYSTEM // IF ?4?/ EVALUATE P4=?L'80,8'? // IF ?3?/AP1?L'33,2'? EVALUATE P3=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P3=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P3=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P3=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P3=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P3=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P3=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P3=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P3=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P3=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P3=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P3=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P3=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P3=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P3=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P3=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P3=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P3=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P3=#MIGRLIB // IF ?3?/OLP?L'33,2'? EVALUATE P3=#ONLPD // IF ?3?/QH1?L'33,2'? EVALUATE P3=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P3=#QRYLIB // IF ?3?/RG1?L'33,2'? EVALUATE P3=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P3=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P3=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P3=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P3=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P3=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P3=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P3=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P3=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P3=#WSULIB // GOTO A5 // TAG A5 // IF ?1?/COPY GOTO PC1 // IF ?1?/APPLY GOTO PC2 // IF ?1?/DIRECT GOTO PC1 // IF ?1?/REMOVE GOTO PC4 // IF ?1?/SAVE GOTO PR1 // IF ?1?/RESTORE GOTO PR1 // IF ?1?/DELETE GOTO PR1 // #ERR 3306,C INVALID PTF FUNCTION REQUESTED // TAG PC1 // IFF ?3'ALLPTF'?=ALLPTF IFF ?L'9,1'?=1 GOTO PC2 // IF ?3'ALLPTF'?=ALLPTF IFF ?L'51,1'?/D #ERR 3344,C // IF DATAI1-'PTFUP?L'33,2'?,,?16?' + TOLIBR PTFUP?L'33,2'?,I1,,REPLACE,#LIBRARY,?16? // TAG PC2 // IF ?1?/DIRECT EVALUATE P1=DIREC // IF ?3'ALLPTF'?/ALLPTF GOTO PC3 // PTF?1? ?2'OLD'?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?4?,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC3 // IFF ?4?/ #ERR 3307,C FILE/LIBRARY NAME NOT VALID WITH ALLPTF // IFF ?1?=APPLY GOTO NODKL * DELETE ONLY ON APPLY // IFF DATAF1-PTFSS105 GOTO NODKL * MUST BE APPLYING #LIBRARY // IFF LOAD-'$FEDKL,#LIBRARY' GOTO NODKL * MUST CURRENTLY EXIST // LOAD $MAINT // RUN // DELETE LIBRARY-O,LIBRNAME-#LIBRARY,NAME-$FEDKL,RETAIN-S,OMIT-#PTFLOG // END // TAG NODKL // ALLPTF ?1?,?2'OLD'?,,?4?,?5?,?6?,?7?,?8?,?9? // IF ?1?=APPLY IF PROC-'#PTFVASP,#VASPLIB' #PTFVASP,#VASPLIB // IF ?L'71,1'?/'1' GOTO PC2END // IF ?1?/'APPLY' #ERR 3361,03 // IF ?1?/'COPY' #ERR 3362,03 // TAG PC2END // IFF ?16?/ DEALLOC UNIT-I1 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC4 // EVALUATE P1=REMOV // IF ?3'ALLPTF'?/ALLPTF GOTO PC5 // PTF?1? ?2'ALL'?,?4?,,,,,,,?3?,,PTF // IFF ?L'71,1'?/'1' #ERR 3363,03 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC5 // IFF ?4?/ #ERR 3307,C FILE/LIBRARY NAME NOT VALID WITH ALLPTF // ALLPTF ?1?,?2'ALL'?,,?4? // IFF ?L'71,1'?/'1' #ERR 3363,03 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PL1 // DUMP PTF,?3?,F1,?2? // RETURN // TAG PR1 // IF ?1?/DELETE EVALUATE P1=DELET // IF ?1?/RESTORE EVALUATE P1=RESTO // IF ?2'ALLPTF'?/ALLPTF GOTO PR2 // PTF?1? ,?2?,?3?,?4?,?5?,,,,,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG PR2 // ALLPTF ?1?,,,?3?,?4?,?5? // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG M10 // IF ?7?= EVALUATE P7=CS1?L'01,2'? // PTFMCOPY LOAD,?7?,?2'CSPTFLIB'?,?3'S1'?,?4'AUTO'?,?5?,?6?,,,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG M20 // PTFMAPLY ?2'ALL'?,?3'CSPTFLIB'?,,,,,,,,,PTF // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG M30 // PTFMREMV ?2?,?3'CSPTFLIB'?,,,,,,,,,PTF // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG IPL // IF ?9?=CNFIGSSP RETURN // MEMBER USER1-##MSGFE2 // * ' ' // * 4013 // IF ?R'4014'?/ #IPLPROC ,F1 // ELSE #IPLPROC ,F1 // RETURN // TAG PP1 // IFF ?PROC?/PTF IFF ?PROC?/HELP GOTO PP2 // IF JOBQ-NO IF EVOKED-NO EVALUATE // ELSE GOTO PP2 // MEMBER USER1-##MSGFE2 // * 4001 // * 4002 // * 4003 // * 4004 // * 4005 // * 4006 // * 4007 // * 4008 // * 4009 // * 4010 // * 4011 // * 4012 // MEMBER USER1-##MSG2 // TAG PP2 // LOAD $FEFIX // RUN
0x0000…0001 0x89 0x0001…000a »// LOG ON« 0x000a…000b 0x47 0x000b…000c 0x91 0x000c…001d »// LIBRARY NAME-0« 0x001d…001e 0x3f 0x001e…001f 0x96 0x001f…0035 »// MEMBER USER1-##MSG2« 0x0035…0036 0x3a 0x0036…0037 0xa1 0x0037…0058 »// IF JOBQ-NO IF EVOKED-NO * 2034« 0x0058…0059 0x2f 0x0059…005a 0x9f 0x005a…0079 »// LOCAL BLANK-*ALL,AREA-SYSTEM« 0x0079…007a 0x31 0x007a…007b 0xb1 0x007b…00ac »// IF ?1?/ IF JOBQ-NO IF EVOKED-NO RESET HELP PTF« 0x00ac…00ad 0x1f 0x00ad…00ae 0x9b 0x00ae…00c9 »// IFF ?1?=NEWS GOTO NONEWS« 0x00c9…00ca 0x35 0x00ca…00cb 0xa4 0x00cb…00ef »// PTFNEWS ?2?,?3?,?4?,?5?,,,,,,,PTF« 0x00ef…00f0 0x2c 0x00f0…00f1 0x89 0x00f1…00fa »// RETURN« 0x00fa…00fb 0x47 0x00fb…00fc 0x8d 0x00fc…0109 »// TAG NONEWS« 0x0109…010a 0x43 0x010a…010b 0xaa 0x010b…0135 »// IFF ?1?=APPLY IFF ?1?=DIRECT GOTO NODED« 0x0135…0136 0x26 0x0136…0137 0xa4 0x0137…015b »// IFF ?3'ALLPTF'?=ALLPTF GOTO NODED« 0x015b…015c 0x2c 0x015c…015d 0x8e 0x015d…016b »// LOAD $FECHK« 0x016b…016c 0x42 0x016c…016d 0x86 0x016d…0173 »// RUN« 0x0173…0174 0x4a 0x0174…0175 0x8b 0x0175…0180 »// DEDICATE« 0x0180…0181 0x45 0x0181…0182 0x97 0x0182…0199 »// IFF ?CD?=0000 RETURN« 0x0199…019a 0x39 0x019a…019b 0x8c 0x019b…01a7 »// TAG NODED« 0x01a7…01a8 0x44 0x01a8…01a9 0x99 0x01a9…01c2 »// EVALUATE P16='' P17=''« 0x01c2…01c3 0x37 0x01c3…01c4 0x8e 0x01c4…01d2 »// IF ?1?/COPY« 0x01d2…01d3 0x04 0x01d3…01d4 0x94 0x01d4…01e8 »EVALUATE P16=?6'S1'?« 0x01e8…01e9 0x02 0x01e9…01ea 0x8d 0x01ea…01f7 »P17=?7'AUTO'?« 0x01f7…01f8 0x1b 0x01f8…01f9 0x90 0x01f9…0209 »// IF ?1?/DIRECT« 0x0209…020a 0x02 0x020a…020b 0x94 0x020b…021f »EVALUATE P16=?5'S1'?« 0x021f…0220 0x02 0x0220…0221 0x8d 0x0221…022e »P17=?6'AUTO'?« 0x022e…022f 0x1b 0x022f…0230 0x8f 0x0230…023f »// IF ?1?/MCOPY« 0x023f…0240 0x03 0x0240…0241 0x94 0x0241…0255 »EVALUATE P16=?3'S1'?« 0x0255…0256 0x2a 0x0256…0257 0x8e 0x0257…0265 »// IF ?1?/SAVE« 0x0265…0266 0x04 0x0266…0267 0x94 0x0267…027b »EVALUATE P16=?4'S1'?« 0x027b…027c 0x2a 0x027c…027d 0xa6 0x027d…02a3 »// IF ?1?/RESTORE EVALUATE P16=?4'S1'?« 0x02a3…02a4 0x2a 0x02a4…02a5 0x8d 0x02a5…02b2 »// IF ?16?/M1« 0x02b2…02b3 0x05 0x02b3…02b4 0x94 0x02b4…02c8 »EVALUATE P16='M1.01'« 0x02c8…02c9 0x2a 0x02c9…02ca 0x8d 0x02ca…02d7 »// IF ?16?/M2« 0x02d7…02d8 0x05 0x02d8…02d9 0x94 0x02d9…02ed »EVALUATE P16='M2.01'« 0x02ed…02ee 0x2a 0x02ee…02ef 0xac 0x02ef…031b »// IFF ?1?=SAVE IFF ?1?=RESTORE GOTO NOSAVE1« 0x031b…031c 0x24 0x031c…031d 0x85 0x031d…0322 »// IF« 0x0322…0323 0x02 0x0323…0324 0xb5 0x0324…0359 »?5'AUTO'?=AUTO ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES« 0x0359…035a 0x14 0x035a…035b 0x87 0x035b…0362 »// ELSE« 0x0362…0363 0x09 0x0363…0364 0x90 0x0364…0374 »ALLOCATE UNIT-I1« 0x0374…0375 0x30 0x0375…0376 0x8f 0x0376…0385 »// GOTO NOSAVE2« 0x0385…0386 0x41 0x0386…0387 0x8e 0x0387…0395 »// TAG NOSAVE1« 0x0395…0396 0x42 0x0396…0397 0x9d 0x0397…03b4 »// IFF ?16?/ ALLOCATE UNIT-I1« 0x03b4…03b5 0x33 0x03b5…03b6 0x8e 0x03b6…03c4 »// TAG NOSAVE2« 0x03c4…03c5 0x42 0x03c5…03c6 0xac 0x03c6…03f2 »// IFF ?16?/ IF VOLID-'DSK000,?16?' EVALUATE« 0x03f2…03f3 0x24 0x03f3…03f4 0xb4 0x03f4…0428 »// IFF ?16?/ LOCAL OFFSET-57,DATA-'?16?',AREA-SYSTEM« 0x0428…0429 0x1c 0x0429…042a 0x85 0x042a…042f »// IF« 0x042f…0430 0x02 0x0430…0431 0xae 0x0431…045f »?17?=AUTO LOCAL OFFSET-49,DATA-'1',AREA-SYSTEM« 0x045f…0460 0x1b 0x0460…0461 0x8e 0x0461…046f »// LOAD $FECHK« 0x046f…0470 0x42 0x0470…0471 0x86 0x0471…0477 »// RUN« 0x0477…0478 0x4a 0x0478…0479 0x9b 0x0479…0494 »// STATUS ?1?,?2?,?3?,?4?,0« 0x0494…0495 0x35 0x0495…0496 0x97 0x0496…04ad »// IFF ?CD?=0000 RETURN« 0x04ad…04ae 0x39 0x04ae…04af 0x8f 0x04af…04be »// LOAD $FEAIDS« 0x04be…04bf 0x41 0x04bf…04c0 0x86 0x04c0…04c6 »// RUN« 0x04c6…04c7 0x4a 0x04c7…04c8 0xc0 0x04c8…0508 »// SERVLOG MSG-'PTF ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8? (?L'51,6'?)'« 0x0508…0509 0x10 0x0509…050a 0x86 0x050a…0510 »// END« 0x0510…0511 0x4a 0x0511…0512 0x8f 0x0512…0521 »// IF ?1?/PATCH« 0x0521…0522 0x03 0x0522…0523 0x88 0x0523…052b »GOTO PP1« 0x052b…052c 0x36 0x052c…052d 0x8e 0x052d…053b »// IF ?1?/LIST« 0x053b…053c 0x04 0x053c…053d 0x88 0x053d…0545 »GOTO PL1« 0x0545…0546 0x36 0x0546…0547 0x8e 0x0547…0555 »// IF ?1?/SAVE« 0x0555…0556 0x04 0x0556…0557 0x87 0x0557…055e »GOTO A1« 0x055e…055f 0x37 0x055f…0560 0x99 0x0560…0579 »// IF ?1?/RESTORE GOTO A1« 0x0579…057a 0x37 0x057a…057b 0x90 0x057b…058b »// IF ?1?/DELETE« 0x058b…058c 0x02 0x058c…058d 0x87 0x058d…0594 »GOTO A1« 0x0594…0595 0x37 0x0595…0596 0x8e 0x0596…05a4 »// IF ?1?/COPY« 0x05a4…05a5 0x04 0x05a5…05a6 0x87 0x05a6…05ad »GOTO A5« 0x05ad…05ae 0x37 0x05ae…05af 0x90 0x05af…05bf »// IF ?1?/DIRECT« 0x05bf…05c0 0x02 0x05c0…05c1 0x88 0x05c1…05c9 »GOTO A45« 0x05c9…05ca 0x36 0x05ca…05cb 0x8f 0x05cb…05da »// IF ?1?/APPLY« 0x05da…05db 0x03 0x05db…05dc 0x87 0x05dc…05e3 »GOTO A3« 0x05e3…05e4 0x37 0x05e4…05e5 0x90 0x05e5…05f5 »// IF ?1?/REMOVE« 0x05f5…05f6 0x02 0x05f6…05f7 0x87 0x05f7…05fe »GOTO A4« 0x05fe…05ff 0x37 0x05ff…0600 0x8f 0x0600…060f »// IF ?1?/MCOPY« 0x060f…0610 0x04 0x0610…0611 0x88 0x0611…0619 »GOTO M10« 0x0619…061a 0x35 0x061a…061b 0x90 0x061b…062b »// IF ?1?/MAPPLY« 0x062b…062c 0x03 0x062c…062d 0x88 0x062d…0635 »GOTO M20« 0x0635…0636 0x35 0x0636…0637 0x91 0x0637…0648 »// IF ?1?/MREMOVE« 0x0648…0649 0x02 0x0649…064a 0x88 0x064a…0652 »GOTO M30« 0x0652…0653 0x35 0x0653…0654 0x8e 0x0654…0662 »// #ERR 3306,C« 0x0662…0663 0x02 0x0663…0664 0x9e 0x0664…0682 »INVALID PTF FUNCTION REQUESTED« 0x0682…0683 0x22 0x0683…0684 0x89 0x0684…068d »// TAG A1« 0x068d…068e 0x47 0x068e…068f 0x98 0x068f…06a7 »// IF ?2'ALLPTF'?/ALLPTF« 0x06a7…06a8 0x03 0x06a8…06a9 0x87 0x06a9…06b0 »GOTO A5« 0x06b0…06b1 0x2e 0x06b1…06b2 0x96 0x06b2…06c8 »// IF ?2?/AP1?L'33,2'?« 0x06c8…06c9 0x03 0x06c9…06ca 0x88 0x06ca…06d2 »EVALUATE« 0x06d2…06d3 0x02 0x06d3…06d4 0x8b 0x06d4…06df »P2='PTB'?2?« 0x06df…06e0 0x22 0x06e0…06e1 0x96 0x06e1…06f7 »// IF ?2?/AS1?L'33,2'?« 0x06f7…06f8 0x03 0x06f8…06f9 0x88 0x06f9…0701 »EVALUATE« 0x0701…0702 0x02 0x0702…0703 0x8b 0x0703…070e »P2='PTB'?2?« 0x070e…070f 0x22 0x070f…0710 0x96 0x0710…0726 »// IF ?2?/BA1?L'33,2'?« 0x0726…0727 0x03 0x0727…0728 0x88 0x0728…0730 »EVALUATE« 0x0730…0731 0x02 0x0731…0732 0x8b 0x0732…073d »P2='PTB'?2?« 0x073d…073e 0x22 0x073e…073f 0x96 0x073f…0755 »// IF ?2?/BH1?L'33,2'?« 0x0755…0756 0x03 0x0756…0757 0x88 0x0757…075f »EVALUATE« 0x075f…0760 0x02 0x0760…0761 0x8b 0x0761…076c »P2='PTB'?2?« 0x076c…076d 0x22 0x076d…076e 0x96 0x076e…0784 »// IF ?2?/BNH?L'33,2'?« 0x0784…0785 0x03 0x0785…0786 0x88 0x0786…078e »EVALUATE« 0x078e…078f 0x02 0x078f…0790 0x8b 0x0790…079b »P2='PTB'?2?« 0x079b…079c 0x22 0x079c…079d 0x96 0x079d…07b3 »// IF ?2?/BNW?L'33,2'?« 0x07b3…07b4 0x03 0x07b4…07b5 0x88 0x07b5…07bd »EVALUATE« 0x07bd…07be 0x02 0x07be…07bf 0x8b 0x07bf…07ca »P2='PTB'?2?« 0x07ca…07cb 0x22 0x07cb…07cc 0x96 0x07cc…07e2 »// IF ?2?/BRJ?L'33,2'?« 0x07e2…07e3 0x03 0x07e3…07e4 0x88 0x07e4…07ec »EVALUATE« 0x07ec…07ed 0x02 0x07ed…07ee 0x8b 0x07ee…07f9 »P2='PTB'?2?« 0x07f9…07fa 0x22 0x07fa…07fb 0x96 0x07fb…0811 »// IF ?2?/CB1?L'33,2'?« 0x0811…0812 0x03 0x0812…0813 0x88 0x0813…081b »EVALUATE« 0x081b…081c 0x02 0x081c…081d 0x8b 0x081d…0828 »P2='PTB'?2?« 0x0828…0829 0x22 0x0829…082a 0x96 0x082a…0840 »// IF ?2?/CCN?L'33,2'?« 0x0840…0841 0x03 0x0841…0842 0x88 0x0842…084a »EVALUATE« 0x084a…084b 0x02 0x084b…084c 0x8b 0x084c…0857 »P2='PTB'?2?« 0x0857…0858 0x22 0x0858…0859 0x96 0x0859…086f »// IF ?2?/CNF?L'33,2'?« 0x086f…0870 0x03 0x0870…0871 0x88 0x0871…0879 »EVALUATE« 0x0879…087a 0x02 0x087a…087b 0x8b 0x087b…0886 »P2='PTB'?2?« 0x0886…0887 0x22 0x0887…0888 0x96 0x0888…089e »// IF ?2?/DF1?L'33,2'?« 0x089e…089f 0x03 0x089f…08a0 0x88 0x08a0…08a8 »EVALUATE« 0x08a8…08a9 0x02 0x08a9…08aa 0x8b 0x08aa…08b5 »P2='PTB'?2?« 0x08b5…08b6 0x22 0x08b6…08b7 0x96 0x08b7…08cd »// IF ?2?/DS1?L'33,2'?« 0x08cd…08ce 0x03 0x08ce…08cf 0x88 0x08cf…08d7 »EVALUATE« 0x08d7…08d8 0x02 0x08d8…08d9 0x8b 0x08d9…08e4 »P2='PTB'?2?« 0x08e4…08e5 0x22 0x08e5…08e6 0x96 0x08e6…08fc »// IF ?2?/FO1?L'33,2'?« 0x08fc…08fd 0x03 0x08fd…08fe 0x88 0x08fe…0906 »EVALUATE« 0x0906…0907 0x02 0x0907…0908 0x8b 0x0908…0913 »P2='PTB'?2?« 0x0913…0914 0x22 0x0914…0915 0x96 0x0915…092b »// IF ?2?/IG1?L'33,2'?« 0x092b…092c 0x03 0x092c…092d 0x88 0x092d…0935 »EVALUATE« 0x0935…0936 0x02 0x0936…0937 0x8b 0x0937…0942 »P2='PTB'?2?« 0x0942…0943 0x22 0x0943…0944 0x96 0x0944…095a »// IF ?2?/IS1?L'33,2'?« 0x095a…095b 0x03 0x095b…095c 0x88 0x095c…0964 »EVALUATE« 0x0964…0965 0x02 0x0965…0966 0x8b 0x0966…0971 »P2='PTB'?2?« 0x0971…0972 0x22 0x0972…0973 0x96 0x0973…0989 »// IF ?2?/IW1?L'33,2'?« 0x0989…098a 0x03 0x098a…098b 0x88 0x098b…0993 »EVALUATE« 0x0993…0994 0x02 0x0994…0995 0x8b 0x0995…09a0 »P2='PTB'?2?« 0x09a0…09a1 0x22 0x09a1…09a2 0x96 0x09a2…09b8 »// IF ?2?/IW2?L'33,2'?« 0x09b8…09b9 0x03 0x09b9…09ba 0x88 0x09ba…09c2 »EVALUATE« 0x09c2…09c3 0x02 0x09c3…09c4 0x8b 0x09c4…09cf »P2='PTB'?2?« 0x09cf…09d0 0x22 0x09d0…09d1 0x96 0x09d1…09e7 »// IF ?2?/LC1?L'33,2'?« 0x09e7…09e8 0x03 0x09e8…09e9 0x88 0x09e9…09f1 »EVALUATE« 0x09f1…09f2 0x02 0x09f2…09f3 0x8b 0x09f3…09fe »P2='PTB'?2?« 0x09fe…09ff 0x22 0x09ff…0a00 0x96 0x0a00…0a16 »// IF ?2?/MA1?L'33,2'?« 0x0a16…0a17 0x03 0x0a17…0a18 0x88 0x0a18…0a20 »EVALUATE« 0x0a20…0a21 0x02 0x0a21…0a22 0x8b 0x0a22…0a2d »P2='PTB'?2?« 0x0a2d…0a2e 0x22 0x0a2e…0a2f 0x96 0x0a2f…0a45 »// IF ?2?/OLP?L'33,2'?« 0x0a45…0a46 0x03 0x0a46…0a47 0x88 0x0a47…0a4f »EVALUATE« 0x0a4f…0a50 0x02 0x0a50…0a51 0x8b 0x0a51…0a5c »P2='PTB'?2?« 0x0a5c…0a5d 0x22 0x0a5d…0a5e 0x96 0x0a5e…0a74 »// IF ?2?/QH1?L'33,2'?« 0x0a74…0a75 0x03 0x0a75…0a76 0x88 0x0a76…0a7e »EVALUATE« 0x0a7e…0a7f 0x02 0x0a7f…0a80 0x8b 0x0a80…0a8b »P2='PTB'?2?« 0x0a8b…0a8c 0x22 0x0a8c…0a8d 0x96 0x0a8d…0aa3 »// IF ?2?/QU1?L'33,2'?« 0x0aa3…0aa4 0x03 0x0aa4…0aa5 0x88 0x0aa5…0aad »EVALUATE« 0x0aad…0aae 0x02 0x0aae…0aaf 0x8b 0x0aaf…0aba »P2='PTB'?2?« 0x0aba…0abb 0x22 0x0abb…0abc 0x96 0x0abc…0ad2 »// IF ?2?/RG1?L'33,2'?« 0x0ad2…0ad3 0x03 0x0ad3…0ad4 0x88 0x0ad4…0adc »EVALUATE« 0x0adc…0add 0x02 0x0add…0ade 0x8b 0x0ade…0ae9 »P2='PTB'?2?« 0x0ae9…0aea 0x22 0x0aea…0aeb 0x96 0x0aeb…0b01 »// IF ?2?/SD1?L'33,2'?« 0x0b01…0b02 0x03 0x0b02…0b03 0x88 0x0b03…0b0b »EVALUATE« 0x0b0b…0b0c 0x02 0x0b0c…0b0d 0x8b 0x0b0d…0b18 »P2='PTB'?2?« 0x0b18…0b19 0x22 0x0b19…0b1a 0x96 0x0b1a…0b30 »// IF ?2?/SE1?L'33,2'?« 0x0b30…0b31 0x03 0x0b31…0b32 0x88 0x0b32…0b3a »EVALUATE« 0x0b3a…0b3b 0x02 0x0b3b…0b3c 0x8b 0x0b3c…0b47 »P2='PTB'?2?« 0x0b47…0b48 0x22 0x0b48…0b49 0x96 0x0b49…0b5f »// IF ?2?/SS1?L'33,2'?« 0x0b5f…0b60 0x03 0x0b60…0b61 0x88 0x0b61…0b69 »EVALUATE« 0x0b69…0b6a 0x02 0x0b6a…0b6b 0x8b 0x0b6b…0b76 »P2='PTB'?2?« 0x0b76…0b77 0x22 0x0b77…0b78 0x96 0x0b78…0b8e »// IF ?2?/SW1?L'33,2'?« 0x0b8e…0b8f 0x03 0x0b8f…0b90 0x88 0x0b90…0b98 »EVALUATE« 0x0b98…0b99 0x02 0x0b99…0b9a 0x8b 0x0b9a…0ba5 »P2='PTB'?2?« 0x0ba5…0ba6 0x22 0x0ba6…0ba7 0x96 0x0ba7…0bbd »// IF ?2?/TX1?L'33,2'?« 0x0bbd…0bbe 0x03 0x0bbe…0bbf 0x88 0x0bbf…0bc7 »EVALUATE« 0x0bc7…0bc8 0x02 0x0bc8…0bc9 0x8b 0x0bc9…0bd4 »P2='PTB'?2?« 0x0bd4…0bd5 0x22 0x0bd5…0bd6 0x96 0x0bd6…0bec »// IF ?2?/TXS?L'33,2'?« 0x0bec…0bed 0x03 0x0bed…0bee 0x88 0x0bee…0bf6 »EVALUATE« 0x0bf6…0bf7 0x02 0x0bf7…0bf8 0x8b 0x0bf8…0c03 »P2='PTB'?2?« 0x0c03…0c04 0x22 0x0c04…0c05 0x96 0x0c05…0c1b »// IF ?2?/WP1?L'33,2'?« 0x0c1b…0c1c 0x03 0x0c1c…0c1d 0x88 0x0c1d…0c25 »EVALUATE« 0x0c25…0c26 0x02 0x0c26…0c27 0x8b 0x0c27…0c32 »P2='PTB'?2?« 0x0c32…0c33 0x22 0x0c33…0c34 0x96 0x0c34…0c4a »// IF ?2?/WP3?L'33,2'?« 0x0c4a…0c4b 0x03 0x0c4b…0c4c 0x88 0x0c4c…0c54 »EVALUATE« 0x0c54…0c55 0x02 0x0c55…0c56 0x8b 0x0c56…0c61 »P2='PTB'?2?« 0x0c61…0c62 0x22 0x0c62…0c63 0x96 0x0c63…0c79 »// IF ?2?/WS1?L'33,2'?« 0x0c79…0c7a 0x03 0x0c7a…0c7b 0x88 0x0c7b…0c83 »EVALUATE« 0x0c83…0c84 0x02 0x0c84…0c85 0x8b 0x0c85…0c90 »P2='PTB'?2?« 0x0c90…0c91 0x22 0x0c91…0c92 0x87 0x0c92…0c99 »// GOTO« 0x0c99…0c9a 0x02 0x0c9a…0c9b 0x82 0x0c9b…0c9d »A5« 0x0c9d…0c9e 0x45 0x0c9e…0c9f 0x89 0x0c9f…0ca8 »// TAG A3« 0x0ca8…0ca9 0x47 0x0ca9…0caa 0x98 0x0caa…0cc2 »// IF ?3'ALLPTF'?/ALLPTF« 0x0cc2…0cc3 0x02 0x0cc3…0cc4 0x87 0x0cc4…0ccb »GOTO A5« 0x0ccb…0ccc 0x2f 0x0ccc…0ccd 0x96 0x0ccd…0ce3 »// IF ?3?/AP1?L'33,2'?« 0x0ce3…0ce4 0x03 0x0ce4…0ce5 0x88 0x0ce5…0ced »EVALUATE« 0x0ced…0cee 0x02 0x0cee…0cef 0xa0 0x0cef…0d0f »P3='PTFAP1?L'33,2'?' P15=#APFLIB« 0x0d0f…0d10 0x0d 0x0d10…0d11 0x96 0x0d11…0d27 »// IF ?3?/AS1?L'33,2'?« 0x0d27…0d28 0x03 0x0d28…0d29 0x88 0x0d29…0d31 »EVALUATE« 0x0d31…0d32 0x02 0x0d32…0d33 0xa0 0x0d33…0d53 »P3='PTFAS1?L'33,2'?' P15=#ASMLIB« 0x0d53…0d54 0x0d 0x0d54…0d55 0x96 0x0d55…0d6b »// IF ?3?/BA1?L'33,2'?« 0x0d6b…0d6c 0x03 0x0d6c…0d6d 0x88 0x0d6d…0d75 »EVALUATE« 0x0d75…0d76 0x02 0x0d76…0d77 0x9f 0x0d77…0d96 »P3='PTFBA1?L'33,2'?' P15=#BLLIB« 0x0d96…0d97 0x0e 0x0d97…0d98 0x96 0x0d98…0dae »// IF ?3?/BH1?L'33,2'?« 0x0dae…0daf 0x03 0x0daf…0db0 0x88 0x0db0…0db8 »EVALUATE« 0x0db8…0db9 0x02 0x0db9…0dba 0xa1 0x0dba…0ddb »P3='PTFBH1?L'33,2'?' P15=#BLHPLIB« 0x0ddb…0ddc 0x0c 0x0ddc…0ddd 0x96 0x0ddd…0df3 »// IF ?3?/BNH?L'33,2'?« 0x0df3…0df4 0x03 0x0df4…0df5 0x88 0x0df5…0dfd »EVALUATE« 0x0dfd…0dfe 0x02 0x0dfe…0dff 0xa1 0x0dff…0e20 »P3='PTFBNH?L'33,2'?' P15=#BGUHLIB« 0x0e20…0e21 0x0c 0x0e21…0e22 0x96 0x0e22…0e38 »// IF ?3?/BNW?L'33,2'?« 0x0e38…0e39 0x03 0x0e39…0e3a 0x88 0x0e3a…0e42 »EVALUATE« 0x0e42…0e43 0x02 0x0e43…0e44 0xa0 0x0e44…0e64 »P3='PTFBNW?L'33,2'?' P15=#BGULIB« 0x0e64…0e65 0x0d 0x0e65…0e66 0x96 0x0e66…0e7c »// IF ?3?/BRJ?L'33,2'?« 0x0e7c…0e7d 0x03 0x0e7d…0e7e 0x88 0x0e7e…0e86 »EVALUATE« 0x0e86…0e87 0x02 0x0e87…0e88 0xa0 0x0e88…0ea8 »P3='PTFBRJ?L'33,2'?' P15=#POPLIB« 0x0ea8…0ea9 0x0d 0x0ea9…0eaa 0x96 0x0eaa…0ec0 »// IF ?3?/CB1?L'33,2'?« 0x0ec0…0ec1 0x03 0x0ec1…0ec2 0x88 0x0ec2…0eca »EVALUATE« 0x0eca…0ecb 0x02 0x0ecb…0ecc 0xa0 0x0ecc…0eec »P3='PTFCB1?L'33,2'?' P15=#COBLIB« 0x0eec…0eed 0x0d 0x0eed…0eee 0x96 0x0eee…0f04 »// IF ?3?/CCN?L'33,2'?« 0x0f04…0f05 0x03 0x0f05…0f06 0x88 0x0f06…0f0e »EVALUATE« 0x0f0e…0f0f 0x02 0x0f0f…0f10 0xa0 0x0f10…0f30 »P3='PTFCCN?L'33,2'?' P15=#DEFLIB« 0x0f30…0f31 0x0d 0x0f31…0f32 0x96 0x0f32…0f48 »// IF ?3?/CNF?L'33,2'?« 0x0f48…0f49 0x03 0x0f49…0f4a 0x88 0x0f4a…0f52 »EVALUATE« 0x0f52…0f53 0x02 0x0f53…0f54 0xa0 0x0f54…0f74 »P3='PTFCNF?L'33,2'?' P15=#POSLIB« 0x0f74…0f75 0x0d 0x0f75…0f76 0x96 0x0f76…0f8c »// IF ?3?/DF1?L'33,2'?« 0x0f8c…0f8d 0x03 0x0f8d…0f8e 0x88 0x0f8e…0f96 »EVALUATE« 0x0f96…0f97 0x02 0x0f97…0f98 0xa0 0x0f98…0fb8 »P3='PTFDF1?L'33,2'?' P15=#DFULIB« 0x0fb8…0fb9 0x0d 0x0fb9…0fba 0x96 0x0fba…0fd0 »// IF ?3?/DS1?L'33,2'?« 0x0fd0…0fd1 0x03 0x0fd1…0fd2 0x88 0x0fd2…0fda »EVALUATE« 0x0fda…0fdb 0x02 0x0fdb…0fdc 0xa0 0x0fdc…0ffc »P3='PTFDS1?L'33,2'?' P15=#DSULIB« 0x0ffc…0ffd 0x0d 0x0ffd…0ffe 0x96 0x0ffe…1014 »// IF ?3?/FO1?L'33,2'?« 0x1014…1015 0x03 0x1015…1016 0x88 0x1016…101e »EVALUATE« 0x101e…101f 0x02 0x101f…1020 0xa1 0x1020…1041 »P3='PTFFO1?L'33,2'?' P15=#FORTLIB« 0x1041…1042 0x0c 0x1042…1043 0x96 0x1043…1059 »// IF ?3?/IG1?L'33,2'?« 0x1059…105a 0x03 0x105a…105b 0x88 0x105b…1063 »EVALUATE« 0x1063…1064 0x02 0x1064…1065 0xa0 0x1065…1085 »P3='PTFIG1?L'33,2'?' P15=#CGULIB« 0x1085…1086 0x0d 0x1086…1087 0x96 0x1087…109d »// IF ?3?/IS1?L'33,2'?« 0x109d…109e 0x03 0x109e…109f 0x88 0x109f…10a7 »EVALUATE« 0x10a7…10a8 0x02 0x10a8…10a9 0xa1 0x10a9…10ca »P3='PTFIS1?L'33,2'?' P15=#SRTXLIB« 0x10ca…10cb 0x0c 0x10cb…10cc 0x96 0x10cc…10e2 »// IF ?3?/IW1?L'33,2'?« 0x10e2…10e3 0x03 0x10e3…10e4 0x88 0x10e4…10ec »EVALUATE« 0x10ec…10ed 0x02 0x10ed…10ee 0x9f 0x10ee…110d »P3='PTFIW1?L'33,2'?' P15=#IWLIB« 0x110d…110e 0x0e 0x110e…110f 0x96 0x110f…1125 »// IF ?3?/IW2?L'33,2'?« 0x1125…1126 0x03 0x1126…1127 0x88 0x1127…112f »EVALUATE« 0x112f…1130 0x02 0x1130…1131 0xa0 0x1131…1151 »P3='PTFIW2?L'33,2'?' P15=#IWLIB2« 0x1151…1152 0x0d 0x1152…1153 0x96 0x1153…1169 »// IF ?3?/LC1?L'33,2'?« 0x1169…116a 0x03 0x116a…116b 0x88 0x116b…1173 »EVALUATE« 0x1173…1174 0x02 0x1174…1175 0xa0 0x1175…1195 »P3='PTFLC1?L'33,2'?' P15=#LANLIB« 0x1195…1196 0x0d 0x1196…1197 0x96 0x1197…11ad »// IF ?3?/MA1?L'33,2'?« 0x11ad…11ae 0x03 0x11ae…11af 0x88 0x11af…11b7 »EVALUATE« 0x11b7…11b8 0x02 0x11b8…11b9 0xa1 0x11b9…11da »P3='PTFMA1?L'33,2'?' P15=#MIGRLIB« 0x11da…11db 0x0c 0x11db…11dc 0x96 0x11dc…11f2 »// IF ?3?/OLP?L'33,2'?« 0x11f2…11f3 0x03 0x11f3…11f4 0x88 0x11f4…11fc »EVALUATE« 0x11fc…11fd 0x02 0x11fd…11fe 0x9f 0x11fe…121d »P3='PTFOLP?L'33,2'?' P15=#ONLPD« 0x121d…121e 0x0e 0x121e…121f 0x96 0x121f…1235 »// IF ?3?/QH1?L'33,2'?« 0x1235…1236 0x03 0x1236…1237 0x88 0x1237…123f »EVALUATE« 0x123f…1240 0x02 0x1240…1241 0xa1 0x1241…1262 »P3='PTFQH1?L'33,2'?' P15=#QRYHLIB« 0x1262…1263 0x0c 0x1263…1264 0x96 0x1264…127a »// IF ?3?/QU1?L'33,2'?« 0x127a…127b 0x03 0x127b…127c 0x88 0x127c…1284 »EVALUATE« 0x1284…1285 0x02 0x1285…1286 0xa0 0x1286…12a6 »P3='PTFQU1?L'33,2'?' P15=#QRYLIB« 0x12a6…12a7 0x0d 0x12a7…12a8 0x96 0x12a8…12be »// IF ?3?/RG1?L'33,2'?« 0x12be…12bf 0x03 0x12bf…12c0 0x88 0x12c0…12c8 »EVALUATE« 0x12c8…12c9 0x02 0x12c9…12ca 0xa0 0x12ca…12ea »P3='PTFRG1?L'33,2'?' P15=#RPGLIB« 0x12ea…12eb 0x0d 0x12eb…12ec 0x96 0x12ec…1302 »// IF ?3?/SD1?L'33,2'?« 0x1302…1303 0x03 0x1303…1304 0x88 0x1304…130c »EVALUATE« 0x130c…130d 0x02 0x130d…130e 0xa0 0x130e…132e »P3='PTFSD1?L'33,2'?' P15=#SDALIB« 0x132e…132f 0x0d 0x132f…1330 0x96 0x1330…1346 »// IF ?3?/SE1?L'33,2'?« 0x1346…1347 0x03 0x1347…1348 0x88 0x1348…1350 »EVALUATE« 0x1350…1351 0x02 0x1351…1352 0xa0 0x1352…1372 »P3='PTFSE1?L'33,2'?' P15=#SEULIB« 0x1372…1373 0x0d 0x1373…1374 0x96 0x1374…138a »// IF ?3?/SS1?L'33,2'?« 0x138a…138b 0x03 0x138b…138c 0x88 0x138c…1394 »EVALUATE« 0x1394…1395 0x02 0x1395…1396 0xa1 0x1396…13b7 »P3='PTFSS1?L'33,2'?' P15=#LIBRARY« 0x13b7…13b8 0x0c 0x13b8…13b9 0x96 0x13b9…13cf »// IF ?3?/SW1?L'33,2'?« 0x13cf…13d0 0x03 0x13d0…13d1 0x88 0x13d1…13d9 »EVALUATE« 0x13d9…13da 0x02 0x13da…13db 0x9f 0x13db…13fa »P3='PTFSW1?L'33,2'?' P15=#SWLIB« 0x13fa…13fb 0x0e 0x13fb…13fc 0x96 0x13fc…1412 »// IF ?3?/TX1?L'33,2'?« 0x1412…1413 0x03 0x1413…1414 0x88 0x1414…141c »EVALUATE« 0x141c…141d 0x02 0x141d…141e 0xa0 0x141e…143e »P3='PTFTX1?L'33,2'?' P15=#TMSLIB« 0x143e…143f 0x0d 0x143f…1440 0x96 0x1440…1456 »// IF ?3?/TXS?L'33,2'?« 0x1456…1457 0x03 0x1457…1458 0x88 0x1458…1460 »EVALUATE« 0x1460…1461 0x02 0x1461…1462 0xa0 0x1462…1482 »P3='PTFTXS?L'33,2'?' P15=#LEXLIB« 0x1482…1483 0x0d 0x1483…1484 0x96 0x1484…149a »// IF ?3?/WP1?L'33,2'?« 0x149a…149b 0x03 0x149b…149c 0x88 0x149c…14a4 »EVALUATE« 0x14a4…14a5 0x02 0x14a5…14a6 0x9f 0x14a6…14c5 »P3='PTFWP1?L'33,2'?' P15=#TULIB« 0x14c5…14c6 0x0e 0x14c6…14c7 0x96 0x14c7…14dd »// IF ?3?/WP3?L'33,2'?« 0x14dd…14de 0x03 0x14de…14df 0x88 0x14df…14e7 »EVALUATE« 0x14e7…14e8 0x02 0x14e8…14e9 0xa0 0x14e9…1509 »P3='PTFWP3?L'33,2'?' P15=#OFCLIB« 0x1509…150a 0x0d 0x150a…150b 0x96 0x150b…1521 »// IF ?3?/WS1?L'33,2'?« 0x1521…1522 0x03 0x1522…1523 0x88 0x1523…152b »EVALUATE« 0x152b…152c 0x02 0x152c…152d 0xa0 0x152d…154d »P3='PTFWS1?L'33,2'?' P15=#WSULIB« 0x154d…154e 0x0d 0x154e…154f 0x8a 0x154f…1559 »// IF ?4?/« 0x1559…155a 0x02 0x155a…155b 0x90 0x155b…156b »EVALUATE P4=?15?« 0x156b…156c 0x34 0x156c…156d 0x8a 0x156d…1577 »// GOTO A5« 0x1577…1578 0x46 0x1578…1579 0x8a 0x1579…1583 »// TAG A45« 0x1583…1584 0x46 0x1584…1585 0x98 0x1585…159d »// IF ?3'ALLPTF'?/ALLPTF« 0x159d…159e 0x02 0x159e…159f 0x87 0x159f…15a6 »GOTO A5« 0x15a6…15a7 0x2f 0x15a7…15a8 0x96 0x15a8…15be »// IF ?3?/AP1?L'33,2'?« 0x15be…15bf 0x03 0x15bf…15c0 0x88 0x15c0…15c8 »EVALUATE« 0x15c8…15c9 0x02 0x15c9…15ca 0x8b 0x15ca…15d5 »P15=#APFLIB« 0x15d5…15d6 0x22 0x15d6…15d7 0x96 0x15d7…15ed »// IF ?3?/AS1?L'33,2'?« 0x15ed…15ee 0x03 0x15ee…15ef 0x88 0x15ef…15f7 »EVALUATE« 0x15f7…15f8 0x02 0x15f8…15f9 0x8b 0x15f9…1604 »P15=#ASMLIB« 0x1604…1605 0x22 0x1605…1606 0x96 0x1606…161c »// IF ?3?/BA1?L'33,2'?« 0x161c…161d 0x03 0x161d…161e 0x88 0x161e…1626 »EVALUATE« 0x1626…1627 0x02 0x1627…1628 0x8a 0x1628…1632 »P15=#BLLIB« 0x1632…1633 0x23 0x1633…1634 0x96 0x1634…164a »// IF ?3?/BH1?L'33,2'?« 0x164a…164b 0x03 0x164b…164c 0x88 0x164c…1654 »EVALUATE« 0x1654…1655 0x02 0x1655…1656 0x8c 0x1656…1662 »P15=#BLHPLIB« 0x1662…1663 0x21 0x1663…1664 0x96 0x1664…167a »// IF ?3?/BNH?L'33,2'?« 0x167a…167b 0x03 0x167b…167c 0x88 0x167c…1684 »EVALUATE« 0x1684…1685 0x02 0x1685…1686 0x8c 0x1686…1692 »P15=#BGUHLIB« 0x1692…1693 0x21 0x1693…1694 0x96 0x1694…16aa »// IF ?3?/BNW?L'33,2'?« 0x16aa…16ab 0x03 0x16ab…16ac 0x88 0x16ac…16b4 »EVALUATE« 0x16b4…16b5 0x02 0x16b5…16b6 0x8b 0x16b6…16c1 »P15=#BGULIB« 0x16c1…16c2 0x22 0x16c2…16c3 0x96 0x16c3…16d9 »// IF ?3?/BRJ?L'33,2'?« 0x16d9…16da 0x03 0x16da…16db 0x88 0x16db…16e3 »EVALUATE« 0x16e3…16e4 0x02 0x16e4…16e5 0x8b 0x16e5…16f0 »P15=#POPLIB« 0x16f0…16f1 0x22 0x16f1…16f2 0x96 0x16f2…1708 »// IF ?3?/CB1?L'33,2'?« 0x1708…1709 0x03 0x1709…170a 0x88 0x170a…1712 »EVALUATE« 0x1712…1713 0x02 0x1713…1714 0x8b 0x1714…171f »P15=#COBLIB« 0x171f…1720 0x22 0x1720…1721 0x96 0x1721…1737 »// IF ?3?/CCN?L'33,2'?« 0x1737…1738 0x03 0x1738…1739 0x88 0x1739…1741 »EVALUATE« 0x1741…1742 0x02 0x1742…1743 0x8b 0x1743…174e »P15=#DEFLIB« 0x174e…174f 0x22 0x174f…1750 0x96 0x1750…1766 »// IF ?3?/CNF?L'33,2'?« 0x1766…1767 0x03 0x1767…1768 0x88 0x1768…1770 »EVALUATE« 0x1770…1771 0x02 0x1771…1772 0x8b 0x1772…177d »P15=#POSLIB« 0x177d…177e 0x22 0x177e…177f 0x96 0x177f…1795 »// IF ?3?/DF1?L'33,2'?« 0x1795…1796 0x03 0x1796…1797 0x88 0x1797…179f »EVALUATE« 0x179f…17a0 0x02 0x17a0…17a1 0x8b 0x17a1…17ac »P15=#DFULIB« 0x17ac…17ad 0x22 0x17ad…17ae 0x96 0x17ae…17c4 »// IF ?3?/DS1?L'33,2'?« 0x17c4…17c5 0x03 0x17c5…17c6 0x88 0x17c6…17ce »EVALUATE« 0x17ce…17cf 0x02 0x17cf…17d0 0x8b 0x17d0…17db »P15=#DSULIB« 0x17db…17dc 0x22 0x17dc…17dd 0x96 0x17dd…17f3 »// IF ?3?/FO1?L'33,2'?« 0x17f3…17f4 0x03 0x17f4…17f5 0x88 0x17f5…17fd »EVALUATE« 0x17fd…17fe 0x02 0x17fe…17ff 0x8c 0x17ff…180b »P15=#FORTLIB« 0x180b…180c 0x21 0x180c…180d 0x96 0x180d…1823 »// IF ?3?/IG1?L'33,2'?« 0x1823…1824 0x03 0x1824…1825 0x88 0x1825…182d »EVALUATE« 0x182d…182e 0x02 0x182e…182f 0x8b 0x182f…183a »P15=#CGULIB« 0x183a…183b 0x22 0x183b…183c 0x96 0x183c…1852 »// IF ?3?/IS1?L'33,2'?« 0x1852…1853 0x03 0x1853…1854 0x88 0x1854…185c »EVALUATE« 0x185c…185d 0x02 0x185d…185e 0x8c 0x185e…186a »P15=#SRTXLIB« 0x186a…186b 0x21 0x186b…186c 0x96 0x186c…1882 »// IF ?3?/IW1?L'33,2'?« 0x1882…1883 0x03 0x1883…1884 0x88 0x1884…188c »EVALUATE« 0x188c…188d 0x02 0x188d…188e 0x8a 0x188e…1898 »P15=#IWLIB« 0x1898…1899 0x23 0x1899…189a 0x96 0x189a…18b0 »// IF ?3?/IW2?L'33,2'?« 0x18b0…18b1 0x03 0x18b1…18b2 0x88 0x18b2…18ba »EVALUATE« 0x18ba…18bb 0x02 0x18bb…18bc 0x8b 0x18bc…18c7 »P15=#IWLIB2« 0x18c7…18c8 0x22 0x18c8…18c9 0x96 0x18c9…18df »// IF ?3?/LC1?L'33,2'?« 0x18df…18e0 0x03 0x18e0…18e1 0x88 0x18e1…18e9 »EVALUATE« 0x18e9…18ea 0x02 0x18ea…18eb 0x8b 0x18eb…18f6 »P15=#LANLIB« 0x18f6…18f7 0x22 0x18f7…18f8 0x96 0x18f8…190e »// IF ?3?/MA1?L'33,2'?« 0x190e…190f 0x03 0x190f…1910 0x88 0x1910…1918 »EVALUATE« 0x1918…1919 0x02 0x1919…191a 0x8c 0x191a…1926 »P15=#MIGRLIB« 0x1926…1927 0x21 0x1927…1928 0x96 0x1928…193e »// IF ?3?/QH1?L'33,2'?« 0x193e…193f 0x03 0x193f…1940 0x88 0x1940…1948 »EVALUATE« 0x1948…1949 0x02 0x1949…194a 0x8c 0x194a…1956 »P15=#QRYHLIB« 0x1956…1957 0x21 0x1957…1958 0x96 0x1958…196e »// IF ?3?/QU1?L'33,2'?« 0x196e…196f 0x03 0x196f…1970 0x88 0x1970…1978 »EVALUATE« 0x1978…1979 0x02 0x1979…197a 0x8b 0x197a…1985 »P15=#QRYLIB« 0x1985…1986 0x22 0x1986…1987 0x96 0x1987…199d »// IF ?3?/OLP?L'33,2'?« 0x199d…199e 0x03 0x199e…199f 0x88 0x199f…19a7 »EVALUATE« 0x19a7…19a8 0x02 0x19a8…19a9 0x8a 0x19a9…19b3 »P15=#ONLPD« 0x19b3…19b4 0x23 0x19b4…19b5 0x96 0x19b5…19cb »// IF ?3?/RG1?L'33,2'?« 0x19cb…19cc 0x03 0x19cc…19cd 0x88 0x19cd…19d5 »EVALUATE« 0x19d5…19d6 0x02 0x19d6…19d7 0x8b 0x19d7…19e2 »P15=#RPGLIB« 0x19e2…19e3 0x22 0x19e3…19e4 0x96 0x19e4…19fa »// IF ?3?/SD1?L'33,2'?« 0x19fa…19fb 0x03 0x19fb…19fc 0x88 0x19fc…1a04 »EVALUATE« 0x1a04…1a05 0x02 0x1a05…1a06 0x8b 0x1a06…1a11 »P15=#SDALIB« 0x1a11…1a12 0x22 0x1a12…1a13 0x96 0x1a13…1a29 »// IF ?3?/SE1?L'33,2'?« 0x1a29…1a2a 0x03 0x1a2a…1a2b 0x88 0x1a2b…1a33 »EVALUATE« 0x1a33…1a34 0x02 0x1a34…1a35 0x8b 0x1a35…1a40 »P15=#SEULIB« 0x1a40…1a41 0x22 0x1a41…1a42 0x96 0x1a42…1a58 »// IF ?3?/SS1?L'33,2'?« 0x1a58…1a59 0x03 0x1a59…1a5a 0x88 0x1a5a…1a62 »EVALUATE« 0x1a62…1a63 0x02 0x1a63…1a64 0x8c 0x1a64…1a70 »P15=#LIBRARY« 0x1a70…1a71 0x21 0x1a71…1a72 0x96 0x1a72…1a88 »// IF ?3?/SW1?L'33,2'?« 0x1a88…1a89 0x03 0x1a89…1a8a 0x88 0x1a8a…1a92 »EVALUATE« 0x1a92…1a93 0x02 0x1a93…1a94 0x8a 0x1a94…1a9e »P15=#SWLIB« 0x1a9e…1a9f 0x23 0x1a9f…1aa0 0x96 0x1aa0…1ab6 »// IF ?3?/TX1?L'33,2'?« 0x1ab6…1ab7 0x03 0x1ab7…1ab8 0x88 0x1ab8…1ac0 »EVALUATE« 0x1ac0…1ac1 0x02 0x1ac1…1ac2 0x8b 0x1ac2…1acd »P15=#TMSLIB« 0x1acd…1ace 0x22 0x1ace…1acf 0x96 0x1acf…1ae5 »// IF ?3?/TXS?L'33,2'?« 0x1ae5…1ae6 0x03 0x1ae6…1ae7 0x88 0x1ae7…1aef »EVALUATE« 0x1aef…1af0 0x02 0x1af0…1af1 0x8b 0x1af1…1afc »P15=#LEXLIB« 0x1afc…1afd 0x22 0x1afd…1afe 0x96 0x1afe…1b14 »// IF ?3?/WP1?L'33,2'?« 0x1b14…1b15 0x03 0x1b15…1b16 0x88 0x1b16…1b1e »EVALUATE« 0x1b1e…1b1f 0x02 0x1b1f…1b20 0x8a 0x1b20…1b2a »P15=#TULIB« 0x1b2a…1b2b 0x23 0x1b2b…1b2c 0x96 0x1b2c…1b42 »// IF ?3?/WP3?L'33,2'?« 0x1b42…1b43 0x03 0x1b43…1b44 0x88 0x1b44…1b4c »EVALUATE« 0x1b4c…1b4d 0x02 0x1b4d…1b4e 0x8b 0x1b4e…1b59 »P15=#OFCLIB« 0x1b59…1b5a 0x22 0x1b5a…1b5b 0x96 0x1b5b…1b71 »// IF ?3?/WS1?L'33,2'?« 0x1b71…1b72 0x03 0x1b72…1b73 0x88 0x1b73…1b7b »EVALUATE« 0x1b7b…1b7c 0x02 0x1b7c…1b7d 0x8b 0x1b7d…1b88 »P15=#WSULIB« 0x1b88…1b89 0x22 0x1b89…1b8a 0x8a 0x1b8a…1b94 »// IF ?4?/« 0x1b94…1b95 0x02 0x1b95…1b96 0x90 0x1b96…1ba6 »EVALUATE P4=?15?« 0x1ba6…1ba7 0x34 0x1ba7…1ba8 0x8a 0x1ba8…1bb2 »// GOTO A5« 0x1bb2…1bb3 0x46 0x1bb3…1bb4 0x89 0x1bb4…1bbd »// TAG A4« 0x1bbd…1bbe 0x47 0x1bbe…1bbf 0x98 0x1bbf…1bd7 »// IF ?3'ALLPTF'?/ALLPTF« 0x1bd7…1bd8 0x02 0x1bd8…1bd9 0x87 0x1bd9…1be0 »GOTO A5« 0x1be0…1be1 0x2f 0x1be1…1be2 0xb2 0x1be2…1c14 »// LOCAL OFFSET-080,DATA-'?3?',AREA-SYSTEM,BLANK-8« 0x1c14…1c15 0x1e 0x1c15…1c16 0xb0 0x1c16…1c46 »// LOCAL OFFSET-083,DATA-'?L'80,5'?',AREA-SYSTEM« 0x1c46…1c47 0x20 0x1c47…1c48 0xaa 0x1c48…1c72 »// LOCAL OFFSET-080,DATA-'PTB',AREA-SYSTEM« 0x1c72…1c73 0x26 0x1c73…1c74 0x8a 0x1c74…1c7e »// IF ?4?/« 0x1c7e…1c7f 0x04 0x1c7f…1c80 0x88 0x1c80…1c88 »EVALUATE« 0x1c88…1c89 0x02 0x1c89…1c8a 0x8c 0x1c8a…1c96 »P4=?L'80,8'?« 0x1c96…1c97 0x2c 0x1c97…1c98 0x96 0x1c98…1cae »// IF ?3?/AP1?L'33,2'?« 0x1cae…1caf 0x03 0x1caf…1cb0 0x88 0x1cb0…1cb8 »EVALUATE« 0x1cb8…1cb9 0x02 0x1cb9…1cba 0x8a 0x1cba…1cc4 »P3=#APFLIB« 0x1cc4…1cc5 0x23 0x1cc5…1cc6 0x96 0x1cc6…1cdc »// IF ?3?/AS1?L'33,2'?« 0x1cdc…1cdd 0x03 0x1cdd…1cde 0x88 0x1cde…1ce6 »EVALUATE« 0x1ce6…1ce7 0x02 0x1ce7…1ce8 0x8a 0x1ce8…1cf2 »P3=#ASMLIB« 0x1cf2…1cf3 0x23 0x1cf3…1cf4 0x96 0x1cf4…1d0a »// IF ?3?/BA1?L'33,2'?« 0x1d0a…1d0b 0x03 0x1d0b…1d0c 0x88 0x1d0c…1d14 »EVALUATE« 0x1d14…1d15 0x02 0x1d15…1d16 0x89 0x1d16…1d1f »P3=#BLLIB« 0x1d1f…1d20 0x24 0x1d20…1d21 0x96 0x1d21…1d37 »// IF ?3?/BH1?L'33,2'?« 0x1d37…1d38 0x03 0x1d38…1d39 0x88 0x1d39…1d41 »EVALUATE« 0x1d41…1d42 0x02 0x1d42…1d43 0x8b 0x1d43…1d4e »P3=#BLHPLIB« 0x1d4e…1d4f 0x22 0x1d4f…1d50 0x96 0x1d50…1d66 »// IF ?3?/BNH?L'33,2'?« 0x1d66…1d67 0x03 0x1d67…1d68 0x88 0x1d68…1d70 »EVALUATE« 0x1d70…1d71 0x02 0x1d71…1d72 0x8b 0x1d72…1d7d »P3=#BGUHLIB« 0x1d7d…1d7e 0x22 0x1d7e…1d7f 0x96 0x1d7f…1d95 »// IF ?3?/BNW?L'33,2'?« 0x1d95…1d96 0x03 0x1d96…1d97 0x88 0x1d97…1d9f »EVALUATE« 0x1d9f…1da0 0x02 0x1da0…1da1 0x8a 0x1da1…1dab »P3=#BGULIB« 0x1dab…1dac 0x23 0x1dac…1dad 0x96 0x1dad…1dc3 »// IF ?3?/BRJ?L'33,2'?« 0x1dc3…1dc4 0x03 0x1dc4…1dc5 0x88 0x1dc5…1dcd »EVALUATE« 0x1dcd…1dce 0x02 0x1dce…1dcf 0x8a 0x1dcf…1dd9 »P3=#POPLIB« 0x1dd9…1dda 0x23 0x1dda…1ddb 0x96 0x1ddb…1df1 »// IF ?3?/CB1?L'33,2'?« 0x1df1…1df2 0x03 0x1df2…1df3 0x88 0x1df3…1dfb »EVALUATE« 0x1dfb…1dfc 0x02 0x1dfc…1dfd 0x8a 0x1dfd…1e07 »P3=#COBLIB« 0x1e07…1e08 0x23 0x1e08…1e09 0x96 0x1e09…1e1f »// IF ?3?/CCN?L'33,2'?« 0x1e1f…1e20 0x03 0x1e20…1e21 0x88 0x1e21…1e29 »EVALUATE« 0x1e29…1e2a 0x02 0x1e2a…1e2b 0x8a 0x1e2b…1e35 »P3=#DEFLIB« 0x1e35…1e36 0x23 0x1e36…1e37 0x96 0x1e37…1e4d »// IF ?3?/CNF?L'33,2'?« 0x1e4d…1e4e 0x03 0x1e4e…1e4f 0x88 0x1e4f…1e57 »EVALUATE« 0x1e57…1e58 0x02 0x1e58…1e59 0x8a 0x1e59…1e63 »P3=#POSLIB« 0x1e63…1e64 0x23 0x1e64…1e65 0x96 0x1e65…1e7b »// IF ?3?/DF1?L'33,2'?« 0x1e7b…1e7c 0x03 0x1e7c…1e7d 0x88 0x1e7d…1e85 »EVALUATE« 0x1e85…1e86 0x02 0x1e86…1e87 0x8a 0x1e87…1e91 »P3=#DFULIB« 0x1e91…1e92 0x23 0x1e92…1e93 0x96 0x1e93…1ea9 »// IF ?3?/DS1?L'33,2'?« 0x1ea9…1eaa 0x03 0x1eaa…1eab 0x88 0x1eab…1eb3 »EVALUATE« 0x1eb3…1eb4 0x02 0x1eb4…1eb5 0x8a 0x1eb5…1ebf »P3=#DSULIB« 0x1ebf…1ec0 0x23 0x1ec0…1ec1 0x96 0x1ec1…1ed7 »// IF ?3?/FO1?L'33,2'?« 0x1ed7…1ed8 0x03 0x1ed8…1ed9 0x88 0x1ed9…1ee1 »EVALUATE« 0x1ee1…1ee2 0x02 0x1ee2…1ee3 0x8b 0x1ee3…1eee »P3=#FORTLIB« 0x1eee…1eef 0x22 0x1eef…1ef0 0x96 0x1ef0…1f06 »// IF ?3?/IG1?L'33,2'?« 0x1f06…1f07 0x03 0x1f07…1f08 0x88 0x1f08…1f10 »EVALUATE« 0x1f10…1f11 0x02 0x1f11…1f12 0x8a 0x1f12…1f1c »P3=#CGULIB« 0x1f1c…1f1d 0x23 0x1f1d…1f1e 0x96 0x1f1e…1f34 »// IF ?3?/IS1?L'33,2'?« 0x1f34…1f35 0x03 0x1f35…1f36 0x88 0x1f36…1f3e »EVALUATE« 0x1f3e…1f3f 0x02 0x1f3f…1f40 0x8b 0x1f40…1f4b »P3=#SRTXLIB« 0x1f4b…1f4c 0x22 0x1f4c…1f4d 0x96 0x1f4d…1f63 »// IF ?3?/IW1?L'33,2'?« 0x1f63…1f64 0x03 0x1f64…1f65 0x88 0x1f65…1f6d »EVALUATE« 0x1f6d…1f6e 0x02 0x1f6e…1f6f 0x89 0x1f6f…1f78 »P3=#IWLIB« 0x1f78…1f79 0x24 0x1f79…1f7a 0x96 0x1f7a…1f90 »// IF ?3?/IW2?L'33,2'?« 0x1f90…1f91 0x03 0x1f91…1f92 0x88 0x1f92…1f9a »EVALUATE« 0x1f9a…1f9b 0x02 0x1f9b…1f9c 0x8a 0x1f9c…1fa6 »P3=#IWLIB2« 0x1fa6…1fa7 0x23 0x1fa7…1fa8 0x96 0x1fa8…1fbe »// IF ?3?/LC1?L'33,2'?« 0x1fbe…1fbf 0x03 0x1fbf…1fc0 0x88 0x1fc0…1fc8 »EVALUATE« 0x1fc8…1fc9 0x02 0x1fc9…1fca 0x8a 0x1fca…1fd4 »P3=#LANLIB« 0x1fd4…1fd5 0x23 0x1fd5…1fd6 0x96 0x1fd6…1fec »// IF ?3?/MA1?L'33,2'?« 0x1fec…1fed 0x03 0x1fed…1fee 0x88 0x1fee…1ff6 »EVALUATE« 0x1ff6…1ff7 0x02 0x1ff7…1ff8 0x8b 0x1ff8…2003 »P3=#MIGRLIB« 0x2003…2004 0x22 0x2004…2005 0x96 0x2005…201b »// IF ?3?/OLP?L'33,2'?« 0x201b…201c 0x03 0x201c…201d 0x88 0x201d…2025 »EVALUATE« 0x2025…2026 0x02 0x2026…2027 0x89 0x2027…2030 »P3=#ONLPD« 0x2030…2031 0x24 0x2031…2032 0x96 0x2032…2048 »// IF ?3?/QH1?L'33,2'?« 0x2048…2049 0x03 0x2049…204a 0x88 0x204a…2052 »EVALUATE« 0x2052…2053 0x02 0x2053…2054 0x8b 0x2054…205f »P3=#QRYHLIB« 0x205f…2060 0x22 0x2060…2061 0x96 0x2061…2077 »// IF ?3?/QU1?L'33,2'?« 0x2077…2078 0x03 0x2078…2079 0x88 0x2079…2081 »EVALUATE« 0x2081…2082 0x02 0x2082…2083 0x8a 0x2083…208d »P3=#QRYLIB« 0x208d…208e 0x23 0x208e…208f 0x96 0x208f…20a5 »// IF ?3?/RG1?L'33,2'?« 0x20a5…20a6 0x03 0x20a6…20a7 0x88 0x20a7…20af »EVALUATE« 0x20af…20b0 0x02 0x20b0…20b1 0x8a 0x20b1…20bb »P3=#RPGLIB« 0x20bb…20bc 0x23 0x20bc…20bd 0x96 0x20bd…20d3 »// IF ?3?/SD1?L'33,2'?« 0x20d3…20d4 0x03 0x20d4…20d5 0x88 0x20d5…20dd »EVALUATE« 0x20dd…20de 0x02 0x20de…20df 0x8a 0x20df…20e9 »P3=#SDALIB« 0x20e9…20ea 0x23 0x20ea…20eb 0x96 0x20eb…2101 »// IF ?3?/SE1?L'33,2'?« 0x2101…2102 0x03 0x2102…2103 0x88 0x2103…210b »EVALUATE« 0x210b…210c 0x02 0x210c…210d 0x8a 0x210d…2117 »P3=#SEULIB« 0x2117…2118 0x23 0x2118…2119 0x96 0x2119…212f »// IF ?3?/SS1?L'33,2'?« 0x212f…2130 0x03 0x2130…2131 0x88 0x2131…2139 »EVALUATE« 0x2139…213a 0x02 0x213a…213b 0x8b 0x213b…2146 »P3=#LIBRARY« 0x2146…2147 0x22 0x2147…2148 0x96 0x2148…215e »// IF ?3?/SW1?L'33,2'?« 0x215e…215f 0x03 0x215f…2160 0x88 0x2160…2168 »EVALUATE« 0x2168…2169 0x02 0x2169…216a 0x89 0x216a…2173 »P3=#SWLIB« 0x2173…2174 0x24 0x2174…2175 0x96 0x2175…218b »// IF ?3?/TX1?L'33,2'?« 0x218b…218c 0x03 0x218c…218d 0x88 0x218d…2195 »EVALUATE« 0x2195…2196 0x02 0x2196…2197 0x8a 0x2197…21a1 »P3=#TMSLIB« 0x21a1…21a2 0x23 0x21a2…21a3 0x96 0x21a3…21b9 »// IF ?3?/TXS?L'33,2'?« 0x21b9…21ba 0x03 0x21ba…21bb 0x88 0x21bb…21c3 »EVALUATE« 0x21c3…21c4 0x02 0x21c4…21c5 0x8a 0x21c5…21cf »P3=#LEXLIB« 0x21cf…21d0 0x23 0x21d0…21d1 0x96 0x21d1…21e7 »// IF ?3?/WP1?L'33,2'?« 0x21e7…21e8 0x03 0x21e8…21e9 0x88 0x21e9…21f1 »EVALUATE« 0x21f1…21f2 0x02 0x21f2…21f3 0x89 0x21f3…21fc »P3=#TULIB« 0x21fc…21fd 0x24 0x21fd…21fe 0x96 0x21fe…2214 »// IF ?3?/WP3?L'33,2'?« 0x2214…2215 0x03 0x2215…2216 0x88 0x2216…221e »EVALUATE« 0x221e…221f 0x02 0x221f…2220 0x8a 0x2220…222a »P3=#OFCLIB« 0x222a…222b 0x23 0x222b…222c 0x96 0x222c…2242 »// IF ?3?/WS1?L'33,2'?« 0x2242…2243 0x03 0x2243…2244 0x88 0x2244…224c »EVALUATE« 0x224c…224d 0x02 0x224d…224e 0x8a 0x224e…2258 »P3=#WSULIB« 0x2258…2259 0x23 0x2259…225a 0x8a 0x225a…2264 »// GOTO A5« 0x2264…2265 0x46 0x2265…2266 0x89 0x2266…226f »// TAG A5« 0x226f…2270 0x47 0x2270…2271 0x8e 0x2271…227f »// IF ?1?/COPY« 0x227f…2280 0x04 0x2280…2281 0x88 0x2281…2289 »GOTO PC1« 0x2289…228a 0x36 0x228a…228b 0x8f 0x228b…229a »// IF ?1?/APPLY« 0x229a…229b 0x03 0x229b…229c 0x88 0x229c…22a4 »GOTO PC2« 0x22a4…22a5 0x36 0x22a5…22a6 0x90 0x22a6…22b6 »// IF ?1?/DIRECT« 0x22b6…22b7 0x02 0x22b7…22b8 0x88 0x22b8…22c0 »GOTO PC1« 0x22c0…22c1 0x36 0x22c1…22c2 0x90 0x22c2…22d2 »// IF ?1?/REMOVE« 0x22d2…22d3 0x02 0x22d3…22d4 0x88 0x22d4…22dc »GOTO PC4« 0x22dc…22dd 0x36 0x22dd…22de 0x8e 0x22de…22ec »// IF ?1?/SAVE« 0x22ec…22ed 0x04 0x22ed…22ee 0x88 0x22ee…22f6 »GOTO PR1« 0x22f6…22f7 0x36 0x22f7…22f8 0x9a 0x22f8…2312 »// IF ?1?/RESTORE GOTO PR1« 0x2312…2313 0x36 0x2313…2314 0x90 0x2314…2324 »// IF ?1?/DELETE« 0x2324…2325 0x02 0x2325…2326 0x88 0x2326…232e »GOTO PR1« 0x232e…232f 0x36 0x232f…2330 0x8e 0x2330…233e »// #ERR 3306,C« 0x233e…233f 0x04 0x233f…2340 0x9e 0x2340…235e »INVALID PTF FUNCTION REQUESTED« 0x235e…235f 0x20 0x235f…2360 0x8a 0x2360…236a »// TAG PC1« 0x236a…236b 0x46 0x236b…236c 0xb1 0x236c…239d »// IFF ?3'ALLPTF'?=ALLPTF IFF ?L'9,1'?=1 GOTO PC2« 0x239d…239e 0x1f 0x239e…239f 0xb4 0x239f…23d3 »// IF ?3'ALLPTF'?=ALLPTF IFF ?L'51,1'?/D #ERR 3344,C« 0x23d3…23d4 0x1c 0x23d4…23d5 0xa5 0x23d5…23fa »// IF DATAI1-'PTFUP?L'33,2'?,,?16?' +« 0x23fa…23fb 0x2b 0x23fb…23fc 0x03 0x23fc…23fd 0xaf 0x23fd…242c »TOLIBR PTFUP?L'33,2'?,I1,,REPLACE,#LIBRARY,?16?« 0x242c…242d 0x1e 0x242d…242e 0x8a 0x242e…2438 »// TAG PC2« 0x2438…2439 0x46 0x2439…243a 0x90 0x243a…244a »// IF ?1?/DIRECT« 0x244a…244b 0x02 0x244b…244c 0x91 0x244c…245d »EVALUATE P1=DIREC« 0x245d…245e 0x2d 0x245e…245f 0xa1 0x245f…2480 »// IF ?3'ALLPTF'?/ALLPTF GOTO PC3« 0x2480…2481 0x2f 0x2481…2482 0xb7 0x2482…24b9 »// PTF?1? ?2'OLD'?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?4?,,PTF« 0x24b9…24ba 0x19 0x24ba…24bb 0x9c 0x24bb…24d7 »// IFF ?16?/ DEALLOC UNIT-I1« 0x24d7…24d8 0x34 0x24d8…24d9 0x99 0x24d9…24f2 »// IF ?L'8,1'?=1 GOTO IPL« 0x24f2…24f3 0x37 0x24f3…24f4 0x89 0x24f4…24fd »// RETURN« 0x24fd…24fe 0x47 0x24fe…24ff 0x8a 0x24ff…2509 »// TAG PC3« 0x2509…250a 0x46 0x250a…250b 0x8b 0x250b…2516 »// IFF ?4?/« 0x2516…2517 0x02 0x2517…2518 0x8b 0x2518…2523 »#ERR 3307,C« 0x2523…2524 0x03 0x2524…2525 0xa7 0x2525…254c »FILE/LIBRARY NAME NOT VALID WITH ALLPTF« 0x254c…254d 0x0e 0x254d…254e 0x9b 0x254e…2569 »// IFF ?1?=APPLY GOTO NODKL« 0x2569…256a 0x0f 0x256a…256b 0x96 0x256b…2581 »* DELETE ONLY ON APPLY« 0x2581…2582 0x10 0x2582…2583 0xa1 0x2583…25a4 »// IFF DATAF1-PTFSS105 GOTO NODKL« 0x25a4…25a5 0x09 0x25a5…25a6 0x9b 0x25a6…25c1 »* MUST BE APPLYING #LIBRARY« 0x25c1…25c2 0x0b 0x25c2…25c3 0xa8 0x25c3…25eb »// IFF LOAD-'$FEDKL,#LIBRARY' GOTO NODKL« 0x25eb…25ec 0x02 0x25ec…25ed 0x96 0x25ed…2603 »* MUST CURRENTLY EXIST« 0x2603…2604 0x10 0x2604…2605 0x8e 0x2605…2613 »// LOAD $MAINT« 0x2613…2614 0x42 0x2614…2615 0x86 0x2615…261b »// RUN« 0x261b…261c 0x4a 0x261c…261d 0xc7 0x261d…2664 »// DELETE LIBRARY-O,LIBRNAME-#LIBRARY,NAME-$FEDKL,RETAIN-S,OMIT-#PTFLOG« 0x2664…2665 0x09 0x2665…2666 0x86 0x2666…266c »// END« 0x266c…266d 0x4a 0x266d…266e 0x8c 0x266e…267a »// TAG NODKL« 0x267a…267b 0x44 0x267b…267c 0xaf 0x267c…26ab »// ALLPTF ?1?,?2'OLD'?,,?4?,?5?,?6?,?7?,?8?,?9?« 0x26ab…26ac 0x21 0x26ac…26ad 0xbd 0x26ad…26ea »// IF ?1?=APPLY IF PROC-'#PTFVASP,#VASPLIB' #PTFVASP,#VASPLIB« 0x26ea…26eb 0x13 0x26eb…26ec 0x9f 0x26ec…270b »// IF ?L'71,1'?/'1' GOTO PC2END« 0x270b…270c 0x31 0x270c…270d 0x9e 0x270d…272b »// IF ?1?/'APPLY' #ERR 3361,03« 0x272b…272c 0x32 0x272c…272d 0x9d 0x272d…274a »// IF ?1?/'COPY' #ERR 3362,03« 0x274a…274b 0x33 0x274b…274c 0x8d 0x274c…2759 »// TAG PC2END« 0x2759…275a 0x43 0x275a…275b 0x9c 0x275b…2777 »// IFF ?16?/ DEALLOC UNIT-I1« 0x2777…2778 0x34 0x2778…2779 0x99 0x2779…2792 »// IF ?L'8,1'?=1 GOTO IPL« 0x2792…2793 0x37 0x2793…2794 0x89 0x2794…279d »// RETURN« 0x279d…279e 0x47 0x279e…279f 0x8a 0x279f…27a9 »// TAG PC4« 0x27a9…27aa 0x46 0x27aa…27ab 0x94 0x27ab…27bf »// EVALUATE P1=REMOV« 0x27bf…27c0 0x3c 0x27c0…27c1 0xa1 0x27c1…27e2 »// IF ?3'ALLPTF'?/ALLPTF GOTO PC5« 0x27e2…27e3 0x2f 0x27e3…27e4 0xa5 0x27e4…2809 »// PTF?1? ?2'ALL'?,?4?,,,,,,,?3?,,PTF« 0x2809…280a 0x2b 0x280a…280b 0xa1 0x280b…282c »// IFF ?L'71,1'?/'1' #ERR 3363,03« 0x282c…282d 0x2f 0x282d…282e 0x99 0x282e…2847 »// IF ?L'8,1'?=1 GOTO IPL« 0x2847…2848 0x37 0x2848…2849 0x89 0x2849…2852 »// RETURN« 0x2852…2853 0x47 0x2853…2854 0x8a 0x2854…285e »// TAG PC5« 0x285e…285f 0x46 0x285f…2860 0x8b 0x2860…286b »// IFF ?4?/« 0x286b…286c 0x02 0x286c…286d 0x8b 0x286d…2878 »#ERR 3307,C« 0x2878…2879 0x03 0x2879…287a 0xa7 0x287a…28a1 »FILE/LIBRARY NAME NOT VALID WITH ALLPTF« 0x28a1…28a2 0x0e 0x28a2…28a3 0x9b 0x28a3…28be »// ALLPTF ?1?,?2'ALL'?,,?4?« 0x28be…28bf 0x35 0x28bf…28c0 0xa1 0x28c0…28e1 »// IFF ?L'71,1'?/'1' #ERR 3363,03« 0x28e1…28e2 0x2f 0x28e2…28e3 0x99 0x28e3…28fc »// IF ?L'8,1'?=1 GOTO IPL« 0x28fc…28fd 0x37 0x28fd…28fe 0x89 0x28fe…2907 »// RETURN« 0x2907…2908 0x47 0x2908…2909 0x8a 0x2909…2913 »// TAG PL1« 0x2913…2914 0x46 0x2914…2915 0x96 0x2915…292b »// DUMP PTF,?3?,F1,?2?« 0x292b…292c 0x3a 0x292c…292d 0x89 0x292d…2936 »// RETURN« 0x2936…2937 0x47 0x2937…2938 0x8a 0x2938…2942 »// TAG PR1« 0x2942…2943 0x46 0x2943…2944 0x90 0x2944…2954 »// IF ?1?/DELETE« 0x2954…2955 0x02 0x2955…2956 0x91 0x2956…2967 »EVALUATE P1=DELET« 0x2967…2968 0x2d 0x2968…2969 0xa3 0x2969…298c »// IF ?1?/RESTORE EVALUATE P1=RESTO« 0x298c…298d 0x2d 0x298d…298e 0xa1 0x298e…29af »// IF ?2'ALLPTF'?/ALLPTF GOTO PR2« 0x29af…29b0 0x2f 0x29b0…29b1 0xa3 0x29b1…29d4 »// PTF?1? ,?2?,?3?,?4?,?5?,,,,,,PTF« 0x29d4…29d5 0x2d 0x29d5…29d6 0x9c 0x29d6…29f2 »// IFF ?16?/ DEALLOC UNIT-I1« 0x29f2…29f3 0x34 0x29f3…29f4 0x89 0x29f4…29fd »// RETURN« 0x29fd…29fe 0x47 0x29fe…29ff 0x8a 0x29ff…2a09 »// TAG PR2« 0x2a09…2a0a 0x46 0x2a0a…2a0b 0x9b 0x2a0b…2a26 »// ALLPTF ?1?,,,?3?,?4?,?5?« 0x2a26…2a27 0x35 0x2a27…2a28 0x9c 0x2a28…2a44 »// IFF ?16?/ DEALLOC UNIT-I1« 0x2a44…2a45 0x34 0x2a45…2a46 0x89 0x2a46…2a4f »// RETURN« 0x2a4f…2a50 0x47 0x2a50…2a51 0x8a 0x2a51…2a5b »// TAG M10« 0x2a5b…2a5c 0x46 0x2a5c…2a5d 0xa3 0x2a5d…2a80 »// IF ?7?= EVALUATE P7=CS1?L'01,2'?« 0x2a80…2a81 0x2d 0x2a81…2a82 0xc3 0x2a82…2ac5 »// PTFMCOPY LOAD,?7?,?2'CSPTFLIB'?,?3'S1'?,?4'AUTO'?,?5?,?6?,,,,PTF« 0x2ac5…2ac6 0x0d 0x2ac6…2ac7 0x9c 0x2ac7…2ae3 »// IFF ?16?/ DEALLOC UNIT-I1« 0x2ae3…2ae4 0x34 0x2ae4…2ae5 0x89 0x2ae5…2aee »// RETURN« 0x2aee…2aef 0x47 0x2aef…2af0 0x8a 0x2af0…2afa »// TAG M20« 0x2afa…2afb 0x46 0x2afb…2afc 0xae 0x2afc…2b2a »// PTFMAPLY ?2'ALL'?,?3'CSPTFLIB'?,,,,,,,,,PTF« 0x2b2a…2b2b 0x22 0x2b2b…2b2c 0x99 0x2b2c…2b45 »// IF ?L'8,1'?=1 GOTO IPL« 0x2b45…2b46 0x37 0x2b46…2b47 0x89 0x2b47…2b50 »// RETURN« 0x2b50…2b51 0x47 0x2b51…2b52 0x8a 0x2b52…2b5c »// TAG M30« 0x2b5c…2b5d 0x46 0x2b5d…2b5e 0xa9 0x2b5e…2b87 »// PTFMREMV ?2?,?3'CSPTFLIB'?,,,,,,,,,PTF« 0x2b87…2b88 0x27 0x2b88…2b89 0x99 0x2b89…2ba2 »// IF ?L'8,1'?=1 GOTO IPL« 0x2ba2…2ba3 0x37 0x2ba3…2ba4 0x89 0x2ba4…2bad »// RETURN« 0x2bad…2bae 0x47 0x2bae…2baf 0x8a 0x2baf…2bb9 »// TAG IPL« 0x2bb9…2bba 0x46 0x2bba…2bbb 0x99 0x2bbb…2bd4 »// IF ?9?=CNFIGSSP RETURN« 0x2bd4…2bd5 0x37 0x2bd5…2bd6 0x98 0x2bd6…2bee »// MEMBER USER1-##MSGFE2« 0x2bee…2bef 0x38 0x2bef…2bf0 0x88 0x2bf0…2bf8 »// * ' '« 0x2bf8…2bf9 0x48 0x2bf9…2bfa 0x89 0x2bfa…2c03 »// * 4013« 0x2c03…2c04 0x47 0x2c04…2c05 0x9d 0x2c05…2c22 »// IF ?R'4014'?/ #IPLPROC ,F1« 0x2c22…2c23 0x33 0x2c23…2c24 0x94 0x2c24…2c38 »// ELSE #IPLPROC ,F1« 0x2c38…2c39 0x3c 0x2c39…2c3a 0x89 0x2c3a…2c43 »// RETURN« 0x2c43…2c44 0x47 0x2c44…2c45 0x8a 0x2c45…2c4f »// TAG PP1« 0x2c4f…2c50 0x46 0x2c50…2c51 0xaa 0x2c51…2c7b »// IFF ?PROC?/PTF IFF ?PROC?/HELP GOTO PP2« 0x2c7b…2c7c 0x26 0x2c7c…2c7d 0xa3 0x2c7d…2ca0 »// IF JOBQ-NO IF EVOKED-NO EVALUATE« 0x2ca0…2ca1 0x2d 0x2ca1…2ca2 0x90 0x2ca2…2cb2 »// ELSE GOTO PP2« 0x2cb2…2cb3 0x40 0x2cb3…2cb4 0x98 0x2cb4…2ccc »// MEMBER USER1-##MSGFE2« 0x2ccc…2ccd 0x38 0x2ccd…2cce 0x89 0x2cce…2cd7 »// * 4001« 0x2cd7…2cd8 0x47 0x2cd8…2cd9 0x89 0x2cd9…2ce2 »// * 4002« 0x2ce2…2ce3 0x47 0x2ce3…2ce4 0x89 0x2ce4…2ced »// * 4003« 0x2ced…2cee 0x47 0x2cee…2cef 0x89 0x2cef…2cf8 »// * 4004« 0x2cf8…2cf9 0x47 0x2cf9…2cfa 0x89 0x2cfa…2d03 »// * 4005« 0x2d03…2d04 0x47 0x2d04…2d05 0x89 0x2d05…2d0e »// * 4006« 0x2d0e…2d0f 0x47 0x2d0f…2d10 0x89 0x2d10…2d19 »// * 4007« 0x2d19…2d1a 0x47 0x2d1a…2d1b 0x89 0x2d1b…2d24 »// * 4008« 0x2d24…2d25 0x47 0x2d25…2d26 0x89 0x2d26…2d2f »// * 4009« 0x2d2f…2d30 0x47 0x2d30…2d31 0x89 0x2d31…2d3a »// * 4010« 0x2d3a…2d3b 0x47 0x2d3b…2d3c 0x89 0x2d3c…2d45 »// * 4011« 0x2d45…2d46 0x47 0x2d46…2d47 0x89 0x2d47…2d50 »// * 4012« 0x2d50…2d51 0x47 0x2d51…2d52 0x96 0x2d52…2d68 »// MEMBER USER1-##MSG2« 0x2d68…2d69 0x3a 0x2d69…2d6a 0x8a 0x2d6a…2d74 »// TAG PP2« 0x2d74…2d75 0x46 0x2d75…2d76 0x8e 0x2d76…2d84 »// LOAD $FEFIX« 0x2d84…2d85 0x42 0x2d85…2d86 0x86 0x2d86…2d8c »// RUN« 0x2d8c…2d8d 0x4a 0x2d8d…2d8e 0x00 0x2d8e…2da0 61 61 40 c9 c6 40 6f f2 7d c1 d3 d3 d7 e3 c6 7d 6f 61 ┆// IF ?2'ALLPTF'?/┆ 0x2da0…2dc0 c1 d3 d3 d7 e3 c6 40 c7 d6 e3 d6 40 d7 d9 f2 2f a3 61 61 40 d7 e3 c6 6f f1 6f 40 6b 6f f2 6f 6b ┆ALLPTF GOTO PR2 t// PTF?1? ,?2?,┆ 0x2dc0…2de0 6f f3 6f 6b 6f f4 6f 6b 6f f5 6f 6b 6b 6b 6b 6b 6b d7 e3 c6 2d 9c 61 61 40 c9 c6 c6 40 6f f1 f6 ┆?3?,?4?,?5?,,,,,,PTF æ// IFF ?16┆ 0x2de0…2e00 6f 61 40 c4 c5 c1 d3 d3 d6 c3 40 e4 d5 c9 e3 60 c9 f1 34 89 61 61 40 d9 c5 e3 e4 d9 d5 47 8a 61 ┆?/ DEALLOC UNIT-I1 i// RETURNå«/┆