Merge branch 'master' of github.com:chrislgarry/Apollo-11

Comanche055/AGC_BLOCK_TWO_SELF-CHECK.agc

@@ -23,83 +23,86 @@
 # Notations on the hardcopy document read, in part:
 #
 #    Assemble revision 055 of AGC program Comanche by NASA
-#    2021113-051.  10:28 APR. 1, 1969 
+#    2021113-051.  10:28 APR. 1, 1969
 #
 #    This AGC program shall also be referred to as
 #            Colossus 2A
 
 # Page 1394
-# PROGRAM DESCRIPTION				DATE:  20 DECEMBER 1967
-# PROGRAM NAME -- SELF-CHECK			LOG SECTION:  AGC BLOCK TWO SELF-CHECK
-# MOD NO -- 1					ASSEMBLY SUBROUTINE UTILITYM REV 25
-# MOD BY -- GAUNTT
+# PROGRAM DESCRIPTION				DATE  20 DECEMBER 1967
+# PROGRAM NAME - SELF-CHECK			LOG SECTION  AGC BLOCK TWO SELF-CHECK
+# MOD NO - 1					ASSEMBLY SUBROUTINE UTILITYM REV 25
+# MOD BY - GAUNTT
+#
 #
 # FUNCTIONAL DESCRIPTION
-#	PROGRAM HAS TWO MAIN PARTS.  THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
-#	PART OF THE BACK-UP IDLE LOOP.  THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
-# 	STARTING VERB.
 #
-#	THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
+# 	PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
+# PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
+#  STARTING VERB.
+# 	THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
+# 	THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK , ONE AT A TIME.
+# 	IN ALL THERE ARE  7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
+# FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
+# 	THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
+# A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
+# OCTAL, TO LOAD INTO SMODE.
+# +-4		ERASABLE MEMORY
+# +-5		FIXED MEMORY
+# +-1,2,3,6,7,10	EVERYTHING IN OPTIONS 4 AND 5.
+# -0		SAME AS +-10 UNTIL AN ERROR IS DETECTED.
+# +0		NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
 #
-#	THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
-#
-#	IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK.  MORE DETAIL DESCRIPTION MAY BE
-#	FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
-#
-#	THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27).  BELOW IS
-# 	A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
-#	OCTAL, TO LOAD INTO SMODE.
-#		+-4		ERASABLE MEMORY
-#		+-5		FIXED MEMORY
-#		+-1,2,3,6,7,10	EVERYTHING IN OPTIONS 4 AND 5.
-#		-0		SAME AS +-10 UNTIL AN ERROR IS DETECTED.
-#		+0		NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
 #
 # WARNINGS
-#	USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
-#	SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
+# 	USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
+# 	SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
+#
 #
 # CALLING SEQUENCE
-#	TO CALL SELF-CHECK KEY IN
-#		V 21 N 27 E	OPTION NUMBER E
-#	TO CALL SHOW-BANKSUM KEY IN
-#		V 91 E		DISPLAYS FIRST BANK
-#		V 33 E		PROCEED, DISPLAYS NEXT BANK
+#
+# 	TO CALL SELF-CHECK KEY IN
+# 		V 21 N 27 E	OPTION NUMBER E
+# 	TO CALL SHOW-BANKSUM KEY IN
+# 		V 91 E		DISPLAYS FIRST BANK
+# 		V 33 E		PROCEED, DISPLAYS NEXT BANK
+#
 #
 # EXIT MODES, NORMAL AND ALARM
-#	SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED.  IF SO + OPTION NUMBERS PUT
-#	COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
 #
-#	THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
+# 	SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
+# COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
+# 	THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
+# 	SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
+#
 #
-#	SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E).  THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP.
 #
 # OUTPUT
 # Page 1395
-#	SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
-#	TURNS ON THE ALARM LIGHT.  THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E.  FOR FURTHER
-# 	INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED,
-#	IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
-#	INITIATED FRESH START (SLAP1).
+# 	SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
+# TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
+# INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED,
+# IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
+# INITIATED FRESH START (SLAP1).
+# 	SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
+# THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
 #
-#	SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
-#	THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
 #
 # ERASABLE INITIALIZATION REQUIRED
-#	ACCOMPLISHED BY FRESH START
-#		SMODE SET TO +0
+# 	ACCOMPLISHED BY FRESH START
+# 		SMODE SET TO +0
 #
 # DEBRIS
-#	ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
-#	EXCEPTION IS A RESTART.  RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
-#	E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
+# 	ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
+# EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
+# E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
 
 		BANK	25
 		SETLOC	SELFCHEC
 		BANK
 
 		COUNT	43/SELF
-		
+
 SBIT1		EQUALS	BIT1
 SBIT2		EQUALS	BIT2
 SBIT3		EQUALS	BIT3
@@ -150,7 +153,7 @@ S-ZERO		EQUALS	NEG0
 
 		EBANK=	LST1
 ADRS1		ADRES	SKEEP1
-SELFADRS	ADRES	SELFCHK		# SELFCHK RETURN ADDRESS.  SHOULD BE PUT
+SELFADRS	ADRES	SELFCHK		# SELFCHK RETURN ADDRESS. SHOULD BE PUT
 					# IN SELFRET WHEN GOING FROM SELFCHK TO
 					# SHOWSUM AND PUT IN SKEEP1 WHEN GOING
 					# FROM SHOWSUM TO SELF-CHECK.
@@ -227,9 +230,7 @@ SELFCHK		TC	SMODECHK	# ** CHARLEY, COME IN HERE
 # Page 1398
 # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
 # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
-#
-# ERASCHK TAKES APPROXIMATELY 7 SECONDS.
-
+# ERASCHK TAKES APPROXMATELY 7 SECONDS
 ERASCHK		CA	S+1
 		TS	SKEEP2
 0EBANK		CA	S+ZERO
@@ -322,10 +323,8 @@ ELOOPFIN	RELINT
 		TC	E134567B	# GO TO EBANKS 1,3,4,5,6, AND 7
 		CA	ERASCON6	# END OF ERASCHK
 		TS	EBANK
-
 # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
 # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
-
 CNTRCHK		CA	CNTRCON		# 00050
 CNTRLOOP	TS	SKEEP2
 		AD	SBIT4		# +10 OCTAL
@@ -336,7 +335,6 @@ CNTRLOOP	TS	SKEEP2
 		TC	CNTRLOOP
 
 # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
-
 CYCLSHFT	CA	CONC+S1		# 25252
 		TS	CYR		# C(CYR) = 12525
 		TS	CYL		# C(CYL) = 52524
@@ -357,7 +355,6 @@ CYCLSHFT	CA	CONC+S1		# 25252
 
 		INCR	SCOUNT +1
 		TC	SMODECHK
-
 # SKEEP1 HOLDS SUM
 # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
 # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
@@ -367,7 +364,7 @@ CYCLSHFT	CA	CONC+S1		# 25252
 # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
 # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
 # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
-# SKEEP7 CONTROLS WHEN ROUTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
+# SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
 
 ROPECHK		CA	S-ZERO		# *
 		TS	SKEEP6		# * -0 FOR ROPECHK
@@ -514,5 +511,3 @@ BNKCHK		CS	L		# = - BANK NUMBER
 		EBANK=	NEWJOB
 LSTBNKCH	BBCON*			# * CONSTANT, LAST BANK.
 		SBANK=	LOWSUPER
-
-

Comanche055/ALARM_AND_ABORT.agc

@@ -8,16 +8,16 @@
 # Contact:      Ron Burkey <info@sandroid.org>
 # Website:      http://www.ibiblio.org/apollo.
 # Mod history:  2009-05-07 RSB	Adapted from Colossus249 file of the same
-#				name, and page images. Corrected various 
-#				typos in the transcription of program 
-#				comments, and these should be back-ported  
+#				name, and page images. Corrected various
+#				typos in the transcription of program
+#				comments, and these should be back-ported
 #				to Colossus249.
 #
-# The contents of the "Comanche055" files, in general, are transcribed 
-# from scanned documents. 
+# The contents of the "Comanche055" files, in general, are transcribed
+# from scanned documents.
 #
 #       Assemble revision 055 of AGC program Comanche by NASA
-#       2021113-051.  April 1, 1969.  
+#       2021113-051.  April 1, 1969.
 #
 #       This AGC program shall also be referred to as Colossus 2A
 #
@@ -31,11 +31,11 @@
 # Refer directly to the online document mentioned above for further
 # information.  Please report any errors to info@sandroid.org.
 
-# Page 1483
-# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION.  IT MAY BE CALLED
+# Page 1493
+# 	THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
 # EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
 #
-# THE CALLING SEQUENCE IS AS FOLLOWS:
+# 	THE CALLING SEQUENCE IS AS FOLLOWS:
 #		TC	ALARM
 #		OCT	NNNNN
 #					# (RETURNS HERE)
@@ -59,7 +59,7 @@ ALARM2		TS	ALMCADR
 BORTENT		TS	L
 
 PRIOENT		CA	BBANK
-	+1	EXTEND
+ +1		EXTEND
 		ROR	SUPERBNK	# ADD SUPER BITS.
 		TS	ALMCADR +1
 
@@ -80,7 +80,7 @@ CHKFAIL2	CCS	FAILREG +1
 		TCF	FAIL3
 		LXCH	FAILREG +1
 		TCF	MULTEXIT
-		
+
 FAIL3		CA	FAILREG +2
 # Page 1494
 		MASK	POSMAX
@@ -88,7 +88,7 @@ FAIL3		CA	FAILREG +2
 		TCF	MULTFAIL
 		LXCH	FAILREG +2
 		TCF	MULTEXIT
-		
+
 PROGLARM	CS	DSPTAB +11D
 		MASK	OCT40400
 		ADS	DSPTAB +11D
@@ -101,18 +101,18 @@ MULTEXIT	XCH	ITEMP1		# OBTAIN RETURN ADDRESS IN A
 MULTFAIL	CA	L
 		AD	BIT15
 		TS	FAILREG +2
-		
+
 		TCF	MULTEXIT
 
 # PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND
-# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4.  EXAMPLE FOLLOWS,
+# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS,
 #		CAF	OCTXX		# ALARM CODE
 #		TC	BANKCALL
 #		CADR	PRIOLARM
 #		...	...
 #		...	...
 #		...	...		# ASTRONAUT RETURN
-#		TC	PHASCHNG	# IMMEDIATE RETURN TO USER.  RESTART
+#		TC	PHASCHNG	# IMMEDIATE RETURN TO USER. RESTART
 #		OCT	X.1		# PHASE CHANGE FOR PRIO DISPLAY
 
 		BANK	10
@@ -120,32 +120,33 @@ MULTFAIL	CA	L
 		BANK
 
 		COUNT	10/DSPLA
-PRIOLARM	INHINT			# * * * KEEP IN DISPLAY ROUTINE'S BANK
+
+PRIOLARM	INHINT			# * * * KEEP IN DISPLAY ROUTINES BANK
 		TS	L		# SAVE ALARM CODE
 
 		CA	BUF2		# 2 CADR OF PRIOLARM USER
 		TS	ALMCADR
 		CA	BUF2 +1
 		TC	PRIOENT +1	# * LEAVE L ALONE
--2SEC		DEC	-200		# *** DON'T MOVE
+-2SEC		DEC	-200		# *** DONT MOVE
 		CAF	V05N09
 		TCF	PRIODSPR
-		
-# Page 1495		
+
+# Page 1495
 
 		BLOCK	02
 		SETLOC	FFTAG13
 		BANK
 
 		COUNT	02/ALARM
-		
+
 BAILOUT		INHINT
 		CA	Q
 		TS	ALMCADR
-		
+
 		TC	BANKCALL
 		CADR	VAC5STOR
-		
+
 		INDEX	ALMCADR
 		CAF	0
 		TC	BORTENT
@@ -158,41 +159,42 @@ WHIMPER		CA	TWO
 		RESUME
 		TC	POSTJUMP	# RESUME SENDS CONTROL HERE
 		CADR	ENEMA
-		
+
 		SETLOC	FFTAG7
 		BANK
-		
+
 P00DOO		INHINT
 		CA	Q
 		TS	ALMCADR
 
 		TC	BANKCALL
 		CADR	VAC5STOR	# STORE ERASABLES FOR DEBUGGING PURPOSES.
-		
+
 		INDEX	ALMCADR
 		CAF	0
 ABORT2		TC	BORTENT
-OCT77770	OCT	77770		# DON'T MOVE
+
+OCT77770	OCT	77770		# DONT MOVE
 		CA	V37FLBIT	# IS AVERAGE G ON
 		MASK	FLAGWRD7
 		CCS	A
-		TC	WHIMPER -1	# YES.  DON'T DO POODOO.  DO BAILOUT.
+		TC	WHIMPER -1	# YES.  DONT DO POODOO.  DO BAILOUT.
 
 		TC	DOWNFLAG
 		ADRES	STATEFLG
-		
+
 		TC	DOWNFLAG
-		
+
 # Page 1496
 		ADRES	REINTFLG
-		
+
 		TC	DOWNFLAG
 		ADRES	NODOFLAG
-		
+
 		TC	BANKCALL
 		CADR	MR.KLEAN
 		TC	WHIMPER
-		
+
 CCSHOLE		INHINT
 		CA	Q
 		TS	ALMCADR
@@ -208,23 +210,20 @@ OCT217		OCT	00217
 		TC	ALMCADR		# RETURN TO USER
 
 DOALARM		EQUALS	ENDOFJOB
-
 # CALLING SEQUENCE FOR VARALARM
 #		CAF	(ALARM)
 #		TC	VARALARM
-# Page 1486
-
+#
 # VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY
-
 VARALARM	INHINT
 
-		TS	L		# SAVE USER'S ALARM CODE
+		TS	L		# SAVE USERS ALARM CODE
 
-		CA	Q		# SAVE USER'S Q
+		CA	Q		# SAVE USERS Q
 		TS	ALMCADR
 
 		TC	PRIOENT
-OCT14		OCT	14		# DON'T MOVE
+OCT14		OCT	14		# DONT MOVE
 
 		TC	ALMCADR		# RETURN TO USER
 

Comanche055/ANGLFIND.agc

@@ -7,10 +7,10 @@
 # Contact:	Ron Burkey <info@sandroid.org>.
 # Website:	www.ibiblio.org/apollo.
 # Pages:	399-411
-# Mod history:	2009-05-09 RSB	Adapted from the Colossus249/ file 
-#				of the same name, using Comanche055 page 
+# Mod history:	2009-05-09 RSB	Adapted from the Colossus249/ file
+#				of the same name, using Comanche055 page
 #				images.
-#		2009-05-22 RSB	In NOGOM2, TC ZEROEROR corrected to 
+#		2009-05-22 RSB	In NOGOM2, TC ZEROEROR corrected to
 #				CADR ZEROEROR.
 #
 # This source code has been transcribed or otherwise adapted from digitized
@@ -19,13 +19,13 @@
 # thanks to both.  The images (with suitable reduction in storage size and
 # consequent reduction in image quality as well) are available online at
 # www.ibiblio.org/apollo.  If for some reason you find that the images are
-# illegible, contact me at info@sandroid.org about getting access to the 
+# illegible, contact me at info@sandroid.org about getting access to the
 # (much) higher-quality images which Paul actually created.
 #
 # Notations on the hardcopy document read, in part:
 #
 #	Assemble revision 055 of AGC program Comanche by NASA
-#	2021113-051.  10:28 APR. 1, 1969  
+#	2021113-051.  10:28 APR. 1, 1969
 #
 #	This AGC program shall also be referred to as
 #			Colossus 2A
@@ -34,11 +34,11 @@
 		BANK	15
 		SETLOC	KALCMON1
 		BANK
-		
+
 		EBANK=	BCDU
-		
+
 		COUNT	22/KALC
-		
+
 KALCMAN3	TC	INTPRET
 		RTB
 			READCDUK	# PICK UP CURRENT CDU ANGLES
@@ -47,7 +47,7 @@ KALCMAN3	TC	INTPRET
 			MIS		# INITIAL S/C AXES TO STABLE MEMBER AXES
 			BCDU		# (MIS)
 		CALL
-			CDUTODCM	
+			CDUTODCM
 		AXC,2	TLOAD		# COMPUTE THE TRANSFORMATION FROM
 			MFS		# FINAL S/C AXES TO STABLE MEMBER AXES
 			CPHI		# (MFS)
@@ -58,9 +58,9 @@ SECAD		AXC,1	CALL		# MIS AND MFS ARRAYS CALCULATED		$2
 			TRANSPOS
 		VLOAD
 		STADR
-		STOVL	TMIS	+12D
+		STOVL	TMIS +12D
 		STADR
-		STOVL	TMIS	+6
+		STOVL	TMIS +6
 		STADR
 		STORE	TMIS		# TMIS = TRANSPOSE(MIS) SCALED BY 2
 		AXC,1	AXC,2
@@ -69,45 +69,45 @@ SECAD		AXC,1	CALL		# MIS AND MFS ARRAYS CALCULATED		$2
 		CALL
 			MXM3
 		VLOAD	STADR
-		STOVL	MFI	+12D
+		STOVL	MFI +12D
 		STADR
-		STOVL	MFI	+6
+		STOVL	MFI +6
 		STADR
 		STORE	MFI		# MFI = TMIS MFS (SCALED BY 4)
 		SETPD	CALL		# TRANSPOSE MFI IN PD LIST
 			18D
 			TRNSPSPD
 		VLOAD	STADR
-		STOVL	TMFI	+12D
+		STOVL	TMFI +12D
 		STADR
-		STOVL	TMFI	+6
+		STOVL	TMFI +6
 # Page 400
 		STADR
-		STORE	TMFI		# TMFI = TRANSPOSE (MFI) SCALED BY 4
-		
+		STORE	TMFI		# TMFI = TRANSPOSE (MFI)  SCALED BY 4
+
 # CALCULATE COFSKEW AND MFISYM
 
 		DLOAD	DSU
-			TMFI	+2
-			MFI	+2
+			TMFI +2
+			MFI +2
 		PDDL	DSU		# CALCULATE COF SCALED BY 2/SIN(AM)
-			MFI	+4
-			TMFI	+4
+			MFI +4
+			TMFI +4
 		PDDL	DSU
-			TMFI	+10D
-			MFI	+10D
+			TMFI +10D
+			MFI +10D
 		VDEF
 		STORE	COFSKEW		# EQUALS MFISKEW
-		
+
 # CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
 
 		DLOAD	DAD
 			MFI
-			MFI	+16D
+			MFI +16D
 		DSU	DAD
 			DP1/4TH
-			MFI	+8D
-		STORE	CAM		# CAM = (MFI0+MFI4+MFI8-1)/2 HALF-SCALE
+			MFI +8D
+		STORE	CAM		# CAM = (MFI0+MFI4+MFI8-1)/2 HALF SCALE
 		ARCCOS
 		STORE	AM		# AM=ARCCOS(CAM)  (AM SCALED BY 2)
 		DSU	BPL
@@ -119,7 +119,7 @@ SECAD		AXC,1	CALL		# MIS AND MFS ARRAYS CALCULATED		$2
 		TS	HOLDFLAG	# NOGO WILL STOP ANY RATE AND SET UP FOR A
 		TC	LOADCDUD	# GOOD RETURN
 		TCF	NOGO
-		
+
 CHECKMAX	DLOAD	DSU
 			AM
 			MAXANG
@@ -136,15 +136,15 @@ ALTCALC		VLOAD	VAD		# IF AM GREATER THAN 170 DEGREES
 			TMFI
 		VSR1
 		STOVL	MFISYM
-			MFI	+6
+			MFI +6
 		VAD	VSR1
-			TMFI	+6
-		STOVL	MFISYM	+6
-			MFI	+12D
+			TMFI +6
+		STOVL	MFISYM +6
+			MFI +12D
 		VAD	VSR1
-			TMFI	+12D
-		STORE	MFISYM	+12D	# MFISYM=(MFI+TMFI)/2	SCALED BY 4
-		
+			TMFI +12D
+		STORE	MFISYM +12D	# MFISYM=(MFI+TMFI)/2	SCALED BY 4
+
 # CALCULATE COF
 
 		DLOAD	SR1
@@ -154,12 +154,12 @@ ALTCALC		VLOAD	VAD		# IF AM GREATER THAN 170 DEGREES
 			CAM
 		BOVB	PDDL		# PD2 1 - CAM			       $2
 			SIGNMPAC
-			MFISYM	+16D
+			MFISYM +16D
 		DSU	DDV
 			0
 			2
 		SQRT	PDDL		# COFZ = SQRT(MFISYM8-CAM)/(1-CAM)
-			MFISYM	+8D	#			  	 $ ROOT 2
+			MFISYM +8D	#			  	 $ ROOT 2
 		DSU	DDV
 			0
 			2
@@ -171,45 +171,45 @@ ALTCALC		VLOAD	VAD		# IF AM GREATER THAN 170 DEGREES
 		SQRT	VDEF		# COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2
 		UNIT
 		STORE	COF
-		
+
 # DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
 
 COFMAXGO	DLOAD	DSU
 			COF
-			COF	+2
+			COF +2
 		BMN	DLOAD		# COFY G COFX
 			COMP12
 			COF
 		DSU	BMN
-			COF	+4
+			COF +4
 # Page 402
 			METHOD3		# COFZ G COFX OR COFY
 		GOTO
 			METHOD1		# COFX G COFY OR COFZ
 COMP12		DLOAD	DSU
-			COF	+2
-			COF	+4
+			COF +2
+			COF +4
 		BMN
 			METHOD3		# COFZ G COFY OR COFX
-			
+
 METHOD2		DLOAD	BPL		# COFY MAX
-			COFSKEW	+2	# UY
+			COFSKEW +2	# UY
 			U2POS
 		VLOAD	VCOMP
 			COF
 		STORE	COF
 U2POS		DLOAD	BPL
-			MFISYM	+2	# UX UY
+			MFISYM +2	# UX UY
 			OKU21
 		DLOAD	DCOMP		# SIGN OF UX OPPOSITE TO UY
 			COF
 		STORE	COF
 OKU21		DLOAD	BPL
-			MFISYM	+10D	# UY UZ
+			MFISYM +10D	# UY UZ
 			LOCSKIRT
 		DLOAD	DCOMP		# SIGN OF UZ OPPOSITE TO UY
-			COF	+4
-		STORE	COF	+4
+			COF +4
+		STORE	COF +4
 		GOTO
 			LOCSKIRT
 METHOD1		DLOAD	BPL		# COFX MAX
@@ -219,17 +219,17 @@ METHOD1		DLOAD	BPL		# COFX MAX
 			COF
 		STORE	COF
 U1POS		DLOAD	BPL
-			MFISYM	+2	# UX UY
+			MFISYM +2	# UX UY
 			OKU12
 		DLOAD	DCOMP
-			COF	+2	# SIGN OF UY OPPOSITE TO UX
-		STORE	COF	+2
+			COF +2		# SIGN OF UY OPPOSITE TO UX
+		STORE	COF +2
 OKU12		DLOAD	BPL
-			MFISYM	+4	# UX UZ
+			MFISYM +4	# UX UZ
 			LOCSKIRT
 		DLOAD	DCOMP		# SIGN OF UZ OPPOSITE TO UY
-			COF	+4
-		STORE	COF	+4
+			COF +4
+		STORE	COF +4
 		GOTO
 			LOCSKIRT
 METHOD3		DLOAD	BPL		# COFZ MAX
@@ -240,17 +240,17 @@ METHOD3		DLOAD	BPL		# COFZ MAX
 			COF
 		STORE	COF
 U3POS		DLOAD	BPL
-			MFISYM	+4	# UX UZ
+			MFISYM +4	# UX UZ
 			OKU31
 		DLOAD	DCOMP
 			COF		# SIGN OF UX OPPOSITE TO UZ
 		STORE	COF
 OKU31		DLOAD	BPL
-			MFISYM	+10D	# UY UZ
+			MFISYM +10D	# UY UZ
 			LOCSKIRT
 		DLOAD	DCOMP
-			COF	+2	# SIGN OF UY OPPOSITE TO UZ
-		STORE	COF	+2
+			COF +2	# SIGN OF UY OPPOSITE TO UZ
+		STORE	COF +2
 		GOTO
 			LOCSKIRT
 
@@ -281,10 +281,10 @@ MXM3		SETPD			# MXM3 MULTIPLIES 2 3X3 MATRICES
 			0,1
 		GOTO
 			TRNSPSPD	# REVERSE ROWS AND COLS IN PD AND
-
 # RETURN WITH M1XM2 IN PD LIST
+
 TRANSPOS	SETPD	VLOAD*		# TRANSPOS TRANSPOSES A 3X3 MATRIX
-			0		#	AND LEAVES RESULT IN PD LIST
+			0		#  AND LEAVES RESULT IN PD LIST
 			0,1		# MATRIX ADDRESS IN XR1
 		PDVL*	PDVL*
 			6,1
@@ -312,7 +312,6 @@ TRNSPSPD	DLOAD	PDDL		# ENTER WITH MATRIX IN PD LIST
 		RVQ			# RETURN WITH TRANSPOSED MATRIX IN PD LIST
 MINANG		DEC	.00069375
 MAXANG		DEC	.472222
-
 # GIMBAL LOCK CONSTANTS
 
 # D = MGA CORRESPONDING TO GIMBAL LOCK = 60 DEGREES
@@ -326,19 +325,19 @@ SNGLCD		DEC	.008725		# = SIN(NGL)COS(D)			$2
 CNGL		DEC	.499695		# = COS(NGL)				$2
 READCDUK	INHINT			# LOAD T(MPAC) WITH THE CURRENT CDU ANGLES
 		CA	CDUZ
-		TS	MPAC	+2
+		TS	MPAC +2
 		EXTEND
 		DCA	CDUX
 		RELINT
-		TCF	TLOAD	+6
+		TCF	TLOAD +6
 		BANK	16
 		SETLOC	KALCMON2
 		BANK
-		
+
 		COUNT*	$$/KALC
-		
-CDUTODCM	AXT,1	SSP		# SUBROUTINE TO COMPUTE DIRECTION COSINE
-		OCT	3		# MATRIX RELATING S/C AXES TO STARLE
+
+CDUTODCM	AXT,1	SSP		# SUBROUTINE TO COMPUTE  DIRECTION COSINE
+		OCT	3		# MATRIX RELATING S/C AXES TO STABLE
 			S1		# MEMBER AXES FROM 3 CDU ANGLES IN T(MPAC)
 		OCT	1		# SET XR1, S1, AND PD FOR LOOP
 		STORE	7
@@ -347,12 +346,12 @@ CDUTODCM	AXT,1	SSP		# SUBROUTINE TO COMPUTE DIRECTION COSINE
 LOOPSIN		SLOAD*	RTB
 			10D,1
 			CDULOGIC
-		STORE	10D		# LOAD PD WITH 0	SIN(PHI)
-		SIN	PDDL		#	       2	COS(PHI)
-			10D		#	       4	SIN(THETA)
-		COS	PUSH		#	       6	COS(THETA)
-		TIX,1	DLOAD		#	       8	SIN(PSI)
-			LOOPSIN		#	      10	COS(PSI)
+		STORE	10D		# LOAD PD WITH 0 SIN(PHI)
+		SIN	PDDL		#	       2 COS(PHI)
+			10D		#	       4 SIN(THETA)
+		COS	PUSH		#	       6 COS(THETA)
+		TIX,1	DLOAD		#	       8 SIN(PSI)
+			LOOPSIN		#	      10 COS(PSI)
 			6
 		DMP	SL1
 			10D
@@ -405,42 +404,42 @@ LOOPSIN		SLOAD*	RTB
 		DLOAD
 		DMP	SL1		# (PUSH UP 7)
 			8D
-		PDDL	DMP		# (PD7 COS(PHI)SIN(THETA)SIN(PSI)) SCALE 4
+		PDDL	DMP		# (PD7 COS(PHI)SIN(THETA)SIN(PSI)) SCALE4
 			6
 # Page 407
 			0
-		DAD	SL1		# (PUSH UP 7)
+		DAD	SL1		#  (PUSH UP 7)
 		STADR			# C7=COS(PHI)SIN(THETA)SIN(PSI)
 		STORE	14D,2
 		DLOAD
-		DMP	SL1		# (PUSH UP 6)
+		DMP	SL1		#  (PUSH UP 6)
 			8D
-		PDDL	DMP		# (PD6 SIN(THETA)SIN(PHI)SIN(PSI)) SCALE 4
+		PDDL	DMP		#  (PD6 SIN(THETA)SIN(PHI)SIN(PSI)) SCALE4
 			6
 			2
-		DSU	SL1		# (PUSH UP 6)
+		DSU	SL1		#  (PUSH UP 6)
 		STADR
 		STORE	16D,2		# C8=-SIN(THETA)SIN(PHI)SIN(PSI)
-		RVQ			#    +COS(THETA)COS(PHI)
+		RVQ			#  +COS(THETA)COS(PHI)
 ENDOCM		EQUALS
 
 		BANK	15
 		SETLOC	KALCMON1
 		BANK
-		
+
 # CALCULATION OF THE MATRIX DEL.......
 #
-#	*      *               __T           *
+#	*      *               --T           *
 #	DEL = (IDMATRIX)COS(A)+UU (1-COS(A))+UX SIN(A)		SCALED 1
 #
-#             _
+#             -
 #	WHERE U IS A UNIT VECTOR (DP SCALED 2) ALONG THE AXIS OF ROTATION.
-#	A IS THE ANGLE OF ROTATION (DP SCALED 2).
-#					   _
-#	UPON ENTRY THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC.
+#	A IS THE ANGLE OF ROTATION (DP SCALED 2)
+#					   -
+#	UPON ENTRY THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC
 
 		COUNT	22/KALC
-		
+
 DELCOMP		SETPD	PUSH		# MPAC CONTAINS THE ANGLE A
 			0
 		SIN	PDDL		# PD0 = SIN(A)
@@ -449,7 +448,7 @@ DELCOMP		SETPD	PUSH		# MPAC CONTAINS THE ANGLE A
 		BDSU	BOVB		# PD4 = 1-COS(A)			$2
 			DPHALF
 			SIGNMPAC
-			
+
 # COMPUTE THE DIAGONAL COMPONENTS OF DEL
 
 		PDDL
@@ -462,48 +461,48 @@ DELCOMP		SETPD	PUSH		# MPAC CONTAINS THE ANGLE A
 		BOVB
 			SIGNMPAC
 		STODL	DEL		# UX UX(U-COS(A)) +COS(A)		$1
-			COF	+2
-		DSQ	DMP
-			4
-		DAD	SL3
-			2
-		BOVB	
-			SIGNMPAC
-		STODL	DEL	+8D	# UY UY(1-COS(A)) +COS(A)		$1
-			COF	+4
+			COF +2
 		DSQ	DMP
 			4
 		DAD	SL3
 			2
 		BOVB
 			SIGNMPAC
-		STORE	DEL	+16D	# UZ UZ(1-COS(A)) +COS(A)		$1
-		
-# COMPUTE THE OFF-DIAGONAL TERMS OF DEL
+		STODL	DEL +8D		# UY UY(1-COS(A)) +COS(A)		$1
+			COF +4
+		DSQ	DMP
+			4
+		DAD	SL3
+			2
+		BOVB
+			SIGNMPAC
+		STORE	DEL +16D	# UZ UZ(1-COS(A)) +COS(A)		$1
+
+# COMPUTE THE OFF DIAGONAL TERMS OF DEL
 
 		DLOAD	DMP
 			COF
-			COF	+2
+			COF +2
 		DMP	SL1
 			4
-		PDDL	DMP		# D6	UX UY (1-COS A)			$ 4
-			COF	+4
+		PDDL	DMP		# D6  UX UY (1-COS A)			$ 4
+			COF +4
 			0
-		PUSH	DAD		# D8	UZ SIN A			$ 4
+		PUSH	DAD		# D8  UZ SIN A				$ 4
 			6
 		SL2	BOVB
 			SIGNMPAC
-		STODL	DEL	+6
+		STODL	DEL +6
 		BDSU	SL2
 		BOVB
 			SIGNMPAC
-		STODL	DEL	+2
+		STODL	DEL +2
 			COF
 		DMP	DMP
-			COF	+4
+			COF +4
 			4
-		SL1	PDDL		# D6	UX UZ (1-COS A)			$ 4
-			COF	+2
+		SL1	PDDL		# D6	UX UZ (1-COS A )		$ 4
+			COF +2
 		DMP	PUSH		# D8	UY SIN(A)
 			0
 		DAD	SL2
@@ -511,14 +510,14 @@ DELCOMP		SETPD	PUSH		# MPAC CONTAINS THE ANGLE A
 # Page 409
 		BOVB
 			SIGNMPAC
