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