|
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: »SXRF11«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF11«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF11«
H C 012 XRF11 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 ENDING POSITION IN FILE FOL- 0070
F* LOWING XRF10 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
IINCLCARDNS 01 1 CI 2 CN 3 CC 0200
I AND 4 CL 5 C 0210
I OR 02 0220
I/COPY R1,AUX066 0230
ISORCDECKNS 03 6 CI 0240
I/COPY R1,AUX140 0250
I FILNM L2 0260
I TO L1 0270
I NS 04 6 CO 0280
I/COPY R1,AUX144 0290
I FILNM L2 0300
I TO L1 0310
I FACT1 05 0320
I CONST 06 0330
IREFFILE NS 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' AND 'O' SPECS IF THE FILE TYPE IS BEING 0450
C* SELECTED. 0460
C 20 EXSR PROC11 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* 0540
C/COPY R1,AUX012 0550
C/COPY R1,AUX013 0560
C/COPY R1,AUX008 0570
C/COPY R1,AUX006 0580
C/COPY R1,AUX007 0590
C/COPY R1,AUX003 0600
C****************************************************** 0610
OPRINTER H 6301 L2 20 13 0620
O OR OFNL2N30 0630
O 23 '** INDICATES CHANGE' 0640
O 47 'IN FIELD NAME OR PACKED' 0650
O 64 'CODE OR STARTING' 0660
O 73 'POSITION' 0670
O H 102 L2 20 0680
O OR OFNL2N30 0690
O UDATE Y 12 0700
O 24 'XRF11' 0710
O 52 'FILE CONTENT ANALYSIS' 0720
O PAGE Z 75 0730
O 72 'PAGE' 0740
O H 2 L2 20 0750
O OR OFNL2N30 0760
O 54 'BY FIELD ENDING POSITION' 0770
O H 2 L2 20 0780
O OR OFNL2N30 0790
O 9 'FILE-' 0800
O FILNM 17 0810
O 26 'DEVICE-' 0820
O DEVC 33 0830
O H 1 L2 20 0840
O OR OFNL2N30 0850
O 15 'FIELD NAME/' 0860
O 27 'P/' 0870
O H 2 L2 20 0880
O OR OFNL2N30 0890
O 39 'FROM- TO' 0900
O 44 'DEC' 0910
O 55 'PROGRAM' 0920
O 63 'LINE' 0930
O 14 'CONSTANT' 0940
O 26 'B' 0950
O D 102 H1 0960
O 21 'INCL CARD INVALID -- ' 0970
O CARD 96 0980
O D 1 H1 0990
O 02 25 '****' 1000
O ERR B 96 1010
O D 1 41 1020
O 03 FACT1 10 1030
O 04N05 FACT1 10 1040
O 04 05N06CONST 23 1050
O PB 26 1060
O 03 FROM Z 34 1070
O TO Z 39 1080
O 03 DECPS 43 1090
O PROGRM 54 1100
O LINE 66 '0 . ' 1110
O N21 66 ' ' 1120
O 03 74 'INPUT' 1130
O 04 75 'OUTPUT' 1140
O N11 78 '**' 1150
O T 1 L1NL2 40 1160
** DEV ARRAY OF VALID DEVICE TYPES 1160
DISK DISK40 DISK45 MFCU1 MFCU2 DISKET TAPE SPECIALBSCA READ01 1170
PRINTERCONSOLEREAD42 CRT77 MFCM1 MFCM2 PRINTR2PRINT84 1180