Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
049638,000002: # Copyright: Public domain.
049639,000003: # Filename: INTERPRETIVE_CONSTANTS.agc
049640,000004: # Purpose: Part of the source code for Colossus build 237.
049641,000005: # This is for the Command Module's (CM) Apollo Guidance
049642,000006: # Computer (AGC), we believe for Apollo 8.
049643,000007: # Assembler: yaYUL
049644,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
049645,000009: # Website: www.ibiblio.org/apollo/index.html
049646,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049647,000011: # Mod history: 2011-03-12 JL Adapted from corresponding Colossus 249 file.
049648,000012:
049649,000013: # # Page 1187
049650,000014: 26,2000 SETLOC INTPRET1
049651,000015: 26,2000 BANK
049652,000016:
049653,000017: 26,3321 COUNT 23/ICONS
049654,000018:
049655,000019: 26,3321 10000 00000 DP1/4TH 2DEC .25
049656,000020: 26,3323 00000 00000 UNITZ 2DEC 0 B-28
049657,000021: 26,3325 00000 00000 UNITY 2DEC 0 B-28
049658,000022: 26,3327 20000 00000 UNITX 2DEC .5
049659,000023: 26,3331 00000 00000 ZEROVECS 2DEC 0 B-28
049660,000024: 26,3333 00000 00000 2DEC 0 B-28
049661,000025: 26,3335 00000 00000 2DEC 0 B-28
049662,000026:
049663,000027: 26,3337 26,3327 DPHALF = UNITX
049664,000028: 26,3337 37777 DPPOSMAX OCT 37777
049665,000029: 26,3340 37777 OCT 37777
049666,000030:
049667,000031: # # Page 1188
049668,000032: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
049669,000033:
049670,000034: 04,2000 SETLOC INTPRET2
049671,000035: 04,2000 BANK
049672,000036:
049673,000037: 04,3444 COUNT 14/ICONS
049674,000038:
049675,000039: 04,3444 00000 00000 ZUNIT 2DEC 0 B-28
049676,000040: 04,3446 00000 00000 YUNIT 2DEC 0 B-28
049677,000041: 04,3450 20000 00000 XUNIT 2DEC .5
049678,000042: 04,3452 00000 00000 ZEROVEC 2DEC 0 B-28
049679,000043: 04,3454 00000 00000 2DEC 0 B-28
049680,000044: 04,3456 00000 00000 2DEC 0 B-28
049681,000045:
049682,000046: 04,3460 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
049683,000047: 04,3461 77771 DEC-6 DEC -6 B-14
049684,000048: 04,3462 77763 DEC-12 DEC -12 B-14
049685,000049: 04,3463 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
049686,000050: 04,3465 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
049687,000051: 04,3467 04,3452 ZERODP = ZEROVEC
049688,000052: 04,3467 04,3450 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc