|
|
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: 1778 (0x6f2)
Types: s3xseg
Names: »SXRF48«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF48«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF48«
H C 012 XRF48 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* PRINTS THE FILE DICTIONARY. FILE 'FILEDICT' IS 0070
F* PRODUCED BY XRF43 AND SORTED BY XRF47. 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FFILEDICTIP F 96R I DISK 0110
FPRINTER O F 132 OF PRINTER 0120
E ADDROUT FILEDICT 0130
IFILEDICTNS 01 1 CA 0140
I/COPY R1,AUX050 0150
I NS 02 1 CB 0160
I/COPY R1,AUX052 0170
I RECOUT 03 0180
C 06 SETON 07 0190
C SETON 06 0200
C* 0210
C****************************************************** 0220
CLR MOVE '5798-NKG'COIBM 8 * 0230
CLR MOVE 'COPYRIGH'COIBM * 0240
CLR MOVE 'T IBM CO'COIBM * 0250
CLR MOVE 'RP. 1977'COIBM * 0260
C****************************************************** 0270
C* 0280
OPRINTER D 201 01N07 0290
O OR OF 0300
O UDATE Y 16 0310
O 26 'XRF48' 0320
O 45 'FILE/RECORD NAME' 0330
O 61 'CROSS-REFERENCE' 0340
O PAGE Z 81 0350
O 79 'PAGE' 0360
O D 1 01N07 0370
O OR 31 01 07 0380
O 13 'FILE-' 0390
O FILNM 21 0400
O 23 '-' 0410
O DEVICE 30 0420
O FILDS 64 0430
O D 2 01 0440
O 18 'RECL-' 0450
O RECLN Z 22 0460
O 33 'KEY LOC-' 0470
O KEYST Z 37 0480
O 48 'LENGTH-' 0490
O KEYLN Z 50 0500
O 63 'FILE TYPE-' 0510
O FILTP 66 0520
O 78 'SEQUENCE-' 0530
O SEQ 81 0540
O D 1 02 0550
O RECNM 22 0560
O 31 '-INPUT--' 0570
O RECDS 64 0580
O D 1 02N03 0590
O RECOUT 22 0600
O 31 '-OUTPUT-' 0610
O RECDS 64 0620