Source Code

These source-code files are part of a reconstructed copy of Luminary 97, the second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software. It was created to fix two incorrect ephemeris constants in Luminary 96, as described by anomaly report LNY-59.

The reconstruction began with source code of Luminary 99 revision 1 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes described in original Luminary memos 83 and 85, using asterisks indicating changed lines in the listing as a guide. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152D. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 97 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

046329,000002:                                                                                                  ## Copyright:   Public domain.
046330,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
046331,000004:                                                                                                  ## Purpose:     A section of Luminary revision 97.
046332,000005:                                                                                                  ##              It is part of the reconstructed source code for the
046333,000006:                                                                                                  ##              second release of the flight software for the Lunar 
046334,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
046335,000008:                                                                                                  ##              It was created to fix two incorrect ephemeris constants in
046336,000009:                                                                                                  ##              Luminary 96, as described by anomaly report LNY-59.
046337,000010:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
046338,000011:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
046339,000012:                                                                                                  ##              the listing and Luminary Memos #83 and #85, which list 
046340,000013:                                                                                                  ##              changes between Luminary 97 and 98, and 98 and 99. The
046341,000014:                                                                                                  ##              code has been adapted such that the resulting bugger words
046342,000015:                                                                                                  ##              exactly match those specified for Luminary 97 in NASA drawing
046343,000016:                                                                                                  ##              2021152D, which gives relatively high confidence that the
046344,000017:                                                                                                  ##              reconstruction is correct.
046345,000018:                                                                                                  ## Reference:   pp. 1100-1101
046346,000019:                                                                                                  ## Assembler:   yaYUL
046347,000020:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046348,000021:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046349,000022:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
046350,000023:                                                                                                  ##              2021-05-30 ABS  DFC-6 -> DEC-6, DFC-12 -> DEC-12
046351,000024: 

Page 1100

046353,000026: 23,2000                                           SETLOC   INTPRET1                              
046354,000027: 23,2000                                           BANK                                           
046355,000028: 
046356,000029: 23,2511                                           COUNT*   $$/ICONS                              
046357,000030: 23,2511           10000 00000  DP1/4TH            2DEC     .25                                   
046358,000031: 
046359,000032: 23,2513           00000 00000  UNITZ              2DEC     0          B-28                       
046360,000033: 
046361,000034: 23,2515           00000 00000  UNITY              2DEC     0          B-28                       
046362,000035: 
046363,000036: 23,2517           20000 00000  UNITX              2DEC     .5                                    
046364,000037: 
046365,000038: 23,2521           00000 00000  ZEROVECS           2DEC     0          B-28                       
046366,000039: 
046367,000040: 23,2523           00000 00000                     2DEC     0          B-28                       
046368,000041: 
046369,000042: 23,2525           00000 00000                     2DEC     0          B-28                       
046370,000043: 
046371,000044: 23,2527  23,2517               DPHALF             =        UNITX                                 
046372,000045: 23,2527           37777        DPPOSMAX           OCT      37777                                 
046373,000046: 23,2530           37777                           OCT      37777                                 
046374,000047: 

Page 1101

046376,000049:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046377,000050: 
046378,000051: 12,2000                                           SETLOC   INTPRET2                              
046379,000052: 12,2000                                           BANK                                           
046380,000053: 
046381,000054: 12,2000                                           COUNT*   $$/ICONS                              
046382,000055: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
046383,000056: 
046384,000057: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
046385,000058: 
046386,000059: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
046387,000060: 
046388,000061: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
046389,000062: 
046390,000063: 12,2010           00000 00000                     2DEC     0          B-28                       
046391,000064: 
046392,000065: 12,2012           00000 00000                     2DEC     0          B-28                       
046393,000066: 
046394,000067: 12,2014           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
046395,000068: 12,2015           77771        DEC-6              DEC      -6         B-14                       
046396,000069: 12,2016           77763        DEC-12             DEC      -12        B-14                       
046397,000070: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
046398,000071: 
046399,000072: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
046400,000073: 
046401,000074: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
046402,000075: 12,2023  12,2004               HALFDP             =        XUNIT                                 
046403,000076: 
046404,000077: 

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