Proofed Page 803-812

Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc

@@ -277,12 +277,17 @@ STARTP64	TC	NEWMODEX
 #	TTFINCR COMPUTATIONS ARE AS FOLLOWS --
 # Page 803
 #		TTF/8 UPDATED FOR TIME SINCE LAST PASS:
+#
 #			TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
+#
 #		LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
-#			____               ____   ____                   __
+#
+#			_                  _      _                      _
 #			LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
+#
 #		SLANT RANGE TO LANDING SITE, FOR DISPLAY:
-#			                 ____   _
+#
+#			                 _      _
 #			RANGEDSP = ABVAL(LAND - R)
 
 TTFINCR		TC	INTPRET
@@ -360,11 +365,11 @@ REDESIG		CA	FLAGWRD6	# IS REDFLAG SET?
 		TC	INTPRET
 		VLOAD	VSU
 			LAND
-			R		#                 ____   _
+			R		#                 _      _
 		RTB	PUSH		# PUSH DOWN UNIT (LAND - R)
 			NORMUNIT
 		VXV	VSL1
-			YNBPIP		#                    ___        ____   _
+			YNBPIP		#                    _          _      _
 		VXSC	PDDL		# PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
 			ELINCR
 			AZINCR
@@ -411,23 +416,29 @@ REDES1		DLOAD	DSU
 # COMPUTE STATE IN GUIDANCE COORDINATES
 # *********************************************************************
 #
-#	RGVGCALC COMPUTATIONS ARE AS FOLLOWS:--
+#	RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
+#
 #	VELOCITY RELATIVE TO THE SURFACE:
-#		_______   _   _   __
+#
+#		_         _   _   _
 #		ANGTERM = V + R * WM
+#
 #	STATE IN GUIDANCE COORDINATES:
-#		___   *   _   ____
+#
+#		_     *   _   _
 #		RGU = CG (R - LAND)
-#		___   *   _   __   _
+#
+#		_     *   _   _    _
 #		VGU = CG (V - WM * R)
 # Page 806 actually starts one line earlier but that would separate the markers from their variables
 #
-#	HORIZONTAL VELOCITY FOR DISPLAY
+#	HORIZONTAL VELOCITY FOR DISPLAY:
 #
 #		VHORIZ = 8 ABVAL (0, VG , VG )
 #		                       2    1
+#
 # 	DEPRESSION ANGLE FOR DISPLAY:
-#		                       _   ____  ______
+#		                       _   _     _
 #		LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
 
 CALCRGVG	TC	INTPRET		# IN IGNALG, COMPUTE V FROM INTEGRATION
@@ -453,7 +464,7 @@ RGVGCALC	TC	INTPRET		# ENTER HERE TO RECOMPUTE RG AND VG
 			ZEROVECS	#           2   1
 		ABVAL	SL3
 		STOVL	VHORIZ		# VHORIZ FOR DISPLAY DURING P65.
-			R		#           _   ____
+			R		#           _   _
 		VSU	PUSH		# PUSH DOWN R - LAND
 			LAND
 		MXV	VSL1
@@ -470,7 +481,7 @@ RGVGCALC	TC	INTPRET		# ENTER HERE TO RECOMPUTE RG AND VG
 		TS	PUSHLOC
 
 # Page 807
-		CA	MPAC		# COMPUTE LOOKANGLE ITSELF
+		CA	MPAC		# COMPUTE LOOKANGL ITSELF
 		DOUBLE
 		TC	BANKCALL
 		CADR	SPARCSIN -1
@@ -501,7 +512,7 @@ TTF/8CL		TC	INTPRETX
 		DSU	DMP
 			RGU +4
 			3/8DP
-		STORE	TABLTTF		# A(0) = -24 (RGU  - RDG )/64 TO TABLTTF
+		STORE	TABLTTF		# A(0) = -24(RGU  - RDG )/64 TO TABLTTF
 		EXIT			#               2      2
 
 		CA	BIT8
@@ -530,23 +541,25 @@ TTF/8CL		TC	INTPRETX
 # MAIN GUIDANCE EQUATION
 # *********************************************************************************
 #
-#	AS PUBLISHED --
+#	AS PUBLISHED:-
-#		              ___   __       ___   __
+#		              _     _        _     _
-#		___   ___   6(VDG + VG)   12(RDG - RG)
+#		_     _     6(VDG + VG)   12(RDG - RG)
 #		ACG = ADG + ----------- + ------------
 #		                TTF        (TTF)(TTF)
-#	AS HERE PROGRAMMED --
+#
-#		             ___   __
+#	AS HERE PROGRAMMED:-
-#		      3 (1/4(RDG - RG)   ___   __)
+#
+#		             _     _
+#		      3 (1/4(RDG - RG)   _     _ )
 #		      - (------------- + VDG + VG)
-#		___   4 (    TTF/8               )   ___
+#		_     4 (    TTF/8               )   _
 #		ACG = ---------------------------- + ADG
 #		                  TTF/8
 
 QUADGUID	CS	TTF/8
 		AD	LEADTIME	# LEADTIME IS A NEGATIVE NUMBER
 		AD	POSMAX		# SAFEGUARD THE COMPUTATIONS THAT FOLLOW
-		TS	L		#	BY FORCING -TTF*LEADTIME > OR = ZERO
+		TS	L		#	BY FORCING -TTF+LEADTIME > OR = ZERO
 		CS	L
 		AD	L
 		ZL
@@ -597,7 +610,7 @@ QUADGUID	CS	TTF/8
 			30D
 			ADG,1
 		VAD
-AFCCALC1	VXM	VSL1		# VERGUID COMES HERE
+AFCCALC1	VXM	VSL1		# VERTGUID COMES HERE
 			CG
 		PDVL	V/SC
 			GDT/2
@@ -713,11 +726,14 @@ EXSPOT1		EXTEND
 # ***********************************************************************
 #
 # 1.	EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
+#
 # 2.	EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
+#
 # 3.	EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
+#
 # 	(EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
 
-EXGSUB		TC	INTPRET		# COMPUTE TRIM VELOCITY CORRECTION TERM.
+EXGSUB		TC	INTPRET		# COMPUTE TRIM VELOCITY CORRECTION TERM
 # Page 812
 		VLOAD	RTB
 			UNFC/2