Proof PLANETARY_INERTIAL_ORIENTATION #623 (#717)

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

Luminary099/PLANETARY_INERTIAL_ORIENTATION.agc

@@ -25,7 +25,7 @@
 #    16:27 JULY 14, 1969
 
 # Page 1140
-# ***** RP-TO-R SUBROUTINE *****
+# ..... RP-TO-R SUBROUTINE .....
 # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
 #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
 #
@@ -41,7 +41,6 @@
 #    ITEMS AVAILABLE FROM LAUNCH DATA
 #     504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
 #     IN THE MOON-FIXED COORD. SYSTEM	RADIANS	 B0
-#
 #	ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
 #
 # INPUT
@@ -84,7 +83,7 @@ RPTORA		CALL			# EARTH COMPUTATIONS
 		COUNT*	$$/LUROT
 
 # Page 1142
-# ***** R-TO-RP SUBROUTINE *****
+# ..... R-TO-RP SUBROUTINE .....
 # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
 #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
 #
@@ -105,7 +104,6 @@ RPTORA		CALL			# EARTH COMPUTATIONS
 #    ITEMS AVAILABLE FROM LAUNCH DATA
 #     504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
 #     IN THE MOON-FIXED COORD. SYSTEM	RADIANS B0
-#
 #	ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
 #
 # OUTPUT
@@ -137,7 +135,7 @@ RTORPA		CALL			# EARTH COMPUTATIONS
 			RTORPB
 
 # Page 1143
-# ***** MOONMX SUBROUTINE *****
+# ..... MOONMX SUBROUTINE .....
 # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
 #
 # CALLING SEQUENCE
@@ -149,7 +147,6 @@ RTORPA		CALL			# EARTH COMPUTATIONS
 #
 # INPUT
 #  6-7D= TIME
-#
 #    ITEMS AVAILABLE FROM LAUNCH DATA
 #     BSUBO,BDOT
 #     TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
@@ -178,7 +175,7 @@ MOONMX		STQ	SETPD
 			FSUBO		# 		      8-9D=FSUBO
 		PDDL	PUSH		# PD 10D THEN 12D   10-11D=FDOT
 			FDOT
-		AXT,1	CALL		# F REQUIRES SL 1, SL 6 IN NEWANGLE.
+		AXT,1	CALL		# F REQUIRES SL 1, SL 6 IN NEWANGLE
 			4
 			NEWANGLE	# EXIT WITH PD 8D AND MPAC= F REVS B0
 		STODL	AVECTR +2	# SAVE F TEMP
@@ -256,12 +253,11 @@ MOONMXA		STODL	AVECTR +2
 		VSL1	VCOMP
 		STCALL	MMATRIX		# M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
 			EARTHMXX
-
 # COMPUTE X=X0+(XDOT)(T+T0)
 # 8-9D= X0 (REVS B-0),PUSHLOC SET AT 12D
 # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
 #			  AND B+27 FOR FDOT
-# X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND
+#  X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
 #					   BDOT AND 4 FOR FDOT
 # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
 
@@ -284,11 +280,11 @@ NEWANGLE	DLOAD	SR		# ENTER PD 12D
 		SL*	DAD		# PD 8D	  SHIFT SUCH THAT THIS PART OF X
 			10D,1		#	  IS SCALED REVS/CSEC B-0
 		BOV			# TURN OFF OVERFLOW IF SET BY SHIFT
-			+1		# INSTRUCTION BEFORE EXITING.
+			+1		# INSTRUCTION BEFORE EXITING
 		RVQ			# MPAC=X= X0+(XDOT)(T+T0)  REVS B0
 
 # Page 1146
-# ***** EARTHMX SUBROUTINE *****
+# ..... EARTHMX SUBROUTINE .....
 # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
 #
 # CALLING SEQUENCE
@@ -339,7 +335,7 @@ EARTHMX		STQ	SETPD		# SET 8-9D=AZO
 			EARTHMXX
 
 # Page 1147
-# ***** EARTHL SUBROUTINE *****
+# ..... EARTHL SUBROUTINE .....
 # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
 #
 # CALLING SEQUENCE
@@ -371,7 +367,6 @@ EARTHL		DLOAD	DCOMP
 
 # Page 1148
 # CONSTANTS AND ERASABLE ASSIGNMENTS
-
 1B1		=	DP1/2		# 1  SCALED B-1
 RPREXIT		=	S1		# R-TO-RP AND RP-TO-R SUBR EXIT
 EARTHMXX	=	S2		# EARTHMX,MOONMX SUBR. EXITS
@@ -388,4 +383,3 @@ MMATRIX		=	20D		# 18		M MATRIX
 COB		=	32D		# 2	  COS(B) B-1
 SOB		=	34D		# 2	  SIN(B) B-1
 504F		=	6D		# 2	  F (MOON)
-