Reorganized files to separate Luminary099 source code from Comanche055 source code

Comanche055/INTERPRETIVE_CONSTANTS.s

@@ -0,0 +1,86 @@
+# Copyright:	Public domain.
+# Filename:	INTERPRETIVE_CONSTANTS.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:	Ron Burkey <info@sandroid.org>.
+# Website:	www.ibiblio.org/apollo.
+# Pages:	1205-1206
+# Mod history:	2009-05-13 RSB	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 1205
+		SETLOC	INTPRET1
+		BANK
+
+		COUNT	23/ICONS
+		
+DP1/4TH		2DEC	.25
+
+UNITZ		2DEC	0
+
+UNITY		2DEC	0
+
+UNITX		2DEC	.5
+
+ZEROVECS	2DEC	0
+
+		2DEC	0
+		
+		2DEC	0
+
+DPHALF		=	UNITX
+DPPOSMAX	OCT	37777
+		OCT	37777
+
+# Page 1206
+# INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
+
+		SETLOC	INTPRET2
+		BANK
+
+		COUNT	14/ICONS
+		
+ZUNIT		2DEC	0
+
+YUNIT		2DEC	0
+
+XUNIT		2DEC	.5
+
+ZEROVEC		2DEC	0
+
+		2DEC	0
+		
+		2DEC	0
+
+		OCT	77777		# -0, -6, -12 MUST REMAIN IN THIS ORDER
+DEC-6		DEC	-6
+DEC-12		DEC	-12
+LODPMAX		2OCT	3777737777	# THESE TWO CONSTANTS MUST REMAIN
+
+LODPMAX1	2OCT	3777737777	# ADJACENT AND THE SAME FOR INTEGRATION
+
+ZERODP		=	ZEROVEC
+HALFDP		=	XUNIT
+
+
+
+