Proof R30 (#626) Page: 0712—0722 (#706)

* Proof R30 (#626) Page: 0712—0722

Signed-off-by: Kokan <kokaipeter@gmail.com>

* Review comments fixed

Co-authored-by: James Harris <wopian@wopian.me>
Signed-off-by: Kokan <kokaipeter@gmail.com>

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

Luminary099/R30.agc

@@ -42,7 +42,7 @@
 # 1.	IF AVERAGE G IS OFF:
 #		FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
 #		 TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
-#			CAN CHANGE TO OTHER SHIP BY V22E XE. WHERE X IS NOT EQ 1.
+#		 CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
 #		SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
 #		CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
 #		 RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
@@ -54,6 +54,7 @@
 #		 ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
 #		 DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
 #		 ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
+#
 # 2.	IF AVERAGE G IS ON:
 #		CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
 #		 FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
@@ -65,8 +66,7 @@
 # CALLING SEQUENCE:  VERB 82 ENTER.
 #
 # SUBROUTINES CALLED:  SR30.1, GOXDSPF
-#			MAYBE -- THISPREC, OTHPREC, LOADTIME, DELRSPL
+#			MAYBE - THISPREC , OTHPREC, LOADTIME, DELRSPL
-#
 # NORMAL EXIT MODES:  TC ENDEXT
 #
 # ALARMS:  NONE
@@ -79,8 +79,8 @@
 #			(-27) M MOON
 #	   TFF		(-28) CS	CONTAINS NEGATIVE QUANTITY
 #	   -TPER	(-28) CS	CONTAINS NEGATIVE QUANTITY
-#
 # Page 713
+#
 # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
 #
 # DEBRIS:	QPRET, RONE, VONE,TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
@@ -108,8 +108,8 @@ V82GOFF		EXIT			# ALLOW ASTRONAUT TO SELECT VEHICLE
 		CADR	GOXDSPF
 		TC	ENDEXT		# TERMINATE
 		TC	+2		# PROCEED
-		TC	-5		# DATA IN.  OPTION1+1 = 1 FOR THIS VEHICLE
+		TC	-5		# DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE.
-					#		UNEQ 1 FOR OTHER VEHICLE
+					#		UNEQ 1 FOR OTHER VEHICLE.
 		CAF	BIT4		# 80 MS
 		TC	WAITLIST
 		EBANK=	TFF
@@ -140,9 +140,9 @@ V82STALL	CAF	THREE		# STALL IN THIS LOOP AND WITHOLD V 16 N 44
 FLAGGON		CAF	V16N44		# MONITOR HAPO,HPER,TFF.
 		TC	BANKCALL
 		CADR	GOXDSPF
-		TC	B5OFF		# TERM. THIS TELLS TICKTEST TO KILL ITSELF
+		TC	B5OFF		# TERM  THIS TELLS TICKTEST TO KILL ITSELF
-		TC	B5OFF		# PROCEED.  DITTO
+		TC	B5OFF		# PROCEED  DITTO
-		TC	V82GOFLP	# RECYCLE.  RECOMPUTE STATE VECT + DISPLAY
+		TC	V82GOFLP	# RECYCLE  RECOMPUTE STATE VECT + DISPLAY
 
 OPTIONVN	VN	412
 V16N44		VN	1644
@@ -163,7 +163,7 @@ OTHSHIP		TC	INTPRET
 			OTHPREC
 BOTHSHIP	VLOAD			# MOVE RESULTS INTO TFFCONIC STORAGE AREAS
 			RATT		#  TO BE CALLED BY SR30.1.
-		STOVL	RONE		# RATT AT (-29)M FOR EARTH OR MOON.
+		STOVL	RONE		# RATT AT (-29)M FOR EARTH OR MOON
 			VATT
 		STORE	VONE		#  VATT AT (-7)M/CS FOR EARTH OR MOON
 		DLOAD*
@@ -171,7 +171,7 @@ BOTHSHIP	VLOAD			# MOVE RESULTS INTO TFFCONIC STORAGE AREAS
 		STORE	TFF/RTMU	#  X2 IS 2 FOR MOON
 		DLOAD*			# AS LEFT BY THISPREC OR OTHPREC.
 			MINPERE,2
-		STORE	HPERMIN		# TFFRTMU, HPERMIN, AND RPADTEM ARE ALL
+		STORE	HPERMIN		#   TFFRTMU, HPERMIN AND RPADTEM ARE ALL
 		SLOAD	BHIZ		# EARTH/MOON PARAMETERS AS SET HERE.
 			X2
 			EARTHPAD
@@ -190,29 +190,29 @@ MINPERM		2DEC	10668 B-27	# 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
 
 MINPERE		2DEC	91440 B-29	# 300 KFT (-29)M FOR EARTH
 
-EARTHPAD	DLOAD	CLRGO		# PAD 37-B RADIUS.  SCALED AT (-29)M
+EARTHPAD	DLOAD	CLRGO		#  PAD 37-B RADIUS.  SCALED AT (-29)M.
 			RPAD
 			V82EMFLG	#  INDICATE EARTH SCALING FOR SR30.1
 			BOTHPAD
 
 MOONPAD		VLOAD	ABVAL		# COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
-			RLS		# SCALED AT (-27)M
+			RLS		#  SCALED AT (-27)M.
 		SET
-			V82EMFLG	# INDICATE MOON SCALILNG FOR SR30.1
+			V82EMFLG	#  INDICATE MOON SCALING FOR SR30.1
 BOTHPAD		STCALL	RPADTEM
 			SR30.1		# CALCULATE ORBITAL PARAMETERS
 		RTB	DSU
 			LOADTIME
-			TSTART82	# PRESENT TIME -- TIME V82GOFF1 BEGAN
+			TSTART82	# PRESENT TIME - TIME V82GOFF1 BEGAN
 		STORE	TSTART82	#                SAVE IT
 		DLOAD	BZE		# SR30.1 SETS -TPER=0 IF HPER L/
 			-TPER		#  HPERMIN (300 OR 35) KFT.
 			TICKTIFF	# (-TPER = 0)
 TICKTPER	DLOAD	DAD		# (-TPER NON ZERO)  TFF WAS NOT COMPUTED.
-			-TPER		# BUT WAS SET TO 59M59S.  DON'T DICK TFF, DO
+			-TPER		# BUT WAS SET TO 59M59S.DONT TICK TFF, DO
 			TSTART82	# TICK -TPER. DISPLAY BOTH.
 		STORE	-TPER		# -TPER CORRECTED FOR TIME SINCE V82GOFF1
-		EXIT			# BEGAN
+		EXIT			# BEGAN.
 		CAF	BIT1
 		TS	V82FLAGS	# INFORMS TICKTEST TO INCREMENT ONLY -TPER
 		TC	ENDOFJOB
@@ -232,7 +232,7 @@ TICKTEST	CAF	BIT5		# THIS WAITLIST PROGRAM PERPETUATES ITSELF
 		CCS	A
 		TC	DOTICK
 		CAF	PRIO25
-		TC	NOVAC		# TERMINATE V 82.  CAN'T CALL ENDEXT IN RUPT.
+		TC	NOVAC		# TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
 		EBANK=	EXTVBACT
 		2CADR	ENDEXT
 
@@ -246,7 +246,7 @@ DOTICK		CAF	1SEC		# RE-REQUEST TICKTEST.
 		MASK	V82FLAGS
 		INDEX	A
 		TC	+1
-		TC	TASKOVER	# IF NO FLAGBITS SET DONT' CHANGE TFF OR
+		TC	TASKOVER	# IF NO FLAGBITS SET DONT CHANGE TFF OR
 					# -TPER, BUT CONTINUE LOOP.
 		TC	TPERTICK	# ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
 TFFTICK		CAF	1SEC		# ONLY BIT 2 SET. INCR TFF BY 1 SEC.
@@ -291,15 +291,15 @@ NEXTLINE	STOVL	RONE		# RN AT (-29)M FOR EARTH OR MOON
 		BON	GOTO
 			MOONTHIS	# FLAG INDICATES BODY ABOUT WHICH ORBITAL
 			MOONGON		#    CALCULATIONS ARE TO BE PERFORMED.
-			EARTHGON	# IF SET -- MOON, IF RESET --EARTH.
+			EARTHGON	#   IF SET - MOON , IF RESET - EARTH.
 
 MOONGON		SET	DLOAD
-			V82EMFLG	# FLAG MOON SCALING FOR SR30.1
+			V82EMFLG	# INDICATE MOON SCALING FOR SR30.1
 			1/RTMUM		# LUNAR PARAMETERS LOADED HERE FOR SR30.1
 		STODL	TFF/RTMU
 			MINPERM
 		STOVL	HPERMIN
-			RLS		# SCALED AT (-27)M
+			RLS		#  SCALED AT (-27)M.
 		ABVAL	GOTO
 			V82GON2
 EARTHGON	CLEAR	DLOAD
@@ -453,13 +453,12 @@ SKIPTPER	STODL	-TPER
 
 MAXCHK		DSU	BPL		# IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM.
 			MAXNM
-			+3		# OTHERWISE C(MPAC) - B(MPAC).
+			+3		# OTHERWISE C(MPAC) = B(MPAC).
 		DAD	RVQ
 			MAXNM
- +3		DLOAD	RVQ		# (USED BY P30 -- P37 ALSO)
+ +3		DLOAD	RVQ		# (USED BY P30 - P37 ALSO)
 			MAXNM
 
 MAXNM		2OCT	0106505603
 
 # Page 722 (empty page)
-