Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
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.
|
046329,000002: ## Copyright: Public domain.
046330,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046331,000004: ## Purpose: A section of Luminary revision 97.
046332,000005: ## It is part of the reconstructed source code for the
046333,000006: ## second release of the flight software for the Lunar
046334,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
046335,000008: ## It was created to fix two incorrect ephemeris constants in
046336,000009: ## Luminary 96, as described by anomaly report LNY-59.
046337,000010: ## The code has been recreated from a copy of Luminary 99
046338,000011: ## revision 001, using asterisks indicating changed lines in
046339,000012: ## the listing and Luminary Memos #83 and #85, which list
046340,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
046341,000014: ## code has been adapted such that the resulting bugger words
046342,000015: ## exactly match those specified for Luminary 97 in NASA drawing
046343,000016: ## 2021152D, which gives relatively high confidence that the
046344,000017: ## reconstruction is correct.
046345,000018: ## Reference: pp. 1100-1101
046346,000019: ## Assembler: yaYUL
046347,000020: ## Contact: Ron Burkey <info@sandroid.org>.
046348,000021: ## Website: www.ibiblio.org/apollo/index.html
046349,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
046350,000023: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
046351,000024:
|
|
Page 1100
|
046353,000026: 23,2000 SETLOC INTPRET1
046354,000027: 23,2000 BANK
046355,000028:
046356,000029: 23,2511 COUNT* $$/ICONS
046357,000030: 23,2511 10000 00000 DP1/4TH 2DEC .25
046358,000031:
046359,000032: 23,2513 00000 00000 UNITZ 2DEC 0 B-28
046360,000033:
046361,000034: 23,2515 00000 00000 UNITY 2DEC 0 B-28
046362,000035:
046363,000036: 23,2517 20000 00000 UNITX 2DEC .5
046364,000037:
046365,000038: 23,2521 00000 00000 ZEROVECS 2DEC 0 B-28
046366,000039:
046367,000040: 23,2523 00000 00000 2DEC 0 B-28
046368,000041:
046369,000042: 23,2525 00000 00000 2DEC 0 B-28
046370,000043:
046371,000044: 23,2527 23,2517 DPHALF = UNITX
046372,000045: 23,2527 37777 DPPOSMAX OCT 37777
046373,000046: 23,2530 37777 OCT 37777
046374,000047:
|
|
Page 1101
|
046376,000049: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046377,000050:
046378,000051: 12,2000 SETLOC INTPRET2
046379,000052: 12,2000 BANK
046380,000053:
046381,000054: 12,2000 COUNT* $$/ICONS
046382,000055: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046383,000056:
046384,000057: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046385,000058:
046386,000059: 12,2004 20000 00000 XUNIT 2DEC .5
046387,000060:
046388,000061: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046389,000062:
046390,000063: 12,2010 00000 00000 2DEC 0 B-28
046391,000064:
046392,000065: 12,2012 00000 00000 2DEC 0 B-28
046393,000066:
046394,000067: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046395,000068: 12,2015 77771 DEC-6 DEC -6 B-14
046396,000069: 12,2016 77763 DEC-12 DEC -12 B-14
046397,000070: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046398,000071:
046399,000072: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046400,000073:
046401,000074: 12,2023 12,2006 ZERODP = ZEROVEC
046402,000075: 12,2023 12,2004 HALFDP = XUNIT
046403,000076:
046404,000077:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc