|
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: 1524 (0x5f4)
Types: s3xseg
Names: »SAUX005«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SAUX005«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SAUX005«
C***************************************************** COMMAS 0000
C* THIS SUBROUTINE USED IN XRF03 AND 22. 0010
E HOLDI 10 1 0020
E CHEK 6 1 0030
C* SCANS FIELD NAME FIELDS FROM I, C, OR O RECORDS. 0040
C* PICKS OUT FIRST FIELD NAME AND, IF PRESENT, AN 0050
C* INDEX VARIABLE NAME. 0060
CSR COMMAS BEGSR 0070
C* SEE IF THE FIELD STARTS WITH A-Z#$ OR @. 0080
CSR HOLDI,1 LOKUPLEGIT 14 0090
CSRN14 GOTO ENDCOM 0100
CSR MOVE ' ' BLNK6 6 0110
CSR MOVEABLNK6 CHEK 0120
CSR B SUB B B 20 0130
CSR C SUB C C 10 0140
CSR LOOPY TAG 0150
CSR SETOF 151619 0160
CSR B ADD 1 B 0170
CSR C ADD 1 C 0180
C* IF THE END OF THE FIELD IS PASSED, OR THE NEXT 0190
C* CHARACTER IS A BLANK OR A COMMA - QUIT THE LOOP. 0200
CSRN24 B COMP 6 18 0210
CSR 24 B COMP 10 18 0220
CSRN18 HOLDI,B COMP ' ' 18 0230
CSRN18 HOLDI,B COMP ',' 15 0240
CSRN15N18 C COMP 6 19 0250
CSRN15N18N19 MOVE HOLDI,B CHEK,C 0260
CSRN15N18N19 GOTO LOOPY 0270
C* BLANK, END OF FIELD OR A ',' HIT-MOVE THE FIELD 0280
C* NAME SELECTED THUS FAR AND OUTPUT IT. 0290
CSR MOVEACHEK FLDIND 6 0300
CSR EXSR DOIT 0310
CSR C SUB C C 0320
CSR MOVEABLNK6 CHEK 0330
C* SEE IF THE NEXT THING AFTER A ',' IS A FIELD NAME. 0340
C* DON'T BOTHER LOOKING IF IT ISN'T. 0350
CSR 15 1 ADD B E 20 0360
CSR 15 HOLDI,E LOKUPLEGIT 14 0370
CSR 15 14 GOTO LOOPY 0380
CSR ENDCOM ENDSR 0390