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