Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
046493,000002: ## Copyright: Public domain.
046494,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046495,000004: ## Purpose: A section of Luminary revision 173.
046496,000005: ## It is part of the reconstructed source code for the second
046497,000006: ## (unflown) release of the flight software for the Lunar
046498,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046499,000008: ## The code has been recreated from a reconstructed copy of
046500,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
046501,000010: ## It has been adapted such that the resulting bugger words
046502,000011: ## exactly match those specified for Luminary 173 in NASA
046503,000012: ## drawing 2021152N, which gives relatively high confidence
046504,000013: ## that the reconstruction is correct.
046505,000014: ## Reference: p. 1093
046506,000015: ## Assembler: yaYUL
046507,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046508,000017: ## Website: www.ibiblio.org/apollo/index.html
046509,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
046510,000019:
|
|
Page 1093
|
046512,000021: 5032 BLOCK 02
046513,000022: # SINGLE PRECISION SINE AND COSINE
046514,000023:
046515,000024: 5032 COUNT* $$/INTER
046516,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046517,000026: 5033 55075 SPSIN TS TEMK
046518,000027: 5034 15036 TCF SPT
046519,000028: 5035 41075 CS TEMK
046520,000029: 5036 60000 SPT DOUBLE
046521,000030: 5037 55075 TS TEMK
046522,000031: 5040 15051 TCF POLLEY
046523,000032: 5041 57075 XCH TEMK
046524,000033: 5042 51075 INDEX TEMK
046525,000034: 5043 64734 AD LIMITS
046526,000035: 5044 40000 COM
046527,000036: 5045 61075 AD TEMK
046528,000037: 5046 55075 TS TEMK
046529,000038: 5047 15051 TCF POLLEY
046530,000039: 5050 15067 TCF ARG90
046531,000040: 5051 00006 POLLEY EXTEND
046532,000041: 5052 71075 MP TEMK
046533,000042: 5053 55076 TS SQ
046534,000043: 5054 00006 EXTEND
046535,000044: 5055 75005 MP C5/2
046536,000045: 5056 67742 AD C3/2
046537,000046: 5057 00006 EXTEND
046538,000047: 5060 71076 MP SQ
046539,000048: 5061 67722 AD C1/2
046540,000049: 5062 00006 EXTEND
046541,000050: 5063 71075 MP TEMK
046542,000051: 5064 20001 DDOUBL
046543,000052: 5065 55075 TS TEMK
046544,000053: 5066 00002 TC Q
046545,000054: 5067 50000 ARG90 INDEX A
046546,000055: 5070 44734 CS LIMITS
046547,000056: 5071 00002 TC Q # RESULT SCALED AT 1
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc