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

⟦3dd1a2f91⟧ s3xseg

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

Derivation

└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
    └─⟦2a281693d⟧ 
        └─⟦this⟧ »S$BINQ« 
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
    └─⟦decd4c985⟧ 
        └─⟦this⟧ »S$BINQ«

TextSegment

*                               BINQ OPTIONS                                                    
       LINK                                                                                     
       $BINQ &INQURY-                                                                           
       GBLB  &COMKG,&INQG                                                                       
       TABLE &INQURY                                                                            
NO           00                                                                                 
YES          40                                                                                 
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&COMKG).A                                                                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.A     AIF   (&INQURY NE 'E').C                                                                 
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.C     AIF   (&INQURY NE '40').E                                                                
//     CONFG N,FA,&INQURY                                                                       
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STR.ALL,NEWNAME-$$STR                           
.E     ANOP                                                                                     
&COMKG SETB  0                                                                                  
&INQG  SETB  1                                                                                  
       MEND                                                                                     
 SYSTEM IS TO BE YOUR PRIMARY IPL SYSTEM BY KEYING                                *        IN ON
E OF THE FOLLOWING SW