Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

052538,000002:                                                                                                  ## Copyright:   Public domain.
052539,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
052540,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
052541,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
052542,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
052543,000007:                                                                                                  ## Assembler:   yaYUL
052544,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052545,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
052546,000010:                                                                                                  ## Pages:       1205-1206
052547,000011:                                                                                                  ## Mod history: 2009-05-13 RSB  Adapted from the Colossus249/ file of the
052548,000012:                                                                                                  ##                              same name, using Comanche055 page images.
052549,000013:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
052550,000014:                                                                                                  ##                              but no errors found.
052551,000015:                                                                                                  ##
052552,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
052553,000017:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
052554,000018:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
052555,000019:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
052556,000020:                                                                                                  ## consequent reduction in image quality as well) are available online at
052557,000021:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
052558,000022:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
052559,000023:                                                                                                  ## (much) higher-quality images which Paul actually created.
052560,000024:                                                                                                  ##
052561,000025:                                                                                                  ## Notations on the hardcopy document read, in part:
052562,000026:                                                                                                  ##
052563,000027:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
052564,000028:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
052565,000029:                                                                                                  ##
052566,000030:                                                                                                  ##      This AGC program shall also be referred to as
052567,000031:                                                                                                  ##                      Colossus 2A
052568,000032: 

Page 1205

052570,000034: 26,2000                                           SETLOC   INTPRET1                              
052571,000035: 26,2000                                           BANK                                           
052572,000036: 
052573,000037: 26,3324                                           COUNT    23/ICONS                              
052574,000038: 
052575,000039: 26,3324           10000 00000  DP1/4TH            2DEC     .25                                   
052576,000040: 
052577,000041: 26,3326           00000 00000  UNITZ              2DEC     0          B-28                       
052578,000042: 
052579,000043: 26,3330           00000 00000  UNITY              2DEC     0          B-28                       
052580,000044: 
052581,000045: 26,3332           20000 00000  UNITX              2DEC     .5                                    
052582,000046: 
052583,000047: 26,3334           00000 00000  ZEROVECS           2DEC     0          B-28                       
052584,000048: 
052585,000049: 26,3336           00000 00000                     2DEC     0          B-28                       
052586,000050: 
052587,000051: 26,3340           00000 00000                     2DEC     0          B-28                       
052588,000052: 
052589,000053: 26,3342  26,3332               DPHALF             =        UNITX                                 
052590,000054: 26,3342           37777        DPPOSMAX           OCT      37777                                 
052591,000055: 26,3343           37777                           OCT      37777                                 
052592,000056: 

Page 1206

052594,000058:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
052595,000059: 
052596,000060: 04,2000                                           SETLOC   INTPRET2                              
052597,000061: 04,2000                                           BANK                                           
052598,000062: 
052599,000063: 04,3557                                           COUNT    14/ICONS                              
052600,000064: 
052601,000065: 04,3557           00000 00000  ZUNIT              2DEC     0          B-28                       
052602,000066: 
052603,000067: 04,3561           00000 00000  YUNIT              2DEC     0          B-28                       
052604,000068: 
052605,000069: 04,3563           20000 00000  XUNIT              2DEC     .5                                    
052606,000070: 
052607,000071: 04,3565           00000 00000  ZEROVEC            2DEC     0          B-28                       
052608,000072: 
052609,000073: 04,3567           00000 00000                     2DEC     0          B-28                       
052610,000074: 
052611,000075: 04,3571           00000 00000                     2DEC     0          B-28                       
052612,000076: 
052613,000077: 04,3573           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
052614,000078: 04,3574           77771        DEC-6              DEC      -6         B-14                       
052615,000079: 04,3575           77763        DEC-12             DEC      -12        B-14                       
052616,000080: 04,3576           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
052617,000081: 
052618,000082: 04,3600           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
052619,000083: 
052620,000084: 04,3602  04,3565               ZERODP             =        ZEROVEC                               
052621,000085: 04,3602  04,3563               HALFDP             =        XUNIT                                 
052622,000086: 
052623,000087: 
052624,000088: 
052625,000089: 

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