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