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