|
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: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »BCPDILOD«
└─⟦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
└─⟦ac51fb3f2⟧
└─⟦this⟧ ».BCPDILOD«
// IFF DATAF1-PD3.COMM GOTO STEPA // LOAD $DELET // RUN // REMOVE LABEL-PD3.COMM,UNIT-F1 // END // TAG STEPA // IFF DATAF1-PD3.COM2 GOTO STEPB // LOAD $DELET // RUN // REMOVE LABEL-PD3.COM2,UNIT-F1 // END // TAG STEPB // IFF DATAF1-PD3.CCTL GOTO STEPC // LOAD $DELET // RUN // REMOVE LABEL-PD3.CCTL,UNIT-F1 // END // TAG STEPC // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COM2,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COM2,RECORDS-820,RETAIN-T // RUN // COPYFILE // END // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.CCTL,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.CCTL,RECORDS-1200,RETAIN-T // RUN // COPYFILE // END // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COMM,PACK-PPOLPD, // LOCATION-?1'S1'? // FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COMM,RECORDS-3930,RETAIN-T // RUN // COPYFILE // END // IFF ?CD?/0000 RETURN LOGPLD LOAD,COMMPD,NONE,,'0050,##MSGPL2',,'PD3.COMM,PD3.COM2,PD3.CCTL' // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDILOD12' // LOAD $CNAD // RUN // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDMRI 12' // LOAD $CNAD // RUN // IF DATAF1-#PSPTITL IF DATAF1-PD1.SCRN IF DATAF1-PD1.SCR2 + IF DATAF1-PD1.CTRL IF DATAF1-#ONLPD GOTO STEPM // IFF ?L'61,1'?/1 GOTO SINGLE // IFF ?L'230,1'?/1 GOTO KANJI 1 // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,02 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,02 // RETURN // TAG KANJI // IFF ?L'67,1'?/1 GOTO ENGLISH 1 // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,05 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,05 // RETURN // TAG ENGLISH // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,01 // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,01 // RETURN // TAG SINGLE // IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,, // ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,, // RETURN // TAG STEPM // IFF ?CD?/0000 RETURN
0x000…001 0xa1 0x001…022 »// IFF DATAF1-PD3.COMM GOTO STEPA« 0x022…023 0x57 0x023…024 0x8e 0x024…032 »// LOAD $DELET« 0x032…033 0x6a 0x033…034 0x86 0x034…03a »// RUN« 0x03a…03b 0x72 0x03b…03c 0xa0 0x03c…05c »// REMOVE LABEL-PD3.COMM,UNIT-F1« 0x05c…05d 0x58 0x05d…05e 0x86 0x05e…064 »// END« 0x064…065 0x72 0x065…066 0x8c 0x066…072 »// TAG STEPA« 0x072…073 0x6c 0x073…074 0xa1 0x074…095 »// IFF DATAF1-PD3.COM2 GOTO STEPB« 0x095…096 0x57 0x096…097 0x8e 0x097…0a5 »// LOAD $DELET« 0x0a5…0a6 0x6a 0x0a6…0a7 0x86 0x0a7…0ad »// RUN« 0x0ad…0ae 0x72 0x0ae…0af 0xa0 0x0af…0cf »// REMOVE LABEL-PD3.COM2,UNIT-F1« 0x0cf…0d0 0x58 0x0d0…0d1 0x86 0x0d1…0d7 »// END« 0x0d7…0d8 0x72 0x0d8…0d9 0x8c 0x0d9…0e5 »// TAG STEPB« 0x0e5…0e6 0x6c 0x0e6…0e7 0xa1 0x0e7…108 »// IFF DATAF1-PD3.CCTL GOTO STEPC« 0x108…109 0x57 0x109…10a 0x8e 0x10a…118 »// LOAD $DELET« 0x118…119 0x6a 0x119…11a 0x86 0x11a…120 »// RUN« 0x120…121 0x72 0x121…122 0xa0 0x122…142 »// REMOVE LABEL-PD3.CCTL,UNIT-F1« 0x142…143 0x58 0x143…144 0x86 0x144…14a »// END« 0x14a…14b 0x72 0x14b…14c 0x8c 0x14c…158 »// TAG STEPC« 0x158…159 0x6c 0x159…15a 0x8d 0x15a…167 »// LOAD $COPY« 0x167…168 0x6b 0x168…169 0xb7 0x169…1a0 »// FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COM2,PACK-PPOLPD,« 0x1a0…1a1 0x41 0x1a1…1a2 0x82 0x1a2…1a4 »//« 0x1a4…1a5 0x03 0x1a5…1a6 0x90 0x1a6…1b6 »LOCATION-?1'S1'?« 0x1b6…1b7 0x63 0x1b7…1b8 0xbe 0x1b8…1f6 »// FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COM2,RECORDS-820,RETAIN-T« 0x1f6…1f7 0x3a 0x1f7…1f8 0x86 0x1f8…1fe »// RUN« 0x1fe…1ff 0x72 0x1ff…200 0x8b 0x200…20b »// COPYFILE« 0x20b…20c 0x6d 0x20c…20d 0x86 0x20d…213 »// END« 0x213…214 0x72 0x214…215 0x8d 0x215…222 »// LOAD $COPY« 0x222…223 0x6b 0x223…224 0xb7 0x224…25b »// FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.CCTL,PACK-PPOLPD,« 0x25b…25c 0x41 0x25c…25d 0x82 0x25d…25f »//« 0x25f…260 0x03 0x260…261 0x90 0x261…271 »LOCATION-?1'S1'?« 0x271…272 0x63 0x272…273 0xbf 0x273…2b2 »// FILE NAME-COPYO,UNIT-F1,LABEL-PD3.CCTL,RECORDS-1200,RETAIN-T« 0x2b2…2b3 0x39 0x2b3…2b4 0x86 0x2b4…2ba »// RUN« 0x2ba…2bb 0x72 0x2bb…2bc 0x8b 0x2bc…2c7 »// COPYFILE« 0x2c7…2c8 0x6d 0x2c8…2c9 0x86 0x2c9…2cf »// END« 0x2cf…2d0 0x72 0x2d0…2d1 0x8d 0x2d1…2de »// LOAD $COPY« 0x2de…2df 0x6b 0x2df…2e0 0xb7 0x2e0…317 »// FILE NAME-COPYIN,UNIT-I1,LABEL-PD3.COMM,PACK-PPOLPD,« 0x317…318 0x41 0x318…319 0x82 0x319…31b »//« 0x31b…31c 0x03 0x31c…31d 0x90 0x31d…32d »LOCATION-?1'S1'?« 0x32d…32e 0x63 0x32e…32f 0xbf 0x32f…36e »// FILE NAME-COPYO,UNIT-F1,LABEL-PD3.COMM,RECORDS-3930,RETAIN-T« 0x36e…36f 0x39 0x36f…370 0x86 0x370…376 »// RUN« 0x376…377 0x72 0x377…378 0x8b 0x378…383 »// COPYFILE« 0x383…384 0x6d 0x384…385 0x86 0x385…38b »// END« 0x38b…38c 0x72 0x38c…38d 0x97 0x38d…3a4 »// IFF ?CD?/0000 RETURN« 0x3a4…3a5 0x61 0x3a5…3a6 0xc6 0x3a6…3ec »LOGPLD LOAD,COMMPD,NONE,,'0050,##MSGPL2',,'PD3.COMM,PD3.COM2,PD3.CCTL'« 0x3ec…3ed 0x32 0x3ed…3ee 0xaf 0x3ee…41d »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDILOD12'« 0x41d…41e 0x49 0x41e…41f 0x8d 0x41f…42c »// LOAD $CNAD« 0x42c…42d 0x6b 0x42d…42e 0x86 0x42e…434 »// RUN« 0x434…435 0x72 0x435…436 0xaf 0x436…465 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'BCPDMRI 12'« 0x465…466 0x49 0x466…467 0x8d 0x467…474 »// LOAD $CNAD« 0x474…475 0x6b 0x475…476 0x86 0x476…47c »// RUN« 0x47c…47d 0x72 0x47d…47e 0xbd 0x47e…4bb »// IF DATAF1-#PSPTITL IF DATAF1-PD1.SCRN IF DATAF1-PD1.SCR2 +« 0x4bb…4bc 0x3b 0x4bc…4bd 0x03 0x4bd…4be 0xae 0x4be…4ec »IF DATAF1-PD1.CTRL IF DATAF1-#ONLPD GOTO STEPM« 0x4ec…4ed 0x47 0x4ed…4ee 0x9e 0x4ee…50c »// IFF ?L'61,1'?/1 GOTO SINGLE« 0x50c…50d 0x5a 0x50d…50e 0x9e 0x50e…52c »// IFF ?L'230,1'?/1 GOTO KANJI« 0x52c…52d 0x2a 0x52d…52e 0x81 0x52e…52f »1« 0x52f…530 0x2f 0x530…531 0xc6 0x531…577 »// IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,02« 0x577…578 0x32 0x578…579 0xba 0x579…5b3 »// ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,02« 0x5b3…5b4 0x3e 0x5b4…5b5 0x89 0x5b5…5be »// RETURN« 0x5be…5bf 0x6f 0x5bf…5c0 0x8c 0x5c0…5cc »// TAG KANJI« 0x5cc…5cd 0x6c 0x5cd…5ce 0x9f 0x5ce…5ed »// IFF ?L'67,1'?/1 GOTO ENGLISH« 0x5ed…5ee 0x29 0x5ee…5ef 0x81 0x5ef…5f0 »1« 0x5f0…5f1 0x2f 0x5f1…5f2 0xc6 0x5f2…638 »// IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,05« 0x638…639 0x32 0x639…63a 0xba 0x63a…674 »// ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,05« 0x674…675 0x3e 0x675…676 0x89 0x676…67f »// RETURN« 0x67f…680 0x6f 0x680…681 0x8e 0x681…68f »// TAG ENGLISH« 0x68f…690 0x6a 0x690…691 0xc6 0x691…6d7 »// IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,01« 0x6d7…6d8 0x32 0x6d8…6d9 0xba 0x6d9…713 »// ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,01« 0x713…714 0x3e 0x714…715 0x89 0x715…71e »// RETURN« 0x71e…71f 0x6f 0x71f…720 0x8d 0x720…72d »// TAG SINGLE« 0x72d…72e 0x6b 0x72e…72f 0xc5 0x72f…774 »// IFT ?L'236,1'?/1 INSTNCOP OLPD,OLPDILOD,5727-SS6,?L'310,2'?,68,2,,« 0x774…775 0x33 0x775…776 0xb9 0x776…7af »// ELSE INSTNCOP OLPD,OLPDILOD,5727-SS1,?L'310,2'?,68,2,,« 0x7af…7b0 0x3f 0x7b0…7b1 0x89 0x7b1…7ba »// RETURN« 0x7ba…7bb 0x6f 0x7bb…7bc 0x8c 0x7bc…7c8 »// TAG STEPM« 0x7c8…7c9 0x6c 0x7c9…7ca 0x97 0x7ca…7e1 »// IFF ?CD?/0000 RETURN« 0x7e1…7e2 0x61 0x7e2…7e3 0x00 0x7e3…800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