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,1968Note that the date is the date of the printout, not the date of the program revision. |
047133,000002: ## Copyright: Public domain.
047134,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
047135,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
047136,000005: ## It is part of the source code for the Lunar Module's (LM)
047137,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
047138,000007: ## Assembler: yaYUL
047139,000008: ## Contact: Ron Burkey <info@sandroid.org>.
047140,000009: ## Website: www.ibiblio.org/apollo.
047141,000010: ## Pages: 1102
047142,000011: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
047143,000012: ## Luminary131 file, using page
047144,000013: ## images from Luminary 1A.
047145,000014: ## 2010-12-31 JL Fixed page number comment.
047146,000015: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
047147,000016: ## and corrected the errors found.
047148,000017: ##
047149,000018: ## This source code has been transcribed or otherwise adapted from
047150,000019: ## digitized images of a hardcopy from the MIT Museum. The digitization
047151,000020: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
047152,000021: ## the Museum. Many thanks to both. The images (with suitable reduction
047153,000022: ## in storage size and consequent reduction in image quality as well) are
047154,000023: ## available online at www.ibiblio.org/apollo. If for some reason you
047155,000024: ## find that the images are illegible, contact me at info@sandroid.org
047156,000025: ## about getting access to the (much) higher-quality images which Paul
047157,000026: ## actually created.
047158,000027: ##
047159,000028: ## Notations on the hardcopy document read, in part:
047160,000029: ##
047161,000030: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
047162,000031: ## 16:27 JULY 14, 1969
047163,000032:
![]() |
Page 1102 |
047165,000034: 5032 BLOCK 02
047166,000035:
047167,000036: # SINGLE PRECISION SINE AND COSINE
047168,000037:
047169,000038: 5032 COUNT* $$/INTER
047170,000039: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
047171,000040: 5033 55076 SPSIN TS TEMK
047172,000041: 5034 15036 TCF SPT
047173,000042: 5035 41076 CS TEMK
047174,000043: 5036 60000 SPT DOUBLE
047175,000044: 5037 55076 TS TEMK
047176,000045: 5040 15051 TCF POLLEY
047177,000046: 5041 57076 XCH TEMK
047178,000047: 5042 51076 INDEX TEMK
047179,000048: 5043 64734 AD LIMITS
047180,000049: 5044 40000 COM
047181,000050: 5045 61076 AD TEMK
047182,000051: 5046 55076 TS TEMK
047183,000052: 5047 15051 TCF POLLEY
047184,000053: 5050 15067 TCF ARG90
047185,000054: 5051 00006 POLLEY EXTEND
047186,000055: 5052 71076 MP TEMK
047187,000056: 5053 55077 TS SQ
047188,000057: 5054 00006 EXTEND
047189,000058: 5055 75005 MP C5/2
047190,000059: 5056 67737 AD C3/2
047191,000060: 5057 00006 EXTEND
047192,000061: 5060 71077 MP SQ
047193,000062: 5061 67717 AD C1/2
047194,000063: 5062 00006 EXTEND
047195,000064: 5063 71076 MP TEMK
047196,000065: 5064 20001 DDOUBL
047197,000066: 5065 55076 TS TEMK
047198,000067: 5066 00002 TC Q
047199,000068: 5067 50000 ARG90 INDEX A
047200,000069: 5070 44734 CS LIMITS
047201,000070: 5071 00002 TC Q # RESULT SCALED AT 1
047202,000071:
047203,000072:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc