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.

047504,000002:                                                                                                  ## Copyright:   Public domain.
047505,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
047506,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
047507,000005:                                                                                                  ##              It is part of the source code for the original release
047508,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
047509,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
047510,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
047511,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
047512,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
047513,000011:                                                                                                  ##              that the code format has been changed to conform to the
047514,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047515,000013:                                                                                                  ##              original YUL assembler.
047516,000014:                                                                                                  ## Reference:   pp. 1095-1096
047517,000015:                                                                                                  ## Assembler:   yaYUL
047518,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047519,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047520,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
047521,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
047522,000020:                                                                                                  ##              2016-12-26 RRB  Updated for Luminary 69.
047523,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
047524,000022:                                                                                                  ##                              but no errors found.
047525,000023:                                                                                                  ##              2021-05-30 ABS  DFC-6 -> DEC-6, DFC-12 -> DEC-12
047526,000024: 

Page 1095

047528,000026: 23,2000                                           SETLOC   INTPRET1                              
047529,000027: 23,2000                                           BANK                                           
047530,000028: 
047531,000029: 23,2413                                           COUNT*   $$/ICONS                              
047532,000030: 23,2413           10000 00000  DP1/4TH            2DEC     .25                                   
047533,000031: 
047534,000032: 23,2415           00000 00000  UNITZ              2DEC     0          B-28                       
047535,000033: 
047536,000034: 23,2417           00000 00000  UNITY              2DEC     0          B-28                       
047537,000035: 
047538,000036: 23,2421           20000 00000  UNITX              2DEC     .5                                    
047539,000037: 
047540,000038: 23,2423           00000 00000  ZEROVECS           2DEC     0          B-28                       
047541,000039: 
047542,000040: 23,2425           00000 00000                     2DEC     0          B-28                       
047543,000041: 
047544,000042: 23,2427           00000 00000                     2DEC     0          B-28                       
047545,000043: 
047546,000044: 23,2431  23,2421               DPHALF             =        UNITX                                 
047547,000045: 23,2431           37777        DPPOSMAX           OCT      37777                                 
047548,000046: 23,2432           37777                           OCT      37777                                 
047549,000047: 

Page 1096

047551,000049:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047552,000050: 
047553,000051: 11,2000                                           SETLOC   INTPRET2                              
047554,000052: 11,2000                                           BANK                                           
047555,000053: 
047556,000054: 11,2266                                           COUNT*   $$/ICONS                              
047557,000055: 11,2266           00000 00000  ZUNIT              2DEC     0          B-28                       
047558,000056: 
047559,000057: 11,2270           00000 00000  YUNIT              2DEC     0          B-28                       
047560,000058: 
047561,000059: 11,2272           20000 00000  XUNIT              2DEC     .5                                    
047562,000060: 
047563,000061: 11,2274           00000 00000  ZEROVEC            2DEC     0          B-28                       
047564,000062: 
047565,000063: 11,2276           00000 00000                     2DEC     0          B-28                       
047566,000064: 
047567,000065: 11,2300           00000 00000                     2DEC     0          B-28                       
047568,000066: 
047569,000067: 11,2302           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
047570,000068: 11,2303           77771        DEC-6              DEC      -6         B-14                       
047571,000069: 11,2304           77763        DEC-12             DEC      -12        B-14                       
047572,000070: 11,2305           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
047573,000071: 
047574,000072: 11,2307           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
047575,000073: 
047576,000074: 11,2311  11,2274               ZERODP             =        ZEROVEC                               
047577,000075: 11,2311  11,2272               HALFDP             =        XUNIT                                 
047578,000076: 
047579,000077: 

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