From d035ce9373704b8e6baf7309f8128b9e5f6b336b Mon Sep 17 00:00:00 2001
From: Joshua Harmsen <jharmsen@hamilton.edu>
Date: Tue, 13 Oct 2020 07:09:22 -0700
Subject: [PATCH] Proof MEASUREMENT_INCORPORATION.agc #608

---
 Luminary099/MEASUREMENT_INCORPORATION.agc | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/Luminary099/MEASUREMENT_INCORPORATION.agc b/Luminary099/MEASUREMENT_INCORPORATION.agc
index fd854c8..7713780 100644
--- a/Luminary099/MEASUREMENT_INCORPORATION.agc
+++ b/Luminary099/MEASUREMENT_INCORPORATION.agc
@@ -86,7 +86,7 @@ Z123		VLOAD	MXV*
 			BVECTOR +12D	# BVECTOR (2)
 		MXV*	VAD*
 			W +162D,1
-			ZI +18D,2	# B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS
+			ZI +18D,2	# B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
 		STORE	ZI +18D,2	# ZI THEN Z2 THEN Z3
 		TIX,1
 			INCOR1
@@ -160,7 +160,7 @@ INCOR1C		TLOAD	ROUND
  -3		SSP
 			S2
 			54D
-INCOR2		VLOAD	VXM*		# COMPUT OMEGA1,2,3
+INCOR2		VLOAD	VXM*		# COMPUTE OMEGA1,2,3
 			ZI
 			W +162D,2
 		PUSH	VLOAD
@@ -171,7 +171,7 @@ INCOR2		VLOAD	VXM*		# COMPUT OMEGA1,2,3
 			ZI +12D
 		VXM*	VAD
 			W +198D,2
-		PUSH	TIX,2		# PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
+		PUSH	TIX,2		# PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
 			INCOR2
 		VLOAD	STADR
 		STORE	OMEGA +12D
@@ -360,7 +360,7 @@ FAZC		CALL
 			GRP2PC
 # Page 1156
 		VLOAD	VAD		# START 3RD PHASE OF INCORP2
-			X789		# 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR
+			X789		# 7TH, 8TH, 9TH, COMPONENT OF STATE VECTOR
 			DELTAX +12D	# INCORPORATION FOR X789
 		STORE	TX789
 		BON	RTB
@@ -434,7 +434,6 @@ ZEROD		=	ZEROVECS
 54DD		DEC	54
 6DD		DEC	-6
 12DD		DEC	12
-
 		SETLOC	RENDEZ
 		BANK
 		COUNT*	$$/INCOR
@@ -491,5 +490,3 @@ NEWZCOMP	VLOAD	ABVAL
 		GOTO
 			INCOR2 -3
 NORMZI		=	36D
-
-