Source Code
052231,000001: # Copyright: Public domain.
052232,000002: # Filename: INTERPRETIVE_CONSTANTS.agc
052233,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052234,000004: # It is part of the source code for the Command Module's (CM)
052235,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
052236,000006: # Assembler: yaYUL
052237,000007: # Contact: Ron Burkey <info@sandroid.org>.
052238,000008: # Website: www.ibiblio.org/apollo.
052239,000009: # Pages: 1205-1206
052240,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052241,000011: # same name, using Comanche055 page images.
052242,000012:
052243,000013: # This source code has been transcribed or otherwise adapted from digitized
052244,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
052245,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052246,000016: # thanks to both. The images (with suitable reduction in storage size and
052247,000017: # consequent reduction in image quality as well) are available online at
052248,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
052249,000019: # illegible, contact me at info@sandroid.org about getting access to the
052250,000020: # (much) higher-quality images which Paul actually created.
052251,000021:
052252,000022: # Notations on the hardcopy document read, in part:
052253,000023:
052254,000024: # Assemble revision 055 of AGC program Comanche by NASA
052255,000025: # 2021113-051. 10:28 APR. 1, 1969
052256,000026:
052257,000027: # This AGC program shall also be referred to as
052258,000028: # Colossus 2A
052259,000029:
052260,000030: # Page 1205
052261,000031: 26,2000 SETLOC INTPRET1
052262,000032: 26,2000 BANK
052263,000033:
052264,000034: 26,3324 COUNT 23/ICONS
052265,000035:
052266,000036: 26,3324 10000 00000 DP1/4TH 2DEC .25
052267,000037:
052268,000038: 26,3326 00000 00000 UNITZ 2DEC 0 B-28
052269,000039:
052270,000040: 26,3330 00000 00000 UNITY 2DEC 0 B-28
052271,000041:
052272,000042: 26,3332 20000 00000 UNITX 2DEC .5
052273,000043:
052274,000044: 26,3334 00000 00000 ZEROVECS 2DEC 0 B-28
052275,000045:
052276,000046: 26,3336 00000 00000 2DEC 0 B-28
052277,000047:
052278,000048: 26,3340 00000 00000 2DEC 0 B-28
052279,000049:
052280,000050: 26,3342 26,3332 DPHALF = UNITX
052281,000051: 26,3342 37777 DPPOSMAX OCT 37777
052282,000052: 26,3343 37777 OCT 37777
052283,000053:
052284,000054: # Page 1206
052285,000055: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
052286,000056:
052287,000057: 04,2000 SETLOC INTPRET2
052288,000058: 04,2000 BANK
052289,000059:
052290,000060: 04,3557 COUNT 14/ICONS
052291,000061:
052292,000062: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
052293,000063:
052294,000064: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
052295,000065:
052296,000066: 04,3563 20000 00000 XUNIT 2DEC .5
052297,000067:
052298,000068: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
052299,000069:
052300,000070: 04,3567 00000 00000 2DEC 0 B-28
052301,000071:
052302,000072: 04,3571 00000 00000 2DEC 0 B-28
052303,000073:
052304,000074: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
052305,000075: 04,3574 77771 DEC-6 DEC -6 B-14
052306,000076: 04,3575 77763 DEC-12 DEC -12 B-14
052307,000077: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
052308,000078:
052309,000079: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
052310,000080:
052311,000081: 04,3602 04,3565 ZERODP = ZEROVEC
052312,000082: 04,3602 04,3563 HALFDP = XUNIT
052313,000083:
052314,000084:
052315,000085:
052316,000086:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc