|
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: 2794 (0xaea)
Types: s3xseg
Names: »SXRF«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF«
H C 12 XRF 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 GENERATES THE INITIAL CCP SCREEN 0070
F* 0080
FSCREENINIP F 24 24 SPECIAL SUBR92 0090
F KARA 0100
FSCREENO O F 124 124 SPECIAL SUBR92 0110
F KARA 0120
FIDXDESGNIC F 96R 8AI 2 DISK40 A 0130
E ARA 5 5 6 0140
ISCREENINNA 01 0150
I 15 15 PROG 0160
I 16 16 SLASH 0170
I 17 24 SFILEN 0180
IIDXDESGNNS 02 1 CA 0190
I OR 03 1 CD 0200
I/COPY R1,AUX050 0210
C* PROGRAMS XRF30 OR XRF40 CAN BE LOADED. 0220
C* 0230
C SETOF 161718 0240
C SETOF 121314 0250
C SETOF 159192 0260
C PROG COMP 'N' 11 XRF30 0270
C 11 GOTO END 0280
C PROG COMP 'A' 12 XRF40 / ADD 0290
C PROG COMP 'M' 13 XRF40 / MODIFY 0300
C 12 0310
COR 13 SLASH COMP '/' 14 0320
C 14 SFILEN COMP ' ' 14 FILE NAME ENTE 0330
C 14 SFILEN CHAINIDXDESGN 16 0340
C N14 SETON 15 INVALID REQUEST 0350
C 12 14N16 SETON 17 ADD EXIST 0360
C 13 14 16 MODIFY DOESN'T 0370
COR 13 14N16 0380
CAN 03 SETON 18 0390
C END TAG 0400
C SETON LR 0410
C****************************************************** 0420
CLR MOVE '5798-NKG'COIBM 8 0430
CLR MOVE 'COPYRIGH'COIBM 0440
CLR MOVE 'T IBM CO'COIBM 0450
CLR MOVE 'RP. 1977'COIBM 0460
C****************************************************** 0470
OSCREENO D 01 11 0480
O 8 'GB0038' 0490
O ARA,5 14 0500
O 20 '$ZX30A' 0510
O* XRF40 SCREENS 0520
O* 0530
O D 01 14N17 0540
O AND N18 0550
O 8 'GB0120' 0560
O ARA,5 14 0570
O 20 '$ZX40A' 0580
O 12 21 'A' 0590
O 13 21 'U' 0600
O 13 31 'CHANGE****' 0610
O 12 31 ' ENTRY****' 0620
O SFILEN 39 0630
O 13 FILDS 69 0640
O 13 RECLN 73 0650
O 13 DEVICE 80 0660
O 13 FILTP 83 0670
O 13 KEYST 87 0680
O 13 KEYLN 89 0690
O 13 SEQ 92 0700
O 13 PKGDS 120 0710
O* 0720
O*SET CURSOR, OUTPUT ERROR MESSAGE 0730
O D 01 15 0740
O OR 01 17 0750
O OR 01 18 0760
O 8 ' CB0020' 0770
O ARA,5 14 0780
O 20 '$ZXRF1' 0790
O D 01 15 0800
O OR 01 17 0810
O OR 01 18 0820
O 8 'CB0051' 0830
O ARA,5 14 0840
O 20 '$ZXRF2' 0850
O 15 43 '*** INVALID REQUEST ' 0860
O 17 43 '*** ADD REQUEST ALREADY' 0870
O 17 51 'ON FILE' 0880
O 18N03 42 '*** MODIFY REQUEST NOT' 0890
O 18N03 51 'ON FILE ' 0900
O 15 51 ' ' 0910
O 18 03 42 '*** MODIFY REQ DELETED' 0920
O 18 03 51 'RECORD ' 0930
OIDXDESGNDADD 01N01 0940
** 0940
D 24 0950