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

⟦8bfc5fccb⟧ s3xseg

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

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABLE $PUTT &DTF-,&ERR-,&CODE-,&RECFM-                                 00130000                
       TABLE &CODE                                                      00140000                
A      TABDF A                                                          00150000                
E      TABDF T                                                          00160000                
''     TABDF T                                                          00170000                
       TEXT                                                             00180000                
*   TAPE PUT LINKAGE                   RELEASE-9                        00190000                
       AIF   (T'&LABLE EQ 'O').A                                        00200000                
&LABLE EQU   *                                                          00210000                
.A     AIF   (T'&DTF EQ 'O').B                                          00220000                
       LA    &DTF,$DTF                 LOAD ADDRESS OF DTF              00230000                
.B     MVI   $TDOPC(,$DTF),X'40'       SET OP CODE TO PUT               00240000                
       AIF   (&RECFM EQ 'V').C                                          00250000                
       B     $$CSO&CODE                BRANCH TO DATA MANAGEMENT        00260000                
       AGO   .D                                                         00270000                
.C     B     $$CS&CODE.O               BRANCH TO DATA MANAGEMENT        00280000                
.D     AIF   (T'&ERR EQ 'O').E                                          00290000                
       CLI   $TDCMP(,$DTF),X'41'       HARDWARE ERROR?                  00300000                
       BE    &ERR                      YES GO TO ERROR ROUTINE          00310000                
.E     ANOP                                                             00320000                
       MEND                                                             00330000