|
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: »SXRF02«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF02«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF02«
H C 012 XRF02 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* THIS PROGRAM READS THROUGH A PROGRAM IN THE FILE 0070
F* RPGIN AND PRINTS IT, INCLUDING THE // COPY LINE AND 0080
F* ANY AUTO COPYED IN SPECS. COPYED SPECS ARE NOTED 0090
F* BY A 'C' PRINTED AT THE RIGHT. 0100
F* 0110
FRPGIN IPE F 960 96 DISK 0120
FSLIBRFILIC F 92 92R12AI 81 DISK40 U1 0130
FPRINTER O F 132 132 OF PRINTER 0140
IRPGIN NS 01 7 C/ 8 CC 0150
I OR 04 1 C* 2 C* 0160
I OR 02 0170
I/COPY R1,AUX086 0180
I SPEC L1 0190
I 1 96 DATA96 0200
ISLIBRFILNS 0210
I 1 80 DATA80 0220
C 04 SETON 05 0230
C SETOF 03 0240
C NU1 0250
CORN01 GOTO END 0260
C MOVELCOPYNM KEY 12 0270
C Z-ADD0 CTR 40 0280
C EXCPT 0290
C SETON 03 0300
C LOOP TAG 0310
C 1 ADD CTR CTR 0320
C MOVE CTR KEY 0330
C KEY CHAINSLIBRFIL 99 0340
C N99 EXCPT 0350
C N99 GOTO LOOP 0360
C END TAG 0370
C****************************************************** 0380
CLR MOVE '5798-NKG'COIBM 8 * 0390
CLR MOVE 'COPYRIGH'COIBM * 0400
CLR MOVE 'T IBM CO'COIBM * 0410
CLR MOVE 'RP. 1977'COIBM * 0420
C****************************************************** 0430
OPRINTER H 102 1P 0440
O OR OF 0450
O 1P UDATE Y 80 0460
O D 1 02 0470
O OR 31 04 0480
O DATA96 96 0490
O T 3 L1N05 0500
O EF 1 01 0510
O DATA80 80 0520
O 100 'C' 0530