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!

046301,000002:                                                                                                  ## Copyright:   Public domain.
046302,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
046303,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
046304,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
046305,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
046306,000007:                                                                                                  ## Assembler:   yaYUL
046307,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046308,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
046309,000010:                                                                                                  ## Pages:       1102
046310,000011:                                                                                                  ## Mod history: 2009-05-25 RSB  Adapted from the corresponding 
046311,000012:                                                                                                  ##                              Luminary131 file, using page 
046312,000013:                                                                                                  ##                              images from Luminary 1A.
046313,000014:                                                                                                  ##              2010-12-31 JL   Fixed page number comment.
046314,000015:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
046315,000016:                                                                                                  ##                              and corrected the errors found.
046316,000017:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
046317,000018: 

Page 1102

046319,000020:    5032                                           BLOCK    02                                    
046320,000021: 
046321,000022:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
046322,000023: 
046323,000024:    5032                                           COUNT*   $$/INTER                              
046324,000025:    5032           64736        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
046325,000026:    5033           55076        SPSIN              TS       TEMK                                  
046326,000027:    5034           15036                           TCF      SPT                                   
046327,000028:    5035           41076                           CS       TEMK                                  
046328,000029:    5036           60000        SPT                DOUBLE                                         
046329,000030:    5037           55076                           TS       TEMK                                  
046330,000031:    5040           15051                           TCF      POLLEY                                
046331,000032:    5041           57076                           XCH      TEMK                                  
046332,000033:    5042           51076                           INDEX    TEMK                                  
046333,000034:    5043           64734                           AD       LIMITS                                
046334,000035:    5044           40000                           COM                                            
046335,000036:    5045           61076                           AD       TEMK                                  
046336,000037:    5046           55076                           TS       TEMK                                  
046337,000038:    5047           15051                           TCF      POLLEY                                
046338,000039:    5050           15067                           TCF      ARG90                                 
046339,000040:    5051           00006        POLLEY             EXTEND                                         
046340,000041:    5052           71076                           MP       TEMK                                  
046341,000042:    5053           55077                           TS       SQ                                    
046342,000043:    5054           00006                           EXTEND                                         
046343,000044:    5055           75005                           MP       C5/2                                  
046344,000045:    5056           67737                           AD       C3/2                                  
046345,000046:    5057           00006                           EXTEND                                         
046346,000047:    5060           71077                           MP       SQ                                    
046347,000048:    5061           67717                           AD       C1/2                                  
046348,000049:    5062           00006                           EXTEND                                         
046349,000050:    5063           71076                           MP       TEMK                                  
046350,000051:    5064           20001                           DDOUBL                                         
046351,000052:    5065           55076                           TS       TEMK                                  
046352,000053:    5066           00002                           TC       Q                                     
046353,000054:    5067           50000        ARG90              INDEX    A                                     
046354,000055:    5070           44734                           CS       LIMITS                                
046355,000056:    5071           00002                           TC       Q                                     #  RESULT SCALED AT 1
046356,000057: 
046357,000058: 

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