From f36916719b03191d00b12a8b274ef817ba67c1ee Mon Sep 17 00:00:00 2001
From: Nathan Scott <dev@ngscott.net>
Date: Sun, 25 Oct 2020 12:33:15 +1100
Subject: [PATCH] Page 638
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

https://www.ibiblio.org/apollo/ScansForConversion/Luminary099/0638.jpg

5757 (L951) realign whitespace in comment
5759 (L953) realign whitespace in comment
5762 (L956) remove spaces in comment not in scan
5764 (L958) remove spaces in comment not in scan; realign whitespace in comment
5766 (L960) realign whitespace in comment
5767 (L961) remove spaces in comment not in scan; realign whitespace in comment
5769 (L963) correct "K10RK2" → "K1ORK2" in code
5783 (L977) correct "K10RK2" → "K1ORK2" in code; realign whitespace in comment
5785 (L979) remove space in comment not in scan
5786 (L980) realign whitespace in comment
5787 (L981) realign whitespace in comment
5788 (L982) remove space in comment not in scan
5797 (L991) remove spaces in comment not in scan
5801 (L995) remove spaces in comment not in scan; realign whitespace in comment
5803 (L997) move comment up from line below; realign whitespace
5805 (L999) move comment up from line below; realign whitespace
---
 Luminary099/P32-P35_P72-P75.agc | 36 ++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc
index a46233b..ddd2645 100644
--- a/Luminary099/P32-P35_P72-P75.agc
+++ b/Luminary099/P32-P35_P72-P75.agc
@@ -950,19 +950,19 @@ NTP/2		DLOAD	DMP
 			RACT3		# (U . RA3) = TEMP1	 B1 +B29=B30
 		SL1	PUSH		#				 B29 PL08D
 # Page 638
-		DSQ	TLOAD		# TEMP1**2			       B58
+		DSQ	TLOAD		# TEMP1**2			 B58
 			MPAC
-		PDVL	DOT		#					   PL11D
+		PDVL	DOT		#				     PL11D
 			RACT3
 			RACT3
-		TLOAD	DCOMP		# RA3 . RA3
+		TLOAD	DCOMP		# RA3.RA3
 			MPAC
-		PDVL	DOT		# RP3 . RP3			       B58 PL14D
+		PDVL	DOT		# RP3.RP3			 B58 PL14D
 			RPASS3
-			RPASS3		#					   PL11D
-		TAD	TAD		# TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2	   PL08D
+			RPASS3		#				     PL11D
+		TAD	TAD		# TEMP1**2+RA3.RA3+RP3.RP3=TEMP2     PL08D
 		BPL	DLOAD
-			K10RK2
+			K1ORK2
 			LOOPCT
 		DSU	AXT,2
 			1DPB28
@@ -976,12 +976,12 @@ NTP/2		DLOAD	DMP
 			DVPREV
 		STCALL	DELVCSI
 			CSI/B1
-K10RK2		SQRT	PUSH		# TEMP3 = TEMP2**.5		       B29 PL10D
+K1ORK2		SQRT	PUSH		# TEMP3 = TEMP2**.5		 B29 PL10D
 		DCOMP	DSU
-			06D		# -TEMP1-TEMP3 = K2 AT 10D
-		STODL	10D		#					   PL08D
-		DSU	STADR		#					   PL06D
-		STORE	12D		# -TEMP1+TEMP3 = K1 AT 12D
+			06D		# -TEMP1-TEMP3 =K2 AT 10D
+		STODL	10D		#				     PL08D
+		DSU	STADR		#				     PL06D
+		STORE	12D		# -TEMP1+TEMP3 =K1 AT 12D
 		ABS
 		STODL	14D
 			10D
@@ -990,16 +990,16 @@ K10RK2		SQRT	PUSH		# TEMP3 = TEMP2**.5		       B29 PL10D
 		BMN	DLOAD
 			K2.
 			12D
-		STORE	10D		# K = K1
+		STORE	10D		# K=K1
 K2.		DLOAD
 			10D
 		VXSC	VSL1
-		VAD	UNIT		# V = RA3 + KU UNIT			B1
+		VAD	UNIT		# V=RA3+KU  UNIT		  B1
 			RACT3
-		PDVL	UNIT
-			RPASS3		#					   PL06D
-		PDVL	UNIT
-			VPASS3		#					   PL12D
+		PDVL	UNIT		#				     PL06D
+			RPASS3
+		PDVL	UNIT		#				     PL12D
+			VPASS3
 # Page 639
 		VXV	PDVL		# UVP3 X URP3				   PL18D
 			06D