-		STODL	DEL	+4	# UX UZ (1-COS(A))+UY SIN(A)
+		STODL	DEL +4		# UX UZ (1-COS(A))+UY SIN(A)
 		BDSU	SL2
 		BOVB
 			SIGNMPAC
-		STODL	DEL	+12D	# UX UZ (U-COS(A))-UY SIGN(A)
-			COF	+2
+		STODL	DEL +12D	# UX UZ (U-COS(A))-UY SIGN(A)
+			COF +2
 		DMP	DMP
-			COF	+4
+			COF +4
 			4
 		SL1	PDDL		# D6	UY UZ (1-COS(A))		$ 4
 			COF
@@ -528,41 +527,34 @@ DELCOMP		SETPD	PUSH		# MPAC CONTAINS THE ANGLE A
 			6
 		BOVB
 			SIGNMPAC
-		STODL	DEL	+14D	# UY UZ(1-COS(A)) +UX SIN(A)
+		STODL	DEL +14D	# UY UZ(1-COS(A)) +UX SIN(A)
 		BDSU	SL2
-		BOVB	
+		BOVB
 			SIGNMPAC
-		STORE	DEL	+10D	# UY UZ(1-COS(A)) -UX SIN(A)
+		STORE	DEL +10D	# UY UZ(1-COS(A)) -UX SIN(A)
 		RVQ
-		
+
 # DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
 # X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2)
 # LEAVES CDU ANGLES SCALED 2PI IN V(MPAC)
 # COS(MGA) WILL BE LEFT IN S1 (SCALED 1)
 #
-# THE DIRECTION COSINE MATRIX RELATING S/C AXES TO STABLE MEMBER AXES CAN BE WRITTEN AS ***
+# THE DIRECTION COSINE MATRIX RELATING S/C AXES TO STABLE MEMBER AXES CAN BE WRITTEN AS***
 #
 #	C =COS(THETA)COS(PSI)
 #	 0
-#
 #	C =-COS(THETA)SIN(PSI)COS(PHI)+SIN(THETA)SIN(PHI)
 #	 1
-#
 #	C =COS(THETA)SIN(PSI)SIN(PHI)+SIN(THETA)COS(PHI)
 #	 2
-#
 #	C =SIN(PSI)
 #	 3
-#
 #	C =COS(PSI)COS(PHI)
 #	 4
-#
 #	C =-COS(PSI)SIN(PHI)
 #	 5
-#
 #	C =-SIN(THETA)COS(PSI)
 #	 6
-#
 #	C =SIN(THETA)SIN(PSI)COS(PHI)+COS(THETA)SIN(PHI)
 #	 7
 # Page 410
@@ -620,15 +612,15 @@ VECOFANG	VDEF	RVQ
 NOGOM2		INHINT			# THIS LOCATION ACCESSED BY A BZMF NOGO -2
 		TC	BANKCALL
 		CADR	ZEROERROR
-		
+
 NOGO		INHINT
 		TC	STOPRATE
-				
+
 					# TERMINATE MANEUVER
-		CAF	TWO		# NOTE: ALL RETURNS ARE NOW MADE VIA
+		CAF	TWO		# NOTE - ALL RETURNS ARE NOW MADE VIA
 		TC	WAITLIST	# GOODEND
 		EBANK=	BCDU
 		2CADR	ENDMANU
-		
+
 		TCF	ENDOFJOB
-		
+

Comanche055/ASSEMBLY_AND_OPERATION_INFORMATION.agc

@@ -6,7 +6,7 @@
 # Assembler:	yaYUL
 # Contact:	Ron Burkey <info@sandroid.org>.
 # Website:	www.ibiblio.org/apollo.
-# Mod history:	2009-05-05 RSB	Adapted from the Colossus249/ file of the 
+# Mod history:	2009-05-05 RSB	Adapted from the Colossus249/ file of the
 #				same name, using Comanche055 page images.
 #
 # This source code has been transcribed or otherwise adapted from digitized
@@ -15,13 +15,13 @@
 # thanks to both.  The images (with suitable reduction in storage size and
 # consequent reduction in image quality as well) are available online at
 # www.ibiblio.org/apollo.  If for some reason you find that the images are
-# illegible, contact me at info@sandroid.org about getting access to the 
+# illegible, contact me at info@sandroid.org about getting access to the
 # (much) higher-quality images which Paul actually created.
 #
 # Notations on the hardcopy document read, in part:
 #
 #	Assemble revision 055 of AGC program Comanche by NASA
-#	2021113-051.  10:28 APR. 1, 1969  
+#	2021113-051.  10:28 APR. 1, 1969
 #
 #	This AGC program shall also be referred to as
 #			Colossus 2A
@@ -31,6 +31,8 @@
 # ASSEMBLY AND OPERATIONS INFORMATION
 # TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
 # SUBROUTINE CALLS
+#
+#
 #	COMERASE
 #		ERASABLE ASSIGNMENTS
 #	COMAID
@@ -52,12 +54,12 @@
 #		SYSTEM TEST STANDARD LEAD INS
 #		IMU CALIBRATION AND ALIGNMENT
 #	COMEKISS
-#		GROUND TRACKING DETERMINATION PROGRAM -- P21
+#		GROUND TRACKING DETERMINATION PROGRAM - P21
 #		P34-P35, P74-P75
 #		R31
 #		P76
 #		R30
-#		STABLE ORBIT -- P38-P39
+#		STABLE ORBIT - P38-P39
 #	TROUBLE
 #		P11
 #		TP1 SEARCH
@@ -73,12 +75,9 @@
 #		CM BODY ATTITUDE
 #		P37,P70
 #		S-BAND ANTENNA FOR CM
-#		LUNAR LANDMARK SELECTION FOR CM
 #	TVCDAPS
 #		TVC INITIALIZE
-
 # Page 3
-
 #		TVC EXECUTIVE
 #		TVC MASSPROP
 #		TVC RESTARTS
@@ -120,19 +119,19 @@
 #		ALARM AND ABORT
 #		UPDATE PROGRAM
 #		RTB OP CODES
-# SYMBOL TABLE LISTING
-# UNREFERENCED SYMBOL LISTING
-# ERASABLE & EQUALS CROSS-REFERENCE TABLE
-# SUMMARY OF SYMBOL TABLE LISTINGS
-# MEMORY TYPE & AVAILABILITY DISPLAY
-# COUNT TABLE
-# PARAGRAPHS GENERATED FOR THIS DISPLAY
-
+#
+#
+#       SYMBOL TABLE LISTING
+#       UNREFERANCED SYMBOL LISTING
+#       ERASABLE & EQUALS CROSS-REFERENCE TABLE
+#       SUMMARY OF SYMBOL TABLE LISTINGS
+#       MEMORY TYPE & AVAILABILITY DISPLAY
+#       COUNT TABLE
+#       PARAGRAPHS GENERATED FOR THIS ASSEMBLY
 # Page 4
-
-# OCTAL LISTING
-# OCCUPIED LOCATIONS TABLE
-# SUBROS CALLED & PROGRAM STATUS
+#       OCTAL LISTING
+#       OCCUPIED LOCATIONS TABLE
+#       SUBROS CALLED & PROGRAM STATUS
 
 # Page 5
 # VERB LIST FOR CSM
@@ -184,30 +183,30 @@
 
 # EXTENDED VERBS
 
-# 40	ZERO CDU'S
-# 41	COARSE ALIGN CDU'S
-# 42	FINE ALIGN IMU'S
+# 40	ZERO CDU-S
+# 41	COARSE ALIGN CDU-S
+# 42	FINE ALIGN IMU-S
 # 43	LOAD IMU ATT ERROR METERS
 # 44	SET   SURFACE FLAG
 # 45	RESET SURFACE FLAG
 # 46	ESTABLISH G&C CONTROL
-# 47	MOVE LM STATE VECTOR INTO CM STATE VECTOR
+# 47	MOVE LM STATE VECTOR INTO CM STATE VECTOR.
 # 48	REQUEST DAP DATA LOAD ROUTINE (R03)
-# 49	REQUES CREW DEFINED MANEUVER ROUTINE (R62)
+# 49	REQUEST CREW DEFINED MANEUVER ROUTINE (R62)
 # 50	PLEASE PERFORM
 # 51	PLEASE MARK
 # 52	MARK ON OFFSET LANDING SITE
 # 53	PLEASE PERFORM ALTERNATE LOS MARK
-# 54	REQUEST RENDEZVOUS BACKUP SIGHTING MARK ROUTIEN (R23)
+# 54	REQUEST RENDEZVOUS BACKUP SIGHTING MARK ROUTINE (R23)
 # 55	INCREMENT AGC TIME (DECIMAL)
-# 56	TERMINATE TRACKING (P20 & P25)
+# 56	TERMINATE TRACKING (P20 + P25)
 # 57	REQUEST RENDEZVOUS SIGHTING MARK ROUTINE (R21)
 # 58	RESET STICK FLAG
 # 59	PLEASE CALIBRATE
 # 60	SET ASTRONAUT TOTAL ATTITUDE (N17) TO PRESENT ATTITUDE
 # 61	DISPLAY DAP ATTITUDE ERROR
-# 62	DISPLAY TOTAL ATTITUDE ERROR (W.R.T. N22 (THETAD))
-# 63	DISPLAY TOTAL ASTRONAUT ATTITUDE ERROR (W.R.T. N17 (CPHIX))
+# 62	DISPLAY TOTAL ATTITUDE ERROR (WRT N22 (THETAD))
+# 63	DISPLAY TOTAL ASTRONAUT ATTITUDE ERROR (WRT N17 (CPHIX))
 # 64	REQUEST S-BAND ANTENNA ROUTINE
 # 65	OPTICAL VERIFICATION OF PRELAUNCH ALIGNMENT
 # 66	VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE TO OTHER VEHICLE.
@@ -215,8 +214,8 @@
 # 68	CSM STROKE TEST ON
 # 69	CAUSE RESTART
 # 70	UPDATE LIFTOFF TIME
-# 71	UNIVERSAL UPDATE - BLOCK ADR
-# 72	UNIVERSAL UPDATE - SINGLE ADR
+# 71	UNIVERSAL UPDATE-BLOCK  ADR
+# 72	UNIVERSAL UPDATE-SINGLE ADR
 # 73	UPDATE AGC TIME (OCTAL)
 # 74	INITIALIZE ERASABLE DUMP VIA DOWNLINK
 # 75	BACKUP LIFTOFF
@@ -232,16 +231,14 @@
 # 85	REQUEST RENDEZVOUS PARAMETER DISPLAY NO. 2 (R34)
 # 86	REJECT RENDEZVOUS BACKUP SIGHTING MARK
 # 87	SET VHF RANGE FLAG
-
 # Page 7
-
 # 88	RESET VHF RANGE FLAG
 # 89	REQUEST RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
 # 90	REQUEST RENDEZVOUS OUT OF PLANE DISPLAY ROUTINE (R36)
 # 91	DISPLAY BANK SUM
 # 92	OPERATE IMU PERFORMANCE TEST (P07)
 # 93	ENABLE W MATRIX INITIALIZATION
