Source Code

These source-code files are part of a reconstructed copy of Luminary 98, a development version of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Luminary 99 revision 1 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes described in original Luminary memo 85, using asterisks indicating changed lines in the listing as a guide. While no listing of this version is known to exist, nor are the memory-bank checksums available, the reconstruction is believed to be correct because it was an an intermediate step in reconstructing Luminary 97 whose reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152G. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 98 listing.

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.

046068,000002:                                                                                                  ## Copyright:   Public domain.
046069,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
046070,000004:                                                                                                  ## Purpose:     A section of Luminary revision 98.
046071,000005:                                                                                                  ##              It is part of the reconstructed source code for the a
046072,000006:                                                                                                  ##              development version of the flight software for the Lunar 
046073,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
046074,000008:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
046075,000009:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
046076,000010:                                                                                                  ##              the listing and Luminary Memo #85, which lists changes between
046077,000011:                                                                                                  ##              Luminary 98 and 99.
046078,000012:                                                                                                  ## Reference:   p.  1102
046079,000013:                                                                                                  ## Assembler:   yaYUL
046080,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046081,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046082,000016:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
046083,000017: 

Page 1102

046085,000019:    5032                                           BLOCK    02                                    
046086,000020: 
046087,000021:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
046088,000022: 
046089,000023:    5032                                           COUNT*   $$/INTER                              
046090,000024:    5032           64736        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
046091,000025:    5033           55076        SPSIN              TS       TEMK                                  
046092,000026:    5034           15036                           TCF      SPT                                   
046093,000027:    5035           41076                           CS       TEMK                                  
046094,000028:    5036           60000        SPT                DOUBLE                                         
046095,000029:    5037           55076                           TS       TEMK                                  
046096,000030:    5040           15051                           TCF      POLLEY                                
046097,000031:    5041           57076                           XCH      TEMK                                  
046098,000032:    5042           51076                           INDEX    TEMK                                  
046099,000033:    5043           64734                           AD       LIMITS                                
046100,000034:    5044           40000                           COM                                            
046101,000035:    5045           61076                           AD       TEMK                                  
046102,000036:    5046           55076                           TS       TEMK                                  
046103,000037:    5047           15051                           TCF      POLLEY                                
046104,000038:    5050           15067                           TCF      ARG90                                 
046105,000039:    5051           00006        POLLEY             EXTEND                                         
046106,000040:    5052           71076                           MP       TEMK                                  
046107,000041:    5053           55077                           TS       SQ                                    
046108,000042:    5054           00006                           EXTEND                                         
046109,000043:    5055           75005                           MP       C5/2                                  
046110,000044:    5056           67737                           AD       C3/2                                  
046111,000045:    5057           00006                           EXTEND                                         
046112,000046:    5060           71077                           MP       SQ                                    
046113,000047:    5061           67717                           AD       C1/2                                  
046114,000048:    5062           00006                           EXTEND                                         
046115,000049:    5063           71076                           MP       TEMK                                  
046116,000050:    5064           20001                           DDOUBL                                         
046117,000051:    5065           55076                           TS       TEMK                                  
046118,000052:    5066           00002                           TC       Q                                     
046119,000053:    5067           50000        ARG90              INDEX    A                                     
046120,000054:    5070           44734                           CS       LIMITS                                
046121,000055:    5071           00002                           TC       Q                                     #  RESULT SCALED AT 1
046122,000056: 
046123,000057: 

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