|
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: 2540 (0x9ec)
Types: s3xseg
Names: »SXRF07«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF07«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF07«
H C 012 XRF07 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* PROGRAM/FILE CROSS REFERENCE AFTER XRF06 SORT. 0070
F* ONLY 'F' SPECS ARE INCLUDED BY THE SORT. 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FSORCDECKIP F 84R I DISK40 0110
FPRINTER O F 85 OF PRINTER 0120
E ADDROUT SORCDECK 0130
E XREF 3 20 0140
ISORCDECKNS 0150
I/COPY R1,AUX090 0160
I PROGRML1 0170
C****************************************************** MAIN LINE 0180
C L1 EXSR L1CLER 0190
C* PUT THE NEXT FILE DATA INTO THE PRINT ARRAY 0200
C EXSR SETUP 0210
C* CHECK TO SEE IF A LINE WAS LEFT INCOMPLETE AND 0220
C* UNPRINTED FOR THE LAST PROGRAM. 0230
CL1 EXSR L1PRT 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
C****************************************************** L1CLER 0320
CSR L1CLER BEGSR 0330
CSR A SUB A A 0340
CSR SETOF 111213 0350
CSR SETON 02 0360
CSR ENDSR 0370
C****************************************************** SETUP 0380
CSR SETUP BEGSR 0390
CSR 1 ADD A A 10 0400
CSR MOVE DEVICE XREF,A 0410
CSR MOVELFILNM HOLD 11 0420
CSR MOVE USAGE HOLD 0430
CSR MOVELHOLD XREF,A 0440
C* SEE IF THE PRINT LINE HAS BEEN FILLED YET. 0450
CSR EXSR PRTCHK 0460
CSR ENDSR 0470
C****************************************************** PRTCHK 0480
CSR PRTCHK BEGSR 0490
CSR A COMP 2 131112 0500
CSR 13 EXCPT 0510
CSR 13 A SUB A A 0520
CSR 13 SETOF 02 0530
CSR 13 SETOF 111213 0540
CSR ENDSR 0550
C****************************************************** L1PRT 0560
CSR L1PRT BEGSR 0570
CSR 11 0580
COR 12 EXCPT 0590
CSR ENDSR 0600
C****************************************************** 0610
OPRINTER H 202 1P 0620
O OR OF 0630
O UDATE Y 16 0640
O 30 'XRF07' 0650
O 50 'PROGRAM/FILE USAGE' 0660
O 66 'CROSS REFERENCE' 0670
O PAGE Z 82 0680
O 79 'PAGE' 0690
O H 1 1P 0700
O OR OF 0710
O 15 'PROGRAM' 0720
O 35 '-----F I L E-----' 0730
O 58 '-----F I L E-----' 0740
O 81 '-----F I L E-----' 0750
O H 2 1P 0760
O OR OF 0770
O 12 'NAME' 0780
O 35 'NAME USE DEVICE' 0790
O 58 'NAME USE DEVICE' 0800
O 81 'NAME USE DEVICE' 0810
O T 1 L1 0820
O E 1 0830
O 02 PROGRM 14 0840
O XREF,1 B 36 0850
O XREF,2 B 59 0860
O XREF,3 B 82 0870