Source Code
052182,000001: # Copyright: Public domain.
052183,000002: # Filename: INTERPRETIVE_CONSTANTS.agc
052184,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052185,000004: # It is part of the source code for the Command Module's (CM)
052186,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
052187,000006: # Assembler: yaYUL
052188,000007: # Contact: Ron Burkey <info@sandroid.org>.
052189,000008: # Website: www.ibiblio.org/apollo.
052190,000009: # Pages: 1205-1206
052191,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052192,000011: # same name, using Comanche055 page images.
052193,000012:
052194,000013: # This source code has been transcribed or otherwise adapted from digitized
052195,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
052196,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052197,000016: # thanks to both. The images (with suitable reduction in storage size and
052198,000017: # consequent reduction in image quality as well) are available online at
052199,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
052200,000019: # illegible, contact me at info@sandroid.org about getting access to the
052201,000020: # (much) higher-quality images which Paul actually created.
052202,000021:
052203,000022: # Notations on the hardcopy document read, in part:
052204,000023:
052205,000024: # Assemble revision 055 of AGC program Comanche by NASA
052206,000025: # 2021113-051. 10:28 APR. 1, 1969
052207,000026:
052208,000027: # This AGC program shall also be referred to as
052209,000028: # Colossus 2A
052210,000029:
052211,000030: # Page 1205
052212,000031: 26,2000 SETLOC INTPRET1
052213,000032: 26,2000 BANK
052214,000033:
052215,000034: 26,3324 COUNT 23/ICONS
052216,000035:
052217,000036: 26,3324 10000 00000 DP1/4TH 2DEC .25
052218,000037:
052219,000038: 26,3326 00000 00000 UNITZ 2DEC 0 B-28
052220,000039:
052221,000040: 26,3330 00000 00000 UNITY 2DEC 0 B-28
052222,000041:
052223,000042: 26,3332 20000 00000 UNITX 2DEC .5
052224,000043:
052225,000044: 26,3334 00000 00000 ZEROVECS 2DEC 0 B-28
052226,000045:
052227,000046: 26,3336 00000 00000 2DEC 0 B-28
052228,000047:
052229,000048: 26,3340 00000 00000 2DEC 0 B-28
052230,000049:
052231,000050: 26,3342 26,3332 DPHALF = UNITX
052232,000051: 26,3342 37777 DPPOSMAX OCT 37777
052233,000052: 26,3343 37777 OCT 37777
052234,000053:
052235,000054: # Page 1206
052236,000055: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
052237,000056:
052238,000057: 04,2000 SETLOC INTPRET2
052239,000058: 04,2000 BANK
052240,000059:
052241,000060: 04,3557 COUNT 14/ICONS
052242,000061:
052243,000062: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
052244,000063:
052245,000064: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
052246,000065:
052247,000066: 04,3563 20000 00000 XUNIT 2DEC .5
052248,000067:
052249,000068: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
052250,000069:
052251,000070: 04,3567 00000 00000 2DEC 0 B-28
052252,000071:
052253,000072: 04,3571 00000 00000 2DEC 0 B-28
052254,000073:
052255,000074: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
052256,000075: 04,3574 77771 DEC-6 DEC -6 B-14
052257,000076: 04,3575 77763 DEC-12 DEC -12 B-14
052258,000077: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
052259,000078:
052260,000079: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
052261,000080:
052262,000081: 04,3602 04,3565 ZERODP = ZEROVEC
052263,000082: 04,3602 04,3563 HALFDP = XUNIT
052264,000083:
052265,000084:
052266,000085:
052267,000086:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc