Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 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.
|
047104,000002: ## Copyright: Public domain.
047105,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
047106,000004: ## Purpose: A section of LUM69 revision 2.
047107,000005: ## It is part of the reconstructed source code for the flown
047108,000006: ## version of the flight software for the Lunar Module's (LM)
047109,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
047110,000008: ## been recreated from a copy of Luminary revsion 069, using
047111,000009: ## changes present in Luminary 099 which were described in
047112,000010: ## Luminary memos 75 and 78. The code has been adapted such
047113,000011: ## that the resulting bugger words exactly match those specified
047114,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
047115,000013: ## relatively high confidence that the reconstruction is correct.
047116,000014: ## Reference: pp. 1095-1096
047117,000015: ## Assembler: yaYUL
047118,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047119,000017: ## Website: www.ibiblio.org/apollo/index.html
047120,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
047121,000019:
|
|
Page 1095
|
047123,000021: 23,2000 SETLOC INTPRET1
047124,000022: 23,2000 BANK
047125,000023:
047126,000024: 23,2413 COUNT* $$/ICONS
047127,000025: 23,2413 10000 00000 DP1/4TH 2DEC .25
047128,000026:
047129,000027: 23,2415 00000 00000 UNITZ 2DEC 0 B-28
047130,000028:
047131,000029: 23,2417 00000 00000 UNITY 2DEC 0 B-28
047132,000030:
047133,000031: 23,2421 20000 00000 UNITX 2DEC .5
047134,000032:
047135,000033: 23,2423 00000 00000 ZEROVECS 2DEC 0 B-28
047136,000034:
047137,000035: 23,2425 00000 00000 2DEC 0 B-28
047138,000036:
047139,000037: 23,2427 00000 00000 2DEC 0 B-28
047140,000038:
047141,000039: 23,2431 23,2421 DPHALF = UNITX
047142,000040: 23,2431 37777 DPPOSMAX OCT 37777
047143,000041: 23,2432 37777 OCT 37777
047144,000042:
|
|
Page 1096
|
047146,000044: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047147,000045:
047148,000046: 11,2000 SETLOC INTPRET2
047149,000047: 11,2000 BANK
047150,000048:
047151,000049: 11,2266 COUNT* $$/ICONS
047152,000050: 11,2266 00000 00000 ZUNIT 2DEC 0 B-28
047153,000051:
047154,000052: 11,2270 00000 00000 YUNIT 2DEC 0 B-28
047155,000053:
047156,000054: 11,2272 20000 00000 XUNIT 2DEC .5
047157,000055:
047158,000056: 11,2274 00000 00000 ZEROVEC 2DEC 0 B-28
047159,000057:
047160,000058: 11,2276 00000 00000 2DEC 0 B-28
047161,000059:
047162,000060: 11,2300 00000 00000 2DEC 0 B-28
047163,000061:
047164,000062: 11,2302 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
047165,000063: 11,2303 77771 DFC-6 DEC -6 B-14
047166,000064: 11,2304 77763 DFC-12 DEC -12 B-14
047167,000065: 11,2305 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047168,000066:
047169,000067: 11,2307 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047170,000068:
047171,000069: 11,2311 11,2274 ZERODP = ZEROVEC
047172,000070: 11,2311 11,2272 HALFDP = XUNIT
047173,000071:
047174,000072:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc