From ff0daa961c6907c392b28148f2092a0a03fc6868 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= <tais@hey.com>
Date: Fri, 29 Oct 2021 17:09:37 +0000
Subject: [PATCH] proof(luminary099): page 1161

---
 Luminary099/CONIC_SUBROUTINES.agc | 52 +++++++++++++++++--------------
 1 file changed, 29 insertions(+), 23 deletions(-)

diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc
index b801389..c0c196d 100644
--- a/Luminary099/CONIC_SUBROUTINES.agc
+++ b/Luminary099/CONIC_SUBROUTINES.agc
@@ -100,24 +100,27 @@
 #	RRECT		* +29 FOR EARTH*	DP INITIAL POSITION VECTOR IN METERS
 #			* +27 FOR MOON *
 # Page 1161
-#	VRECT		* +7 FOR EARTH	*	DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
-#			* +5 FOR MOON	*
-#	X1 (38D)	* NONE		*	INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
-#			*		*		RESPECTIVELY, IS THE CENTRAL BODY
-#	TAU		* +28		*	DESIRED TRANSFER TIME IN CENTISECONDS (DP)
-#			*		*		MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
-#	XKEPNEW		* +17 FOR EARTH	*	DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
-#			* +16 FOR MOON	*		AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI-
-#			*		*		MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
-#			*		*		BY KEPLER TO A POOR BUT VALID GUESS.
-#	TC		* +28		*	DP PREV. VALUE OF TIME IN CENTISECS.  MUST BE LESS THAN ONE ORBITAL PERIOD.
-#	XPREV		* +17 FOR EARTH	*	DP PREV. VALUE OF X IN SQRT(METERS).  MUST BE LESS THAN AN X CORRESPONDING TO ONE
-#			* +16 FOR MOON	*		ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS)
+#	VRECT		* +7 FOR EARTH *	DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
+#			* +5 FOR MOON  *
+#	X1 (38D)	* NONE	       *	INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
+#			*	       *	RESPECTIVELY, IS THE CENTRAL BODY
+#	TAU.		* +28	       *	DESIRED TRANSFER TIME IN CENTISECONDS (DP)
+#			*	       *		MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
+#	XKEPNEW		* +17 FOR EARTH*	DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
+#			* +16 FOR MOON *		AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD,VIZ, 2PI SQRT(SEMI-
+#			*	       *		MAJOR AXIS),FOR SPEED OF CONVERGENCE,BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
+#			*	       *		BY KEPLER TO A POOR BUT VALID GUESS.
+#	TC		* +28	       *	DP PREV. VALUE OF TIME IN CENTISECS.  MUST BE LESS THAN ONE ORBITAL PERIOD.
+#	XPREV		* +17 FOR EARTH*	DP PREV. VALUE OF X IN SQRT(METERS).  MUST BE LESS THAN AN X CORRESPONDING TO ONE
+#			* +16 FOR MOON *		ORBITAL PERIOD,VIZ,2PI SQRT(SEMI-MAJOR AXIS)
+#
 #
 # SUBROUTINES CALLED -
 #	DELTIME
 #
+#
 # CALLING SEQUENCE AND NORMAL EXIT MODES -
+#
 #	KEPRTN-2	GOTO			# MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
 #	KEPRTN-1		KEPLER		# RETURNS WITH XPREV IN MPAC. PL IS AT 0.
 #	KEPRTN		...			# CONTINUE
@@ -126,20 +129,23 @@
 # THE INTERRUPTED JOB.  THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
 # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
 #
+#
 # ABORT EXIT MODES -
 #	NONE
 #
+#
 # OUTPUT -
-#			* SCALE FACTOR	*
-#	VARIABLE	*IN POWERS OF 2	*	DESCRIPTION AND REMARKS
-#	--------	*--------------	*	-----------------------
-#	RCV		* +29 FOR EARTH	*	DP TERMINAL POSITION VECTOR IN METERS
-#			* +27 FOR MOON	*
-#	VCV		* +7 FOR EARTH	*	DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
-#			* +5 FOR MOON	*
-#	TC		* +28		*	DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
-#	XPREV		* +17 FOR EARTH	*	DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
-#			* +16 FOR MOON	*		CORRESPONDING TO ONE PERIOD.
+#
+#			* SCALE FACTOR *
+#	VARIABLE	*IN POWERS OF 2*	DESCRIPTION AND REMARKS
+#	--------	*--------------*	-----------------------
+#	RCV		* +29 FOR EARTH*	DP TERMINAL POSITION VECTOR IN METERS
+#			* +27 FOR MOON *
+#	VCV		* +7 FOR EARTH *	DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
+#			* +5 FOR MOON  *
+#	TC		* +28	       *	DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
+#	XPREV		* +17 FOR EARTH*	DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
+#			* +16 FOR MOON *		CORRESPONDING TO ONE PERIOD.
 # Page 1162
 # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
 #