proof(luminary): S-BAND_ANTENNA_FOR_LM (#696)

Luminary099/S-BAND_ANTENNA_FOR_LM.agc

@@ -28,24 +28,24 @@
 #	16:27 JULY 14, 1969
 
 # Page 486
-# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM
+# SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
 #
 # MOD0 BY T. JAMES
 # MOD1 BY P. SHAKIR
 #
 # FUNCTIONAL DESCRIPTION
 #
-# THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
+#     THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
 # YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
-# TOWARD THE CENTER OF THE EARTH.  THIS ROUTINE IS SELECTED BY THE ASTRO-
+# TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
 # NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
-# SURFACE.  THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
+# SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
 # ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
-# SPHERE OF INFLUENCE, RESPECTIVELY.
+# SPHERE OF INFLUENCE, RESPECTIVELY
 #
 # TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
 #
-# SUBROUTINES CALLED ---
+# SUBROUTINES CALLED-
 #	R02BOTH
 #	INTPRET
 #	LOADTIME
@@ -56,7 +56,7 @@
 #	BANKCALL
 #	B50OFF
 #	ENDOFJOB
-#	BLANKRET
+#	BLANKET
 #
 # RETURNS WITH
 #	PITCH ANGLE IN PITCHANG 	REV. B0
@@ -100,13 +100,13 @@ CONV3		CALL
 		GOTO
 			CONV5
 CONV4		VLOAD
-			RATT		# UE = -UNIT(RATT)		EARTH SPHERE
-CONV5		SETPD	UNIT		# UE = -UNIT((REM)(UEM) + RL)	MOON SPHERE
+			RATT		# UE = -UNIT(RATT)  EARTH SPHERE
+CONV5		SETPD	UNIT		# UE = -UNIT((REM)(UEM) + RL)  MOON SPHERE
 			0D		# SET PL POINTER TO 0
 		VCOMP	CALL
 			CDUTRIG		# COMPUTE SINES AND COSINES OF CDU ANGLES
 		MXV	VSL1		# TRANSFORM REF. COORDINATE SYSTEM TO
-			REFSMMAT	# STABLE MEMBER B-1 X B-1 X B+1 = B-1
+			REFSMMAT	# STABLE MEMBER  B-1 X B-1 X B+1 = B-1
 		PUSH	DLOAD		# 8D
 			HI6ZEROS
 		STORE	PITCHANG
@@ -123,27 +123,27 @@ CONV5		SETPD	UNIT		# UE = -UNIT((REM)(UEM) + RL)	MOON SPHERE
 		DAD	DMP
 			RLM
 			1OVSQRT2
-		STOVL	RLM		# R B-1
+		STOVL	RLM		# R  B-1
 			RLM
 		UNIT	PDVL
 # Page 488
 			RLM
-		VPROJ	VSL2		# PROJECTION OF R ONTO LM XZ PLANE.
+		VPROJ	VSL2		# PROJECTION OF R ONTO LM XZ PLANE
 			HIUNITY
 		BVSU	BOV		# CLEAR OVERFLOW INDICATOR IF ON
 			RLM
 			COVCNV
 COVCNV		UNIT	BOV		# EXIT ON OVERFLOW
 			SBANDEX
-		PUSH	VXV		# URP VECTOR B-1
+		PUSH	VXV		# URP VECTOR  B-1
 			HIUNITZ
 		VSL1	VCOMP		# UZ X URP = -(URP X UZ)
-		STORE	RLM		# X VEC B-1
+		STORE	RLM		# X VEC  B-1
 		DOT	PDVL		# SGN(X.UY) UNSCALED
 			HIUNITY
 			RLM
 		ABVAL	SIGN
-		ASIN			# ASIN((SGN(X.UY))ABV(X))	REV B0
+		ASIN			# ASIN((SGN(X.UY))ABV(X)) REV B0
 		STOVL	PITCHANG
 			URP
 		DOT	BPL
@@ -157,7 +157,7 @@ NOADJUST	VLOAD	VXV
 			UR		# Z = (UR X URP)
 			URP
 		VSL1
-		STODL	RLM		# Z VEC B-1
+		STODL	RLM		# Z VEC  B-1
 			PITCHANG
 		SIN	VXSC
 			HIUNITZ
@@ -189,7 +189,7 @@ SBANDEX		EXIT
 		TC	BLANKET		# BLANK R3
 		CAF	PRIO4
 		TC	PRIOCHNG
-		TC	SBANDANT +2	# YES, CONTINUE DISPLAYING ANGLES.
+		TC	SBANDANT +2	# YES, CONTINUE DISPLAYING ANGLES
 V06N51		VN	0651
 1OVSQRT2	2DEC	.7071067815	# 1/SQRT(2)
 
@@ -197,5 +197,4 @@ UR		EQUALS	0D
 URP		EQUALS	6D
 		SBANK=	LOWSUPER
 
-# END OF LNYAIDE .001 ***
-
+# *** END OF LNYAIDE .001 ***