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