-# 94	PERFORM SYSLUNAR ATTITUDE MANEUVER (P23)
+# 94	PERFORM CYSLUNAR ATTITUDE MANEUVER (P23)
 # 95	NO UPDATE OF EITHER STATE VECTOR (P20 OR P22)
 # 96	TERMINATE INTEGRATION AND GO TO P00
 # 97	PERFORM ENGINE FAIL PROCEDURE
@@ -249,18 +246,16 @@
 # 99	PLEASE ENABLE ENGINE
 
 # Page 8
-# IN THE FOLLOWING NOUN LIST THE 'NO LOAD' RESTRICTION MEANS THE NOUN
+# IN THE FOLLOWING NOUN LIST THE :NO LOAD: RESTRICTION MEANS THE NOUN
 # CONTAINS AT LEAST ONE COMPONENT WHICH CANNOT BE LOADED, I.E. OF
 # SCALE TYPE L (MIN/SEC) OR PP (2 INTEGERS).
-
 # IN THIS CASE VERBS 24 AND 25 ARE NOT ALLOWED, BUT VERBS 21, 22, OR 23
-# MAY BE USED TO LOAD ANY OF THE NOUN'S COMPONENTS WHICH ARE NOT OF THE
+# MAY BE USED TO LOAD ANY OF THE NOUN:S COMPONENTS WHICH ARE NOT OF THE
 # ABOVE SCALE TYPES.
+# THE :DEC ONLY: RESTRICTION MEANS ONLY DECIMAL OPERATION IS ALLOWED ON
+# EVERY COMPONENT IN THE NOUN. (NOTE THAT :NO LOAD: IMPLIES :DEC ONLY:.)
 
-# THE 'DEC ONLY' RESTRICTION MEANS ONLY DECIMAL OPERATION IS ALLOWED ON
-# EVERY COMPONENT IN THE NOUN.  (NOT THAT 'NO LOAD' IMLIES 'DEC ONLY'.)
-
-# NORMAL NOUNS				   COMPONENTS	SCALE & DECIMAL POINT	RESTRICTION
+# NORMAL NOUNS				   COMPONENTS	SCALE & DECIMAL POINT	RESTRICTIONS
 #
 # 00	NOT IN USE
 # 01	SPECIFY MACHINE ADDRESS (FRACTIONAL)	3COMP	.XXXXX FOR EACH
@@ -269,7 +264,7 @@
 # 04	SPARE
 # 05	ANGULAR ERROR/DIFFERENCE		1COMP	XXX.XX DEG
 # 06	OPTION CODE				2COMP	OCTAL ONLY FOR EACH
-# LOADING NOUN 07 WILL SET OR RESET SELECTED BITS IN ANY ERASABLE REGISTER.
+# LOADING NOUN 07 WILL SET OR RESET SELECTED BITS IN ANY ERASABLE REGISTER
 # 07	ECADR OF WORD TO BE MODIFIED		3COMP	OCTAL ONLY FOR EACH
 #	ONES FOR BITS TO BE MODIFIED
 #	1 TO SET OR 0 TO RESET SELECTED BITS
@@ -300,7 +295,7 @@
 #							000XX. MIN		MUST LOAD 3 COMPS
 #							0XX.XX SEC
 # 25	CHECKLIST				3COMP	XXXXX. FOR EACH
-#	(USED WITH PLEASE PERFORM ONLY)
+#	 (USED WITH PLEASE PERFORM ONLY)
 
 # Page 9
 
@@ -342,21 +337,21 @@
 
 # Page 11
 
-# MIXED NOUNS				   COMPONENTS	SCALE & DECIMAL POINT	RESTRICTION
+# MIXED NOUNS				   COMPONENTS	SCALE & DECIMAL POINT	RESTRICTIONS
 #
 # 40	TIME FROM IGNITION/CUTOFF		3COMP	XXBXX  MIN/SEC		NO LOAD, DEC ONLY
-#	VG						XXXX.X FT/SEC
+#	VG,						XXXX.X FT/SEC
 #	DELTA V (ACCUMULATED)				XXXX.X FT/SEC
-# 41	TARGET	AZIMUTH				2COMP	XXX.XX DEG
+# 41	TARGET	AZIMUTH,			2COMP	XXX.XX DEG
 #		ELEVATION				XX.XXX DEG
-# 42	APOGEE					3COMP	XXXX.X NAUT MI		DEC ONLY
-#	PERIGEE						XXXX.X NAUT MI
+# 42	APOGEE,					3COMP	XXXX.X NAUT MI		DEC ONLY
+#	PERIGEE,					XXXX.X NAUT MI
 #	DELTA V (REQUIRED)				XXXX.X FT/SEC
-# 43	LATITUDE				3COMP	XXX.XX DEG		DEC ONLY
-#	LONGITUDE					XXX.XX DEG
+# 43	LATITUDE,				3COMP	XXX.XX DEG		DEC ONLY
+#	LONGITUDE,					XXX.XX DEG
 #	ALTITUDE					XXXX.X NAUT MI
-# 44	APOGEE					3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
-#	PERIGEE						XXXX.X NAUT MI
+# 44	APOGEE,					3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
+#	PERIGEE,					XXXX.X NAUT MI
 #	TFF						XXBXX  MIN/SEC
 # 45	MARKS (VHF - OPTICS)			3COMP	+XXBXX			NO LOAD, DEC ONLY
 #	TFI OF NEXT BURN				XXBXX  MIN/SEC
@@ -365,67 +360,67 @@
 # 47	THIS VEHICLE WEIGHT			2COMP	XXXXX. LBS		DEC ONLY
 #	OTHER VEHICLE WEIGHT				XXXXX. LBS
 # 48	PITCH TRIM				2COMP	XXX.XX DEG		DEC ONLY
-#	YAW TRIM					XXX.XX DEG
+#	YAW TRIM,					XXX.XX DEG
 # 49	DELTA R					3COMP	XXXX.X NAUT MI		DEC ONLY
 #	DELTA V						XXXX.X FT/SEC
 #	VHF OR OPTICS CODE				XXXXX.
-# 50	SPLASH ERROR				3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
-#	PERIGEE						XXXX.X NAUT MI
+# 50	SPLASH ERROR,				3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
+#	PERIGEE,					XXXX.X NAUT MI
 #	TFF						XXBXX  MIN/SEC
-# 51	S-BAND ANTENNA ANGLES	PITCH		2COMP	XXX.XX DEG		DEC ONLY
-#				YAW			XXX.XX DEG
+# 51	S-BAND ANTENNA ANGLES PITCH		2COMP	XXX.XX DEG		DEC ONLY
+#			       YAW			XXX.XX DEG
 # 52	CENTRAL ANGLE OF ACTIVE VEHICLE		1COMP	XXX.XX DEG
-# 53	RANGE					3COMP	XXX.XX NAUT MI		DEC ONLY
-#	RANGE RATE					XXXX.X FT/SEC
+# 53	RANGE,					3COMP	XXX.XX NAUT MI		DEC ONLY
+#	RANGE RATE,					XXXX.X FT/SEC
 #	PHI						XXX.X DEG
-# 54	RANGE					3COMP	XXX.XX NAUT MI		DEC ONLY
-#	RANGE RATE					XXXX.X FT/SEC
+# 54	RANGE,					3COMP	XXX.XX NAUT MI		DEC ONLY
+#	RANGE RATE,					XXXX.X FT/SEC
 #	THETA						XXX.XX DEG
 # 55	PERIGEE CODE				3COMP	XXXXX.			DEC ONLY
 #	ELEVATION ANGLE					XXX.XX DEG
 #	CENTRAL ANGLE OF PASSIVE VEHICLE		XXX.XX DEG
-# 56	REENTRY ANGLE				2COMP	XXX.XX DEG		DEC ONLY
+# 56	REENTRY ANGLE,				2COMP	XXX.XX DEG		DEC ONLY
 #	DELTA V						XXXXX. FT/SEC
 # 57	DELTA R					1COMP	XXXX.X NAUT MI		DEC ONLY
 # 58	PERIGEE ALT (POST TPI)			3COMP	XXXX.X NAUT MI		DEC ONLY
 #	DELTA V TPI					XXXX.X FT/SEC
 #	DELTA V TPF					XXXX.X FT/SEC
-# 59	DELTA VELOCITY LOS			3COMP	XXXX.X FT/SEC FOR EACH	DEC ONLY
-# 60	GMAX					3COMP	XXX.XX G		DEC ONLY
+# 59	DELTA VELOCITY LOS			3COMP	XXXX.X FT/SEC FOR EA.	DEC ONLY
+# 60	GMAX,					3COMP	XXX.XX G		DEC ONLY
 
 # Page 12
 
-#	VPRED						XXXXX. FT/SEC
+#	VPRED,						XXXXX. FT/SEC
 #	GAMMA EI					XXX.XX DEG
-# 61	IMPACT LATITUDE				3COMP	XXX.XX DEG		DEC ONLY
-#	IMPACT LONGITUDE				XXX.XX DEG
+# 61	IMPACT LATITUDE,			3COMP	XXX.XX DEG		DEC ONLY
+#	IMPACT LONGITUDE,				XXX.XX DEG
 #	HEADS UP/DOWN					+/- 00001
-# 62	INERTIAL VEL MAG (VI)			3COMP	XXXXX. FT/SEC		DEC ONLY
-#	ALT RATE CHANGE (HDOT)				XXXXX. FT/SEC
+# 62	INERTIAL VEL MAG (VI),			3COMP	XXXXX. FT/SEC		DEC ONLY
+#	ALT RATE CHANGE (HDOT),				XXXXX. FT/SEC
 #	ALT ABOVE PAD RADIUS (H)			XXXX.X NAUT MI
-# 63	RANGE 297,431 TO SPLASH (RTGO)		3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
-#	PREDICTED INERT VEL (VIO)			XXXXX. FT/SEC
-#	TIME FROM 297,431 (TFE)				XXBXX  MIN/SEC
-# 64	DRAG ACCELERATION			3COMP	XXX.XX G		DEC ONLY
-#	INERTIAL VELOCITY (VI)				XXXXX. FT/SEC
+# 63	RANGE 297,431 TO SPLASH (RTGO),		3COMP	XXXX.X NAUT MI		NO LOAD, DEC ONLY
+#	PREDICTED INERT VEL (VIO),			XXXXX. FT/SEC
+#	TIME FROM 297,431 (TFE),			XXBXX  MIN/SEC
+# 64	DRAG ACCELERATION,			3COMP	XXX.XX G		DEC ONLY
+#	INERTIAL VELOCITY (VI),				XXXXX. FT/SEC
 #	RANGE TO SPLASH					XXXX.X NAUT MI
 # 65	SAMPLED AGC TIME			3COMP	00XXX. HRS		DEC ONLY
-#	(FETCHED IN INTERRUPT)				000XX. MIN
+#	 (FETCHED IN INTERRUPT)				000XX. MIN              MUST LOAD 3 COMPS
 #							0XX.XX SEC
-# 66	COMMAND BANK ANGLE (BETA)		3COMP	XXX.XX DEG		DEC ONLY
-#	CROSS RANGE ERROR				XXXX.X NAUT MI
+# 66	COMMAND BANK ANGLE (BETA),		3COMP	XXX.XX DEG		DEC ONLY
+#	CROSS RANGE ERROR,				XXXX.X NAUT MI
 #	DOWN RANGE ERROR				XXXX.X NAUT MI
-# 67	RANGE TO TARGET				3COMP	XXXX.X NAUT MI		DEC ONLY
-#	PRESENT LATITUDE				XXX.XX DEG
+# 67	RANGE TO TARGET,			3COMP	XXXX.X NAUT MI		DEC ONLY
+#	PRESENT LATITUDE,				XXX.XX DEG
 #	PRESENT LONGITUDE				XXX.XX DEG
-# 68	COMMAND BANK ANGLE (BETA)		3COMP	XXX.XX DEG		DEC ONLY
-#	INERTIAL VELOCITY (VI)				XXXXX. FT/SEC
-#	ALT RATE CHANGE (RDOT)				XXXXX. FT/SEC
-# 69	BETA					3COMP	XXX.XX DEG
-#	DL						XXX.XX G
-#	VL						XXXXX. FT/SEC
-# 70	STAR CODE				3COMP	OCTAL ONLY
-#	LANDMARK DATA					OCTAL ONLY
+# 68	COMMAND BANK ANGLE (BETA),		3COMP	XXX.XX DEG		DEC ONLY
+#	INERTIAL VELOCITY (VI),				XXXXX. FT/SEC
+#      ALT RATE CHANGE (RDOT)				XXXXX. FT/SEC
+# 69   BETA					3COMP	XXX.XX DEG
+#      DL						XXX.XX G
+#      VL						XXXXX. FT/SEC
+# 70	STAR CODE,				3COMP	OCTAL ONLY
+#	LANDMARK DATA,					OCTAL ONLY
 #	HORIZON DATA					OCTAL ONLY
 # 71	STAR CODE				3COMP	OCTAL ONLY
 #	LANDMARK DATA					OCTAL ONLY
@@ -456,18 +451,18 @@
 # 84	DELTA V (OTHER VEHICLE)			3COMP	XXXX.X FT/SEC FOR EACH	DEC ONLY
 # 85	VG (BODY)				3COMP	XXXX.X FT/SEC FOR EACH	DEC ONLY
 # 86	DELTA V (LV)				3COMP	XXXXX. FT/SEC FOR EACH	DEC ONLY
-# 87	MARK DATA	SHAFT			2COMP	XXX.XX DEG
+# 87	MARK DATA	SHAFT,			2COMP	XXX.XX DEG
 #			TRUNION				XX.XXX DEG
 # 88	HALF UNIT SUN OR PLANET VECTOR		3COMP	.XXXXX FOR EACH		DEC ONLY
-# 89	LANDMARK	LATITUDE		3COMP	XX.XXX DEG		DEC ONLY
-#			LONGITUDE/2			XX.XXX DEG
+# 89	LANDMARK	LATITUDE,		3COMP	XX.XXX DEG		DEC ONLY
+#			LONGITUDE/2,			XX.XXX DEG
 #			ALTITUDE			XXX.XX NAUT MI
 # 90	Y					3COMP	XXX.XX NM		DEC ONLY
 #	Y DOT						XXXX.X FPS
 #	PSI						XXX.XX DEG
-# 91	OCDU ANGLES	SHAFT			2COMP	XXX.XX DEG
+# 91	OCDU ANGLES	SHAFT,			2COMP	XXX.XX DEG
 #			TRUNION				XX.XXX DEG
-# 92	NEW OPTICS ANGLES	SHAFT		2COMP	XXX.XX DEG
+# 92	NEW OPTICS ANGLES	SHAFT,		2COMP	XXX.XX DEG
 #				TRUNON			XX.XXX DEG
 # 93	DELTA GYRO ANGLES			3COMP	XX.XXX DEG FOR EACH
 # 94	NEW OPTICS ANGLES	SHAFT		2COMP	XXX.XX DEG
@@ -478,18 +473,18 @@
 # 98	SYSTEM TEST RESULTS AND INPUTS		3COMP	XXXXX.
 #							.XXXXX
 #							XXXXX.
-# 99	RMS IN POSITION				3COMP	XXX.XX NAUT MI		DEC ONLY
+# 99	RMS IN POSITION				3COMP	XXXXX.FT	        DEC ONLY
 #	RMS IN VELOCITY					XXXX.X FT/SEC
 #	RMS OPTION					XXXXX.
 
 # Page 14
 
-# REGISTERS AND SCALING FOR NORMAL NOUNS
+# REGISTERS AND SCALING  FOR NORMAL NOUNS
 #
-# NOUN	REGISTER		SCALE TYPE
+# NOUN	        REGISTER	SCALE TYPE
 #
 # 00	NOT IN USE
-# 01	SPECIFY ADDRESS		H
+# 01	SPECIFY ADDRESS		B
 # 02	SPECIFY ADDRESS		C
 # 03	SPECIFY ADDRESS		D
 # 04	SPARE
@@ -591,8 +586,8 @@
 # 60	1	GMAX		T
 #	2	VPRED		P
 #	3	GAMMAEI		H
-# 61	1	LAT (SPL)	H
-#	2	LNG (SPL)	H
+# 61	1	LAT(SPL)	H
+#	2	LNG(SPL)	H
 #	3	HEADSUP		C
 # 62	1	VMAGI		P
 #	2	HDOT		P
@@ -705,7 +700,7 @@
 
 # NOUN SCALES AND FORMATS
 #
-# -SCALE TYPE-				PRECISION
+# -SCALE TYPE-				 PRECISION
 # UNITS			DECIMAL FORMAT		--	AGC FORMAT
 # ------------		--------------		--	----------
 #
@@ -723,7 +718,7 @@
 # -D-								     15
 # CDU DEGREES		XXX.XX DEGREES		SP	BIT 1 = 360/2   DEGREES
 #			(MAX 359.99)			(USES 15 BITS FOR MAGNI-
-#							TUDE AND 2'S COMP.)
+#							 TUDE AND 2-S COMP.)
 #
 # -E-								    14
 # ELEVATION DEGREES	XX.XXX DEGREES		SP	BIT 1 = 90/2   DEGREES
@@ -734,23 +729,23 @@
 #			(MAX 179.99)
 #
 # -G-
-# DP DEGREES (90)	XX.XXX DEGREES		DP	BIT 1 OF LOW REGISTER =
+# DP DEGREES(90)	XX.XXX DEGREES		DP	BIT 1 OF LOW REGISTER =
 #							     28
 #							360/2   DEGREES
 #
 # -H-
 # DP DEGREES (360)	XXX.XX DEGREES		DP	BIT 1 OF LOW REGISTER =
-#			(MAX 359.99)			     28
-#							360/2   DEGREES
+#			        			     28
+#			(MAX 359.99)			360/2   DEGREES
 #
 # -J-								    15
 # Y OPTICS DEGREES	XX.XXX DEGREES		SP	BIT 1 = 90/2   DEGREES
 #			(BIAS OF 19.775			(USES 15 BITS FOR MAGNI-
-#			DEGREES ADDED FOR		TUDE AND S'S COMP.)
+#			DEGREES ADDED FOR		TUDE AND 2-S COMP.)
 #			DISPLAY, SUBTRACTED
 #			FOR LOAD.)
-#			NOTE:  NEGATIVE NUM-
-#			BERS CANNOT BE 
+#			NOTE: NEGATIVE NUM-
+#			BERS CANNOT BE
 #			LOADED.
 #
 # -K-
@@ -761,11 +756,11 @@
 #			000XX. MIN			  -2
 #			0XX.XX SEC			10   SEC
 #			(DECIMAL ONLY.
-#			MAX MIN COMP = 59
-#			MAX SEC COMP = 59.99
-#			MAX CAPACITY = 745 HRS
-#					39 MINS
-#					14.55 SECS.
+#			MAX MIN COMP=59
+#			MAX SEC COMP=59.99
+#			MAX CAPACITY=745 HRS
+#				      39 MINS
+#				      14.55 SECS.
 #			WHEN LOADING, ALL 3
 #			COMPONENTS MUST BE
 #			SUPPLIED.)
@@ -774,11 +769,11 @@
 # TIME (MIN/SEC)	XXBXX MIN/SEC		DP	BIT 1 OF LOW REGISTER =
 #			(B IS A BLANK			  -2
 #			POSITION, DECIMAL		10   SEC
-#			ONLY, DISPLAY OR 
-#			MONITOR ONLY.  CANNOT
+#			ONLY, DISPLAY OR
+#			MONITOR ONLY. CANNOT
 #			BE LOADED.
-#			MAX MIN COMP = 59
-#			MAX SEC COMP = 59
+#			MAX MIN COMP=59
+#			MAX SEC COMP=59
 #			VALUES GREATER THAN
 #			59 MIN 59 SEC
 #			ARE DISPLAYED AS
@@ -789,7 +784,7 @@
 #			(MAX 163.83)
 #
 # -N-
-# TIME (SEC) DP		XXX.XX SEC		DP	BIT 1 OF LOW REGISTER =
+# TIME(SEC) DP		XXX.XX SEC		DP	BIT 1 OF LOW REGISTER =
 #							  -2
 #							10   SEC
 #
@@ -800,7 +795,7 @@
 #
 # -Q-
 # POSITION 4		XXXX.XX NAUTICAL MILES	DP	BIT 1 OF LOW REGISTER =
-#							2 METERS.
+#							2 METERS
 #
 # -S-
 # VELOCITY 3		XXXX.X FT/SEC		DP	BIT 1 OF HIGH REGISTER =
@@ -836,27 +831,27 @@
 # -LL-
 # POSITION6		XXXX.X NAUT MI		DP	BIT 1 OF LOW REG =
 #									    -28
-#							(6,373,338)(2(PI))x2
+#							(6,373,338)(2(PI))X2
 #							-----------------------
-#								1852
-#							NAUT MI.
+#								 1852
+#							NAUT. MI.
 #
 # -MM-
 # DRAG ACCELERATION	XXX.XX G		DP	BIT 1 OF LOW REGISTER =
 #			MAX (024.99)			    -28
-#							25x2    G
+#							25X2    G
 #
 # -PP-
 # 2 INTEGERS		+XXBYY			DP	BIT 1 OF HIGH REGISTER =
-#			(B IS A BLANK				1 UNIT OF XX
+#			(B IS A BLANK			 1 UNIT OF XX
 #			POSITION.  DECIMAL		BIT 1 OF LOW REGISTER =
-#			ONLY, DISPLAY, OR			1 UNIT OF YY
-#			MONITOR ONLY.  CANNOT		(EACH REGISTER MUST
-#			BE LOADED.)			LESS THAN 100.)
-#			(MAX 99B99)
+#			ONLY, DISPLAY, OR		 1 UNIT OF YY
+#			MONITOR ONLY. CANNOT		(EACH REGISTER MUST
+#			BE LOADED.)                     CONTAIN A POSITIVE INTEGER
+#			(MAX 99B99)                      LESS THAN 100)
 #
 # -UU-
