Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

050466,000002:                                                                                                  ## Copyright:   Public domain.
050467,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
050468,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
050469,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
050470,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
050471,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
050472,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
050473,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
050474,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
050475,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
050476,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
050477,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
050478,000014:                                                                                                  ##              reconstruction is correct.
050479,000015:                                                                                                  ## Assembler:   yaYUL
050480,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050481,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050482,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
050483,000019: 
050484,000020: 26,2000                                           SETLOC   INTPRET1                              
050485,000021: 26,2000                                           BANK                                           
050486,000022: 
050487,000023: 26,3323                                           COUNT    23/ICONS                              
050488,000024: 
050489,000025: 26,3323           10000 00000  DP1/4TH            2DEC     .25                                   
050490,000026: 
050491,000027: 26,3325           00000 00000  UNITZ              2DEC     0          B-28                       
050492,000028: 
050493,000029: 26,3327           00000 00000  UNITY              2DEC     0          B-28                       
050494,000030: 
050495,000031: 26,3331           20000 00000  UNITX              2DEC     .5                                    
050496,000032: 
050497,000033: 26,3333           00000 00000  ZEROVECS           2DEC     0          B-28                       
050498,000034: 
050499,000035: 26,3335           00000 00000                     2DEC     0          B-28                       
050500,000036: 
050501,000037: 26,3337           00000 00000                     2DEC     0          B-28                       
050502,000038: 
050503,000039: 26,3341  26,3331               DPHALF             =        UNITX                                 
050504,000040: 26,3341           37777        DPPOSMAX           OCT      37777                                 
050505,000041: 26,3342           37777                           OCT      37777                                 
050506,000042: 
050507,000043:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050508,000044: 
050509,000045: 04,2000                                           SETLOC   INTPRET2                              
050510,000046: 04,2000                                           BANK                                           
050511,000047: 
050512,000048: 04,3557                                           COUNT    14/ICONS                              
050513,000049: 
050514,000050: 04,3557           00000 00000  ZUNIT              2DEC     0          B-28                       
050515,000051: 
050516,000052: 04,3561           00000 00000  YUNIT              2DEC     0          B-28                       
050517,000053: 
050518,000054: 04,3563           20000 00000  XUNIT              2DEC     .5                                    
050519,000055: 
050520,000056: 04,3565           00000 00000  ZEROVEC            2DEC     0          B-28                       
050521,000057: 
050522,000058: 04,3567           00000 00000                     2DEC     0          B-28                       
050523,000059: 
050524,000060: 04,3571           00000 00000                     2DEC     0          B-28                       
050525,000061: 
050526,000062: 04,3573           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
050527,000063: 04,3574           77771        DEC-6              DEC      -6         B-14                       
050528,000064: 04,3575           77763        DEC-12             DEC      -12        B-14                       
050529,000065: 04,3576           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
050530,000066: 
050531,000067: 04,3600           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
050532,000068: 
050533,000069: 04,3602  04,3565               ZERODP             =        ZEROVEC                               
050534,000070: 04,3602  04,3563               HALFDP             =        XUNIT                                 
050535,000071: 
050536,000072: 
050537,000073: 
050538,000074: 

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