Source Code
|
These source-code files are part of a reconstructed copy of LM131 revision 1,
the final release of the Apollo 13 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The source reconstruction began with source code of Luminary 131 previously
transcribed from a digitized copy of that program. A dump of the flight spare
core rope memory module B5, part number 2010802-171, serial number RAY 411,
was obtained. This module is the only module different between Luminary 131
and LM131 revision 1. The dump was disassembled and all changes were incorporated
into these source files. Note that page numbers in the reconstructed code match
those on the Luminary 131 printout, although the changed code would likely have
changed page numbers for a real LM131 revision 1 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.
|
045951,000002: ## Copyright: Public domain.
045952,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
045953,000004: ## Purpose: A section of LM131 revision 1.
045954,000005: ## It is part of the reconstructed source code for the final
045955,000006: ## release of the flight software for the Lunar Module's (LM)
045956,000007: ## Apollo Guidance Computer (AGC) for Apollo 13. The code has
045957,000008: ## been reconstructed from a listing of Luminary 131 and a dump
045958,000009: ## of a core rope memory module B5, part number 2010802-171,
045959,000010: ## which is the only module different between LM131 revision 1
045960,000011: ## and Luminary 131. The executable generated from this source
045961,000012: ## has been verified against the module dump, so while the names,
045962,000013: ## comments, and ordering may not be exactly correct, the
045963,000014: ## resulting binary is.
045964,000015: ## Reference: pp. 1094-1095
045965,000016: ## Assembler: yaYUL
045966,000017: ## Contact: Ron Burkey <info@sandroid.org>.
045967,000018: ## Website: www.ibiblio.org/apollo/index.html
045968,000019: ## Mod history: 2022-10-28 MAS Created from Luminary 131.
045969,000020:
|
|
Page 1094
|
045971,000022: 23,2000 SETLOC INTPRET1
045972,000023: 23,2000 BANK
045973,000024:
045974,000025: 23,2513 COUNT* $$/ICONS
045975,000026: 23,2513 10000 00000 DP1/4TH 2DEC .25
045976,000027: 23,2515 00000 00000 UNITZ 2DEC 0 B-28
045977,000028: 23,2517 00000 00000 UNITY 2DEC 0 B-28
045978,000029: 23,2521 20000 00000 UNITX 2DEC .5
045979,000030: 23,2523 00000 00000 ZEROVECS 2DEC 0 B-28
045980,000031: 23,2525 00000 00000 2DEC 0 B-28
045981,000032: 23,2527 00000 00000 2DEC 0 B-28
045982,000033:
045983,000034: 23,2531 23,2521 DPHALF = UNITX
045984,000035: 23,2531 37777 DPPOSMAX OCT 37777
045985,000036: 23,2532 37777 OCT 37777
045986,000037:
|
|
Page 1095
|
045988,000039: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
045989,000040:
045990,000041: 12,2000 SETLOC INTPRET2
045991,000042: 12,2000 BANK
045992,000043:
045993,000044: 12,2000 COUNT* $$/ICONS
045994,000045: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
045995,000046: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
045996,000047: 12,2004 20000 00000 XUNIT 2DEC .5
045997,000048: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
045998,000049: 12,2010 00000 00000 2DEC 0 B-28
045999,000050: 12,2012 00000 00000 2DEC 0 B-28
046000,000051:
046001,000052: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046002,000053: 12,2015 77771 DEC-6 DEC -6 B-14
046003,000054: 12,2016 77763 DEC-12 DEC -12 B-14
046004,000055: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046005,000056: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046006,000057:
046007,000058: 12,2023 12,2006 ZERODP = ZEROVEC
046008,000059: 12,2023 12,2004 HALFDP = XUNIT
046009,000060:
046010,000061:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc