Control Data Corporation 3300 Reference Manual page 252

>
I
c"
00
01620
01621
01622
01623
01624
01625
01626
01627
01628
01629
01630
01631
01632
01633
01634
01635
01636
01637
01638
01639
01640
01641
01642
01643
01644
01~45
01646
01647
01648
01649
01650
01651
01652
01653
01654
01655
01656
01657
01658
01659
01660
01661
01662
01663
01664
MOvE FORWARD-LINK TO
~~KEY' TE~-KEY-6.
MOvE H£ADER-SAK TO TF.~-KF.Y-2.
COl.l-SEC-!.
IF P-KEy
=
TfM-KEY-? GO TO COll-SEC-DONE.
READ P-S.LIST INTO pRIM4RY-RECORDT
INVALID K€Y PF.PFOR~ PROGR4~-8UG.
t
F
MASTER-SAKT
=
ZEPO GO TO CO~L-SEC·2.
MOVE 1 TO I.
MO"E TEM-KEY ... ' TO p-KEY.
PERFORM P-KEY-UPDATE.
MOvE MASTER-SAKT TO PRIM-KEY.
MOVt UP-KEY T~ MASTER-SAKT.
P~~FOHM LlST-~~LL~CT.
CCl.l-SFC-2.
yF
MSCS.SAKT
=
ZERO 60 TO COlL-SEC-3.
MOvE 2 TO I.
MOVE TEM-KF.Y-I TO P-KtY.
PE~FORM
P-KEY-UPOATE.
MOVE MSOS-SAKf TO PRIM-K~Y.
~OV~ UP-KEY T~ MSCS-~AKT.
PFRFCRM LIST-COLLECT.
cOL.l-SFC-3.
TF RTS-SAKT
=
ZEHC GO TO COLl-SEC-4.
MOVE 3 TO I.
MOvE
T~M-KEY-J
TO
P-K~Y.
PFRFORM P-KEY-0POATE.
MOVE RTS-SAKT TO PRIM-KEY.
MOVE UP-KEY T~ RTS-SAKT.
PFRFORM L!ST-~OlLECT.
COL.l-S~C-4.
~OVE
TEM.KEY·6 TC
p-~fY.
WRITF. T-R€C-2
F~C~ P~IMAQY-RECCRDT
INVALID KtY PERFOR~ PROGRAM-AUG.
MOVE FOR-LINKl TO p-~EY, TEM.KEY-6.
~c 10 COLL-SEC-l.
COl.L-SFC-DONF..
MOVE TEM-~~Y-I TO P-KtY.
P~RFORM P-KEY-UPOATE.
MOVE UP-KEY TO EMPTY-HEAn-HEC.
MOVE SKi-CHoro P~IM-~EY.
WRITE HEAOE~-~~CCRn FROM HEAOER-RECORO-STORAGE
INVALID K~Y P~RFCRM PROGRAM-BUG.
~CvE PlH-SAK
lC
p-KEY.
COLl-SEC-DONE-l.
IF P-KEy
=
~MPTY-HEAD-REC ~O TO COLL-SEC-OCNE-2.