Proof pages #1216-1226

Luminary099/INTEGRATION_INITIALIZATION.agc

@@ -205,7 +205,7 @@
 #	   OUTPUT
 #		THE DATA LISTED IN SECTION 3.0 PLUS
 #		RQVV	POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
-#		BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
+#		BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
 #	B) CONIC INTEGRATION.  CSMCONIC, LEMCONIC ENTRANCES
 #		L-X	STORE TIME IN PUSH LIST (TDEC1)
 #		L	CALL
@@ -249,7 +249,7 @@
 #		L-5			VINTFLAG	1=CSM, 0=LM
 #		L-4			INTYPFLAG	1=CONIC, 0=PRECISION
 #		L-3	SET(CLEAR)	SET(CLEAR)
-#		L-2			DIMOFLAG	1=W-MATRIX, 0=NO W-MATRIX
+#		L-2			DIM0FLAG	1=W-MATRIX, 0=NO W-MATRIX
 #		L-1			D6OR9FLG	1=9X9, 0=6X6
 #		L	SET		DLOAD
 #		L+1			STATEFLG	DESIRE PERMANENT UPDATE
@@ -257,7 +257,7 @@
 #		L+3	STCALL		RFINAL
 #		L+4			INTEGRV
 #		L	CALL				NORMAL USE -- WILL UPDATE STATE
-#		L+1			INTEGRV		VECTOR IF DIMOFLAG=1. (STATEFLG IS
+#		L+1			INTEGRV		VECTOR IF DIM0FLAG=1. (STATEFLG IS
 #		L+2	RETURN				ALWAYS RESET IN INTEGRATION AFTER
 #							IT IS USED.)
 #	  INPUT
@@ -311,7 +311,7 @@ SETIFLGS	SET	CLEAR
 			STATEFLG
 			INTYPFLG
 		CLEAR	CLEAR
-			DIMOFLAG
+			DIM0FLAG
 			D6OR9FLG
 		RVQ
 NOINT		EXIT
@@ -479,7 +479,7 @@ INTBANK		BBCON	INTEGRV
 #			CSMPREC		CSMCONIC	LEMPREC		LEMCONIC
 #	VINTFLAG	SET		SET		CLEAR		CLEAR
 #	INTYPFLG	CLEAR		SET		CLEAR		SET
-#	DIMOFLAG	CLEAR		CLEAR		CLEAR		CLEAR
+#	DIM0FLAG	CLEAR		CLEAR		CLEAR		CLEAR
 #
 # CALLING SEQUENCE
 #	L-X	STORE	TDEC1
@@ -508,7 +508,7 @@ CSMPREC		STQ	CALL
 
 IFLAGP		SET	CLEAR
 			PRECIFLG
-			DIMOFLAG
+			DIM0FLAG
 		CLRGO
 			INTYPFLG
 			INTEGRV1
@@ -527,7 +527,7 @@ CSMCONIC	STQ	CALL
 			IRETURN
 			VINTFLAG
 IFLAGC		CLEAR	SETGO
-			DIMOFLAG
+			DIM0FLAG
 			INTYPFLG
 			INTEGRV1
 LEMCONIC	STQ	CALL
@@ -555,7 +555,7 @@ INTEGRVS	SET	SSP
 		STCALL	TNUV
 			RECTIFY
 		CLEAR	SET
-			DIMOFLAG
+			DIM0FLAG
 			NEWIFLG
 		SETGO
 			RPQFLAG
@@ -572,14 +572,14 @@ INTEGRVS	SET	SSP
 # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
 #	VINTFLAG	(IGNORED WHEN ENTERED FROM INTEGRVS)
 #	INTYPFLG
-#	DIMOFLAG
+#	DIM0FLAG
 #	D6OR9FLG
 #
 # CALLING SEQUENCE
 #	L-X	CALL
 #	L-Y		INTSTALL
 #	L-1	SET OR CLEAR ALL FOUR FLAGS.  ALSO CAN SET STATEFLG IF DESIRED
-#		AND DIMOFLAG IS CLEAR.
+#		AND DIM0FLAG IS CLEAR.
 #	L	CALL
 #	L+1		INTEGRV
 #
@@ -768,8 +768,8 @@ POOHCHK		DLOAD	ABS
 		BMN			# NO BACKWARD INTEGRATION
 			INTEXIT
 		PDDL	SR4
