Control Data Corporation 3300 Reference Manual page 234

:>
I
I:\:)
o
00810
00811
00812
00813
00814
OOAIS
00816
00811
OOBIA
OOA19
00820
00821
00$322
00823
00824
00825
00826
00821
00828
00829
00A30
00831
00832
00833
00834
00835
00836
00831
00838
008'39
00840
00A41
00842
00843
00844
00845
00846
00847
00848
00849
00850
00851
00852
00853
00854
GO TO TAPE-INPUT.
CHANGE-END.
IF OP-SYSTEM-l
=
ZEROES GO TO SECOND-CHECK.
IF MASTER-LIST-AK
=
ZERO~S MOVE ~MASTER~ TO OP-SYS-NAMET
PE~FORM NEED-S~CONDAPV-LJST,
SECOND-CHECK.
IF OP-SYSTEM-~
=
ZEROES r,c TO THIRD-CHECK.
IF MS05-LIST-A~
=
ZEpOES MOVE ~MSOS~ TO OP-SVS-NAMET
PEqFORM NEED-SECONDARV-LIST.
THIRO-CHECK.
IF OP-SYSTE~-J
=
ZEROES GO TO PSR-LINKAGE.
IF RTS-LIST-AK
=
ZFRO£S ~CVE tPT5t TO OP-SYS-NAMET.
pE~FCRM NEED-SfCCf\lDAPv-LTST.
pSR-LINKAGE. MOVF PSw-KEv TO TEM-KEV-3.
IF
PSR-AK-FOR~T
=
ZEPCES
A~O
PSR-AK-8ACKT GO TO
NO-PSR-L
J
\ \ j K .
IF PSR-AK-FORwT IS NOT EQUAL TO PSR-AK-BACKT GO TO BACK-eK.
MOvE P~R-AK-F~RWT TO PSR-KEY.
READ PSR-FILE INVALID KEy PERFORM PROGRAM-BUG.
PEQFORM MOVE-UATA.
W~JTE
PSR-FILt-REC INVALIO KEY PERFORM
PROGR~M-BUG.
IF EQUAL-PSRS (1)
=
SPACES GO TO NO-CTHER-PSR.
SEARCH EQUAL-?SRS AT END GO TO NO-PSR.LINK WHEN EQUAL-PSRS
(PSR-INDEX)
BACK.CK.
=
PSR-NC
~CVE
ZEROES TO EQUAL-PSRS (PSR-INDEX) GO TO
NO-PSR-LINK.
MOvE PSH-AK-R~CKT TO PSR-KEY.
READ PSR-FILE INVALID
KEy
PERFORM PROGRAM-BUG.
pERFORM MOVE-LJATA.
WRITE PSR-FILi-REC INVALrn KEY PERFORM PROGRAM-BUG.
TF PSR-AK-BACK
=
TEM-KEV-3 GO TO BACK-CK-l.
IF EQUAL-PSRS (1)
=
SPACES GO TO BACK.CK.
SEARCH EQUAL·PSRS AT ENQ GO TO BACK-CK WHEN EQUAL-PSRS
(PSR-INDEA)
=
PSR-NC MOVE ZEROES TO EQUAL-PSRS (PSR-INDEX) GO TO
BACK·eK.
SACI<:.CK-l.
IF EQUAL-PSRS
(1)
=
SPACES GO TO NO-OTHER-PSR.
SEARCH EQUAL.P5RS AT END GO TO NO-PSR-LINK WHEN EQUAL-PSRS
(PSR-INDEX)
=
PSR-NO :-10VE ZEROES TO EQUAL-PSRS (PSR-INDEX).
NO·PSR-LINK.
MOvE 1 TO DELETE-SUB.
\ NO-~;'SR-LINK-l.