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

⟦570e55583⟧ s3xseg

    Length: 508 (0x1fc)
    Types: s3xseg
    Names: »S$DSAM«

Derivation

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

TextSegment

*                               BSCAM OPTIONS                                                   
       LINK                                                                                     
       $DSAM &SIAM-                                                                             
       GBLB  &OLEG,&SCAMG                                                                       
       TABLE &SIAM                                                                              
NO           00                                                                                 
YES          80                                                                                 
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&OLEG).K                                                                          
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.K     AIF   (&SIAM NE 'E').L                                                                   
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.L     AIF   (&SIAM EQ '00').M                                                                  
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@SC.ALL,NEWNAME-$$SC                             
.M     ANOP                                                                                     
//     CONFG M,F8,&SIAM                                                                         
&OLEG  SETB  0                                                                                  
&SCAMG SETB  1                                                                                  
       MEND                                                                                     
EXIT                                                                                    .B     A
IF   (&PRINT NE 'E').A                                                                         M
NOTE '0,'IR'                                                                                   M
EXIT                                                                                    .A     A
NOP                                                                                     &DATEG S
ET