Proofed the comments in the first half of the program (through p. 553,

end of Q,R AXES REACTION CONTROL SYSTEM AUTOPILOT), using octopus/ProoferComments, including completing the proofing on those files that I had only tentatively done some proofing before. (It's also possible that there are a couple of omitted pages not processed by octopus, which I'll come back to later.) Lots and lots of comments fixed.
3rdvision · Dec 5, 2016 · 12973b0 · 12973b0
1 parent e5e2ec8
commit 12973b0
Show file tree

Hide file tree

Showing 28 changed files with 456 additions and 393 deletions.
diff --git a/Sunburst120/ALARM_AND_ABORT.agc b/Sunburst120/ALARM_AND_ABORT.agc
@@ -10,6 +10,8 @@
 ## Mod history:	2016-09-30 RSB	Created draft version.
 ##		2016-10-14 RSB	Transcribed.
 ##		2016-10-31 RSB	Typos.
+##		2016-12-05 RSB	Comment-proofing pass with octopus/ProoferComments completed;
+##				changes made.
 
 ## Page 313
 # PROGRAM DESCRIPTION					  DATE- 9 FEB 1967
@@ -68,7 +70,7 @@ LARMLARM	TC	GRABDSP
 		TCF	ENDOFJOB
 		TCF	DOALARM	+1
 
-DOALARM		TC	GRABWAIT	# DISPLAY FAILREG
+DOALARM		TC	GRABWAIT	# DISPLAY FAILREG.
 		CAF	FAILDISP
 		TC	NVSBWAIT
 
@@ -86,9 +88,9 @@ JETABORT	TC	ALARM
 # CALLING SEQUENCE,
 
 #		TC	ALARM
-#		OCT	AAANN		# ALARM NO. NN IN GENERAL AREA AAA.
+#		OCT	AAANN		ALARM NO. NN IN GENERAL AREA AAA.
 
-#					# (RETURNS HERE)
+#					(RETURNS HERE)
 
 
 		BLOCK	02

diff --git a/Sunburst120/AOTMARK.agc b/Sunburst120/AOTMARK.agc
@@ -15,6 +15,8 @@
 ##		2016-11-01 RSB	More typos.
 ##		2016-12-04 RSB	Fixed various typos in the comments, using octopus/ProoferComments.
 ##				However, don't regard the comments as completely proofed yet.
+##		2016-12-05 RSB	Comment-proofing pass with octopus/ProoferComments completed;
+##				changes made.
 
 ## Page 159
 		BANK	13
@@ -236,9 +238,9 @@ SOMEKEY		CAF	OCT140		# NOT MARK OR MARK REJECT
 		RAND	NAVKEYIN
 		EXTEND
 ## Page 164		
-		BZF	+3		# IF NO INBITS
+		BZF	+3		# IF NO INBITS.
 
-		TC	POSTJUMP	# IF DESCENT BITS
+		TC	POSTJUMP	# IF DESCENT BITS.
 		CADR	DESCBITS
 
  +3		TC	ALARM	
@@ -252,11 +254,11 @@ XMKRUPT		CAF	ZERO
 YMKRUPT		CAF	ONE
 		TS	RUPTREG1	# SET Y MARK STORE INDEX TO ONE
 		CAF	BIT11
-		TS	XYMARK		# SET MARK IDENTIFICATION
+		TS	XYMARK		# SET MARK ID
 
 		MASK	MARKSTAT
 		CCS	A
-		TC	+2		# THIS MARK NOT DESIRED
+		TC	+2		# MARK MADE BUT NOT DESIRED
 		TC	VACSTOR		# MARK DESIRED AND MADE-STORE CDUS
 		TC	ALARM
 		OCT	114

diff --git a/Sunburst120/DAPIDLER_PROGRAM.agc b/Sunburst120/DAPIDLER_PROGRAM.agc
@@ -11,12 +11,14 @@
 ##               2016-10-21 HG   Transcribed
 ##		 2016-10-31 RSB	 Typos.
 ##		 2016-11-01 RSB	 More typos.
+##		 2016-12-05 RSB	 Comment-proofing with octopus/ProoferComments
+##				 completed, changes made.
 
 ## Page 487
 # THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART.             THE DAPIDLER PROGRAM IS DONE 10 TIMES
 # PER SECOND UNTIL THE ASTRONAUT DESIRES THE DAP TO WAKE UP, AND THE IMU AND CDUS ARE READY FOR USE BY THE DAP.
 # THE NECESSARY INITIALIZATION OF THE DAP IS DONE BY THE DAPIDLER PROGRAM.
