From d6d6c500c619cc47b2303bac2b243d0fce73b59c Mon Sep 17 00:00:00 2001 From: Kourosh Simpkins Date: Sun, 27 Dec 2020 01:01:17 +0000 Subject: [PATCH] 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 --- Luminary099/SERVICER.agc | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc index 771173a..a95b742 100644 --- a/Luminary099/SERVICER.agc +++ b/Luminary099/SERVICER.agc @@ -1630,14 +1630,14 @@ RDGIMS EXTEND EBANK= DVCNTR # Page 895 -# HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING -# THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE -# LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE -# LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA -# ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY -# BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH -# RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR -# MEASUREMENTS AND THE JOB TERMINATES. +# HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING +# THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE +# LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE +# LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA +# ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY +# BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH +# RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR +# MEASUREMENTS AND THE JOB TERMINATES. HIGATJOB TC BANKCALL # START LRPOS2 JOB CADR LRPOS2 @@ -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,18 +1669,17 @@ 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 - TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED + TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED CAF TWO 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