Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). 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 173 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.
|
046409,000002: ## Copyright: Public domain.
046410,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046411,000004: ## Purpose: A section of Luminary revision 173.
046412,000005: ## It is part of the reconstructed source code for the second
046413,000006: ## (unflown) release of the flight software for the Lunar
046414,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046415,000008: ## The code has been recreated from a reconstructed copy of
046416,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
046417,000010: ## It has been adapted such that the resulting bugger words
046418,000011: ## exactly match those specified for Luminary 173 in NASA
046419,000012: ## drawing 2021152N, which gives relatively high confidence
046420,000013: ## that the reconstruction is correct.
046421,000014: ## Reference: pp. 1091-1092
046422,000015: ## Assembler: yaYUL
046423,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046424,000017: ## Website: www.ibiblio.org/apollo/index.html
046425,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
046426,000019:
|
|
Page 1091
|
046428,000021: 23,2000 SETLOC INTPRET1
046429,000022: 23,2000 BANK
046430,000023:
046431,000024: 23,2507 COUNT* $$/ICONS
046432,000025: 23,2507 10000 00000 DP1/4TH 2DEC .25
046433,000026:
046434,000027: 23,2511 00000 00000 UNITZ 2DEC 0 B-28
046435,000028:
046436,000029: 23,2513 00000 00000 UNITY 2DEC 0 B-28
046437,000030:
046438,000031: 23,2515 20000 00000 UNITX 2DEC .5
046439,000032:
046440,000033: 23,2517 00000 00000 ZEROVECS 2DEC 0 B-28
046441,000034:
046442,000035: 23,2521 00000 00000 2DEC 0 B-28
046443,000036:
046444,000037: 23,2523 00000 00000 2DEC 0 B-28
046445,000038:
046446,000039: 23,2525 23,2515 DPHALF = UNITX
046447,000040: 23,2525 37777 DPPOSMAX OCT 37777
046448,000041: 23,2526 37777 OCT 37777
046449,000042:
|
|
Page 1092
|
046451,000044: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046452,000045:
046453,000046: 12,2000 SETLOC INTPRET2
046454,000047: 12,2000 BANK
046455,000048:
046456,000049: 12,2000 COUNT* $$/ICONS
046457,000050: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046458,000051:
046459,000052: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046460,000053:
046461,000054: 12,2004 20000 00000 XUNIT 2DEC .5
046462,000055:
046463,000056: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046464,000057:
046465,000058: 12,2010 00000 00000 2DEC 0 B-28
046466,000059:
046467,000060: 12,2012 00000 00000 2DEC 0 B-28
046468,000061:
046469,000062: 12,2014 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
046470,000063: 12,2015 77771 DFC-6 DEC -6 B-14
046471,000064: 12,2016 77763 DFC-12 DEC -12 B-14
046472,000065: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046473,000066:
046474,000067: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046475,000068:
046476,000069: 12,2023 12,2006 ZERODP = ZEROVEC
046477,000070: 12,2023 12,2004 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc