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

⟦eb14b363a⟧ s3xseg

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

Derivation

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

TextSegment

     C****************************************************** LENGTH                         0000
     C*  CALCULATE FIELD LENGTH IN BYTES FROM INPUT SPEC.                                   0010
     C*  USED IN XRF14 AND 18                                                               0020
     CSR         LENGTH    BEGSR                                                            0030
     CSR         TO        COMP 0                        81                                 0040
     CSR         TO        SUB  FROM      ANS     30                                        0050
     CSRN81      ANS       ADD  1         ANS                                               0060
     CSR                   MOVE ANS       LONG    30                                        0070
     C*  SEE IF FIELD IS PACKED OR BINARY                                                   0080
     CSRN81                EXSR PBCOD                                                       0090
     CSR                   ENDSR                                                            0100