Add remaining Apollo 11 source

AGS_INITIALIZATION.s

@@ -0,0 +1,229 @@
+# Copyright:	Public domain.
+# Filename:	AGS_INITIALIZATION.agc
+# Purpose: 	Part of the source code for Luminary 1A build 099.
+#		It is part of the source code for the Lunar Module's (LM)
+#		Apollo Guidance Computer (AGC), for Apollo 11.
+# Assembler:	yaYUL
+# Contact:	Hartmuth Gutsche <[email protected]>.
+# Website:	www.ibiblio.org/apollo.
+# Pages:	206-210
+# Mod history:	2009-05-19 HG	Transcribed from 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 [email protected]
+# about getting access to the (much) higher-quality images which Paul
+# actually created.
+#
+# Notations on the hardcopy document read, in part:
+#
+#	Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
+#	16:27 JULY 14, 1969 
+
+# Page 206
+
+# PROGRAM NAME:  AGS INITIALIZIZATION (R47)
+#
+# WRITTEN BY:  RHODE/KILROY/FOLLETT
+#
+# MOD NO.:	0
+# DATE:		23 MARCH 1967
+# MOD BY:	KILROY
+#
+# MOD NO.:	1
+# DATE:		28 OCTOBER 1967
+# MOD BY:	FOLLETT
+#
+# FUNCT. DESC.:	(1) TO PROVIDE THE AGS ABORT ELECTRONICS ASSEMBLY (AEA) WITH THE LEM AND CSM STATE VECTORS
+#		(POSITION,VELOCITY,TIME) IN LEM IMU COORDINATES BY MEANS OF THE LGC DIGITAL DOWNLINK.
+#
+#		(2) TO ZERO THE ICDU, LGC, AND AEA GIMBAL ANGLE COUNTER SIMULTANEOUSLY IN ORDER TO ESTABLISH A
+#		COMMON ZERO REFERENCE FOR THE MEASUREMENT OF GIMBAL (EULER) ANGLES WHICH DEFINE LEM ATTITUDE
+#
+#		(3) TO ESTABLISH THE GROUND ELAPSED TIME OF AEA CLOCK ZERO.  (IF AN AEA CLOCK ZERO IS
+#		REQUESTED DURING THIS PROGRAM
+#
+# LOG SECTION:	AGS INITIALIZATION
+#
+# CALLING SEQ:	PROGRAM IS ENTERED WHEN ASTRONAUT KEYS V47E ON DSKY.
+#		R47 MAY BE CALLED AT ANY TIME EXCEPT WHEN ANOTHER EXTENDED VERB IS IN PROGRESS
+#
+# SUBROUTINES
+# CALLED:
+#
+# NORMAL EXIT:	ENDEXT
+#
+# ALARM/ABORT:	ALARM -- BAD REFSMMAT -- CODE:220
+#		OPERATOR ERROR IF V47 SELECTED DURING ANOTHER EXTENDED VERB.
+#
+# ERASABLES
+# USED:		SAMPTIME	(2)	TIME OF :ENTER: KEYSTROKE
+#		AGSK		(2)	GROUND ELAPSED TIME OF THE AEA CLOCK :ZERO:
+#		AGSBUFF		(140)	CONTAINS AGS INITIALIZATION DATA (SEE :OUTPUT: BELOW)
+#		AGSWORD		(1)	PREVIOUS DOWNLIST SAVED HERE
+
+		EBANK=	AGSBUFF
+
+		BANK	40
+		SETLOC	R47
+		BANK
+
+		COUNT*	$$/R47
+
+AGSINIT		CAF	REFSMBIT
+		MASK	FLAGWRD3			# CHECK REFSMFLG.
+		CCS	A
+# Page 207
+		TC	REDSPTEM			# REFSMMAT IS OK
+		TC	ALARM				# REFSMMAT IS BAD
+		OCT	220
+		TC	ENDEXT
+
+NEWAGS		EXTEND
+		DCA	SAMPTIME			# TIME OF THE :ENTER: KEYSTROKE
+		DXCH	AGSK				# BECOMES NEW AEA CLOCK :ZERO:
+
+REDSPTEM	EXTEND
+		DCA	AGSK
+		DXCH	DSPTEMX
+AGSDISPK	CAF	V06N16
+		TC	BANKCALL			# R1 = 00XXX. HRS., R2 = 000XX MIN.,
+		CADR	GOMARKF				# R3 = 0XX.XX SEC.
+		TC	ENDEXT				# TERMINATE RETURN
+		TC	AGSVCALC			# PROCEED RETURN
+		CS	BIT6				# IS ENTER VIA A V32
+		AD	MPAC
+		EXTEND
+		BZF	NEWAGS				# YES, USE KEYSTROKE TIME FOR NEW AGSK
+
+		EXTEND					# NO, NEW AGSK LOADED VIA V25
+		DCA	DSPTEMX				# LOADED INTO DSPTEMX BY KEYING
+		TC	REDSPTEM -1			# V25E FOLLOWED BY HRS.,MINS.,SECS.
+							# DISPLAY THE NEW K.
+
+AGSVCALC	TC	INTPRET
+		SET
+			NODOFLAG			# DON'T ALLOW V37
+		SET	EXIT
+			XDSPFLAG
+
+		CAF	V06N16
+		TC	BANKCALL
+		CADR	EXDSPRET
+
+		TC	INTPRET				# EXTRAPOLATE LEM AND CSM STATE VECTORS
+		RTB					# TO THE PRESENT TIME
+			LOADTIME			# LOAD MPAC WITH TIME2,TIME1
+		STCALL	TDEC1				# CALCULATE LEM STATE VECTOR
+			LEMPREC
+		CALL					# CALL ROUTINE TO CONVERT TO SM COORDS AND
+			SCALEVEC			# PROVIDE PROPER SCALING
+		STODL	AGSBUFF				# (LEMPREC AND CSMPREC LEAVE TDEC1 IN TAT)
+			TAT				# TAT = TIME TO WHICH RATT1 AND VATT1 ARE
+		STCALL	TDEC1				# COMPUTED (CSEC SINCE CLOCK START B-28).
+			CSMPREC				# CALCULATE CSM STATE VECTOR FOR SAME TIME
+		CALL
+			SCALEVEC
+# Page 208
+		STODL	AGSBUFF +6
+			TAT
+		DSU	DDV				# CALCULATE AND STORE THE TIME
+			AGSK
+			TSCALE
+		STORE	AGSBUFF +12D
+		EXIT
+
+		CAF	LAGSLIST
+		TS	DNLSTCOD
+
+		CAF	20SEC				# DELAY FOR 20 SEC WHILE THE AGS
+		TC	BANKCALL			# DOWNLIST IS TRANSMITTED
+		CADR	DELAYJOB
+
+		CA	AGSWORD
+		TS	DNLSTCOD			# RETURN TO THE OLD DOWNLIST
+		CAF	IMUSEBIT
+		MASK	FLAGWRD0			# CHECK IMUSE FLAG.
+		CCS	A
+		TC	AGSEND				# IMU IS BEING USED -- DO NOT ZERO
+CKSTALL		CCS	IMUCADR				# CHECK FOR IMU USAGE WHICH AVOIDS THE
+		TCF	+3				# IMUSE BIT:  I.E., IMU COMPENSATION.
+		TCF	+6				# FREE.  GO AHEAD WITH THE IMU ZERO.
+		TCF	+1
+ +3		CAF	TEN				# WAIT .1 SEC AND TRY AGAIN.
+ 		TC	BANKCALL
+		CADR	DELAYJOB
+		TCF	CKSTALL
+
+ +6		TC	BANKCALL			# IMU IS NOT IN USE
+ 		CADR	IMUZERO				# SET IMU ZERO DISCRETE FOR 320 MSECS.
+		TC	BANKCALL			# WAIT 3 SEC FOR COUNTERS TO INCREMENT
+		CADR	IMUSTALL
+		TC	AGSEND
+AGSEND		TC	DOWNFLAG			# ALLOW V37
+		ADRES	NODOFLAG
+
+		CAF	V50N16
+		TC	BANKCALL
+		CADR	GOMARK3
+		TCF	ENDEXT
+		TCF	ENDEXT
+		TC	ENDEXT
+
+SCALEVEC	VLOAD	MXV
+			VATT1
+			REFSMMAT
+		VXSC	VSL2
+			VSCALE
+# Page 209
+		VAD	VAD				# THIS SECTION ROUNDS THE VECTOR, AND
+			AGSRND1				# CORRECTS FOR THE FACT THAT THE AGS
+			AGSRND2				# IS A 2'S COMPLEMENT MACHINE WHILE THE
+		RTB					# LGC IS A 1'S COMPLEMENT MACHINE.
+			VECSGNAG
+		STOVL	VATT1
+			RATT1
+		MXV	VXSC
+			REFSMMAT
+			RSCALE
+		VSL8	VAD				# AGAIN THIS SECTION ROUNDS.  TWO VECTORS
+			AGSRND1				# ARE ADDED TO DEFEAT ALSIGNAG IN THE
+		VAD	RTB				# CASE OF A HIGH-ORDER ZERO COUPLED WITH
+			AGSRND2				# A LOW ORDER NEGATIVE PART.
+			VECSGNAG
+		LXA,1
+			VATT1
+		SXA,1	LXA,1
+			MPAC +1
+			VATT1 +2
+		SXA,1	LXA,1
+			MPAC +4
+			VATT1 +4
+		SXA,1	RVQ
+			MPAC +6
+
+LAGSLIST	=	ONE
+V01N14		VN	0114
+V50N00A		VN	5000
+V00N25		EQUALS	OCT31
+V06N16		VN	0616
+V00N34		EQUALS	34DEC
+V50N16		VN	5016
+TSCALE		2DEC	100 B-10			# CSEC TO SEC SCALE FACTOR
+20SEC		DEC	2000
+RSCALE		2DEC	3.280839 B-3			# METERS TO FEET SCALE FACTOR
+VSCALE		2DEC	3.280839 E2 B-9			# METERS/CS TO FEET/SEC SCALE FACTOR
+AGSRND1		2OCT	0000060000
+		2OCT	0000060000
+		2OCT	0000060000
+AGSRND2		2OCT	0000037777
+		2OCT	0000037777
+S# Page 210
+		2OCT	0000037777
+
+		SBANK=	LOWSUPER			# FOR SUBSEQUENT LOW 2CADRS.
+