|
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: 1524 (0x5f4)
Types: s3xseg
Names: »SXRF01«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF01«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF01«
H C 012 XRF01 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* USING FILE BUILT BY $MAINT, BUILD AN INDEXED FILE 0070
F* OF AUTO REPORT SPECS FOR USE BY XRF02, 03, 04 AND 23. 0080
FAUTOCOPYIPE F 960 96 DISK 0090
FSLIBRFILO F 920 92 12AI 81 DISK40 U 0100
E CHK 8 1 0110
IAUTOCOPYNS 01 1 C/ 2 C/ 5 CO 0120
I OR 02 1 C/ 2 C/ 0130
I OR 03 0140
I/COPY R1,AUX146 0150
C 01 EXSR COPYCD 0160
C 03 EXSR PROCES 0170
C****************************************************** 0180
CLR MOVE '5798-NKG'COIBM 8 * 0190
CLR MOVE 'COPYRIGH'COIBM * 0200
CLR MOVE 'T IBM CO'COIBM * 0210
CLR MOVE 'RP. 1977'COIBM * 0220
C****************************************************** 0230
C* 0240
C****************************************************** COPYCD 0250
CSR COPYCD BEGSR 0260
C* PROCESS // COPY CARD LOOKING FOR BOOK NAME. 0270
CSR MOVEANAME CHK 0280
CSR Z-ADD1 A 10 0290
CSR ' ' LOKUPCHK,A 52 0300
CSRN52 Z-ADD1 A 0310
CSRN52 ',' LOKUPCHK,A 52 0320
CSR 52 MOVEA' 'CHK,A 0330
CSR MOVEACHK KEY 12 0340
CSR CTR SUB CTR CTR 40 0350
CSR ENDSR 0360
C****************************************************** PROCES 0370
CSR PROCES BEGSR 0380
CSR 1 ADD CTR CTR 0390
CSR MOVE CTR KEY 0400
CSR ENDSR 0410
OSLIBRFILD 03 0420
O DATA80 80 0430
O KEY 92 0440