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

⟦863c6c406⟧ s3xseg

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

Derivation

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

TextSegment

*              SUPERVISOR EXTENSION OPTIONS                                                     
       LINK                                                                                     
       $DSPV &ADD-                                                                              
       GBLB  &SCAMG,&SPVG                                                                       
       GBLB  &SADD1,&SADD2,&SADD3                                                               
       TABLE &ADD                                                                               
0            0                                                                                  
256          1                                                                                  
512          2                                                                                  
768          3                                                                                  
1024         4                                                                                  
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&SCAMG).A                                                                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.A     AIF   (&ADD NE 'E').B                                                                    
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.B     ANOP                                                                                     
&SCAMG SETB  0                                                                                  
&SPVG  SETB  1                                                                                  
       AIF   (&ADD EQ '0').F                                                                    
&SADD1 SETB  1                                                                                  
       AIF   (&ADD GE '3').C                                                                    
       AIF   (&ADD EQ '1').F                                                                    
       AGO   .D                                                                                 
.C     ANOP                                                                                     
&SADD2 SETB  1                                                                                  
       AIF   (&ADD EQ '3').F                                                                    
.D     ANOP                                                                                     
&SADD3 SETB  1                                                                                  
.F     MEND