|
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: 762 (0x2fa)
Types: s3xseg
Names: »SXRF50«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF50«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF50«
H C XRF50 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* THIS PROGRAM ESTABLISHES THE DIRDESGN AND IDXDESGN FILES. 0070
F* 0080
FDUMMY IP F 1 1 SPECIAL SUBR93 0090
FIDXDESGNO F 96 96 8AI 2 DISK40 0100
FDIRDESGNOC F 96 96R DISK40 0110
IDUMMY AA 01 0120
C 1 CHAINDIRDESGN 0130
C****************************************************** 0140
CLR MOVE '5798-NKG'COIBM 8 0150
CLR MOVE 'COPYRIGH'COIBM 0160
CLR MOVE 'T IBM CO'COIBM 0170
CLR MOVE 'RP. 1977'COIBM 0180
C****************************************************** 0190
ODIRDESGND 01 0200
O 96 '000001' 0210
O 1 'H' 0220
OIDXDESGND 01N01 0230