Proof PLANETARY_INERTIAL_ORIENTATION #623 (#717)

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

Luminary099/PLANETARY_INERTIAL_ORIENTATION.agc

@@ -25,32 +25,31 @@
 #    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
+# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
 #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
 #
-#	R = MT(T) * (RP + LP X RP)	MT = M MATRIX TRANSPOSE
+#  R=MT(T)*(RP+LPXRP)	 MT= M MATRIX TRANSPOSE
 #
 # CALLING SEQUENCE
 #  L	   CALL
 #  L+1		  RP-TO-R
 #
 # SUBROUTINES USED
-#	EARTHMX, MOONMX, EARTHL
+#  EARTHMX,MOONMX,EARTHL
 #
 #    ITEMS AVAILABLE FROM LAUNCH DATA
-#		504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
+#     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
-#	MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
+#  MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
-#	0-5D = RP VECTOR
+#  0-5D= RP VECTOR
-#	6-7D = TIME
+#  6-7D= TIME
 #
 # OUTPUT
-#	MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
+#  MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
 
 		SETLOC	PLANTIN1
 		BANK
@@ -84,32 +83,31 @@ 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
 #
-#	RP = M(T) * (R - L X R)
+#  RP=M(T)*(R-LXR)
 #
 # CALLING SEQUENCE
 #  L	   CALL
 #  L+1		  R-TO-RP
 #
 # SUBROUTINES USED
-#	EARTHMX, MOONMX, EARTHL
+#  EARTHMX,MOONMX,EARTHL
 #
 # INPUT
-#	MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
+#  MPAC= 0 FOR EARTH, NON-ZERO FOR MOON
-#	0-5D = R VECTOR
+#  0-5D= R VECTOR
-#	6-7D = TIME
+#  6-7D= TIME
 #
 #    ITEMS AVAILABLE FROM LAUNCH DATA
-#		504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
+#     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
-#	MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
+#  MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
 
 R-TO-RP		STQ	BHIZ
 			RPREXIT
@@ -119,7 +117,7 @@ R-TO-RP		STQ	BHIZ
 		VLOAD	VXM
 			504LM		# LP=LM
 			MMATRIX
-		VSL1			# L = MT(T)*LP 		RADIANS B0
+		VSL1			#  L=MT(T)*LP  RADIANS B0
 RTORPB		VXV	BVSU
 			504RPR
 			504RPR
@@ -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
@@ -148,18 +146,17 @@ RTORPA		CALL			# EARTH COMPUTATIONS
 #  NEWANGLE
 #
 # INPUT
-#	6-7D = TIME
+#  6-7D= TIME
-#
 #    ITEMS AVAILABLE FROM LAUNCH DATA
-#		BSUBO, BDOT
+#     BSUBO,BDOT
-#		TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
+#     TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
-#		COSI = COS(I)	B-1
+#     COSI= COS(I) B-1
-#		SINI = SIN(I)	B-1
+#     SINI= SIN(I) B-1
 #	I  IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
 #	PLANE OF THE ECLIPTIC  (1 DEGREE  32.1 MINUTES)
 #
 # OUTPUT
-#	MMATRIX = 3X3 M MATRIX B-1	(STORED IN VAC AREA)
+#  MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
 
 MOONMX		STQ	SETPD
 			EARTHMXX
@@ -167,7 +164,7 @@ MOONMX		STQ	SETPD
 		AXT,1			# B REQUIRES SL 0, SL 5 IN NEWANGLE
 			5
 		DLOAD	PDDL		# PD 10D	    8-9D=BSUBO
-			BSUBO		#		10-11D=BDOT
+			BSUBO		#		    10-11D= BDOT
 			BDOT
 		PUSH	CALL		# PD 12D
 			NEWANGLE	# EXIT WITH PD 8D AND MPAC= B  REVS B0
@@ -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
+# 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,10 +367,9 @@ 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
+EARTHMXX	=	S2		# EARTHMX,MOONMX SUBR. EXITS
 504RPR		=	0D		# 6 REGS  R OR RP VECTOR
 SINNODI		=	8D		# 2	  SIN(NODI)
 DVECTR		=	8D		# 6	  D VECTOR MOON
@@ -387,5 +382,4 @@ BVECTR		=	26D		# 6		B VECTOR (MOON)
 MMATRIX		=	20D		# 18	  M MATRIX
 COB		=	32D		# 2	  COS(B) B-1
 SOB		=	34D		# 2	  SIN(B) B-1
-504F		=	6D		# 2		F(MOON)
+504F		=	6D		# 2	  F (MOON)
-