Proof FRESH_START_AND_RESTART #208 (#401)

* Proof FIXED_FIXED_CONSTANT_POOL (#207)

* wip(pp. 0181-0185): Proof FRESH_START_AND_RESTART #208

* done(pp. 0181-0210): Proof FRESH_START_AND_RESTART #208

Comanche055/FRESH_START_AND_RESTART.agc

@@ -35,50 +35,50 @@
 # PROGRAM DESCRIPTION						8 APRIL, 1967
 #								SUNDISK REV 120
 # FUNCTIONAL DESCRIPTION
-#
+
 #     SLAP1	MAN INITIATED FRESH START
 #	1. EXECUTE STARTSUB
 #	2. TURN OFF DSKY DISCRETE-LAMPS
 #	3. CLEAR FAIL REGISTERS,SELF-CHECK ERROR COUNTER AND RESTART
 #	   COUNTER
 #	4. EXECUTE DOFSTART
-#
+
 #     DOFSTART	MACHINE INITIATED FRESH START
-#
+
 #	1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
 #	2. CLEAR PHASE TABLE
 #	3. INITIALIZE IMU FLAGS
 #	4. INITIALIZE FLAGWORDS
 #	5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
-#
+
 #     GOPROG	HARDWARE RESTART
-#
+
 #	0. EXECUTE STARTSUB
 #	1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
 #	   EXIST.
-#		A.	RESTART OCCURRED DURING EXECUTION OF ERASCHK.
+#	   A. RESTART OCCURED DURING EXECUTION OF ERASCHK
-#		B.	BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON.
+#	   B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
 #	   C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
 #	      ARE ON.
 #	2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP
 #	3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
-#	4.	EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND
+#	4. EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM,GIMBAL LOCK AND
 #	   NO ATT
 #	5. INITIALIZE IMU FLAGS
-#	6.	IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL
+#	6. IF ENGINE COMMAND IS ON (FLAGWRD5,BIT 7), SET ENGINE ON (CHAN-
-#		11, BIT 13).
+#	   NEL 11, BIT 13)
 #	7. TRANSFER CONTROL TO GOPROG3
-#
+
-# ENEMA		SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE
+#     ENEMA	SOFTWARE RESTART	INITIATED BY MAJOR MODE CHANGE
-#
+
 #	1. EXECUTE STARTSB2
 #	2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
 #	   ROUTINE
 #	3. TRANSFER CONTROL TO GOPROG3
-#
+
 #     GOPROG3	SUBROUTINE COMMON TO GOPROG AND ENEMA
-#
+
-#	1.	TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND
+#	1. TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND
 #	   TRANSFER CONTROL TO DOFSTART
 #	2. DISPLAY MAJOR MODE
 #	3. IF ANY GROUPS WERE ACTIVE UPON RESTART,TRANSFER CONTROL TO THE
@@ -86,17 +86,17 @@
 #	   RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
 #	   JOBS (P20 IS RESTARTED VIA FINDVAC)
 #	4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
-#		1110 (RESTART WITH NO ACTIVE GROUPS)
+#	   1110 (RESTART WITH NO ACTIVE GROUPS).
 #	5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
-#
+
 #     STARTSUB	SUBROUTINE COMMON TO SLAP1 AND GOPROG
-#
+
 #	1. CLEAR OUTBIT CHANNELS 5 AND 6
 #	2. INITIALIZE TIME5,TIME4,TIME3
 #	3. TRANSFER CONTROL TO STARTSB2
-#
+
 #     STARTSB2	SUBROUTINE COMMON TO STARTSUB AND ENEMA
-#
+
 #	1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14
 #	2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
 #	3. MAKE ALL EXECUTIVE REGISTERS AVAILABLE
@@ -106,29 +106,30 @@
 #	7. INITIALIZE OPTICS FLAGS
 #	8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
 #	9. INITIALIZE DOWN TELEMETRY
-#
+
+
 # INPUT/OUTPUT INITIALIZATION
-#
+
 #	A. CALLING SEQUENCE
-#
+
-#		SLAP1 --	TC POSTJUMP	OR	VERB 36,ENTER
+#		SLAP1 -	TC	POSTJUMP	OR	VERB 36,ENTER
 #			CADR 	SLAP1
-#
+
-#		ENEMA --	TC POSTJUMP	*** DO NOT CALL ENEMA WITHOUT ***
+#		ENEMA -	TC 	POSTJUMP	*** DO NOT CALL ENEMA WITHOUT ***
 #			CADR 	ENEMA		*** CONSULTING P00H PEOPLE   ***
-#
+
 #	B. OUTPUT
-#
+
 #		ERASABLE MEMORY INITIALIZATION
-#
+
 # PROGRAM ANALYSIS
-#
+
 #	A. SUBROUTINES CALLED
-#
+
 #		MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
-#
+
 #	B. ALARMS
-#
+
 #		1107 PHASE TABLE ERROR
 #		1110 RESTART WITH NO ACTIVE GROUPS
 
@@ -258,7 +259,7 @@ DOFSTART	CAF	ZERO		# DO A FRESH START.
 		DXCH	STATE +10D
 
 ENDRSTRT	TC	POSTJUMP
-		CADR	DUMMYJOB +2	# PICKS UP AT RELINT.	(IN A SWITCHED BANK.)
+		CADR	DUMMYJOB +2	# DOES A RELINT.  (IN A SWITCHED BANK.)
 
 MR.KLEAN	INHINT
 		EXTEND
@@ -308,7 +309,7 @@ GOPROG		INCR	REDOCTR		# ADVANCE RESTART COUNTER.
 
 BUTTONS		TC	LIGHTSET	# MAKE FRESH START CHECKS BEFORE ERESTORE.
 
-# ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
+# ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
 # AND X+1 INTO SKEEP5 AND SKEEP6.  IT ALSO STORES X INTO SKEEP7 AND
 # ERESTORE.  IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
 # EQUAL C(SKEEP7),AND SHOULD BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
@@ -318,7 +319,7 @@ BUTTONS		TC	LIGHTSET	# MAKE FRESH START CHECKS BEFORE ERESTORE.
 		MASK	ERESTORE
 		EXTEND
 		BZF	+2		# IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
-		TCF	NONAVKEY +1	# DOUBT E MEMORY AND DO A FRESH START
+		TCF	NONAVKEY +1	# DOUBT E MEMORY AND DO A FRESH START.
 		CS	ERESTORE
 		EXTEND
 		BZF	ELRSKIP -1
@@ -331,7 +332,7 @@ BUTTONS		TC	LIGHTSET	# MAKE FRESH START CHECKS BEFORE ERESTORE.
 		EXTEND			# (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
 		DCA	SKEEP5
 		INDEX	SKEEP7
-		DXCH	0000		# E MEMORY RESTORED
+		DXCH	0000		# E MEMORY RESTORED.
 		CA	ZERO
 		TS	ERESTORE
 # Page 187
@@ -364,7 +365,7 @@ ELRSKIP		CA	FLAGWRD6	# RESTART AUTOPILOTS
 		AD	BIT15
 		XCH	DSPTAB +11D
 		MASK	BIT4		# IF NO ATT LAMP WAS ON, LEAVE ISS IN
-		EXTEND			# COARSE ALIGN
+		EXTEND			# COURSE ALIGN
 		BZF	NOCOARSE
 		TC	IBNKCALL	# IF NO ATT LAMP ON, RETURN ISS TO
 		CADR	SETCOARS	#	COARSE ALIGN.
@@ -402,7 +403,7 @@ ENEMA		INHINT
 		BZMF	GOPROG3		# NO
 
 		CAF	.5SEC		# YES, CALL TVCEXEC TASK WHICH WAS KILLED
-		TC	WAITLIST	# 	IN STARTSB2
+		TC	WAITLIST	# 	IN STARTSB2.
 		EBANK=	BZERO
 		2CADR	TVCEXEC
 
@@ -439,13 +440,13 @@ PCLOOP		TS	MPAC +5
 		CAF	EBANK3
 		TS	EBANK
 # Page 189
-		CAF	NUMGRPS		# SEE IF ANY GROUPS RUNNING
+		CAF	NUMGRPS		# SEE IF ANY GROUPS RUNNING.
 NXTRST		TS	MPAC +5
 		DOUBLE
 		INDEX	A
 		CCS	PHASE1
-		TCF	PACTIVE		# PNZ -- GROUP ACTIVE.
+		TCF	PACTIVE		# PNZ - GROUP ACTIVE.
-		TCF	PINACT		# +0 -- GROUP NOT RUNNING.
+		TCF	PINACT		# +0 - GROUP NOT RUNNING.
 
 PACTIVE		TS	MPAC
 		INCR	MPAC		# ABS OF PHASE.
@@ -466,12 +467,12 @@ PINACT		CCS	MPAC +5		# PROCESS ALL RESTART GROUPS.
 PTBAD		TC	ALARM		# SET ALARM TO SHOW PHASE TABLE FAILURE.
 		OCT	1107
 
-		TCF	DOFSTART	# IN R21.
+		TCF	DOFSTART	# IN R2).
-
-# ********* ********* **********
-
-# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE.
 
+# ******** ****** ******
+#
+# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE
+#
 GOPROG2		EQUALS	ENEMA
 OCT10000	=	BIT13
 OCT30000	=	PRIO30
@@ -512,7 +513,7 @@ STARTSUB	CAF	LDNPHAS1	# SET POINTER SO NEXT 20MS DOWNRUPT WILL
 		TS	TIME5		# 37774 TO TIME5.
 
 STARTSB2	CAF	OCT77603	# TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
-		EXTEND			# FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED.
+		EXTEND			# FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
 		WAND	DSALMOUT
 
 		CAF	OCT74777	# TURN OFF TEST ALARMS, STANDBY ENABLE.
@@ -678,24 +679,29 @@ SWINIT		OCT	0
 # Page 194
 # PROGRAM NAME		GOTOP00H	ASSEMBLY	SUNDISK
 # LOG SECTION		FRESH START AND RESTART
-#
+
 # FUNCTIONAL DESCRIPTION
-#
+
 #	1. DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3.  FLASH V50 N07 ON DSKY.  (M M CHANGE REQUEST)
 #	2. PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE
 #	   CHANGE REQUEST.
-#
+
 # INPUT/OUTPUT INFORMATION
-#
+
 #	A. CALLING SEQUENCE		TC GOTOP00H
+
 #	B. ERASABLE INITIALIZATION		NONE
-#	C. OUTPUT 				FLASH V 50 NOUN 07 ON DSKY
+
+#	C. OUTPUT 		FLASH VERB 50 NOUN 07 ON DSKY
+
 #	D. DEBRIS		L
-#
+
 # PROGRAM ANALYSIS
-#
+
 #	A. SUBROUTINES CALLED		GOPERF3, LINUS
+
 #	B. NORMAL EXIT		    TCF ENDOFJOB
+
 #	C. ALARM AND ABORT EXITS		NONE
 
 		BLOCK	02
@@ -728,22 +734,21 @@ V37N99		VN	3799
 
 # Page 196
 # PROGRAM NAME	V37			ASSEMBLY	SUNDISK
-#
 # LOG SECTION	FRESH START AND RESTART
-#
+
 # FUNCTIONAL DESCRIPTION
-#
+
 #	1. CHECK IF NEW PROGRAM ALLOWED.  IF BIT 1 OF FLAGWRD2(NODOFLAG) ISSET, AN ALARM 1520 IS CALLED.
 #	2. CHECK FOR VALIDITY OF PROGRAM SELECTED.  IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
-#	   SET AND CURRENT ACTIVITY, IF ANY, CONTINUE.
+#	   SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
 #	3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
 #	4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
 #	5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
-#	6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO.
+#	6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO.
 #	7. DISPLAY SYSTEM IS RELEASED.
 #	8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
 #	   A. PROGRAM SELECTED IS P00.
-#			1. RENDEZVOUS FLAG IS RESET.  (KILL P20)
+#	      1. RENDEZVOUS FLAG IS RESET (KILL P20).
 #	      2. STATINT1	IS SCHEDULED BY SETTING RESTART GROUP 2.
 #	      3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER(MODREG).
 #	      4. SUPERBANK 3 IS SELECTED.
@@ -757,23 +762,24 @@ V37N99		VN	3799
 #	      2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
 #		 ED MAJOR MODE HAS BEEN RUNNING THE BACKGROUND,
 #		 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
-#			   P20 IS RESTARTED TO CONTINUE, AND ITS MAJORE MODE IS SET.
+#		 P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
 #	      3. CONTROL IS TRANSFERRED TO GOPROG2.
 #	   C. PROGRAM SELECTED IS NEITHER P00 NOR P20
 #	      1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
 #	      2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
 #		 GROUPS.  GROUP 2 IS CLEARED.  IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20,
 #		 TO CONTINUE.
-#
+
 # INPUT/OUTPUT INFORMATION
-#
+
 #	   A. CALLING SEQUENCE
+
 #		CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
 #			VERBFAN GOES TO C(VERBTAB+C(VERBREG)).  VERB 37 = MMCHANG.
 #			MMCHANG EXECUTES A	TC POSTJUMP, CADR V37.
-#
+
 #	   B. ERASABLE INITIALIZATION		NONE
-#
+
 # 	   C. OUTPUT
 #		MAJOR MODE CHANGE
 # Page 197
@@ -781,15 +787,15 @@ V37N99		VN	3799
 #	   D. DEBRIS
 #		MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
 #		GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
-#
+
 # PROGRAM ANALYSIS
-#
+
 #	   A. SUBROUTINES CALLED
 #		ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
 #		DSPMM
-#
+
 #	   B. NORMAL EXIT		TC ENDOFJOB
-#
+
 #	   C. ALARMS		1520 (MAJOR MODE CHANGE NOT PERMITTED)
 
 		BLOCK	02
@@ -886,7 +892,7 @@ AGAINMM		TS	MPAC +1
 		CA	MPAC +1
 		TS	MINDEX			# SAVE INDEX FOR LATER
 
-ISSERVON	CS	FLAGWRD7		# V37 FLAG SET -- I.E., IS SERVICER GOING
+ISSERVON	CS	FLAGWRD7		# V37 FLAG SET - I.E. IS SERVICER GOING
 		MASK	V37FLBIT
 		CCS	A
 		TCF	CANV37			# NO
@@ -945,12 +951,13 @@ DUMMYAD		EXIT
 		COUNT	04/P00
 
 P00H		TC	RELDSP			# RELEASE DISPLAY SYSTEM
+
 		CAF	PRIO5			# SET VARIABLE RESTART REGISTER FOR P00.
 		TS	PHSPRDT2
 
 		INHINT
 
-		CS	NODOBIT			# TURN OFF NODOFLAG.
+		CS	NODOBIT			# TURN OFF NODOFLAG
 		MASK	FLAGWRD2
 		TS	FLAGWRD2
 
@@ -967,15 +974,15 @@ P00H		TC	RELDSP			# RELEASE DISPLAY SYSTEM
 
 		COUNT	04/V37
 
-SEUDOP00	TS	DNLSTCOD		# SET UP APPROPRIATE DOWNLIST CODE
+SEUDOP00	TS	DNLSTCOD		# SET UP APPROPRIATE DOWNLIST.
-						# (OLD ONE WILL BE FINISHED FIRST)
 
+						#   (OLD ONE WILL BE FINISHED FIRST)
 		CS	OCT01120		# TURN OFF TRACK, TARG1, UPDATE FLAGS
 		TS	EBANKTEM
 		MASK	FLAGWRD1
 		TS	FLAGWRD1
 
-GROUPKIL	TC	IBNKCALL		# KILL GROUPS 3,5,6
+GROUPKIL	TC	IBNKCALL		# KILL GROUPS 3(5,6
 		CADR	V37KLEAN
 
 		CCS	MMNUMBER		# IS IT P00H
@@ -1038,7 +1045,7 @@ NOUVEAU		CAF	RNDVZBIT
 		MASK	FLAGWRD0
 		CCS	A
 		TCF	+3
-		TC	DOWNFLAG		# NO, RESET IMUINUSE FLAG
+		TC	DOWNFLAG		# NO, RESET IMUSE FLAG.
 		ADRES	IMUSE			# BIT 8 FLAG 0
 	+3	INDEX	MINDEX
 		CAF	DNLADMM1		# OBTAIN NEW DOWNLIST ADDRESS
@@ -1046,7 +1053,7 @@ NOUVEAU		CAF	RNDVZBIT
 		INHINT
 		TCF	SEUDOP00
 
-V37NONO		TC	FALTON			# COME HERE IF MM REQUESTED DOESN'T EXIST
+V37NONO		TC	FALTON			# COME HERE IF MM REQUESTED DOESNT EXIST
 		TCF	V37BAD
 
 OCT00010	EQUALS	BIT4
@@ -1061,7 +1068,7 @@ V37XEQ		INHINT
 		TS	PHSPRDT4		# PRESET GROUP4 RESTART PRIORITY
 		TS	NEWPRIO			# STORE PRIO FOR SPVAC
 
-		CA	MMTEMP			# OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
+		CA	MMTEMP			# OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
 		EXTEND
 		MP	BIT8
 		MASK	LOW3
@@ -1091,22 +1098,22 @@ INITSUB		EXTEND
 		QXCH	MPAC	+1
 
 		CAF	EBANK6			# SET E6 FOR DEADBAND CODING
-		TS	EBANK			# WILL BE RESET IN STARTSB2
+		TS	EBANK			# WILL BE RESET IN STARTSB2.
 		INHINT
 		TC	STOPRATE
 
 		CA	FLAGWRD9		# RESTORE DEADBAND
 		MASK	MAXDBBIT
 		CCS	A
-		TCF	SETMAXER		# MAX DE SELECTED
+		TCF	SETMAXER		# MAX DB SELECTED
-		TC	BANKCALL		# MIN DE SELECTED
+		TC	BANKCALL		# MIN DB SELECTED
 		CADR	SETMINDB
 		TCF	RAKE
 SETMAXER	TC	BANKCALL
 		CADR	SETMAXDB
 
 RAKE		CAF	ELEVEN			# THIS PART CLEARS FLAGWORD BITS.
-	+1	TS	MPAC			# LOOP COMES HERE
+	+1	TS	MPAC			# LOOP COMES HERE.
 		INDEX	MPAC
 		CS	FLAGTABL
 		INDEX	MPAC
@@ -1114,7 +1121,7 @@ RAKE		CAF	ELEVEN			# THIS PART CLEARS FLAGWORD BITS.
 		INDEX	MPAC			# PUT REVISED FLAGWORD BACK.
 		TS	FLAGWRD0
 		CCS	MPAC
-		TCF	RAKE	+1		# GET THE NEXT FLAGWORD
+		TCF	RAKE	+1		# GET THE NEXT FLAGWORD.
 		RELINT
 
 		TC	UPFLAG			# NOW SET IMPULSW
@@ -1238,10 +1245,10 @@ RCSADDR4	2CADR	RCSATT
 # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
 # Page 206
 # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
-#
+
 # 	THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
 # THE MAJOR MODE.  FOR EXAMPLE,
-#
+
 #	FCADRMM1	FCADR	P79		# START OF P 79
 #			FCADR	PROG18		# START OF P 18
 #			FCADR	P01		# START OF P 01
@@ -1283,7 +1290,7 @@ FCADRMM1	EQUALS
 
 # THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
 # INFORMATION, IT IS IN THE FOLLOWING FORM,
-#
+
 #	PPP PPE EEM MMM MMM
 #
 # Page 207
@@ -1291,9 +1298,9 @@ FCADRMM1	EQUALS
 #		   3 E BITS CONTAIN THE E-BANK NUMBER
 #		   5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
 #			TO BE STARTED
-#
+
 #	FOR EXAMPLE,
-#
+
 #		PREMM1		OCT	67213		# PRIORITY	33
 #							# E-BANK	 5
 #							# MAJOR MODE	11
@@ -1303,7 +1310,7 @@ FCADRMM1	EQUALS
 
 PREMM1		EQUALS
 		OCT	27117		# MM 79		EBANK 4		PRIO 13
-		OCT	27116		# MM 78		EBANK 4		PRIO 13 (original says PR23 13)
+		OCT	27116		# MM 78		EBANK 4		PR23 13
 		OCT	27115		# MM 77		EBANK 4		PRIO 13
 		OCT	27714		# MM 76		EBANK 4		PRIO 13
 		OCT	27113		# MM 75		EBANK 4		PRIO 13
@@ -1365,8 +1372,9 @@ PREMM1		EQUALS
 		EBANK=	TIME2SAV	# EBANK SETTING REQUIRED BY MM 06
 		EBANK=	QPLACE		# EBANK SETTING REQUIRED BY MM 01
 
-# NOTE:		THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
+
-# -----		THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
+# NOTE,		THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
+# ----		THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
 #		THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
 
 EPREMM1		EQUALS			# END OF PREMM1 TABLE
@@ -1377,6 +1385,7 @@ NO.MMS		=MINUS	EPREMM1		# THE "NOV37MM" CONSTANT AS ENTRIES ARE
 
 NOV37MM		ADRES	NO.MMS	-1	# ITEMS IN "PREMM1"TABLE - 1.  *DON'T MOVE*
 
+
 DNLADMM1	EQUALS
 		ADRES	RENDEZVU	# P79
 		ADRES	RENDEZVU	# P78
@@ -1412,7 +1421,6 @@ DNLADMM1	EQUALS
 		ADRES	RENDEZVU	# P17
 		ADRES	COSTALIN	# P06
 		ADRES	COSTALIN	# P01
-
 DNLADP00	=	ZERO
 COSTALIN	=	0
 ENTRYUPD	=	1
@@ -1420,11 +1428,9 @@ RENDEZVU	=	2
 POWERED		=	3
 
 P22DNLST	=	4
-
 # ORBITAL INTEGRATION CONSTANTS
 
 # THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
-
 RMM		2DEC	2538.09 E3 B-27	# 800 KM ABOVE LUNAR SURFACE
 
 RME		2DEC	7178165 B-29	# 800 KM ABOVE EQ. RADIUS
@@ -1467,8 +1473,8 @@ STATEND		CLRGO
 			NODOFLAG
 			ENDINT
 
+
 # THISVINT IS CALLED BY MIDTOAV1 AND2
 
 THISVINT	SET	RVQ
 			VINTFLAG
-