Control Data Corporation 3300 Reference Manual page 247

01395
01396
01397
01398
01399
01400
01401
01402
01403
01404
01405
01406
01407
01408
01409
01410
01411
01412
01413
01414
01415
01416
01417
01418
01419
01420
01421
01422
01423
01424
01425
01426
01427
01428
01429
01430
01431
01432
01433
01434
01435
01436
01437
01438
01439
MOVE CODE-ALPHA TO ALPHA.SAVE
GO TO TAPE-CHECK.
pROGRAM-BUG SECTION.
SYSTEM-ERROR.
DISPLAY ~IRR£GULAR CONDITION OCCURREO, FILE INTIGRXTV QUESTJ
;tONABLE¢.
DI5PLAY ¢-IRR~GULAR CONDITION OCCURR£O, FILE INTIGRITv QUEsTt
*ONABLE;t
UPON OUT.
ENTER COMPASS, PRGABORT.
INPUT-pROCEDURE SECTION.
pARA-ONE-TIME.
READ INFILE-CARO
AT END GO TO ONE-TIME-ALSO.
IF LEGAL.CODE RELEAS~ SORT-FILE-REC FROM INR!C
GO TO PAR~-ONE-TIME.
DISPLAY STARS, DIAGNOSTIC-C~ STARS.
INREC UPON OUT.
GO TO PARA-ON~-TIME.
ONE-TIME-ALSO. EXIT.
READ-ROUTINE SECTION.
READ-RCUT.
READ SORT-OUT AT END GO TO ~EAD-ROUT-2.
IF CODE-ALPHA
=
ALPHA-SAVE GO TO READ-ROUT-£ND.
READ-ROUT-I.
GO TO ADD-END, CHANGE-END. TAPE-CHECK OEP!NDING ON
GO-KEY.
READ.RcUT-2.
MOVE ~Z~ TO CeDE-ALPHA.
GO TO READ-ROUT-I.
PEAD-RoUT-ENO.
EXIT.
UTILITY SECTION.
U-PRCCESSOR.
1;LOAD FILES;6
~OI.JMP FILES;~
~COLLECT
t='
Il .. ES.
~ESTAaLIsH
FILES¢
tLtST
FILF.S;~
GO TO LOAD.
GO TO . DUMP.
Go TO COLLECT.
Go
TO
ESTA8LISH.
GO TO
FIL~-LIST.
IF U-FIELD
=
TF U-FIELD
=
IF U-FIELD
=
IF U-FIELD
=
IF U-F'IELO
=
DISPLAY
STA~S, OJAGNOSTIC-\J, STARS,
REC-U.
U-PRCC-l.
RE~O SaRT-OUT AT END
GO TO ALTfM-STCP.
IF
CODE-ALPHA
=
~$¢
GO TO
U-PROCESSCR.
MOVE CODE-ALPHA TO ALPHA-SAVE.
GO TO FILE-CP~N.
LOAD SECTION.