diff --git a/Luminary099/ALARM_AND_ABORT.agc b/Luminary099/ALARM_AND_ABORT.agc
index e91a769..9e4c618 100644
--- a/Luminary099/ALARM_AND_ABORT.agc
+++ b/Luminary099/ALARM_AND_ABORT.agc
@@ -147,7 +147,7 @@ WHIMPER		CA	TWO
 		RESUME
 		TC	POSTJUMP	# RESUME SENDS CONTROL HERE
 		CADR	ENEMA
-P00DOO		INHINT
+POODOO		INHINT
 		CA	Q
 ABORT2		TS	ALMCADR
 		INDEX	Q
diff --git a/Luminary099/AOSTASK_AND_AOSJOB.agc b/Luminary099/AOSTASK_AND_AOSJOB.agc
index 7934b75..bec2ea6 100644
--- a/Luminary099/AOSTASK_AND_AOSJOB.agc
+++ b/Luminary099/AOSTASK_AND_AOSJOB.agc
@@ -589,7 +589,7 @@ EPSILON		EQUALS	MPAC 	+1
 
 		COUNT*	$$/DAPAO
 
-	-1	TS	INGTS		# ZERO INGTS IN ASCENT
+ -1		TS	INGTS		# ZERO INGTS IN ASCENT
 1/ACCONT	CA	DB		# INITIALIZE DBVAL1,2,3
 		EXTEND
 		MP	BIT13
diff --git a/Luminary099/AOTMARK.agc b/Luminary099/AOTMARK.agc
index 74ef793..3468312 100644
--- a/Luminary099/AOTMARK.agc
+++ b/Luminary099/AOTMARK.agc
@@ -38,7 +38,7 @@ AOTMARK		INHINT
 		CCS	MARKSTAT	# SEE IF AOTMARK BUSY
 		TC	+2		# MARK SYSTEM BUSY -- DO ALARM
 		TC	EXTVBCHK
-		TC	P00DOO
+		TC	POODOO
 		OCT	00105
 
 EXTVBCHK	CAF	SIX		# SEE IF EXT. VERB WORKING
@@ -94,7 +94,7 @@ MKRELEAS	CAF	ZERO
 # Page 246
 KILLAOT		CAF	ZERO
 		TS	EXTVBACT	# TERMINATE AOTMARK -- ALLOW EXT VERB
-		TC	GOTOP00H
+		TC	GOTOPOOH
 GETDAT		CS	MARKSTAT	# SET BIT12 TO DISCOURAGE MARKRUPT
 		MASK	BIT12		#	BIT12 RESET AT GETMARK
 		ADS	MARKSTAT
@@ -103,7 +103,7 @@ GETDAT		CS	MARKSTAT	# SET BIT12 TO DISCOURAGE MARKRUPT
 		TC	BANKCALL
 		CADR	GOMARKF
 
-		TCF	KILLAOT		# V34 -- DOES GOTOP00H
+		TCF	KILLAOT		# V34 -- DOES GOTOPOOH
 		TCF	DODAT		# V33 -- PROCEED -- USE THIS STAR FOR MARKS
 ENTERDAT	TCF	GETDAT		# ENTER -- REDISPLAY STAR CODE
 
@@ -126,7 +126,7 @@ CODE7		CAF	V06N87*		# CODE 7, COAS SIGHTING, GET OPTIC AXIS
 		TC	BANKCALL	# AZ AND EL OF SIGHTING DEVICE FROM ASTRO
 		CADR	GOMARKF
 
-		TCF	KILLAOT		# V34 -- DOES GOTOP00H
+		TCF	KILLAOT		# V34 -- DOES GOTOPOOH
 		TCF	+2		# PROCEED
 		TCF	CODE7		# ON ENTER, RECYCLE
 		EXTEND
@@ -326,7 +326,7 @@ GETMKS		CAF	ZERO		# INITIALIZE MARK ID REGISTER AND MARK CNT
 PASTIT		TC	BANKCALL
 		CADR	GOMARK4
 
-		TCF	KILLAOT		# V34 -- DOES GOTOP00H
+		TCF	KILLAOT		# V34 -- DOES GOTOPOOH
 		TCF	MARKCHEX	# VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
 		TCF	GETDAT		# ENTER -- RECYCLE TO V01N71
 
@@ -660,7 +660,7 @@ DSPV6N79	CAF	V06N79*		# CURSOR -- SPIRAL DISPLAY
 		TC	BANKCALL
 		CADR	GOMARKF
 
-		TCF	KILLAOT		# V34 -- DOES GOTOP00H
+		TCF	KILLAOT		# V34 -- DOES GOTOPOOH
 		TCF	SURFEND		# V33 -- PROCEED, END MARKING
 		CAF	BIT6		# IF V32(OCT40) IN MPAC DO RECYCLE
 		MASK	MPAC		# OTHERWISE IT IS LOAD VB ENTER SO
diff --git a/Luminary099/ASCENT_GUIDANCE.agc b/Luminary099/ASCENT_GUIDANCE.agc
index 20f89da..baa47c0 100644
--- a/Luminary099/ASCENT_GUIDANCE.agc
+++ b/Luminary099/ASCENT_GUIDANCE.agc
@@ -560,7 +560,7 @@ TERMASC		TC	PHASCHNG
 		CADR	RESTORDB
 		TC	DOWNFLAG	# DISALLOW ABORTS AT THIS TIME.
 		ADRES	LETABORT
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 
 V16N85C		VN	1685
 
diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
index 41ddb23..85c1f3d 100644
--- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
+++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
@@ -602,7 +602,7 @@ COMFAIL		TC	UPFLAG		# (15)
 		TCF	+3		# YES
 		TC	BANKCALL	# OTHERWISE, START IT UP
 		CADR	STCLOK1
- 	+3	CS	VB97DEX
+ +3		CS	VB97DEX
  		TS	DISPDEX
 		TC	PHASCHNG	# TURN OFF GROUP 4.
 		OCT	00004
@@ -740,7 +740,7 @@ CLOKJOB		EXTEND
 
 VB97DEX		=	OCT35		# NEGATIVE OF THIS IS PROPER FOR DISPDEX
 
- 	-35	CS	ZERO		# INDICATE VERB 97 PASTE
+ -35		CS	ZERO		# INDICATE VERB 97 PASTE
  		TS	NVWORD1
 		CA	NVWORD 	+2	# NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
 		TC	BANKCALL
@@ -750,7 +750,7 @@ VB97DEX		=	OCT35		# NEGATIVE OF THIS IS PROPER FOR DISPDEX
 		TCF	COMFAIL2
 
 					# THIS DISPLAY IS CALLED VIA ASTNCLOK
- 	-25	CAF	V06N61		# IT IS PRIMARILY USED BY THE CREW IN P63
+ -25		CAF	V06N61		# IT IS PRIMARILY USED BY THE CREW IN P63
  		TC	BANKCALL	# TO RESET HIS EVENT TIMER TO AGREE WITH
 		CADR	REFLASH		# TIG.
 		TCF	STOPCLOK
@@ -759,7 +759,7 @@ VB97DEX		=	OCT35		# NEGATIVE OF THIS IS PROPER FOR DISPDEX
 
 CNTDNDEX	=	LOW4		# OCT17:  NEGATIVE PROPER FOR DISPDEX
 
- 	-17	INDEX	WHICH		# THIS DISPLAY COMES UP AT ONE SECOND
+ -17		INDEX	WHICH		# THIS DISPLAY COMES UP AT ONE SECOND
 		# Was CAF --- RSB 2009
  		CA	0		# INTERVALS.  IT IS NORMALLY OPERATED
 		TC	BANKCALL	# BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
@@ -769,26 +769,26 @@ VB99DEX		=	ELEVEN		# OCT13:  NEGATIVE PROPER FOR DISPDEX
 
 V99RECYC	EQUALS
 
- 	-13	CS	BIT9		# INDICATE VERB 99 PASTE
+ -13		CS	BIT9		# INDICATE VERB 99 PASTE
  		TS	NVWORD1
 		INDEX	WHICH		# THIS IS THE "PLEASE ENABLE ENGINE"
 		# Was CAF --- RSB 2004
 		CA	0		# DISPLAY; IT IS INITIATED AT TIG-5 SEC.
 		TC	BANKCALL	# THE DISPLAY IS A V99NXX, WHERE XX IS
 		CADR	CLOCPLAY	# NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
-		TCF	STOPCLOK	# TERMINATE GOTOP00H TURNS OFF ULLAGE.
+		TCF	STOPCLOK	# TERMINATE GOTOPOOH TURNS OFF ULLAGE.
 		TCF	*PROCEED
 		TCF	*ENTER
 
 # Page 746
 BLANKDEX	=	TWO		# NEGATIVE OF THIS IS PROPER FOR DISPDEX
 
-	-2	TC	BANKCALL	# BLANK DSKY.  THE DSKY IS BLANKED FOR
+ -2		TC	BANKCALL	# BLANK DSKY.  THE DSKY IS BLANKED FOR
  		CADR	CLEANDSP	# 5 SECONDS AT TIG-35 TO INDICATE THAT
 DISPNOT		TCF	ENDOFJOB	# AVERAGE G IS STARTING.
 
 STOPCLOK	TC	NULLCLOK	# STOP CLOKTASK & TURN OFF ULLAGE ON THE
-		TCF	GOTOP00H	# WAY TO P00 (GOTOP00H RELINTS)
+		TCF	GOTOPOOH	# WAY TO P00 (GOTOPOOH RELINTS)
 
 NULLCLOK	INHINT
 		EXTEND
@@ -886,7 +886,7 @@ REP40ALM	CAF	V05N09		# (14)
 		TC	BANKCALL
 		CADR	GOFLASH
 
-		TCF	GOTOP00H	# V34E 		TERMINATE
+		TCF	GOTOPOOH	# V34E 		TERMINATE
 		TCF	+2		# PROCEED 	CHECK FOR P42
 		TCF	REP40ALM	# V32E		REDISPLAY ALARM
 
@@ -919,7 +919,7 @@ P40A/P		TC	BANKCALL	# SUBROUTINE TO CHECK PGNCS CONTROL
 TURNITON	CAF	P40A/PMD	# DISPLAYS V50N25 R1=203 PLEASE PERFORM
 		TC	BANKCALL	# CHECKLIST 203 TURN ON PGNCS ETC.
 		CADR	GOPERF1
-		TCF	GOTOP00H	# V34E TERMINATE
+		TCF	GOTOPOOH	# V34E TERMINATE
 		TCF	P40A/P		# RECYCLE
 GOBACK		CA	TEMPR60
 		TC	BANKJUMP	# GOODBYE.  COME AGAIN SOON.
@@ -951,7 +951,7 @@ DSP2CADR	2CADR	P63DISPS -2
 		EBANK=	DVCNTR
 ATMAGADR	2CADR	ATMAG
 
-?		=	GOTOP00H
+?		=	GOTOPOOH
 
 D29.9SEC	2DEC	2990
 
diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc
index b24afbe..6e35972 100644
--- a/Luminary099/CONIC_SUBROUTINES.agc
+++ b/Luminary099/CONIC_SUBROUTINES.agc
@@ -1726,7 +1726,7 @@ INFINAPO	DLOAD	GOTO		# RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
 
 # Page 1201
 ABTCONIC	EXIT
-		TC	P00DOO
+		TC	POODOO
 		OCT	00607
 
 # Page 1202
diff --git a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
index e444b1a..254609a 100644
--- a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
+++ b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
@@ -85,7 +85,7 @@ RESTORDB	CAE	DAPBOOLS	# DETERMINE CREW-SELECTED DEADBAND.
 		BZF	SETMINDB
 
 SETMAXDB	CAF	WIDEDB		# SET 5 DEGREE DEADBAND.
-	+1	TS	DB
+ +1		TS	DB
 
 		EXTEND			# SET UP JOB TO RE-POSITION SWITCH CURVES.
 		QXCH	RUPTREG1
@@ -124,7 +124,7 @@ ZATTEROR	CAF	EBANK6
 STOPRATE	CAF	EBANK6
 		XCH	EBANK
 		TS	L		# SAVE CALLERS EBANK IN L.
-	+3	CAF	ZERO
+ +3		CAF	ZERO
 		TS	OMEGAPD
 		TS	OMEGAQD
 		TS	OMEGARD
diff --git a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
index 912c3d0..ddd0ec1 100644
--- a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
+++ b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
@@ -770,7 +770,7 @@ IFLEGAL		CAF	TWO
 		EXTEND
 		BZF	OKTOPLAY	# NO
 
-PRIOBORT	TC	P00DOO
+PRIOBORT	TC	POODOO
 		OCT	1502
 
 OKTOPLAY	TC	COPIES2
diff --git a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
index c62904d..05fc020 100644
--- a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
+++ b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
@@ -204,7 +204,7 @@ NEXTINCL	INDEX	CTLIST
 		XCH	CTLIST		# SET CTLIST TO NEGATIVE AND PLACE(CODING)
 		COM			# UNCOMPLEMENTED DNADR INTO A.    (FOR LA)
 		XCH	CTLIST		#                                 (ST IN )
-	+4	INCR	A		#                                 (CTLIST)
+ +4		INCR	A		#                                 (CTLIST)
  		TS	DNECADR		# SAVE DNADR
 		AD	MINTIME2	# TEST FOR TIME2 (NEG. OF ECADR)
 		CCS	A
@@ -212,8 +212,8 @@ NEXTINCL	INDEX	CTLIST
 MINB1314	OCT	47777		# MINUS BIT 13 AND 14 (CAN'T GET HERE)
 		TCF	SETWO 	+1	# DON'T SET WORD ORDER CODE
 SETWO		TC	WOZERO		# GO SET WORD ORDER CODE TO ZERO.
-	+1	CA	DNECADR		# RELOAD A WITH THE DNADR.
-	+2	AD	MINB1314	# IS THIS A REGULAR DNADR?
+ +1		CA	DNECADR		# RELOAD A WITH THE DNADR.
+ +2		AD	MINB1314	# IS THIS A REGULAR DNADR?
  		EXTEND
 		BZMF	FETCH2WD	# YES.  (A MUST NEVER BE ZERO)
 		AD	MINB12		# NO.  IS IT A POINTER (DNPTR) OR A
@@ -310,7 +310,7 @@ NEXTINSL	INDEX	SUBLIST
 		TS	SUBLIST		# SAVE A.
 		CA	NEGONE		# SET SUBLIST TO MINUS
 		XCH	SUBLIST		# RETRIEVE A.
