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

⟦c1d2238ad⟧ s3xseg

    Length: 508 (0x1fc)
    Types: s3xseg
    Names: »P$SGEN1«

Derivation

└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
    └─⟦2a281693d⟧ 
        └─⟦this⟧ »P$SGEN1« 
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
    └─⟦decd4c985⟧ 
        └─⟦this⟧ »P$SGEN1« 

TextSegment

// LOAD $SGEN1,R1                                                                               
*                                                                                               
*        SCAN THE SYSTEM CONFIGURATION OUTPUT FILE AND BUILD A NEW                              
*        SUPERVISOR, CONFIGURATION RECORD AND SET UP TO COPY THE OPTIONAL                       
*        SYSTEM CONTROL PROGRAMS                                                                
*                                                                                               
// FILE NAME-MACOUT,UNIT-F1,PACK-F1F1F1,RETAIN-S,TRACKS-20                                      
// FILE NAME-$WORK,UNIT-F1,PACK-F1F1F1,RETAIN-T,TRACKS-10                                       
// RUN                                                                                          
@..................................KKe{ggggggggg{ggggggggggggg'   2aaaaaaaaaBBBBBBBBBBBBBBBBBBBB
}gaÅBBBBBBBBBBBBBBBBBBBBBBBBB00                                                                 
                YES          80                                                                 
                             'E'                                                                
                       TEXT                                                                     
                       AIF   (&SCAMG).B                                                         
                       MNOTE '0,'IS'                                                            
                       MEXIT                                                                    
                .B     AIF   (&MICR NE 'E').C                                                   
                       MNOTE '0,'IR'                                                            
                       MEXIT                                                                    
                .C     ANOP