From 70f4ecc0350ee68549d63244b1c0c33796b04c8d Mon Sep 17 00:00:00 2001
From: Kourosh Simpkins <kouroshsimpkins@gmail.com>
Date: Sun, 6 Sep 2020 13:37:24 +0100
Subject: [PATCH] Update pages 857-862

Update of pages 857-862 (exclusive) of SERVICER.agc
---
 Luminary099/SERVICER.agc | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc
index d52debb..05bb9aa 100644
--- a/Luminary099/SERVICER.agc
+++ b/Luminary099/SERVICER.agc
@@ -51,7 +51,7 @@ BIBIBIAS	TC	PIPASR +3	# CLEAR + READ PIPS LAST TIME IN FRE5+F133
 
 		CS	FLAGWRD7
 		MASK	SUPER011	# SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
-		ADS	FLAGWRD7	# 	OF FLAGWRD7)
+		ADS	FLAGWRD7	#    OF FLAGWRD7)
 
 		CS	DRFTBIT
 		MASK	FLAGWRD2	# RESET DRIFTFLAG
@@ -64,7 +64,7 @@ BIBIBIAS	TC	PIPASR +3	# CLEAR + READ PIPS LAST TIME IN FRE5+F133
 		TS	OUTROUTE
 
 		CAF	PRIO22
-		TC	FINDVAC		# TO FIRST ENTRY TO AVERAGE G
+		TC	FINDVAC		# TO FIRST ENTRY TO AVERAGE G.
 		EBANK=	DVCNTR
 		2CADR	NORMLIZE
 
@@ -106,15 +106,15 @@ REDO5.5		CAF	ONE
 		CA	FLAGWRD7
 		MASK	AVEGFBIT
 		EXTEND
-		BZF	AVEGOUT		# AVEGFLAG DOWN -- SET UP FINAL EXIT
+		BZF	AVEGOUT		# AVEGFLAG DOWN - SET UP FINAL EXIT
 
 		CA	FLAGWRD6
 		MASK	MUNFLBIT
 		EXTEND
-		BZF	MAKEACCS	# MUNFLAG CLEAR -- BYPASS LR AND DISP.
+		BZF	MAKEACCS	# MUNFLAG CLEAR - BYPASS LR AND DISP.
 
 		CCS	PHASE2
-		TCF	MAKEACCS	# PHASE 2 ACTIVATED -- AVOID MULTIPLE R10.
+		TCF	MAKEACCS	# PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
 
 		CAF	SEVEN		# SET PIPCTR FOR 4X/SEC RATE.
 		TS	PIPCTR
@@ -130,7 +130,7 @@ REDO5.5		CAF	ONE
 		COM
 		DXCH	-PHASE2
 
-		CAF	OCT24		# FIRST R10,R11 IN .200 SECONDS
+		CAF	OCT24		# FIRST R10,R11 IN .200 SECONDS.
 		TC	WAITLIST
 		EBANK=	UNIT/R/
 		2CADR	R10,R11
@@ -152,7 +152,7 @@ GNUTFAZ5	TS	L		# SAVE INPUT IN L
 		TCF	+2
 
 GNUFAZE5	TS	L		# SAVE INPUT IN L
-		CS	L		# -PHASE IN A, PHASE IN L.
+		CS	L		# -PHASE IN A, PHASE IN L
 		DXCH	-PHASE5		# SET -PHASE5,PHASE5
 		TC	Q
 
@@ -192,7 +192,7 @@ GETABVAL	TC	INTPRET
 		TS	ABDELV		# ABDELV = CM/SEC*2(-14).
 		EXTEND
 		MP	KPIP
-		DXCH	ABDVCONV	# ABDVCONV = M/CS * 2(-5).
+		DXCH	ABDVCONV	# ABDVCONV = M/CS *2(-5).
 		EXTEND
 		DCA	MASS
 		DXCH	MASS1		# INITIALIZE MASS1 IN CASE WE SKIP MASSMON
@@ -204,8 +204,8 @@ MASSMON		CS	FLAGWRD8	# ARE WE ON THE SURFACE?
 		CA	FLGWRD10	# NO:  WHICH VEX SHOULD BE USED?
 		MASK	APSFLBIT
 		CCS	A
-		EXTEND			# IF EXTEND IS EXECUTED, APSVEX --> A,
-		DCA	APSVEX		# 	OTHERWISE DPSVEX --> A
+		EXTEND			# IF EXTEND IS EXECUTED, APSVEX --> A.
+		DCA	APSVEX		#    OTHERWISE DPSVEX --> A
 		TS	Q
 
 		EXTEND
@@ -240,8 +240,8 @@ GOSERV		TC	QUIKFAZ5
 
 COPYCYCL	TC	COPYCYC
 
-#		CA	ZERO		# A IS ZERO ON RETURN FROM COPYCYC
-		TS	PIPATMPX
+		CA	ZERO		# A IS ZERO ON RETURN FROM COPYCYC
+		TS	PIPATMPX	# STILL UNDER INHINT
 		TS	PIPATMPY
 		TS	PIPATMPZ