First Proofing Finished

I just want to go back and have a cursory second look at what I've done just to make sure it's not foolish.
-KS
pull/698/head
Kourosh Simpkins 2020-12-27 01:01:17 +00:00
parent ad85914089
commit d6d6c500c6
1 changed files with 15 additions and 15 deletions

View File

@ -1648,7 +1648,7 @@ HIGATJOB TC BANKCALL # START LRPOS2 JOB
POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
TC PRIOCHNG
TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS
TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
TC DOWNFLAG
ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
@ -1658,7 +1658,7 @@ POSALARM CA OCT523
TC BANKCALL
CADR PRIOLARM # FLASH ALARM CODE
TCF GOTOPOOH # TERMINATE
TCF +3 # PROCEED -- TRY AGAIN
TCF +3 # PROCEED - TRY AGAIN
TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB
@ -1669,8 +1669,7 @@ POSALARM CA OCT523
BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS
TCF POSALARM # STILL DIDN'T MAKE IT REALARM
OCT523 OCT 00523
OCT523 OCT 523
SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
@ -1680,7 +1679,7 @@ SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
TS STILBADH # INITIALIZE STILBAD
TS STILBADV # INITIALIZE STILBAD
CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1.
CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
# Page 896
TS LRLCTR # SET L,M,R, ANS S TO ZERO
TS LRMCTR
@ -1688,11 +1687,12 @@ SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
TS LRSCTR
TS VSELECT # INITIALIZE VSELECT
TC SETPOS # CONTINUE WITH COMPUTATIONS.
TC SETPOS # CONTINUE WITH COMPUTATIONS
CA LRADRET1
TC BANKJUMP # RETURN TO CALLER
SETPOS2 CA TWO # INDEX FOR POS2
SETPOS XCH Q # SAVE INDEX IN Q
TS LRADRET # SAVE RETURN