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 Luminary 131 (Apollo 13) 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 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	16:27 JULY 14,1969
Note that the date is the date of the printout, not the date of the program revision.

047082,000002:                                                                                                  ## Copyright:   Public domain.
047083,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANT.agc
047084,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
047085,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047086,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
047087,000007:                                                                                                  ## Assembler:   yaYUL
047088,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047089,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
047090,000010:                                                                                                  ## Pages:       1100-1101
047091,000011:                                                                                                  ## Mod history: 2009-05-25 RSB  Adapted from the corresponding 
047092,000012:                                                                                                  ##                              Luminary131 file, using page 
047093,000013:                                                                                                  ##                              images from Luminary 1A.
047094,000014:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
047095,000015:                                                                                                  ##                              but no errors found.
047096,000016:                                                                                                  ##              2021-05-30 ABS  DFC-6 -> DEC-6, DFC-12 -> DEC-12
047097,000017:                                                                                                  ##
047098,000018:                                                                                                  ## This source code has been transcribed or otherwise adapted from
047099,000019:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
047100,000020:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
047101,000021:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
047102,000022:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
047103,000023:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
047104,000024:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
047105,000025:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
047106,000026:                                                                                                  ## actually created.
047107,000027:                                                                                                  ##
047108,000028:                                                                                                  ## Notations on the hardcopy document read, in part:
047109,000029:                                                                                                  ##
047110,000030:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
047111,000031:                                                                                                  ##      16:27 JULY 14, 1969 
047112,000032: 

Page 1100

047114,000034: 23,2000                                           SETLOC   INTPRET1                              
047115,000035: 23,2000                                           BANK                                           
047116,000036: 
047117,000037: 23,2511                                           COUNT*   $$/ICONS                              
047118,000038: 23,2511           10000 00000  DP1/4TH            2DEC     .25                                   
047119,000039: 
047120,000040: 23,2513           00000 00000  UNITZ              2DEC     0          B-28                       
047121,000041: 
047122,000042: 23,2515           00000 00000  UNITY              2DEC     0          B-28                       
047123,000043: 
047124,000044: 23,2517           20000 00000  UNITX              2DEC     .5                                    
047125,000045: 
047126,000046: 23,2521           00000 00000  ZEROVECS           2DEC     0          B-28                       
047127,000047: 
047128,000048: 23,2523           00000 00000                     2DEC     0          B-28                       
047129,000049: 
047130,000050: 23,2525           00000 00000                     2DEC     0          B-28                       
047131,000051: 
047132,000052: 23,2527  23,2517               DPHALF             =        UNITX                                 
047133,000053: 23,2527           37777        DPPOSMAX           OCT      37777                                 
047134,000054: 23,2530           37777                           OCT      37777                                 
047135,000055: 

Page 1101

047137,000057:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047138,000058: 
047139,000059: 12,2000                                           SETLOC   INTPRET2                              
047140,000060: 12,2000                                           BANK                                           
047141,000061: 
047142,000062: 12,2000                                           COUNT*   $$/ICONS                              
047143,000063: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
047144,000064: 
047145,000065: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
047146,000066: 
047147,000067: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
047148,000068: 
047149,000069: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
047150,000070: 
047151,000071: 12,2010           00000 00000                     2DEC     0          B-28                       
047152,000072: 
047153,000073: 12,2012           00000 00000                     2DEC     0          B-28                       
047154,000074: 
047155,000075: 12,2014           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
047156,000076: 12,2015           77771        DEC-6              DEC      -6         B-14                       
047157,000077: 12,2016           77763        DEC-12             DEC      -12        B-14                       
047158,000078: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
047159,000079: 
047160,000080: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
047161,000081: 
047162,000082: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
047163,000083: 12,2023  12,2004               HALFDP             =        XUNIT                                 
047164,000084: 
047165,000085: 

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