Proof GROUND_TRACKING_DETERMINATION_PROGRAM #586 (#701)

* Update GROUND_TRACKING_DETERMINATION_PROGRAM.agc * Apply suggestions from code review * Recommended character change and spacing changes * Apply suggestions from code review Co-authored-by: James Harris <[email protected]>
chrislgarry · Sep 20, 2020 · 41dd43f · 41dd43f
1 parent a713d94
commit 41dd43f
Showing 1 changed file with 65 additions and 62 deletions.
diff --git a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
@@ -27,57 +27,61 @@
 #	16:27 JULY 14, 1969
 
 # Page 654
-# GROUND TRACKING DETERMINATION PROGRAM -- P21
+# GROUND TRACKING DETERMINATION PROGRAM P21
 # PROGRAM DESCRIPTION
-#	MOD NO -- 1
-#	MOD BY -- N. M. NEVILLE
-#
-# FUNCTIONAL DESCRIPTION --
-#	TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
-#	THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
-#
-# CALLING SEQUENCE --
-#	ASTRONAUT REQUEST THROUGH DSKY V37E21E
-#
-# SUBROUTINES CALLED --
-#	GOPERF4
-#	GOFLASH
-#	THISPREC
-#	OTHPREC
-#	LAT-LONG
-#
-# NORMAL EXIT MODES --
-#	ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E
-#
-# ALARM OR ABORT EXIT MODES --
-#	NONE
-#
-# OUTPUT --
-#	OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
-#	COMPUTED
-#		OPTION CODE	00002
-#		THIS		00001
-#		OTHER		00002
-#	DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS, MINUTES, SECONDS
-#	DECIMAL DISPLAY OF LAT,LONG,ALT
+# MOD NO - 1
+# MOD BY - N.M.NEVILLE
+# FUNCTIONAL DECRIPTION-
 #
+# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
+# THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
+# CALLING SEQUENCE -
+#
+# ASTRONAUT REQUEST THROUGH DSKY V37E21E
+# SUBROUTINES CALLED-
+#
+# GOPERF4
+# GOFLASH
+# THISPREC
+# OTHPREC
+# LAT-LONG
+# NORMAL EXIT MODES-
+#
+# ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
+# ALARM OR ABORT EXIT MODES-
+#
+# NONE
+# OUTPUT -
+#
+# OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
+# COMPUTED
+#	OPTION CODE	00002
+#	THIS		00001
+#	OTHER		00002
+# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
+# DECIMAL DISPLAY OF LAT,LONG,ALT
 # ERASABLE INITIALIZATION REQUIRED
-#	AX0		2DEC	4.652459653 E-5 RADIANS		$68-69 CONSTANTS*
-#	-AY0		2DEC	2.137535898 E-5 RADIANS
-#	AZ0		2DEC	.7753206164	REVOLUTIONS
-# 	FOR LUNAR ORBITS 504LM VECTOR IS NEEDED:
-#	504LM		2DEC	-2.700340600 E-5 RADIANS
-#	504LM _2	2DEC	-7.514128400 E-4 RADIANS
-#	504LM _4	2DEC	_2.553198641 E-4 RADIANS
 #
-# 	NONE
+# AXO		2DEC	4.652459653 E-5		RADIANS		%68-69 CONSTANTS"
+#
+# -AYO		2DEC	2.147535898 E-5		RADIANS
+#
+# AZO		2DEC	.7753206164		REVOLUTIONS
+# FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
 #
+# 504LM		2DEC	-2.700340600 E-5	RADIANS
+#
+# 504LM	_2	2DEC	-7.514128400 E-4	RADIANS
+#
+# 504LM	_4	2DEC	_2.553198641 E-4	RADIANS
+#
+# NONE
 # DEBRIS
+#
 # Page 655
-#	CENTRALS -- A,Q,L
-#	OTHER -- THOSE USED BY THE ABOVE LISTED SUBROUTINES
-#	SEE LEMPREC, LAT-LONG
-
+# CENTRALS-A,Q,L
+# OTHER-THOSE USED BY THE ABOVE LISTED SUBROUTINES
+# SEE LEMPREC,LAT-LONG
 		SBANK=	LOWSUPER	# FOR LOW 2CADR'S.
 
 		BANK	33
