Control Data Corporation 3300 Reference Manual page 235

00855
00856
00857
00858
00859
00860
00861
00862
00863
OOA64
00865
00866
00867
00868
00869
00870
00871
00872
00873
00874
00875
00876
00877
0087~
00879
00880
00881
00882
OOB83
00884
00885
00886
00887
008A8
00889
00890
00891
00892
00893
00894
00895
00A96
00897
00898
00899
IF DELETE-SUA GREATER THAN 9 GO TO NO.OTHER-PSR.
MOVE
EWUAL-PS~S
(DELETE-SUB) TO PSR.
COMPUTE
B-C
=
«(PSR -
HIAS)
*
12)
+
504) / 504.
IF B-C IS NEGATIVE DISPLAY STARS. DIAGNOSTIC-EI, STARS.
PROD.NOT. EQUAL-PSRS <DELETE-SUB) UPON OUT ADD
1
TO
DELETE-SUS GO TO NC-PSR-LINK-l.
MOVE 8LK TO NUM-KEY-I.
MOVE CHAR TO NUM-~EY-2.
READ NUMBER-FILE INVALID KEY MOVE
ZEROES
TO NUMBER-REC.
IF NUM8ER-Rf~C = ZERO DISPLAY STARS. DIAGNOSTIC-P4, STARS,
REC-A UPOI'J OUT ADlJ
1 Te:
DELETE-SUB GO TO NO-PSR-LINK-l.
MOV~ NUMBER-R~C TO PSH-KFY.
PEAO PSR-FILE INVALID KEy PERFORM PROGRAM-BUG.
MOVE-DATA.
IF LOGGED-OUT
=
SPACES NEXT SENTENCE ELSE MOVE LOGGED-OUT
TO OUT-DTu.
IF OP-SYsTEM-l
=
SPACES NEXT SENTENCE ELSE MOVE
O~-SYSTEM-l
TO SYS-A.
IF VERS-l
=
SPACES NEXT SENTENCE ELSE MOVE VERS-l TO VER-A.
IF OP-SYSTEM.2
=
SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-2
TO SYS-B.
IF VERS-2
=
SPACES NEXT SENTENCE ELSE MOVE VERS-2 TO VER-B.
IF op-SYSrfM-~
=
SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-3
TO SYS-C.
IF VfR-3
=
SPACES NEXT S~NTENCE ELSE MOVE VER-3 TO VER-C.
JF
TEST
=
SPACES NEXT SENTENCE ELSE MOVE TEST TO TESTEO.
IF SUM-NUM
=
S~ACES NEXT SENTENCE ELSE MOVESUM-NUM TO
SU~!l-NO
•
MCVE-OATI~-l.
IF PSR-AK-FORW
=
ZERO GO TO MOVE-DATA-3.
MOvE
PSR-AK-FW~W
TO PSk-KEY, TEM-KEY-7.
READ PSR.FILE INVALID KEY PERFORM PROGRQM-BUG
PERFORM MOVE-LIAT
A.
IF
PSR-AK-~OPw
=
NUMRER-REC GO TO EQUAL-PSR-LINKAGE.
MOVE.DATA-2. '
MOVE PSR-AK-FORW TO PSR-KEY.
READ PSR-FILE INVALIn KEy PERFORM PROGRA~-BUG.
PERFORM MOVE-DATA. IF PSR-AK-FORW
=
NUMBER-REC NEXT
SENTENCE ~LS~ WRITE PSR-FILE-REC INVALID KEY PERFORM
PROGRAM-RUG
1',0
TO fvlOVE'-OA TA-2.
MOvE.DATA-3.
MOvE TEM-KEY-3 TO PSR-~K-FORw.
MOvE PSR.AK-BACKT TO PSR-AK-8ACK.
WRITE PSR-FILl-REC INVALID KEY PERFORM PROGRAM-BUG.
MOVE PSR.KEY TO PSR-AK-BACKT.