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! |
046310,000002: ## Copyright: Public domain.
046311,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046312,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
046313,000005: ## It is part of the source code for the Lunar Module's (LM)
046314,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
046315,000007: ## Assembler: yaYUL
046316,000008: ## Contact: Ron Burkey <info@sandroid.org>.
046317,000009: ## Website: www.ibiblio.org/apollo.
046318,000010: ## Pages: 1102
046319,000011: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
046320,000012: ## Luminary131 file, using page
046321,000013: ## images from Luminary 1A.
046322,000014: ## 2010-12-31 JL Fixed page number comment.
046323,000015: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
046324,000016: ## and corrected the errors found.
046325,000017: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
046326,000018:
|
|
Page 1102 |
046328,000020: 5032 BLOCK 02
046329,000021:
046330,000022: # SINGLE PRECISION SINE AND COSINE
046331,000023:
046332,000024: 5032 COUNT* $$/INTER
046333,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046334,000026: 5033 55076 SPSIN TS TEMK
046335,000027: 5034 15036 TCF SPT
046336,000028: 5035 41076 CS TEMK
046337,000029: 5036 60000 SPT DOUBLE
046338,000030: 5037 55076 TS TEMK
046339,000031: 5040 15051 TCF POLLEY
046340,000032: 5041 57076 XCH TEMK
046341,000033: 5042 51076 INDEX TEMK
046342,000034: 5043 64734 AD LIMITS
046343,000035: 5044 40000 COM
046344,000036: 5045 61076 AD TEMK
046345,000037: 5046 55076 TS TEMK
046346,000038: 5047 15051 TCF POLLEY
046347,000039: 5050 15067 TCF ARG90
046348,000040: 5051 00006 POLLEY EXTEND
046349,000041: 5052 71076 MP TEMK
046350,000042: 5053 55077 TS SQ
046351,000043: 5054 00006 EXTEND
046352,000044: 5055 75005 MP C5/2
046353,000045: 5056 67737 AD C3/2
046354,000046: 5057 00006 EXTEND
046355,000047: 5060 71077 MP SQ
046356,000048: 5061 67717 AD C1/2
046357,000049: 5062 00006 EXTEND
046358,000050: 5063 71076 MP TEMK
046359,000051: 5064 20001 DDOUBL
046360,000052: 5065 55076 TS TEMK
046361,000053: 5066 00002 TC Q
046362,000054: 5067 50000 ARG90 INDEX A
046363,000055: 5070 44734 CS LIMITS
046364,000056: 5071 00002 TC Q # RESULT SCALED AT 1
046365,000057:
046366,000058:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc