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.
|
001495,000002: ## Copyright: Public domain.
001496,000003: ## Filename: SUBROUTINE_CALLS.agc
001497,000004: ## Purpose: A section of Artemis revision 071.
001498,000005: ## It is part of the reconstructed source code for the first
001499,000006: ## release of the flight software for the Command Module's
001500,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
001501,000008: ## 17. The code has been recreated from a copy of Artemis 072.
001502,000009: ## It has been adapted such that the resulting bugger words
001503,000010: ## exactly match those specified for Artemis 071 in NASA
001504,000011: ## drawing 2021154-, which gives relatively high confidence
001505,000012: ## that the reconstruction is correct.
001506,000013: ## Reference: 37
001507,000014: ## Assembler: yaYUL
001508,000015: ## Contact: Ron Burkey <info@sandroid.org>.
001509,000016: ## Website: www.ibiblio.org/apollo/index.html
001510,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
001511,000018: ## 2019-08-15 MAS Decremented the MENELAUS version number.
001512,000019:
|
|
Page 37
|
001514,000021:
001515,000022: ??????? SUBRO ERASTOTL 041
001516,000023: ??????? SUBRO DIOGENES 064
001517,000024: ??????? SUBRO MEDUSA 035
|
|
The subroutine MENELAUS was version 061 in Artemis 072. Presumably, because
the change in it was small, Artemis 071 had one version earlier, wihch is
what we show below.
|
001521,000028: ??????? SUBRO MENELAUS 060
001522,000029: ??????? SUBRO ULYSSES 029
001523,000030: ??????? SUBRO ZEUS 046
001524,000031:
End of include-file SUBROUTINE_CALLS.agc. Parent file is MAIN.agc