Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
046301,000002: ## Copyright: Public domain.
046302,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046303,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
046304,000005: ## It is part of the source code for the Lunar Module's (LM)
046305,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
046306,000007: ## Assembler: yaYUL
046307,000008: ## Contact: Ron Burkey <info@sandroid.org>.
046308,000009: ## Website: www.ibiblio.org/apollo.
046309,000010: ## Pages: 1102
046310,000011: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
046311,000012: ## Luminary131 file, using page
046312,000013: ## images from Luminary 1A.
046313,000014: ## 2010-12-31 JL Fixed page number comment.
046314,000015: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
046315,000016: ## and corrected the errors found.
046316,000017: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
046317,000018:
![]() |
Page 1102 |
046319,000020: 5032 BLOCK 02
046320,000021:
046321,000022: # SINGLE PRECISION SINE AND COSINE
046322,000023:
046323,000024: 5032 COUNT* $$/INTER
046324,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046325,000026: 5033 55076 SPSIN TS TEMK
046326,000027: 5034 15036 TCF SPT
046327,000028: 5035 41076 CS TEMK
046328,000029: 5036 60000 SPT DOUBLE
046329,000030: 5037 55076 TS TEMK
046330,000031: 5040 15051 TCF POLLEY
046331,000032: 5041 57076 XCH TEMK
046332,000033: 5042 51076 INDEX TEMK
046333,000034: 5043 64734 AD LIMITS
046334,000035: 5044 40000 COM
046335,000036: 5045 61076 AD TEMK
046336,000037: 5046 55076 TS TEMK
046337,000038: 5047 15051 TCF POLLEY
046338,000039: 5050 15067 TCF ARG90
046339,000040: 5051 00006 POLLEY EXTEND
046340,000041: 5052 71076 MP TEMK
046341,000042: 5053 55077 TS SQ
046342,000043: 5054 00006 EXTEND
046343,000044: 5055 75005 MP C5/2
046344,000045: 5056 67737 AD C3/2
046345,000046: 5057 00006 EXTEND
046346,000047: 5060 71077 MP SQ
046347,000048: 5061 67717 AD C1/2
046348,000049: 5062 00006 EXTEND
046349,000050: 5063 71076 MP TEMK
046350,000051: 5064 20001 DDOUBL
046351,000052: 5065 55076 TS TEMK
046352,000053: 5066 00002 TC Q
046353,000054: 5067 50000 ARG90 INDEX A
046354,000055: 5070 44734 CS LIMITS
046355,000056: 5071 00002 TC Q # RESULT SCALED AT 1
046356,000057:
046357,000058:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc