Proofing commanche055 P61-P67

2020-11-02 17:45:24 +00:00 · 2020-11-02 17:45:24 +00:00 · c63f0e5412
parent 7019d48166
commit c63f0e5412
1 changed files with 40 additions and 39 deletions
--- a/Comanche055/P61-P67.agc
+++ b/Comanche055/P61-P67.agc
@ -47,7 +47,7 @@
 #	EMSALT (-29) M		.05G ALTITUDE ABOVE FISCHER ELLIPSOID	PAD LOADED.
 #	ALFAPAD /180		HYPERSONIC CM TRIM ANGLE OF ATTACK	PAD LOADED
 # OUTPUT:	THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
-#		GMAX	100 GMAX (-14) G,S	MAXIMUM ACCELERATION
+#		GMAX	100 GMAX (-14) G.S	MAXIMUM ACCELERATION
 #		VPRED	(-7) M/CS		PREDICTED VELOCITY AT 400K FT
 #		GAMMAEI	(GAMMA/360		PREDICTED GAMMA    AT 400K FT
 #		RTGO	THETAH/360		RANGE ANGLE TO SPLASH FROM EMSALT	EMSALT IS PAD LOADED
@ -55,7 +55,7 @@
 #		TTE	(-28) CS		TIME TO			   EMSALT	EMSALT IS PAD LOADED
 #		LAT(SPL) /360			TARGET LOCATION				LEFT BY DSKY
 #		LNG(SPL) /360			TARGET LOCATION				LEFT BY DSKY
-#		HEADSUP	(0)			+1 = LIFT DOWN, -1 = LIFT UP		LEFT BY DSKY
+#		HEADSUP	(0)			+1 = LIFT DOWN. -1 = LIFT UP		LEFT BY DSKY
 # DEBRIS:	SEE SUBROUTINES.

 		BANK	26
@ -120,7 +120,7 @@ DUMPP61		DLOAD	DSU
 			S61.2		# GET DISPLAY DATA FOR N60 AND N63
 					# AND RETURN IN BASIC, BELOW.
 P61.1		TC	CLEARMRK
-		CA	V06N60		# GMAX		VPRED		GAMMAEI
+		CA	V06N60		# GMAX		VPRED		GAMMAE1
 					# XXX.XX G	XXXXX. FPS	XXX.XX DEG
 		TC	BANKCALL
 		CADR	GOFLASH
@ -201,9 +201,9 @@ P62.2		EXTEND
 		TC	GOTOPOOH
 		TC	+3			# PROCEED
 # Page 793
-						# NOTE:  NODOFLAG WILL BE SET IN CM/DAPON. ***
+						# NOTE:  NODOFLAG WILL BE SET IN CM/DAPON. <<<
 		TC	-5			# ENTER
-		TC	P61.3			# FOR PHASCHNG AND ENDOFJOB
+		TC	P61.3			# FOR PHASCHNG AND ENDOFJOB.

 	+3	TC	POSTJUMP
 		CADR	CM/DAPON		# DISABLE RCS DAP, ENABLE ENTRY DAP AND
@ -342,6 +342,7 @@ POSECADR	2CADR	CM/POSE
 # MOD NO:	1	SEPT. 19, 1967
 # MOD BY:	R. HIRSCHKOP
 # MOD NO: 2	MOD BY: RR BAIRNSFATHER		DATE: 8 MAY 68		REVISED COMMENTS FOR COLOSSUS
+# MOD NO: 3     MOD BY: RR BAIRNSFATHER         DATE: 1 MAR 69          N74
 # FUNCTION:	1.  TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
 #		    DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT.
 #		2.  SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
@ -353,7 +354,7 @@ POSECADR	2CADR	CM/POSE
 # EXIT:		BACK TO REENTRY CONTROL.
 # SUBROUTINE CALLS:  NEWMODEX

-		BANK	25
+		BANK	26
 		SETLOC	P60S1
 		BANK

@ -383,7 +384,7 @@ V06N74		VN	0674

 		COUNT*	$$/P65

-P65		TC	NEWMODEX		# ENTER VIA RTB WHEN RANGE < 25 N M OF
+P65		TC	NEWMODEX		# ENTER VIA RTB WHEN RANGE < 25 NM OF
 		MM	65			# TARGET.

 		CA	PRIO13
