Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72
source code was then modified by incorporating changes known from contemporary documentation to have
been made between revisions 72 and 72/3. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72/3 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
050383,000002: ## Copyright: Public domain.
050384,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
050385,000004: ## Purpose: A section of Manche72 revision 3.
050386,000005: ## It is part of the reconstructed source code for the final, flown
050387,000006: ## release of the software for the Command Module's (CM) Apollo
050388,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
050389,000008: ## of this program are available; instead, this file was recreated
050390,000009: ## from a reconstructed copy of Comanche 072. It has been adapted
050391,000010: ## such that the resulting bugger words exactly match those
050392,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G,
050393,000012: ## which gives relatively high confidence that the reconstruction
050394,000013: ## is correct.
050395,000014: ## Assembler: yaYUL
050396,000015: ## Contact: Ron Burkey <info@sandroid.org>.
050397,000016: ## Website: www.ibiblio.org/apollo/index.html
050398,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072.
050399,000018:
050400,000019: 26,2000 SETLOC INTPRET1
050401,000020: 26,2000 BANK
050402,000021:
050403,000022: 26,3323 COUNT 23/ICONS
050404,000023:
050405,000024: 26,3323 10000 00000 DP1/4TH 2DEC .25
050406,000025:
050407,000026: 26,3325 00000 00000 UNITZ 2DEC 0 B-28
050408,000027:
050409,000028: 26,3327 00000 00000 UNITY 2DEC 0 B-28
050410,000029:
050411,000030: 26,3331 20000 00000 UNITX 2DEC .5
050412,000031:
050413,000032: 26,3333 00000 00000 ZEROVECS 2DEC 0 B-28
050414,000033:
050415,000034: 26,3335 00000 00000 2DEC 0 B-28
050416,000035:
050417,000036: 26,3337 00000 00000 2DEC 0 B-28
050418,000037:
050419,000038: 26,3341 26,3331 DPHALF = UNITX
050420,000039: 26,3341 37777 DPPOSMAX OCT 37777
050421,000040: 26,3342 37777 OCT 37777
050422,000041:
050423,000042: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050424,000043:
050425,000044: 04,2000 SETLOC INTPRET2
050426,000045: 04,2000 BANK
050427,000046:
050428,000047: 04,3557 COUNT 14/ICONS
050429,000048:
050430,000049: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
050431,000050:
050432,000051: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
050433,000052:
050434,000053: 04,3563 20000 00000 XUNIT 2DEC .5
050435,000054:
050436,000055: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
050437,000056:
050438,000057: 04,3567 00000 00000 2DEC 0 B-28
050439,000058:
050440,000059: 04,3571 00000 00000 2DEC 0 B-28
050441,000060:
050442,000061: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
050443,000062: 04,3574 77771 DEC-6 DEC -6 B-14
050444,000063: 04,3575 77763 DEC-12 DEC -12 B-14
050445,000064: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
050446,000065:
050447,000066: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
050448,000067:
050449,000068: 04,3602 04,3565 ZERODP = ZEROVEC
050450,000069: 04,3602 04,3563 HALFDP = XUNIT
050451,000070:
050452,000071:
050453,000072:
050454,000073:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc