From e4e9a83e274231d50b49739a49650d213f30e4d1 Mon Sep 17 00:00:00 2001
From: Kourosh Simpkins <kouroshsimpkins@gmail.com>
Date: Mon, 7 Sep 2020 20:27:35 +0100
Subject: [PATCH] Update SERVICER.agc

Pages 865 through 870, although unsure about how to handle the newlines in the comment block on page 869, as well as when there is a "+x" in the righmost column, how should they be indented?
---
 Luminary099/SERVICER.agc | 49 ++++++++++++++++++++++++----------------
 1 file changed, 29 insertions(+), 20 deletions(-)

diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc
index a704917..e931b22 100644
--- a/Luminary099/SERVICER.agc
+++ b/Luminary099/SERVICER.agc
@@ -395,7 +395,7 @@ SERVIDLE	EXTEND			# DISCONNECT SERVICER FROM ALL GUIDANCE
 		MASK	IDLEFBIT
 		ADS	FLAGWRD7
 
-		CAF	LRBYBIT		# TERMINATE R12 IS RUNNING.
+		CAF	LRBYBIT		# TERMINATE R12 IF RUNNING.
 		TS	FLGWRD11
 
 		EXTEND
@@ -411,7 +411,7 @@ SERVIDLE	EXTEND			# DISCONNECT SERVICER FROM ALL GUIDANCE
 		DCA	NEG0
 		DXCH	-PHASE2
 
- +4		EXTEND
+   +4		EXTEND
  		DCA	NEG0
 		DXCH	-PHASE3
 
@@ -442,7 +442,7 @@ SVEXTADR	2CADR	SERVEXIT
 SERVEXIT	TC	PHASCHNG
 		OCT	00035
 
-+2		TCF	ENDOFJOB
+   +2		TCF	ENDOFJOB
 
 		BANK	23
 		SETLOC	NORMLIZ
@@ -470,7 +470,7 @@ NORMLIZE	TC	INTPRET
 			R(CSM)
 		STORE	UHYP
 ASCSPOT		EXIT
-		EXTEND			# MAKE SURE GROUP 2 IS OFF
+		EXTEND			# MAKE SURE GROUP 2 IS OFF.
 		DCA	NEG0
 		DXCH	-PHASE2
 
@@ -491,8 +491,8 @@ NORMLIZ2	CA	EIGHTEEN
 		TC	ENDOFJOB
 
 COPYCYC		CA	OCT24		# DEC 20
- +1		INHINT
- +2		MASK	NEG1		# REDUCE BY 1 IF ODD
++1		INHINT
++2		MASK	NEG1		# REDUCE BY 1 IF ODD
  		TS	ITEMP1
 		EXTEND
 		INDEX	ITEMP1
@@ -508,30 +508,39 @@ EIGHTEEN	DEC	18
 
 # Page 869
 # ************* PIPA READER *****************
-# MOD NO. 00 BY D. LICKLY, DEC. 9 1966
+# MOD NO. 00 BY D. LICKLY DEC.9 1966
 #
 # FUNCTIONAL DESCRIPTION
-#	SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE.
-#	PIPA READINGS ARE STORED IN THE VECTOR DELV.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
-# 	RESTARTS BEGIN AT REREADAC.
+#    SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE.
+#    PIPA READINGS ARE STORED IN THE VECTOR DELV.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
+#    RESTARTS BEGIN AT REREADAC.
 #
-#	AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
-#	VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
-# 	THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
-#	VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
+#
+#    AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
+# VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
+# THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
+# VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
 #
 # CALLING SEQUENCE AND EXIT
-#	CALL VIA TC, ISWCALL, ETC.
-#	EXIT IS VIA Q.
+#
+#    CALL VIA TC, ISWCALL, ETC.
+#
+#    EXIT IS VIA Q.
+#
 #
 # INPUT
-#	INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
+#
+#    INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
+#
 #
 # OUTPUT
-#	HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
-#	PIPTIME CONTAINS TIME OF PIPA READING.
+#
+#    HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
+#    PIPTIME CONTAINS TIME OF PIPA READING.
+#
 #
 # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
+#
 #	TEMX, TEMY, TEMZ, PIPAGE
 
 		BANK	37
@@ -544,7 +553,7 @@ PIPASR		EXTEND
 # Page 870
 		DCA	TIME2
 		DXCH	PIPTIME1	# CURRENT TIME POSITIVE VALUE
- +3		CS	ZERO		# INITIALIZE THESE AT NEG. ZERO.
+   +3		CS	ZERO		# INITIALIZE THESE AT NEG. ZERO.
  		TS	TEMX
 		TS	TEMY
 		TS	TEMZ