Source Code

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

The reconstruction began with reconstructed source code for Luminary 178. Changes between revision 173 and 178 were backed out, as described by Luminary memo 167 (revision 1). 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 173 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.

046493,000002:                                                                                                  ## Copyright:   Public domain.
046494,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
046495,000004:                                                                                                  ## Purpose:     A section of Luminary revision 173.
046496,000005:                                                                                                  ##              It is part of the reconstructed source code for the second
046497,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
046498,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046499,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
046500,000009:                                                                                                  ##              Luminary 178, as well as Luminary memo 167 (revision 1).
046501,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
046502,000011:                                                                                                  ##              exactly match those specified for Luminary 173 in NASA
046503,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
046504,000013:                                                                                                  ##              that the reconstruction is correct.
046505,000014:                                                                                                  ## Reference:   p.  1093
046506,000015:                                                                                                  ## Assembler:   yaYUL
046507,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046508,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046509,000018:                                                                                                  ## Mod history: 2019-09-18 MAS  Created from Luminary 178.
046510,000019: 

Page 1093

046512,000021:    5032                                           BLOCK    02                                    
046513,000022:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
046514,000023: 
046515,000024:    5032                                           COUNT*   $$/INTER                              
046516,000025:    5032           64736        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
046517,000026:    5033           55075        SPSIN              TS       TEMK                                  
046518,000027:    5034           15036                           TCF      SPT                                   
046519,000028:    5035           41075                           CS       TEMK                                  
046520,000029:    5036           60000        SPT                DOUBLE                                         
046521,000030:    5037           55075                           TS       TEMK                                  
046522,000031:    5040           15051                           TCF      POLLEY                                
046523,000032:    5041           57075                           XCH      TEMK                                  
046524,000033:    5042           51075                           INDEX    TEMK                                  
046525,000034:    5043           64734                           AD       LIMITS                                
046526,000035:    5044           40000                           COM                                            
046527,000036:    5045           61075                           AD       TEMK                                  
046528,000037:    5046           55075                           TS       TEMK                                  
046529,000038:    5047           15051                           TCF      POLLEY                                
046530,000039:    5050           15067                           TCF      ARG90                                 
046531,000040:    5051           00006        POLLEY             EXTEND                                         
046532,000041:    5052           71075                           MP       TEMK                                  
046533,000042:    5053           55076                           TS       SQ                                    
046534,000043:    5054           00006                           EXTEND                                         
046535,000044:    5055           75005                           MP       C5/2                                  
046536,000045:    5056           67742                           AD       C3/2                                  
046537,000046:    5057           00006                           EXTEND                                         
046538,000047:    5060           71076                           MP       SQ                                    
046539,000048:    5061           67722                           AD       C1/2                                  
046540,000049:    5062           00006                           EXTEND                                         
046541,000050:    5063           71075                           MP       TEMK                                  
046542,000051:    5064           20001                           DDOUBL                                         
046543,000052:    5065           55075                           TS       TEMK                                  
046544,000053:    5066           00002                           TC       Q                                     
046545,000054:    5067           50000        ARG90              INDEX    A                                     
046546,000055:    5070           44734                           CS       LIMITS                                
046547,000056:    5071           00002                           TC       Q                                     #  RESULT SCALED AT 1

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