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

⟦d90ecf591⟧ s3xseg

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

Derivation

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

TextSegment

// LOAD $SGPRI,R1                                                                               
*                                                                                               
***           ESTABLISH  THE PRIMARY SYSTEM WHICH WILL TAKE CONTROL AT IPL TIME                 
*                                                                                               
*        WHEN THE PRINTER STOPS AT THE 'SWITCH' STATEMENT, INDICATE                             
*        WHICH SYSTEM IS TO BE YOUR PRIMARY IPL SYSTEM BY KEYING                                
*        IN ONE OF THE FOLLOWING SWITCH SETTINGS:                                               
*                                                                                               
*             11000000  -  SYSTEM/3 BASIC PRIMARY IPL SYSTEM                                    
*             10000000  -  DSM PRIMARY IPL SYSTEM                                               
*                                                                                               
*        THEN PRESS PROGRAM START TO CONTINUE PROCESSING                                        
*                                                                                               
// SWITCH                                                                                       
// RUN                                                                                          
-O,NAME-$@STH.ALL,NEWNAME-$$STH                           // COPY FROM-R1,TO-F1,RETAIN-P,L