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