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

⟦7d29c2510⟧ s3xseg

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

Derivation

└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
    └─⟦cfce0a73a⟧ 
        └─⟦this⟧ »S$SGUPC« 
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$SGUPC« 

TextSegment

// DATE 00/00/00                                                                                
*                                                                                               
***   AT THIS TIME A SCRATCH PACK SHOULD BE MOUNTED ON DRIVE-R1                                 
*                                                                                               
***   SET RIGHTMOST ADDRESS/DATA SWITCH TO 0,                                                   
*     PRESS CONSOLE START --HALT/RESET IF YOU HAVE DPF SYSTEM-- TO CONTINUE.                    
// PAUSE                                                                                        
// NOHALT                                                                                       
// CALL $SGINR,F1      INITIALIZE R1                                                            
// RUN                                                                                          
// CALL $SGCPY,F1      COPY TAILORED SYSTEM TO R1                                               
// RUN                                                                                          
// CALL $SGIVP,F1                                                                               
// RUN                                                                                          
*                                                                                               
*     R1 NOW HAS THE TAILORED SYSTEM PACK.                                                      
*                                                                                               
*            AT THIS POINT YOU CAN MODIFY OR ADD TO THE FOLLOWING                               
*            CONTROL STATEMENTS, AS NECESSARY, TO BUILD THE MINIMAL SYSTEM.                     
*                                                                                               
// PAUSE   IPL FROM R1, PRESS CONSOLE START --HALT/RESET IF YOU HAVE DPF SYSTEM-                
// DATE 00/00/00                                                                                
// NOHALT                                                                                       
// LOAD $MAINT,R1                                                                               
// RUN                                                                                          
// ALLOCATE TO-F1,SOURCE-0,OBJECT-0                                                             
// ALLOCATE TO-F1,SOURCE-4,OBJECT-40,SYSTEM-YES,DIRSIZE-3                                       
// COPY FROM-R1,TO-F1,LIBRARY-O,NAME-SYSTEM                                                     
// END                                                                                          
// PAUSE     END OF SYSTEM GENERATION