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

⟦38baea248⟧ s3xseg

    Length: 762 (0x2fa)
    Types: s3xseg
    Names: »S$DOUT«

Derivation

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

TextSegment

*                               SYSOUT OPTIONS                                                  
       LINK                                                                                     
       $DOUT &DEV-                                                                              
       GBLB  &F2G,&OUTG,&OUTD,&C71G,&CG,&#3741                      @12                         
       TABLE &DEV                                                                               
MFCU1        '00'                                                                               
MFCU2        '01'                                                                               
3741         '04'                                                   @12                         
1442         '81'                                                                               
NO           'FF'                                                                               
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&OUTD).B                                              @12                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.B     AIF   (&DEV NE 'E').A                                                                    
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.A     ANOP                                                                                     
       AIF   (&DEV NE '81').C                                                                   
       AIF   (&F2G).N                                                                           
       MNOTE '0,'IC'                                                                            
       MEXIT                                                                                    
.C     ANOP                                                                                     
       AIF   (&DEV EQ 'FF').N                                       @12                         
       AIF   (&DEV GT '01').D                                       @12                         
       AIF   (&CG).N                                                                            
       MNOTE '0,'IC'                                                                            
       MEXIT                                                        @12                         
.D     ANOP                                                         @12                         
       AIF   (&#3741).N                                             @12                         
       MNOTE '0,'IC'                                                @12                         
       MEXIT                                                        @12                         
.N     ANOP                                                                                     
//     CONFG M,F7,&DEV                                                                          
&OUTG  SETB  1                                                                                  
&OUTD  SETB  0                                                      @12                         
       MEND