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