|
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: 3840 (0xf00)
Notes: MEMBER_P, Member_Text
Names: »PTF#IW1 «
└─⟦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⟧ ».PTF#IW1 «
// EVALUATE P15,2=?L'33,2'? // IF ?1?=COPY GOTO COPY // IF ?1?=APPLY GOTO APPLY // IF ?1?=DIRECT GOTO DIRECT // IF ?1?=REMOVE GOTO REMOVE // IF ?1?=SAVE GOTO SAVE // IF ?1?=RESTORE GOTO RESTORE // IF ?1?=DELETE GOTO DELETE // PAUSE 'PTF#IW1 ?1?,?2?,?3?,?4?' // RETURN // TAG COPY // IFF ?L'72,1'?=1 IFF ?L'73,1'?=1 RETURN // IFF DATAF1-PTFIWX?15? GOTO COPY0A // * 'PTFIWX?15?' // #ERR 3341,03 // DELETE PTFIWX?15?,F1 // TAG COPY0A // RESTORE PTFIWX?15?,,,,,,?2?,?3? // RETURN // TAG APPLY // IFF ?L'72,1'?=1 GOTO APPLY2 // IF DATAF1-PTFIWX?15? GOTO APPLY1 // * 'PTFIWX?15?' // #ERR 3365,23 // GOTO APPLY2 // TAG APPLY1 // IFF DATAF1-PTFIWA?15? GOTO APPLY1A // * 'PTFIWA?15?' // #ERR 3341,03 // DELETE PTFIWA?15?,F1 // TAG APPLY1A // COPYDATA #IWPCLD1,,PTFIWA?15? // IF PROC-'#IWPTF1,#LIBRARY' GOTO APPLY1B // * '#IWPTF1,#LIBRARY' // #ERR 3351,23 // GOTO APPLY2 // TAG APPLY1B // INCLUDE #IWPTF1 PTFIWA?15? // IF DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1 // IF DATAF1-#IWPCLD1 RENAME #IWPCLD1,PTBIWA?15? // RENAME PTFIWA?15?,#IWPCLD1 // INCLUDE IWMRG1 // TAG APPLY2 // IFF ?L'73,1'?=1 GOTO APPLY3 // IFF DATAF1-PTFIWB?15? GOTO APPLY2A // * 'PTFIWB?15?' // #ERR 3341,03 // DELETE PTFIWB?15?,F1 // TAG APPLY2A // COPYDATA #IWPCLD2,,PTFIWB?15? // IF PROC-'#IWPTF2,#LIBRARY' GOTO APPLY2B // * '#IWPTF2,#LIBRARY' // #ERR 3351,23 // GOTO APPLY3 // TAG APPLY2B // INCLUDE #IWPTF2 PTFIWB?15? // IF DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1 // IF DATAF1-#IWPCLD2 RENAME #IWPCLD2,PTBIWB?15? // RENAME PTFIWB?15?,#IWPCLD2 // INCLUDE IWMRG2 // TAG APPLY3 // IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY // IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY // IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1 // RETURN // TAG DIRECT // IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN // IFF PROC-'#IWPTF1,#LIBRARY' IFF PROC-'#IWPTF2,#LIBRARY' RETURN // IFF DATAF1-PTFIWX?15? GOTO DIRECT0A // * 'PTFIWX?15?' // #ERR 3341,03 // DELETE PTFIWX?15?,F1 // TAG DIRECT0A // RESTORE PTFIWX?15?,,,,,,?3?,?4? // IFF PROC-'#IWPTF1,#LIBRARY' GOTO DIRECT2 // INCLUDE #IWPTF1 #IWPCLD1 // INCLUDE IWMRG1 // TAG DIRECT2 // IFF PROC-'#IWPTF2,#LIBRARY' GOTO DIRECT3 // INCLUDE #IWPTF2 #IWPCLD2 // INCLUDE IWMRG2 // TAG DIRECT3 // IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY // IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY // IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1 // RETURN // TAG REMOVE // IFF ?L'72,1'?=1 GOTO REMOVE2 // IF DATAF1-PTBIWA?15? GOTO REMOVE1A // * 'PTBIWA?15?' // #ERR 3351,23 // GOTO REMOVE2 // TAG REMOVE1A // IF DATAF1-#IWPCLD1 DELETE #IWPCLD1,F1 // COPYDATA PTBIWA?15?,,#IWPCLD1 // TAG REMOVE2 // IFF ?L'73,1'?=1 GOTO REMOVE3 // IF DATAF1-PTBIWB?15? GOTO REMOVE2A // * 'PTBIWB?15?' // #ERR 3351,23 // GOTO REMOVE3 // TAG REMOVE2A // IF DATAF1-#IWPCLD2 DELETE #IWPCLD2,F1 // COPYDATA PTBIWB?15?,,#IWPCLD2 // TAG REMOVE3 // RETURN // TAG SAVE // IF DATAF1-PTBIWA?15? SAVE PTBIWA?15?,999,,?2?,?3'S1'?,?4'AUTO'? // IF DATAF1-PTBIWB?15? SAVE PTBIWB?15?,999,,?2?,?3'S1'?,?4'AUTO'? // RETURN // TAG DELETE // IF ?2'F1'?=I1 GOTO DELETE2 // IF DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1 // IF DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1 // RETURN // TAG DELETE2 // IF DATAI1-'PTBIWA?15?,,?3'S1'?' DELETE PTBIWA?15?,I1,SCRATCH,,,?3? // IF DATAI1-'PTBIWB?15?,,?3'S1'?' DELETE PTBIWB?15?,I1,SCRATCH,,,?3? // RETURN // TAG RESTORE // IF DATAI1-'PTBIWA?15?,,?3'S1'?' RESTORE PTBIWA?15?,,,,,?2?,?3?,?4? // IF DATAI1-'PTBIWB?15?,,?3'S1'?' RESTORE PTBIWB?15?,,,,,?2?,?3?,?4? // RETURN
0x000…001 0x9b 0x001…01c »// EVALUATE P15,2=?L'33,2'?« 0x01c…01d 0x35 0x01d…01e 0x8e 0x01e…02c »// IF ?1?=COPY« 0x02c…02d 0x04 0x02d…02e 0x89 0x02e…037 »GOTO COPY« 0x037…038 0x35 0x038…039 0x8f 0x039…048 »// IF ?1?=APPLY« 0x048…049 0x03 0x049…04a 0x8a 0x04a…054 »GOTO APPLY« 0x054…055 0x34 0x055…056 0x90 0x056…066 »// IF ?1?=DIRECT« 0x066…067 0x02 0x067…068 0x8b 0x068…073 »GOTO DIRECT« 0x073…074 0x33 0x074…075 0x90 0x075…085 »// IF ?1?=REMOVE« 0x085…086 0x02 0x086…087 0x8b 0x087…092 »GOTO REMOVE« 0x092…093 0x33 0x093…094 0x8e 0x094…0a2 »// IF ?1?=SAVE« 0x0a2…0a3 0x04 0x0a3…0a4 0x89 0x0a4…0ad »GOTO SAVE« 0x0ad…0ae 0x35 0x0ae…0af 0x9e 0x0af…0cd »// IF ?1?=RESTORE GOTO RESTORE« 0x0cd…0ce 0x32 0x0ce…0cf 0x90 0x0cf…0df »// IF ?1?=DELETE« 0x0df…0e0 0x02 0x0e0…0e1 0x8b 0x0e1…0ec »GOTO DELETE« 0x0ec…0ed 0x33 0x0ed…0ee 0xa2 0x0ee…110 »// PAUSE 'PTF#IW1 ?1?,?2?,?3?,?4?'« 0x110…111 0x2e 0x111…112 0x89 0x112…11b »// RETURN« 0x11b…11c 0x47 0x11c…11d 0x8b 0x11d…128 »// TAG COPY« 0x128…129 0x45 0x129…12a 0xa9 0x12a…153 »// IFF ?L'72,1'?=1 IFF ?L'73,1'?=1 RETURN« 0x153…154 0x27 0x154…155 0xa4 0x155…179 »// IFF DATAF1-PTFIWX?15? GOTO COPY0A« 0x179…17a 0x2c 0x17a…17b 0x91 0x17b…18c »// * 'PTFIWX?15?'« 0x18c…18d 0x3f 0x18d…18e 0x8f 0x18e…19d »// #ERR 3341,03« 0x19d…19e 0x41 0x19e…19f 0x97 0x19f…1b6 »// DELETE PTFIWX?15?,F1« 0x1b6…1b7 0x39 0x1b7…1b8 0x8d 0x1b8…1c5 »// TAG COPY0A« 0x1c5…1c6 0x43 0x1c6…1c7 0xa2 0x1c7…1e9 »// RESTORE PTFIWX?15?,,,,,,?2?,?3?« 0x1e9…1ea 0x2e 0x1ea…1eb 0x89 0x1eb…1f4 »// RETURN« 0x1f4…1f5 0x47 0x1f5…1f6 0x8c 0x1f6…202 »// TAG APPLY« 0x202…203 0x44 0x203…204 0x9e 0x204…222 »// IFF ?L'72,1'?=1 GOTO APPLY2« 0x222…223 0x32 0x223…224 0xa3 0x224…247 »// IF DATAF1-PTFIWX?15? GOTO APPLY1« 0x247…248 0x2d 0x248…249 0x91 0x249…25a »// * 'PTFIWX?15?'« 0x25a…25b 0x3f 0x25b…25c 0x8f 0x25c…26b »// #ERR 3365,23« 0x26b…26c 0x41 0x26c…26d 0x8e 0x26d…27b »// GOTO APPLY2« 0x27b…27c 0x42 0x27c…27d 0x8d 0x27d…28a »// TAG APPLY1« 0x28a…28b 0x43 0x28b…28c 0xa5 0x28c…2b1 »// IFF DATAF1-PTFIWA?15? GOTO APPLY1A« 0x2b1…2b2 0x2b 0x2b2…2b3 0x91 0x2b3…2c4 »// * 'PTFIWA?15?'« 0x2c4…2c5 0x3f 0x2c5…2c6 0x8f 0x2c6…2d5 »// #ERR 3341,03« 0x2d5…2d6 0x41 0x2d6…2d7 0x97 0x2d7…2ee »// DELETE PTFIWA?15?,F1« 0x2ee…2ef 0x39 0x2ef…2f0 0x8e 0x2f0…2fe »// TAG APPLY1A« 0x2fe…2ff 0x42 0x2ff…300 0xa0 0x300…320 »// COPYDATA #IWPCLD1,,PTFIWA?15?« 0x320…321 0x30 0x321…322 0xaa 0x322…34c »// IF PROC-'#IWPTF1,#LIBRARY' GOTO APPLY1B« 0x34c…34d 0x26 0x34d…34e 0x97 0x34e…365 »// * '#IWPTF1,#LIBRARY'« 0x365…366 0x39 0x366…367 0x8f 0x367…376 »// #ERR 3351,23« 0x376…377 0x41 0x377…378 0x8e 0x378…386 »// GOTO APPLY2« 0x386…387 0x42 0x387…388 0x8e 0x388…396 »// TAG APPLY1B« 0x396…397 0x42 0x397…398 0x9d 0x398…3b5 »// INCLUDE #IWPTF1 PTFIWA?15?« 0x3b5…3b6 0x33 0x3b6…3b7 0x85 0x3b7…3bc »// IF« 0x3bc…3bd 0x02 0x3bd…3be 0xa6 0x3be…3e4 »DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1« 0x3e4…3e5 0x23 0x3e5…3e6 0x85 0x3e6…3eb »// IF« 0x3eb…3ec 0x02 0x3ec…3ed 0xaa 0x3ed…417 »DATAF1-#IWPCLD1 RENAME #IWPCLD1,PTBIWA?15?« 0x417…418 0x1f 0x418…419 0x9d 0x419…436 »// RENAME PTFIWA?15?,#IWPCLD1« 0x436…437 0x33 0x437…438 0x91 0x438…449 »// INCLUDE IWMRG1« 0x449…44a 0x3f 0x44a…44b 0x8d 0x44b…458 »// TAG APPLY2« 0x458…459 0x43 0x459…45a 0x9e 0x45a…478 »// IFF ?L'73,1'?=1 GOTO APPLY3« 0x478…479 0x32 0x479…47a 0xa5 0x47a…49f »// IFF DATAF1-PTFIWB?15? GOTO APPLY2A« 0x49f…4a0 0x2b 0x4a0…4a1 0x91 0x4a1…4b2 »// * 'PTFIWB?15?'« 0x4b2…4b3 0x3f 0x4b3…4b4 0x8f 0x4b4…4c3 »// #ERR 3341,03« 0x4c3…4c4 0x41 0x4c4…4c5 0x97 0x4c5…4dc »// DELETE PTFIWB?15?,F1« 0x4dc…4dd 0x39 0x4dd…4de 0x8e 0x4de…4ec »// TAG APPLY2A« 0x4ec…4ed 0x42 0x4ed…4ee 0xa0 0x4ee…50e »// COPYDATA #IWPCLD2,,PTFIWB?15?« 0x50e…50f 0x30 0x50f…510 0xaa 0x510…53a »// IF PROC-'#IWPTF2,#LIBRARY' GOTO APPLY2B« 0x53a…53b 0x26 0x53b…53c 0x97 0x53c…553 »// * '#IWPTF2,#LIBRARY'« 0x553…554 0x39 0x554…555 0x8f 0x555…564 »// #ERR 3351,23« 0x564…565 0x41 0x565…566 0x8e 0x566…574 »// GOTO APPLY3« 0x574…575 0x42 0x575…576 0x8e 0x576…584 »// TAG APPLY2B« 0x584…585 0x42 0x585…586 0x9d 0x586…5a3 »// INCLUDE #IWPTF2 PTFIWB?15?« 0x5a3…5a4 0x33 0x5a4…5a5 0x85 0x5a5…5aa »// IF« 0x5aa…5ab 0x02 0x5ab…5ac 0xa6 0x5ac…5d2 »DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1« 0x5d2…5d3 0x23 0x5d3…5d4 0x85 0x5d4…5d9 »// IF« 0x5d9…5da 0x02 0x5da…5db 0xaa 0x5db…605 »DATAF1-#IWPCLD2 RENAME #IWPCLD2,PTBIWB?15?« 0x605…606 0x1f 0x606…607 0x9d 0x607…624 »// RENAME PTFIWB?15?,#IWPCLD2« 0x624…625 0x33 0x625…626 0x91 0x626…637 »// INCLUDE IWMRG2« 0x637…638 0x3f 0x638…639 0x8d 0x639…646 »// TAG APPLY3« 0x646…647 0x43 0x647…648 0xba 0x648…682 »// IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY« 0x682…683 0x16 0x683…684 0xba 0x684…6be »// IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY« 0x6be…6bf 0x16 0x6bf…6c0 0xac 0x6c0…6ec »// IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1« 0x6ec…6ed 0x24 0x6ed…6ee 0x89 0x6ee…6f7 »// RETURN« 0x6f7…6f8 0x47 0x6f8…6f9 0x8d 0x6f9…706 »// TAG DIRECT« 0x706…707 0x43 0x707…708 0xa6 0x708…72e »// IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN« 0x72e…72f 0x2a 0x72f…730 0xc1 0x730…771 »// IFF PROC-'#IWPTF1,#LIBRARY' IFF PROC-'#IWPTF2,#LIBRARY' RETURN« 0x771…772 0x0f 0x772…773 0xa6 0x773…799 »// IFF DATAF1-PTFIWX?15? GOTO DIRECT0A« 0x799…79a 0x2a 0x79a…79b 0x91 0x79b…7ac »// * 'PTFIWX?15?'« 0x7ac…7ad 0x3f 0x7ad…7ae 0x8f 0x7ae…7bd »// #ERR 3341,03« 0x7bd…7be 0x41 0x7be…7bf 0x97 0x7bf…7d6 »// DELETE PTFIWX?15?,F1« 0x7d6…7d7 0x39 0x7d7…7d8 0x8f 0x7d8…7e7 »// TAG DIRECT0A« 0x7e7…7e8 0x41 0x7e8…7e9 0xa2 0x7e9…80b »// RESTORE PTFIWX?15?,,,,,,?3?,?4?« 0x80b…80c 0x2e 0x80c…80d 0xab 0x80d…838 »// IFF PROC-'#IWPTF1,#LIBRARY' GOTO DIRECT2« 0x838…839 0x25 0x839…83a 0x9b 0x83a…855 »// INCLUDE #IWPTF1 #IWPCLD1« 0x855…856 0x35 0x856…857 0x91 0x857…868 »// INCLUDE IWMRG1« 0x868…869 0x3f 0x869…86a 0x8e 0x86a…878 »// TAG DIRECT2« 0x878…879 0x42 0x879…87a 0xab 0x87a…8a5 »// IFF PROC-'#IWPTF2,#LIBRARY' GOTO DIRECT3« 0x8a5…8a6 0x25 0x8a6…8a7 0x9b 0x8a7…8c2 »// INCLUDE #IWPTF2 #IWPCLD2« 0x8c2…8c3 0x35 0x8c3…8c4 0x91 0x8c4…8d5 »// INCLUDE IWMRG2« 0x8d5…8d6 0x3f 0x8d6…8d7 0x8e 0x8d7…8e5 »// TAG DIRECT3« 0x8e5…8e6 0x42 0x8e6…8e7 0xba 0x8e7…921 »// IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY« 0x921…922 0x16 0x922…923 0xba 0x923…95d »// IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY« 0x95d…95e 0x16 0x95e…95f 0xac 0x95f…98b »// IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1« 0x98b…98c 0x24 0x98c…98d 0x89 0x98d…996 »// RETURN« 0x996…997 0x47 0x997…998 0x8d 0x998…9a5 »// TAG REMOVE« 0x9a5…9a6 0x43 0x9a6…9a7 0x9f 0x9a7…9c6 »// IFF ?L'72,1'?=1 GOTO REMOVE2« 0x9c6…9c7 0x31 0x9c7…9c8 0xa5 0x9c8…9ed »// IF DATAF1-PTBIWA?15? GOTO REMOVE1A« 0x9ed…9ee 0x2b 0x9ee…9ef 0x91 0x9ef…a00 »// * 'PTBIWA?15?'« 0xa00…a01 0x3f 0xa01…a02 0x8f 0xa02…a11 »// #ERR 3351,23« 0xa11…a12 0x41 0xa12…a13 0x8f 0xa13…a22 »// GOTO REMOVE2« 0xa22…a23 0x41 0xa23…a24 0x8f 0xa24…a33 »// TAG REMOVE1A« 0xa33…a34 0x41 0xa34…a35 0x85 0xa35…a3a »// IF« 0xa3a…a3b 0x02 0xa3b…a3c 0xa2 0xa3c…a5e »DATAF1-#IWPCLD1 DELETE #IWPCLD1,F1« 0xa5e…a5f 0x27 0xa5f…a60 0xa0 0xa60…a80 »// COPYDATA PTBIWA?15?,,#IWPCLD1« 0xa80…a81 0x30 0xa81…a82 0x8e 0xa82…a90 »// TAG REMOVE2« 0xa90…a91 0x42 0xa91…a92 0x9f 0xa92…ab1 »// IFF ?L'73,1'?=1 GOTO REMOVE3« 0xab1…ab2 0x31 0xab2…ab3 0xa5 0xab3…ad8 »// IF DATAF1-PTBIWB?15? GOTO REMOVE2A« 0xad8…ad9 0x2b 0xad9…ada 0x91 0xada…aeb »// * 'PTBIWB?15?'« 0xaeb…aec 0x3f 0xaec…aed 0x8f 0xaed…afc »// #ERR 3351,23« 0xafc…afd 0x41 0xafd…afe 0x8f 0xafe…b0d »// GOTO REMOVE3« 0xb0d…b0e 0x41 0xb0e…b0f 0x8f 0xb0f…b1e »// TAG REMOVE2A« 0xb1e…b1f 0x41 0xb1f…b20 0x85 0xb20…b25 »// IF« 0xb25…b26 0x02 0xb26…b27 0xa2 0xb27…b49 »DATAF1-#IWPCLD2 DELETE #IWPCLD2,F1« 0xb49…b4a 0x27 0xb4a…b4b 0xa0 0xb4b…b6b »// COPYDATA PTBIWB?15?,,#IWPCLD2« 0xb6b…b6c 0x30 0xb6c…b6d 0x8e 0xb6d…b7b »// TAG REMOVE3« 0xb7b…b7c 0x42 0xb7c…b7d 0x89 0xb7d…b86 »// RETURN« 0xb86…b87 0x47 0xb87…b88 0x8b 0xb88…b93 »// TAG SAVE« 0xb93…b94 0x45 0xb94…b95 0xc2 0xb95…bd7 »// IF DATAF1-PTBIWA?15? SAVE PTBIWA?15?,999,,?2?,?3'S1'?,?4'AUTO'?« 0xbd7…bd8 0x0e 0xbd8…bd9 0xc2 0xbd9…c1b »// IF DATAF1-PTBIWB?15? SAVE PTBIWB?15?,999,,?2?,?3'S1'?,?4'AUTO'?« 0xc1b…c1c 0x0e 0xc1c…c1d 0x89 0xc1d…c26 »// RETURN« 0xc26…c27 0x47 0xc27…c28 0x8d 0xc28…c35 »// TAG DELETE« 0xc35…c36 0x43 0xc36…c37 0x9d 0xc37…c54 »// IF ?2'F1'?=I1 GOTO DELETE2« 0xc54…c55 0x33 0xc55…c56 0xac 0xc56…c82 »// IF DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1« 0xc82…c83 0x24 0xc83…c84 0xac 0xc84…cb0 »// IF DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1« 0xcb0…cb1 0x24 0xcb1…cb2 0x89 0xcb2…cbb »// RETURN« 0xcbb…cbc 0x47 0xcbc…cbd 0x8e 0xcbd…ccb »// TAG DELETE2« 0xccb…ccc 0x42 0xccc…ccd 0xc5 0xccd…d12 »// IF DATAI1-'PTBIWA?15?,,?3'S1'?' DELETE PTBIWA?15?,I1,SCRATCH,,,?3?« 0xd12…d13 0x0b 0xd13…d14 0xc5 0xd14…d59 »// IF DATAI1-'PTBIWB?15?,,?3'S1'?' DELETE PTBIWB?15?,I1,SCRATCH,,,?3?« 0xd59…d5a 0x0b 0xd5a…d5b 0x89 0xd5b…d64 »// RETURN« 0xd64…d65 0x47 0xd65…d66 0x8e 0xd66…d74 »// TAG RESTORE« 0xd74…d75 0x42 0xd75…d76 0xc5 0xd76…dbb »// IF DATAI1-'PTBIWA?15?,,?3'S1'?' RESTORE PTBIWA?15?,,,,,?2?,?3?,?4?« 0xdbb…dbc 0x0b 0xdbc…dbd 0xc5 0xdbd…e02 »// IF DATAI1-'PTBIWB?15?,,?3'S1'?' RESTORE PTBIWB?15?,,,,,?2?,?3?,?4?« 0xe02…e03 0x0b 0xe03…e04 0x89 0xe04…e0d »// RETURN« 0xe0d…e0e 0x47 0xe0e…e0f 0x00 0xe0f…e20 f2 6b f1 7d 6f 7e f1 40 c7 d6 e3 d6 40 c1 d7 d7 d3 ┆2,1'?=1 GOTO APPL┆ 0xe20…e40 e8 f2 32 a3 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 d7 e3 c6 c9 e6 e7 6f f1 f5 6f 40 c7 d6 e3 d6 ┆Y2 t// IF DATAF1-PTFIWX?15? GOTO┆ 0xe40…e60 40 c1 d7 d7 d3 e8 f1 2d 91 61 61 40 5c 40 7d d7 e3 c6 c9 e6 e7 6f f1 f5 6f 7d 3f 8f 61 61 40 7b ┆ APPLY1 j// * 'PTFIWX?15?' ±// #┆ 0xe60…e80 c5 d9 d9 40 f3 f3 f6 f5 6b f2 f3 41 8e 61 61 40 c7 d6 e3 d6 40 c1 d7 d7 d3 e8 f2 42 8d 61 61 40 ┆ERR 3365,23 þ// GOTO APPLY2âý// ┆ 0xe80…ea0 e3 c1 c7 40 c1 d7 d7 d3 e8 f1 43 a5 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 d7 e3 c6 c9 e6 c1 ┆TAG APPLY1äv// IFF DATAF1-PTFIWA┆ 0xea0…ec0 6f f1 f5 6f 40 c7 d6 e3 d6 40 c1 d7 d7 d3 e8 f1 c1 2b 91 61 61 40 5c 40 7d d7 e3 c6 c9 e6 c1 6f ┆?15? GOTO APPLY1A j// * 'PTFIWA?┆ 0xec0…ee0 f1 f5 6f 7d 3f 8f 61 61 40 7b c5 d9 d9 40 f3 f3 f4 f1 6b f0 f3 41 97 61 61 40 c4 c5 d3 c5 e3 c5 ┆15?' ±// #ERR 3341,03 p// DELETE┆ 0xee0…f00 40 d7 e3 c6 c9 e6 c1 6f f1 f5 6f 6b c6 f1 39 8e 61 61 40 e3 c1 c7 40 c1 d7 d7 d3 e8 f1 c1 42 a0 ┆ PTFIWA?15?,F1 þ// TAG APPLY1Aâµ┆