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