Proof P70-P71 #618 (#719)

Co-authored-by: James Harris <wopian@wopian.me>

Luminary099/P70-P71.agc

@@ -52,7 +52,7 @@ R10,R11A	CS	IMODES33	# IF LAMP TEST, DO NOT CHANGE LR LITES.
 		EXTEND
 		BZF	10,11
 
-FLASHH?		MASK	FLGWRD11	# C(A) = 1 - HFLASH BIT
+FLASHH?		MASK	FLGWRD11	# C(A) = 1 = HFLASH BIT
 		EXTEND
 		BZF	FLASHV?		# H FLASH OFF, SO LEAVE ALONE
 
@@ -146,7 +146,7 @@ ABRTJASK	CAF	OCTAL27
 		MASK	APSFLBIT
 		ADS	FLGWRD10
 		CS	DAPBITS		# DAPBITS = OCT 640 = BITS 6, 8, 9
-		MASK	DAPBOOLS	# (TURN OFF ULLAGE, DRIFT, AND XOVINHIB
+		MASK	DAPBOOLS	# (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
 		TS	DAPBOOLS
 
 		CS	FLAGWRD5	# SET ENGONFLG.
@@ -167,6 +167,7 @@ ABRTJASK	CAF	OCTAL27
 		MASK	R10FLBIT	# CROSS-POINTER DISPLAY.
 		ADS	FLAGWRD0	# THE FOLLOWING ENEMA WILL REMOVE THE
 					# DISPLAY INERTIAL DATA OUTBIT.
+
 		TC	CLRADMOD	# INSURE RADMODES PROPERLY SET FOR R29.
 
 		EXTEND			# LOAD TEVENT FOR THE DOWNLINK.
@@ -195,7 +196,6 @@ ABRTJASK	CAF	OCTAL27
 		COM
 		DXCH	-PHASE4
 
-# the 3 in OCT37774 could be something else, garbled
 		CAF	OCT37774	# SET T5RUPT TO CALL DAPIDLER IN
 		TS	TIME5		# 40 MILLISECONDS.
 
@@ -272,20 +272,20 @@ P70INIT		TC	INTPRET
 		SET	CALL
 			FLAP
 			COMMINIT
-		AXC,1	GOTO		# RETURN HERE IN P70, SET X1 FOR DPS COEFF.
+		AXC,1	GOTO		# RETURN HERE IN P70, SE X1 FOR DPS COEFF.
 			0D
 			BOTHPOLY
-INJTARG		AXC,1			# RETURN HERE IN P71, SET X1 FOR APS COEFF.
+INJTARG		AXC,1			# RETURN HERE IN P71, SET X1 FOR APS COEFF
 			8D
 BOTHPOLY	DLOAD*	DMP		# TGO D
 			ABTCOF,1
 			TGO
 # Page 834
 		DAD*	DMP
-			ABTCOF +2,1	#	TGO(C+TGO )
+			ABTCOF +2,1	# TGO(C+TGO D)
 			TGO
 		DAD*	DMP
-			ABTCOF +4,1	# TGO(B+TGO d))
+			ABTCOF +4,1	# TGO(B+TGO(C+TGO D))
 			TGO
 		DAD*
 			ABTCOF +6,1	# A+TGO(B+TGO(C+TGO D))
@@ -295,7 +295,7 @@ BOTHPOLY	DLOAD*	DMP		# TGO D
 			UPRATE		# IF BIG ENOUGH, LEAVE ZDOTD AS IS .
 		DLOAD
 			VMIN
-		STORE	ZDOTD		# IF TOO SMALL, REPLCAE WITH MINIMUM.
+		STORE	ZDOTD		# IF TOO SMALL, REPLACE WITH MINIMUM.
 UPRATE		DLOAD
 			ABTRDOT
 		STCALL	RDOTD		# INITIALZE RDOTD.
@@ -303,7 +303,7 @@ UPRATE		DLOAD
 		ABS	DSU
 			YLIM		# /Y/-DYMAX
 		BMN	SIGN		# IF <0, XR<.5DEG, LEAVE YCO AT 0
-			YOK		# IF >0, FIX SIGN OF DEFICIT.  THIS IS YCO.
+			YOK		# IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
 			Y
 		STORE	YCO
 YOK		DLOAD	DSU
@@ -323,7 +323,7 @@ UPTHROT		SET	EXIT
 		TC	PHASCHNG
 		OCT	04024
 
--3		TC	BANKCALL	# VERIFY THAT THE PANEL SWITCHES
+ -3		TC	BANKCALL	# VERIFY THAT THE PANEL SWITCHES
 		CADR	P40AUTO		# ARE PROPERLY SET.
 
 		TC	THROTUP
@@ -371,6 +371,7 @@ TGO1		=	VGBODY
 		BANK	21
 		SETLOC	R11
 		BANK
+
 		COUNT*	$$/P70
 
 LEGAL?		CS	MMNUMBER	# IS THE DESIRED PGM ALREADY IN PROGRESS?
@@ -399,7 +400,7 @@ ABORTALM	TC	FALTON
 
 		COUNT*	$$/P70
 
-# **********************************************************************
+# ************************************************************************
 
 TGOCOMP		RTB	DSU
 			LOADTIME
@@ -421,14 +422,18 @@ THROTUP		CAF	BIT13
 # ************************************************************************
 
 10SECS		2DEC	1000
+
 HINJECT		2DEC	18288 B-24	# 60,000 FEET EXPRESSED IN METERS.
+
 (TGO)A		2DEC	37000 B-17
+
 K(AT)		2DEC	.02		# SCALING CONSTANT
+
 WHICHADR	REMADR	ABRTABLE
 
 # ************************************************************************
 # Page 837
 		EBANK=	DVCNTR
 ATMAGAD		2CADR	ATMAG
-ORBMANAD	ADRES	ORBMANUV
 
+ORBMANAD	ADRES	ORBMANUV