|
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: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »PTFCOPY «
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦81127d4bb⟧ »/DK3900(PTFMASTERVOL)« Bits:30009817 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 2 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦bc93475ba⟧ Bits:30009819 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 4 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦cf95f95e8⟧ Bits:30009821 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 6 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦e184f8357⟧ Bits:30009822 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 7 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦edfbb8ae1⟧ Bits:30009818 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 3 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦this⟧ ».PTFCOPY «
// IF ?11?= RETURN // IF ?L'57,1'?=S EVALUATE P5=?L'57,2'? // IF ?L'57,1'?=M EVALUATE P5=?L'57,5'? // IF ?11?/ALLPTF IFF DATAF1-?9? RETURN // IF ?11?/ALLPTF IFF DATAI1-'?2?,,?5'S1'?' RETURN // LOCAL OFFSET-10,DATA-'?2?',AREA-SYSTEM,BLANK-8 // IF ?3?/ EVALUATE P3=PTF?L'10,5'? // IFF DATAI1-'PTF#CTL,,?5'S1'?' GOTO OLDWAY // IF ?L'29,1'?=1 GOTO NORESTOR // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PTF#CTL,LOCATION-?5?, // IF ?6?=AUTO AUTO-YES // ELSE AUTO-NO // FILE NAME-COPYO,UNIT-F1,LABEL-PTF#CTL,RETAIN-J // RUN // COPYFILE OUTPUT-S // END // IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // BLDLIBR PTF#WRK2,25,5 // LOCAL OFFSET-29,DATA-'1',AREA-SYSTEM // TAG NORESTOR // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // LOCAL OFFSET-18,DATA-'C',AREA-SYSTEM // LOCAL OFFSET-28,DATA-'0',AREA-SYSTEM // TAG NEWAGAIN // IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2 // LOAD $FECTL // RUN // IF ?L'28,1'?=E GOTO COEND // IF ?L'28,1'?=0 GOTO CHECK // IFF PROC-'PTF#RUN,PTF#WRK2' GOTO CHECK // IFF ?L'28,1'?=1 GOTO COMPSIZE // IFF DATAF1-?3? GOTO COMPSIZE // * '?3?' // #ERR 3342,01 // IF ?CD?=1011 DELETE ?3?,F1,,,LIBR // TAG COMPSIZE // IF DATAF1-PTF#WORK GOTO NOBLD // IF ?7?/ EVALUATE P7=?L'35,4'? // IFF ?8?/ GOTO BLDWORK // IFF ?7'500'?>19 GOTO BLDWORK ?8F'4'? // LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10 // EVALUATE P8=?C7?-1 P8=?L'80,?8?'? P8=?8?+?8? // TAG BLDWORK // BLDLIBR PTF#WORK,?7'500'?,?8? // TAG NOBLD // LOAD $MAINT // INCLUDE PTF#RUN,PTF#WRK2 *ALL // END // IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2 // GOTO NEWAGAIN // TAG OLDWAY // IFF DATAF1-?3? GOTO COMPSIZE // * '?3?' // #ERR 3342,01 // IF ?CD?/1011 DELETE ?3?,F1,,,LIBR // TAG COMPSIZE // IF ?7?/ EVALUATE P7=?L'35,4'? // IFF ?8?/ GOTO BLDWORK // IFF ?7'50'?>19 GOTO BLDWORK ?8F'4'? // LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10 // EVALUATE P8=?C7?-1 P8=?L'80,?8?'? P8=?8?+?8? // TAG BLDWORK // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // BLDLIBR PTF#WORK,?7'50'?,?8? // LOAD $MAINT // FILE NAME-?2?,UNIT-I1,LOCATION-?5'S1'?, // IF ?6'AUTO'?/AUTO AUTO-YES // ELSE AUTO-NO // RUN // COPY FROM-DISK,TO-PTF#WORK,FILE-?2?, // IFF ?1'OLD'?/OLD IFF ?1?/ALL PTF-?1?, // RETAIN-R // END // TAG CHECK // IF PROC-'PTFCMEMO,PTF#WORK' INCLUDE PTFCMEMO,PTF#WORK *ALL // IF LOAD-'$FECHK,PTF#WORK' LOAD $FECHK,PTF#WORK // IFF LOAD-'$FECHK,PTF#WORK' IF LOAD-'$FECHK,PTFSS105' + LOAD $FECHK,PTFSS105 // IFF LOAD-'$FECHK,PTF#WORK' IFF LOAD-'$FECHK,PTFSS105' LOAD $FECHK // RUN // COPY ?1?,?2?,?3?,?4'CHECK'? // LOCAL AREA-SYSTEM // IFF PROC-'PTFPROC,PTF#WORK' GOTO COEND // LOAD $MAINT // INCLUDE PTFPROC,PTF#WORK // END // DELETE PTF#WORK,F1,,,LIBR // IF ?2?=IW1?L'33,2'? INCLUDE PTF#IW1 COPY,?5?,?6? // IF ?2?=IW2?L'33,2'? INCLUDE PTF#IW2 COPY,?5?,?6? // IF ?2?=SS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 COPY,?5?,?6? // IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // RETURN // TAG COEND // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // IFF ?11?/ALLPTF #ERR 3362,03 // RETURN
0x000…001 0x92 0x001…013 »// IF ?11?= RETURN« 0x013…014 0x3e 0x014…015 0xa7 0x015…03c »// IF ?L'57,1'?=S EVALUATE P5=?L'57,2'?« 0x03c…03d 0x29 0x03d…03e 0xa7 0x03e…065 »// IF ?L'57,1'?=M EVALUATE P5=?L'57,5'?« 0x065…066 0x29 0x066…067 0xa7 0x067…08e »// IF ?11?/ALLPTF IFF DATAF1-?9? RETURN« 0x08e…08f 0x29 0x08f…090 0xb2 0x090…0c2 »// IF ?11?/ALLPTF IFF DATAI1-'?2?,,?5'S1'?' RETURN« 0x0c2…0c3 0x1e 0x0c3…0c4 0xb1 0x0c4…0f5 »// LOCAL OFFSET-10,DATA-'?2?',AREA-SYSTEM,BLANK-8« 0x0f5…0f6 0x1f 0x0f6…0f7 0xa3 0x0f7…11a »// IF ?3?/ EVALUATE P3=PTF?L'10,5'?« 0x11a…11b 0x2d 0x11b…11c 0xac 0x11c…148 »// IFF DATAI1-'PTF#CTL,,?5'S1'?' GOTO OLDWAY« 0x148…149 0x24 0x149…14a 0x9f 0x14a…169 »// IF ?L'29,1'?=1 GOTO NORESTOR« 0x169…16a 0x31 0x16a…16b 0x8d 0x16b…178 »// LOAD $COPY« 0x178…179 0x43 0x179…17a 0xb7 0x17a…1b1 »// FILE NAME-COPYIN,UNIT-I1,LABEL-PTF#CTL,LOCATION-?5?,« 0x1b1…1b2 0x19 0x1b2…1b3 0x82 0x1b3…1b5 »//« 0x1b5…1b6 0x06 0x1b6…1b7 0x94 0x1b7…1cb »IF ?6?=AUTO AUTO-YES« 0x1cb…1cc 0x34 0x1cc…1cd 0x82 0x1cd…1cf »//« 0x1cf…1d0 0x06 0x1d0…1d1 0x84 0x1d1…1d5 »ELSE« 0x1d5…1d6 0x08 0x1d6…1d7 0x87 0x1d7…1de »AUTO-NO« 0x1de…1df 0x35 0x1df…1e0 0xb1 0x1e0…211 »// FILE NAME-COPYO,UNIT-F1,LABEL-PTF#CTL,RETAIN-J« 0x211…212 0x1f 0x212…213 0x86 0x213…219 »// RUN« 0x219…21a 0x4a 0x21a…21b 0x94 0x21b…22f »// COPYFILE OUTPUT-S« 0x22f…230 0x3c 0x230…231 0x86 0x231…237 »// END« 0x237…238 0x4a 0x238…239 0x85 0x239…23e »// IF« 0x23e…23f 0x02 0x23f…240 0xa9 0x240…269 »DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR« 0x269…26a 0x20 0x26a…26b 0x8a 0x26b…275 »// BLDLIBR« 0x275…276 0x02 0x276…277 0x8d 0x277…284 »PTF#WRK2,25,5« 0x284…285 0x37 0x285…286 0xa7 0x286…2ad »// LOCAL OFFSET-29,DATA-'1',AREA-SYSTEM« 0x2ad…2ae 0x29 0x2ae…2af 0x8f 0x2af…2be »// TAG NORESTOR« 0x2be…2bf 0x41 0x2bf…2c0 0xaf 0x2c0…2ef »// IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR« 0x2ef…2f0 0x21 0x2f0…2f1 0xa7 0x2f1…318 »// LOCAL OFFSET-18,DATA-'C',AREA-SYSTEM« 0x318…319 0x29 0x319…31a 0xa7 0x31a…341 »// LOCAL OFFSET-28,DATA-'0',AREA-SYSTEM« 0x341…342 0x29 0x342…343 0x8f 0x343…352 »// TAG NEWAGAIN« 0x352…353 0x41 0x353…354 0xba 0x354…38e »// IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2« 0x38e…38f 0x16 0x38f…390 0x8e 0x390…39e »// LOAD $FECTL« 0x39e…39f 0x42 0x39f…3a0 0x86 0x3a0…3a6 »// RUN« 0x3a6…3a7 0x4a 0x3a7…3a8 0x85 0x3a8…3ad »// IF« 0x3ad…3ae 0x02 0x3ae…3af 0x96 0x3af…3c5 »?L'28,1'?=E GOTO COEND« 0x3c5…3c6 0x33 0x3c6…3c7 0x85 0x3c7…3cc »// IF« 0x3cc…3cd 0x02 0x3cd…3ce 0x96 0x3ce…3e4 »?L'28,1'?=0 GOTO CHECK« 0x3e4…3e5 0x33 0x3e5…3e6 0xa9 0x3e6…40f »// IFF PROC-'PTF#RUN,PTF#WRK2' GOTO CHECK« 0x40f…410 0x27 0x410…411 0xa0 0x411…431 »// IFF ?L'28,1'?=1 GOTO COMPSIZE« 0x431…432 0x30 0x432…433 0x9f 0x433…452 »// IFF DATAF1-?3? GOTO COMPSIZE« 0x452…453 0x31 0x453…454 0x8a 0x454…45e »// * '?3?'« 0x45e…45f 0x46 0x45f…460 0x8f 0x460…46f »// #ERR 3342,01« 0x46f…470 0x41 0x470…471 0xa4 0x471…495 »// IF ?CD?=1011 DELETE ?3?,F1,,,LIBR« 0x495…496 0x2c 0x496…497 0x8f 0x497…4a6 »// TAG COMPSIZE« 0x4a6…4a7 0x41 0x4a7…4a8 0xa0 0x4a8…4c8 »// IF DATAF1-PTF#WORK GOTO NOBLD« 0x4c8…4c9 0x30 0x4c9…4ca 0xa0 0x4ca…4ea »// IF ?7?/ EVALUATE P7=?L'35,4'?« 0x4ea…4eb 0x30 0x4eb…4ec 0x98 0x4ec…504 »// IFF ?8?/ GOTO BLDWORK« 0x504…505 0x38 0x505…506 0x9f 0x506…525 »// IFF ?7'500'?>19 GOTO BLDWORK« 0x525…526 0x02 0x526…527 0x87 0x527…52e »?8F'4'?« 0x52e…52f 0x28 0x52f…530 0xb2 0x530…562 »// LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10« 0x562…563 0x1e 0x563…564 0x95 0x564…579 »// EVALUATE P8=?C7?-1« 0x579…57a 0x02 0x57a…57b 0x8e 0x57b…589 »P8=?L'80,?8?'?« 0x589…58a 0x02 0x58a…58b 0x8a 0x58b…595 »P8=?8?+?8?« 0x595…596 0x1f 0x596…597 0x8e 0x597…5a5 »// TAG BLDWORK« 0x5a5…5a6 0x42 0x5a6…5a7 0xa0 0x5a7…5c7 »// BLDLIBR PTF#WORK,?7'500'?,?8?« 0x5c7…5c8 0x30 0x5c8…5c9 0x8c 0x5c9…5d5 »// TAG NOBLD« 0x5d5…5d6 0x44 0x5d6…5d7 0x8e 0x5d7…5e5 »// LOAD $MAINT« 0x5e5…5e6 0x42 0x5e6…5e7 0xa0 0x5e7…607 »// INCLUDE PTF#RUN,PTF#WRK2 *ALL« 0x607…608 0x30 0x608…609 0x86 0x609…60f »// END« 0x60f…610 0x4a 0x610…611 0xba 0x611…64b »// IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2« 0x64b…64c 0x16 0x64c…64d 0x90 0x64d…65d »// GOTO NEWAGAIN« 0x65d…65e 0x40 0x65e…65f 0x8d 0x65f…66c »// TAG OLDWAY« 0x66c…66d 0x43 0x66d…66e 0x9f 0x66e…68d »// IFF DATAF1-?3? GOTO COMPSIZE« 0x68d…68e 0x31 0x68e…68f 0x8a 0x68f…699 »// * '?3?'« 0x699…69a 0x46 0x69a…69b 0x8f 0x69b…6aa »// #ERR 3342,01« 0x6aa…6ab 0x41 0x6ab…6ac 0xa4 0x6ac…6d0 »// IF ?CD?/1011 DELETE ?3?,F1,,,LIBR« 0x6d0…6d1 0x2c 0x6d1…6d2 0x8f 0x6d2…6e1 »// TAG COMPSIZE« 0x6e1…6e2 0x41 0x6e2…6e3 0xa0 0x6e3…703 »// IF ?7?/ EVALUATE P7=?L'35,4'?« 0x703…704 0x30 0x704…705 0x98 0x705…71d »// IFF ?8?/ GOTO BLDWORK« 0x71d…71e 0x38 0x71e…71f 0x9e 0x71f…73d »// IFF ?7'50'?>19 GOTO BLDWORK« 0x73d…73e 0x02 0x73e…73f 0x87 0x73f…746 »?8F'4'?« 0x746…747 0x29 0x747…748 0xb2 0x748…77a »// LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10« 0x77a…77b 0x1e 0x77b…77c 0x95 0x77c…791 »// EVALUATE P8=?C7?-1« 0x791…792 0x02 0x792…793 0x8e 0x793…7a1 »P8=?L'80,?8?'?« 0x7a1…7a2 0x02 0x7a2…7a3 0x8a 0x7a3…7ad »P8=?8?+?8?« 0x7ad…7ae 0x1f 0x7ae…7af 0x8e 0x7af…7bd »// TAG BLDWORK« 0x7bd…7be 0x42 0x7be…7bf 0xaf 0x7bf…7ee »// IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR« 0x7ee…7ef 0x21 0x7ef…7f0 0x9f 0x7f0…80f »// BLDLIBR PTF#WORK,?7'50'?,?8?« 0x80f…810 0x31 0x810…811 0x8e 0x811…81f »// LOAD $MAINT« 0x81f…820 0x42 0x820…821 0xaa 0x821…84b »// FILE NAME-?2?,UNIT-I1,LOCATION-?5'S1'?,« 0x84b…84c 0x26 0x84c…84d 0x9d 0x84d…86a »// IF ?6'AUTO'?/AUTO AUTO-YES« 0x86a…86b 0x33 0x86b…86c 0x8f 0x86c…87b »// ELSE AUTO-NO« 0x87b…87c 0x41 0x87c…87d 0x86 0x87d…883 »// RUN« 0x883…884 0x4a 0x884…885 0xa7 0x885…8ac »// COPY FROM-DISK,TO-PTF#WORK,FILE-?2?,« 0x8ac…8ad 0x29 0x8ad…8ae 0xa8 0x8ae…8d6 »// IFF ?1'OLD'?/OLD IFF ?1?/ALL PTF-?1?,« 0x8d6…8d7 0x28 0x8d7…8d8 0x8b 0x8d8…8e3 »// RETAIN-R« 0x8e3…8e4 0x45 0x8e4…8e5 0x86 0x8e5…8eb »// END« 0x8eb…8ec 0x4a 0x8ec…8ed 0x8c 0x8ed…8f9 »// TAG CHECK« 0x8f9…8fa 0x44 0x8fa…8fb 0xbd 0x8fb…938 »// IF PROC-'PTFCMEMO,PTF#WORK' INCLUDE PTFCMEMO,PTF#WORK *ALL« 0x938…939 0x13 0x939…93a 0x85 0x93a…93f »// IF« 0x93f…940 0x02 0x940…941 0xab 0x941…96c »LOAD-'$FECHK,PTF#WORK' LOAD $FECHK,PTF#WORK« 0x96c…96d 0x1e 0x96d…96e 0xa0 0x96e…98e »// IFF LOAD-'$FECHK,PTF#WORK' IF« 0x98e…98f 0x02 0x98f…990 0x98 0x990…9a8 »LOAD-'$FECHK,PTFSS105' +« 0x9a8…9a9 0x16 0x9a9…9aa 0x03 0x9aa…9ab 0x94 0x9ab…9bf »LOAD $FECHK,PTFSS105« 0x9bf…9c0 0x39 0x9c0…9c1 0xc4 0x9c1…a05 »// IFF LOAD-'$FECHK,PTF#WORK' IFF LOAD-'$FECHK,PTFSS105' LOAD $FECHK« 0xa05…a06 0x0c 0xa06…a07 0x86 0xa07…a0d »// RUN« 0xa0d…a0e 0x4a 0xa0e…a0f 0x9e 0xa0f…a2d »// COPY ?1?,?2?,?3?,?4'CHECK'?« 0xa2d…a2e 0x32 0xa2e…a2f 0x94 0xa2f…a43 »// LOCAL AREA-SYSTEM« 0xa43…a44 0x3c 0xa44…a45 0xa9 0xa45…a6e »// IFF PROC-'PTFPROC,PTF#WORK' GOTO COEND« 0xa6e…a6f 0x27 0xa6f…a70 0x8e 0xa70…a7e »// LOAD $MAINT« 0xa7e…a7f 0x42 0xa7f…a80 0x9b 0xa80…a9b »// INCLUDE PTFPROC,PTF#WORK« 0xa9b…a9c 0x35 0xa9c…a9d 0x86 0xa9d…aa3 »// END« 0xaa3…aa4 0x4a 0xaa4…aa5 0x9c 0xaa5…ac1 »// DELETE PTF#WORK,F1,,,LIBR« 0xac1…ac2 0x34 0xac2…ac3 0xb3 0xac3…af6 »// IF ?2?=IW1?L'33,2'? INCLUDE PTF#IW1 COPY,?5?,?6?« 0xaf6…af7 0x1d 0xaf7…af8 0xb3 0xaf8…b2b »// IF ?2?=IW2?L'33,2'? INCLUDE PTF#IW2 COPY,?5?,?6?« 0xb2b…b2c 0x1d 0xb2c…b2d 0xc2 0xb2d…b6f »// IF ?2?=SS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 COPY,?5?,?6?« 0xb6f…b70 0x0e 0xb70…b71 0xbf 0xb71…bb0 »// IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR« 0xbb0…bb1 0x11 0xbb1…bb2 0x89 0xbb2…bbb »// RETURN« 0xbbb…bbc 0x47 0xbbc…bbd 0x8c 0xbbd…bc9 »// TAG COEND« 0xbc9…bca 0x44 0xbca…bcb 0xaf 0xbcb…bfa »// IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR« 0xbfa…bfb 0x21 0xbfb…bfc 0xbf 0xbfc…c3b »// IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR« 0xc3b…c3c 0x11 0xc3c…c3d 0x9f 0xc3d…c5c »// IFF ?11?/ALLPTF #ERR 3362,03« 0xc5c…c5d 0x31 0xc5d…c5e 0x89 0xc5e…c67 »// RETURN« 0xc67…c68 0x47 0xc68…c69 0x00 0xc69…c80 40 c9 c6 40 6f f1 f1 6f 61 c1 d3 d3 d7 e3 c6 40 c9 c6 c6 40 c4 c1 e3 ┆ IF ?11?/ALLPTF IFF DAT┆ 0xc80…ca0 c1 c6 f1 60 6f f9 6f 40 d9 c5 e3 e4 d9 d5 29 b2 61 61 40 c9 c6 40 6f f1 f1 6f 61 c1 d3 d3 d7 e3 ┆AF1-?9? RETURN ¥// IF ?11?/ALLPT┆ 0xca0…cc0 c6 40 c9 c6 c6 40 c4 c1 e3 c1 c9 f1 60 7d 6f f2 6f 6b 6b 6f f5 7d e2 f1 7d 6f 7d 40 d9 c5 e3 e4 ┆F IFF DATAI1-'?2?,,?5'S1'?' RETU┆ 0xcc0…ce0 d9 d5 1e b1 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 f0 6b c4 c1 e3 c1 60 7d 6f f2 6f ┆RN £// LOCAL OFFSET-10,DATA-'?2?┆ 0xce0…d00 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b c2 d3 c1 d5 d2 60 f8 1f a3 61 61 40 c9 c6 40 6f f3 6f ┆',AREA-SYSTEM,BLANK-8 t// IF ?3?┆