Control Data Corporation 3300 Reference Manual page 248

01440
01441
01442
01443
01444
01445
01446
01447
01448
01449
014~O
014~1
01452
01453
01454
01455
01456
01457
01458
01459
01460
01461
01462
01463
01464
014~S
01466
01467
01468
01469
01470
01411
01412
01413
01474
01475
01476
01411
01478
01.479
01480
01481
01482
01483
01484
to-Bl.
PERFC~M
OPERAfCR-CHECK.
FNTER COMPASS- RLFASE, PRIM-SEC-LIST, PSR-FILE, NUMBER-FILE.
FNTER COMPASS, LOAD, PRIM·SEC-LIST, PSR-FILE. NUMBER-FILE.
GO TO v-pRCC-!.
n u
tv1
P
t;
F C TIC
' ' - oJ •
[)P-lo
J
ALTER ALTER-srcp TO PRCCEEU TO DUMP-FILES.
GO TO U-PROC-l.
NOTE FILES
AR~
DUMPED ONLY AT END OF RUN.
nUMP .• FtLES.
CPF~ INPUT PRIM-SEe-LIST, PSR-FILE. NUMBER-FILE.
ENT~R COMPASS, UU~P. PAIM-S~C-LIST. PSR-FILE. NUMRER-FILE.
CLoSE PHIM-SEe-LIST. PSR-FI~E' NUM8ER-FILE.
l;O
TO STOP-PAR.
FILE-LTST SECTION.
FILE-Ll.
CPFN INPUT PRIM-SEe-LIST. PSR-FILE. NUMBER-FILE.
MovE SYSTEM-n~TE TO OATE-STORE.
MOvE SYSTEM-TIME TO TIME-STORE.
nIC;PLAY
~l PSR LIST FILE LISTING. DATE ~ DATE-STORE
~. TI~i ~ TIME-STORE ~.-
UPON CUT.
nIC;PLAY _0_ UPON OUT.
MovE B~l-CHO TO NUM-KfY.
FILE··L2.
~EAD
NUMBER-FIl.E INVALID KEY GO TO FILE-L3.
OIc;PLAY SPACE ~UM-KEV SPACE NUMBER-REC UPON CUT.
PEP'FCRM NUM-K~Y-UPDATE.
GO TO FILE-L2-
FILE-L~.
CLCSF NUM8ER-~ILE.
MOvE SYSTEM-T!ME TO TIME-STORE.
MOvE SYSTEM-nATE TO nATE-STORE.
OI5PLAY
~l
LIST FILE LIsTING. DATE _ DATE-STORE
~. TIM~ ~ TIM~-STCRE ~.~
UPON OUT.
DISPLAY ~o~ uPON CUT.
~OvE 8Kl-CHO TO PRIM.KEY.
FILE·,L4.
READ PRIM-SEC-LIST INVALID KEY GO TO FILE-LS.
nISPLAY SPACF. ~RIM_KEY SPACE HEADER-RECORD UPON OUT.
PERFORM PRIM-KEY.UPDATE.