|
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: 1270 (0x4f6)
Types: s3xseg
Names: »SXRF52«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF52«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF52«
H C 12 XRF52 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 CREATES THE RECDESGN FILE FROM DIRDESGN & IDXDESGN 0070
F* 0080
FIDXDESGNIP 96 8AI 2 DISK40 0090
FDIRDESGNIC 96R DISK40 0100
FRECDESGNO 96 DISK40 0110
IIDXDESGNAA 01 1 CA 0120
I 1 9 FIRSTA 0130
I 10 150FRRNO 10 0140
I 16 96 LASTA 0150
I BB 04 0160
IDIRDESGNAA 02 1NCD 0170
I OR 03 0180
I 1 90 DETLBC 02 0190
I 91 960NRRNO 11 0200
C 04 0210
COR 01 10 GOTO END 0220
C SETON 20 0230
C EXCPT 0240
C SETOF 20 0250
C Z-ADDFRRNO NRRNO 0260
C OVER TAG 0270
C SETOF 0203 0280
C NRRNO CHAINDIRDESGN 99 0290
C 02 SETON 21 0300
C 02 EXCPT 0310
C 02 SETOF 21 0320
C N11 GOTO OVER 0330
C END TAG 0340
C****************************************************** 0350
CLR MOVE '5798-NKG'COIBM 8 0360
CLR MOVE 'COPYRIGH'COIBM 0370
CLR MOVE 'T IBM CO'COIBM 0380
CLR MOVE 'RP. 1977'COIBM 0390
C****************************************************** 0400
ORECDESGNE 20 0410
O FIRSTA 9 0420
O LASTA 96 0430
ORECDESGNE 21 0440
O DETLBC 90 0450