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.
Need help?
Do you have a question about the 3300 and is the answer not in the manual?