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

⟦0b8f28987⟧ s3xseg

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

Derivation

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

TextSegment

*                               RJE OPTIONS                                                     
       LINK                                                                                     
       $DRJE &RJE-                                                                              
       GBLB  &MLMPG,&BSCAE,&RJEG                                                                
       TABLE &RJE                                                                               
NO           00                                                                                 
YES          20                                                                                 
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&MLMPG).C                                                                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.C     ANOP                                                                                     
       AIF   (&RJE NE 'E').D                                                                    
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.D     ANOP                                                                                     
       AIF   (&RJE EQ '00').F                                                                   
       AIF   (&BSCAE).E                                                                         
       MNOTE '0,'IC'                                                                            
       MEXIT                                                                                    
.E     ANOP                                                                                     
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@RJ.ALL,NEWNAME-$$RJ                             
.F     ANOP                                                                                     
&MLMPG SETB  0                                                                                  
&RJEG  SETB  1                                                                                  
//     CONFG N,25,&RJE                                                                          
       MEND