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