Trim whitespace

Luminary099/RCS_FAILURE_MONITOR.agc

@@ -22,7 +22,7 @@
 # Notations on the hardcopy document read, in part:
 #
 #	Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
-#	16:27 JULY 14, 1969 
+#	16:27 JULY 14, 1969
 
 # Page 190
 # PROGRAM DESCRIPTION:
@@ -72,60 +72,60 @@ RCSMONEX	EQUALS	RESUME
 # SUBROUTINE CALLED:  NOVAC.
 
 		EBANK=	CH5MASK
-		
+
 		BANK	23
 		SETLOC	RCSMONT
 		BANK
 # Page 191
 		COUNT*	$$/T4RCS
-		
+
 RCSMONIT	EQUALS	RCSMON
-		
+
 RCSMON		CS	ZERO
 		EXTEND
 		RXOR	CHAN32			# PICK UP + INVERT INVERTED CHANNEL 32.
 		MASK	LOW8			# KEEP JET-FAIL BITS ONLY.
 		TS	Q
-		
+
 		CS	PVALVEST		#       _   _
 		MASK	Q			# FORM PC + PC.
 		TS	L			# 	(P = PREVIOUS ISOLATION VALVE STATE,
 		CS	Q			#	 C = CURRENT VALVE STATE (CH32)).
 		MASK	PVALVEST
 		ADS	L			# RESULT NZ INDICATES ACTION REQUIRED.
-		
+
 		EXTEND
 		BZF	RCSMONEX		# QUIT IF NO ACTION REQUIRED.
-		
+
 		EXTEND
 		MP	BIT7			# MOVE BITS 8-1 OF A TO 14-7 OF L.
 		XCH	L			# ZERO TO L IN THE PROCESS.
-		
+
  -3		INCR	L
  		DOUBLE				# BOUND TO GET OVERFLOW IN THIS LOOP,
 		OVSK				# SINCE WE ASSURED INITIAL NZ IN A.
 		TCF	-3
-		
+
 		INDEX	L
 		CA	BIT8 -1			# SAVE THE RELEVANT BIT (8-1).
 		TS	Q
 		MASK	PVALVEST		# LOOK AT PREVIOUS VALVE STATE BIT.
 		CCS	A
 		TCF	VOPENED			# THE VALVE HAS JUST BEEN OPENED.
-		
+
 		CS	CH5MASK			# THE VALVE HAS JUST BEEN CLOSED.
 		INDEX	L
 		MASK	5FAILTAB
 		ADS	CH5MASK			# SET INHIBIT BIT FOR CHANNEL 5 JET.
-		
+
 		CS	CH6MASK
 		INDEX	L
 		MASK	6FAILTAB
 		ADS	CH6MASK			# SET INGIBIT BIT FOR CHANNEL 6 JET
-		
+
 		CA	Q
 		ADS	PVALVEST		# RECORD ACTION TAKEN.
-		
+
 		TCF	1/ACCFIX		# SET UP 1/ACCJOB AND EXIT.
 
 # Page 192
@@ -133,23 +133,23 @@ VOPENED		INDEX	L			# A VALVE HAS JUST BEEN OPENED.
 		CS	5FAILTAB
 		MASK	CH5MASK
 		TS	CH5MASK			# REMOVE INHIBIT BIT FOR CHANNEL 5 JET.
-		
+
 		INDEX	L
 		CS	6FAILTAB
 		MASK	CH6MASK
 		TS	CH6MASK			# REMOVE INHIBIT BIT FOR CHANNEL 6 JET.
-		
+
 		CS	Q
 		MASK	PVALVEST
 		TS	PVALVEST		# RECORD ACTION TAKEN.
-		
+
 1/ACCFIX	CAF	PRIO27			# SET UP 1/ACCS SO THAT THE SWITCH CURVES
 		TC	NOVAC			#	FOR TJETLAW CAN BE MODIFIED IF CH5MASK
 		EBANK=	AOSQ			#	HAS BEEN ALTERED.
 		2CADR	1/ACCJOB
-		
+
 		TCF	RCSMONEX		# EXIT.
-		
+
 5FAILTAB	EQUALS	-1			# CH 5 JET BIT CORRESPONDING TO CH 32 BIT:
 		OCT	00040			# 8
 		OCT	00020			# 7
@@ -159,7 +159,7 @@ VOPENED		INDEX	L			# A VALVE HAS JUST BEEN OPENED.
 		OCT	00001			# 3
 		OCT	00004			# 2
 		OCT	00002			# 1
-		
+
 6FAILTAB	EQUALS	-1			# CH 6 JET BIT CORRESPONDING TO CH 32 BIT:
 		OCT	00010			# 8
 		OCT	00020			# 7
@@ -169,5 +169,5 @@ VOPENED		INDEX	L			# A VALVE HAS JUST BEEN OPENED.
 		OCT	00002			# 3
 		OCT	00040			# 2
 		OCT	00100			# 1
-		
-		
+
+