Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

047482,000002:                                                                                                  ## Copyright:   Public domain.
047483,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
047484,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
047485,000005:                                                                                                  ##              It is part of the source code for the original release
047486,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
047487,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
047488,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
047489,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
047490,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
047491,000011:                                                                                                  ##              that the code format has been changed to conform to the
047492,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047493,000013:                                                                                                  ##              original YUL assembler.
047494,000014:                                                                                                  ## Reference:   pp. 1095-1096
047495,000015:                                                                                                  ## Assembler:   yaYUL
047496,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047497,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047498,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
047499,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
047500,000020:                                                                                                  ##              2016-12-26 RRB  Updated for Luminary 69.
047501,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
047502,000022:                                                                                                  ##                              but no errors found.
047503,000023: 

Page 1095

047505,000025: 23,2000                                           SETLOC   INTPRET1                              
047506,000026: 23,2000                                           BANK                                           
047507,000027: 
047508,000028: 23,2413                                           COUNT*   $$/ICONS                              
047509,000029: 23,2413           10000 00000  DP1/4TH            2DEC     .25                                   
047510,000030: 
047511,000031: 23,2415           00000 00000  UNITZ              2DEC     0          B-28                       
047512,000032: 
047513,000033: 23,2417           00000 00000  UNITY              2DEC     0          B-28                       
047514,000034: 
047515,000035: 23,2421           20000 00000  UNITX              2DEC     .5                                    
047516,000036: 
047517,000037: 23,2423           00000 00000  ZEROVECS           2DEC     0          B-28                       
047518,000038: 
047519,000039: 23,2425           00000 00000                     2DEC     0          B-28                       
047520,000040: 
047521,000041: 23,2427           00000 00000                     2DEC     0          B-28                       
047522,000042: 
047523,000043: 23,2431  23,2421               DPHALF             =        UNITX                                 
047524,000044: 23,2431           37777        DPPOSMAX           OCT      37777                                 
047525,000045: 23,2432           37777                           OCT      37777                                 
047526,000046: 

Page 1096

047528,000048:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047529,000049: 
047530,000050: 11,2000                                           SETLOC   INTPRET2                              
047531,000051: 11,2000                                           BANK                                           
047532,000052: 
047533,000053: 11,2266                                           COUNT*   $$/ICONS                              
047534,000054: 11,2266           00000 00000  ZUNIT              2DEC     0          B-28                       
047535,000055: 
047536,000056: 11,2270           00000 00000  YUNIT              2DEC     0          B-28                       
047537,000057: 
047538,000058: 11,2272           20000 00000  XUNIT              2DEC     .5                                    
047539,000059: 
047540,000060: 11,2274           00000 00000  ZEROVEC            2DEC     0          B-28                       
047541,000061: 
047542,000062: 11,2276           00000 00000                     2DEC     0          B-28                       
047543,000063: 
047544,000064: 11,2300           00000 00000                     2DEC     0          B-28                       
047545,000065: 
047546,000066: 11,2302           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
047547,000067: 11,2303           77771        DFC-6              DEC      -6         B-14                       
047548,000068: 11,2304           77763        DFC-12             DEC      -12        B-14                       
047549,000069: 11,2305           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
047550,000070: 
047551,000071: 11,2307           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
047552,000072: 
047553,000073: 11,2311  11,2274               ZERODP             =        ZEROVEC                               
047554,000074: 11,2311  11,2272               HALFDP             =        XUNIT                                 
047555,000075: 
047556,000076: 

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