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