Control Data Corporation 3300 Reference Manual page 231

00674
00675
00676
00677
00678
00679
00680
00681
0068?
00683
00684
00685
00686
00687
00688
00689
00690
00691
00692
00693
00694
00695
00696
00697
00698
00699
00700
00701
00702
00703
007 04
00705
00706
00707
00708
00709
00710
00711
00712
00713
00714
00715
00716
00717
00718
GG TO
fAPE-l~I;';UT
It
AOD-pRGe.
MovE HEe-A-MC~El TO DE5C (COnE-NUM), OESCT <CODE-NUM)a
p~pFORM REAO.~aUTINE.
G~
TO
IF-CHECK~R.
AOO-F.:I\Jf).
~OvE
DATE-INT TO FIRST-nATE.
COMPUTE AS-DTl
=
«VV - ~6) ~
365) +
MTA8 (MM)
+ DO.
MovE PSR-NOT Ta PSR.
COMPUTE
B-C
=
«(PSR - BTAS)
*
12)
+
504) I 504.
IF 8-C Is NEGATIVE OrSPL~V STARS, DIAGNOSTIC-PI, STARS.
_AO_,
PSR-FILEI-MOVET UPON CUT GO TO TAPE-CHECK.
MovE BlK TO NJ~-KEY-l.
MOvE CHAR TO NUM-KEY-2.
AOO-F.:f'1r)-1.
READ NUMBER-FILE INVALID KEY PERFORM EXPANO-NUM-FILE
GO TO AOO-ENr)-l.
TF NUM~ER-REe IS NOT EQUAL To ZEROES DISPLAY STARS.
OIAGNOSTtC-P3. ST~RS. _AO~, PSR-FILE1-MOVET UPON OUT
GO To TAPt-INPUT.
ADD-F.:Nn-2.
MOVE PSR.NOT Ie PSR-NU~BERT.
MOVE PLrl-SAK
to
PRIM-KEY, SAVE-SAK.
READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG.
JF
FCRWARD-LI~K
=
RACKwARO-LINK AND HEADER-SAK
AO TO RulLO-PRIM-ENTRY.
MOVE FORWARD-LINK TO
PRIM-~EY.
CHECK-ANOTHER.
READ PRIM-SEe-LIST INVALID KEY PERFORM PROGRAM-BUG.
IF PROu-NMT
=
PROOUCT-NAM~
Go TO FOUND-PROD.
MOvE FORWARD-LINK TO PRIM-KEY.
IF PRIM-KEY IS NOT EQUAL TO SAVE-SAK GO TO CHECK-ANOTHER.
RUlLO-PRIM-ENTRY.
MovE
SPACES
TO
PROOUCT-NAMET.
DISPLAY ~ NEW PRODUCT NAME~ pROO-NMT ~ TO BE ENTERED ~~
~RESPOND
OK, NO, OR CORRECT
SPELLING~.
AccEPT PROOUCI-NAMET.
IF
PAOUUCT-NAMET
=
-OK~ GO To BLD-ENTRY.
IF PRODUCT-NAMET
=
_NO_ DISPLAY STARS, DIAGNOSTIC-P, STARS,
~AO~ PSR-~ILEl .. MOVET UPON CUT GO TO TAPE-CHECK.
MovE
PRODUCT.~AMET To ?ROO-NMT.
GO TO ADO-END-~.
BLO-Et\.JTRY.
PEQFORM GET-EMPTY-LIST. MOVE ALL ZEROES TO PRIMARY-RECCROT.
MovE PRIM-KEV TO RAK-LINKT.