Source Code
|
These source-code files are part of a reconstructed copy of Luminary 163, the
first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 173. Changes
between revision 163 and 173 were backed out, as described by Luminary memos 157
and 158. 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 163 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.
|
046425,000002: ## Copyright: Public domain.
046426,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046427,000004: ## Purpose: A section of Luminary revision 163.
046428,000005: ## It is part of the reconstructed source code for the first
046429,000006: ## (unflown) release of the flight software for the Lunar
046430,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046431,000008: ## The code has been recreated from a reconstructed copy of
046432,000009: ## Luminary 173, as well as Luminary memos 157 amd 158.
046433,000010: ## It has been adapted such that the resulting bugger words
046434,000011: ## exactly match those specified for Luminary 163 in NASA
046435,000012: ## drawing 2021152N, which gives relatively high confidence
046436,000013: ## that the reconstruction is correct.
046437,000014: ## Reference: p. 1093
046438,000015: ## Assembler: yaYUL
046439,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046440,000017: ## Website: www.ibiblio.org/apollo/index.html
046441,000018: ## Mod history: 2019-08-21 MAS Created from Luminary 173.
046442,000019:
|
|
Page 1093
|
046444,000021: 5032 BLOCK 02
046445,000022: # SINGLE PRECISION SINE AND COSINE
046446,000023:
046447,000024: 5032 COUNT* $$/INTER
046448,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046449,000026: 5033 55075 SPSIN TS TEMK
046450,000027: 5034 15036 TCF SPT
046451,000028: 5035 41075 CS TEMK
046452,000029: 5036 60000 SPT DOUBLE
046453,000030: 5037 55075 TS TEMK
046454,000031: 5040 15051 TCF POLLEY
046455,000032: 5041 57075 XCH TEMK
046456,000033: 5042 51075 INDEX TEMK
046457,000034: 5043 64734 AD LIMITS
046458,000035: 5044 40000 COM
046459,000036: 5045 61075 AD TEMK
046460,000037: 5046 55075 TS TEMK
046461,000038: 5047 15051 TCF POLLEY
046462,000039: 5050 15067 TCF ARG90
046463,000040: 5051 00006 POLLEY EXTEND
046464,000041: 5052 71075 MP TEMK
046465,000042: 5053 55076 TS SQ
046466,000043: 5054 00006 EXTEND
046467,000044: 5055 75005 MP C5/2
046468,000045: 5056 67742 AD C3/2
046469,000046: 5057 00006 EXTEND
046470,000047: 5060 71076 MP SQ
046471,000048: 5061 67722 AD C1/2
046472,000049: 5062 00006 EXTEND
046473,000050: 5063 71075 MP TEMK
046474,000051: 5064 20001 DDOUBL
046475,000052: 5065 55075 TS TEMK
046476,000053: 5066 00002 TC Q
046477,000054: 5067 50000 ARG90 INDEX A
046478,000055: 5070 44734 CS LIMITS
046479,000056: 5071 00002 TC Q # RESULT SCALED AT 1
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc