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

⟦16deff087⟧ s3xseg

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

Derivation

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

TextSegment

*                               DISKS OPTIONS                                                   
       LINK                                                                                     
       $DISK &DISKS-                                                                            
       GBLB  &DISKG,&DSDIO,&DPFG,&SWAG                                                          
       TABLE &DISKS                                                                             
R1,F1        8000                                                                               
R1,F1,R2     8001                                                                               
R1,F1,R2,F2  8003                                                                               
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&DPFG).B                                                                          
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.B     AIF   (&DISKS NE 'E').A                                                                  
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.A     ANOP                                                                                     
&DPFG  SETB  0                                                                                  
&DISKG SETB  1                                                                                  
//     CONFG N,10,&DISKS                                                                        
       AIF   (&DISKS EQ '8000').X1                                                              
&SWAG  SETB  1                                                                                  
.X1    ANOP                                                                                     
       AIF   (&DISKS NE '8000').C                                                               
       MEXIT                                                                                    
.C     ANOP                                                                                     
&DSDIO SETB  1                                                                                  
       MEND