Proof STABLE_ORBIT #640 (#674)

* STABLE_ORBIT Typo corrections

* Apply suggestions from code review

Co-authored-by: James Harris <wopian@wopian.me>

Luminary099/STABLE_ORBIT.agc

@@ -32,8 +32,8 @@
 # Page 723
 # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
 #
-# MOD NO -1		LOG SECTION -- STABLE ORBIT -- P38-P39
-# MOD BY RUDNICKI.S	DATE 26JAN68
+# MOD NO -1		LOG SECTION - STABLE ORBIT - P38-P39
+# MOD BY RUDNICKI.S	DATE 25JAN68
 #
 # FUNCTIONAL DESCRIPTION
 #
@@ -71,9 +71,9 @@
 #		(C)  OPTION	EQUALS 2 FOR SOR
 #		(D)  DELTTIME	THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
 #				TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
-#				VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
+#				VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
 #				SOI PHASE
-#		(E)  TINT	TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
+#		(E)  TINT	TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
 #
 # OUTPUT
 #
@@ -87,8 +87,8 @@
 #			THE SOI (SOR) MANEUVER
 #	(6)  DELVTPI	MAGNITUDE OF DELTA V AT SOI (SOR) TIME
 #	(7)  DELVTPF	MAGNITUDE OF DELTA V AT INTERCEPT TIME
-#	(8)  DELTA 	VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
-#			CORDINATES
+#	(8)  DELVLVC	DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
+#			COORDINATES
 #
 # SUBROUTINE USED
 #
@@ -129,7 +129,7 @@ P78		TC	BANKCALL
 		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
-		CAF	THREE		# IMMEDIATE RETURN -- BLANK R1, R2
+		CAF	THREE		# IMMEDIATE RETURN - BLANK R1, R2
 		TCR	BLANKET
 # Page 725
 		TCF	ENDOFJOB
@@ -137,13 +137,13 @@ P78		TC	BANKCALL
 		TS	OPTION1
 		CAF	ONE
 		TS	OPTION2		# OPTION CODE IS SET TO 1
-		CAF	V04N06SR	# DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
+		CAF	V04N06SR	# DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
 		TCR	BANKCALL
 		CADR	GOFLASHR
 		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
-		CAF	BIT3		# IMMEDIATE RETURN -- BLANK R3
+		CAF	BIT3		# IMMEDIATE RETURN - BLANK R3
 		TCR	BLANKET
 		TCF	ENDOFJOB
 		TC	INTPRET
@@ -172,7 +172,7 @@ OPTN1		SET	CLEAR		# SOI
 		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
-		CAF	SIX		# IMMEDIATE RETURN -- BLANK R2, R3
+		CAF	SIX		# IMMEDIATE RETURN - BLANK R2, R3
 		TCR	BLANKET
 		TCF	ENDOFJOB
  +5		EXTEND
@@ -215,7 +215,6 @@ JUNCTN2		DLOAD	DSU
 		STORE	TARGTIME	# TT = TI - DELTA T
 
 # .... MAINRTNE ....
-#
 # SUBROUTINES USED:
 #
 #	S3435.25
@@ -254,7 +253,7 @@ MAINRTN1	VLOAD	ABVAL
 			VPASS4
 		VSU	ABVAL
 			VTPRIME
-		STOVL	DELVTPF		# DELTA V (FINAL) = V*T - VT
+		STOVL	DELVTPF		# DELTA V (FINAL) = V'T - VT
 			RACT3
 		PDVL	CALL
 			VIPRIME
@@ -284,8 +283,8 @@ DSPLY81		CAF	V06N81SR	# DISPLAY DELTA V (LV)
 
 # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
 #
-# MOD NO -1		LOG SECTION -- STABLE ORBIT -- P38-P39
-# MOD BY RUDNICKI, S	DATE 25JAN68
+# MOD NO -1		LOG SECTION - STABLE ORBIT - P38-P39
+# MOD BY RUDNICKI.S	DATE 25JAN68
 #
 # Page 728
 # FUNCTIONAL DESCRIPTION
@@ -304,8 +303,8 @@ DSPLY81		CAF	V06N81SR	# DISPLAY DELTA V (LV)
 #
 # INPUT
 #
-#	(1)  TPASS4	TIME OF INTERCEPT -- SAVED FROM P38/P78
-#	(2)  TARGTIME	TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
+#	(1)  TPASS4	TIME OF INTERCEPT - SAVED FROM P38/P78
+#	(2)  TARGTIME	TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
 #			SAVED FROM P38/P78
 #
 # OUTPUT
@@ -355,7 +354,6 @@ P39/P79B	RTB	DAD
 			MAINRTNE	# CALCULATE DELTA V AND DELTA V (LV)
 
 # .... PREC/TT ....
-#
 # SUBROUTINES USED
 #
 #	PRECSET
@@ -389,7 +387,6 @@ PREC/TT		STQ	DLOAD
 			RTRN
 
 # .... INTRPVP ....
-#
 # SUBROUTINES USED
 #
 #	CSMPREC
@@ -410,7 +407,6 @@ OTHERV		CALL
 			RTRN
 
 # .... VNDSPLY ....
-#
 # SUBROUTINES USED
 #
 #	BANKCALL
@@ -438,4 +434,3 @@ DECTWO		OCT	2
 # *** END OF KISSING  .050 ***
 
 
-