finished though pg 941

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
@@ -2338,4 +2340,3 @@ LSORIENT	STQ	VLOAD
 			XSMD
 		STCALL	YSMD
 			QMAJ
-