@ -517,10 +518,10 @@ SERVCAD2	=	SERVCAD1
 # MOD BY:	RR BAIRNSFATHER				LOG SECTION:	P61-P67
 # MOD NO:	1	MOD BY:	RR BAIRNSFATHER		DATE:		22 JUN 67	RESTARTS.
 # FUNCTIONAL DESCRIPTION:	CALLED BY BOTH P61 AND P62
-#	FIRST, TEST TO SEE IF  AVERAGEG  IS ON.  IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
-#	AND TURN ON  AVERAGEG  AT THAT TIME, AND CONTINUE.  OTHERWISE CONTINUE:  SEE IF IMU Y AXIS IS
-#	WITHIN 30 DEG OF VAR.  IF YES, EXIT SUBROUTINE S61.1.  IF SO, SEE IF -Y AXIS OF IMU IS WITHIN
-#	30 DEG OF VAR.	IF YES, DISPLAY ALARM:	01427	IMU REVERSED.
+#	FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
+#	AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS
+#	WITHIN 30 DEG OF V*R. IF YES, EXIT SUBROUTINE S61.1.  IF NO, SEE IF -Y AXIS OF IMU IS WITHIN
+#	30 DEG OF V*R. IF YES, DISPLAY ALARM:	01427	IMU REVERSED.
 #			IF NO, DISPLAY ALARM:	01426	IMU UNSATISFACTORY.
 #	IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
 #
@ -533,7 +534,7 @@ SERVCAD2	=	SERVCAD1
 #			C(MPAC) UNSPECIFIED
 #			PUSHLOC UNSPECIFIED
 #
-# SUBROUTINES CALLED: 	LOADTIME, CSMPREC, TPAGTREE,
+# SUBROUTINES CALLED: 	LOADTIME, CSMPREC, TPAGREE,
 #			WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
 #
 # NORMAL EXIT MODES:	RVQ
@ -555,7 +556,7 @@ SERVCAD2	=	SERVCAD1
 #		POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1	IF UPDATED
 #		PUSH LIST LOCS USED BY CSMPREC

-		EBANK=	AOG		# FOR 60GENRET, S61DT
+		EBANK=	AOG		# FOR 60GENRET. S61DT
 		BANK	26
 		SETLOC	P60S3
 		BANK
@ -650,17 +651,17 @@ C(30)LIM	2DEC	.566985		# = 1.0 - .5 COS(30)
 # Page 806
 # PROGRAM NAME:		S61.2			DATE:		14 FEB 67
 # MOD NO:  	1				LOG SECTION:	P61-P67
-# MOD BY:	NORTH / BAIRNSFATHER
-# MOD NO: 2	MOD BY: NORTH/BAIRNSFATHER	DATE: 11 MAY 67		ADD 2ND ITER FOR ERAD AT 400K FT.
+# MOD BY:	MORTH / BAIRNSFATHER
+# MOD NO: 2	MOD BY: MORTH/BAIRNSFATHER	DATE: 11 MAY 67		ADD 2ND ITER FOR ERAD AT 400K FT.
 # MOD NO: 3	MOD BY: RR BAIRNSFATHER		DATE: 21 NOV 67		VARIABLE MU ADDED.
 # MOD NO: 4	MOD BY: RR BAIRNSFATHER		DATE: 21 MAR 68		DIFFERENT EARTH/MOON SCALES IN TFF'S
 #
-# FUNCTIONAL DESCRIPTION:  CALLED IN P61.  PROVIDES DISPLAYS FOR NOUNS  N60  AND  N63 .
-#	PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED  (GMAX)  AND ALSO THE EXPECTED
-#	INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE  (GAMMAEI)  THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
-#	ELLIPSOID.  PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE  EMSALT  ABOVE FISCHER ELLIPSOID
-#	AND CONSISTS OF RANGE TO SPLASH FROM NOW  (RTGO) , PREDICTED INERTIAL VELOCITY  (VIO) , AND THE TIME TO
-#	GO FROM NOW  (TTE) .
+# FUNCTIONAL DESCRIPTION:  CALLED IN P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63.
+#	PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED
+#	INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
+#	ELLIPSOID.  PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID
+#	AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO), PREDICTED INERTIAL VELOCITY (VIO), AND THE TIME TO
+#	GO FROM NOW (TTE).
 #
 # CALLING SEQUENCE:	CALL
 #				S61.2
