Proof P51-P53 pages 936-945, continuation of issue #617

Luminary099/P51-P53.agc

@@ -433,46 +433,46 @@ CSUN		=	16D
 CMOON		=	18D
 CSS5		2DEC	.2490475	# (COS 5)/4
 CSSUN		2DEC	.125		# (COS 60)/4
-5DEGREES	2DEC	.013888889	# SCALED IN REVS
+5DEGREES	2DEC	.013888889	#    SCALED IN REVS
 
 # Page 937
-# PROGRAM NAME -- R56		DATE: DEC 20 66
-# MOD 1				LOG SECTION: P51-P53
-#				ASSEMBLY:  SUNDISK REV4D
+# PROGRAM NAME - R56		DATE DEC 20 66
+# MOD 1				LOG SECTION P51-P53
+#				ASSEMBLY  SUNDISK REV40
 # BY KEN VINCENT
 #
 # FUNCTION
-#	THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
-#	WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
-#	WITH RESPECT TO REFERENCE INTERTIAL.  EACH STAR IN THE CATALOG IS TESTED
-# 	TO DETERMIN IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON.  IF A
-# 	STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STARS OF LOWER INDEX.
-# 	THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
-#	THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
-#	HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 100 DEGREES
-#	AND MORE THAN 50 DEGREES.  THOSE PAIRS WITH GOOD SEPARATION
-#	ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
-#	50 DEGREES OF SAX).  THE PAIR WITH MAX SEPARATION IS CHOSEN FROM
-#	THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
+#   THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
+# WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
+# WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED
+# TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH,SUN OR MOON. IF A
+# STAR IS NOT OCCULTED  THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
+# THE PAIRED STAR  IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
+# THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.A PAIR OF STARS
+# HAVE GOOD SEPERATION IF THE ANGLE BETWEEN THEM IS LESS THAN 100 DEGREES
+# AND MORE THAN 50 DEGREES. THOSE PAIRS WITH GOOD SEPARATION
+# ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.(WITHIN
+# 50 DEGREESOF SAX).THE PAIR WITH MAX SEPARATION IS CHOSEN FROM
+# THOSE WITH GOOD SEPARATION,AND     IN FIELD OF VIEW.
 #
 # CALLING SEQUENCE
-#	L	TC	BANKCALL
-#	L+1	CADR	R56
-#	L+2	ERROR RETURN -- NO STARS IN FIELD OF VIEW
-#	L+3	NORMAL RETURN
+# L	TC	BANKCALL
+# L+1	CADR	R56
+# L+2	ERROR RETURN - NO STARS IN FIELD OF VIEW
+# L+3	NORMAL RETURN
 #
 # OUTPUT
-#	BESTI, BESTJ -- SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
-#	VFLAG -- FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
+# BESTI,BESTJ -SINGLE PREC,INTEGERS,STAR NUMBERS TIMES 6
+# VFLAG - FLAG BIT  SET IMPLIES NO STARS IN FIELD OF VIEW
 #
 # INITIALIZATION
-#	1)	A CALL TO LOCSAM MUST BE MADE
+# 1)A CALL TO LOCSAM MUST BE MADE
 #
 # DEBRIS
-#	WORKAREA
-#	X,Y,ZNB
-#	SINCDU, COSCDU
-#	STARAD -- STAR +5
+# WORKAREA
+# X,Y,ZNB
+# SINCDU,COSCDU
+# STARAD - STAR +5
 
 R56		=	PICAPAR
 		COUNT*	$$/R56
@@ -495,13 +495,13 @@ PICAPAR		TC	MAKECADR
 			HALFDP
 			ZNB
 		AXT,1	VXSC
-			228D		# X1 = 37 X 6 + 6
+			228D		# X1 = 37 X 6 +6
 			HALFDP
 		VAD
 		VXM	UNIT
 			REFSMMAT
 		STORE	SAX		# SAX = SHAFT AXIS
