Update Fork

Luminary099/KALCMANU_STEERING.agc

@@ -67,16 +67,10 @@ INCRDCDU	TS	SPNDX
 		INDEX	SPNDX
 		MSU	NCDU
 		EXTEND
-
+		SETLOC	KALCMON1
-		# The following 2 lines seem to have no purpose at all.
+		BANK
-		# I am removing them because they only serve to confuse
-		# the assembler by getting in between EXTEND and MP.
-		#					--- RSB 2009.
-		#SETLOC	KALCMON1
-		#BANK
-
 		MP	DT/TAU
-		CCS	A		# CONVERT TO 2'S COMPLEMENT
+		CCS	A		# CONVERT TO 2S COMPLEMENT
 		AD	ONE
 		TCF	+2
 		COM
@@ -94,7 +88,7 @@ INCRDCDU	TS	SPNDX
 
 		RELINT
 
-# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER
+# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
 
 TMANUCHK	TC	TIMECHK
 		TCF	CONTMANU
@@ -213,7 +207,7 @@ MANUSTOP	CAF	ZERO		# ZERO MANEUVER RATES
 ENDROLL		CA	CPHI		# NO FINAL YAW
 		TS	CDUXD
 		CAF	ZERO
-		TS	OMEGAPD		# I.E., MANEUVER DID NOT GO THRU
+		TS	OMEGAPD		# I.E. MANEUVER DID NOT GO THRU
 		TS	DELDCDU		# GIMBAL LOCK ORIGINALLY
 		TS	DELPEROR
 GOODMANU	CA	ATTPRIO		# RESTORE USERS PRIO
@@ -225,5 +219,3 @@ GOODMANU	CA	ATTPRIO		# RESTORE USERS PRIO
 		TC	SPVAC		# RETURN TO USER
 
 		TC	TASKOVER
-
-

Luminary099/KEYRUPT_UPRUPT.agc

@@ -51,7 +51,7 @@ ACCEPTUP	CAF	CHRPRIO		# (NOTE: RUPTREG4 = KEYTEMP1)
 
 		CA	RUPTREG4
 		INDEX	LOCCTR
-		TS	MPAC		# LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN
+		TS	MPAC		# LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
 		TC	RESUME
 
 # Page 1339
@@ -83,9 +83,9 @@ UPRPT1		CAF	LOW5		# TEST FOR TRIPLE CHAR REDUNDANCY
 		COM
 		TC	UPTEST
 
-UPCK		CS	ELRCODE		# CODE IS GOOD.  IF CODE = `ERROR RESET',
+UPCK		CS	ELRCODE		# CODE IS GOOD. IF CODE = 'ERROR RESET',
 		AD	KEYTEMP1	# CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
-		EXTEND			# IF CODE DOES NOT = `ERROR RESET', ACCEPT
+		EXTEND			# IF CODE DOES NOT = 'ERROR RESET', ACCEPT
 		BZF	CLUPLOCK	# CODE ONLY IF UPLOCKFL IS CLEAR (=0).
 
 		CAF	UPLOCBIT	# TEST UPLOCKFL FOR 0 OR 1
@@ -94,7 +94,7 @@ UPCK		CS	ELRCODE		# CODE IS GOOD.  IF CODE = `ERROR RESET',
 		TC	RESUME		# UPLOCKFL = 1
 		TC	ACCEPTUP	# UPLOCKFL = 0
 
-CLUPLOCK	CS	UPLOCBIT	# CLEAR UPLOCKFL (I.E., SET BIT 4 OF
+CLUPLOCK	CS	UPLOCBIT	# CLEAR UPLOCKFL (I.E.,SET BIT 4 OF )
 		MASK	FLAGWRD7	# FLAGWRD7 = 0)
 		TS	FLAGWRD7
 		TC	ACCEPTUP
@@ -102,7 +102,7 @@ CLUPLOCK	CS	UPLOCBIT	# CLEAR UPLOCKFL (I.E., SET BIT 4 OF
 					# CODE IS BAD
 TMFAIL2		CS	FLAGWRD7	# LOCK OUT FURTHER UPLINK ACTIVITY
 		MASK	UPLOCBIT	# (BY SETTING UPLOCKFL = 1) UNTIL
-		ADS	FLAGWRD7	# `ERROR RESET' IS SENT VIA UPLINK.
+		ADS	FLAGWRD7	# 'ERROR RESET' IS SENT VIA UPLINK.
 		TC	RESUME
 UPTEST		AD	KEYTEMP1
 # Page 1340
@@ -114,19 +114,17 @@ HI10		OCT	77740
 
 ELRCODE		OCT	22
 
-# `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
+# 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
 #	   1.	  VBRELDSP
 #	   2.	  ERROR RESET
 #	   3.	  UPDATE PROGRAM(P27) ENTERED BY V70,V71,V72,AND V73.
-#				      _
-# THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
-# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
-# WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND `ERROR RESET' CODE.
-# (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
-# BY 15 ZEROS.  THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
-# FAILURE).
 #
