Proofed Page 798-802

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