Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

047393,000002:                                                                                                  ## Copyright:   Public domain.
047394,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
047395,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
047396,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047397,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
047398,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
047399,000008:                                                                                                  ##              that the code format has been changed to conform to the
047400,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047401,000010:                                                                                                  ##              original YUL assembler.
047402,000011:                                                                                                  ## Reference:   p. 1100
047403,000012:                                                                                                  ## Assembler:   yaYUL
047404,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047405,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047406,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
047407,000016:                                                                                                  ##              2016-11-21 RRB  Changed page numbers for Luminary210
047408,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
047409,000018:                                                                                                  ##                              and corrected errors found.
047410,000019: 

Page 1100

047412,000021:    5023                                           BLOCK    02                                    
047413,000022: 
047414,000023:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
047415,000024: 
047416,000025:    5023                                           COUNT*   $$/INTER                              
047417,000026:    5023           64727        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
047418,000027:    5024           55075        SPSIN              TS       TEMK                                  
047419,000028:    5025           15027                           TCF      SPT                                   
047420,000029:    5026           41075                           CS       TEMK                                  
047421,000030:    5027           60000        SPT                DOUBLE                                         
047422,000031:    5030           55075                           TS       TEMK                                  
047423,000032:    5031           15042                           TCF      POLLEY                                
047424,000033:    5032           57075                           XCH      TEMK                                  
047425,000034:    5033           51075                           INDEX    TEMK                                  
047426,000035:    5034           64725                           AD       LIMITS                                
047427,000036:    5035           40000                           COM                                            
047428,000037:    5036           61075                           AD       TEMK                                  
047429,000038:    5037           55075                           TS       TEMK                                  
047430,000039:    5040           15042                           TCF      POLLEY                                
047431,000040:    5041           15060                           TCF      ARG90                                 
047432,000041:    5042           00006        POLLEY             EXTEND                                         
047433,000042:    5043           71075                           MP       TEMK                                  
047434,000043:    5044           55076                           TS       SQ                                    
047435,000044:    5045           00006                           EXTEND                                         
047436,000045:    5046           74776                           MP       C5/2                                  
047437,000046:    5047           67760                           AD       C3/2                                  
047438,000047:    5050           00006                           EXTEND                                         
047439,000048:    5051           71076                           MP       SQ                                    
047440,000049:    5052           67740                           AD       C1/2                                  
047441,000050:    5053           00006                           EXTEND                                         
047442,000051:    5054           71075                           MP       TEMK                                  
047443,000052:    5055           20001                           DDOUBL                                         
047444,000053:    5056           55075                           TS       TEMK                                  
047445,000054:    5057           00002                           TC       Q                                     
047446,000055:    5060           50000        ARG90              INDEX    A                                     
047447,000056:    5061           44725                           CS       LIMITS                                
047448,000057:    5062           00002                           TC       Q                                     #  RESULT SCALED AT 1
047449,000058: 
047450,000059: 

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