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.

001460,000002:                                                                                                  ## Copyright:   Public domain.
001461,000003:                                                                                                  ## Filename:    ABSOLUTE_LOCATIONS_FOR_UPDATES.agc
001462,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
001463,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
001464,000006:                                                                                                  ##              release of the flight software for the Command Module's
001465,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
001466,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
001467,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
001468,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
001469,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
001470,000012:                                                                                                  ##              that the reconstruction is correct.
001471,000013:                                                                                                  ## Reference:   36
001472,000014:                                                                                                  ## Assembler:   yaYUL
001473,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
001474,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001475,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
001476,000018: 

Page 36

001478,000020:                                                                                                  #  ECADR                 MNEMONIC
001479,000021:                                                                                                  #  -----                 --------
001480,000022: 43,2000                                           =ECADR   UPSVFLAG                              #  CSM/LM STATE VECTOR UPDATE
001481,000023: 
001482,000024: ???????                                           =ECADR   XSMD                                  #  DESIRED REFSMMAT UPDATE
001483,000025: 
001484,000026: ???????                                           =ECADR   REFSMMAT                              #  REFSMMAT UPDATE
001485,000027: 
001486,000028: ???????                                           =ECADR   DELVSLV                               #  EXTERNAL DELTA-V UPDATE
001487,000029: 
001488,000030: ???????                                           =ECADR   LAT(SPL)                              #  RETROFIRE EXT DELTA-V OR ENTRY UPDATE
001489,000031: 
001490,000032: ???????                                           =ECADR   TIG                                   #  LAMBERT TARGET UPDATE
001491,000033: 
001492,000034: ???????                                           =ECADR   RLS                                   #  LANDING SITE VECTOR UPDATE

End of include-file ABSOLUTE_LOCATIONS_FOR_UPDATES.agc.  Parent file is MAIN.agc