Source Code
050847,000001: # Copyright: Public domain.
050848,000002: # Filename: INTERPRETATIVE_CONSTANTS.agc
050849,000003: # Purpose: Part of the source code for Colossus, build 249.
050850,000004: # It is part of the source code for the Command Module's (CM)
050851,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
050852,000006: # Assembler: yaYUL
050853,000007: # Reference: pp. 1187-1188 1701.pdf.
050854,000008: # Contact: Ron Burkey <info@sandroid.org>.
050855,000009: # Website: www.ibiblio.org/apollo.
050856,000010: # Mod history: 08/29/04 RSB. Adapted from corresponding Luminary 131 file.
050857,000011:
050858,000012: # The contents of the "Colossus249" files, in general, are transcribed
050859,000013: # from a scanned document obtained from MIT's website,
050860,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
050861,000015: # document read, in part:
050862,000016:
050863,000017: # Assemble revision 249 of AGC program Colossus by NASA
050864,000018: # 2021111-041. October 28, 1968.
050865,000019:
050866,000020: # This AGC program shall also be referred to as
050867,000021: # Colossus 1A
050868,000022:
050869,000023: # Prepared by
050870,000024: # Massachusetts Institute of Technology
050871,000025: # 75 Cambridge Parkway
050872,000026: # Cambridge, Massachusetts
050873,000027: # under NASA contract NAS 9-4065.
050874,000028:
050875,000029: # Refer directly to the online document mentioned above for further information.
050876,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
050877,000031:
050878,000032: # In some cases, where the source code for Luminary 131 overlaps that of
050879,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
050880,000034: # source file, and then is proofed to incorporate any changes.
050881,000035:
050882,000036: # Page 1187
050883,000037: 26,2000 SETLOC INTPRET1
050884,000038: 26,2000 BANK
050885,000039:
050886,000040: 26,3321 COUNT 23/ICONS
050887,000041:
050888,000042: 26,3321 10000 00000 DP1/4TH 2DEC .25
050889,000043: 26,3323 00000 00000 UNITZ 2DEC 0 B-28
050890,000044: 26,3325 00000 00000 UNITY 2DEC 0 B-28
050891,000045: 26,3327 20000 00000 UNITX 2DEC .5
050892,000046: 26,3331 00000 00000 ZEROVECS 2DEC 0 B-28
050893,000047: 26,3333 00000 00000 2DEC 0 B-28
050894,000048: 26,3335 00000 00000 2DEC 0 B-28
050895,000049:
050896,000050: 26,3337 26,3327 DPHALF = UNITX
050897,000051: 26,3337 37777 DPPOSMAX OCT 37777
050898,000052: 26,3340 37777 OCT 37777
050899,000053:
050900,000054: # Page 1188
050901,000055: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050902,000056:
050903,000057: 04,2000 SETLOC INTPRET2
050904,000058: 04,2000 BANK
050905,000059:
050906,000060: 04,3447 COUNT 14/ICONS
050907,000061:
050908,000062: 04,3447 00000 00000 ZUNIT 2DEC 0 B-28
050909,000063: 04,3451 00000 00000 YUNIT 2DEC 0 B-28
050910,000064: 04,3453 20000 00000 XUNIT 2DEC .5
050911,000065: 04,3455 00000 00000 ZEROVEC 2DEC 0 B-28
050912,000066: 04,3457 00000 00000 2DEC 0 B-28
050913,000067: 04,3461 00000 00000 2DEC 0 B-28
050914,000068:
050915,000069: 04,3463 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
050916,000070: 04,3464 77771 DFC-6 DEC -6 B-14
050917,000071: 04,3465 77763 DFC-12 DEC -12 B-14
050918,000072: 04,3466 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUS REMAIN
050919,000073: 04,3470 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
050920,000074:
050921,000075: 04,3472 04,3455 ZERODP = ZEROVEC
050922,000076: 04,3472 04,3453 HALFDP = XUNIT
050923,000077:
050924,000078:
050925,000079:
050926,000080:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc