Control Data Corporation 3300 Reference Manual page 246

01350
013&:;1
01352
o
1 :~S3
01354
01355
01356
01357
0135A
01359
01360
01361
01362
01163
01364
01365
01366
01367
01368
01369
01370
01371
01372
01373
01374
01375
01376
01377
01378
01379
01380
01381
013H2
01383
01384
013A5
01386
01387
01388
01389
01390
01391
01392
01:-393
01394
MOvE lERO TO FC~WARn-LINK.
WRTTE
HEADER-~tCORD
INVALID KEY PERFORM
PROGRAM-BUG.
pSR-FILE-EMPTY SECTI~N.
I'SR-EMI'TV.
PF.RFCHt.Jl pSR-t<
r~
Y
-UPDATE.
TF
Up-KEy
=
PSR-ExPANO GO TO PSR-EMPTY-END.
MOvE UP-KEY TG NEXT-EMPTY.
WRJTE PSR-FILl-HEAnER INVALIO KEY PERFORM PROGRAM-BUG.
MOvE UP-KEY TO PSR-KEY.
GO TO PSR-EMPfY.
PSR-FMPTy-E.NO.
MOvE ZERO TO j',jEXT-EMPTY.
WRTTE PSR-FIL~-HEAOER INvA~In KEY PERFORM PROGRAM-BUG.
NUM-FILE-ZERO
SECTION.
NUM-ZF.RO.
WRTTE NUMBER-hEC INVALID K~V PERFORM PROGRAM-BUG.
P~RFORM
NUM-t<EY-UpnATE.
TF
NUM-KEY-l
NOT EQUAL TO NUM-EXPANO GO TO NUM-ZERO.
UPDATE-KEYS SECTI{;N.
oRIM.K,:-Y-UPOATE.
ADO 82 PRIM-Kty ~IvING Up-KEy.
TF lI-CH GREAlER
THAN 1~~7
ADO 1 TO U-iiLK
MOVE ZEHO TO U.CH.
pSR-t<FY-UPUATE.
AOD
100000 P5R-KEY GIVING UP-KEY.
NOTE
PARA~RAPH
PERFORM TO ALLOW EASY MODIFICATION
OF RLOC~ING PARAMETER.
NUM-KEy-UPDATE:.
ADD 12
TO :-JUr-1-KE:Y.
IF NUM-KEY-? GREATEA THAN 493
AOD 1 TO
NUM-KEY.l
MOVE ZERO TO NlJM .. KEY-2.
P-KEY-IJPDATE.
ADO
82 P.KEY GIVING UP-K~Y.
IF u-Crt
GREArEH THAN lFiA7
ADU 1 TO U-BLI<'
MOVE ZERO TO U-CH.
CARD-SFQ-ERR SECTION.
CARD-SEQ-ERRCR.
MOvE PSH.NUM fC HCLO-~SR.
CD"SEQ-ER~.
READ SORT-CUT AT
END
GO TO
LAST-CARD.
IF PSR-NUM
=
~CLO·PSR
AND conE-ALPHA • ALPHA-SAVE GO TO
CD-SEQ-ER~.