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

⟦58e4034b0⟧ s3xseg

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

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $CTLT &DTF-,&OPC-                                                00090000                
       TABLE &OPC                                                       00100000                
REW    TABDF '0B'                                                       00110000                
RUN    TABDF '0D'                                                       00120000                
WTM    TABDF '0A'                                                       00130000                
BSB    TABDF '1C'                                                       00140000                
BSF    TABDF '0C'                                                       00150000                
FSB    TABDF '1E'                                                       00160000                
FSF    TABDF '0E'                                                       00170000                
''     TABDF '0B'                                                       00180000                
       TEXT                                                             00190000                
*    BASIC TAPE CONTROL LINKAGE        RELEASE-7                        00200000                
       AIF   (T'&LABEL EQ 'O').A                                        00210000                
&LABEL EQU   *                                                          00220000                
.A     AIF   (T'&DTF EQ 'O').B                                          00230000                
       LA    &DTF,$DTF                 LOAD ADDRESS OF DTF              00240000                
.B     MVI   $TDOPC(,$DTF),X'&OPC'     SET CONTROL OPERATION IN DTF     00250000                
       B     DMBTPS                    BRANCH TO BASIC D.M.             00260000                
       MEND                                                             00270000                
      00380000                &NAME  EQU   *                                                    
      00390000                .PRINT AIF   (&$MG EQ '0').TEXT       $GEN MACRO REQUEST PRINT SUP
PRESS 00400000                       PRINT OFF                                                  
      00410000                .TEXT  AIF   (&$MCKL).NAME                                        
      0042