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

⟦2d3b0e0f3⟧ s3xseg

    Length: 254 (0xfe)
    Types: s3xseg
    Names: »P$SGINT«

Derivation

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

TextSegment

// LOAD $INIT,R1                                                                                
*                                                                                               
***        INITIALIZE F1                                                                        
*                                                                                               
// RUN                                                                                          
// UIN UNIT-F1,TYPE-CLEAR                                                                       
// VOL PACK-F1F1F1                                                                              
// END                                                                                          
                                                                                            AIF 
  (&CRTG).K                                                                                 MNOT
E '0,'IS'                                                                                   MEXI
T                                                                                    .K     AIF 
  (&SIAM NE 'E').L                                                                          MNOT
E '0,'IR'                                                                                   MEXI
T                                                                                    .L     AIF 
  (&SIAM EQ