Control Data Corporation 3300 Reference Manual page 245

>
I
~
.....
01305
01306
01301
01308
01309
01310
01311
01312
01313
01314
01315
01316
01317
01318
01319
01320
01321
01322
01323
01324
01325
01326
01327
01328
01329
01330
01331
01332
01333
013:14
01335
01336
01337
01338
01339
01340
01341
01342
01343
01344
01345
01346
01341
01348
01349
IF NEXT-EMPTY
=
ZERO P~RFORM EXPAND·P~R~FILE.
MOVE NEXT-EMPTY TO EMPTY-PSR.FILEu
EXPAND-LIST-FILE SECTION.
EXP-LIST.
CLOSE
PRIM-SE~-LIST.
MOVE ZERO TO 'rE~-KEY-8.
ENTER COMPASS, EXPAND,
PRIM-SEe-LIST, TEM-KEY-S.
COMPUTE
PRIM-EXPAND
I:
«
TEIVI-KEY-a ..
100000)
+
PRIM.·EXPANO).
OPEN 1-0
PRIM-SEC-LIST.
PERFORM PRIM.KEY-UPDATE.
MOvE
UP-KEY TO PRIM-KEY, TEM.KEY·5.
PERFORM
LIST-~lLE-EMPTY.
~ovE TEM-KEY-5 TO FORWARD-LINK.
EXPAND.PSR-FILE
S~CTION.
F.:XP-Lyc;T.
C'-~SE
PSR-F I Le .•
MOvE ZERO
TO
TE~-KFy-e.
FNTER COMPASS. EXPANO. PSR-FILE,
T£M-KEy-e.
COMPUTE
PSR-EXPAND
=
«TE~-KEY·8
*
100000)
+
PSR-tXPANO).
OPEN 1-0 PSR·fIlE.
PERFORM PSR-KfY-UPDATE.
MOVE
UP-KEY
TO
PSR-KEY, TE~-KEY-5.
PERFORM PSR-F!LE-F~PTY.
MovE TEM-KEY·~ To NExT-EMPTY.
EXPAND-NUM-FILE
sECTION.
F.:XP-NUM.
CLOSE NUMBER-fILE.
Et\JTER CCMPAS5,
EXPAND'
NUMHER-FILE, rEM-t<Ey.oa_
QPF.N
1-0 NUMB~R-FILE.
MovE NUM-KEY TO TFM-KEY-6.
M
0 V E N U
i"' ! -
E X P A
!\j
i)
TO t\J
lJ""" ...
KEY·· 1 •
MovE
ZERO TO NU~-KEY-2.
AOf")
TEr"j-KEY-A
fO
"'UM-EXPA;\lU.
MovE ZERO TO
'\!U'''18EJ~'''REC.
PFPFORM
NUM-Fll~-ZERO.
MOvE TEM-KEY-6
TO NUM-KEYo
LIST.FYLE-EMPTY S~CTION.
LIST.EMPTY.
PERFORM PRIM-~EY-UPOATE.
IF
UP-KEY
=
PRIM-EXPANO
SO To LIST-EMPTy-END.
MOVE UP-KEY T8
FORwARO-LINK.
WPITE HEADER-~ECORO INVALI0 KEY
PERFORM PROGRAM-BUG.
MOVE UP-KEY
TU
PWIM-KEY.
GO TO LIST-EMPTY.
LISf-E"MPTY-ENO.