|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3810 (0xee2)
Types: s3xseg
Names: »S$LOAD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$LOAD«
MACRO 00010000
&LABEL $LOAD &NAME-,&FIND-,&LOAD-,&USE-,&PLIST-,&PACK- 00190000
TABLE &LOAD 00200000
'' TABDF '*-*' 00210000
2 TABDF '*-*' 00220000
TABLE &USE 00230000
'' TABDF 'NR' 00240000
TABLE &TYPE 00250000
'' TABDF 'O' 00260000
TABLE &PACK 00270000
'' TABDF 'P' 00280000
TEXT 00290000
* LOAD A MODULE INTO CORE RELEASE-8 00290001
AIF (T'&LABEL EQ 'O').A 00300000
&LABEL EQU * GENERATE USER LABEL 00310000
.A AIF (T'&NAME EQ 'O').OWN 00320000
AIF (&USE EQ 'R').REUSE 00330000
AIF (&LOAD NE '*-*').B 00340000
AIF (T'&FIND EQ 'O').A1 00350000
ST &FIND+9,$LDADR STORE LOAD ADDRESS IN FIND PARM 00360000
AGO .B 00370000
.A1 ST $&SYSNDX+9,$LDADR STORE LOAD ADDRESS IN FIND LIST 00380000
.B ANOP 00390000
J $S&SYSNDX JUMP AROUND FIND PARM LIST 00400000
AIF (T'&FIND EQ 'O').B1 00410000
&FIND EQU * GENERATE USER PARM LIST LABEL 00420000
AGO .B2 00430000
.B1 ANOP 00440000
$&SYSNDX EQU * GENERATE DEFAULT PARM LIST LABEL 00450000
.B2 DC CL1'&TYPE' LIBRARY 00460000
DC CL6'&NAME' MODULE NAME 00470000
DS XL1 USED BY LOAD 00480000
DC AL2(&LOAD) LOAD 00490000
$S&SYSNDX EQU * GENERATE MACRO LABEL 00500000
AIF (T'&FIND EQ 'O').B3 00510000
LA &FIND,$PARM LOAD FIND PARM LIST LABEL 00520000
AGO .B4 00530000
.B3 LA $&SYSNDX,$PARM LOAD FIND PARM LIST ADDRESS 00540000
.B4 B 4 GOTO GENERAL ENTRY 00550000
AIF (&PACK EQ 'S').S69A 00560000
DC XL1'49' LOAD FROM PROGRAM PACK 00570000
AGO .MEXIT 00580000
.S69A DC XL1'69' LOAD FROM SYSTEM PACK 00590000
AGO .MEXIT 00600000
.OWN AIF (&LOAD EQ '*-*').C 00610000
LA &LOAD,$LDADR ADDRESS OF LOAD POINT 00620000
.C ST &FIND+9,$LDADR STORE LOAD ADDRESS IN PARM LIST 00630000
LA &FIND,$PARM LOAD ADDRESS OF FIND PARM LIST 00640000
.C2 B 4 GOTO GENERAL ENTRY 00650000
AIF (&PACK EQ 'S').S68A 00660000
DC XL1'48' RIB - LOAD W/OUT FIND PGM PACK 00670000
AGO .MEXIT 00680000
.S68A DC XL1'68' LOAD W/OUT FIND SYSTEM PACK 00690000
AGO .MEXIT 00700000
.REUSE ANOP 00710000
AIF (&LOAD NE '*-*').D 00720000
ST $0&SYSNDX,$LDADR STORE LOAD ADDR IN FIND PARM LIS 00730000
.D AIF (T'&FIND EQ 'O').D1 00740000
AIF (T'&PLIST EQ 'O').D4 00750000
MVC &FIND+9(10),&PLIST+9 MOVE TO REUSABLE LIST 00760000
AGO .D5 00770000
.D1 AIF (T'&PLIST EQ 'O').D3 00780000
MVC $&SYSNDX+9,&PLIST+9(10) MOVE TO REUSABLE LIST 00790000
AGO .D5 00800000
.D3 MVC $&SYSNDX+9,$P&SYSNDX+9(10) MOVE TO REUSABLE LIST 00810000
AGO .D5 00820000
.D4 MVC &FIND+9(10),$P&SYSNDX+9 MOVE TO REUSABLE LIST 00830000
.D5 ANOP 00840000
J $S&SYSNDX JUMP AROUND FIND PARM LIST 00850000
* THE FIXED PARM LIST FOR LOAD 00860000
AIF (T'&PLIST EQ 'O').D6 00870000
&PLIST EQU * GENERATE USER LABEL 00880000
AGO .D7 00890000
.D6 ANOP 00890001
$P&SYSNDX EQU * GENERATE DEFAULT PARM LIST LABL 00900000
.D7 DC CL1'&TYPE' LIBRARY 00910000
DC CL6'&NAME' MODULE NAME 00920000
DC XL1'FE' USED BY LOAD 00930000
$0&SYSNDX DC AL2(&LOAD) LOAD ADDRESS 00940000
AIF (T'&FIND EQ 'O').E 00950000
&FIND EQU * GENERATE USER LABEL 00960000
AGO .E1 00970000
.E ANOP 00980000
$&SYSNDX EQU * GENERATE DEFAULT LABEL 00990000
.E1 DC CL10'VAR. PLIST' REUSABLE PARM LIST 01000000
$S&SYSNDX EQU * GENERATE MACRO LABEL 01010000
AIF (T'&FIND EQ 'O').E4 01020000
LA &FIND,$PARM LOAD PARM LIST ADDRESS 01030000
AGO .E5 01040000
.E4 LA $&SYSNDX,$PARM LOAD PARM LIST ADDRESS 01050000
.E5 B 4 GOTO GENERAL ENTRY 01060000
AIF (&PACK EQ 'S').S69B 01070000
DC XL1'49' LOAD WITH FIND FROM PROGRAM PACK 01080000
AGO .MEXIT 01090000
.S69B DC XL1'69' LOAD WITH FIND FROM SYSTEM PACK 01100000
.MEXIT ANOP 01110000
SPACE 01130000
SPACE 01140000
MEND 01150000
'&FIND EQ 'O').D1 USER FIND LIST LABEL GIVEN? 00740000 AIF (T
'&PLIST EQ 'O').D4 U