DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/3

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/3

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦69cdaa270⟧ s3xseg

    Length: 1016 (0x3f8)
    Types: s3xseg
    Names: »S$FTCH«

Derivation

└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$FTCH« 

TextSegment

       MACRO                                                            00010000                
&LABEL $FTCH &NAME-,&PACK-                                              00090000                
       TABLE &PACK-                                                     00100000                
S      TABDF 'S'                                                        00110000                
P      TABDF 'P'                                                        00120000                
''     TABDF 'P'                                                        00130000                
       TEXT                                                             00140000                
*     LOAD A MODULE AT THE LINK EDIT ADDRESS      RELEASE-7             00140001                
       AIF   (T'&LABEL EQ 'O').A                                        00150000                
&LABEL EQU   *                        GENERATE USER LABEL               00160000                
.A     J     $S&SYSNDX                JUMP AROUND PARM LIST             00170000                
$&SYSNDX DC  CL1'O'                   LIBRARY                           00180000                
       DC    CL6'&NAME'               MODULE NAME                       00190000                
       DC    XL1'00'                  RESERVED                          00200000                
       DS    CL2                      RESERVED                          00210000                
$S&SYSNDX LA $&SYSNDX,$PARM           LOAD ADDR OF FIND PARM LIST       00220000                
       AIF   (&PACK EQ 'P').B                                           00230000                
       B     4                        BRANCH TO GENERAL ENTRY           00240000                
       DC    XL1'71'                  FETCH FROM SYSTEM PACK            00250000                
       AGO   .C                                                         00260000                
.B     B     4                        BRANCH TO GENERAL ENTRY           00270000                
       DC    XL1'51'                  FETCH FROM PROGRAM PACK           00280000                
.C     ANOP                                                             00290000                
       MEND                                                             00310000                
2aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}}}}}}}}}}}}}}}}}}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØl@Å
ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}RARY                           00180000                       
DC    CL6'&NAME'               MODULE NAME                       00190000                       
DC    XL1'00'                  RESERVED                          00200000                       
DS    CL2                      RESERVED                          00210000                $S&SYSN
DX LA $&SYSNDX,$PARM           LOAD ADDR OF F