diff --git a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc index b269a39..dc637fe 100644 --- a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc +++ b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc @@ -38,6 +38,7 @@ # ******************************************************** # FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION. THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE: + # WCHPHASE = -1 ---> IGNALG # WCHPHASE = 0 ---> BRAKQUAD # WCHPHASE = 1 ---> APPRQUAD @@ -92,7 +93,7 @@ WHATDISP TCF P63DISPS # BRAKQUAD WHATALM TCF 1406ALM # BRAKQUAD TCF 1406ALM # APPRQUAD -# INDICES FOR REFERENCING TARGET PARAMETERS +# INDICES FOR REFERENCING TARGET PARAMETERS: OCT 0 # IGNALG TARGTDEX OCT 0 # BRAKQUAD @@ -102,7 +103,7 @@ TARGTDEX OCT 0 # BRAKQUAD # ENTRY POINTS: ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT #************************************************************************ -# IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC GUIDANCE +# IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC QUIDANCE ?GUIDSUB EXIT CAF TWO # N = 3 @@ -127,16 +128,16 @@ LUNLAND TC PHASCHNG COUNT* $$/R13 -# HERE IS THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE +# HERE IS THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE # DISCRETE TO SELECT P67 OR P66 RESPECTIVELY: ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66 -# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE +# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE. GUILDEN EXTEND # IS UN-AUTO-THROTTLE DISCRETE PRESENT? # STERN # RSB 2009: Not originally a comment. - READ CHAN30 + READ CHAN30 MASK BIT5 - CCS A - TCF STARTP67 # YES + CCS A + TCF STARTP67 # YES P67NOW? TC CHECKMM # NO: ARE WE IN P67 NOW? DEC 67 TCF STABL? # NO @@ -195,7 +196,7 @@ STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT? EXTEND RAND CHAN31 CCS A - TCF GUILDRET # YES ALL'S WELL + TCF GUILDRET # YES: ALL'S WELL P66NOW? CS MODREG AD DEC66 @@ -204,8 +205,8 @@ P66NOW? CS MODREG CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"? EXTEND - BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING - TCF STARTP66 # YES. SWITCH INTO THE ROD MODE. + BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING. + TCF STARTP66 # YES. SWITCH INTO THE ROD MODE. RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART? MASK RODFLBIT @@ -213,7 +214,7 @@ RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART? BZF STRTP66A # YES. REINITIALIZE BUT LEAVE VDGVERT AS # IS. - TCF VERTGUID # NO: CONTINUE WITH R.O.D. + TCF VERTGUID # NO: CONTINUE WITH R.O.D. # ******************************************************************************* # INITIALIZATION FOR THIS PASS @@ -225,8 +226,8 @@ GUILDRET CAF ZERO TS RODCOUNT # Page 802 - +2 EXTEND - DCA TPIP ++2 EXTEND + DCA TPIP DXCH TPIPOLD TC FASTCHNG @@ -268,13 +269,13 @@ STARTP64 TC NEWMODEX ADRES REDFLAG -# (CONTINUE TO TTFINCR) +# (CONTINUE TO TTFINCR) # ********************************************************************************* # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS # ********************************************************************************* # -# TTFINCR COMPUTATIONS ARE AS FOLLOWS -- +# TTFINCR COMPUTATIONS ARE AS FOLLOWS:- # Page 803 # TTF/8 UPDATED FOR TIME SINCE LAST PASS: # TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8