Proof THE_LUNAR_LANDING #645 (#663)

* - first check

* - GOTOP00H -> GOTOPOOH according to @cetfor

* Revert line 269

* Revert line 269

* Resolve requested change

Co-authored-by: James Harris <wopian@wopian.me>

Luminary099/THE_LUNAR_LANDING.agc

@@ -70,15 +70,15 @@ FLAGORGY	TC	INTPRET		# DIONYSIAN FLAG WAVING
 			MUNFLAG
 		CLEAR	CLEAR
 			P25FLAG		# TERMINATE P25 IF IT IS RUNNING.
-			RNDVZFLG	# TERMINATE P20 IF IT IS RUNNING.
+			RNDVZFLG	# TERMINATE P20 IF IT IS RUNNING
 
 					# ********************************
 
-IGNALG		SETPD	VLOAD		# FIRST SET UP INPUTS FOR RP-TO-R:
+IGNALG		SETPD	VLOAD		# FIRST SET UP INPUTS FOR RP-TO-R:-
 # Page 786
-			0		# 	AT 0D LANDING SITE IN MOON FIXED FRAME
+			0		#   AT 0D LANDING SITE IN MOON FIXED FRAME
-			RLS		#	AT 6D ESTIMATED TIME OF LANDING
+			RLS		#   AT 6D ESTIMATED TIME OF LANDING
-		PDDL	PUSH		#	MPAC NON-ZERO TO INDICATE LUNAR CASE
+		PDDL	PUSH		#   MPAC NON-ZERO TO INDICATE LUNAR CASE
 			TLAND
 		STCALL	TPIP		# ALSO SET TPIP FOR FIRST GUIDANCE PASS
 			RP-TO-R
@@ -118,7 +118,7 @@ IGNALOOP	DLOAD
 		STCALL	GDT/2
 			?GUIDSUB	# WHICH DELIVERS N PASSES OF GUIDANCE
 
-# DDUMCALC IS PROGRAMMED AS FOLLOWS:
+# DDUMCALC IS PROGRAMMED AS FOLLOWS:-
 #                                         2                                           ___
 #              (RIGNZ - RGU )/16 + 16(RGU  )KIGNY/B8 + (RGU - RIGNX)KIGNX/B4 + (ABVAL(VGU) - VIGN)KIGNV/B4
 #                          2             1                 0
@@ -175,7 +175,7 @@ DDUMCALC	TS	NIGNLOOP
 		DLOAD
 			PIPTIME1
 		STOVL	TET		# HOPEFULLY ?GUIDSUB DID NOT
-			RATT1		#	CLOBBER RATT1 AND VATT1
+			RATT1		#   CLOBBER RATT1 AND VATT1
 # Page 788
 		STOVL	RCV
 			VATT1
@@ -190,14 +190,14 @@ DDUMGOOD	SLOAD	SR
 		BDSU
 			TDEC1
 		STOVL	TIG		# COMPUTE DISTANCE LANDING SITE WILL BE
-			V		#	OUT OF LM'S ORBITAL PLANE AT IGNITION:
+			V		#   OUT OF LM'S ORBITAL PLANE AT IGNITION:
-		VXV	UNIT		#	SIGN IS + IF LANDING SITE IS TO THE
+		VXV	UNIT		#   SIGN IS + IF LANDING SITE IS TO THE
-			R		#	RIGHT, NORTH; - IF TO THE LEFT, SOUTH.
+			R		#   RIGHT, NORTH; - IF TO THE LEFT, SOUTH.
 		DOT	SL1
 			LAND
 R60INIT		STOVL	OUTOFPLN	# INITIALIZATION FOR CALCMANU
 			UNFC/2
-		STORE	R60VSAVE		# STORE UNFC/2 TEMPORARILY IN R60SAVE
+		STORE	R60VSAVE	# STORE UNFC/2 TEMPORARILY IN R60SAVE
 		EXIT
 					# *******************************************
 
@@ -211,8 +211,8 @@ ASTNCLOK	CS	ASTNDEX
 
 ASTNRET		TC	INTPRET
 		SSP	RTB		# GO PICK UP DISPLAY AT END OF R51:
-			QMAJ		#	"PROCEED" WILL DO A FINE ALIGNMENT
+			QMAJ		#   "PROCEED" WILL DO A FINE ALIGNMENT
-		FCADR	P63SPOT2	#	"ENTER" WILL RETURN TO P63SPOT2
+		FCADR	P63SPOT2	#   " ENTER " WILL RETURN TO P63SPOT2
 			R51P63
 P63SPOT2	VLOAD	UNIT		# INITIALIZE KALCMANU FOR BURN ATTITUDE
 			R60VSAVE
@@ -251,12 +251,12 @@ P63SPOT3	CA	BIT6		# IS THE LR ANTENNA IN POSITION 1 YET
 P63SPOT4	TC	BANKCALL	# ENTER		INITIALIZE LANDING RADAR
 		CADR	SETPOS1
 
-		TC	POSTJUMP	# OFF TO SEE THE WIZARD ...
+		TC	POSTJUMP	# OFF TO SEE THE WIZARD...
 		CADR	BURNBABY
 
 #	---------------------------------
 
-# CONSTANTS FOR P63LM AND IGNALG
+#	CONSTANTS FOR P63LM AND IGNALG
 
 P63ADRES	GENADR	P63TABLE
 
@@ -266,7 +266,7 @@ CODE500		OCT	00500
 
 99999CON	2DEC	30479.7 B-24
 
-GUIDDURN	2DEC	+66440		# GUIDDURN +6.64400314 E+2
+GUIDDURN	2DEC	+66440		# GUIDDURN	+6.64400314 E+2
 DDUMCRIT	2DEC	+8 B-28		# CRITERION FOR IGNALG CONVERGENCE
 
 # Page 790
@@ -324,7 +324,7 @@ LANDJUNK	TC	PHASCHNG
 		TC	INTPRET
 # Page 792
 		VLOAD			# INITIALIZE GSAV AND (USING REFMF)
-			UNITX		# YNBSAV, ZNBSAV AND ATTFLAG FOR P57
+			UNITX		#   YNBSAV, ZNBSAV AND ATTFLAG FOR P57
 		STCALL	GSAV
 			REFMF
 		EXIT