|
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