Proof P20-P25 (pages 492 through 501)

Luminary099/P20-P25.agc

@@ -37,7 +37,7 @@
 #
 # PROGRAM DESCRIPTION
 #
-# 	MOD NO -- 2
+# 	MOD NO - 2
 # 	BY P. VOLANTE
 #
 # FUNCTIONAL DESCRIPTION
@@ -47,7 +47,7 @@
 # 	THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
 # 	ON THE BASIS OF THE RR TRACKING DATA.
 #
-# CALLING SEQUENCE --
+# CALLING SEQUENCE -
 #
 # 	ASTRONAUT REQUEST THROUGH DSKY V37E20E
 #
@@ -64,12 +64,12 @@
 #	R31LEM	(RENDEZVOUS PARAMETER DISPLAY)
 #	PRIOLARM (PRIORITY DISPLAY)
 #
-# NORMAL EXIT MODES --
+# NORMAL EXIT MODES -
 #
-# 	P20 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING
+# 	P20 MAY BE TERMINATED IN TWO WAYS - ASTRONAUT SELECTION OF IDLING
 #	PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
 #
-# ALARM OR ABORT EXIT MODES --
+# ALARM OR ABORT EXIT MODES -
 #
 # 	RANGE GREATER THAN 400 NM DISPLAY
 #
@@ -81,11 +81,11 @@
 #
 # FLAGS SET + RESET
 #
-#	SRCHOPT, RNDVZFLG, ACMODFLG, VEHUPFLG, UPDATFLG, TRACKFLG
+#	SRCHOPT, RNDVZFLG, ACMODFLG, VEHUPFLG, UPDATFLG, TRACKFLG,
 #
 # DEBRIS
 #
-#	CENTRALS -- A,Q,L
+#	CENTRALS - A,Q,L
 
 		SBANK=	LOWSUPER	# FOR LOW 2CADR'S.
 
@@ -103,8 +103,8 @@ PROG20		TC	2PHSCHNG
 		TC	LUNSFCHK	# CHECK IF ON LUNAR SURFACE
 # Page 493
 		TC	ORBCHGO		# YES
-		TC	PROG20A -2	# NO -- CONTINUE WITH P20
-ORBCHGO		TC	UPFLAG		# SET VEHUPFLG -- CSM STATE
+		TC	PROG20A -2	# NO - CONTINUE WITH P20
+ORBCHG0		TC	UPFLAG		# SET VEHUPFLG - CSM STATE
 		ADRES	VEHUPFLG	# VECTOR TO BE UPDATED
 		CAF	ONE		# SET R2 FOR OPTION CSM WILL NOT
 		TS	OPTION2		# CHANGE PRESENT ORBIT
@@ -220,7 +220,7 @@ NOWMATX		CALL
 		CALL
 			INTSTALL
 		DLOAD	BDSU
-			TRANSTM		# LAUNCH TIME -- TRANSFER TIME
+			TRANSTM		# LAUNCH TIME - TRANSFER TIME
 			LNCHTM
 		STOVL	TET
 			NEWPOS
@@ -237,7 +237,6 @@ NOWMATX		CALL
 		EXIT
 		TC	BANKCALL
 		CADR	PROG20A
-
 		BANK	24
 		SETLOC	P20S
 		BANK
@@ -280,11 +279,11 @@ P20LEM1		TC	PHASCHNG
 		INDEX	MPAC
 		TC	+1
 		TC	P20LEMA		# NORMAL RETURN WITHIN 400 N M
-526ALARM	CAF	ALRM526		# ERROR EXIT -- RANGE > 400 N. MI.
+526ALARM	CAF	ALRM526		# ERROR EXIT - RANGE > 400 N. MI.
 		TC	BANKCALL
 		CADR	PRIOLARM
 		TC	GOTOV56		# TERMINATE EXITS P20 VIA V56 CODING
-		TC	-4		# PROC (ILLEGAL)
+		TC	-4		# PROC (ILLEGAL
 		TC	P20LEM1		# ENTER RECYCLE
 		TC	ENDOFJOB
 
@@ -302,23 +301,23 @@ P20LEMB		TC	PHASCHNG
 		CA	FLAGWRD1	# IS THE TRACK FLAG SET
 		MASK	TRACKBIT
 		EXTEND
-		BZF	P20LEMWT	# BRANCH -- NO -- WAIT FOR IT TO BE SET
+		BZF	P20LEMWT	# BRANCH - NO - WAIT FOR IT TO BE SET
 P20LEMB7	CAF	BIT2		# IS RR AUTO MODE DISCRETE PRESENT
 		EXTEND
 # Page 497
 		RAND	CHAN33
 		EXTEND
-		BZF	P20LEMB3	# YES -- DO AUTOMATIC ACQUISITION (R21)
+		BZF	P20LEMB3	# YES - DO AUTOMATIC ACQUISITION (R21)
 
 P20LEMB5	CS	OCT24		# RADAR NOT IN AUTO CHECK IF
 		AD	MODREG		# MAJOR MODE IS 20
 		EXTEND
-		BZF	P20LEMB6	# BRANCH -- YES -- OKAY TO DO PLEASE PERFORM
+		BZF	P20LEMB6	# BRANCH - YES - OK TO DO PLEASE PERFORM
 
 		AD	NEG2		# ALSO CHECK FOR P22
 		EXTEND
-		BZF	P20LEMB6	# BRANCH -- YES OK TO DO PLEASE PERFORM
-		CAF	ALRM514		# TRACK FLAG SET -- FLASH PRIORITY ALARM 514 --
+		BZF	P20LEMB6	# BRANCH - YES OK TO DO PLEASE PERFORM
+		CAF	ALRM514		# TRACK FLAG SET - FLASH PRIORITY ALARM 514 -
 		TC	BANKCALL	# RADAR GOES OUT OF AUTO MODE WHILE IN USE
 		CADR	PRIOLARM
 		TC	GOTOV56		# TERMINATE EXITS VIA V56
