|
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: 3048 (0xbe8)
Types: s3xseg
Names: »SXRF49«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF49«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF49«
H C 012 XRF49 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* CORRECT ANY HARD-CODED OUTPUT FIELD'S POSITION IN 0070
F* IT'S FILE IF OUTPSN SHOWS IT HAS BEEN CHANGED. 0080
F* 0090
FPROGRAMSUP F 960 96 DISK40 0100
FOUTPSN IC F 19R14AI 1 DISK40 0110
FPRINTER O F 132 OF PRINTER 0120
E FILS 15 8 0130
E DVCNO 10 10 7 0140
E IND 6 2 0150
IPROGRAMSNS 01 1 C* 2 C* 0160
I OR 02 1 C/ 2 C/ 4 CC 0170
I AND 5 CO 6 CP 0180
I NS 03 6 CF 7NC* 7NC 0190
I/COPY R1,AUX090 0200
I NS 04 6 CO 7NC* 7NC/ 0210
I/COPY R1,AUX098 0220
I FILNM 08 0230
I D 13 0240
I FACT1 09 0250
I 1 96 DATA96 0260
I NS 14 6 CH 0270
I/COPY R1,AUX088 0280
I NS 0290
IOUTPSN NS 0300
I/COPY R1,AUX070 0310
C 01 SETON 06 0320
C 02 EXSR INIT 0330
C 03N06 EXSR FCARD 0340
C 04N06 EXSR OCARD 0350
C* 0360
C* 0370
C****************************************************** 0380
CLR MOVE '5798-NKG'COIBM 8 * 0390
CLR MOVE 'COPYRIGH'COIBM * 0400
CLR MOVE 'T IBM CO'COIBM * 0410
CLR MOVE 'RP. 1977'COIBM * 0420
C****************************************************** 0430
C* 0440
C****************************************************** INIT 0450
CSR INIT BEGSR 0460
CSR MOVE ' ' CLR 120 0470
CSR MOVEACLR FILS 0480
CSR Z-ADD0 I 10 0490
CSR SETOF 06 0500
CSR ENDSR 0510
C****************************************************** FCARD 0520
CSR FCARD BEGSR 0530
CSR DEVICE LOKUPDVCNO 10 0540
CSR 10 1 ADD I I 0550
CSR 10 MOVE FILNM FILS,I 0560
CSR ENDSR 0570
C****************************************************** OCARD 0580
CSR OCARD BEGSR 0590
CSRN08 SETOF 12 0600
CSR MOVE TO END 40 0610
CSR MOVE PB FRMAT 1 0620
CSRN08 FILNM LOKUPFILS 12 0630
CSRN12 GOTO ENDSR 0640
CSRN08 MOVELFILNM KEY 14 0650
CSRN08 GOTO ENDSR 0660
CSRN09 MOVE FACT1 KEY 0670
CSRN09 KEY CHAINOUTPSN 99 0680
CSRN09 99 1 ADD NOHIT NOHIT 40 0690
CSR SETOF 98 0700
CSRN09 END COMP TO 98 0710
CSRN09 98 PB COMP FRMAT 98 0720
CSRN09N98 CHG ADD 1 CHG 40 0730
CSR ENDSR ENDSR 0740
C****************************************************** 0750
OPROGRAMSD 04N09 12 0760
O AND N99N98 U1 0770
O TO Z 43 0780
O PB 44 0790
OPRINTER H 202 14N06 0800
O OR OF 0810
O UDATE Y 8 0820
O 33 ' XRF49 ' 0830
O 50 'OUTPUT POSITION' 0840
O 58 'CHANGES' 0850
O 70 'PROGRAM-' 0860
O PROGRM 76 0870
O D 1 04N09 12 0880
O AND 99 0890
O OR 04 08 09 0900
O AND 12 13 0910
O DATA96 96 0920
O FILS,I 14 0930
O 103 'NO HIT' 0940
O D 11 04N09 12 0950
O AND N99N98 0960
O DATA96 96 0970
O FILS,I 14 0980
O D 1 04N09 12 0990
O AND N99N98 1000
O TO Z 43 1010
O PB 44 1020
O 100 'CHG' 1030
O T 31 LR 1040
O CHG 3 4 1050
O 12 'CHANGES' 1060
O NOHIT 3 20 1070
O 28 'NO HITS' 1080
** DVCNO-ARRAY OF DEVICE TYPES NOT TO BE CORRECTED 1080
DISK DISKET DISK40 DISK45 MFCM2 MFCU2 TAPE 1090