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

⟦77c0a69e5⟧ s3xseg

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

Derivation

└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$RDT«

TextSegment

       MACRO                                                            00010000                
&LABEL $RDT  &DTF-,&DIRECT-                                             00090000                
       TABLE &DIRECT                                                    00100000                
FORW   TABDF '04'                                                       00110000                
BACK   TABDF '06'                                                       00120000                
''     TABDF '04'                                                       00130000                
       TEXT                                                             00140000                
*  BASIC TAPE READ LINKAGE             RELEASE-7                        00150000                
       AIF   (T'&LABEL EQ 'O').A                                        00160000                
&LABEL EQU   *                         GENERATE MACRO LABEL             00170000                
.A     AIF   (T'&DTF EQ 'O').B                                          00180000                
       LA    &DTF,$DTF                 LOAD ADDRESS OF DTF              00190000                
.B     MVI   $TDOPC(,$DTF),X'&DIRECT'  SET READ OP CODE                 00200000                
       B     DMBTRW                    BRANCH TO BASIC TAPE D.M.        00210000                
       MEND                                                             00220000                
DISK