@@ -331,10 +330,10 @@ P20LEMB6	CAF	OCT201		# REQUEST RR AUTO MODE SELECTION
 		TC	GOTOV56		# TERMINATE EXITS P20 VIA V56 CODING
 		TC	P20LEMB		# PROCEED CHECKS AUTO MODE DISCRETE AGAIN
 		TC	LUNSFCHK	# ENTER INDICATES MANUAL ACQUISITION (R23)
-		TC	P20LEMB2	# YES -- R23 NOT ALLOWED -- TURN ON OPR ERROR
-		TC	R23LEM		# NO -- DO MANUAL ACQUISITION
+		TC	P20LEMB2	# YES - R23 NOT ALLOWED - TURN ON OPR ERROR
+		TC	R23LEM		# NO - DO MANUAL ACQUISITION
 
-P20LEMB1	TC	UPFLAG		# RETURN FROM R23 -- LOCKON ACHIEVED
+P20LEMB1	TC	UPFLAG		# RETURN FROM R23 - LOCKON ACHIEVED
 		ADRES	ACMODFLG	# SET MANUAL FLAG AND GO BACK TO CHECK
 		TC	P20LEMB		# RR AUTO MODE
 
@@ -344,7 +343,7 @@ P20LEMB2	TC	FALTON		# TURNS ON OPERATOR ERROR LIGHT ON DSKY
 P20LEMB3	CS	RADMODES	# ARE RR CDUS BEING ZEROED
 		MASK	RCDU0BIT
 		EXTEND
-		BZF	P20LEMB4	# BRANCH -- YES -- WAIT
+		BZF	P20LEMB4	# BRANCH - YES - WAIT
 		CAF	BIT13-14	# IS SEARCH OR MANUAL ACQUISITION FLAG SET
 		MASK	FLAGWRD2
 		EXTEND
@@ -358,7 +357,7 @@ P20LEMB3	CS	RADMODES	# ARE RR CDUS BEING ZEROED
 
 P20LEMB4	CAF	250DEC
 		TC	BANKCALL	# WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
-		CADR	DELAYJOB	# ZEROED -- THEN GO BACK AND CHECK AGAIN
+		CADR	DELAYJOB	# ZEROED - THEN GO BACK AND CHECK AGAIN
 		TC	P20LEMB3
 
 P20LEMC3	TC	INTPRET
@@ -372,11 +371,11 @@ P20LEMC		TC	PHASCHNG
 		CAE	FLAGWRD0	# IS THE RENDEZVOUS FLAG SET
 		MASK	RNDVZBIT
 		EXTEND
-		BZF	ENDOFJOB	# NO -- EXIT P20
+		BZF	ENDOFJOB	# NO - EXIT P20
 		CAE	FLAGWRD1	# IS TRACK FLAG SET (BIT 5 FLAGWORD 1)
 		MASK	TRACKBIT
 		EXTEND
-		BZF	P20LEMD		# BRANCH -- TRACK FLAG NOT ON -- WAIT 15 SECONDS
+		BZF	P20LEMD		# BRANCH - TRACK FLAG NOT ON - WAIT 15 SECONDS
 P20LEMF		TC	R21LEM
 
 P20LEMWT	CAF	250DEC
@@ -385,7 +384,7 @@ P20LEMWT	CAF	250DEC
 		CAE	FLAGWRD1	# IS TRACK FLAG SET
 		MASK	TRACKBIT
 		EXTEND
-		BZF	ENDOFJOB	# NO -- EXIT WITHOUT DOING 2.7 PHASE CHANGE
+		BZF	ENDOFJOB	# NO - EXIT WITHOUT DOING 2.7 PHASE CHANGE
 P20LMWT1	TC	PHASCHNG
 		OCT	40072
 		TC	ENDOFJOB
@@ -393,13 +392,13 @@ P20LMWT1	TC	PHASCHNG
 P20LEMC1	CAE	FLAGWRD0	# IS RENDEZVOUS FLAG SET
 		MASK	RNDVZBIT
 		EXTEND
-		BZF	TASKOVER	# NO -- EXIT P20/R22
+		BZF	TASKOVER	# NO - EXIT P20/R22
 		CAE	FLAGWRD1	# IS TRACK FLAG SET
 		MASK	TRACKBIT
 		EXTEND
-		BZF	P20LEMC2	# NO -- DON'T SCHEDULE R22 JOB
+		BZF	P20LEMC2	# NO - DON'T SCHEDULE R22 JOB
 # Page 499
-		CAF	PRIO26		# YES -- SCHEDULE R22 JOB (RR DATA READ)
+		CAF	PRIO26		# YES - SCHEDULE R22 JOB (RR DATA READ)
 		TC	FINDVAC
 		EBANK=	LOSCOUNT
 		2CADR	R22LEM42
@@ -419,8 +418,8 @@ P20LEMD		CAF	1500DEC
 P20LEMD1	CAE	FLAGWRD1	# IS TRACK FLAG SET
 		MASK 	TRACKBIT
 		CCS	A
-		TCF	P20LEMD2	# YES -- SCHEDULE DESIGNATE JOB
-		TC	FIXDELAY	# NO -- WAIT 15 SECONDS
+		TCF	P20LEMD2	# YES - SCHEDULE DESIGNATE JOB
+		TC	FIXDELAY	# NO - WAIT 15 SECONDS
 		DEC	1500
 		TC	P20LEMD1