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~.
Need help?
Do you have a question about the 3300 and is the answer not in the manual?