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. |
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