-			DT/2		# IS 4(DT) LS (TDEC - TET)
-		SR2R	BDSU
+			DT/2		# IS 4(DT) LS(TDEC - TET)
+		SR2R	BDSU		# NO
 		BMN	GOTO
 			INTEXIT
 			TIMESTEP
@@ -795,7 +795,7 @@ INTWAKE		CS	RASFLAG		# IS THIS INTSTALLED ROUTINE TO BE
 
 		INDEX	FIXLOC
 		CA	QPRET
-		TS	TBASE2		# YES, DON'T RESTART WITH SOMEONE ELSE'S Q
+		TS	TBASE2		# YES, DONT RESTART WITH SOMEONE ELSES Q
 
 		TC	PHASCHNG
 		OCT	04022
@@ -807,7 +807,7 @@ INTWAKE		CS	RASFLAG		# IS THIS INTSTALLED ROUTINE TO BE
 		CAF	REINTBIT
 		MASK	RASFLAG
 		EXTEND
-		BZF	GOBAC		# DON'T INTWAKE IF WE CAME HERE VIA RESTART
+		BZF	GOBAC		# DONT INTWAKE IF WE CAME HERE VIA RESTART
 
 INTWAKE1	CAF	WAKESTAL
 		INHINT
@@ -832,15 +832,15 @@ INTBITAB	OCT	20100
 # AVETOMID
 #
 # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
-# PHASE BY INITIALIZING THIS VEHICLE'S PERMANENT STATE VECTOR WITH THE
+# PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
 # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
 #
-# BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (OR WFLAG OR RENDWFLT IS
+# BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
 # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
 #
 # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
 #
-# FINALLY TRKMKCNT IS ZEROED.
+# FINALLY TRKMKCNT IS ZEROED
 
 		SETLOC	INTINIT
 		BANK
@@ -894,7 +894,7 @@ INT/W		DLOAD	CALL
 			INTSTALL
 		SET	SET
 			DIM0FLAG	# DO W-MATRIX
-			AVEMIDSW	# SO WON'T CLOBBER RN,VN,PIPTIME
+			AVEMIDSW	# SO WONT CLOBBER RN,VN,PIPTIME
 		SET	CLEAR
 			D6OR9FLG	# 9X9 FOR LM
 			VINTFLAG	# LM
@@ -908,22 +908,22 @@ INT/W		DLOAD	CALL
 #
 # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
 # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
-# TIME (SEE TIMEDELT.....BASED ON THE COMPUTATION TIME FOR ONE TIME STEP)
+# TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
 # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
 # IS DONE TO THE CURRENT TIME.
 # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
 #
 # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
-# TO THE RETURN ADDRESS.
+# TO THE RETURN ADDRESS
 #
-# IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRANSFERRED
-# FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRATION
-# TIME AND MPAC IS SET TO THE DELTA TIME --
-#			TAT MINUS CURRENT TIME
+# IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
+# FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
+# TION TIME AND MPAC IS SET TO THE DELTA TIME --
+#			TAT MINUS CURRENT TIME.
 
 # MIDTOAV2
 #
-# THIS ROUTINE INTEGRATES THIS VEHICLE'S STATE VECTOR TO THE CURRENT TIME.
+# THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
 # NO INPUTS ARE REQUIRED OF THE CALLER.  RETURN IS IN BASIC TO THE RETURN
 # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
 
@@ -958,7 +958,7 @@ ENTMID1		CALL
 			THISVINT
 		CLEAR	SET
 			INTYPFLG
-			MIDAVFLG	# LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
+			MIDAVFLG	# LET INTEG.  KNOW THE CALL IS FOR MIDTOAV.
 		CALL
 			INTEGRV		# GO INTEGRATE
 		CLEAR	VLOAD
@@ -1077,10 +1077,10 @@ INTWAKLM	CALL			# UPDATE LM STATE VECTOR
 INTWAKEX	CLEAR
 			RENDWFLG
 
-INTWAKUP	SSP	CALL		# REMOVE `UPDATE STATE VECTOR INDICATOR'
+INTWAKUP	SSP	CALL		# REMOVE :UPDATE STATE VECTOR INDICATOR:
 			UPSVFLAG
 			0
-			INTWAKE0	# RELEASE `GRAB' OF ORBIT INTEG.
+			INTWAKE0	# RELEASE :GRAB: OF ORBIT INTEG.
 		EXIT
 
 		TC	PHASCHNG