Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. 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 178 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.
|
046574,000002: ## Copyright: Public domain.
046575,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046576,000004: ## Purpose: A section of Luminary revision 178.
046577,000005: ## It is part of the reconstructed source code for the final
046578,000006: ## release of the flight software for the Lunar Module's
046579,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
046580,000008: ## code has been recreated from copies of Zerlina 56, Luminary
046581,000009: ## 210, and Luminary 131, as well as many Luminary memos.
046582,000010: ## It has been adapted such that the resulting bugger words
046583,000011: ## exactly match those specified for Luminary 178 in NASA
046584,000012: ## drawing 2021152N, which gives relatively high confidence
046585,000013: ## that the reconstruction is correct.
046586,000014: ## Reference: p. 1093
046587,000015: ## Assembler: yaYUL
046588,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046589,000017: ## Website: www.ibiblio.org/apollo/index.html
046590,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
046591,000019:
|
|
Page 1093
|
046593,000021: 5032 BLOCK 02
046594,000022: # SINGLE PRECISION SINE AND COSINE
046595,000023:
046596,000024: 5032 COUNT* $$/INTER
046597,000025: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046598,000026: 5033 55075 SPSIN TS TEMK
046599,000027: 5034 15036 TCF SPT
046600,000028: 5035 41075 CS TEMK
046601,000029: 5036 60000 SPT DOUBLE
046602,000030: 5037 55075 TS TEMK
046603,000031: 5040 15051 TCF POLLEY
046604,000032: 5041 57075 XCH TEMK
046605,000033: 5042 51075 INDEX TEMK
046606,000034: 5043 64734 AD LIMITS
046607,000035: 5044 40000 COM
046608,000036: 5045 61075 AD TEMK
046609,000037: 5046 55075 TS TEMK
046610,000038: 5047 15051 TCF POLLEY
046611,000039: 5050 15067 TCF ARG90
046612,000040: 5051 00006 POLLEY EXTEND
046613,000041: 5052 71075 MP TEMK
046614,000042: 5053 55076 TS SQ
046615,000043: 5054 00006 EXTEND
046616,000044: 5055 75005 MP C5/2
046617,000045: 5056 67742 AD C3/2
046618,000046: 5057 00006 EXTEND
046619,000047: 5060 71076 MP SQ
046620,000048: 5061 67722 AD C1/2
046621,000049: 5062 00006 EXTEND
046622,000050: 5063 71075 MP TEMK
046623,000051: 5064 20001 DDOUBL
046624,000052: 5065 55075 TS TEMK
046625,000053: 5066 00002 TC Q
046626,000054: 5067 50000 ARG90 INDEX A
046627,000055: 5070 44734 CS LIMITS
046628,000056: 5071 00002 TC Q # RESULT SCALED AT 1
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc