Source Code

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

The reconstruction began with source code of Zerlina 56, Luminary 210, and Luminary 131, previously transcribed from digitized copies of those programs. The code was created by combining the three, using Zerlina 56 as a base, since it was based off of Luminary 183. The differences between the three were carefully merged using the Luminary memos as a guide, with all changes made after Luminary 178 being backed out. 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 178 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.

046586,000002:                                                                                                  ## Copyright:   Public domain.
046587,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
046588,000004:                                                                                                  ## Purpose:     A section of Luminary revision 178.
046589,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
046590,000006:                                                                                                  ##              release of the flight software for the Lunar Module's
046591,000007:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
046592,000008:                                                                                                  ##              code has been recreated from copies of Zerlina 56, Luminary
046593,000009:                                                                                                  ##              210, and Luminary 131, as well as many Luminary memos.
046594,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
046595,000011:                                                                                                  ##              exactly match those specified for Luminary 178 in NASA
046596,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
046597,000013:                                                                                                  ##              that the reconstruction is correct.
046598,000014:                                                                                                  ## Reference:   p.  1093
046599,000015:                                                                                                  ## Assembler:   yaYUL
046600,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046601,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046602,000018:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Zerlina 56.
046603,000019: 

Page 1093

046605,000021:    5032                                           BLOCK    02                                    
046606,000022:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
046607,000023: 
046608,000024:    5032                                           COUNT*   $$/INTER                              
046609,000025:    5032           64736        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
046610,000026:    5033           55075        SPSIN              TS       TEMK                                  
046611,000027:    5034           15036                           TCF      SPT                                   
046612,000028:    5035           41075                           CS       TEMK                                  
046613,000029:    5036           60000        SPT                DOUBLE                                         
046614,000030:    5037           55075                           TS       TEMK                                  
046615,000031:    5040           15051                           TCF      POLLEY                                
046616,000032:    5041           57075                           XCH      TEMK                                  
046617,000033:    5042           51075                           INDEX    TEMK                                  
046618,000034:    5043           64734                           AD       LIMITS                                
046619,000035:    5044           40000                           COM                                            
046620,000036:    5045           61075                           AD       TEMK                                  
046621,000037:    5046           55075                           TS       TEMK                                  
046622,000038:    5047           15051                           TCF      POLLEY                                
046623,000039:    5050           15067                           TCF      ARG90                                 
046624,000040:    5051           00006        POLLEY             EXTEND                                         
046625,000041:    5052           71075                           MP       TEMK                                  
046626,000042:    5053           55076                           TS       SQ                                    
046627,000043:    5054           00006                           EXTEND                                         
046628,000044:    5055           75005                           MP       C5/2                                  
046629,000045:    5056           67742                           AD       C3/2                                  
046630,000046:    5057           00006                           EXTEND                                         
046631,000047:    5060           71076                           MP       SQ                                    
046632,000048:    5061           67722                           AD       C1/2                                  
046633,000049:    5062           00006                           EXTEND                                         
046634,000050:    5063           71075                           MP       TEMK                                  
046635,000051:    5064           20001                           DDOUBL                                         
046636,000052:    5065           55075                           TS       TEMK                                  
046637,000053:    5066           00002                           TC       Q                                     
046638,000054:    5067           50000        ARG90              INDEX    A                                     
046639,000055:    5070           44734                           CS       LIMITS                                
046640,000056:    5071           00002                           TC       Q                                     #  RESULT SCALED AT 1

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