Source Code
|
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2,
from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences
are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1
source-code was transcribed from a printout in the MIT Museum, while Luminary 116
source code was transcribed from a printout belonging to Don Eyles. AGC developer
James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as
follows: "At the last minute, Dan Lickly, our chief engineer, appeared with
ephemerides updates and it took two tries to get it right. The result was that
we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former
is what's in the MIT Museum, and the latter is what we are trying to recreate here.
As for which revision actually flew in Apollo 11, all of the other available
surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!
|
046239,000002: ## Copyright: Public domain.
046240,000003: ## Filename: INTERPRETIVE_CONSTANT.agc
046241,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
046242,000005: ## It is part of the source code for the Lunar Module's (LM)
046243,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
046244,000007: ## Assembler: yaYUL
046245,000008: ## Contact: Ron Burkey <info@sandroid.org>.
046246,000009: ## Website: www.ibiblio.org/apollo.
046247,000010: ## Pages: 1100-1101
046248,000011: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
046249,000012: ## Luminary131 file, using page
046250,000013: ## images from Luminary 1A.
046251,000014: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
046252,000015: ## but no errors found.
046253,000016: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
046254,000017:
|
|
Page 1100
|
046256,000019: 23,2000 SETLOC INTPRET1
046257,000020: 23,2000 BANK
046258,000021:
046259,000022: 23,2511 COUNT* $$/ICONS
046260,000023: 23,2511 10000 00000 DP1/4TH 2DEC .25
046261,000024:
046262,000025: 23,2513 00000 00000 UNITZ 2DEC 0 B-28
046263,000026:
046264,000027: 23,2515 00000 00000 UNITY 2DEC 0 B-28
046265,000028:
046266,000029: 23,2517 20000 00000 UNITX 2DEC .5
046267,000030:
046268,000031: 23,2521 00000 00000 ZEROVECS 2DEC 0 B-28
046269,000032:
046270,000033: 23,2523 00000 00000 2DEC 0 B-28
046271,000034:
046272,000035: 23,2525 00000 00000 2DEC 0 B-28
046273,000036:
046274,000037: 23,2527 23,2517 DPHALF = UNITX
046275,000038: 23,2527 37777 DPPOSMAX OCT 37777
046276,000039: 23,2530 37777 OCT 37777
046277,000040:
|
|
Page 1101
|
046279,000042: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046280,000043:
046281,000044: 12,2000 SETLOC INTPRET2
046282,000045: 12,2000 BANK
046283,000046:
046284,000047: 12,2000 COUNT* $$/ICONS
046285,000048: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046286,000049:
046287,000050: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046288,000051:
046289,000052: 12,2004 20000 00000 XUNIT 2DEC .5
046290,000053:
046291,000054: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046292,000055:
046293,000056: 12,2010 00000 00000 2DEC 0 B-28
046294,000057:
046295,000058: 12,2012 00000 00000 2DEC 0 B-28
046296,000059:
046297,000060: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046298,000061: 12,2015 77771 DFC-6 DEC -6 B-14
046299,000062: 12,2016 77763 DFC-12 DEC -12 B-14
046300,000063: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046301,000064:
046302,000065: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046303,000066:
046304,000067: 12,2023 12,2006 ZERODP = ZEROVEC
046305,000068: 12,2023 12,2004 HALFDP = XUNIT
046306,000069:
046307,000070:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc