Proof-read Comanche055\P40-P47 (pg. 0700-0715)

Comanche055/P40-P47.agc

@@ -750,7 +750,6 @@ UPDATEVG	STQ	BON
 			NBRCYCLS
 			SETUP.9
 # Page 700
-
 		VLOAD	VAD
 			DELVSUM
 			DELVREF
@@ -760,7 +759,7 @@ UPDATEVG	STQ	BON
 		AD	NBRCYCLS
 		TS	NBRCYCLP
 
-		TC	PHASCHNG	# TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS
+		TC	PHASCHNG	# TYPE B RESTART BELOW AND 5.3 REREADACCS
 		OCT	10035
 
 		CA	NBRCYCLP
@@ -779,7 +778,7 @@ SETUP.9		BON	SLOAD
 			FIRSTFLG
 			SURELY.9
 			NBRCYCLP
-		NORM	VXSC		# (NORM HANDLES ZERO PROPERLY)
+		NORM	VXSC		# (NORM  HANDLES ZERO PROPERLY)
 			X1
 			BDT
 		VSR*	VAD
@@ -857,14 +856,14 @@ SERVXT		TC	POSTJUMP
 		2CADR	ENGINOFF
 
 		TC	2PHSCHNG
-		OCT	40153		# A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
+		OCT	40153		# A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
 		OCT	10035		# B, 5.3 = REREADAC, AND START BELOW
 		TC	DOWNFLAG	# CLEAR IMPULSW, ENGINOFF IS NOW SET UP
 		ADRES	IMPULSW		# RESTARTS OK
 		TCF	SERVXT
 
 # Page 703
-# ROUTINE ** CLOKTASK ** DESCRIPTION
+# ROUTINE **CLOKTASK** DESCRIPTION
 
 		EBANK=	TIG
 CLOKTASK	CAF	BIT11		# IS TIMRFLAG SET
@@ -913,14 +912,14 @@ SETUPDYN	CAF	PRIO27		# SET UP A JOB TO UPDATE N85 (FOR P41=V06)
 
 		TCF	SETTB6		# CLOSE OUT CLOCKTASK
 # Page 704
-DYNDISP		TC	INTPRET		# UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
+DYNDISP		TC	INTPRET		# UPDATE N85 FOR A DYNAMIC V06N85 IN P41,
 		CALL			#	PRIOR TO BLANKING AND AVEG (V16N85)
 			P40CNV85
 		EXIT
 		TCF	CKNVWRD1
 
 # Page 705
-# ROUTINE ** CLOCKJOB ** DESCRIPTION
+# ROUTINE **CLOCKJOB** DESCRIPTION
 
 		EBANK=	DAPDATR1
 CLOCKJOB	CA	CDUX
@@ -945,7 +944,7 @@ FAILDSP		CAF	V06N40		# SPS ENGINE-FAILED V97 FLASH
 
 ENGREQST	CAF	V06N40
 		TC	BANKCALL
-		CADR	CLOCPLAY	# LINUS MAKES IT A REDO, INHINT OK
+		CADR	CLOCPLAY
 		TCF	V99T		# TERMINATE
 		TCF	V99P		# PROCEED
 		TCF	V99E		# ENTER
@@ -1039,6 +1038,7 @@ V97TRCS		TC	IBNKCALL	# RCS DAP IN 0.6SEC, SETTING T5 BITS TO
 
 ENDV97T		TCF	TASKOVER
 
+
 		EBANK=	V97VCNTR
 V97P		TC	PHASCHNG
 		OCT	40734		# A, 4.73 = V97PTASK (-0 CS), TBASE NOW
@@ -1071,6 +1071,7 @@ R40ENABL	TC	DOWNFLAG	# RE-ENABLE R40 BY CLEARING IDLEFAIL
 # Page 708
 ENDV97P		TCF	TASKOVER
 
+
 		EBANK=	WHOCARES
 V97E		TC	PHASCHNG
 		OCT	40534		# A, 4.53 = V97ETASK (-0 CS), TBASE NOW
@@ -1096,7 +1097,7 @@ V97ETASK	CS	OCT24		# FORCE R1 OF V06N40 TO READ  59X59
 SPSOFF97	TCR	SPSOFF
 		TC	PHASCHNG
 		OCT	00114		# A, 4.11 = V97E40.6 (250 CS), TBASE OLD
-		TC	FIXDELAY	# DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
+		TC	FIXDELAY	# DELAY 2.5 SECONDS  FOR (POSSIBLE) TAIL-
 		DEC	250		#	OFF (FALSE THRUST-LOSS)
 
 		EBANK=	DAPDATR1
@@ -1108,9 +1109,8 @@ V97E40.6	CAF	BIT1
 		TC	IBNKCALL	# RCS DAP IN 0.6SEC, SETTING T5 BITS TO
 		CADR	RCSDAPON	#	KILL TVCEXEC/TVCROLLDAP STARTS.
 					#	LEAVE NARROW DEADBAND FOR REIGNITE.
-
 		TC	2PHSCHNG
-		OCT	00026		# A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
+		OCT	00026		# A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1SEC)
 		OCT	05014		# C, DELTAT NEXT, TASK BELOW, IN
 		DEC	-0		# -0 CS.
 
@@ -1125,7 +1125,7 @@ QUICKIGN	CS	PRIO14		# CLEAR ASTNFLAG AND SET IGNFLAG FOR
 V99FLASH	CS	BIT9		# CAUSE V99 TO FLASH
 		TS	NVWORD1
 		TC	2PHSCHNG
-		OCT	40774		# A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
+		OCT	40774		# A, 4.77 = TIG-0 (-0CS) TBASE FOR PREPTVC
 		OCT	00033		# A, 3.3 = S40.13 (PRIO 20)
 		CAF	PRIO20		# SET UP TIMEBURN
 		TC	FINDVAC
@@ -1141,54 +1141,47 @@ ENDV97E		TCF	TASKOVER	# WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
 # FUNCTIONAL DESCRIPTION
 #	COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
 #	VECTOR(VGTIG).
-#
 # CALLING SEQUENCE
-#	L	CALL
+#	L CALL
 #	L+1		S40.1
-#
 # NORMAL EXIT MODE
-#	AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
+#	AT L+2 OF CALLING SEQUENCE (GOTO L+2)  NORMAL RETURN OR
 #	ERROR RETURN IF NOSOFLAG =1
-#
 # SUBROUTINES CALLED
 #	CSMPREC
 #	INITVEL
 #	CALCGRAV
 #	MIDGIM
-#
 # ALARM OR ABORT EXIT MODES
-#	L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
+#	L+2 OF CALLING SEQUENCE,UNSOLVABLE CONIC IF NOSOFLAG=1
-#
 # ERASABLE INITIALIZATION REQUIRED
-#	WEIGHT/G	ANTICIPATED VEHICLE MASS	SP B16 KGM
+#	WEIGHT/G	ANTICIPATED VEHICLE MASS	SP B16KGM
-#	XDELVFLG	1=DELTA-V MANEUVER, 0=AIMPT STEER
+#	XDELVFLG	1=DELTA-V MANEUVER,0=AIMPT STEER
-#   IF DELTA-V MANEUVER:
+#   IF DELTA-V MANEUVER
 #	DELVSIN		SPECIFIED DELTA-V REQUIRED IN
 #			INERTIAL COORDS. OF ACTIVE VEHICLE
-#			AT TIME OF IGNITION		VECTOR B7 M/CS
+#			AT TIME OF IGNITION		VECTOR B7M/CS
-#	DELVSAB		MAG. OF DELVSIN			DP B7 M/CS
+#	DELVSAB		MAG. OF DELVSIN			DP     B7M/CS
-#	RTIG		POSITION AT TIME OF IGNITION	VECTOR B29 M
+#	RTIG		POSITION AT TIME OF IGNITION	VECTOR B29M
-#	VTIG		VELOCITY AT TIME OF IGNITION	VECTOR B7 M/CS.
+#	VTIG		VELOCITY AT TIME OF IGNITION	VECTOR B7M/CS.
-#	CSTEER = 0					DP
+#	CSTEER = 0		DP
-#   IF AIMPOINT STEERING:
+#   IF AIMPOINT STEERING
 #   IF AIMPT STEER
-#	TIG		TIME OF IGNITION		DP B28 CS
+#	TIG		TIME OF IGNITION		DP      B28CS
-#	RTARG		POSITION TARGET TIME		VECTOR B29 M
+#	RTARG		POSITION TARGET TIME		VECTOR B29M
-#	CSTEER = ECSTEER (GR 0) 			DP B1
+#	CSTEER = ECSTEER(GR 0) DP B1
 # Page 710
-#	TPASS4 -- TIME OF ARRIVAL AT AIMPOINT
+#	TPASS4 - TIME OF ARRIVAL AT AIMPOINT
-#
 # OUTPUT
 #	UT		1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR
 #	VGTIG		INITIAL VALUE OF VELOCITY
-#			TO BE GAINED (INERT. COORD.)		VECTOR B7 M/CS
+#			TO BE GAINED (INERT. COORD.)		VECTOR B7M/CS
-#	DELVLVC		VGTIG IN LOC. VERT. COORDS.		B7 M/CS
+#	DELVLVC		VGTIG IN LOC. VERT. COORDS.		B7M/CS
 #	F		NOMINAL THRUST FOR ENG USED FOR S40.13	DP B7 M-NEWT
 #	BDT		V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
-#	-GDT		FOR S40.13				VECT B7 M/CS
+#	-GDT		FOR S40.13				VECT B7M/CS
 #	RTIG		CALC IN S40.1B (AIMPT) FOR S40.2,3	VECTOR B29M
 #			POSITION AT TIME OF IGNITION
-#
 # DEBRIS	QTEMP1
 #		MPAC, QPRET
 #		PUSHLIST