-# VELOCITY/2VS		XXXXX. FEET/SEC		DP	FRACTIONAL PART OF 
+# VELOCITY/2VS		XXXXX. FEET/SEC		DP	FRACTIONAL PART OF
 #			(MAX 51532.)			2VS FEET/SEC
 #							(VS = 25766.1973)
 
@@ -865,15 +860,15 @@
 # -VV-
 # POSITION8		XXXX.X NAUT MI		DP	BIT 1 OF LOW REGISTER =
 #									 -28
-#							4 x 6,373,338 x 2
+#							4 X 6,373,338 X 2
 #							--------------------
-#								1852
+#							      1852
 #							NAUT MI.
 #
 # -XX-
-# POSITION 9		XXX.XX NAUT MI		DP	BIT 1 OF LOW REGISTER =
-#			(MAX 283.09)			 -9
-#							2   METERS.
+# POSITION 9		XXXXX. FEET		DP	BIT 1 OF LOW REGISTER =
+#							 -9
+#							2   METERS
 #
 # -YY-
 # VELOCITY 4		XXXX.X FEET/SEC		DP	FRACTIONAL PART OF
@@ -884,114 +879,111 @@
 #							 -14
 #							2    UNITS
 
-
-# THAT'S ALL ON THE NOUNS.
+# THAT-S ALL ON THE NOUNS.
 
 # Page 23
 
 # ALARM CODES FOR 504
 
-# REPORT DEFICIENCIES TO JOHN SUTHERLAND:  MIT 617-864-6900 X1458
+# REPORT DEFICIENCIES TO JOHN SUTHERLAND @ MIT 617-864-6900 X1458
 
-# *9		*18						*60			*25  COLUMN
+# *9		*18						*60			                *25  COLUMN
 #
-# CODE       *	TYPE						SET BY			ALARM ROUTINE
+# CODE       *	TYPE						SET BY			                ALARM ROUTINE
 #
-# 00110		NO MARK SINCE LAST MARK REJECT			SXTMARK			ALARM
-# 00112		MARK NOT BEING ACCEPTED				SXTMARK			ALARM
-# 00113		NO NBITS					SXTMARK			ALARM
-# 00114		MARK MADE BUT NOT DESIRED			SXTMARK			ALARM
-# 00115		OPTICS TORQUE REQUEST WITH SWITCH NOT AT	EXT VERB OPTICS CDU	ALARM
-# 			CGC
-# 00116		OPTICS SWITCH ALTERED BEFORE 15 SEC ZERO	T4RUPT			ALARM
-#			TIME ELAPSED.
-# 00117		OPTICS TORQUE REQUEST WITH OPTICS NOT		EXT VERB OPTICS CDU	ALARM
-#			AVAILABLE (OPTIND=-0)
-# 00120		OPTICS TORQUE REQUEST WITH OPTICS		T4RUPT			ALARM
-#			NOT ZEROED.
-# 00121		CDUS NO GOOD AT TIME OF MARK			SXTMARK			ALARM
-# 00122		MARKING NOT CALLED FOR				SXTMARK			ALARM
-# 00124		P17 TPI SEARCH - NO SAFE PERICTR HERE.		TPI SEARCH		ALARM
-# 00205		BAD PIPA READING				SERVICER		ALARM
-# 00206		ZERO ENCODE NOT ALLOWED WITH COARSE ALIGN	IMU MODE SWITCHING	ALARM
-# 			+ GIMBAL LOCK.
-# 00207		ISS TURNON REQUEST NOT PRESENT FOR 90 SEC	T4RUPT			ALARM
-# 00210		IMU NOT OPERATING				IMU MODE SWITCH,	ALARM, VARALARM
-#								IMU-2, R02, P51
-# 00211		COARSE ALIGN ERROR - DRIVE > 2 DEGREES		IMU MODE SWITCH		ALARM
-# 00212		PIPA FAIL BUT PIPA IS NOT BEING USED		IMU MODE SWITCH, T4RUPT	ALARM
-# 00213		IMU NOT OPERATING WITH TURN-ON REQUEST		T4RUPT			ALARM
-# 00214		PROGRAM USING IMU WHEN TURNED OFF		T4RUPT			ALARM
-# 00215		PREFERRED ORIENTATION NOT SPECIFIED		P52,P54			ALARM
-# 00217		BAD RETURN FROM STALL ROUTINES			CURTAINS		ALARM2
-# 00220		IMU NOT ALIGNED - NO REFSMMAT			R02,P51			VARALARM
-# 00401		DESIRED GIMBAL ANGLES YIELD GIMBAL LOCK		IMF ALIGN, IMU-2	ALARM
-# 00404		TARGET OUT OF VIEW - TRUN ANGLE > 90 DEG	R52			PRIOLARM
-# 00405		TWO STARS NOT AVAILABLE				P52,P54			ALARM
-# 00406		REND NAVIGATION NOT OPERATING			P21,R23			ALARM
-# 00407		AUTO OPTICS REQUEST TRUN ANGLE > 50 DEG.	R52			ALARM
-# 00421		W-MATRIX OVERFLOW				INTEGRV			ALARM
-# 00430	     *	INTEG. ABORT DUE TO SUBSURFACE S. V.		ALL CALLS TO INTEG	POODOO
-# 00600		IMAGINARY ROOTS ON FIRST ITERATION		P32, P72		VARALARM
-# 00601		PERIGEE ALTITUDE LT PMIN1			P32,P72			VARALARM
-# 00602		PERIGEE ALTITUDE LT PMIN2			P32,P72			VARALARM
-# 00603		CSI TO CDH TIME LT PMIN22			P32,P72,P33,P73		VARALARM
-# 00604		CDH TO TPI TIME LT PMIN23			P32,P72			VARALARM
-# 00605		NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM	P32,P72,P37		VARALARM
-# 00606		DV EXCEEDS MAXIMUM				P32,P72			VARALARM
-# 00607	     *	NO SOLN FROM TIME-THETA OR TIME-RADIUS		TIMETHET,TIMERAD	POODOO
+# 00110		NO MARK SINCE LAST MARK REJECT			SXTMARK			                ALARM
+# 00112		MARK NOT BEING ACCEPTED				SXTMARK			                ALARM
+# 00113		NO INBITS					SXTMARK			                ALARM
+# 00114		MARK MADE BUT NOT DESIRED			SXTMARK			                ALARM
+# 00115		OPTICS TORQUE REQUESTWITH SWITCH NOT AT	        EXT VERB OPTICS CDU	                ALARM
+# 		 CGC
+# 00116		OPTICS SWITCH ALTERED BEFORE 15 SEC ZERO	T4RUPT			                ALARM
+#		 TIME ELAPSED.
+# 00117		OPTICS TORQUE REQUEST WITH OPTICS NOT		EXT VERB OPTICS CDU	                ALARM
+#		 AVAILABLE (OPTIND=-0)
+# 00120		OPTICS TORQUE REQUEST WITH OPTICS		T4RUPT			                ALARM
+#		 NOT ZEROED
+# 00121		CDUS NO GOOD AT TIME OF MARK			SXTMARK			                ALARM
+# 00122		MARKING NOT CALLED FOR				SXTMARK			                ALARM
+# 00124		P17 TPI SEARCH - NO SAFE PERICTR HERE.		TPI SEARCH		                ALARM
+# 00205		BAD PIPA READING				SERVICER		                ALARM
+# 00206		ZERO ENCODE NOT ALLOWED WITH COARSE ALIGN	IMU MODE SWITCHING	                ALARM
+# 		 + GIMBAL LOCK
+# 00207		ISS TURNON REQUEST NOT PRESENT FOR 90 SEC	T4RUPT			                ALARM
+# 00210		IMU NOT OPERATING				IMU MODE SWITCH, IMU-2, R02, P51        ALARM,VARALARM
+# 00211		COARSE ALIGN ERROR - DRIVE > 2 DEGREES		IMU MODE SWITCH		                ALARM
+# 00212		PIPA FAIL BUT PIPA IS NOT BEING USED		IMU MODE SWITCH,T4RUPT	                ALARM
+# 00213		IMU NOT OPERATING WITH TURN-ON REQUEST		T4RUPT			                ALARM
+# 00214		PROGRAM USING IMU WHEN TURNED OFF		T4RUPT			                ALARM
+# 00215		PREFERRED ORIENTATION NOT SPECIFIED		P52,P54			                ALARM
+# 00217		BAD RETURN FROM STALL ROUTINES.			CURTAINS		                ALARM2
+# 00220		IMU NOT ALIGNED - NO REFSMMAT			R02,P51			                VARALARM
+# 00401		DESIRED GIMBAL ANGLES YIELD GIMBAL LOCK		IMF ALIGN, IMU-2	                ALARM
+# 00404		TARGET OUT OF VIEW - TRUN ANGLE > 90 DEG	R52			                PRIOLARM
+# 00405		TWO STARS NOT AVAILABLE				P52,P54			                ALARM
+# 00406		REND NAVIGATION NOT OPERATING			P21,R23			                ALARM
+# 00407		AUTO OPTICS REQUEST TRUN ANGLE > 50 DEG.	R52			                ALARM
+# 00421		W-MATRIX OVERFLOW				INTEGRV			                ALARM
+# 00430	     *	INTEG. ABORT DUE TO SUBSURFACE S. V.		ALL CALLS TO INTEG	                POODOO
+# 00600		IMAGINARY ROOTS ON FIRST ITERATION		P32, P72		                VARALARM
+# 00601		PERIGEE ALTITUDE LT PMIN1			P32,P72,		                VARALARM
+# 00602		PERIGEE ALTITUDE LT PMIN2			P32,P72,		                VARALARM
+# 00603		CSI TO CDH TIME LT PMIN22			P32,P72,P33,P73		                VARALARM
+# 00604		CDH TO TPI TIME LT PMIN23			P32,P72			                VARALARM
+# 00605		NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM	P32,P72,P37		                VARALARM
+# 00606		DV EXCEEDS MAXIMUM				P32,P72			                VARALARM
+# 00607	     *	NO SOLN FROM TIME-THETA OR TIME-RADIUS		TIMETHET,TIMERAD	                POODOO
 
 # Page 24
 
