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

⟦fdcaf5228⟧ s3xseg

    Length: 508 (0x1fc)
    Types: s3xseg
    Names: »SAUX014«

Derivation

└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
    └─⟦8223a6838⟧ 
        └─⟦this⟧ »SAUX014« 
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
    └─⟦efad88270⟧ 
        └─⟦this⟧ »SAUX014«

TextSegment

     C****************************************************** PROC18                         0000
     CSR         PROC18    BEGSR                                                            0010
     CSR L2                MOVE FILNM     OLDFIL  8                                         0020
     C*  CALCULATE INPUT FIELD'S SIZE                                                       0030
     CSR 03                EXSR LENGTH                                                      0040
     C*  SEE IF IT WAS COPIED INPUT-IS IT REFERENCED?                                       0050
     CSR         COPY      COMP 'C'                      21                                 0060
     CSR 03 21             EXSR COPY                                                        0070
     CSR 04                                                                                 0080
     COR 03 21N99                                                                           0090
     COR 03N21N81          SETON                     41                                     0100
     CSR         FILNM     COMP OLDFIL               9090                                   0110
     CSR L1                                                                                     
     COR 90                SETON                     41                                     0120
     CSR                   MOVE FILNM     OLDFIL                                            0130
     CSR 41                SETON                     40                                     0140
     CSR                   ENDSR                                                            0150