Control Data Corporation 3300 Reference Manual page 254

>
I
~
o
01711
01712
01713
01714
01715
01716
01717
01718
01719
01720
01721
01722
01723
01724
01725
01726
01727
0172Q
01729
01730
01731
01732
01733
01734
01735
01736
01737
01738
01739
01740
01741
0]742
01743
01744
01745
01746
tJ1747
01148
01749
01750
01751
01752
01753
01754
01755
ENTER
COMPASS.
RLEASF. P-S-LIST, N-FILE.
no TO U-PHCC.l.
LIST-COLLECT SECTIUN.
LC"'].
READ PRIM-SEC-LIST INVALtO KEY PERFCRM PROGRAM-BUG.
MOvE TEM.KEY-o TO HEADER-LINK.
IF
FORWARD-L. I t\lK
=
RACKWARD-L I NK AND HEAOER-SAK
MOVE. UP-Kt:Y TO FORWARD-LINK, BACKwARD-LINK,
HEAOER-SAK, P-KEY. TE~-KEY-1 GO TO LC-E.
MOVE BACKWAHn-LINK TO TEM-KEy-S.
~CVE UP-KEY TG P-KFY, HEADER-SAK, TEM-KEY-4.
PEPFCR~ P-~EY-UPD4TE.
MovE FORWA~O-LINK
TO
PRt~-KEY.
MOvE
UP.~EY
fa
FC~WAKO-LtNK.
wRITE T-REC-~ FRO~ SECONnA~Y-RECORD
INVALID
K~Y P~RFOqM PRCGRAM-6~G.
LC-2.
rF PRIM.KEY
=
TEM-KEY-5 GO TO LC-3.
READ PRIM-SEe-LIST INVALID KEY PEHFCRM PROGRAM-BUG.
MOVE FCRWARO.L!NK TO ~RrM-KEY.
MovE P-KEY To &ACKWARO-LI~K.
MOVE UP-KEY
fO
p-~EY.
PEPFORM P-KEY-UpnATE.
MOVE UP-Kt:. Y TO fOFhJAPU-L
I
NK.
MOvE TEM-KEY_4 TO
HEAOE~-SAK.
WRTTE T-~EC-~ FROM SECONOARY-RECORD
INVALID K~Y PfPFoHM PROGRAM-RUG.
MOVE PSR.SAK iO PSR-KEY.
READ pSR.FILE I~VALID KEy PERFORM PROGRAM-BUG.'
~ovE
P-KEY
TO OP-KEY
(I).
W~ITE PSR-FILf-HEC INVALID KEY PERFORM PROGRAM-BUG.
GO TO LC.2.
LC-3.
READ PRIM-SEe-LIST INVALID KEY PERFORM
PROAQAM~aUG.
MovE
T~M.KEY-~
TO FORWARD-LINK, HEADER-SAK. .
MovE P-KEY TO 8ACKWAPU-LINK.
MOVE UP-KEY TO P-KFY, TEM-KEY-7.
W~ITE T.REC-~ FROM SECONDARY-RECORD
INVALID KEY
P~RFoRM PRCGRAM-~UG.
~CVE
PSR-SAK TO
P~R-KEY.
REaD
PSR-FILE INVALI0
KEY
PERFORM
PROGRAM-~UG.
MOvE P-KE Y ro OP-KFY (I) • -
WRITE PSP-FILt-REC INVALID KEY PERFORM PROGRAM-BUG.
MOvE TEM-KEY-4 TO P.KEY.
READ P-S-LIS1' INTO SECONDARY-RECORD