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

⟦c12d383fc⟧ s3xseg

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

Derivation

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

TextSegment

       LINK                                                         @12                         
       $BOUT &DEV-                                                  @12                         
       GBLB  &OUTD,&OUTP,&#3741,&DREC                               @12                         
       TABLE &DEV                                                   @12                         
NO           FF        NOT AVAILABLE                                @12                         
DREC         02        DATA RECORDER                                @12                         
3741         04        3741 I/O DEVICE                              @12                         
             'E'       ERROR                                        @12                         
       TEXT                                                         @12                         
       AIF   (&OUTD).B                                              @12                         
       MNOTE '0,'IS'                                                @12                         
       MEXIT                                                        @12                         
.B     ANOP                                                         @12                         
       AIF   (&DEV NE 'E').C                                        @12                         
       MNOTE '0,'IR'                                                @12                         
       MEXIT                                                        @12                         
.C     ANOP                                                         @12                         
       AIF   (&DEV NE '02').D                                       @12                         
       AIF   (&DREC).E                                              @12                         
       MNOTE '0,'IC'                                                @12                         
       MEXIT                                                        @12                         
.D     ANOP                                                         @12                         
       AIF   (&DEV NE '04').E                                       @12                         
       AIF   (&#3741).E                                             @12                         
       MNOTE '0,'IC'                                                @12                         
       MEXIT                                                        @12                         
.E     ANOP                                                         @12                         
//     CONFG M,F7,&DEV                                              @12                         
&OUTP  SETB  1                                                      @12                         
       MEND                                                         @12