Corrections in TVCEXECUTIVE

Comanche055/TVCEXECUTIVE.agc

@@ -33,22 +33,23 @@
 # Page 945
 # PROGRAM NAME....	TVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS
 #			1SHOTCHK, REPCHEK, CG.CORR, COPYCYCLES, ETC.
-# LOG SECTION....	TVCEXECUTIVE		SUBROUTINE ....DAPCSM
-# MOD BY SCHLUNDT				21 OCTOBER 1968
-#
+# LOG SECTION...TVCEXECUTIVE			   SUBROUTINE...DAPCSM
+# MODIFIED BY SCHLUNDT				   21 OCTOBER 1968
 # FUNCTIONAL DESCRIPTION....
+#
 #      *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH:
-#	PREPARES THE ROLL WITH OGA (CDUX)
+#	PREPARES THE ROLL DAP WITH OGA (CDUX)
 #	PREPARES THE ROLL FDAI NEEDLE (FLY-TO  OGA ERROR)
 #	PREPARES THE ROLL PHASE PLANE  OGAERR  (FLY-FROM  OGA ERROR)
 #	PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY)
 #	UPDATES THE NEEDLES DISPLAY
-#	UPDATES THE VEHICLE MASS AND CALLS MASSPROP TO UPDATE INERTIA DATA
+#	UPDATES VEHICLE MASS AND CALLS MASSPROP TO UPDATE INERTIA DATA
 #	UPDATES PITCH, YAW, AND ROLL DAP GAINS FROM MASSPROP DATA
 #	PERFORMS ONE-SHOT CORRECTION FOR TMC LOOP 0-3 SEC AFTER IGNITION
-#	PERFORMS REPETITIVE UPDATES FOR THE TMC LOOP AFTER THE ONE-SHOT CORR.
+#	PERFORMS REPETITIVE UPDATES FOR TMC LOOP AFTER THE ONE-SHOT CORR.
 #
 # CALLING SEQUENCE....
+#
 #      *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY
 #	ITSELF, BOTH AT 1/2 SECOND INTERVALS
 #
@@ -59,12 +60,13 @@
 # SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL
 #
 # OTHER INTERFACES....
+#
 #      *TVCRESTART PACKAGE FOR RESTARTS
 #      *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES
-#
 # ERASABLE INITIALIZATION REQUIRED....
+#
 #      *SEE TVCDAPON....TVCINIT4
-#      *VARK AND 1/CONACC (S40.15 OF R03)
+#      *VARK AND 1/CONACC (S40.15 OF TVCINITIALIZE)
 #      *PAD LOAD EREPFRAC
 #      *BITS 15,14 OF FLAGWRD6 (T5 BITS)
 #      *TVCEXPHS FOR RESTARTS
@@ -72,7 +74,8 @@
 #      *CDUX, OGAD
 #
 # OUTPUT....
-#      *ROLL DAP OGANOW, FDAI NEEDLE= (AK). AND PHASE PLANE OGAERR
+#
+#      *ROLL DAP OGANOW, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR
 #      *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS
 #      *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES
 #	PACTOFF AND YACTOFF
@@ -87,7 +90,7 @@
 		COUNT*	$$/TVCX
 
 TVCEXEC		CS	FLAGWRD6	# CHECK FOR TERMINATION (BITS 15,14 READ
-		MASK	OCT60000	#	10 FROM TVCDAPON TO RCSDAPON)
+		MASK	OCT60000	#      10 FROM TVCDAPON TO RCSDAPON)
 		EXTEND
 		BZMF	TVCEXFIN	# TERMINATE
 
@@ -97,18 +100,18 @@ TVCEXEC		CS	FLAGWRD6	# CHECK FOR TERMINATION (BITS 15,14 READ
 		2CADR	TVCEXEC
 
 ROLLPREP	CAE	CDUX		# UPDATE ROLL LADDERS (NO NEED TO RESTART-
-		XCH	OGANOW		# 	PROTECT, SINCE ROLL DAPS RE-START)
+		XCH	OGANOW		#      PROTECT, SINCE ROLL DAPS RE-START)
 		XCH	OGAPAST
 
 		CAE	OGAD		# PREPARE ROLL FDAI NEEDLE WITH FLY-TO
-		EXTEND			#	ERROR (COMMAND - MEASURED)
+		EXTEND			#      ERROR (COMMAND - MEASURED)
 		MSU	OGANOW
 		TS	AK		# FLY-TO OGA ERROR, SC.AT B-1 REVS
 
-		EXTEND			# PREPARE ROLL DAP PHASE PLANE OGAERR
+		EXTEND			# PREPARE ROLL DAP PHASE PLANE  OGAERR
 		MP	-BIT14
 		TS	OGAERR		# PHASE-PLANE (FLY-FROM) OGAERROR,
-					#	SC.AT B+0 REVS
+					#      SC.AT B+0 REVS
 
 		CAF	THREE		# SET UP ROLL DAP TASK (ALLOW SOME TIME)
 		TC	WAITLIST
@@ -116,18 +119,18 @@ ROLLPREP	CAE	CDUX		# UPDATE ROLL LADDERS (NO NEED TO RESTART-
 		2CADR	ROLLDAP
 
 NEEDLEUP	TC	IBNKCALL	# DO A NEEDLES UPDATE (RETURNS AFTER CADR)
-		CADR	NEEDLER		#	(NEEDLES RESTARTS ITSELF)
+		CADR	NEEDLER		#      (NEEDLES RESTARTS ITSELF)
 
 VARGAINS	CAF	BIT13		# CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
-		EXTEND			#	GAINS AND MASS IF ENGINE OFF
+		EXTEND			#      GAINS AND MASS IF ENGINE OFF
 		RAND	DSALMOUT	# CHANNEL 11
 		CCS	A
-		TCF	+4		#	ON, SO OK TO UPDATE GAINS AND MASS
-	+5	CAF	TWO		#	OFF, SO BYPASS MASS/GAIN UPDATES,
-		TS	TVCEXPHS	#		ALSO ENTRY FROM CCS BELOW WITH
-		TCF	1SHOTCHK	#		VCNTR = -0 (V97 R40 ENGFAIL)
-		CCS	VCNTR		# 	TEST FOR GAIN OF UPDATE TIME
-		TCF	+4		#		NOT YET
+		TCF	+4		#     ON , SO OK TO UPDATE GAINS AND MASS
+	+5	CAF	TWO		#      OFF, SO BYPASS MASS/GAIN UPDATES,
+		TS	TVCEXPHS	#	    ALSO ENTRY FROM CCS BELOW WITH
+		TCF	1SHOTCHK	#	    VCNTR = -0 (V97 R40 ENGFAIL)
+		CCS	VCNTR		#      TEST FOR GAIN OF UPDATE TIME
+		TCF	+4		#	    NOT YET
 # Page 947
 		TCF	GAINCHNG	#		NOW
 		TCF	+0		#		NOT USED