|
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: 3302 (0xce6)
Types: s3xseg
Names: »SXRF09«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF09«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF09«
H C 012 XRF09 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* FILE/PROGRAM CROSS REFERENCE LISTING AFTER XRF08 SORT. 0070
F* 0080
FINCLCARDIP F 96 MFCU1 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FSORCDECKIS F 84R I DISK40 0110
FPRINTER O F 85 OF PRINTER 0120
E ADDROUT SORCDECK 0130
E DEV 10 20 7 0140
E ERR 10 7 0150
E PRIN 5 10 0160
E INCL 10 7 0170
IINCLCARDNS 01 1 CI 2 CN 3 CC 0180
I AND 4 CL 5 C 6NC 0190
I OR 02 0200
I/COPY R1,AUX066 0210
ISORCDECKNS 03 0220
I/COPY R1,AUX090 0230
I FILNM L2 0240
I DEVICEL1 0250
C* PROCESS AN INCL CARD 0260
C 01 EXSR INCLCD 0270
C* IF THERE HASN'T BEEN AN INCL CARD SEE WHY. 0280
C N01N07 EXSR INCLCK 0290
C* PROCESS PROGRAM RECORDS 0300
C 03 EXSR PROCES 0310
CL1 EXSR L1PRT 0320
C****************************************************** 0330
CLR MOVE '5798-NKG'COIBM 8 * 0340
CLR MOVE 'COPYRIGH'COIBM * 0350
CLR MOVE 'T IBM CO'COIBM * 0360
CLR MOVE 'RP. 1977'COIBM * 0370
C****************************************************** 0380
C* 0390
C/COPY R1,AUX012 0400
C/COPY R1,AUX013 0410
C****************************************************** PROCES 0420
CSR PROCES BEGSR 0430
CSR L1 EXSR L1CLER 0440
C* WHILE READING 'SORCDECK' FILE INPUT AND OUTPUT RECORDS 0450
C* CHECK EACH ONE'S DEVICE TYPE AGAINST DEFAULT OR USER SPECIFIED 0460
C* ARRAY OF DEVICES TO BE INCLUDED IN THIS RUN. 0470
CSR DEVICE LOKUPINCL 10 0480
CSRN10 GOTO ENDPRO 0490
C* GOT A HIT ON DEVICE TYPE-MOVE TO PRINT LINE. 0500
CSR 1 ADD B B 10 0510
CSR B COMP 5 11 0520
CSR MOVE USAGE PRIN,B 0530
CSR MOVELPROGRM PRIN,B 0540
CSR 11 EXCPT 0550
CSR 11 B SUB B B 0560
CSR 11 SETOF 0811 0570
CSR ENDPRO ENDSR 0580
C****************************************************** L1CLER 0590
CSR L1CLER BEGSR 0600
CSR SETON 08 0610
CSR B SUB B B 0620
CSR ENDSR 0630
C****************************************************** L1PRT 0640
CSR L1PRT BEGSR 0650
CSR B COMP 0 11 0660
CSR 11 EXCPT 0670
CSR SETOF 0811 0680
CSR ENDSR 0690
C****************************************************** 0700
OPRINTER H 202 1P 0710
O OR OF 0720
O UDATE Y 15 0730
O 23 'XRF09' 0740
O 48 'FILE/PROGRAM USAGE' 0750
O 64 'CROSS REFERENCE' 0760
O PAGE Z 82 0770
O 79 'PAGE' 0780
O H 1 1P 0790
O OR OF 0800
O 11 'FILE' 0810
O 22 'DEVICE' 0820
O 32 'PROGRAM' 0830
O 44 'PROGRAM' 0840
O 56 'PROGRAM' 0850
O 68 'PROGRAM' 0860
O 80 'PROGRAM' 0870
O H 2 1P 0880
O OR OF 0890
O 11 'NAME' 0900
O 21 'TYPE' 0910
O 34 'NAME USE' 0920
O 46 'NAME USE' 0930
O 58 'NAME USE' 0940
O 70 'NAME USE' 0950
O 82 'NAME USE' 0960
O H 0 OFNL2 0970
O FILNM 15 0980
O DEVICE 24 0990
O D 11 H1 1000
O 20 'INCL CARD INVALID --' 1010
O CARD 95 1020
O D 2 H1 1030
O ERR B 95 1040
O 02 25 '****' 1050
O T 1 L1 11 1060
O E 1 N08 1070
O OR 11 08 1080
O 08 FILNM 15 1090
O 08 DEVICE 24 1100
O PRIN,1 B 34 1110
O PRIN,2 B 46 1120
O PRIN,3 B 58 1130
O PRIN,4 B 70 1140
O PRIN,5 B 82 1150
** DEV ARRAY OF VALID DEVICE TYPES 1150
DISK DISK40 DISK45 MFCU1 MFCU2 DISKET TAPE SPECIALBSCA READ01 1160
PRINTERCONSOLEREAD42 CRT77 MFCM1 MFCM2 PRINTR2PRINT84 1170