-		SSP	SSP		# S1 = S2 = 6
+		SSP	SSP		# S1=S2=6
 			S1
 			6
 			S2
@@ -585,7 +585,9 @@ CULTED		SETGO
 			QPRET
 CSS		= 	CEARTH
 CSS40		2DEC	.16070		# COS 50 / 4
-CSS33		2DEC	.16070		# COS 50 / 4
+
+CSS33		2DEC	.16070		#  COS 50 / 4
+
 PICEND		BOFF	EXIT
 
 # Page 940
@@ -620,12 +622,12 @@ DP0		=	30D
 DP1		=	32D
 
 # Page 941
-# NAME -- R51	FINE ALIGN
-# FUNCTION -- TO ALIGN THE STABLE MEMBER TO REFSSMAT
-# CALLING SEQ -- CALL R51
-# INPUT -- REFSMMAT
-# OUTPUT -- GYRO TORQUE PULSES
-# SUBROUTINES -- LOCSAM, PICAPAR, R52, R53, R54, R55
+# NAME-R51  FINE ALIGN
+# FUNCTION-TO ALIGN THE STABLE MEMBER TO REFSSMAT
+# CALLING SEQ- CALL R51
+# INPUT -  REFSMMAT
+# OUTPUT- GYRO TORQUE PULSES
+# SUBROUTINES -LOCSAM,PICAPAR,R52,R53,R54,R55
 
 		COUNT*	$$/R51
 R51		STQ
@@ -774,12 +776,12 @@ GYCOARS		STQ	CALL
 V16N20		VN	1620
 
 # Page 945
-# R55	GYRO TORQUE
-# FUNCTION -- COMPUTE AND SEND GYRO PULSES
-# CALLING SEQ -- CALL R55
-# INPUT -- X,Y,ZDC -- REFSMMAT WRT PRESENT STABLE MEMBER
-# OUTPUT -- GYRO PULSES
-# SUBROUTINES -- CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
+# R55  GYRO TORQUE
+# FUNCTION-COMPUTE AND SEND GYRO PULSES
+# CALLING SEQ- CALL R55
+# INPUT- X,Y,ZDC- REFSMMAT WRT PRESENT STABLE MEMBER
+# OUTPUT- GYRO PULSES
+# SUBROUTINES- CALCGTA,GOFLASH,GODSPR,IMUFINE,IMUPULSE,GOPERF1
 
 		COUNT*	$$/R55
 R55		STQ
@@ -811,20 +813,21 @@ V06N93		VN	0693
 R55CDR		ECADR	OGC
 R54		=	CHKSDATA
 
-# ROUTINE NAME -- CHKSDATA		DATE -- JAN 9, 1967
-# MOD NO -- 0				LOG SECTION -- P51-P53
-# MODIFICATION BY -- LONSKE		ASSEMBLY --
+# ROUTINE NAME- CHKSDATA		DATE- JAN 9, 1967
+# MOD NO- 0				LOG SECTION- P51-P53
+# MODIFICATION BY- LONSKE		ASSEMBLY-
 #
-# FUNCTIONAL DESCRIPTION -- CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
+# FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
 # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
-# COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED --
+# COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_
+#
 #	OS1	=	OBSERVED STAR 1 VECTOR
 #	OS2	=	OBSERVED STAR 2 VECTOR
 #	SS1	=	STORED STAR 1 VECTOR
-#	SS2 	=	STORED STAR 2 VECTOR
-#	 A1	= 	ARCCOS(OS1 - OS2)
+#	SS2	=	STORED STAR 2 VECTOR
+#	 A1	=	ARCCOS(OS1 - OS2)
 #	 A2	=	ARCCOS(SS1 - SS2)
-#	  A 	=	ABS(2(A1 - A2))
+#	  A	=	ABS(2(A1 - A2))
 # Page 946
 # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE.
 #
@@ -2338,4 +2341,3 @@ LSORIENT	STQ	VLOAD
 			XSMD
 		STCALL	YSMD
 			QMAJ
-