@@ -87,8 +91,8 @@
 		EBANK=	P21TIME
 		COUNT*	$$/P21
 PROG21		CAF	ONE
-		TS	OPTION2		# ASSUMED VEHICLE IS LM, R2 = 00001
-		CAF	BIT2		# OPTION 2
+		TS	OPTION2		# ASSUMED VEHICLE IS LM , R2 = 00001
+		CAF	BIT2		#  OPTION 2
 		TC	BANKCALL
 		CADR	GOPERF4
 		TC	GOTOPOOH	# TERMINATE
@@ -103,26 +107,26 @@ P21PROG1	CAF	V6N34		# LOAD DESIRED TIME OF LAT-LONG.
 		TC	INTPRET
 		DLOAD
 			DSPTEM1
-		STCALL	TDEC1		# INTEG TO TIME SPECIFIED IN TDEC
+		STCALL	TDEC1		# INTEGRATE TO TIME SPECIFIED IN TDEC
 			INTSTALL
 		BON	CLEAR
 			P21FLAG
-			P21CONT		# ON -- RECYCLE USING BASE VECTOR
-			VINTFLAG	# OFF -- 1ST PASS CALL BASE VECTOR
+			P21CONT		# ON---RECYCLE USING BASE VECTOR
+			VINTFLAG	# OFF--IST PASS CALL BASE VECTOR
 		SLOAD	SR1
 			OPTION2
 		BHIZ	SET
-			+2		# ZERO -- THIS VEHICLE (LM)
-			VINTFLAG	# ONE -- OTHER VEHICLE (CM)
+			+2		# ZERO--THIS VEHICLE(LM)
+			VINTFLAG	# ONE--OTHER VEHICLE(CM)
 		CLEAR	CLEAR
 			DIM0FLAG
 			INTYPFLG	# PRECISION
 		CALL
-			INTEGRV		#    CALCULATE
-		GOTO			#       AND
-			P21VSAVE	# SAVE BASE VECTOR
+			INTEGRV		# CALCULATE
+		GOTO			# -AND
+			P21VSAVE	# -SAVE BASE VECTOR
 P21CONT		VLOAD
-			P21BASER	# RECYCLE -- INTEG FROM BASE VECTOR
+			P21BASER	# RECYCLE--INTEG FROM BASE VECTOR
 		STOVL	RCV		# --POS
 # Page 656
 			P21BASEV
@@ -134,12 +138,12 @@ P21CONT		VLOAD
 			MOONFLAG
 		SLOAD	BZE
 			P21ORIG
-			+3		# ZERO = EARTH
-		SET			# ---2 = MOON
+			+3		# ZERO=EARTH
+		SET			# ---2=MOON
 			MOONFLAG
  +3		CALL
 			INTEGRVS
-P21VSAVE	DLOAD			# SAVE CURRENT BASE VECTOR
+P21VSAVE	DLOAD			# SAVE CURRENT BASEVECTOR
 			TAT
 		STOVL	P21TIME		# --TIME
 			RATT1
@@ -151,12 +155,12 @@ P21VSAVE	DLOAD			# SAVE CURRENT BASE VECTOR
 		STOVL	P21VEL		# VEL/ FOR N91 DISP
 			RATT
 		UNIT	DOT
-			VATT		# U(R).V
+			VATT		#  U(R).V
 		DDV	ASIN		# U(R).U(V)
 			P21VEL
-		STORE	P21GAM		# SIN-1 U(R).U(V) , -90 TO +90
+		STORE	P21GAM		# SIN-1 U(R).U(V) , -90 TO &90
 		SXA,2	SLOAD
-			P21ORIG		# 0 = EARTH
+			P21ORIG		# 0=EARTH
 			OPTION2
 		SR1	BHIZ
 			+3
@@ -202,4 +206,3 @@ P21DSP		CLEAR	SLOAD		# GENERATE DISPLAY DATA
 V06N43		VN	00643
 V6N34		VN	00634
 K.01		2DEC	.01
-