Reorganized files to separate Luminary099 source code from Comanche055 source code

2016-07-10 16:53:06 -07:00
parent 0cf2742583
commit 104c1c3430
126 changed files with 0 additions and 0 deletions
--- a/Comanche055/INTERRUPT_LEAD_INS.s
+++ b/Comanche055/INTERRUPT_LEAD_INS.s
@ -0,0 +1,128 @@
+# Copyright:	Public domain.
+# Filename:	INTERRUPT_LEAD_INS.agc
+# Purpose:	Part of the source code for Comanche, build 055.
+#		It is part of the source code for the Command Module's (CM)
+#		Apollo Guidance Computer (AGC), Apollo 11.
+# Assembler:	yaYUL
+# Reference:	pp. 131-132
+# Contact:	Ron Burkey <info@sandroid.org>,
+#  		Fabrizio Bernardini <fabrizio@spacecraft.it>
+# Website:	http://www.ibiblio.org/apollo.
+# Mod history:	09/05/09 FB	Transcription of Batch FB-1 Assignment.
+#
+# The contents of the "Comanche055" files, in general, are transcribed 
+# from scanned documents. 
+#
+#	Assemble revision 055 of AGC program Comanche by NASA
+#	2021113-051.  April 1, 1969.  
+#
+#	This AGC program shall also be referred to as Colossus 2A
+#
+#	Prepared by
+#			Massachussets Institute of Technology
+#			75 Cambridge Parkway
+#			Cambridge, Massachusetts
+#
+#	under NASA contract NAS 9-4065.
+#
+# Refer directly to the online document mentioned above for further
+# information.  Please report any errors to info@sandroid.org.
+
+# Page 131
+		SETLOC	4000 
+		
+		COUNT	02/RUPTS
+		
+		INHINT			# GO
+		CAF	GOBB
+		XCH	BBANK
+		TCF	GOPROG
+		
+		DXCH	ARUPT		# T6RUPT
+		EXTEND
+		DCA	T6LOC
+		DTCB
+		
+		DXCH	ARUPT		# T5RUPT
+		CS	TIME5
+		AD	.5SEC
+		TCF	T5RUPT
+		
+		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
+# Page 132
+		CAF	RDRPTBB
+		XCH	BBANK
+		TCF	VHFREAD
+		
+		DXCH	ARUPT		# HAND CONTROL RUPT
+		CAF	HCRUPTBB
+		XCH	BBANK
+		TCF	RESUME +3	# NOT USED
+		
+		EBANK=	LST1		# RESTART USES E0,E3
+GOBB		BBCON	GOPROG
+
+		EBANK=	LST1
+T3RPTBB		BBCON	T3RUPT
+
+		EBANK=	KEYTEMP1
+KEYRPTBB	BBCON	KEYRUPT1
+
+		EBANK=	MRKBUF1
+MKRUPTBB	BBCON	MARKRUPT
+
+UPRPTBB		=	KEYRPTBB
+
+		EBANK=	DNTMBUFF
+DWNRPTBB	BBCON	DODOWNTM
+
+		EBANK=	DATATEST
+RDRPTBB		BBCON	VHFREAD
+
+		EBANK=	TIME1
+HCRUPTBB	BBCON	RESUME		# NOT USED
+
+		EBANK=	DSRUPTSW
+T4RPTBB		BBCON	T4RUPT
+
+		EBANK=	TIME1
+T5RPTBB		BBCON	T5RUPT
+
+T5RUPT		EXTEND
+		BZMF	NOQBRSM
+		EXTEND
+		DCA	T5LOC
+		DTCB
+		
+		
+