@@ -1246,7 +1239,7 @@ S40.1		SET	VLOAD
 		VXV	UNIT
 			UT
 		VXSC	STADR
-		STOVL	VGTIG		# UNIT(VP X UP)SIN(THETAT/2) IN VGTIG.
+		STOVL	VGTIG		# UNIT(VP X UP)SIN(THETAT) IN VGTIG.
 		UNIT	PDDL		# UNIT(DELTA VP) IN P.D.L. 6
 			14D
 		COS	VXSC
@@ -1255,7 +1248,7 @@ S40.1		SET	VLOAD
 			36D
 		VSL2 	VAD
 		STADR
-		STORE	VGTIG		# VG IGNITION SCALED AT 2(+7) M/CS
+		STORE	VGTIG		# VG IGNITION SCALED AT 2(+7)M/CS
 
 		UNIT
 		STOVL	UT		# THRUST DIRECTION SCALED AT 2(+1)
@@ -1336,9 +1329,9 @@ AGAIN		STQ	CALL
 			QTEMP1
 CALCUT		VLOAD	CALL
 			RTIG
-			CALCGRAV	# GDELTAT IN MPAC AT 2(+7) M/CS
+			CALCGRAV	# GDELTAT IN MPAC AT 2(+7)M/CS
 		VSL1	V/SC
-			200CS		# G AT 2(-5) M/CS. CS
+			200CS		# G AT 2(-5) M/CS.CS
 		PDVL	VSU
 			VIPRIME
 			UT
@@ -1360,7 +1353,7 @@ CALCUT		VLOAD	CALL
 		SRR	DDV
 			4
 			WEIGHT/G
-		DSQ	PDVL		# F/MASS SQUARED PDL 6 AT 2(-10M/(CS.CS)
+		DSQ	PDVL		# F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
 			12D
 		VSQ
 		BDSU	SQRT
@@ -1372,54 +1365,44 @@ CALCUT		VLOAD	CALL
 200CS		2DEC	200 B-12
 
 # Page 714
-# PROGRAM DESCRIPTION S40.2,3		DATE 15 NOV 66
+# PROGRAM DESCRIPTION S40.2,3		DATE 15,NOV,66
 # MOD NO 2				LOG SECTIONS P40-P47
 # MOD BY ZELDIN
-#
 # FUNCTIONAL DESCRIPTION
-#
 #	COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
-#	ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
+#	ORIENTATION, WINGS LEVEL SPACECRAFT,HEADS UP
 #	COMPUTE X AXIS OF ENGINE BELL
-#	COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
+#	COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
-#	FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
+#	FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
-#	YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT.
+#	YSC=UNIT(XXR),ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
 #	NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
 #	COORDS. WILL BE PREFERRED IMU ORIENTATION.
 #	COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
-#
 # CALLING SEQUENCE
-#	L	CALL
+#	L CALL
-#	L+1		S40.2,3
+#	L+1 S40.2,3
-#
 # NORMAL EXIT MODE
 #	AT L+2 OF CALLING SEQUENCE (GOTO L+2)
-#
 # SUBROUTINES CALLED
 #	CALCGA
-#
 # ALARM OR ABORT MODES
 #	NONE
-#
 # ERASABLE INITIALIZATION REQUIRED
 #	PACTOFF		TOTAL PITCH TRIM ANGLE		SP AT 1.0795111 REV.
 #	YACTOFF		TOTAL YAW   TRIM ANGLE		SP AT 1.0795111 REV.
-#	UT		DESIRED THRUST DIRECTION	VECT. B2 M/(CS.CS)
+#	UT		DESIRED THRUST DIRECTION	VECT.B2M/(CS.CS)
-#	RTIG		POSITION AT TIME OF IGNITION	VECT. B29 M
+#	RTIG		POSITION AT TIME OF IGNITION	VECT. B29M
 #	ENG2FLAG	ON=RCS  OFF=SPS
-#
 # OUTPUT
-#	SCAXIS		UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR.	B1
+#	SCAXIS		UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR	B1
 #	XSCREF		UNIT VECTORS ALIGNED WTH PREFERRED IMU		B1
 #	YSCREF
 #	ZSCREF
 #	GIMBAL ANGLES IN THETAD
 #	POINTVSM	UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM	B1
-#
 # DEBRIS
-#	PUSHLIST, QPRET, MPAC
+#	PUSHLIST,QPRET,MPAC
 #	QTEMP	TEMP. ERASABLE
-
 		BANK	24
 		SETLOC	P40S
 		BANK
@@ -1453,7 +1436,7 @@ S40.2,3		VLOAD	MXV
 			PBIAS
 		COS	PDDL		# COS(P +P0) PDL 6
 		SIN	PUSH		# SIN(P +P0) PDL 8D
-		STODL	ZSCREF		# SIN(P +P0)
+		STODL	ZSCREF		# SIN(P+P0)
 			6
 		DMP	SL1
 			4