@ -692,7 +693,7 @@ C(30)LIM	2DEC	.566985		# = 1.0 - .5 COS(30)
 #		THETAH	THETAH/360		RANGE ANGLE				LEFT BY ENTRY / P61
 #		UNITW	(0)			UNIT POLAR VECTOR			LEFT BY PAD LOAD
 #		EMSALT	(-29) M			EMS INTERFACE ALTITUDE			LEFT BY PAD LOAD
-#						ORBITAL REENTRY: 284843 FT., LUNAR REENTRY: 297431 FT.
+#						ORBITAL REENTRY: 284843 FT, LUNAR REENTRY: 297431 FT.
 #
 # DEBRIS:	QPRET,
 #		ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
@ -790,7 +791,7 @@ CALLCON		CALL

 			PREVGAM		# VGAMCALC WITH NEW RTERM

-					# VBAR = (V(FPS) - 36KF/S) / 20 F/S
+					# VBAR = (V(FPS) - 36KF/S) / 20KF/S
 # GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10	ASSUME L/D = 0.3, BANK =0.

 # GMAXCALC
@ -822,7 +823,7 @@ CALLCON		CALL
 # Page 810
 # DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
 			ERADM		# = FISCHER RADIUS (-29) M
-		DAD	CALL		# 2 ND ITERATION FOR FISCHER RADIUS
+		DAD	CALL		# 2ND ITERATION FOR FISCHER RADIUS
 			400KFT
 			CALCTFF		# ESTABLISH TRANSFER ANGLE DATA.
 		CALL
@ -855,7 +856,7 @@ LUNENT		DLOAD	GOTO
 			CALLCON
 290KFT		2DEC	88392.0 B-29

-KTETA1		2DEC*	.421844723 E2 B-14* # 110 2PI/16384(163.84)
+KTETA1		2DEC*	.421844723 E2 B-14* # 1100 2PI/16384(163.84)

 36KFT/S		2DEC	109.728 B-7	# (-7) M/CS = 36 KFT/S (-7)

@ -869,9 +870,9 @@ KR2		2DEC	.54931641	# = (360/4) 100 (-14) = 9000 B-14

 KR3		2DEC	1000 B-14	# = 100 (10.0) (-14) G,S
 # Page 811
-					# ASSUMES L/D = 0.3, BANK =0.
-RTRIAL		2DEC	6460097.18 B-29	# RPAD +264643 FT =21 194 545 FT
-					# RPAD DEFINED AS 20 909 901.57 FT =6 373 336 M
+					# ASSUMES L/D = 0.3, BANK = 0.
+RTRIAL		2DEC	6460097.18 B-29	# RPAD +284643 FT =21 194 545 FT
+					# RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
 400KFT		2DEC	121920 B-29	# METERS

 # 300KFT	2DEC	91440 B-29	# (-29) M
@ -895,14 +896,14 @@ VEMSCON		2DEC	-.0389676 B-14	# = -HS D / 2 PI (-14)	M SQ / CS SQ
 #
 # FUNCTIONAL DESCRIPTION:  GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
 #	TRANSFER ANGLE, THETA, ALONG THE TRAJECTORY.  THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
-#	SINCE FISHCALC USED UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED.  (WILL IMPROVE FOR SUITABLE TENNANT)
+#	SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED.  (WILL IMPROVE FOR SUITABLE TENNANT)
 #
 # CALLING SEQUENCE:	CALL
 #				FISHCALC
 #	ENTER WITH .5 SIN(THETA) IN MPAC.
 #	PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
 #
-# SUBROUTINES CALLED:  GET ERAD
+# SUBROUTINES CALLED:  GETERAD
 #
 # NORMAL EXIT MODE:  RVQ
 #
@ -956,7 +957,7 @@ DUMPFISH	GOTO
 #
 #		VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
 #