-# ADDITIONAL WORK MUST BE DONE ON DAPIDLER IN THE FURTURE.
+# ADDITIONAL WORK MUST BE DONE ON DAPIDLER IN THE FUTURE.
 
 
 
@@ -73,7 +75,7 @@ DAPIDLEI        CAF             DATAGOOD
 
 STARTDAP        TC              IBNKCALL
                 FCADR           STOPRATE
-                CAF             ZERO                    # *********** INITIALIZE: *********
+                CAF             ZERO                    # ********** INITIALIZE: **********
                 TS              TIME6                   # T6RUPT CLOCK
                 TS              TP                      # RATE DERIVATION DTS
                 TS              TQR
@@ -92,7 +94,7 @@ STARTDAP        TC              IBNKCALL
                 TS              T6NEXT          +1
                 TS              ADDT6JTS
                 TS              ADDTLT6
-                TS              DELAYCTR                # MINIMUM IMPULSE RHC MODE COINTER.
+                TS              DELAYCTR                # MINIMUM IMPULSE RHC MODE COUNTER.
                 TS              ALPHAQ                  # DESCENT ACCELERATION ESTIMATES.
                 TS              ALPHAR
                 TS              DISPLACT                # EIGHTBALL ROUTINE SWITCH.
@@ -101,7 +103,7 @@ STARTDAP        TC              IBNKCALL
 # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
 
 INSRT16B        TCF             PROTCTOR                # RESTART PROTECT ENGINE-ON AND GIMBAL
-
+							#   DRIVE BITS.
 # **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
 
                 CAF             BIT2                    # CHECK FOR STAGE
@@ -113,7 +115,7 @@ INSRT16B        TCF             PROTCTOR                # RESTART PROTECT ENGINE
                 BZF             +9D                     # (BRANCH FOR ASCENT.)
 
                 CAF             ZERO                    # 1/ACCS BRANCHING VALUE IS ZERO FOR
-                TS              -.06R/S2                # DESCENT IN LM DAP
+                TS              -.06R/S2                # DESCENT LM DAP.
 
                 EXTEND                                  # SET DESCENT URGENCY LIMIT = 1.5 SECONDS
                 DCA             URGLMDWN                # AS BOUND TO USE MAXIMUM JETS.
@@ -160,6 +162,8 @@ INSRT16B        TCF             PROTCTOR                # RESTART PROTECT ENGINE
                 DXCH            WFORP                   # WFORQR = K/DT = K/.15 = 1/.15 = 0.41667
 
 ## Page 490
+# SET UP WAITLIST CALL TO RESET WFORP AND WFORQR:
+
                 CAF             180MS
                 TC              WAITLIST
                 EBANK=          WFORQR

diff --git a/Sunburst120/DAP_INTERFACE_SUBROUTINES.agc b/Sunburst120/DAP_INTERFACE_SUBROUTINES.agc
@@ -11,6 +11,8 @@
 ##		2016-10-18 RSB	Completed transcription.
 ##		2016-10-31 RSB	Typos.
 ##		2016-11-01 RSB	More typos.
+##		2016-12-05 RSB	Comment-proofing with octopus/ProoferComments
+##				completed, changes made.
 
 ## Page 473
 		BANK	20
@@ -20,7 +22,7 @@
 
 # FUNCTIONAL DESCRIPTION
 
-#	   HEREIN IS A COLLECTION OF SUBROUTINES WHICH ALLOW MISSION CONTROL PROGRAMS TO CONTROL THE MODE
+#	   HEREIN ARE A COLLECTION OF SUBROUTINES WHICH ALLOW MISSION CONTROL PROGRAMS TO CONTROL THE MODE
 #	   AND INTERFACE WITH THE DAP.
 
 # CALLING SEQUENCES
@@ -39,15 +41,17 @@
 #	   SEE INDIVIDUAL ROUTINES BELOW
 
 # DEBRIS
-#	   A, L, AND SOMETIMES MDUETEMP
+#	   A,L, AND SOMETIMES MDUETEMP
 
 ## Page 474
+# DAPBOOLS BITS AND NAMES
+
 OURRCBIT	EQUALS	BIT1		# INTERNAL DAP RATE COMMAND ACTIVITY FLAG
 TRYGIMBL	EQUALS	BIT2		# TRIM GIMBAL FLAG
 DATAGOOD	EQUALS	BIT3		# RECIPROCAL ACCELERATIONS OKAY FLAG
 ACC4OR2X	EQUALS	BIT4		# 2 OR 4 JET Z-TRANSLATION MODE FLAG
 AORBSYST	EQUALS	BIT5		# P-AXIS ROTATION JET SYSTEM (A OR B) FLAG
-ULLAGER		EQUALS	BIT6		# INTERNALL ULLAGE REQUEST FLAG
+ULLAGER		EQUALS	BIT6		# INTERNAL ULLAGE REQUEST FLAG
 DBSELECT	EQUALS	BIT7		# DAP DEADBAND SELECT FLAG
 APSGOING	EQUALS	BIT8		# ASCENT PROPULSION SYSTEM BURN FLAG
 VIZPHASE	EQUALS	BIT9		# DESCENT VISIBILITY PHASE FLAG
@@ -85,6 +89,7 @@ USEQRJTS	EQUALS	TRYGIMBL	# ALTERNATE TRIM GIMBAL FLAG
 #     		9      VIZPHASE	    51		     DESCENT VISIBILITY PHASE	   NOT IN DESCENT VISIBILITY
 #							(LOCKED ON 1)		      PHASE
 #	       10      PULSES       50		     MINIMUM IMPULSE RHC MODE	   RATE COMMAND RHC MODE
+#										      (LOCKED ON 0)
 #	       11      GODAPGO      49               DAP ENABLED		   DAP IDLING
 #	       12      MASSGOOD     48		     VALUE OF MASS PROBABLY	   VALUE OF MASS PROBABLY
 #							CORRECT			      INCORRECT
@@ -204,7 +209,7 @@ ALLCOAST	CAF	EBANK6
 		CAF	NEGONE		# MAKES SPECIAL DAP APS CODING INACTIVE
 		TS	AOSCOUNT
 		CAF	0.00444
-		TS	MINIMPDB	# IMPULSE DBS ARE SET OT 0.8 DEGREES.
+		TS	MINIMPDB	# IMPULSE DBS ARE SET TO 0.8 DEGREES.
 		TS	DBMNMPAX	# (AND P-AXIS VALUE)
 		TS	DBMINIMP
 
@@ -286,18 +291,18 @@ APSENGON	CAF	EBANK6
 
 -.06ACC		DEC	-.03820		# -0.06 RADIANS/SECOND(2) AT PI/2
 
-INPARAB		DEC	+.00333		# NOT FOR AS206 USE -.6DB NOT -DB
+INPARAB		DEC	+.00333		# NOTE FOR AS206 USE -.6DB NOT -DB
 
 DPSENGON	CA	EBANK		# SAVE CALLER'S EBANK
 		TS	TEVENT	+1	
-		CAF	GMBLMNAD	# GMBLEMON HANDLES THE TRIM GIMBAL ON/OFF
+		CAF	GMBLMNAD	# GIMBLMON HANDLES THE TRIM GIMBAL ON/OFF
 					# LOGIC AND EXITS TO PGNCSMON
 
 # START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
 
 INSERT20	TCF	SETCNTR		# SET FLAGS FOR CRITICAL GTS ENTRIES.
 
-# **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE  3 REMAKE, AUGUST 1967******************
+# **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE  3 REMAKE, AUGUST 1967*****************
 
 ## Page 480
 		CS	BIT4		# CLEAR GIMBLMON INHIBIT FLAG JUST IN CASE
@@ -367,12 +372,12 @@ ENGINOF1	CS	PRIO30		# TURN OFF THE ENGINE
 		MASK	FLAGWRD1	# OF NORMAL SHUTDOWN
 		TS	FLAGWRD1
 
-# START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
+# START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
 
 INSRT20A	TCF	RESETCTR	# GO DEACTIVATE EXTRAORDINARY GTS FLAGS.
 
 					# THEN RETURN TO CALLER.
-# **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE  3 REMAKE, AUGUST 1967******************
+# **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
 
 ENGINBIT	EQUALS	BIT5
 ASCURGLM	DEC	-0.25	B-9	# -0.25 SECONDS SCALED AT 2(+9).