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.
|
046480,000002: ## Copyright: Public domain.
046481,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046482,000004: ## Purpose: A section of Luminary revision 173.
046483,000005: ## It is part of the reconstructed source code for the second
046484,000006: ## (unflown) release of the flight software for the Lunar
046485,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046486,000008: ## The code has been recreated from a reconstructed copy of
046487,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
046488,000010: ## It has been adapted such that the resulting bugger words
046489,000011: ## exactly match those specified for Luminary 173 in NASA
046490,000012: ## drawing 2021152N, which gives relatively high confidence
046491,000013: ## that the reconstruction is correct.
046492,000014: ## Reference: p. 1093
046493,000015: ## Assembler: yaYUL
046494,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046495,000017: ## Website: www.ibiblio.org/apollo/index.html
046496,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
046497,000019:
|
|
Page 1093
|
046499,000021: 5032 BLOCK 02
046500,000022: # SINGLE PRECISION SINE AND COSINE
046501,000023:
046502,000024: 5032 COUNT* $$/INTER
046503,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046504,000026: 5033 55075 SPSIN TS TEMK
046505,000027: 5034 15036 TCF SPT
046506,000028: 5035 41075 CS TEMK
046507,000029: 5036 60000 SPT DOUBLE
046508,000030: 5037 55075 TS TEMK
046509,000031: 5040 15051 TCF POLLEY
046510,000032: 5041 57075 XCH TEMK
046511,000033: 5042 51075 INDEX TEMK
046512,000034: 5043 64734 AD LIMITS
046513,000035: 5044 40000 COM
046514,000036: 5045 61075 AD TEMK
046515,000037: 5046 55075 TS TEMK
046516,000038: 5047 15051 TCF POLLEY
046517,000039: 5050 15067 TCF ARG90
046518,000040: 5051 00006 POLLEY EXTEND
046519,000041: 5052 71075 MP TEMK
046520,000042: 5053 55076 TS SQ
046521,000043: 5054 00006 EXTEND
046522,000044: 5055 75005 MP C5/2
046523,000045: 5056 67742 AD C3/2
046524,000046: 5057 00006 EXTEND
046525,000047: 5060 71076 MP SQ
046526,000048: 5061 67722 AD C1/2
046527,000049: 5062 00006 EXTEND
046528,000050: 5063 71075 MP TEMK
046529,000051: 5064 20001 DDOUBL
046530,000052: 5065 55075 TS TEMK
046531,000053: 5066 00002 TC Q
046532,000054: 5067 50000 ARG90 INDEX A
046533,000055: 5070 44734 CS LIMITS
046534,000056: 5071 00002 TC Q # RESULT SCALED AT 1
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc