Source Code

This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!

046239,000002:                                                                                                  ## Copyright:   Public domain.
046240,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANT.agc
046241,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
046242,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
046243,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
046244,000007:                                                                                                  ## Assembler:   yaYUL
046245,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046246,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
046247,000010:                                                                                                  ## Pages:       1100-1101
046248,000011:                                                                                                  ## Mod history: 2009-05-25 RSB  Adapted from the corresponding 
046249,000012:                                                                                                  ##                              Luminary131 file, using page 
046250,000013:                                                                                                  ##                              images from Luminary 1A.
046251,000014:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
046252,000015:                                                                                                  ##                              but no errors found.
046253,000016:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
046254,000017: 

Page 1100

046256,000019: 23,2000                                           SETLOC   INTPRET1                              
046257,000020: 23,2000                                           BANK                                           
046258,000021: 
046259,000022: 23,2511                                           COUNT*   $$/ICONS                              
046260,000023: 23,2511           10000 00000  DP1/4TH            2DEC     .25                                   
046261,000024: 
046262,000025: 23,2513           00000 00000  UNITZ              2DEC     0          B-28                       
046263,000026: 
046264,000027: 23,2515           00000 00000  UNITY              2DEC     0          B-28                       
046265,000028: 
046266,000029: 23,2517           20000 00000  UNITX              2DEC     .5                                    
046267,000030: 
046268,000031: 23,2521           00000 00000  ZEROVECS           2DEC     0          B-28                       
046269,000032: 
046270,000033: 23,2523           00000 00000                     2DEC     0          B-28                       
046271,000034: 
046272,000035: 23,2525           00000 00000                     2DEC     0          B-28                       
046273,000036: 
046274,000037: 23,2527  23,2517               DPHALF             =        UNITX                                 
046275,000038: 23,2527           37777        DPPOSMAX           OCT      37777                                 
046276,000039: 23,2530           37777                           OCT      37777                                 
046277,000040: 

Page 1101

046279,000042:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046280,000043: 
046281,000044: 12,2000                                           SETLOC   INTPRET2                              
046282,000045: 12,2000                                           BANK                                           
046283,000046: 
046284,000047: 12,2000                                           COUNT*   $$/ICONS                              
046285,000048: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
046286,000049: 
046287,000050: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
046288,000051: 
046289,000052: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
046290,000053: 
046291,000054: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
046292,000055: 
046293,000056: 12,2010           00000 00000                     2DEC     0          B-28                       
046294,000057: 
046295,000058: 12,2012           00000 00000                     2DEC     0          B-28                       
046296,000059: 
046297,000060: 12,2014           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
046298,000061: 12,2015           77771        DFC-6              DEC      -6         B-14                       
046299,000062: 12,2016           77763        DFC-12             DEC      -12        B-14                       
046300,000063: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
046301,000064: 
046302,000065: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
046303,000066: 
046304,000067: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
046305,000068: 12,2023  12,2004               HALFDP             =        XUNIT                                 
046306,000069: 
046307,000070: 

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