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

⟦888845f55⟧ s3xseg

    Length: 1016 (0x3f8)
    Types: s3xseg
    Names: »S$DCON«

Derivation

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

TextSegment

*                               DCONS SELECT OPTION                                             
       LINK                                                                                     
       $DCON &CON-                                                                              
       GBLB  &AUXG,&DPFYS,&CG,&KEY71,&ACON,&A1442,&CONG,&AMFCU      @12                         
       GBLB  &#3741,&A3741,&F2G                                     @12                         
       TABLE &CON                                                                               
NO           0000                                                                               
MFCU2        8001                                                                               
CONSOLE      8002                                                                               
1442         8003                                                                               
3741         8004                                                   @12                         
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&AUXG).C                                                                          
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.C     AIF   (&CON NE 'E').A                                                                    
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.A     AIF   (&CON EQ '0000').EXIT                                  @12                         
       AIF   (&DPFYS).A1                                                                        
       AGO   .IC                                                                                
.A1    AIF   (&CON EQ '8002').CON                                                               
       AIF   (&CON EQ '8001').MF                                                                
       AIF   (&CON EQ '8003').F42                                                               
       AIF   (&CON EQ '8004').B1                                    @12                         
       MNOTE '0,'IC'                                                                            
       MEXIT                                                                                    
.B1    ANOP                                                         @12                         
       AIF   (&A3741).IC                                            @12                         
       AIF   (&#3741 EQ '0').IC                                     @12                         
       AGO   .EXIT                                                  @12                         
.CON   AIF   (&ACON).IC                                                                         
       AIF   (&KEY71 EQ '0').IC                                                                 
       AGO   .EXIT                                                                              
.F42   AIF   (&A1442).IC                                            @12                         
       AIF   (&F2G EQ '0').IC                                                                   
       AGO   .EXIT                                                                              
.MF    AIF   (&AMFCU).IC                                                                        
       AIF   (&CG EQ '0').IC                                                                    
.EXIT  ANOP                                                                                     
//     CONFG M,51,&CON                                              @12                         
&AUXG  SETB  0                                                                                  
&CONG  SETB  1                                                                                  
       MEXIT                                                                                    
.IC    MNOTE '0,'IC'                                                                            
       MEND