+#				    _
+# THE RECEPTION OF A BAD CODE(I.E  CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
+# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
+# WHEN UPLINK ACTIVITY IS LOCKED OUT ,IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
+# (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
+# BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
+# FAILURE)
 # UPLINK ACTIVITY IS ALSO ALLOWED(UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
-
 		CS	XDSPBIT
-

Luminary099/LATITUDE_LONGITUDE_SUBROUTINES.agc

@@ -29,24 +29,24 @@
 # SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT
 #
 # CALLING SEQUENCE
+#
 #   L-1	   CALL
 #   L		  LAT-LONG
-#
 # SUBROUTINES USED
-#	R-TO-RP, ARCTAN, SFTGAMMA, SETRE
 #
+#  R-TO-RP,ARCTAN,SETGAMMA,SETRE
 # ERASABLE INIT. REQ.
+#
 #   AXO,-AYO,AZO,TEPHEM (SET AT LAUNCH TIME)
 # ALPHAV = POSITION VECTOR METERS B-29
 #   MPAC-- TIME  (CSECS B-28)
 #  ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
 #  LUNAFLAG=0 FOR EARTH,1 FOR MOON
-#
 # OUTPUT
+#
 #   LATITUDE IN LAT   (REVS. B-0)
 #   LONGITUDE IN LONG	(REVS. B-0)
 # ALTITUDE IN ALT METERS B-29
-
 		BANK	30
 		SETLOC	LATLONG
 		BANK
@@ -96,16 +96,16 @@ CALLRTRP	CALL
 		STCALL	ALT		# EXIT WITH ALT METERS B-29
 			INCORPEX
 # Page 1135
-# SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR
+# SUBROUTINE TO CONVERT LAT,LONG,ALT AT GIVEN TIME TO RADIUS VECTOR
-#
 # CALLING SEQUENCE
+#
 #   L-1	   CALL
 #   L		  LALOTORV
-#
 # SUBROUTINES USED
-#	SETGAMMA, SETRE, RP-TO-R
 #
+#  SETGAMMA,SETRE,RP-TO-R
 # ERASABLE INIT. REQ.
+#
 #   AXO,AYO,AZO,TEPHEM  SET AT LAUNCH TIME
 #   LAT-- LATITUDE  (REVS B0)
 #   LONG-- LONGITUDE  (REVS B0)
@@ -113,10 +113,9 @@ CALLRTRP	CALL
 #   MPAC-- TIME	 (CSECS B-28)
 #   ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
 #  LUNAFLAG=0 FOR EARTH,1 FOR MOON
-#
 # OUTPUT
+#
 # R-VECTOR IN ALPHAV (METERS B-29)
-
 LALOTORV	STQ	SETPD		# LAT,LONG,ALT TO R VECTOR
 			INCORPEX
 			0D
@@ -154,13 +153,14 @@ CALLRPRT	CALL
 		VSL1			# R METERS B-29
 		STCALL	ALPHAV		# EXIT WITH R IN METERS B-29
 			INCORPEX
-
 # SUBROUTINE TO COMPUTE EARTH RADIUS
 #
 # INPUT
+#
 #   1/2 SIN LAT IN ALPHAV +4
 #
 # OUTPUT
+#
 #   EARTH RADIUS IN ERADM AND MPAC (METERS B-29)
 
 GETERAD		DLOAD	DSQ
@@ -180,7 +180,6 @@ GETERAD		DLOAD	DSQ
 # B2XSC= B**2 SCALED B-51
 # B2/A2= B**2/A**2 SCALED B-1
 # EE=(1-B**2/A**2) SCALED B-0
-
 B2XSC		2DEC	.0179450689	# B**2 SCALED B-51
 DP1/2		=	XUNIT
 B2/A2		2DEC	.9933064884 B-1	# GAMMA= B**2/A**2 B-1
@@ -190,6 +189,7 @@ EE		2DEC	6.6935116 E-3	# (1-B**2/A**2) B-0
 # ARCTAN SUBROUTINE
 #
 # CALLING SEQUENCE
+#
 #   SIN THETA IN SINTH B-1
 #   COS THETA IN COSTH B-1
 #   CALL ARCTAN
@@ -234,7 +234,7 @@ ATAN=90		DLOAD	SIGN
 2DZERO		=	DPZERO
 
 # Page 1138
-# ***** SETGAMMA SUBROUTINE *****
+# ..... SETGAMMA SUBROUTINE .....
 # SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES
 #
 # GAMMA = B**2/A**2 FOR EARTH (B-1)
@@ -261,7 +261,7 @@ SETGMEX		STORE	GAMRP
 GAMRP		=	8D
 
 # Page 1139
-# ***** SETRE SUBROUTINE *****
+# .....SETRE SUBROUTINE .....
 # SUBROUTINE TO SET RE (EARTH OR MOON RADIUS)
 #
 # RE= RM FOR MOON
@@ -304,5 +304,3 @@ TSTRLSRM	BON	VLOAD		# ERADFLAG=0, SET R0=RLS
 		GOTO
 			SETRXX
 SETREX		=	S2
-
-