|
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: 1792 (0x700)
Notes: MEMBER_P, Member_Text
Names: »#IPLPROC«
└─⟦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⟧ ».#IPLPROC«
// MEMBER USER1-##MSG2 // IF ?2?/ GOTO IPL // LIBRARY NAME-0 00020000 // LOCAL AREA-SYSTEM,BLANK-*ALL // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?2?' // LOCAL AREA-SYSTEM,OFFSET-9,DATA-'?3?' // LOCAL AREA-SYSTEM,OFFSET-17,DATA-'?4'COMPRESS'?' // LOAD #MSIPL // IF ?2?/F1 GOTO F1 00040000 // FILE NAME-#IPLBOOT,UNIT-?2?,AUTO-NO, 00060000 // IFF ?6?/ DATE-?6?, 00090000 // IF ?2?/I1 LOCATION-?8'M1.01'? // ELSE END-REWIND // TAG F1 // RUN // IFF ?L'29,7'?/FREELOW RETURN // * '?L'17,24'?' // INCLUDE ?L'17,24'? // LOAD #MSIPL // RUN // RETURN // TAG IPL // SWITCH 10000000 // IFF ?1?/ IF PROC-'#STRTUP1,?1?' SWITCH XXXX1XXX // IF PROC-#STRTUP1 SWITCH XXXX1XXX // IFF ?1?/ IF PROC-'#STRTUP2,?1?' SWITCH XXXXX1XX // IF PROC-#STRTUP2 SWITCH XXXXX1XX // LOAD #MSCFG // RUN // IF SWITCH1-0 GOTO IP1 // * 1750 // LOAD #MSBLD // RUN // * 1956 // IFF LOAD-'#TMBLD,#LIBRARY' GOTO IP1 // * 3203 // LOAD #TMBLD // RUN // * 3204 // TAG IP1 // IF PROC-'INSTALL,#LIBRARY' INSTALL,#LIBRARY // IF SWITCH7-1 HELP APAR // IFF LOAD-'#TUIPL,#TULIB' GOTO IPAPAR // LOAD #TUIPL,#TULIB // RUN // TAG IPAPAR // IF SWITCH4-1 IFF DATAF1-#X25LIB BLDLIBR #X25LIB,6,2 // IFF DATAF1-#CNFGLIB BLDLIBR #CNFGLIB,6,2 // IF SWITCH2-0 GOTO IP2 // CNFDROP // CONDENSE #LIBRARY // TAG IP2 // IFF DATAF1-#QUERY GOTO IPLPTF // * 3950 // CONDENSE #QUERY // TAG IPLPTF // IF PROC-'OFCIP01,#LIBRARY' OFCIP01,#LIBRARY // IF SWITCH8-0 GOTO IP3 // PTF APPLY,ALLPTF // TAG IP3 // LOAD #MAXRF // RUN // IF PROC-'#IPLVASP,#VASPLIB' #IPLVASP,#VASPLIB // SWITCH 0000XX00 // IF SWITCH5-0 GOTO IP4 // SWITCH 00000X00 #STRTUP1 // TAG IP4 // * 1751 // LOAD #MSCPR // RUN // IF SWITCH6-0 RETURN // SWITCH XXXXX0XX #STRTUP2
0x000…001 0x96 0x001…017 »// MEMBER USER1-##MSG2« 0x017…018 0x3a 0x018…019 0x93 0x019…02c »// IF ?2?/ GOTO IPL« 0x02c…02d 0x3d 0x02d…02e 0x91 0x02e…03f »// LIBRARY NAME-0« 0x03f…040 0x37 0x040…041 0x88 0x041…049 »00020000« 0x049…04a 0x9f 0x04a…069 »// LOCAL AREA-SYSTEM,BLANK-*ALL« 0x069…06a 0x31 0x06a…06b 0xa8 0x06b…093 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?2?'« 0x093…094 0x28 0x094…095 0xa8 0x095…0bd »// LOCAL AREA-SYSTEM,OFFSET-9,DATA-'?3?'« 0x0bd…0be 0x28 0x0be…0bf 0xb3 0x0bf…0f2 »// LOCAL AREA-SYSTEM,OFFSET-17,DATA-'?4'COMPRESS'?'« 0x0f2…0f3 0x1d 0x0f3…0f4 0x8e 0x0f4…102 »// LOAD #MSIPL« 0x102…103 0x42 0x103…104 0x94 0x104…118 »// IF ?2?/F1 GOTO F1« 0x118…119 0x34 0x119…11a 0x88 0x11a…122 »00040000« 0x122…123 0xa7 0x123…14a »// FILE NAME-#IPLBOOT,UNIT-?2?,AUTO-NO,« 0x14a…14b 0x21 0x14b…14c 0x88 0x14c…154 »00060000« 0x154…155 0x95 0x155…16a »// IFF ?6?/ DATE-?6?,« 0x16a…16b 0x33 0x16b…16c 0x88 0x16c…174 »00090000« 0x174…175 0xa0 0x175…195 »// IF ?2?/I1 LOCATION-?8'M1.01'?« 0x195…196 0x30 0x196…197 0x92 0x197…1a9 »// ELSE END-REWIND« 0x1a9…1aa 0x3e 0x1aa…1ab 0x89 0x1ab…1b4 »// TAG F1« 0x1b4…1b5 0x47 0x1b5…1b6 0x86 0x1b6…1bc »// RUN« 0x1bc…1bd 0x4a 0x1bd…1be 0x98 0x1be…1d6 »// IFF ?L'29,7'?/FREELOW« 0x1d6…1d7 0x02 0x1d7…1d8 0x86 0x1d8…1de »RETURN« 0x1de…1df 0x30 0x1df…1e0 0x91 0x1e0…1f1 »// * '?L'17,24'?'« 0x1f1…1f2 0x3f 0x1f2…1f3 0x95 0x1f3…208 »// INCLUDE ?L'17,24'?« 0x208…209 0x3b 0x209…20a 0x8e 0x20a…218 »// LOAD #MSIPL« 0x218…219 0x42 0x219…21a 0x86 0x21a…220 »// RUN« 0x220…221 0x4a 0x221…222 0x89 0x222…22b »// RETURN« 0x22b…22c 0x47 0x22c…22d 0x8a 0x22d…237 »// TAG IPL« 0x237…238 0x46 0x238…239 0x92 0x239…24b »// SWITCH 10000000« 0x24b…24c 0x3e 0x24c…24d 0xb2 0x24d…27f »// IFF ?1?/ IF PROC-'#STRTUP1,?1?' SWITCH XXXX1XXX« 0x27f…280 0x1e 0x280…281 0xa3 0x281…2a4 »// IF PROC-#STRTUP1 SWITCH XXXX1XXX« 0x2a4…2a5 0x2d 0x2a5…2a6 0xb2 0x2a6…2d8 »// IFF ?1?/ IF PROC-'#STRTUP2,?1?' SWITCH XXXXX1XX« 0x2d8…2d9 0x1e 0x2d9…2da 0xa3 0x2da…2fd »// IF PROC-#STRTUP2 SWITCH XXXXX1XX« 0x2fd…2fe 0x2d 0x2fe…2ff 0x8e 0x2ff…30d »// LOAD #MSCFG« 0x30d…30e 0x42 0x30e…30f 0x86 0x30f…315 »// RUN« 0x315…316 0x4a 0x316…317 0x85 0x317…31c »// IF« 0x31c…31d 0x02 0x31d…31e 0x92 0x31e…330 »SWITCH1-0 GOTO IP1« 0x330…331 0x37 0x331…332 0x89 0x332…33b »// * 1750« 0x33b…33c 0x47 0x33c…33d 0x8e 0x33d…34b »// LOAD #MSBLD« 0x34b…34c 0x42 0x34c…34d 0x86 0x34d…353 »// RUN« 0x353…354 0x4a 0x354…355 0x89 0x355…35e »// * 1956« 0x35e…35f 0x47 0x35f…360 0xa6 0x360…386 »// IFF LOAD-'#TMBLD,#LIBRARY' GOTO IP1« 0x386…387 0x2a 0x387…388 0x89 0x388…391 »// * 3203« 0x391…392 0x47 0x392…393 0x8e 0x393…3a1 »// LOAD #TMBLD« 0x3a1…3a2 0x42 0x3a2…3a3 0x86 0x3a3…3a9 »// RUN« 0x3a9…3aa 0x4a 0x3aa…3ab 0x89 0x3ab…3b4 »// * 3204« 0x3b4…3b5 0x47 0x3b5…3b6 0x8a 0x3b6…3c0 »// TAG IP1« 0x3c0…3c1 0x46 0x3c1…3c2 0x85 0x3c2…3c7 »// IF« 0x3c7…3c8 0x02 0x3c8…3c9 0x97 0x3c9…3e0 »PROC-'INSTALL,#LIBRARY'« 0x3e0…3e1 0x02 0x3e1…3e2 0x90 0x3e2…3f2 »INSTALL,#LIBRARY« 0x3f2…3f3 0x20 0x3f3…3f4 0x99 0x3f4…40d »// IF SWITCH7-1 HELP APAR« 0x40d…40e 0x37 0x40e…40f 0xa7 0x40f…436 »// IFF LOAD-'#TUIPL,#TULIB' GOTO IPAPAR« 0x436…437 0x29 0x437…438 0x95 0x438…44d »// LOAD #TUIPL,#TULIB« 0x44d…44e 0x3b 0x44e…44f 0x86 0x44f…455 »// RUN« 0x455…456 0x4a 0x456…457 0x8d 0x457…464 »// TAG IPAPAR« 0x464…465 0x43 0x465…466 0xb6 0x466…49c »// IF SWITCH4-1 IFF DATAF1-#X25LIB BLDLIBR #X25LIB,6,2« 0x49c…49d 0x1a 0x49d…49e 0xab 0x49e…4c9 »// IFF DATAF1-#CNFGLIB BLDLIBR #CNFGLIB,6,2« 0x4c9…4ca 0x25 0x4ca…4cb 0x85 0x4cb…4d0 »// IF« 0x4d0…4d1 0x02 0x4d1…4d2 0x92 0x4d2…4e4 »SWITCH2-0 GOTO IP2« 0x4e4…4e5 0x37 0x4e5…4e6 0x8a 0x4e6…4f0 »// CNFDROP« 0x4f0…4f1 0x46 0x4f1…4f2 0x94 0x4f2…506 »// CONDENSE #LIBRARY« 0x506…507 0x3c 0x507…508 0x8a 0x508…512 »// TAG IP2« 0x512…513 0x46 0x513…514 0xa0 0x514…534 »// IFF DATAF1-#QUERY GOTO IPLPTF« 0x534…535 0x30 0x535…536 0x89 0x536…53f »// * 3950« 0x53f…540 0x47 0x540…541 0x92 0x541…553 »// CONDENSE #QUERY« 0x553…554 0x3e 0x554…555 0x8d 0x555…562 »// TAG IPLPTF« 0x562…563 0x43 0x563…564 0x85 0x564…569 »// IF« 0x569…56a 0x02 0x56a…56b 0x97 0x56b…582 »PROC-'OFCIP01,#LIBRARY'« 0x582…583 0x02 0x583…584 0x90 0x584…594 »OFCIP01,#LIBRARY« 0x594…595 0x20 0x595…596 0x85 0x596…59b »// IF« 0x59b…59c 0x02 0x59c…59d 0x92 0x59d…5af »SWITCH8-0 GOTO IP3« 0x5af…5b0 0x37 0x5b0…5b1 0x93 0x5b1…5c4 »// PTF APPLY,ALLPTF« 0x5c4…5c5 0x3d 0x5c5…5c6 0x8a 0x5c6…5d0 »// TAG IP3« 0x5d0…5d1 0x46 0x5d1…5d2 0x8e 0x5d2…5e0 »// LOAD #MAXRF« 0x5e0…5e1 0x42 0x5e1…5e2 0x86 0x5e2…5e8 »// RUN« 0x5e8…5e9 0x4a 0x5e9…5ea 0xb0 0x5ea…61a »// IF PROC-'#IPLVASP,#VASPLIB' #IPLVASP,#VASPLIB« 0x61a…61b 0x20 0x61b…61c 0x92 0x61c…62e »// SWITCH 0000XX00« 0x62e…62f 0x3e 0x62f…630 0x85 0x630…635 »// IF« 0x635…636 0x02 0x636…637 0x92 0x637…649 »SWITCH5-0 GOTO IP4« 0x649…64a 0x37 0x64a…64b 0x92 0x64b…65d »// SWITCH 00000X00« 0x65d…65e 0x3e 0x65e…65f 0x88 0x65f…667 »#STRTUP1« 0x667…668 0x48 0x668…669 0x8a 0x669…673 »// TAG IP4« 0x673…674 0x46 0x674…675 0x89 0x675…67e »// * 1751« 0x67e…67f 0x47 0x67f…680 0x8e 0x680…68e »// LOAD #MSCPR« 0x68e…68f 0x42 0x68f…690 0x86 0x690…696 »// RUN« 0x696…697 0x4a 0x697…698 0x85 0x698…69d »// IF« 0x69d…69e 0x02 0x69e…69f 0x90 0x69f…6af »SWITCH6-0 RETURN« 0x6af…6b0 0x39 0x6b0…6b1 0x92 0x6b1…6c3 »// SWITCH XXXXX0XX« 0x6c3…6c4 0x3e 0x6c4…6c5 0x88 0x6c5…6cd »#STRTUP2« 0x6cd…6ce 0x48 0x6ce…6cf 0x00 0x6cf…6e0 40 e7 e7 e7 e7 e7 f1 e7 e7 1e a3 61 61 40 c9 c6 40 ┆ XXXXX1XX t// IF ┆ 0x6e0…700 d7 d9 d6 c3 60 7b e2 e3 d9 e3 e4 d7 f2 40 e2 e6 c9 e3 c3 c8 40 e7 e7 e7 e7 e7 f1 e7 e7 2d 8e 61 ┆PROC-#STRTUP2 SWITCH XXXXX1XX þ/┆