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