-	+4	INCR	A
+ +4		INCR	A
  		TS	DNECADR		# SAVE DNADR
 		TCF	SETWO +2	# GO USE COMMON CODING (PROLEMS WOULD
 					# OCCUR IF THE PROGRAM ENCOUNTERED A
@@ -392,7 +392,7 @@ SUBLIST		EQUALS 	DNQ
 # Page 996
 DNDUMPI		CA	ZERO		# INITIALIZE DOWNLINK
 		TS	DUMPLOC		# ERASABLE DUMP
-	+2	TC	SENDID		# GO SEND ID AND SYNCH BITS
+ +2		TC	SENDID		# GO SEND ID AND SYNCH BITS
 		CA	LDNDUMP1	# SET DNTMGOTO
 		TS	DNTMGOTO	# TO LOCATION FOR NEXT PASS
 		CA	TIME1		# PLACE TIME1
diff --git a/Luminary099/EXTENDED_VERBS.agc b/Luminary099/EXTENDED_VERBS.agc
index cdad18f..4504ded 100644
--- a/Luminary099/EXTENDED_VERBS.agc
+++ b/Luminary099/EXTENDED_VERBS.agc
@@ -1073,7 +1073,7 @@ NOMINIMP	INHINT
 #	1.	DISPLAY FLASHING V06,N22.
 #		RESPONSES
 #		A.	TERMINATE
-#			1.	GOTOP00H
+#			1.	GOTOPOOH
 #		B.	PROCEED
 #			1.	SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
 #			2.	EXECUTE R60LEM (ATTITUDE MANEUVER).
diff --git a/Luminary099/FRESH_START_AND_RESTART.agc b/Luminary099/FRESH_START_AND_RESTART.agc
index 433dfb1..6c4486f 100644
--- a/Luminary099/FRESH_START_AND_RESTART.agc
+++ b/Luminary099/FRESH_START_AND_RESTART.agc
@@ -342,7 +342,7 @@ PINACT		CCS	MPAC +5		# PROCESS ALL RESTART GROUPS.
 		CAF	BIT15		# IS MODE -0
 		MASK	MODREG
 		EXTEND
-		BZF	GOTOP00H	# NO
+		BZF	GOTOPOOH	# NO
 		TCF	ENDRSTRT	# YES
 PTBAD		TC	ALARM		# SET ALARM TO SHOW PHASE TABLE FAILURE.
 		OCT	1107
@@ -614,7 +614,7 @@ SWINIT		OCT	0
 		OCT	40000		# BIT 15 = LRBYPASS.
 
 # Page 224
-# PROGRAM NAME		GOTOP00H		ASSEMBLY SUNDANCE
+# PROGRAM NAME		GOTOPOOH		ASSEMBLY SUNDANCE
 # LOG SECTION		FRESH START AND RESTART
 #
 # FUNCTIONAL DESCRIPTION
@@ -623,7 +623,7 @@ SWINIT		OCT	0
 #
 # INPUT/OUTPUT INFORMATION
 #
-#	A. CALLING SEQUENCE			TC GOTOP00H
+#	A. CALLING SEQUENCE			TC GOTOPOOH
 #	B. ERASABLE INITIALIZATION		NONE
 #	C. OUTPUT FLASH V 37 ON DSKY
 #	D. DEBRIS				L
@@ -639,7 +639,7 @@ SWINIT		OCT	0
 		BANK
 
 		COUNT*	$$/P00
-GOTOP00H	CAF	OCT33			# 4.33 SPOT FOR GOP00FIX
+GOTOPOOH	CAF	OCT33			# 4.33 SPOT FOR GOP00FIX
 		TS	L
 		COM
 		DXCH	-PHASE4
diff --git a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
index 155442b..bb72e05 100644
--- a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
+++ b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
@@ -91,13 +91,13 @@ PROG21		CAF	ONE
 		CAF	BIT2		# OPTION 2
 		TC	BANKCALL
 		CADR	GOPERF4
-		TC	GOTOP00H	# TERMINATE
+		TC	GOTOPOOH	# TERMINATE
 		TC	+2		# PROCEED VALUE OF ASSUMED VEHICLE OK
 		TC	-5		# R2 LOADED THROUGH DSKY
 P21PROG1	CAF	V6N34		# LOAD DESIRED TIME OF LAT-LONG.
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H	# TERM
+		TC	GOTOPOOH	# TERM
 		TC	+2		# PROCEED VALUES OK
 		TC	-5		# TIME LOADED THROUGH DSKY
 		TC	INTPRET
@@ -188,8 +188,8 @@ P21DSP		CLEAR	SLOAD		# GENERATE DISPLAY DATA
 		CAF	V06N43		# DISPLAY LAT, LONG, ALT
 		TC	BANKCALL	# LAT, LONG = 1/2 REVS B0
 		CADR	GOFLASH		# ALT = KM B14
-		TC	GOTOP00H	# TERM
-		TC	GOTOP00H
+		TC	GOTOPOOH	# TERM
+		TC	GOTOPOOH
 		TC	INTPRET		# V32E RECYCLE
 		DLOAD	DAD
 			P21TIME
diff --git a/Luminary099/IMU_PERFORMANCE_TEST_2.agc b/Luminary099/IMU_PERFORMANCE_TEST_2.agc
index 9f03ea7..eff1b54 100644
--- a/Luminary099/IMU_PERFORMANCE_TEST_2.agc
+++ b/Luminary099/IMU_PERFORMANCE_TEST_2.agc
@@ -411,7 +411,7 @@ FINETIME	INHINT			# RETURNS WITH INTERRUPT INHIBITED
 		EXTEND
 		READ	LOSCALAR
 		TS	L
-	+4	CS	POSMAX
+ +4		CS	POSMAX
 		AD	L
 		EXTEND
 		BZF	FINETIME +1
diff --git a/Luminary099/INTERPRETER.agc b/Luminary099/INTERPRETER.agc
index 4179918..d35ed97 100644
--- a/Luminary099/INTERPRETER.agc
+++ b/Luminary099/INTERPRETER.agc
@@ -2530,7 +2530,7 @@ ZEROANS		CAF	ZERO		# FORCE ANSWER TO ZERO HERE.
 		TCF	FIXROOT
 
 SQRTABRT	DXCH	LOC
-		TC	P00DOO1
+		TC	POODOO1
 		OCT	1302
 
 # Page 1080
diff --git a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
index e1d5abe..b7c7b93 100644
--- a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
+++ b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
@@ -865,7 +865,7 @@ P64DISPS	CA	TREDES		# HAS TREDES REACHED ZERO?
 		CAF	V06N64		# OTHERWISE USE FLASHING DISPLAY
 		TC	BANKCALL
 		CADR	REFLASHR
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	P64CEED		# PROCEED	PERMIT REDESIGNATIONS
 		TCF	P64DISPS	# RECYCLE
 # Page 815
@@ -1409,7 +1409,7 @@ TDISPSET	CA	TTF/8
 		ADS	TREDES
 		TC	Q
 
-1406P00		TC	P00DOO
+1406P00		TC	POODOO
 		OCT	01406
 1406ALM		TC	ALARM
 		OCT	01406
