missing Luminary099 files retrieved from virtualagc at https://github.com/rburkey2005/virtualagc/tree/master/Luminary099

2016-07-31 16:32:55 -06:00
parent dcff8992a1
commit a57cd3faa5
51 changed files with 43692 additions and 0 deletions
--- a/Luminary099/INTERRUPT_LEAD_INS.agc
+++ b/Luminary099/INTERRUPT_LEAD_INS.agc
@ -0,0 +1,117 @@
+# Copyright:	Public domain.
+# Filename:	INTERRUT_LEAD_INS.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:	Onno Hommes <ohommes@cmu.edu>.
+# Website:	www.ibiblio.org/apollo.
+# Pages:	0153-0154
+# Mod history:	2009-05-14 OH	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 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 001 of AGC program LMY99 by NASA 2021112-61
+#	16:27 JULY 14, 1969 
+
+
+# Page 153
+		SETLOC	4000 
+		
+		COUNT*	$$/RUPTS	# FIX-FIX LEAD INS
+		INHINT			# GO
+		CAF	GOBB
+		XCH	BBANK
+		TCF	GOPROG
+		
+		DXCH	ARUPT		# T6RUPT
+		EXTEND
+		DCA	T6ADR
+		DTCB
+		
+		DXCH	ARUPT		# T5RUPT -- AUTOPILOT
+		EXTEND
+		DCA	T5ADR
+		DTCB
+		
+		DXCH	ARUPT		# T3RUPT
+		CAF	T3RPTBB
+		XCH	BBANK
+		TCF	T3RUPT
+		
+		DXCH	ARUPT		# T4RUPT
+		CAF	T4RPTBB
+		XCH	BBANK
+		TCF	T4RUPT
+		
+		DXCH	ARUPT		# KEYRUPT1
+		CAF	KEYRPTBB
+		XCH	BBANK
+		TCF	KEYRUPT1
+		
+		DXCH	ARUPT		# KEYRUPT2
+		CAF	MKRUPTBB
+		XCH	BBANK
+		TCF	MARKRUPT
+		
+		DXCH	ARUPT		# UPRUPT
+		CAF	UPRPTBB
+		XCH	BBANK
+		TCF	UPRUPT
+		
+		DXCH	ARUPT		# DOWNRUPT
+		CAF	DWNRPTBB
+		XCH	BBANK
+		TCF	DODOWNTM
+		
+		DXCH	ARUPT		# RADAR RUPT
+		CAF	RDRPTBB
+# Page 154
+		XCH	BBANK
+		TCF	RADAREAD
+		
+		DXCH	ARUPT		# RUPT10 IS USED ONLY BY LANDING GUIDANCE
+		CA	RUPT10BB
+		XCH	BBANK
+		TCF	PITFALL
+
+
+		EBANK=	LST1		# RESTART USES E0, E3
+GOBB		BBCON	GOPROG
+
+		EBANK=	PERROR
+T6ADR		2CADR	DOT6RUPT
+
+		EBANK=	LST1
+T3RPTBB		BBCON	T3RUPT
+
+		EBANK=	KEYTEMP1
+KEYRPTBB	BBCON	KEYRUPT1
+
+		EBANK=	AOTAZ
+MKRUPTBB	BBCON	MARKRUPT
+
+UPRPTBB		=	KEYRPTBB
+
+		EBANK=	DNTMBUFF
+DWNRPTBB	BBCON	DODOWNTM
+
+		EBANK=	RADMODES
+RDRPTBB		BBCON	RADAREAD
+
+		EBANK=	M11
+T4RPTBB		BBCON	T4RUPT
+
+		EBANK=	ELVIRA
+RUPT10BB	BBCON	PITFALL
+