Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 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.
|
051580,000002: ## Copyright: Public domain.
051581,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
051582,000004: ## Purpose: A section of Artemis revision 071.
051583,000005: ## It is part of the reconstructed source code for the first
051584,000006: ## release of the flight software for the Command Module's
051585,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
051586,000008: ## 17. The code has been recreated from a copy of Artemis 072.
051587,000009: ## It has been adapted such that the resulting bugger words
051588,000010: ## exactly match those specified for Artemis 071 in NASA
051589,000011: ## drawing 2021154-, which gives relatively high confidence
051590,000012: ## that the reconstruction is correct.
051591,000013: ## Reference: 1205
051592,000014: ## Assembler: yaYUL
051593,000015: ## Contact: Ron Burkey <info@sandroid.org>.
051594,000016: ## Website: www.ibiblio.org/apollo/index.html
051595,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
051596,000018:
|
|
Page 1205
|
051598,000020: 26,2000 SETLOC INTPRET1
051599,000021: 26,2000 BANK
051600,000022:
051601,000023: 26,3325 COUNT* $$/ICONS
051602,000024: 26,3325 10000 00000 DP1/4TH 2DEC .25
051603,000025: 26,3327 00000 00000 UNITZ 2DEC 0 B-28
051604,000026: 26,3331 00000 00000 UNITY 2DEC 0 B-28
051605,000027: 26,3333 20000 00000 UNITX 2DEC .5
051606,000028: 26,3335 00000 00000 ZEROVECS 2DEC 0 B-28
051607,000029: 26,3337 00000 00000 2DEC 0 B-28
051608,000030: 26,3341 00000 00000 2DEC 0 B-28
051609,000031: 26,3343 26,3333 DPHALF = UNITX
051610,000032: 26,3343 37777 DPPOSMAX OCT 37777
051611,000033: 26,3344 37777 OCT 37777
051612,000034:
|
|
Page 1206
|
051614,000036:
051615,000037: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051616,000038:
051617,000039: 04,2000 SETLOC INTPRET2
051618,000040: 04,2000 BANK
051619,000041:
051620,000042: 04,3753 COUNT* $$/ICONS
051621,000043: 04,3753 00000 00000 ZUNIT 2DEC 0 B-28
051622,000044: 04,3755 00000 00000 YUNIT 2DEC 0 B-28
051623,000045: 04,3757 20000 00000 XUNIT 2DEC .5
051624,000046: 04,3761 00000 00000 ZEROVEC 2DEC 0 B-28
051625,000047: 04,3763 00000 00000 2DEC 0 B-28
051626,000048: 04,3765 00000 00000 2DEC 0 B-28
051627,000049:
051628,000050: 04,3767 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051629,000051: 04,3770 77771 DEC-6 DEC -6 B-14
051630,000052: 04,3771 77763 DEC-12 DEC -12 B-14
051631,000053: 04,3772 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051632,000054: 04,3774 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051633,000055:
051634,000056: 04,3776 04,3761 ZERODP = ZEROVEC
051635,000057: 04,3776 04,3757 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc