Source Code

These source-code files are part of a reconstructed copy of Luminary 163, the first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 163 listing would be different.

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.

046353,000002:                                                                                                  ## Copyright:   Public domain.
046354,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
046355,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
046356,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
046357,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
046358,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046359,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
046360,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
046361,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
046362,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
046363,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
046364,000013:                                                                                                  ##              that the reconstruction is correct.
046365,000014:                                                                                                  ## Reference:   pp. 1091-1092
046366,000015:                                                                                                  ## Assembler:   yaYUL
046367,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046368,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046369,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173.
046370,000019:                                                                                                  ##              2021-05-30 ABS  DFC-6 -> DEC-6, DFC-12 -> DEC-12
046371,000020: 

Page 1091

046373,000022: 23,2000                                           SETLOC   INTPRET1                              
046374,000023: 23,2000                                           BANK                                           
046375,000024: 
046376,000025: 23,2507                                           COUNT*   $$/ICONS                              
046377,000026: 23,2507           10000 00000  DP1/4TH            2DEC     .25                                   
046378,000027: 
046379,000028: 23,2511           00000 00000  UNITZ              2DEC     0          B-28                       
046380,000029: 
046381,000030: 23,2513           00000 00000  UNITY              2DEC     0          B-28                       
046382,000031: 
046383,000032: 23,2515           20000 00000  UNITX              2DEC     .5                                    
046384,000033: 
046385,000034: 23,2517           00000 00000  ZEROVECS           2DEC     0          B-28                       
046386,000035: 
046387,000036: 23,2521           00000 00000                     2DEC     0          B-28                       
046388,000037: 
046389,000038: 23,2523           00000 00000                     2DEC     0          B-28                       
046390,000039: 
046391,000040: 23,2525  23,2515               DPHALF             =        UNITX                                 
046392,000041: 23,2525           37777        DPPOSMAX           OCT      37777                                 
046393,000042: 23,2526           37777                           OCT      37777                                 
046394,000043: 

Page 1092

046396,000045:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046397,000046: 
046398,000047: 12,2000                                           SETLOC   INTPRET2                              
046399,000048: 12,2000                                           BANK                                           
046400,000049: 
046401,000050: 12,2000                                           COUNT*   $$/ICONS                              
046402,000051: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
046403,000052: 
046404,000053: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
046405,000054: 
046406,000055: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
046407,000056: 
046408,000057: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
046409,000058: 
046410,000059: 12,2010           00000 00000                     2DEC     0          B-28                       
046411,000060: 
046412,000061: 12,2012           00000 00000                     2DEC     0          B-28                       
046413,000062: 
046414,000063: 12,2014           77777                           OCT      77777                                 #  -0,-6,-12 MUST REMAIN IN THIS ORDER
046415,000064: 12,2015           77771        DEC-6              DEC      -6         B-14                       
046416,000065: 12,2016           77763        DEC-12             DEC      -12        B-14                       
046417,000066: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
046418,000067: 
046419,000068: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
046420,000069: 
046421,000070: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
046422,000071: 12,2023  12,2004               HALFDP             =        XUNIT                                 

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