Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

047152,000002:                                                                                                  ## Copyright:   Public domain.
047153,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
047154,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
047155,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047156,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
047157,000007:                                                                                                  ## Assembler:   yaYUL
047158,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047159,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
047160,000010:                                                                                                  ## Pages:       1102
047161,000011:                                                                                                  ## Mod history: 2009-05-25 RSB  Adapted from the corresponding 
047162,000012:                                                                                                  ##                              Luminary131 file, using page 
047163,000013:                                                                                                  ##                              images from Luminary 1A.
047164,000014:                                                                                                  ##              2010-12-31 JL   Fixed page number comment.
047165,000015:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
047166,000016:                                                                                                  ##                              and corrected the errors found.
047167,000017:                                                                                                  ##
047168,000018:                                                                                                  ## This source code has been transcribed or otherwise adapted from
047169,000019:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
047170,000020:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
047171,000021:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
047172,000022:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
047173,000023:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
047174,000024:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
047175,000025:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
047176,000026:                                                                                                  ## actually created.
047177,000027:                                                                                                  ##
047178,000028:                                                                                                  ## Notations on the hardcopy document read, in part:
047179,000029:                                                                                                  ##
047180,000030:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
047181,000031:                                                                                                  ##      16:27 JULY 14, 1969 
047182,000032: 

Page 1102

047184,000034:    5032                                           BLOCK    02                                    
047185,000035: 
047186,000036:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
047187,000037: 
047188,000038:    5032                                           COUNT*   $$/INTER                              
047189,000039:    5032           64736        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
047190,000040:    5033           55076        SPSIN              TS       TEMK                                  
047191,000041:    5034           15036                           TCF      SPT                                   
047192,000042:    5035           41076                           CS       TEMK                                  
047193,000043:    5036           60000        SPT                DOUBLE                                         
047194,000044:    5037           55076                           TS       TEMK                                  
047195,000045:    5040           15051                           TCF      POLLEY                                
047196,000046:    5041           57076                           XCH      TEMK                                  
047197,000047:    5042           51076                           INDEX    TEMK                                  
047198,000048:    5043           64734                           AD       LIMITS                                
047199,000049:    5044           40000                           COM                                            
047200,000050:    5045           61076                           AD       TEMK                                  
047201,000051:    5046           55076                           TS       TEMK                                  
047202,000052:    5047           15051                           TCF      POLLEY                                
047203,000053:    5050           15067                           TCF      ARG90                                 
047204,000054:    5051           00006        POLLEY             EXTEND                                         
047205,000055:    5052           71076                           MP       TEMK                                  
047206,000056:    5053           55077                           TS       SQ                                    
047207,000057:    5054           00006                           EXTEND                                         
047208,000058:    5055           75005                           MP       C5/2                                  
047209,000059:    5056           67737                           AD       C3/2                                  
047210,000060:    5057           00006                           EXTEND                                         
047211,000061:    5060           71077                           MP       SQ                                    
047212,000062:    5061           67717                           AD       C1/2                                  
047213,000063:    5062           00006                           EXTEND                                         
047214,000064:    5063           71076                           MP       TEMK                                  
047215,000065:    5064           20001                           DDOUBL                                         
047216,000066:    5065           55076                           TS       TEMK                                  
047217,000067:    5066           00002                           TC       Q                                     
047218,000068:    5067           50000        ARG90              INDEX    A                                     
047219,000069:    5070           44734                           CS       LIMITS                                
047220,000070:    5071           00002                           TC       Q                                     #  RESULT SCALED AT 1
047221,000071: 
047222,000072: 

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