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

⟦48820b3d2⟧ s3xseg

    Length: 1524 (0x5f4)
    Types: s3xseg
    Names: »S$DAUX«

Derivation

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

TextSegment

*                               DAUX OPTIONS                                                    
       LINK                                                                                     
       $DAUX &AUX-                                                                              
       GBLB  &KEYBG,&DPFYS,&CG,&F2G,&ACON,&AUXG,&A1442,&AMFCU       @12                         
       GBLB  &#3741,&A3741,&KEY71                                   @12                         
       TABLE &AUX                                                                               
NO           0000                 NO AUX DEVICE SELECTED            @12                         
MFCU2        8001                                                                               
CONSOLE      8002                                                                               
1442         8003                                                                               
3741         8004                                                   @12                         
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&KEYBG).C           SEQUENCE CHECK                    @12                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.C     AIF   (&AUX NE 'E').A                                                                    
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.A     AIF   (&AUX EQ '0000').NO                                                                
       AIF   (&DPFYS).A2                                            @12                         
       AGO   .IC NO DPF BUT AUX SELECTED                                                        
.A2    AIF   (&AUX EQ '8001').A1                                    @12                         
       AIF   (&AUX EQ '8002').CON                                                               
       AIF   (&AUX EQ '8003').E42                                                               
       AIF   (&AUX EQ '8004').D71                                   @12                         
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.NO    AIF   (&CG).CONFG        IF MFCU2-EXIT                       @12                         
       AIF   (&DPFYS).B1                                            @12                         
       AGO   .CONFG             NO DPF - NO AUX                     @12                         
.A1    AIF   (&CG).MF                                               @12                         
       AGO   .IC                                                                                
.B1    AIF   (&F2G).IC          NO AUX BUT 1442 AND DPF                                         
       AIF   (&#3741).IC        NO AUX BUT 3741 AND DPF             @12                         
       AGO   .CONFG                                                                             
.CON   ANOP                                                                                     
       AIF   (&KEY71 EQ '0').IC                                                                 
&ACON  SETB  1                                                                                  
       AGO   .CONFG                                                                             
.E42   ANOP                                                                                     
       AIF   (&F2G EQ '0').IC                                                                   
&A1442 SETB  1                                                      @12                         
       AGO   .CONFG                                                                             
.MF    ANOP                                                                                     
&AMFCU SETB  1                                                                                  
       AGO   .CONFG                                                                             
.D71   ANOP                                                         @12                         
       AIF   (&#3741 EQ '0').IC                                     @12                         
&A3741 SETB  1                                                      @12                         
.CONFG ANOP                                                                                     
&AUXG  SETB  1                                                                                  
&KEYBG SETB  0                                                                                  
//     CONFG N,53,&AUX                                              @12                         
       MEXIT                                                                                    
.IC    MNOTE '0,'IC'                                                                            
       MEND