-# 00610      *	LAMBDA LESS THAN UNITY				P37			POODOO
-# 00611		NO TIG FOR GIVEN ELEV ANGLE			P34,P74			VARALARM
-# 00612		STATE VECTOR IN WRONG SPHERE OF INFLUENCE	P37			VARALARM
-# 00613		REENTRY ANGLE OUT OF LIMITS			P37			VARALARM
-# 00777		PIPA FAIL CAUSED ISS WARNING.			T4RUPT			VARALARM
-# 01102		CMC SELF TEST ERROR							ALARM2
-# 01103      *	UNUSED CCS BRANCH EXECUTED			ABORT			ALARM2
-# 01104      *	DELAY ROUTINE BUSY				EXEC			BAILOUT
-# 01105		DOWNLINK TOO FAST				T4RUPT			ALARM
-# 01106		UPLINK TOO FAST					T4RUPT			ALARM
-# 01107		PHASE TABLE FAILURE.  ASSUME			RESATRT			ALARM
+# 00610      *	LAMBDA LESS THAN UNITY				P37			                POODOO
+# 00611		NO TIG FOR GIVEN ELEV ANGLE			P34,P74			                VARALARM
+# 00612		STATE VECTOR IN WRONG SPHERE OF INFLUENCE	P37			                VARALARM
+# 00613		REENTRY ANGLE OUT OF LIMITS			P37			                VARALARM
+# 00777		PIPA FAIL CAUSED ISS WARNING.			T4RUPT			                VARALARM
+# 01102		CMC SELF TEST ERROR							                ALARM2
+# 01103      *	UNUSED CCS BRANCH EXECUTED			ABORT			                ALARM2
+# 01104      *	DELAY ROUTINE BUSY				EXEC			                BAILOUT
+# 01105		DOWNLINK TOO FAST				T4RUPT			                ALARM
+# 01106		UPLINK TOO FAST					T4RUPT			                ALARM
+# 01107		PHASE TABLE FAILURE. ASSUME			RESATRT			                ALARM
 #		ERASABLE MEMORY IS DESTROYED
-# 01201	     *	EXECUTIVE OVERFLOW - NO VAC AREAS		EXEC			BAILOUT
-# 01202	     *	EXECUTIVE OVERFLOW - NO CORE SETS		EXEC			BAILOUT
-# 01203      *	WAITLIST OVERFLOW - TOO MANY TASKS		WAITLIST		BAILOUT
-# 01204      *	NEGATIVE OR ZERO WAITLIST CALL			WAITLIST		POODOO
-# 01206      *	SECOND JOB ATTEMPTS TO GO TO SLEEP		PINBALL			P00DOO
-#			VIA KEYBOARD AND DISPLAY PROGRAM
-# 01207      *	NO VAC AREA FOR MARKS				SXTMARK			BAILOUT
-# 01210	     *	TWO PROGRAMS USING DEVICE AT SAME TIME		IMU MODE SWITCH		P00DOO
-# 01211      *	ILLEGAL INTERRUPT OF EXTENDED VERB		SXTMARK			BAILOUT
-# 01301		ARCSIN-ARCCOS ARGUMENT TOO LARGE		INTERPRETER		ALARM
-# 01302      *	SQRT CALLED WITH NEGATIVE ARGUMENT. ABORT.	INTERPRETER		P00DOO
-# 01407		VG INCREASING					S40.8			ALARM
-# 01426		IMU UNSATISFACTORY				P61,P62			ALARM
-# 01427		IMU REVERSED					P61,P62			ALARM
-# 01501	     *	KEYBOARD AND DISPLAY ALARM DURING		PINBALL			P00DOO
-#			INTERNAL USE (NVSUB). ABORT.
-# 01502	     *	ILLEGAL FLASHING DISPLAY			GOPLAY			P00DOO
-# 01520		V37 REQUEST NOT PERMITTED AT THIS TIME		V37			ALARM
-# 01521	     *	P01 ILLEGALLY SELECTED				P01, P07		POODOO
-# 01600		OVERFLOW IN DRIFT TEST				OPT PRE ALIGN CALIB	ALARM
-# 01601      *	BAD IMU TORQUE - ABORT.				OPT PRE ALIGN CALIB	ALARM
-# 01602		BAD OPTICS DURING VERIFICATION			OPTALGN CALIB (CSM)	ALARM
-# 01703		INSUF. TIME FOR INTEG., TIG WAS SLIPPED		R41			ALARM
-# 03777		ICDU FAIL CAUSED THE ISS WARNING		T4RUPT			VARALARM
-# 04777		ICDU, PIPA FAILS CAUSED THE ISS WARNING		T4RUPT			VARALARM
-# 07777		IMU FAIL CAUSED THE ISS WARNING			T4RUPT			VARALARM
-# 10777		IMU, PIPA FAILS CAUSED THE ISS WARNING		T4RUPT			VARALARM
-# 13777		IMU, ICDU FAILS CAUSED THE ISS WARNING		T4RUPT			VARALARM
-# 14777		IMU, ICDU, PIPA FAILS CAUSED THE ISS WARNING	T4RUPT			VARALARM
-#
-# 	     *	INDICATES ABORT TYPE. ALL OTHERS ARE NON-ABORTIVE
+# 01201	     *	EXECUTIVE OVERFLOW-NO VAC AREAS		        EXEC			                BAILOUT
+# 01202	     *	EXECUTIVE OVERFLOW-NO CORE SETS		        EXEC			                BAILOUT
+# 01203      *	WAITLIST OVERFLOW-TOO MANY TASKS		WAITLIST		                BAILOUT
+# 01204      *	NEGATIVE OR ZERO WAITLIST CALL			WAITLIST		                POODOO
+# 01206      *	SECOND JOB ATTEMPTS TO GO TO SLEEP		PINBALL			                P00DOO
+#		VIA KEYBOARD AND DISPLAY PROGRAM
+# 01207      *	NO VAC AREA FOR MARKS				SXTMARK			                BAILOUT
+# 01210	     *	TWO PROGRAMS USING DEVICE AT SAME TIME		IMU MODE SWITCH		                P00DOO
+# 01211      *	ILLEGAL INTERRUPT OF EXTENDED VERB		SXTMARK			                BAILOUT
+# 01301		ARCSIN-ARCCOS ARGUMENT TOO LARGE		INTERPRETER		                ALARM
+# 01302      *	SQRT CALLED WITH NEGATIVE ARGUMENT.ABORT	INTERPRETER		                P00DOO
+# 01407		VG INCREASING					S40.8			                ALARM
+# 01426		IMU UNSATISFACTORY				P61, P62			        ALARM
+# 01427		IMU REVERSED					P61, P62			        ALARM
+# 01501	     *	KEYBOARD AND DISPLAY ALARM DURING		PINBALL			                P00DOO
+#		 INTERNAL USE (NVSUB). ABORT.
+# 01502	     *	ILLEGAL FLASHING DISPLAY			GOPLAY			                P00DOO
+# 01520		V37 REQUEST NOT PERMITTED AT THIS TIME		V37			                ALARM
+# 01521	     *	P01 ILLEGALLY SELECTED				P01, P07                                POODOO
+# 01600		OVERFLOW IN DRIFT TEST				OPT PRE ALIGN CALIB	                ALARM
+# 01601      	BAD IMU TORQUE  				OPT PRE ALIGN CALIB	                ALARM
+# 01602		BAD OPTICS DURING VERIFICATION			OPTALGN CALIB (CSM)	                ALARM
+# 01703		INSUF. TIME FOR INTEG., TIG WAS SLIPPED		R41			                ALARM
+# 03777		ICDU FAIL CAUSED THE ISS WARNING		T4RUPT			                VARALARM
+# 04777		ICDU , PIPA FAILS CAUSED THE ISS WARNING	T4RUPT			                VARALARM
+# 07777		IMU FAIL CAUSED THE ISS WARNING			T4RUPT			                VARALARM
+# 10777		IMU , PIPA FAILS CAUSED THE ISS WARNING		T4RUPT			                VARALARM
+# 13777		IMU , ICDU FAILS CAUSED THE ISS WARNING		T4RUPT			                VARALARM
+# 14777		IMU,ICDU,PIPA FAILS CAUSED THE ISSWNING	        T4RUPT			                VARALARM
+# 	     *	INDICATES ABORT TYPE.ALL OTHERS ARE NON-ABORTIVE
 
 # Page 25
 
-# CHECKLIST CODES FOR 504
+#               CHECKLIST CODES FOR 504
 
-# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND.
+#               PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND
 
 # *9		*17		*26  COLUMN
 #
@@ -1006,24 +998,23 @@
 # 00203		SWITCH		TO CMC-AUTO
 # 00204		PERFORM		SPS GIMBAL TRIM
 # 00403		SWITCH		OPTICS TO MANUAL OR ZERO
-#
-#		SWITCH DENOTES CHANGE OF POSITION OF A CONSOLE SWITCH
-#		PERFORM DENOTES START OF END OF A TASK
-#		KEY IN DENOTES KEY IN OF DATA THRU THE DSKY
+#		                  SWITCH DENOTES CHANGE POSITION OF A CONSOLE SWITCH
+#		                  PERFORM DENOTES START OF END OF A TASK
+#		                  KEY IN DENOTES KEY IN OF DATA THRU THE DSKY
 
 # Page 26
 
-# OPTION CODES FOR 504
+#          OPTION CODES FOR 504
 
-# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND.
+#          PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND
 
-# THE SPECIFIED OPTION CODES WILL BE FLASHED IN COMPONENT R1 IN 
+# THE SPECIFIED OPTION CODES WILL BE FLASHED IN COMPONENT R1 IN
 # CONJUNCTION WITH VERB04NOUN06 TO REQUEST THE ASTRONAUT TO LOAD INTO
 # COMPONENT R2 THE OPTION HE DESIRES.
 
 # *9		*17				#52				#11		#25  COLUMNN
 #
-# OPTION	
+# OPTION
 # CODE		PURPOSE				INPUT FOR COMPONENT 2		PROGRAM(S)	APPLICABILITY
 #
 # 00001		SPECIFY IMU ORIENTATION		1=PREF 2=NOM 3=REFSMMAT		P50'S		ALL
@@ -1033,9 +1024,8 @@
 # 00005		SPECIFY SOR PHASE		1=FIRST 2=SECOND		P38		COLOSSUS + LUMINARY
 # 00006		SPECIFY RR COARSE ALIGN OPTION	1=LOCKON 2=CONTINUOUS DESIG.	V41N72		SUNDANCE + LUMINARY
 # 00007		SPECIFY PROPULSION SYSTEM	1=SPS 2=RCS			P37		COLOSSUS
-# 00010		SPECIFY ALIGNMENT MODE		0=ANY TIME 1=REFSMMAT + G	P57		LUMINARY	
+# 00010		SPECIFY ALIGNMENT MODE		0=ANY TIME 1=REFSMMAT +G	P57		LUMINARY
 #						2=TWO BODIES 3=ONE BODY + G
 # 00011		SPEC. SEPARATION MONITOR PHASE	1=DELTAV 2=STATE VECTOR UPDATE	P46		LUMINARY
 # 00012		SPECIFY CSM ORBIT OPTION	1=NO ORBIT CHANGE 2=CHANGE	P22		LUMINARY
 #						ORBIT TO PASS OVER LM
-

Comanche055/PHASE_TABLE_MAINTENANCE.agc

@@ -96,7 +96,7 @@ DSPMMJOB	EQUALS	DSPMMJB
 #
 # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
 #	TL0 00P PPP PPP GGG
-# WHERE EACH LETTER OR NUMBER STANTS FOR A BIT.  THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE,
+# WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE,
 # OCTAL 0 - 127.  0'S MUST BE 0.  IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
 # T IS SET TO 1, OTHERWISE IT IS SET TO 0.  SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
 # IT IS SET TO 0.  SOME EXAMPLES,