From 4727e92aa1510f78df21b3293b5e4a90f203f62b Mon Sep 17 00:00:00 2001
From: Atakan Suslu <40236955+Atknssl@users.noreply.github.com>
Date: Mon, 19 Oct 2020 20:39:08 +0300
Subject: [PATCH] Proof P70-P71 #618 (#719)

Co-authored-by: James Harris <wopian@wopian.me>
---
 Luminary099/P70-P71.agc | 37 +++++++++++++++++++++----------------
 1 file changed, 21 insertions(+), 16 deletions(-)

diff --git a/Luminary099/P70-P71.agc b/Luminary099/P70-P71.agc
index 7384508..9902aa4 100644
--- a/Luminary099/P70-P71.agc
+++ b/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
 
@@ -72,7 +72,7 @@ FLASHV?		CA	VFLSHBIT	# VLASHBIT MUST BE BIT 2.
 10,11		CA	FLAGWRD9	# IS THE LETABORT FLAG SET ?
 		MASK	LETABBIT
 		EXTEND
-		BZF	LANDISP		# NO. PROCEED TO R10.
+		BZF	LANDISP		# NO.  PROCEED TO R10.
 
 P71NOW?		CS	MODREG		# YES.  ARE WE IN P71 NOW?
 # Page 830
@@ -80,7 +80,7 @@ P71NOW?		CS	MODREG		# YES.  ARE WE IN P71 NOW?
 		EXTEND
 		BZF	LANDISP		# YES.  PROCEED TO R10.
 
-		EXTEND			# NO. IS AN ABORT STAGE COMMANDED?
+		EXTEND			# NO.  IS AN ABORT STAGE COMMANDED?
 		READ	CHAN30
 		COM
 		TS	L
@@ -88,7 +88,7 @@ P71NOW?		CS	MODREG		# YES.  ARE WE IN P71 NOW?
 		CCS	A
 		TCF	P71A		# YES.
 
-P70NOW?		CS	MODREG		# NO. ARE WE IN P70 NOW?
+P70NOW?		CS	MODREG		# NO.  ARE WE IN P70 NOW?
 		AD	1DEC70
 		EXTEND
 		BZF	LANDISP		# YES.  PROCEED TO R10.
@@ -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?
@@ -387,7 +388,7 @@ LEGAL?		CS	MMNUMBER	# IS THE DESIRED PGM ALREADY IN PROGRESS?
 		CA	FLAGWRD7	# IS SERVICER ON THE AIR?
 		MASK	AVEGFBIT
 		CCS	A
-		TC	Q		# YES. ALL IS WELL.
+		TC	Q		# YES.  ALL IS WELL.
 ABORTALM	TC	FALTON
 		TC	RELDSP
 		TC	POSTJUMP
@@ -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