|
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: 2032 (0x7f0)
Types: s3xseg
Names: »SXRF18«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF18«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF18«
H C 012 XRF18 0000
F* 0010
F****************************************************** 0020
F* 5798-NKG COPYRIGHT IBM CORP. 1977. REFER TO * 0030
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0040
F****************************************************** 0050
F* 0060
F* ALPHA LISTING OF ALL DISK FILE FIELD NAMES. 0070
F* NAMES ARE SELECTED AND SORTED BY XRF17. 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FSORCDECKIP F 84R I DISK40 0110
FREFFILE IC F 12R12AI 1 DISK40 0120
FPRINTER O F 85 OF PRINTER 0130
E ADDROUT SORCDECK 0140
E IND 6 2 0150
IREFFILE NS 0160
ISORCDECKNS 03 6 CI 0170
I/COPY R1,AUX140 0180
I PROGRML1 0190
I FACT1 L2 0200
I NS 04 6 CO 0210
I/COPY R1,AUX144 0220
I PROGRML1 0230
I FACT1 L2 0240
C SETOF 2141 0250
C L2 SETOF 40 0260
C* PROCESS AN 'I' OR 'O' SPEC. 0270
C EXSR PROC18 0280
C****************************************************** 0290
CLR MOVE '5798-NKG'COIBM 8 * 0300
CLR MOVE 'COPYRIGH'COIBM * 0310
CLR MOVE 'T IBM CO'COIBM * 0320
CLR MOVE 'RP. 1977'COIBM * 0330
C/COPY R1,AUX014 0340
C/COPY R1,AUX010 0350
C/COPY R1,AUX011 0360
C/COPY R1,AUX003 0370
C****************************************************** 0380
OPRINTER H 63 OF 0390
O 25 '** INDICATES FIELD' 0400
O 43 'USED IN MORE THAN' 0410
O 53 'ONE FILE.' 0420
O H 202 1P 0430
O OR OF 0440
O UDATE Y 13 0450
O 22 'XRF18' 0460
O 40 'FIELD MULTI-FILE' 0470
O 55 'USAGE ANALYSIS' 0480
O PAGE Z 79 0490
O 76 'PAGE' 0500
O H 2 1P 0510
O OR OF 0520
O 12 'FIELD' 0530
O 20 'FILE' 0540
O 34 'PROGRAM' 0550
O 42 'DEVICE' 0560
O 47 'P/B' 0570
O 54 'FROM-' 0580
O 59 'TO' 0590
O 63 'DEC' 0600
O 69 'SIZE' 0610
O 75 'LINE' 0620
O 82 'I/O' 0630
O D 1 41 0640
O 90 7 '**' 0650
O FACT1 13 0660
O FILNM 24 0670
O PROGRM 33 0680
O DEVC 43 0690
O PB 46 0700
O 03 FROM Z 52 0710
O TO Z 59 0720
O 03 DECPS 62 0730
O 03 LONG Z 68 0740
O LINE 78 '0 . ' 0750
O N21 78 ' ' 0760
O 03 81 'I' 0770
O 04 81 'O' 0780
O T 1 L2 40 0790