|
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: 3556 (0xde4)
Types: s3xseg
Names: »SXRF13«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF13«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF13«
H C 012 XRF13 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 ANALYSIS BY FIELD NAME IN FILE FOLLOWING 0070
F* XRF12 SORT. 0080
F* 0090
FINCLCARDIP F 96 MFCU1 0100
FADDROUT IR F 255 3 3IT EDISK 0110
FSORCDECKIS F 84R I DISK40 0120
FREFFILE IC F 12R12AI 1 DISK40 0130
FPRINTER O F 96 OF PRINTER 0140
E ADDROUT SORCDECK 0150
E ERR 10 7 0160
E INCL 10 7 0170
E IND 6 2 0180
E DEV 10 20 7 0190
IREFFILE NS 0200
IINCLCARDNS 01 1 CI 2 CN 3 CC 0210
I AND 4 CL 5 C 0220
I OR 02 0230
I/COPY R1,AUX066 0240
ISORCDECKNS 03 6 CI 0250
I/COPY R1,AUX140 0260
I FILNM L2 0270
I FACT1 L1 0280
I NS 04 6 CO 32NC 0290
I OR 05 0300
I/COPY R1,AUX144 0310
I FILNM L2 0320
I FACT1 L1 04 0330
I CON L1 05 0340
C SETOF 213041 0350
C L1 SETOF 40 0360
C L2 SETON 30 0370
C* CHECK 'INCL'CARD FOR VALIDITY. 0380
C 01 EXSR INCLCD 0390
C* IF THERE HASN'T BEEN A VALID 'INCL' CARD SEE WHY. 0400
C N01N07 EXSR INCLCK 0410
C* ON A BREAK IN FILE NAME SEE IF THIS FILE'S DEVICE 0420
C* TYPE IS BEING SELECTED FOR REPORTING. 0430
C L2N01N02 EXSR CHKDEV 0440
C* PROCESS 'I' OR 'O' RECORD IF DEVICE TYPE IS BEING 0450
C* SELECTED. 0460
C 20 EXSR PROC13 0470
C****************************************************** 0480
CLR MOVE '5798-NKG'COIBM 8 * 0490
CLR MOVE 'COPYRIGH'COIBM * 0500
CLR MOVE 'T IBM CO'COIBM * 0510
CLR MOVE 'RP. 1977'COIBM * 0520
C****************************************************** 0530
C/COPY R1,AUX013 0540
C/COPY R1,AUX012 0550
C/COPY R1,AUX008 0560
C/COPY R1,AUX009 0570
C****************************************************** SETUP 0580
CSR SETUP BEGSR 0590
CSR MOVE PB OLDPB 1 0600
CSR MOVE TO OLDTO 40 0610
CSR 03 MOVE FROM OLDFRM 40 0620
CSR ENDSR 0630
C****************************************************** 0640
C/COPY R1,AUX003 0650
C****************************************************** 0660
OPRINTER H 6301 L2 20 13 0670
O OR OFNL2N30 0680
O 23 '** INDICATES CHANGE' 0690
O 47 'IN PACKED/BINARY CODE O' 0700
O 63 'R STARTING OR EN' 0710
O 76 'DING POSITION' 0720
O H 102 L2 20 0730
O OR OFNL2N30 0740
O UDATE Y 12 0750
O 24 'XRF13' 0760
O 52 'FILE CONTENT ANALYSIS' 0770
O PAGE Z 75 0780
O 72 'PAGE' 0790
O H 2 L2 20 0800
O OR OFNL2N30 0810
O 48 'BY FIELD NAME' 0820
O H 2 L2 20 0830
O OR OFNL2N30 0840
O 9 'FILE-' 0850
O FILNM 17 0860
O 26 'DEVICE-' 0870
O DEVC 33 0880
O H 1 L2 20 0890
O OR OFNL2N30 0900
O 15 'FIELD NAME/' 0910
O 27 'P/' 0920
O H 2 L2 20 0930
O OR OFNL2N30 0940
O 39 'FROM- TO' 0950
O 44 'DEC' 0960
O 55 'PROGRAM' 0970
O 63 'LINE' 0980
O 13 'CONSTANT' 0990
O 26 'B' 1000
O D 102 H1 1010
O 21 'INCL CARD INVALID -- ' 1020
O CARD 96 1030
O D 1 H1 1040
O 02 25 '****' 1050
O ERR B 96 1060
O D 1 41 1070
O N05 FACT1 10 1080
O 05 CONST 23 1090
O PB 26 1100
O 03 FROM Z 34 1110
O TO Z 39 1120
O 03 DECPS 43 1130
O PROGRM 54 1140
O LINE 63 '0 . ' 1150
O N21 63 ' ' 1160
O 03 74 'INPUT' 1170
O N03 75 'OUTPUT' 1180
O N11 78 '**' 1190
O T 1 L1NL2 40 1200
** DEV ARRAY OF VALID DEVICE TYPES 1200
DISK DISK40 DISK45 MFCU1 MFCU2 DISKET TAPE SPECIALBSCA READ01 1210
PRINTERCONSOLEREAD42 CRT77 MFCM1 MFCM2 PRINTR2PRINT84 1220