|
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: 762 (0x2fa)
Types: s3xseg
Names: »SAUX004«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX004«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX004«
C****************************************************** COPI 0000
C* THIS SUBROUTINE USED IN XRF03, 04 AND 23. 0010
C* 0020
C* LOOP THROUGH SLIBRFIL TO BRING IN ALL 'COPY'ED 0030
C* RECORDS. PROCESS WITH SUBR GETTYP AS IF THEY 0040
C* CAME FROM THE CARD READER OR 3741 AS HARD CODE. 0050
CSR COPI BEGSR 0060
CSR MOVELCOPYNM KEY 12 0070
CSR CT SUB CT CT 40 0080
CSR LOOPX TAG 0090
CSR 1 ADD CT CT 0100
CSR MOVE CT KEY 0110
CSR SETOF 020304 0120
CSR SETOF 050607 0130
CSR SETOF 089799 0140
CSR KEY CHAINSLIBRFIL 99 0150
CSRN99 .01 ADD LINE LINE 0160
C* BYPASS COMMENTS. 0170
CSR 97N99 GOTO LOOPX 0180
CSRN99 EXSR GETTYP 0190
CSRN99 GOTO LOOPX 0200
CSR ENDSR 0210