Reorganized files to separate Luminary099 source code from Comanche055 source code

Comanche055/S-BAND_ANTENNA_FOR_CM.s

@@ -0,0 +1,129 @@
+# Copyright:	Public domain.
+# Filename:	S-BAND_ANTENNA_FOR_CM.agc
+# Purpose:	Part of the source code for Colossus 2A, AKA Comanche 055.
+#		It is part of the source code for the Command Module's (CM)
+#		Apollo Guidance Computer (AGC), for Apollo 11.
+# Assembler:	yaYUL
+# Contact:	Jim Lawton <jim.lawton@gmail.com>.
+# Website:	www.ibiblio.org/apollo.
+# Pages:	934-935
+# Mod history:	2009-05-11 JVL	Adapted from the Colossus249/ file
+#				of the same name, using Comanche055 page
+#				images.
+#
+# This source code has been transcribed or otherwise adapted from digitized
+# images of a hardcopy from the MIT Museum.  The digitization was performed
+# by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
+# 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
+# (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 
+#
+#    This AGC program shall also be referred to as
+#            Colossus 2A
+
+# Page 934
+# S-BAND ANTENNA FOR CM
+
+		BANK	23
+		SETLOC	SBAND
+		BANK
+		
+		COUNT*	$$/R05
+		EBANK=	EMSALT
+		
+SBANDANT	TC	BANKCALL	# V 64 E GETS US HERE
+		CADR	R02BOTH		# CHECK IF IMU IS ON AND ALIGNED
+		TC	INTPRET
+		RTB	CALL
+			LOADTIME	# PICKUP CURRENT TIME SCALED B-28
+			CDUTRIG		# COMPUTE SINES AND COSINES OF CDU ANGLES
+		STCALL	TDEC1		# ADVANCE INTEGRATION TO TIME IN TDEC1
+			CSMCONIC	# USING CONIC INTEGRATION
+		SLOAD	BHIZ		# ORIGIN OF REFERENCE INERTIAL SYSTEM IS
+			X2		# EARTH = 0, MOON = 2
+			EISOI
+		VLOAD
+			RATT
+		STORE	RCM		# MOVE RATT TO PREVENT WIPEOUT
+		DLOAD	CALL		# MOON, PUSH ON
+			TAT		# GET ORIGINAL TIME
+			LUNPOS		# COMPUTE POSITION VECTOR OF MOON
+		VAD	VCOMP		# R= -(REM+RCM) = NEG. OF S/C POS. VEC
+			RCM
+		GOTO
+			EISOI +2
+EISOI		VLOAD	VCOMP		# EARTH, R= -RCM
+			RATT
+		SETPD	MXV		# RCS TO STABLE MEMBER: B-1X B-29X B+1
+			2D		# 2D
+			REFSMMAT	# STABLE MEMBER.  B-1X B-29X B+1= B-29
+		VSL1	PDDL		# 8D
+			HI6ZEROS
+		STOVL	YAWANG		# ZERO OUT YAWANG, SET UP FOR SMNB
+			RCM		# TRANSFORMATION.  SM COORD.  SCALED B-29
+		CALL
+			*SMNB*
+		STORE	R		# SAVE NAV. BASE COORDINATES
+		UNIT	PDVL		# 14D
+			R
+		VPROJ	VSL2		# COMPUTE PROJECTION OF VECTOR INTO CM
+			HIUNITZ		# XY-PLANE, R-(R.UZ)UZ
+		BVSU	BOV		# CLEAR OVERFLOW INDICATOR IF SET
+			R
+			COVCNV
+COVCNV		UNIT	BOV		# TEST OVERFLOW FOR INDICATION OF NULL
+			NOADJUST	# VECTOR
+		PUSH	DOT		# 20D
+# Page 935
+			HIUNITX		# COMPUTE YAW ANGLE = ACOS (URP.UX)
+		SL1	ACOS		# REVOLUTIONS SCALED B0
+		PDVL	DOT		# 22D YAWANG
+			URP
+			HIUNITY		# COMPUTE FOLLOWING: URP.UY
+		SL1	BPL		# POSITIVE
+			NOADJUST	# YES, 0-180 DEGREES
+		DLOAD	DSU		# NO, 181-360 DEGREES 20D
+			DPPOSMAX	# COMPUTE 2 PI MINUS YAW ANGLE
+		PUSH			# 22D YAWANG
+NOADJUST	VLOAD	DOT		# COMPUTE PITCH ANGLE
+			UR		# ACOS (UR.UZ) - PI/2
+			HIUNITZ
+		SL1	ACOS		# REVOLUTIONS B0
+		DSU
+			HIDP1/4
+		STODL	RHOSB
+			YAWANG
+		STORE	GAMMASB		# PATCH FOR CHECKOUT
+		EXIT
+		CA	EXTVBACT	# IS BIT 5 STILL ON
+		MASK	BIT5
+		EXTEND
+		BZF	ENDEXT		# NO, WE HAVE BEEN ANSWERED
+		CAF	V06N51		# DISPLAY ANGLES
+		TC	BANKCALL
+		CADR	GOMARKFR
+		TC	B5OFF		# TERMINATE
+		TC	B5OFF
+		TC	ENDOFJOB	# RECYCLE
+		CAF	BIT3		# IMMEDIATE RETURN
+		TC	BLANKET		# BLANK R3
+		CAF	BIT1		# DELAY MINIMUM TIME TO ALLOW DISPLAY IN
+		TC	BANKCALL
+		CADR	DELAYJOB
+		TCF	SBANDANT +2
+V06N51		VN	0651
+RCM		EQUALS	2D
+UR		EQUALS	8D
+URP		EQUALS	14D
+YAWANG		EQUALS	20D
+PITCHANG	EQUALS	22D
+R		EQUALS	RCM
+		SBANK=	LOWSUPER
+