|
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: 1016 (0x3f8)
Types: s3xseg
Names: »S$FIND«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$FIND«
MACRO 00010000
&LABEL $FIND &NAME-,&FIND-,&PACK- 00100000
TABLE &PACK 00110000
'' TABDF 'P' 00120000
TEXT 00130000
* FIND THE DIRECTORY ENTRY FOR A MODULE RELEASE-7 00130001
AIF (T'&LABEL EQ 'O').A 00140000
&LABEL EQU * GENERATE USER LABEL 00150000
.A ANOP 00160000
J $S&SYSNDX JUMP AROUND PARM TABLE 00170000
AIF (T'&FIND EQ 'O').B 00180000
&FIND EQU * USER PARM LIST LABEL 00190000
AGO .C 00200000
.B ANOP 00210000
$&SYSNDX EQU * DEFAULT PARM LIST LABEL 00220000
.C DC CL1'O' LIBRARY 00230000
DC CL6'&NAME' MODULE NAME 00240000
DC CL1'&PACK' P OR S PACK 00250000
DC XL4'00' FILLED BY FIND 00260000
$S&SYSNDX EQU * 00270000
AIF (T'&FIND EQ 'O').D 00280000
LA &FIND,$PARM LOAD ADDRESS OF PARM LIST 00290000
AGO .E 00300000
.D LA $&SYSNDX,$PARM LOAD ADDRESS OF PARM LIST 00310000
.E B 4 BRANCH TO GENERAL ENTRY 00320000
DC XL1'81' RIB - FIND O.MODULE 00330000
MEND 00350000
IST LABEL 00220000 .C DC CL1'O' LIBRARY
00230000 DC CL6'&NAME' MODULE N