diff --git a/Luminary099/ORBITAL_INTEGRATION.agc b/Luminary099/ORBITAL_INTEGRATION.agc
index 7cca363..0cd2caa 100644
--- a/Luminary099/ORBITAL_INTEGRATION.agc
+++ b/Luminary099/ORBITAL_INTEGRATION.agc
@@ -324,7 +324,7 @@ GOBAQUE		VLOAD	ABVAL
 			TESTLOOP
 
 INT-ABRT	EXIT
-		TC	P00DOO
+		TC	POODOO
 		OCT	00430
 
 # Page 1234
diff --git a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
index 89bb05b..850ba93 100644
--- a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
+++ b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
@@ -106,7 +106,7 @@ SUBDIVDE	EXTEND			# OVERFLOW PROTECTION ROUTINE TO GIVE
 		MP	DAPTEMP3	# POSMAX OR NEGMAX IF THE DIVIDE WOULD
 		DAS	OMEGAU		# OVERFLOW
 
-	+3	EXTEND
+ +3		EXTEND
 		DCA	OMEGAU
 		DXCH	DAPTEMP5
 		CCS	OMEGAU
@@ -259,7 +259,7 @@ LMONLY		EXTEND			# UNDOCKED
 		DCA	LMOMEGAN
 		DXCH	DAPTREG4
 		CA	LMTRAP
-	+5	TS	DAPTREG6
+ +5		TS	DAPTREG6
 		CCS	TRAPEDP
 		TCF	+2
 		TCF	SMALPDIF
@@ -990,7 +990,7 @@ SELECTP		CA	SIX
 		TCF	JETSOFF		# ********** TCF ALARMJET **********
 SELECTYZ	TS	NUMBERT
 		TCF	SELECTP	+1
-	-1	TCF	ABORTYZ +2
+ -1		TCF	ABORTYZ +2
 JETSALL		OCT	00252
 		OCT	00125		# +P
 		OCT	00140		# -Y
diff --git a/Luminary099/P12.agc b/Luminary099/P12.agc
index f5b6f60..a4a58bf 100644
--- a/Luminary099/P12.agc
+++ b/Luminary099/P12.agc
@@ -62,7 +62,7 @@ P12LM		TC	PHASCHNG
 		CAF	V06N33A
 		TC	BANKCALL	# FLASH TIG
 		CADR	GOFLASH
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 		TCF	+2		# PROCEED
 		TCF	-5		# ENTER
 
@@ -111,7 +111,7 @@ P12LMB		DLOAD
 NEWLOAD		CAF	V06N76		# FLASH CROSS-RANGE, AND APOLUNE VALUES.
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 		TCF	+2		# PROCEED
 		TCF	NEWLOAD		# ENTER NEW DATA.
 
diff --git a/Luminary099/P20-P25.agc b/Luminary099/P20-P25.agc
index 4d9b8f8..3ee7e7d 100644
--- a/Luminary099/P20-P25.agc
+++ b/Luminary099/P20-P25.agc
@@ -111,7 +111,7 @@ ORBCHGO		TC	UPFLAG		# SET VEHUPFLG -- CSM STATE
 		CAF	OCT00012
 		TC	BANKCALL	# DISPLAY ASSUMED CSM ORBIT OPTION
 		CADR	GOPERF4
-		TC	GOTOP00H	# TERMINATE
+		TC	GOTOPOOH	# TERMINATE
 		TC	ORBCHG1		# PROCEED VALUE OF ASSUMED OPTION OK
 		TC	-5		# R2 LOADED THRU DSKY
 ORBCHG1		CS	P22ONE
@@ -121,7 +121,7 @@ ORBCHG1		CS	P22ONE
 		CAF	V06N33*
 		TC	BANKCALL	# FLASH VERB-NOUN TO REQUEST ESTIMATED
 		CADR	GOFLASH		# TIME OF LAUNCH
-		TC	GOTOP00H	# TERMINATE
+		TC	GOTOPOOH	# TERMINATE
 		TC	ORBCHG2		# PROCEED VALUES OK
 		TC	-5		# TIME LOADED THRU DSKY
 ORBCHG2		TC	INTPRET
@@ -4410,7 +4410,7 @@ ZERO/SP		EQUALS	HI6ZEROS
 		BANK
 		COUNT*	$$/P20
 GOTOV56		EXTEND			# P20 TERMINATES BY GOTOV56 INSTEAD OF
-		DCA	VB56CADR	# GOTOP00H
+		DCA	VB56CADR	# GOTOPOOH
 		TCF	SUPDXCHZ
 		EBANK=	WHOCARES
 VB56CADR	2CADR	TRMTRACK
diff --git a/Luminary099/P30_P37.agc b/Luminary099/P30_P37.agc
index 0d984bd..e60c109 100644
--- a/Luminary099/P30_P37.agc
+++ b/Luminary099/P30_P37.agc
@@ -41,10 +41,10 @@
 #
 # CALLING SEQUENCE VIA JOB FROM V37
 #
-# EXIT VIA V37 CALL OR TO GOTOP00H (V34E)
+# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
 #
 # SUBROUTINE CALLS --	FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
-#			GOPERF3R, INTPRET, BLANKET, GOTOP00H, R02BOTH, S30.1,
+#			GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
 #			TIG/N35, MIDGIM, DISPMGA
 #
 # ERASABLE INITIALIZATION -- STATE VECTOR
diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc
index 0f923f2..cb4fed1 100644
--- a/Luminary099/P32-P35_P72-P75.agc
+++ b/Luminary099/P32-P35_P72-P75.agc
@@ -180,7 +180,7 @@
 #	VARALARM
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 # Page 621
 #	VNP00H
 #	GOFLASHR
@@ -218,7 +218,7 @@ ALMXIT		LXC,1
 		CAF	V05N09
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	-4
 P32/P72A	TC	P20FLGON
 		CAF	P30ZERO
@@ -257,7 +257,7 @@ VN0655		EXIT
 		CAF	V06N55		# NN, ELEV(RGLOS)
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	+2
 		TC	-5
 		CAF	V06N37		# TTPI
@@ -473,7 +473,7 @@ P32/P72F	STORE	T2TOT3
 #	ALARM
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 #	S32/33.1
 # Page 627
 #	VN1645
@@ -524,7 +524,7 @@ P33/P73B	CALL
 		CAF	V05N09
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	+2
 # Page 628
 		TC	P33/P73A
diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc
index 6344a23..6043f1c 100644
--- a/Luminary099/P34-35_P74-75.agc
+++ b/Luminary099/P34-35_P74-75.agc
@@ -192,7 +192,7 @@
 #	ALARM
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 #	TIMETHET
 #	S34/35.2
 #	PERIAPO1
@@ -251,7 +251,7 @@ INTLOOP		DLOAD	DAD
 		CAF	V05N09
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	P34/P74A	# PROCEED
 		TC	-7		# V32
 
@@ -853,7 +853,7 @@ ALLSET		STOVL	TET
 # SUBROUTINES USED
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 #	S34/35.3
 #	S34.35.4
 #	VNP00H
@@ -873,7 +873,7 @@ FLAGON		CLEAR	VLOAD
  +5		CAF	V06N81
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	+2		# PRO
 		TC	FLAGON 	+5	# LOAD
  +2		CA	EBANK7
@@ -924,7 +924,7 @@ FLAGOFF		CALL
 #	DELAYJOB
 #	COMPTGO
 #	GOFLASHR
-#	GOTOP00H
+#	GOTOPOOH
 #	FLAGUP
 
 VN1645		STQ	DLOAD
@@ -965,7 +965,7 @@ GET45		EXIT
 KILCLOCK	CA	Z
 		TS	DISPDEX
 # Page 681
-		TC	GOTOP00H
+		TC	GOTOPOOH
 N45PROC		CS	FLAGWRD2
 		MASK	BIT6
 		EXTEND
@@ -989,7 +989,7 @@ CLUPDATE	CA	Z
 # SUBROUTINES USED
 #	BANKCALL
 #	GOFLASHR
-#	GOTOP00H
+#	GOTOPOOH
 #	BLANKET
 #	ENDOFJOB
 
@@ -998,7 +998,7 @@ DISPLAYE	EXTEND
 		CAF	V06N55
 		TCR	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 		TC	NORMEX
 		TCF	-5
 
@@ -1017,7 +1017,7 @@ P3XORP7X	CAF	HIGH9
 # SUBROUTINES USED
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 
 VNP00H		EXTEND
 		QXCH	RTRN
@@ -1025,7 +1025,7 @@ VNP00H		EXTEND
 		CA	VERBNOUN
 		TCR	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 		TC	RTRN
 		TCF	-5
 
diff --git a/Luminary099/P40-P47.agc b/Luminary099/P40-P47.agc
index 11ab016..3bee108 100644
--- a/Luminary099/P40-P47.agc
+++ b/Luminary099/P40-P47.agc
@@ -60,7 +60,7 @@
 #	ALLCOAST	DAP COASTING INITIALIZATION
 #	CLOKTASK	ERGO CLOCKJOB -- COUNT DOWN
 #	PHASCHANG, INTPRET, FLAGUP, FLAGDOWN, WAITLIST, LONGCALL, GOFLASH, GOFLASHR, GOPERF1, ALARM,
-#	PRIOLARM, GOTOP00H, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
+#	PRIOLARM, GOTOPOOH, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
 #	KILLTASK, SGNAGREE, TPAGREE, ETC.
 #
 # RESTARTS VIA GROUP 4
@@ -85,9 +85,9 @@
 # ALARM OR ABORT EXIT MODES
 #
 #	PROGRAM ALARM, FLASHING DISPLAY OF ALARM CODE 1706 IF P40 SELECTED WITH DESCENT UNIT STAGED.
-#	V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED.  TC GOTOP00H.
+#	V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED.  TC GOTOPOOH.
 #
-#	PROGRAM ALARM, FLASH CODE 1703:  TIG LESS THAN 45 SECS AWAY.  V34E= GOTOP00H OR V33E= SLIP
+#	PROGRAM ALARM, FLASH CODE 1703:  TIG LESS THAN 45 SECS AWAY.  V34E= GOTOPOOH OR V33E= SLIP
 #	TIG BY 45 SECS.
 #
 # ERASABLE INITIALIZATION
@@ -209,7 +209,7 @@ TERM40		EXTEND
 		TC	IBNKCALL
 		CADR	RESTORDB
 		RELINT
-		TC	GOTOP00H
+		TC	GOTOPOOH
 
 		EBANK=	WHICH
 		COUNT*	$$/P41
@@ -402,8 +402,8 @@ CALCN83		TC	INTPRET
 P47BOD		CAF	V1683
 		TC	BANKCALL
 		CADR	GOFLASHR
-		TC	GOTOP00H
-		TC	GOTOP00H
+		TC	GOTOPOOH
+		TC	GOTOPOOH
 
 		TCF	P47BODY
 
diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc
index 881326c..63dba8e 100644
--- a/Luminary099/P51-P53.agc
+++ b/Luminary099/P51-P53.agc
@@ -139,7 +139,7 @@ P52A		CAF	BIT1
 P52B		CAF	BIT1
 		TC	BANKCALL	# FLASH OPTION CODE AND ORIENTATION CODE
 		CADR	GOPERF4R	# FLASH V04N06
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TCF	+5		# V33 -- PROCEED
 		TC	P52B		# NEW CODE -- NEW ORIENTATION CODE INPUT
 		TC	PHASCHNG	# DISPLAY RETURN
@@ -167,7 +167,7 @@ P52T		EXTEND
 		CAF	V06N34*
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	+2
 		TC	-5
 		DXCH	DSPTEM1
@@ -197,7 +197,7 @@ P52D		CALL			# READ VEHICLE ATTITUDE AND
 		CAF	V06N22
 		TC	BANKCALL	# DISPLAY GIMBAL ANGLES
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TCF	COARSTYP	# V33 -- PROCEED, SEE IF GYRO TORQUE COARSE
 P52H		TC	INTPRET
 		GOTO
@@ -211,7 +211,7 @@ COARSRET	SET	CLEAR
 P52F		CALL
 			R51
 P52OUT		EXIT
-		TC	GOTOP00H
+		TC	GOTOPOOH
 VB05N09		=	V05N09
 V06N34*		VN	634
 
@@ -221,7 +221,7 @@ V06N34*		VN	634
 COARSTYP	CAF	OCT13
 		TC	BANKCALL	# DISPLAY V 50N25 WITH COARSE ALIGN OPTION
 		CADR	GOPERF1
-		TCF	GOTOP00H	# V34 -- TERMIN&OE
+		TCF	GOTOPOOH	# V34 -- TERMIN&OE
 		TCF	REGCOARS	# V33 -- NORMAL COARSE
 		TC	INTPRET		# V32 -- GYRO TORQUE COARSE
 		VLOAD	MXV
@@ -290,7 +290,7 @@ N89DISP		STQ
 LSDISP		CAF	V06N89*		# DISPLAY LAT,LONG/2,ALT
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# V34 -- TERMINATE -- EXIT P57
+		TCF	GOTOPOOH	# V34 -- TERMINATE -- EXIT P57
 		TCF	+2		# V33 -- PROCEED -- ACCEPT LS DATA
 		TCF	LSDISP		# V32 OR E -- LOOK AGAIN AND/OR LOAD NEW LS
 
@@ -637,7 +637,7 @@ R51.1		EXIT
 R51C		CAF	OCT15
 		TC	BANKCALL
 		CADR	GOPERF1
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	+2		# V33E
 		TC	R51E		# ENTER
 		TC	INTPRET
@@ -656,7 +656,7 @@ R51I		TC	ALARM
 		CAF	VB05N09
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	R51E
 		TC	R51C
 R51E		CAF	ZERO
@@ -715,7 +715,7 @@ R51K		EXIT
 R51P63		CAF	OCT14
 		TC	BANKCALL
 		CADR	GOPERF1
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	R51C
 		TC	INTPRET
 		GOTO
@@ -790,7 +790,7 @@ PULSEM		EXIT
 R55.1		CAF	V06N93
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TC	R55.2
 		TC	R55RET
 R55.2		TC	PHASCHNG
@@ -873,7 +873,7 @@ CHKSD		DLOAD	DSU
 		CAF	VB6N5
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 		TC	CHKSDA		# PROCEED
 		TC	INTPRET
 		CLEAR	GOTO
@@ -1008,12 +1008,12 @@ RDCDUS		INHINT			# READ CDUS
 		COUNT*	$$/P51
 # Page 950
 P51		TC	BANKCALL	# IS ISS ON - IF NOT, IMUCHK WILL SEND
-		CADR	IMUCHK		# ALARM CODE 210 AND EXIT VIA GOTOP00H.
+		CADR	IMUCHK		# ALARM CODE 210 AND EXIT VIA GOTOPOOH.
 
 		CAF	OCT15
 		TC	BANKCALL
 		CADR	GOPERF1
-		TC	GOTOP00H	# TERM.
+		TC	GOTOPOOH	# TERM.
 		TCF	P51B		# V33
 		TC	PHASCHNG
 		OCT	04024
@@ -1107,7 +1107,7 @@ P51G		CALL
 			MATMOVE
 		SET	EXIT
 			REFSMFLG
-		TC	GOTOP00H	# FINIS
+		TC	GOTOPOOH	# FINIS
 # Page 952
 V41K		VN	4100
 COARSE		EXIT
@@ -1232,7 +1232,7 @@ R52		STQ	EXIT
 R52A		CAF	V01N70
 		TC	BANKCALL
 		CADR	GOFLASH		# DISPLAY STARCODE AND WAIT FOR RESPONSE
-		TC	GOTOP00H	# V34 -- TERMINATE
+		TC	GOTOPOOH	# V34 -- TERMINATE
 		TCF	R52B		# V33 -- PROCEED TO ORIENT LEM
 		TCF	R52A		# ENTER -- SELECT NEW STARCODE -- RECYCLE
 
@@ -1268,7 +1268,7 @@ R52B		TC	DOWNFLAG
 GETAZEL		CAF	V06N87		# CODE 0 OR 7, GET AZ AND EL KEY IN
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H	# V34 -- TERMINATE
+		TC	GOTOPOOH	# V34 -- TERMINATE
 		TCF	+2		# PROCEED -- CALC OPTIC AXIS
 		TCF	GETAZEL		# ENTER -- RECYCLE
 
@@ -1319,7 +1319,7 @@ R59 		CS	FLAGWRD3
 		CAF	V01N70*		# SELECT STAR CODE FOR ACQUISITION
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H	# V34 -- TERMINATE
+		TC	GOTOPOOH	# V34 -- TERMINATE
 		TCF	R59A		# V33 -- PROCEED
 		TCF	R59		# V32 -- RECYCLE
 
@@ -1449,14 +1449,14 @@ R59ALM		TC	ALARM		# THIS STAR CAN'T BE LOCATED IN AOT FIELD
 		CAF	VB05N09		# DISPLAY ALARM
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# VB34 -- TERMINATE
+		TCF	GOTOPOOH	# VB34 -- TERMINATE
 		TCF	R59OUT		# VB33 -- PROCEED, GO WITHOUT ACQUIRE
 		TCF	R59		# VB32 -- RECYCLE AND TRY ANOTHER STAR
 
 79DISP		CAF	V06N79		# DISPLAY CURSOR, SPIRAL AND POS CODE
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# V34 -- TERMINATE
+		TCF	GOTOPOOH	# V34 -- TERMINATE
 # Page 960
 		TCF	R59E		# V33 -- PROCEED TO MARK ROUTINE
 		TCF	R59		# V32 -- RECYCLE TO TOP OF R59 AGAIN
@@ -1683,7 +1683,7 @@ GRAVEL		VLOAD*	CALL
 		CA	DISGRVER
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TCF	PROGRAV		# VB33 -- PROCEED
 		TC	UPFLAG		# VB32 -- RECYCLE -- STORE GRAV AND DO IT AGAIN
 		ADRES	FREEFLAG	# AND SET FREEFLAG TO SHOW RECYCLE
@@ -1919,7 +1919,7 @@ INITBY		CALL
 		CAF	DISPGYRO	# DISPLAY GYRO TORQ ANGLES V 06N93
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H	# V34 -- TERMINATE
+		TC	GOTOPOOH	# V34 -- TERMINATE
 		TCF	5DEGTEST	# VB33 -- PROCEED TO COARSE OR FINE
 		TCF	P57POST +1	# VB32 -- RECYCLE, MAYBE RE-ALIGN
 
@@ -1964,13 +1964,13 @@ P57POST		EXIT
 		CAF	OCT14		# DISPLAY V50N25 CHK CODE 14
 		TC	BANKCALL
 		CADR	GOPERF1
-		TCF	GOTOP00H	# VB34 -- TERMINATE
+		TCF	GOTOPOOH	# VB34 -- TERMINATE
 		TCF	P57JUMP		# VB33 -- PROCEED TO RE-ALIGN
 		CS	BIT2		# TEST TO SEE IF ALIGNED BY OPTION 2
 		AD 	OPTION2
 		EXTEND
 		BZF	+2		# YES -- GO CALCULATE LANDING SITE
-		TCF	GOTOP00H	# NO -- EXIT P57
+		TCF	GOTOPOOH	# NO -- EXIT P57
 		TC	PHASCHNG	# RESTART PLACE
 		OCT	04024
 		TC	INTPRET
@@ -1998,7 +1998,7 @@ P57POST		EXIT
 			R-TO-RP
 		STORE	RLS		# RLS IN MOON-FIXED COORDS
 		EXIT
-		TCF	GOTOP00H	# EXIT P57
+		TCF	GOTOPOOH	# EXIT P57
 
 # Page 974
 # COARSE AND FINE ALIGN IMU
@@ -2020,7 +2020,7 @@ COATRIM		AXC,1	AXC,2
 		CAF	V06N22		# THAN 5 DEGREES
 		TC	BANKCALL
 		CADR	GOFLASH
-		TC	GOTOP00H
+		TC	GOTOPOOH
 		TCF	+2
 		TCF	-5
 		TC	PHASCHNG
@@ -2041,14 +2041,14 @@ DISPGYRO	VN	0693
 # LUNAR SURFACE IMU ALIGNMENT PROGRAM
 
 P57		TC	BANKCALL	# IS ISS ON -- IF NOT, IMUCHK WILL SEND
-		CADR	IMUCHK		# ALARM CODE 210 AND EXIT VIA GOTOP00H
+		CADR	IMUCHK		# ALARM CODE 210 AND EXIT VIA GOTOPOOH
 
 		CAF	THREE		# JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
 		TS	OPTION2
 P57OPT		CAF	BIT1
 		TC	BANKCALL
 		CADR	GOPERF4R	# FLASH V04N06 FOR ALIGNMENT CODE
-		TC	GOTOP00H	# V34 TERMINATE
+		TC	GOTOPOOH	# V34 TERMINATE
 		TCF	ALIGNOPT	# V33 PROCEED
 		TCF	P57OPT		# V32 RECYCLE
 
@@ -2080,7 +2080,7 @@ P57A		STORE	DSPTEM1
 P57AA		CAF	V06N34*		# DISPLAY TALIGN, TALIGN : DSPTEM1
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# V34 -- TERMINATE
+		TCF	GOTOPOOH	# V34 -- TERMINATE
 		TCF 	+2
 		TCF	P57AA		# VB32 -- RECYCLE
 
@@ -2126,7 +2126,7 @@ PACKOPTN	CAF	ZERO		# PACK FLAG BITS FOR OPTION DISPLAY
 DSPOPTN		CAF	VB05N06		# DISPLAY OPTION CODE AND FLAG BITS
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# VB34 -- TERMINATE
+		TCF	GOTOPOOH	# VB34 -- TERMINATE
 		TCF	+2		# V33 -- PROCEED
 		TCF	DSPOPTN		# V32 -- RECYCLE
 
@@ -2148,7 +2148,7 @@ DSPOPTN		CAF	VB05N06		# DISPLAY OPTION CODE AND FLAG BITS
 		CAF	VB05N09		# DISPLAY ALARM FOR ACTION
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# VB34 -- TERMINATE
+		TCF	GOTOPOOH	# VB34 -- TERMINATE
 		TCF	DSPOPTN		# V33 -- PROCEED *********TEMPORARY
 		TCF	DSPOPTN		# VB32 -- RECYCLE TO OPTION DISPLAY V 05N06
 
@@ -2314,7 +2314,7 @@ IMUCHK		CS	IMODES30
 
 		TC	ALARM		# NO, SEND ALARM AND EXIT
 		OCT	210
-		TC	GOTOP00H
+		TC	GOTOPOOH
 
 		TC	UPFLAG
 		ADRES	IMUSE		# SET IMUSE FLAG
diff --git a/Luminary099/P76.agc b/Luminary099/P76.agc
index 085213f..6ef35ff 100644
--- a/Luminary099/P76.agc
+++ b/Luminary099/P76.agc
@@ -146,7 +146,7 @@ INTOTHIS	STCALL	TDEC1
 OUT		EXIT
 ENDP76		CAF	ZERO
 		TS	MARKCTR		# CLEAR RR TRACKING MARK COUNTER
-		TCF	GOTOP00H
+		TCF	GOTOPOOH
 
 V06N84		NV	0684
 		NV	0633
diff --git a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
index 056d1da..ec22746 100644
--- a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
+++ b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
@@ -2743,7 +2743,7 @@ DSPALARM	CS	NVSBENDL
 		TC	PASTEVB		# PUT MONITOR VERB BACK IN VERBREG
 CHARALRM	TC	FALTON		# NO NVSUB INITATED. TURN ON OPR ERROR
 		TC	ENDOFJOB
-		TC	P00DOO
+		TC	POODOO
 		OCT	01501
 MONADR		GENADR	PASTEVB
 NVSBENDL	TC	NVSUBEND
@@ -3164,7 +3164,7 @@ ISCADR+0	CCS	CADRSTOR	# ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
 ISLIST+0	CCS	DSPLIST		# ABORTS (CODE 01206) IF DSPLIST NOT= +0.
 		TC	DSPABORT	# RETURNS IF DSPLIST = +0.
 		TC	Q
-DSPABORT	TC	P00DOO
+DSPABORT	TC	POODOO
 		OCT	01206
 
 # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
diff --git a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
index fbde56d..d3b25b3 100644
--- a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
+++ b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
@@ -529,7 +529,7 @@ TJLAW		CA	TJLAWADR
 		TCF	+3
 		TC	TJETLAW
 		TCF	AFTERTJ
-	+3	CS	DAPBOOLS	# DOCKED.  IF GIMBAL USABLE DO GTS CONTROL
+ +3		CS	DAPBOOLS	# DOCKED.  IF GIMBAL USABLE DO GTS CONTROL
 		MASK	USEQRJTS	#	ON THE NEXT PASS.
 		CCS	A		# USEQRJTS BIT MUST NOT BE BIT 15.
 		TS	COTROLER	# GIMBAL USABLE.  STORE POSITIVE VALUE.
diff --git a/Luminary099/R60_62.agc b/Luminary099/R60_62.agc
index 4c5f715..6d55d05 100644
--- a/Luminary099/R60_62.agc
+++ b/Luminary099/R60_62.agc
@@ -51,7 +51,7 @@
 #
 #	B.	TERMINATE -- IF IN P00 GO TO STEP 5A.  OTHERWISE CHECK IF R61 IS
 #		THE CALLING PROGRAM.  IF IN R61 AN EXIT IS MADE TO GOTOV56.  IF
-#		NOT IN R61 AN EXIT IS DONE VIA GOTOP00H.
+#		NOT IN R61 AN EXIT IS DONE VIA GOTOPOOH.
 #
 #	C.	PROCEED -- CONTINUE WITH PROGRAM AT STEP 6.
 #
@@ -211,7 +211,7 @@ R61TEST		CA	MODREG		# IF WE ARE IN P00 IT MUST BE V49 OR V89
 		CA	FLAGWRD4	# ARE WE IN R61 (P20 OR P25)
 		MASK	PDSPFBIT
 		EXTEND
-		BZF	GOTOP00H	# NO
+		BZF	GOTOPOOH	# NO
 		TC	GOTOV56		# YES
 
 BIT14+7		OCT	20100
diff --git a/Luminary099/RESTART_TABLES.agc b/Luminary099/RESTART_TABLES.agc
index a71398e..35919e8 100644
--- a/Luminary099/RESTART_TABLES.agc
+++ b/Luminary099/RESTART_TABLES.agc
@@ -241,7 +241,7 @@ SIZETAB		TC	1.2SPOT -12006
 
 4.35SPOT	OCT	46777
 		EBANK=	DVCNTR
-		2CADR	GOP00DOO
+		2CADR	GOPOODOO
 
 4.37SPOT	OCT	52777
 		EBANK=	WHICH
diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc
index 7f1eb2d..d52debb 100644
--- a/Luminary099/SERVICER.agc
+++ b/Luminary099/SERVICER.agc
@@ -82,7 +82,7 @@ READACCS	CS	OCT37771	# THIS PIECE OF CODING ATTEMPTS TO
 		CS	ONE		# OCCUR APPROXIMATELY 70 MILLISECONDS
 		TCF	+2		# FOLLOWING THE READACCS RUPT.  THE 70 MS
 		CA	ONE		# OFFSET WAS CHOSEN SO THAT THE PAXIS
-	+2	ADS	TIME5		# RUPT WOULD NOT OCCUR SIMULTANEOUSLY
+ +2		ADS	TIME5		# RUPT WOULD NOT OCCUR SIMULTANEOUSLY
  					# WITH ANY OF THE 8 SUBSEQUENT R10,R11
 					# INTERRUPTS -- THUS MINIMIZING THE POSS-
 					# IBILITY OF LOSING DOWNRUPTS.
@@ -410,7 +410,7 @@ SERVIDLE	EXTEND			# DISCONNECT SERVICER FROM ALL GUIDANCE
 		DCA	NEG0
 		DXCH	-PHASE2
 
- 	+4	EXTEND
+ +4		EXTEND
  		DCA	NEG0
 		DXCH	-PHASE3
 
@@ -424,7 +424,7 @@ SERVIDLE	EXTEND			# DISCONNECT SERVICER FROM ALL GUIDANCE
 		DXCH	-PHASE4
 
 		TCF	WHIMPER		# PERFORM A SOFTWARE RESTART AND PROCEED
-					# TO GOTOP00H WHILE SERVICER CONTINUES TO
+					# TO GOTOPOOH WHILE SERVICER CONTINUES TO
 					# RUN, ALBEIT IN A GROUND STATE WHERE
 					# ONLY STATE-VECTOR DEPENDENT FUNCTIONS
 					# ARE MAINTAINED.
@@ -490,8 +490,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
@@ -543,7 +543,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
@@ -1344,7 +1344,7 @@ USEVF		INDEX	VSELECT*
 		CA	LRWVFZ		# USE APPROPRIATE CONSTANT WEIGHT
 		TCF	WSTOR
 
