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

⟦928d0b9a1⟧ s3xseg

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

Derivation

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

TextSegment

*                         MLMP OPTIONS                                                          
       LINK                                                                                     
       $DMLP &MLMP-                                                                             
       GBLB  &MLMPG,&BSCAG,&BING,&BSCAE                                                         
       TABLE &MLMP                                                                              
YES          'Y'                                                                                
NO           'N'                                                                                
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&BSCAG).A                                                                         
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.A     AIF   (&MLMP NE 'E').B                                                                   
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.B     AIF   (&MLMP EQ 'N').C                                                                   
       AIF   (&BSCAE EQ '1').D                                                                  
       MNOTE '0,'IC'                                                                            
       MEXIT                                                                                    
.D     ANOP                                                                                     
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@BC.ALL,NEWNAME-$$BS                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@BC.ALL,NEWNAME-$$BS                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@DLQ.ALL,NEWNAME-$$DLQ                           
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$BCPL                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$DTOB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$CANB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$DTFB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$GETB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$POLB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$PUTB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$RFT                                              
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$CHGB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$BCSW                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$SWIB                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$RFTL                                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-S,NAME-$LOGB                                             
&BING  SETB  1                                                                                  
.C     ANOP                                                                                     
&MLMPG SETB  1                                                                                  
&BSCAG SETB  0                                                                                  
       MEND