|
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: 1778 (0x6f2)
Types: s3xseg
Names: »SXRF25«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF25«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF25«
H C 012 XRF25 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* FIELD AND INDICATOR XREF FOLLOWING XRF22, $MAINT, 0070
F* RPG, AUTO, OR XRF02, XRF23 AND XRF24. 0080
C****************************************************** 0090
F* 0100
FADDROUT IR F 255 3 3IT EDISK 0110
FXREFFILEIP F 91R I DISK40 0120
FPRINTER O F 96 OF PRINTER 0130
E ADDROUT XREFFILE 0140
IXREFFILENS 01 0150
I/COPY R1,AUX082 0160
I RECCD L2 02 0170
I FLDINDL1 0180
C L2 02 MOVE DATA80 PROGRM 6 0190
C L1 OLDLIN SUB OLDLIN OLDLIN 72 0200
C LINE COMP OLDLIN 04 0210
C COPY COMP 'C' 05 0220
C MOVE LINE OLDLIN 0230
C* 0240
C****************************************************** 0250
CLR MOVE '5798-NKG'COIBM 8 * 0260
CLR MOVE 'COPYRIGH'COIBM * 0270
CLR MOVE 'T IBM CO'COIBM * 0280
CLR MOVE 'RP. 1977'COIBM * 0290
C****************************************************** 0300
C* 0310
OPRINTER H 202 L2 0320
O OR OFNL2 0330
O UDATE Y 12 0340
O 30 'XRF25 ' 0350
O 02 43 'FIELD' 0360
O N02 43 'INDICATOR' 0370
O 62 'USAGE ANALYSIS FOR' 0380
O PROGRM 69 0390
O PAGE Z 94 0400
O 91 'PAGE' 0410
O H 1 L2 0420
O OR OFNL2 0430
O 02 5 'FIELD' 0440
O N02 4 'IND.' 0450
O 10 'LINE' 0460
O 59 'I N S T R U C T I O N' 0470
O 70 'I M A G E' 0480
O 37 '- - - - - - - - - - - -' 0490
O 94 '- - - - - - - - - - - -' 0500
O H 1 L1 0510
O OR OFNL1 0520
O FLDIND 6 0530
O D 1 01N04 0540
O LINE 13 '0 . ' 0550
O DATA80 94 0560
O N05 13 ' ' 0570