Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 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.
|
051279,000002: ## Copyright: Public domain.
051280,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
051281,000004: ## Purpose: A section of Comanche revision 051.
051282,000005: ## It is part of the reconstructed source code for the
051283,000006: ## original release of the flight software for the Command
051284,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
051285,000008: ## The code has been recreated from a copy of Comanche 055. It
051286,000009: ## has been adapted such that the resulting bugger words
051287,000010: ## exactly match those specified for Comanche 51 in NASA drawing
051288,000011: ## 2021153D, which gives relatively high confidence that the
051289,000012: ## reconstruction is correct.
051290,000013: ## Reference: pp. 1205-1206
051291,000014: ## Assembler: yaYUL
051292,000015: ## Contact: Ron Burkey <info@sandroid.org>.
051293,000016: ## Website: www.ibiblio.org/apollo/index.html
051294,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
051295,000018:
|
|
Page 1205
|
051297,000020: 26,2000 SETLOC INTPRET1
051298,000021: 26,2000 BANK
051299,000022:
051300,000023: 26,3324 COUNT 23/ICONS
051301,000024:
051302,000025: 26,3324 10000 00000 DP1/4TH 2DEC .25
051303,000026:
051304,000027: 26,3326 00000 00000 UNITZ 2DEC 0 B-28
051305,000028:
051306,000029: 26,3330 00000 00000 UNITY 2DEC 0 B-28
051307,000030:
051308,000031: 26,3332 20000 00000 UNITX 2DEC .5
051309,000032:
051310,000033: 26,3334 00000 00000 ZEROVECS 2DEC 0 B-28
051311,000034:
051312,000035: 26,3336 00000 00000 2DEC 0 B-28
051313,000036:
051314,000037: 26,3340 00000 00000 2DEC 0 B-28
051315,000038:
051316,000039: 26,3342 26,3332 DPHALF = UNITX
051317,000040: 26,3342 37777 DPPOSMAX OCT 37777
051318,000041: 26,3343 37777 OCT 37777
051319,000042:
|
|
Page 1206
|
051321,000044: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051322,000045:
051323,000046: 04,2000 SETLOC INTPRET2
051324,000047: 04,2000 BANK
051325,000048:
051326,000049: 04,3557 COUNT 14/ICONS
051327,000050:
051328,000051: 04,3557 00000 00000 ZUNIT 2DEC 0 B-28
051329,000052:
051330,000053: 04,3561 00000 00000 YUNIT 2DEC 0 B-28
051331,000054:
051332,000055: 04,3563 20000 00000 XUNIT 2DEC .5
051333,000056:
051334,000057: 04,3565 00000 00000 ZEROVEC 2DEC 0 B-28
051335,000058:
051336,000059: 04,3567 00000 00000 2DEC 0 B-28
051337,000060:
051338,000061: 04,3571 00000 00000 2DEC 0 B-28
051339,000062:
051340,000063: 04,3573 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051341,000064: 04,3574 77771 DEC-6 DEC -6 B-14
051342,000065: 04,3575 77763 DEC-12 DEC -12 B-14
051343,000066: 04,3576 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051344,000067:
051345,000068: 04,3600 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051346,000069:
051347,000070: 04,3602 04,3565 ZERODP = ZEROVEC
051348,000071: 04,3602 04,3563 HALFDP = XUNIT
051349,000072:
051350,000073:
051351,000074:
051352,000075:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc