|
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: 1016 (0x3f8)
Types: s3xseg
Names: »PXRF17«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »PXRF17«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »PXRF17«
* XRF17 - SORT SORCDECK I AND O SPECS FOR XRF18 // LOAD $DSORT,F1 // FILE NAME-INPUT,LABEL-SORCDECK,UNIT-D1,PACK-D1D1D1 // FILE NAME-OUTPUT,LABEL-ADDROUT,RECORDS-3000,UNIT-R1,PACK-R1R1R1 // RUN 0000 HSORTA 29A 3 3 XRF17 0001 I C 6EQCI INCLUDES JUST FIELD 0002 IAC 19EQCD DISK FIELDS ONLY 0003 FNC 53 58 FIELD NAME 0004 FNC 7 14 FILE NAME 0005 FNC 75 80 PROGRAM NAME 0006 FNC 6 PUT INPUT AHEAD OF OUTPUT 0007 FNC 48 51 FIELD'S 'TO' LOCATION 0008 FNC 44 47 INPUT 'FROM' 0009 O C 6NECO OMIT ALL ELSE BUT OUTPUT FIELDS 0010 I C 32NEC INCLUDE IF THERE'S A FIELD NAME 0011 IAC 19EQCD DISK FILES ONLY 0012 FNC 32 37 FIELD NAME 0013 FNC 7 14 FILE NAME 0014 FNC 75 80 PROGRAM 0015 FNC 6 PUT INPUT AHEAD OF OUTPUT 0016 FNC 40 43 FIELD'S 'END' POSITION 0017 FNC 15 18 DUMMY 'FROM'POSITION // END