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