Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

049890,000002:                                                                                                  ## Copyright:   Public domain.
049891,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
049892,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
049893,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
049894,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
049895,000007:                                                                                                  ## Assembler:   yaYUL
049896,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
049897,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049898,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049899,000011:                                                                                                  ## Mod history: 2011-03-12 JL   Adapted from corresponding Colossus 249 file.
049900,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
049901,000013:                                                                                                  ##                              and fixed errors found.
049902,000014: 

Page 1172

049904,000016: 26,2000                                           SETLOC   INTPRET1                              
049905,000017: 26,2000                                           BANK                                           
049906,000018: 
049907,000019: 26,3321                                           COUNT    23/ICONS                              
049908,000020: 
049909,000021: 26,3321           10000 00000  DP1/4TH            2DEC     .25                                   
049910,000022: 26,3323           00000 00000  UNITZ              2DEC     0          B-28                       
049911,000023: 26,3325           00000 00000  UNITY              2DEC     0          B-28                       
049912,000024: 26,3327           20000 00000  UNITX              2DEC     .5                                    
049913,000025: 26,3331           00000 00000  ZEROVECS           2DEC     0          B-28                       
049914,000026: 26,3333           00000 00000                     2DEC     0          B-28                       
049915,000027: 26,3335           00000 00000                     2DEC     0          B-28                       
049916,000028: 
049917,000029: 26,3337  26,3327               DPHALF             =        UNITX                                 
049918,000030: 26,3337           37777        DPPOSMAX           OCT      37777                                 
049919,000031: 26,3340           37777                           OCT      37777                                 
049920,000032: 

Page 1173

049922,000034:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
049923,000035: 
049924,000036: 04,2000                                           SETLOC   INTPRET2                              
049925,000037: 04,2000                                           BANK                                           
049926,000038: 
049927,000039: 04,3444                                           COUNT    14/ICONS                              
049928,000040: 
049929,000041: 04,3444           00000 00000  ZUNIT              2DEC     0          B-28                       
049930,000042: 04,3446           00000 00000  YUNIT              2DEC     0          B-28                       
049931,000043: 04,3450           20000 00000  XUNIT              2DEC     .5                                    
049932,000044: 04,3452           00000 00000  ZEROVEC            2DEC     0          B-28                       
049933,000045: 04,3454           00000 00000                     2DEC     0          B-28                       
049934,000046: 04,3456           00000 00000                     2DEC     0          B-28                       
049935,000047: 
049936,000048: 04,3460           77777                           OCT      77777                                 #  -0,-6,-12 MUST REMAIN IN THIS ORDER
049937,000049: 04,3461           77771        DEC-6              DEC      -6         B-14                       
049938,000050: 04,3462           77763        DEC-12             DEC      -12        B-14                       
049939,000051: 04,3463           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
049940,000052: 04,3465           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
049941,000053: 04,3467  04,3452               ZERODP             =        ZEROVEC                               
049942,000054: 04,3467  04,3450               HALFDP             =        XUNIT                                 

End of include-file INTERPRETIVE_CONSTANTS.agc.  Parent file is MAIN.agc