Source Code

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

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

050065,000002:                                                                                                  ## Copyright:   Public domain.
050066,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
050067,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
050068,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
050069,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
050070,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
050071,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
050072,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
050073,000010:                                                                                                  ##              other AGC programs.
050074,000011:                                                                                                  ## Assembler:   yaYUL
050075,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050076,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050077,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
050078,000015: 
050079,000016: 26,2000                                           SETLOC   INTPRET1                              
050080,000017: 26,2000                                           BANK                                           
050081,000018: 
050082,000019: 26,3323                                           COUNT    23/ICONS                              
050083,000020: 
050084,000021: 26,3323           10000 00000  DP1/4TH            2DEC     .25                                   
050085,000022: 
050086,000023: 26,3325           00000 00000  UNITZ              2DEC     0          B-28                       
050087,000024: 
050088,000025: 26,3327           00000 00000  UNITY              2DEC     0          B-28                       
050089,000026: 
050090,000027: 26,3331           20000 00000  UNITX              2DEC     .5                                    
050091,000028: 
050092,000029: 26,3333           00000 00000  ZEROVECS           2DEC     0          B-28                       
050093,000030: 
050094,000031: 26,3335           00000 00000                     2DEC     0          B-28                       
050095,000032: 
050096,000033: 26,3337           00000 00000                     2DEC     0          B-28                       
050097,000034: 
050098,000035: 26,3341  26,3331               DPHALF             =        UNITX                                 
050099,000036: 26,3341           37777        DPPOSMAX           OCT      37777                                 
050100,000037: 26,3342           37777                           OCT      37777                                 
050101,000038: 
050102,000039:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
050103,000040: 
050104,000041: 04,2000                                           SETLOC   INTPRET2                              
050105,000042: 04,2000                                           BANK                                           
050106,000043: 
050107,000044: 04,3557                                           COUNT    14/ICONS                              
050108,000045: 
050109,000046: 04,3557           00000 00000  ZUNIT              2DEC     0          B-28                       
050110,000047: 
050111,000048: 04,3561           00000 00000  YUNIT              2DEC     0          B-28                       
050112,000049: 
050113,000050: 04,3563           20000 00000  XUNIT              2DEC     .5                                    
050114,000051: 
050115,000052: 04,3565           00000 00000  ZEROVEC            2DEC     0          B-28                       
050116,000053: 
050117,000054: 04,3567           00000 00000                     2DEC     0          B-28                       
050118,000055: 
050119,000056: 04,3571           00000 00000                     2DEC     0          B-28                       
050120,000057: 
050121,000058: 04,3573           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
050122,000059: 04,3574           77771        DEC-6              DEC      -6         B-14                       
050123,000060: 04,3575           77763        DEC-12             DEC      -12        B-14                       
050124,000061: 04,3576           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
050125,000062: 
050126,000063: 04,3600           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
050127,000064: 
050128,000065: 04,3602  04,3565               ZERODP             =        ZEROVEC                               
050129,000066: 04,3602  04,3563               HALFDP             =        XUNIT                                 
050130,000067: 
050131,000068: 
050132,000069: 
050133,000070: 

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