|
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: »SXRF19«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF19«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF19«
H C 012 XRF19 0000
F* 0010
F* 0020
F****************************************************** 0030
F* 5798-NKG COPYRIGHT IBM CORP. 1977. REFER TO * 0040
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0050
F****************************************************** 0060
F* 0070
F* THIS PROGRAM READS THROUGHT THE 'LIBRARY-FILE' OF 0080
F* PROGRAMS AND PRODUCES A FILE OF '/COPY'ED MODULE NAMES 0090
F* FOUND BY PROGRAM FOR SORT AT 20 AND LIST AT 21. 0100
F* 0110
FPROGRAMSIPE F 960 96 DISK40 0120
FBOOKOUT O F 247 19 DISK 0130
IPROGRAMSNS 04 1 C/ 2 C/ 0140
I NS 01 6 CH 0150
I/COPY R1,AUX088 0160
I NS 02 7 C/ 0170
I OR 03 0180
I/COPY R1,AUX086 0190
C 04 Z-ADD0 LINE 72 0200
C 01 MOVE PROGRM PRGSAV 6 0210
C N04 10 ADD LINE LINE 0220
C 02 MOVE PRGSAV PROGRM 0230
C****************************************************** 0240
CLR MOVE '5798-NKG'COIBM 8 * 0250
CLR MOVE 'COPYRIGH'COIBM * 0260
CLR MOVE 'T IBM CO'COIBM * 0270
CLR MOVE 'RP. 1977'COIBM * 0280
C****************************************************** 0290
C* 0300
OBOOKOUT D 02 0310
O/COPY R1,AUX061 0320