Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

051410,000002:                                                                                                  ## Copyright:   Public domain.
051411,000003:                                                                                                  ## Filename:    INTERPRETATIVE_CONSTANTS.agc
051412,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
051413,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
051414,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
051415,000007:                                                                                                  ## Assembler:   yaYUL
051416,000008:                                                                                                  ## Reference:   pp. 1175-1176
051417,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051418,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
051419,000011:                                                                                                  ## Mod history: 08/29/04 RSB.   Adapted from corresponding Luminary 131 file.
051420,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
051421,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
051422,000014:                                                                                                  ##                              numbers in 1701.pdf.
051423,000015:                                                                                                  ##              2017-01-14 RSB  Cross-diff'd comment text (not whitespace)
051424,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
051425,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
051426,000018:                                                                                                  ##                              and corrected errors found.  No differences
051427,000019:                                                                                                  ##                              remain.
051428,000020:                                                                                                  ##
051429,000021:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
051430,000022:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
051431,000023:                                                                                                  ## document read, in part:
051432,000024:                                                                                                  ##
051433,000025:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
051434,000026:                                                                                                  ##      2021111-041.  October 28, 1968.  
051435,000027:                                                                                                  ##
051436,000028:                                                                                                  ##      This AGC program shall also be referred to as
051437,000029:                                                                                                  ##                              Colossus 1A
051438,000030:                                                                                                  ##
051439,000031:                                                                                                  ##      Prepared by
051440,000032:                                                                                                  ##                      Massachusetts Institute of Technology
051441,000033:                                                                                                  ##                      75 Cambridge Parkway
051442,000034:                                                                                                  ##                      Cambridge, Massachusetts
051443,000035:                                                                                                  ##      under NASA contract NAS 9-4065.
051444,000036:                                                                                                  ##
051445,000037:                                                                                                  ## Refer directly to the online document mentioned above for further information.
051446,000038:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
051447,000039:                                                                                                  ##
051448,000040:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
051449,000041:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
051450,000042:                                                                                                  ## source file, and then is proofed to incorporate any changes.
051451,000043: 

Page 1175

051453,000045: 26,2000                                           SETLOC   INTPRET1                              
051454,000046: 26,2000                                           BANK                                           
051455,000047: 
051456,000048: 26,3321                                           COUNT    23/ICONS                              
051457,000049: 
051458,000050: 26,3321           10000 00000  DP1/4TH            2DEC     .25                                   
051459,000051: 26,3323           00000 00000  UNITZ              2DEC     0          B-28                       
051460,000052: 26,3325           00000 00000  UNITY              2DEC     0          B-28                       
051461,000053: 26,3327           20000 00000  UNITX              2DEC     .5                                    
051462,000054: 26,3331           00000 00000  ZEROVECS           2DEC     0          B-28                       
051463,000055: 26,3333           00000 00000                     2DEC     0          B-28                       
051464,000056: 26,3335           00000 00000                     2DEC     0          B-28                       
051465,000057: 
051466,000058: 26,3337  26,3327               DPHALF             =        UNITX                                 
051467,000059: 26,3337           37777        DPPOSMAX           OCT      37777                                 
051468,000060: 26,3340           37777                           OCT      37777                                 
051469,000061: 

Page 1176

051471,000063:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051472,000064: 
051473,000065: 04,2000                                           SETLOC   INTPRET2                              
051474,000066: 04,2000                                           BANK                                           
051475,000067: 
051476,000068: 04,3447                                           COUNT    14/ICONS                              
051477,000069: 
051478,000070: 04,3447           00000 00000  ZUNIT              2DEC     0          B-28                       
051479,000071: 04,3451           00000 00000  YUNIT              2DEC     0          B-28                       
051480,000072: 04,3453           20000 00000  XUNIT              2DEC     .5                                    
051481,000073: 04,3455           00000 00000  ZEROVEC            2DEC     0          B-28                       
051482,000074: 04,3457           00000 00000                     2DEC     0          B-28                       
051483,000075: 04,3461           00000 00000                     2DEC     0          B-28                       
051484,000076: 
051485,000077: 04,3463           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
051486,000078: 04,3464           77771        DFC-6              DEC      -6         B-14                       
051487,000079: 04,3465           77763        DFC-12             DEC      -12        B-14                       
051488,000080: 04,3466           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
051489,000081: 04,3470           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
051490,000082: 
051491,000083: 04,3472  04,3455               ZERODP             =        ZEROVEC                               
051492,000084: 04,3472  04,3453               HALFDP             =        XUNIT                                 
051493,000085: 
051494,000086: 
051495,000087: 
051496,000088: 

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