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.

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

Page 1100

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

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