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.
|
046514,000002: ## Copyright: Public domain.
046515,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046516,000004: ## Purpose: A section of Luminary revision 178.
046517,000005: ## It is part of the reconstructed source code for the final
046518,000006: ## release of the flight software for the Lunar Module's
046519,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
046520,000008: ## code has been recreated from copies of Zerlina 56, Luminary
046521,000009: ## 210, and Luminary 131, as well as many Luminary memos.
046522,000010: ## It has been adapted such that the resulting bugger words
046523,000011: ## exactly match those specified for Luminary 178 in NASA
046524,000012: ## drawing 2021152N, which gives relatively high confidence
046525,000013: ## that the reconstruction is correct.
046526,000014: ## Reference: pp. 1091-1092
046527,000015: ## Assembler: yaYUL
046528,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046529,000017: ## Website: www.ibiblio.org/apollo/index.html
046530,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
046531,000019: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
046532,000020:
|
|
Page 1091
|
046534,000022: 23,2000 SETLOC INTPRET1
046535,000023: 23,2000 BANK
046536,000024:
046537,000025: 23,2457 COUNT* $$/ICONS
046538,000026: 23,2457 10000 00000 DP1/4TH 2DEC .25
046539,000027:
046540,000028: 23,2461 00000 00000 UNITZ 2DEC 0 B-28
046541,000029:
046542,000030: 23,2463 00000 00000 UNITY 2DEC 0 B-28
046543,000031:
046544,000032: 23,2465 20000 00000 UNITX 2DEC .5
046545,000033:
046546,000034: 23,2467 00000 00000 ZEROVECS 2DEC 0 B-28
046547,000035:
046548,000036: 23,2471 00000 00000 2DEC 0 B-28
046549,000037:
046550,000038: 23,2473 00000 00000 2DEC 0 B-28
046551,000039:
046552,000040: 23,2475 23,2465 DPHALF = UNITX
046553,000041: 23,2475 37777 DPPOSMAX OCT 37777
046554,000042: 23,2476 37777 OCT 37777
046555,000043:
|
|
Page 1092
|
046557,000045: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046558,000046:
046559,000047: 12,2000 SETLOC INTPRET2
046560,000048: 12,2000 BANK
046561,000049:
046562,000050: 12,2000 COUNT* $$/ICONS
046563,000051: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046564,000052:
046565,000053: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046566,000054:
046567,000055: 12,2004 20000 00000 XUNIT 2DEC .5
046568,000056:
046569,000057: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046570,000058:
046571,000059: 12,2010 00000 00000 2DEC 0 B-28
046572,000060:
046573,000061: 12,2012 00000 00000 2DEC 0 B-28
046574,000062:
046575,000063: 12,2014 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
046576,000064: 12,2015 77771 DEC-6 DEC -6 B-14
046577,000065: 12,2016 77763 DEC-12 DEC -12 B-14
046578,000066: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046579,000067:
046580,000068: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046581,000069:
046582,000070: 12,2023 12,2006 ZERODP = ZEROVEC
046583,000071: 12,2023 12,2004 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc