|
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: 2286 (0x8ee)
Types: s3xseg
Names: »SXRF21«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF21«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF21«
H C 012 XRF21 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* PRINTS THE WHERE USED LIST OF AUTO REPORT COPY 0070
F* BOOKS FOLLOWING XRF19 AND 20. 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FBOOKOUT IP F 19R I DISK 0110
FPRINTER O F 132 132 OF PRINTER 0120
E ADDROUT BOOKOUT 0130
E PRIN 4 12 0140
IBOOKOUT NS 03 0150
I/COPY R1,AUX060 0160
I COPYNML1 0170
C* PROCESS PROGRAM RECORDS 0180
C 03 EXSR PROCES 0190
CL1 EXSR L1PRT 0200
C****************************************************** 0210
CLR MOVE '5798-NKG'COIBM 8 * 0220
CLR MOVE 'COPYRIGH'COIBM * 0230
CLR MOVE 'T IBM CO'COIBM * 0240
CLR MOVE 'RP. 1977'COIBM * 0250
C****************************************************** 0260
C****************************************************** PROCES 0270
CSR PROCES BEGSR 0280
CSR L1 EXSR L1CLER 0290
CSR 1 ADD B B 10 0300
CSR B COMP 4 11 0310
CSR Z-ADDLINE N4 40 0320
CSR MOVE N4 PRIN,B 0330
CSR MOVELPROGRM PRIN,B 0340
CSR 11 EXCPT 0350
CSR 11 B SUB B B 0360
CSR 11 SETOF 0811 0370
CSR END ENDSR 0380
C****************************************************** L1CLER 0390
C* IDENTICAL TO SAME SUBR IN XRF39 0400
CSR L1CLER BEGSR 0410
CSR SETON 08 0420
CSR B SUB B B 0430
CSR ENDSR 0440
C****************************************************** L1PRT 0450
C* IDENTICAL TO SAME SUBR IN XRF39 0460
CSR L1PRT BEGSR 0470
CSR B COMP 0 11 0480
CSR 11 EXCPT 0490
CSR SETOF 0811 0500
CSR ENDSR 0510
C****************************************************** 0520
OPRINTER H 202 1P 0530
O OR OF 0540
O UDATE Y 16 0550
O 23 'XRF21' 0560
O 46 'AUTO /COPY MODULE' 0570
O 62 'CROSS REFERENCE' 0580
O PAGE Z 75 0590
O 73 'PAGE' 0600
O H 1 1P 0610
O OR OF 0620
O 14 'MODULE' 0630
O 19 'SPEC' 0640
O H 2 1P 0650
O OR OF 0660
O 13 'NAME' 0670
O 19 'TYPE' 0680
O 33 'PROGRAM LINE' 0690
O 47 'PROGRAM LINE' 0700
O 61 'PROGRAM LINE' 0710
O 75 'PROGRAM LINE' 0720
O H 0 OF 0730
O COPYNM 16 0740
O SPEC 18 0750
O E 1 N08 0760
O OR 11 08 0770
O 08 COPYNM 16 0780
O 08 SPEC 18 0790
O PRIN,1 B 33 0800
O PRIN,2 B 47 0810
O PRIN,3 B 61 0820
O PRIN,4 B 75 0830