-#		COSGAM = H / RTERM VGAM = SQRT (LCP) / (RTERM VGAM/RTMU)
+#		COSGAM = H / RTERM VGAM = SQRT(LCP) / (RTERM VGAM/RTMU)
 #
 #	VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS.  BOTH CALCTFF AND CALCTPER
 #	MAKE THIS ASSUMPTION.
@ -977,7 +978,7 @@ DUMPFISH	GOTO
 #		PUSHLOC AT PDL+2
 #
 # ERASABLE INITIALIZATION REQD:
-#	TFF/RTMU  E: (17)   M: (14)	1/SQRT(MU)				LEFT BY TFFCONIC
+#	TFF/RTMU  E: (17)   M: (14)	1/SQRT(MU)				LEFT BY TFFCONIC.
 #	RMAG1	  E: (-29)  M: (-27)	M  PRESENT RADIUS LENGTH		LEFT BY TFFCONIC
 #	NRMAG	  E: (-29+NR)		M  NORM LENGTH OF PRESENT POSITION	LEFT BY TFFCONIC
 #		  M: (-27+NR)
@ -994,7 +995,7 @@ DUMPFISH	GOTO

 PREVGAM		SL*			# ENTER WITH NEW RTERM IN MPAC
 					# E: (-29)  M: (-27)
-			0,1		# X1 = -NR
+			0.1		# X1 = -NR
 		STORE	NRTERM		# RTERM M		E: (-29+NR)	M: (-27+NR)

 VGAMCALC	DLOAD	DMP
@ -1060,7 +1061,7 @@ DUMPVGAM	RVQ
 # ERASABLE INITIALIZATION REQUIRED:
 #		TFFX			X					LEFT BY CALCTFF OR CALCTPER
 #		TFFTEM  E: (-59+2NR)	ARG					LEFT BY CALCTFF OR CALCTPER
-#			M: (-55+2NR)	WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
+#			M: (-55+2NR)	WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
 #		NRTERM	E: (-29+NR)	M  NORM LENGTH OF TERMINAL RADIUS	LEFT BY CALCTFF OR CALCTPER
 #			M: (-27+NR)
 #		NRMAG	E: (-29+NR)	M  NORM LENGTH OF PRESENT POSITION	LEFT BY TFFCONIC
@ -1120,7 +1121,7 @@ VRCALC		VLOAD	DOT
 #
 # FUNCTIONAL DESCRIPTION
 #
-#	COMPUTE DESIRED GIMBAL ANGLES FOR ENTRY ATTITUDE
+#	COMPUTE DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
 #	THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
 #	REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH):
 #
@ -1136,7 +1137,7 @@ VRCALC		VLOAD	DOT
 #		UZD = UXD * UYD
 #
 #	USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL  CALCGA  AND OBTAIN GIMBAL ANGLES
-#	IN 2S, C IN MPAC, +2 AND THETAD, +2.
+#	IN 2S,C IN MPAC, +2 AND THETAD, +2.
 #
 # CALLING SEQUENCE
 #
@ -1158,14 +1159,14 @@ VRCALC		VLOAD	DOT
 # ERASABLE INITIALIZATION REQUIRED
 #
 #	ROLLC	ROLL COMMAND		DP 1'S COMP AT 1REV
-#	ALFAPAD	SP 1'S C / 180		LEFT BY PAD LOAD	ALFATRIM IS NEGATIVE.
+#	ALFAPAD	SP 1S,C / 180		LEFT BY PAD LOAD	ALFATRIM IS NEGATIVE.
 #	UXA/2	REF COORDS		LEFT BY CM/POSE
 #	UYA/2	REF COORDS		LEFT BY CM/POSE
 #	UZA/2	REF COORDS		LEFT BY CM/POSE
 #
 # OUTPUT
 #
-#	CPHI	GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180
+#	CPHI	GIMBAL ANGLES (O,I,M) 2:S COMP TP (O,I,M)/180
 #
 # DEBRIS
 #
@ -1219,7 +1220,7 @@ S62.3		SETPD	SLOAD
 			CPHIFLAG	# CAUSE CALCGA TO STORE ANS IN TP CPHI
 			CALCGA
 					# CALCGA WILL RETURN TO ORIGINAL CALLER
-					# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI
+					# VIA QPRET WITH 2,S COMP. ANGLES IN CPHI