Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

047332,000002:                                                                                                  ## Copyright:   Public domain.
047333,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
047334,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
047335,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047336,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
047337,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
047338,000008:                                                                                                  ##              that the code format has been changed to conform to the
047339,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047340,000010:                                                                                                  ##              original YUL assembler.
047341,000011:                                                                                                  ## Reference:   pp. 1098-1099
047342,000012:                                                                                                  ## Assembler:   yaYUL
047343,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047344,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047345,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
047346,000016:                                                                                                  ##              2016-11-29 RRB  Updated to Luminary210.
047347,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
047348,000018:                                                                                                  ##                              but no errors found.
047349,000019: 

Page 1098

047351,000021: 23,2000                                           SETLOC   INTPRET1                              
047352,000022: 23,2000                                           BANK                                           
047353,000023: 
047354,000024: 23,2474                                           COUNT*   $$/ICONS                              
047355,000025: 23,2474           10000 00000  DP1/4TH            2DEC     .25                                   
047356,000026: 23,2476           00000 00000  UNITZ              2DEC     0          B-28                       
047357,000027: 23,2500           00000 00000  UNITY              2DEC     0          B-28                       
047358,000028: 23,2502           20000 00000  UNITX              2DEC     .5                                    
047359,000029: 23,2504           00000 00000  ZEROVECS           2DEC     0          B-28                       
047360,000030: 23,2506           00000 00000                     2DEC     0          B-28                       
047361,000031: 23,2510           00000 00000                     2DEC     0          B-28                       
047362,000032: 
047363,000033: 23,2512  23,2502               DPHALF             =        UNITX                                 
047364,000034: 23,2512           37777        DPPOSMAX           OCT      37777                                 
047365,000035: 23,2513           37777                           OCT      37777                                 
047366,000036: 

Page 1099

047368,000038:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047369,000039: 
047370,000040: 12,2000                                           SETLOC   INTPRET2                              
047371,000041: 12,2000                                           BANK                                           
047372,000042: 
047373,000043: 12,2000                                           COUNT*   $$/ICONS                              
047374,000044: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
047375,000045: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
047376,000046: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
047377,000047: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
047378,000048: 12,2010           00000 00000                     2DEC     0          B-28                       
047379,000049: 12,2012           00000 00000                     2DEC     0          B-28                       
047380,000050: 
047381,000051: 12,2014           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
047382,000052: 12,2015           77771        DFC-6              DEC      -6         B-14                       
047383,000053: 12,2016           77763        DFC-12             DEC      -12        B-14                       
047384,000054: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
047385,000055: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
047386,000056: 
047387,000057: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
047388,000058: 12,2023  12,2004               HALFDP             =        XUNIT                                 
047389,000059: 
047390,000060: 

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