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

⟦ca7e21e68⟧ s3xseg

    Length: 1016 (0x3f8)
    Types: s3xseg
    Names: »S$BDKT«

Derivation

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

TextSegment

*                               3741 DATA STATION OPTIONS           @12                         
       LINK                                                         @12                         
       $BDKT &DSKET-                                                @12                         
       GBLB  &OUTD,&OUTG,&#3741,&CORCT,&SUPCG,&DREC                 @13                         
       TABLE &DSKET                                                 @12                         
NO           00                                                     @12                         
3741         80                                                     @12                         
             'E'                                                    @12                         
       TEXT                                                         @12                         
       AIF   (&OUTG).B                                              @12                         
       MNOTE '0,'IS'                                                @12                         
       MEXIT                                                        @12                         
.B     AIF   (&DSKET NE 'E').F                                      @12                         
       MNOTE '0,'IR'                                                @12                         
       MEXIT                                                        @12                         
.F     ANOP                                                         @12                         
       AIF   (&DSKET NE '80').G                                     @12                         
       AIF   (&CORCT).D                                             @12                         
       MNOTE '0','IC'                                               @12                         
       MEXIT                                                        @12                         
.D     ANOP                                                         @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                                                                             
&SUPCG SETB  1                                                      @12                         
&#3741 SETB  1                                                      @12                         
       AIF   (&DREC EQ '1').G     IF D.RECORDER SUPPORTED GO ON     @13                         
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@RD.ALL,NEWNAME-$$RD                             
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STH.ALL,NEWNAME-$$STH                           
.G     ANOP                                                         @12                         
&OUTG  SETB  0                                                      @12                         
&OUTD  SETB  1                                                      @12                         
//     CONFG M,4C,&DSKET                                            @12                         
       MEND                                                         @12