Control Data Corporation 3300 Reference Manual page 242

)-
I
~
00
01170
01171
01172
01173
01174
01175
01176
01177
01178
01179
0118e
01181
011B2
01183
01184
01185
01186
01187
01188
011R9
01190
01191
01192
01193
01194
0119C;
01196
011.97
01198
01199
01?OO
01201
01202
01203
01204
01205
01206
01207
01208
01209
01210
01211
01212
01213
01214
OP-SYSTEM-CHECK.
IF CP-SYS-LEVtL
=
~M~STER. MOVE ~ASTER-SAK TO PRIM-KEY
GO TO CCM~LETE-LEVEL.
IF OP-SYS-LEV~L
=
~MS05_ MOVE MSOS-SAK TO PRIM-KEY
GO TO CCM~LETE-LEVEL.
rF OP-SYS-LEV~L
=
~RTS1 MOVE RTS-SAK TO PRIM-KEY
GO TO CO~~LET~-LEV~L.
OI~PLAY
STARS, OIAGNOSTIC-Ll. STARS, REC-L UPON OUT.
GO TO TApE- I ~\Wt.lT •
COMPLETE-LEVEL.
READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG.
MOVE SUPPORT-LEVEL TO SUPP-LEVEL.
WRITE HEAOER-~~CORn INVALID KEY PERFORM PROGRAM-BUG.
GO TO TAPE-l~?UT.
REPORT-PROCESS S~tlICN.
REPORT.PROCESSOR.
IF OS-FIElD2
lS
NUMERiC NEXT SENTENCE ELSE GO TO
REPORT-P~8CESSCR-l.
IF OS-FIELU3
is
EQUAL TO SPACE MOVE OS-FIELD2 TO PSR ELSE
MOVE OS-FIELD! TO
PS~.
COMPUTE B-C
=
«(PSR - BTAS) ~
12)
+
504) / 504.
MOVE BlK TO NUM-BLK.
MOVE CHAR TO ~UM-CHAR.
MOvE
NUMBER-R~C
TO
NUM-K~Y.
READ NUMBER-FILE INVALID KEY PERFORM PROGRAM-BUG.
MovE NUMBER-PiC TO PSR-KEY.
PEAD PSR-FILf INVALID KEY PERFORM PROGRAM-BUG.
MOVE ~SINGLE PSR REPO~T_ TO REPT-HEADING.
~ovE PSH-FILE-~EC TO PSR-FILE-RECT.
PEPFORM DELETt-RPT.
eo TO TAPE-INPUT.
QEPORT-PRCCESSCR-l.
IF OS-FIELD
=
tALLt PERFORM PROD-CHECK VARYING OS-NUMBER
FRO~
1 8y 1
U~lIL OS-NUM~ER
=
3 GO TO TAPE-INPUT.
IF OS-FIELD
=
~~ASTER~ 'MOVE
1
TO OS-NUMBER.
IF Os-FIELD
=
*~S05~
MOVF 2 TO OS-NUMBER.
rF CS-~IELD
=
~RTSt MOVE 3 TO QS-NUMBER.
PERFORM PROD-~rl£CK GO TO TAPE-INPUT.
pROD-CHECK
SECTIo~.
pROO-CHEt<.
MovE PLH-SAK
fa
PRI~-KEY, TEM-KEY-l.
READ PRIM-SEe-LIST INVALID KEY PERFORM PROGRAM-BUG.
MOvE FORwARD-LINK TO TEM-KEY-2, PRIM-KEY.
IF PRCD-FIELD
=
~ALL¢
PERFORM ALL-PROD GO To PROD-CHECK3.
pROD,.CHECK 1.