Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. 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 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.
|
050466,000002: ## Copyright: Public domain.
050467,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
050468,000004: ## Purpose: A section of Comanche revision 072.
050469,000005: ## It is part of the reconstructed source code for the first
050470,000006: ## release of the software for the Command Module's (CM) Apollo
050471,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
050472,000008: ## of this program are available; instead, this file was recreated
050473,000009: ## from a printout of Comanche 055, binary dumps of a set of
050474,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
050475,000011: ## and 072. It has been adapted such that the resulting bugger words
050476,000012: ## exactly match those specified for Comanche 072 in NASA drawing
050477,000013: ## 2021153G, which gives relatively high confidence that the
050478,000014: ## reconstruction is correct.
050479,000015: ## Assembler: yaYUL
050480,000016: ## Contact: Ron Burkey <info@sandroid.org>.
050481,000017: ## Website: www.ibiblio.org/apollo/index.html
050482,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
050483,000019:
050484,000020: 26,2000 SETLOC INTPRET1
050485,000021: 26,2000 BANK
050486,000022:
050487,000023: 26,3323 COUNT 23/ICONS
050488,000024:
050489,000025: 26,3323 10000 00000 DP1/4TH 2DEC .25
050490,000026:
050491,000027: 26,3325 00000 00000 UNITZ 2DEC 0 B-28
050492,000028:
050493,000029: 26,3327 00000 00000 UNITY 2DEC 0 B-28
050494,000030:
050495,000031: 26,3331 20000 00000 UNITX 2DEC .5
050496,000032:
050497,000033: 26,3333 00000 00000 ZEROVECS 2DEC 0 B-28
050498,000034:
050499,000035: 26,3335 00000 00000 2DEC 0 B-28
050500,000036:
050501,000037: 26,3337 00000 00000 2DEC 0 B-28
050502,000038:
050503,000039: 26,3341 26,3331 DPHALF = UNITX
050504,000040: 26,3341 37777 DPPOSMAX OCT 37777
050505,000041: 26,3342 37777 OCT 37777
050506,000042:
050507,000043: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050508,000044:
050509,000045: 04,2000 SETLOC INTPRET2
050510,000046: 04,2000 BANK
050511,000047:
050512,000048: 04,3557 COUNT 14/ICONS
050513,000049:
050514,000050: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
050515,000051:
050516,000052: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
050517,000053:
050518,000054: 04,3563 20000 00000 XUNIT 2DEC .5
050519,000055:
050520,000056: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
050521,000057:
050522,000058: 04,3567 00000 00000 2DEC 0 B-28
050523,000059:
050524,000060: 04,3571 00000 00000 2DEC 0 B-28
050525,000061:
050526,000062: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
050527,000063: 04,3574 77771 DEC-6 DEC -6 B-14
050528,000064: 04,3575 77763 DEC-12 DEC -12 B-14
050529,000065: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
050530,000066:
050531,000067: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
050532,000068:
050533,000069: 04,3602 04,3565 ZERODP = ZEROVEC
050534,000070: 04,3602 04,3563 HALFDP = XUNIT
050535,000071:
050536,000072:
050537,000073:
050538,000074:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc