Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
050065,000002: ## Copyright: Public domain.
050066,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
050067,000004: ## Purpose: A section of Comanche revision 067.
050068,000005: ## It is part of the reconstructed source code for the flight
050069,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
050070,000007: ## (AGC) for Apollo 12. No original listings of this program are
050071,000008: ## available; instead, this file was created via dissassembly of
050072,000009: ## dumps of Comanche 067 core rope modules and comparison with
050073,000010: ## other AGC programs.
050074,000011: ## Assembler: yaYUL
050075,000012: ## Contact: Ron Burkey <info@sandroid.org>.
050076,000013: ## Website: www.ibiblio.org/apollo/index.html
050077,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
050078,000015:
050079,000016: 26,2000 SETLOC INTPRET1
050080,000017: 26,2000 BANK
050081,000018:
050082,000019: 26,3323 COUNT 23/ICONS
050083,000020:
050084,000021: 26,3323 10000 00000 DP1/4TH 2DEC .25
050085,000022:
050086,000023: 26,3325 00000 00000 UNITZ 2DEC 0 B-28
050087,000024:
050088,000025: 26,3327 00000 00000 UNITY 2DEC 0 B-28
050089,000026:
050090,000027: 26,3331 20000 00000 UNITX 2DEC .5
050091,000028:
050092,000029: 26,3333 00000 00000 ZEROVECS 2DEC 0 B-28
050093,000030:
050094,000031: 26,3335 00000 00000 2DEC 0 B-28
050095,000032:
050096,000033: 26,3337 00000 00000 2DEC 0 B-28
050097,000034:
050098,000035: 26,3341 26,3331 DPHALF = UNITX
050099,000036: 26,3341 37777 DPPOSMAX OCT 37777
050100,000037: 26,3342 37777 OCT 37777
050101,000038:
050102,000039: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050103,000040:
050104,000041: 04,2000 SETLOC INTPRET2
050105,000042: 04,2000 BANK
050106,000043:
050107,000044: 04,3557 COUNT 14/ICONS
050108,000045:
050109,000046: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
050110,000047:
050111,000048: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
050112,000049:
050113,000050: 04,3563 20000 00000 XUNIT 2DEC .5
050114,000051:
050115,000052: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
050116,000053:
050117,000054: 04,3567 00000 00000 2DEC 0 B-28
050118,000055:
050119,000056: 04,3571 00000 00000 2DEC 0 B-28
050120,000057:
050121,000058: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
050122,000059: 04,3574 77771 DEC-6 DEC -6 B-14
050123,000060: 04,3575 77763 DEC-12 DEC -12 B-14
050124,000061: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
050125,000062:
050126,000063: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
050127,000064:
050128,000065: 04,3602 04,3565 ZERODP = ZEROVEC
050129,000066: 04,3602 04,3563 HALFDP = XUNIT
050130,000067:
050131,000068:
050132,000069:
050133,000070:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc