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

⟦35df09c3e⟧ s3xseg

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

Derivation

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

TextSegment

*                               3741 DATA STATION OPTIONS           @12                         
       LINK                                                         @12                         
       $DDKT &DSKET-                                                @12                         
       GBLB  &CARDG,&OUTD,&#3741                                    @12                         
       TABLE &DSKET                                                 @12                         
NO           00                                                     @12                         
3741         80                                                     @12                         
             'E'                                                    @12                         
       TEXT                                                         @12                         
       AIF   (&CARDG).B                                             @12                         
       MNOTE '0,'IS'                                                @12                         
       MEXIT                                                        @12                         
.B     ANOP                                                         @12                         
       AIF   (&DSKET NE 'E').F                                      @12                         
       MNOTE '0,'IR'                                                @12                         
       MEXIT                                                        @12                         
.F     ANOP                                                         @12                         
&CARDG SETB  0                                                      @12                         
&OUTD  SETB  1                                                      @12                         
//     CONFG M,4C,&DSKET                                            @12                         
       AIF   (&DSKET NE '80').G                                     @12                         
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$7.ALL,NEWNAME-$$                                 
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$7.ALL,NEWNAME-$$                                 
       INCLD $@DKIO                                                 @12                         
&#3741 SETB  1                                                      @12                         
       MEXIT                                                                                    
.G     ANOP                                                         @12                         
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$STIV                                                
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$STF3                                                
       MEND                                                         @12