Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

050383,000002:                                                                                                  ## Copyright:   Public domain.
050384,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
050385,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
050386,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
050387,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
050388,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
050389,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
050390,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
050391,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
050392,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
050393,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
050394,000013:                                                                                                  ##              is correct.
050395,000014:                                                                                                  ## Assembler:   yaYUL
050396,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050397,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050398,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
050399,000018: 
050400,000019: 26,2000                                           SETLOC   INTPRET1                              
050401,000020: 26,2000                                           BANK                                           
050402,000021: 
050403,000022: 26,3323                                           COUNT    23/ICONS                              
050404,000023: 
050405,000024: 26,3323           10000 00000  DP1/4TH            2DEC     .25                                   
050406,000025: 
050407,000026: 26,3325           00000 00000  UNITZ              2DEC     0          B-28                       
050408,000027: 
050409,000028: 26,3327           00000 00000  UNITY              2DEC     0          B-28                       
050410,000029: 
050411,000030: 26,3331           20000 00000  UNITX              2DEC     .5                                    
050412,000031: 
050413,000032: 26,3333           00000 00000  ZEROVECS           2DEC     0          B-28                       
050414,000033: 
050415,000034: 26,3335           00000 00000                     2DEC     0          B-28                       
050416,000035: 
050417,000036: 26,3337           00000 00000                     2DEC     0          B-28                       
050418,000037: 
050419,000038: 26,3341  26,3331               DPHALF             =        UNITX                                 
050420,000039: 26,3341           37777        DPPOSMAX           OCT      37777                                 
050421,000040: 26,3342           37777                           OCT      37777                                 
050422,000041: 
050423,000042:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050424,000043: 
050425,000044: 04,2000                                           SETLOC   INTPRET2                              
050426,000045: 04,2000                                           BANK                                           
050427,000046: 
050428,000047: 04,3557                                           COUNT    14/ICONS                              
050429,000048: 
050430,000049: 04,3557           00000 00000  ZUNIT              2DEC     0          B-28                       
050431,000050: 
050432,000051: 04,3561           00000 00000  YUNIT              2DEC     0          B-28                       
050433,000052: 
050434,000053: 04,3563           20000 00000  XUNIT              2DEC     .5                                    
050435,000054: 
050436,000055: 04,3565           00000 00000  ZEROVEC            2DEC     0          B-28                       
050437,000056: 
050438,000057: 04,3567           00000 00000                     2DEC     0          B-28                       
050439,000058: 
050440,000059: 04,3571           00000 00000                     2DEC     0          B-28                       
050441,000060: 
050442,000061: 04,3573           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
050443,000062: 04,3574           77771        DEC-6              DEC      -6         B-14                       
050444,000063: 04,3575           77763        DEC-12             DEC      -12        B-14                       
050445,000064: 04,3576           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
050446,000065: 
050447,000066: 04,3600           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
050448,000067: 
050449,000068: 04,3602  04,3565               ZERODP             =        ZEROVEC                               
050450,000069: 04,3602  04,3563               HALFDP             =        XUNIT                                 
050451,000070: 
050452,000071: 
050453,000072: 
050454,000073: 

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