Source Code
|
These source-code files are part of a reconstructed copy of Luminary 163, the
first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 173. Changes
between revision 163 and 173 were backed out, as described by Luminary memos 157
and 158. 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 163 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.
|
046341,000002: ## Copyright: Public domain.
046342,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046343,000004: ## Purpose: A section of Luminary revision 163.
046344,000005: ## It is part of the reconstructed source code for the first
046345,000006: ## (unflown) release of the flight software for the Lunar
046346,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
046347,000008: ## The code has been recreated from a reconstructed copy of
046348,000009: ## Luminary 173, as well as Luminary memos 157 amd 158.
046349,000010: ## It has been adapted such that the resulting bugger words
046350,000011: ## exactly match those specified for Luminary 163 in NASA
046351,000012: ## drawing 2021152N, which gives relatively high confidence
046352,000013: ## that the reconstruction is correct.
046353,000014: ## Reference: pp. 1091-1092
046354,000015: ## Assembler: yaYUL
046355,000016: ## Contact: Ron Burkey <info@sandroid.org>.
046356,000017: ## Website: www.ibiblio.org/apollo/index.html
046357,000018: ## Mod history: 2019-08-21 MAS Created from Luminary 173.
046358,000019:
|
|
Page 1091
|
046360,000021: 23,2000 SETLOC INTPRET1
046361,000022: 23,2000 BANK
046362,000023:
046363,000024: 23,2507 COUNT* $$/ICONS
046364,000025: 23,2507 10000 00000 DP1/4TH 2DEC .25
046365,000026:
046366,000027: 23,2511 00000 00000 UNITZ 2DEC 0 B-28
046367,000028:
046368,000029: 23,2513 00000 00000 UNITY 2DEC 0 B-28
046369,000030:
046370,000031: 23,2515 20000 00000 UNITX 2DEC .5
046371,000032:
046372,000033: 23,2517 00000 00000 ZEROVECS 2DEC 0 B-28
046373,000034:
046374,000035: 23,2521 00000 00000 2DEC 0 B-28
046375,000036:
046376,000037: 23,2523 00000 00000 2DEC 0 B-28
046377,000038:
046378,000039: 23,2525 23,2515 DPHALF = UNITX
046379,000040: 23,2525 37777 DPPOSMAX OCT 37777
046380,000041: 23,2526 37777 OCT 37777
046381,000042:
|
|
Page 1092
|
046383,000044: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046384,000045:
046385,000046: 12,2000 SETLOC INTPRET2
046386,000047: 12,2000 BANK
046387,000048:
046388,000049: 12,2000 COUNT* $$/ICONS
046389,000050: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046390,000051:
046391,000052: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046392,000053:
046393,000054: 12,2004 20000 00000 XUNIT 2DEC .5
046394,000055:
046395,000056: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046396,000057:
046397,000058: 12,2010 00000 00000 2DEC 0 B-28
046398,000059:
046399,000060: 12,2012 00000 00000 2DEC 0 B-28
046400,000061:
046401,000062: 12,2014 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
046402,000063: 12,2015 77771 DFC-6 DEC -6 B-14
046403,000064: 12,2016 77763 DFC-12 DEC -12 B-14
046404,000065: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046405,000066:
046406,000067: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046407,000068:
046408,000069: 12,2023 12,2006 ZERODP = ZEROVEC
046409,000070: 12,2023 12,2004 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc