|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 508 (0x1fc)
Types: s3xseg
Names: »SAUX011«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX011«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX011«
C****************************************************** PBCOD 0000
C* THIS SUBROUTINE USED IN XRF14 AND 18. 0010
C* CALCULATE TRUE FIELD LENGTH IF IT'S PACKED OR BINARY 0020
C* 0030
CSR PBCOD BEGSR 0040
CSR PB COMP 'P' 13 0050
CSR PB COMP 'B' 14 0060
CSR 13 ANS MULT 2 ANS 0070
CSR 13 ANS SUB 1 ANS 0080
CSR 13 MOVE ANS LONG 0090
CSR 14 ANS MULT 2 ANS 0100
CSR 14 MOVE ANS LONG 0110
CSR 14 LONG COMP 8 15 0120
CSR 14 15 1 ADD LONG LONG 0130
CSR ENDSR 0140