Source Code

050802,000001: # Copyright: Public domain. 050803,000002: # Filename: INTERPRETATIVE_CONSTANTS.agc 050804,000003: # Purpose: Part of the source code for Colossus, build 249. 050805,000004: # It is part of the source code for the Command Module's (CM) 050806,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 050807,000006: # Assembler: yaYUL 050808,000007: # Reference: pp. 1187-1188 1701.pdf. 050809,000008: # Contact: Ron Burkey <info@sandroid.org>. 050810,000009: # Website: www.ibiblio.org/apollo. 050811,000010: # Mod history: 08/29/04 RSB. Adapted from corresponding Luminary 131 file. 050812,000011: 050813,000012: # The contents of the "Colossus249" files, in general, are transcribed 050814,000013: # from a scanned document obtained from MIT's website, 050815,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 050816,000015: # document read, in part: 050817,000016: 050818,000017: # Assemble revision 249 of AGC program Colossus by NASA 050819,000018: # 2021111-041. October 28, 1968. 050820,000019: 050821,000020: # This AGC program shall also be referred to as 050822,000021: # Colossus 1A 050823,000022: 050824,000023: # Prepared by 050825,000024: # Massachussets Institute of Technology 050826,000025: # 75 Cambridge Parkway 050827,000026: # Cambridge, Massachusetts 050828,000027: # under NASA contract NAS 9-4065. 050829,000028: 050830,000029: # Refer directly to the online document mentioned above for further information. 050831,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 050832,000031: 050833,000032: # In some cases, where the source code for Luminary 131 overlaps that of 050834,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 050835,000034: # source file, and then is proofed to incorporate any changes. 050836,000035: 050837,000036: # Page 1187 050838,000037: 26,2000 SETLOC INTPRET1 050839,000038: 26,2000 BANK 050840,000039: 050841,000040: 26,3321 COUNT 23/ICONS 050842,000041: 050843,000042: 26,3321 10000 00000 DP1/4TH 2DEC .25 050844,000043: 26,3323 00000 00000 UNITZ 2DEC 0 B-28 050845,000044: 26,3325 00000 00000 UNITY 2DEC 0 B-28 050846,000045: 26,3327 20000 00000 UNITX 2DEC .5 050847,000046: 26,3331 00000 00000 ZEROVECS 2DEC 0 B-28 050848,000047: 26,3333 00000 00000 2DEC 0 B-28 050849,000048: 26,3335 00000 00000 2DEC 0 B-28 050850,000049: 050851,000050: 26,3337 26,3327 DPHALF = UNITX 050852,000051: 26,3337 37777 DPPOSMAX OCT 37777 050853,000052: 26,3340 37777 OCT 37777 050854,000053: 050855,000054: # Page 1188 050856,000055: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY 050857,000056: 050858,000057: 04,2000 SETLOC INTPRET2 050859,000058: 04,2000 BANK 050860,000059: 050861,000060: 04,3447 COUNT 14/ICONS 050862,000061: 050863,000062: 04,3447 00000 00000 ZUNIT 2DEC 0 B-28 050864,000063: 04,3451 00000 00000 YUNIT 2DEC 0 B-28 050865,000064: 04,3453 20000 00000 XUNIT 2DEC .5 050866,000065: 04,3455 00000 00000 ZEROVEC 2DEC 0 B-28 050867,000066: 04,3457 00000 00000 2DEC 0 B-28 050868,000067: 04,3461 00000 00000 2DEC 0 B-28 050869,000068: 050870,000069: 04,3463 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER 050871,000070: 04,3464 77771 DFC-6 DEC -6 B-14 050872,000071: 04,3465 77763 DFC-12 DEC -12 B-14 050873,000072: 04,3466 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUS REMAIN 050874,000073: 04,3470 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION 050875,000074: 050876,000075: 04,3472 04,3455 ZERODP = ZEROVEC 050877,000076: 04,3472 04,3453 HALFDP = XUNIT 050878,000077: 050879,000078: 050880,000079: 050881,000080: End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc