Control Data Corporation 3300 Reference Manual page 249

01485
01486
01487
01488
01489
014QO
01491
01492
01493
01494
01495
01496
01497
01498
01499
01500
01501
0150?
01503
0150 / +
01505
01506
01507
01508
01509
01'510
01511
01512
01513
01514
01515
01516
011517
01518
01519
01520
01521
01522
01523
01'524
01'525
01526
01527
01'528
01529
MOvE
U~-KEY T~ PRIM-K~Y.
G~
TO
FILE-L4,
FILE-LCi.
cL~SE PRIM-SEe-LIST.
MOVE
SYSTEM-O~f€ T~ nATE-Sf
ORE.
MOvE SYSTEM-TlME
TO TIME-STORE.
DtSPLAt
~1
PSR F1L£ LrsTtNG OATE
¢
DA1E-STORE
t.
TI~~
_ TIME-sTORE
~.¢
lJoCN OUT.
MovE ~~l-CHO TO ~Sq-KEY.
FILE-LA.
PEhn I-JSR-F I
LE l'~VAL
I 0 K£V GO
TO
F
1 LE-L
7.
DI~PLAY ~o~ PS~-KFY
SPACE PSR-FILEl·MOVE
PSR-FILE2.MOVE
IJPCI\j
OUT.
nI~PLAY
- DESCRIPTIONS
OELETED.- UPON
ouT.
QISPLAY
~ ~
PSR-FILE3-MCVE UPON
OUT~
.
PE~FaRr'l PSR-Kr.:.'f-lJPnATE.
MovE
up-KEY TG PSR.KEY.
r,()
TO fILE-L6.
FILE-L7.
CL~SE
PSR-FILt..
DISPLAY
;t};t
IJtJO'\1
'JUT.
GO TO U-PROC-l.
CPERATnR-CHEcK SE~TIO~.
OPER-CK.
nISPLAY
;t
RESPOND OK IF FILES
AR~
TO
BE RELEASEO ••
A CCF:PT RE'L-F I
L~_
s.
TF REL-FILFS 15 NOT EQUAL TO
¢eK~ DISPLAY SPACE REC-U
SPACE _
CI;F>'L~TOR u~~p~
UPON OUT
STep
RUN.
ESTARLISH SECTl~N.
ESTAR-'.
PEpFOkl·1 OPERA
fOi~-C~ECK.
ENTF4
COMPASS~ ~LF6SE' PRtM-sEC-LIST, PSR-FIL£, NUMBER-FILE.
F~TER COMPASS, ALLOCATE.
PRIM-SEC.LIST.
+300.
PSH-FILE ..
+100.
NUM~ER-FtLE.
+100.
OPEN oUTpUT
P~IM-S~C-LIST. PSR-FILE, NUMBER-FILE.
MovE SKI-CHO lO P~IM-KEY.
PSR-KEY, NUM-KEY.
MovE U-BIAS TO ~IAS.
MovE 101 TO NU~-EXPANO.
WRyTE NUM~Eq-REC FROM NUMBER~FILE-STORAGE
INVALIO KEY PE~FOqM pROGRAM-BUG.
PERFORM NUr.,-Kt: Y-UPDATE.