- 	-1	CA	ZERO
+ -1		CA	ZERO
 WSTOR		TS	MPAC
 		CS	BIT7		# (=64D)
 		AD	MODREG
@@ -1355,7 +1355,7 @@ WSTOR		TS	MPAC
 		CA	LRWVFF
 		TS	MPAC
 
- 	+3	CA	EBANK7
+ +3		CA	EBANK7
  		TS	EBANK		# CHANGE EBANKS
 
 		EBANK=	ABVEL
@@ -1636,12 +1636,12 @@ POSGOOD		CA	PRIO23		# REDUCE PRIORITY FOR INTERPRETIVE COMPS.
 POSALARM	CA	OCT523
 		TC	BANKCALL
 		CADR	PRIOLARM	# FLASH ALARM CODE
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	+3		# PROCEED -- TRY AGAIN
 		TCF	ENDOFJOB	# V 32 E    TERMINATE R12
 		TC	ENDOFJOB
 
-	+3	CA	BIT7		# SEE IF IN POS2 YET
+ +3		CA	BIT7		# SEE IF IN POS2 YET
 		EXTEND
 		RAND	CHAN33
 		EXTEND
diff --git a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
index 930a324..b884567 100644
--- a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
+++ b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
@@ -181,7 +181,7 @@ SPSSTART	CA	EDOT		# OUTER RATE LIMIT TEST
 		BZMF	TJZERO
 NEGTHRST	CS	HALF
 		TCF	POSTHRST +1
-	+7	CS	RATELIM2
+ +7		CS	RATELIM2
 		AD	EDOT
 		EXTEND
 		BZMF	POSTHRST
diff --git a/Luminary099/STABLE_ORBIT.agc b/Luminary099/STABLE_ORBIT.agc
index da8d945..19d9e8a 100644
--- a/Luminary099/STABLE_ORBIT.agc
+++ b/Luminary099/STABLE_ORBIT.agc
@@ -97,7 +97,7 @@
 #	VNDSPLY
 #	BANKCALL
 #	GOFLASHR
-#	GOTOP00H
+#	GOTOPOOH
 #	BLANKET
 #	ENDOFJOB
 #	PREC/TT
@@ -126,7 +126,7 @@ P78		TC	BANKCALL
 		CAF	V06N55SR	# DISPLAY CENTANG
 		TCR	BANKCALL
 		CADR	GOFLASHR
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
 		CAF	THREE		# IMMEDIATE RETURN -- BLANK R1, R2
@@ -140,7 +140,7 @@ P78		TC	BANKCALL
 		CAF	V04N06SR	# DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
 		TCR	BANKCALL
 		CADR	GOFLASHR
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
 		CAF	BIT3		# IMMEDIATE RETURN -- BLANK R3
@@ -169,7 +169,7 @@ OPTN1		SET	CLEAR		# SOI
 		CAF	V06N57SR	# DISPLAY DELTA R
 		TCR	BANKCALL
 		CADR	GOFLASHR
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	+5		# PROCEED
 		TCF	-5		# RECYCLE
 		CAF	SIX		# IMMEDIATE RETURN -- BLANK R2, R3
@@ -224,7 +224,7 @@ JUNCTN2		DLOAD	DSU
 #	VNDSPLY
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 #	VN1645
 
 MAINRTNE	STCALL	TDEC1		# PRECISION UPDATE PASSIVE VEHICLE TO
@@ -415,7 +415,7 @@ OTHERV		CALL
 #
 #	BANKCALL
 #	GOFLASH
-#	GOTOP00H
+#	GOTOPOOH
 
 VNDSPLY		EXTEND			# FLASH DISPLAY
 		QXCH	RTRN
@@ -423,7 +423,7 @@ VNDSPLY		EXTEND			# FLASH DISPLAY
 		CA	VERBNOUN
 		TCR	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TC	RTRN		# PROCEED
 		TCF	-5		# RECYCLE
 V06N33SR	VN	0633
diff --git a/Luminary099/THE_LUNAR_LANDING.agc b/Luminary099/THE_LUNAR_LANDING.agc
index 97dc2bf..58c2519 100644
--- a/Luminary099/THE_LUNAR_LANDING.agc
+++ b/Luminary099/THE_LUNAR_LANDING.agc
@@ -245,7 +245,7 @@ P63SPOT3	CA	BIT6		# IS THE LR ANTENNA IN POSITION 1 YET
 		CAF	CODE500		# ASTRONAUT:	PLEASE CRANK THE
 		TC	BANKCALL	#		SILLY THING AROUND
 		CADR	GOPERF1
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	P63SPOT3	# PROCEED	SEE IF HE'S LYING
 
 P63SPOT4	TC	BANKCALL	# ENTER		INITIALIZE LANDING RADAR
@@ -317,7 +317,7 @@ LANDJUNK	TC	PHASCHNG
 		CAF	V06N43*		# ASTRONAUT:  NOW LOOK WHERE YOU ENDED UP
 		TC	BANKCALL
 		CADR	GOFLASH
-		TCF	GOTOP00H	# TERMINATE
+		TCF	GOTOPOOH	# TERMINATE
 		TCF	+2		# PROCEED
 		TCF	-5		# RECYCLE
 
@@ -329,7 +329,7 @@ LANDJUNK	TC	PHASCHNG
 			REFMF
 		EXIT
 
-		TCF	GOTOP00H	# ASTRONAUT:  PLEASE SELECT P57
+		TCF	GOTOPOOH	# ASTRONAUT:  PLEASE SELECT P57
 
 V06N43*		VN	0643
 
diff --git a/Luminary099/TJET_LAW.agc b/Luminary099/TJET_LAW.agc
index 1afd51e..ec1b261 100644
--- a/Luminary099/TJET_LAW.agc
+++ b/Luminary099/TJET_LAW.agc
@@ -235,7 +235,7 @@ ZONE5		TS	L		# TEMPORARILY STORE FUNCTION IN L.
 # Page 1464
 		ADS	ADRSDIF2
 
-	+4	CAE	L
+ +4		CAE	L
 		EXTEND
 		INDEX	ADRSDIF2	# TTOAXIS AND HH ARE THE PARAMETERS UPON
 		MP	ACCFCTZ5	#	WHICH THE APPROXIMATIONS TO TJET ARE
@@ -489,7 +489,7 @@ RUFLAW3		TC	RUFSETUP	# EXECUTE COMMON RUFLAW SUBROUTINE.
 
 RUFSETUP	CS	ROTSENSE	# REVERSE ROTSENSE WHEN ENTER HERE.
 		TS	ROTSENSE
-	+2	CAF	FOUR		# REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
+ +2		CAF	FOUR		# REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
 		TS	NUMBERT
 		CAF	NEGMAX		# SUGGEST MAXIMUM (4) JETS IN P-AXIS.
 		TS	FIREFCT
diff --git a/Luminary099/WAITLIST.agc b/Luminary099/WAITLIST.agc
index 8392157..294c85b 100644
--- a/Luminary099/WAITLIST.agc
+++ b/Luminary099/WAITLIST.agc
@@ -559,6 +559,6 @@ TSKOVCDR	GENADR	TASKOVER
 LONGP00H	DXCH	LONGEXIT
 		TCF	+2
 WAITP00H	DXCH	WAITEXIT
- +2		TC	P00DOO1
+ +2		TC	POODOO1
 		OCT	01204