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.

020976,000002:                                                                                                  ## Copyright:   Public domain.
020977,000003:                                                                                                  ## Filename:    R31.agc
020978,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
020979,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
020980,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
020981,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
020982,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
020983,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
020984,000010:                                                                                                  ##              other AGC programs.
020985,000011:                                                                                                  ## Assembler:   yaYUL
020986,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
020987,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020988,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
020989,000015: 
020990,000016: 34,2002                                           BANK     34                                    
020991,000017: 31,2000                                           SETLOC   R31                                   
020992,000018: 31,2000                                           BANK                                           
020993,000019: 
020994,000020: 31,2000                                           COUNT*   $$/R31                                
020995,000021: 
020996,000022: 31,2000           35073        R31CALL            CAF      PRIO3                                 
020997,000023: 31,2001           05163                           TC       FINDVAC                               
020998,000024: 31,2002  E4,1770                                  EBANK=   SUBEXIT                               
020999,000025: 31,2002           02032 62064                     2CADR    V83CALL                               
021000,000026: 
021001,000027: 31,2004           35055        DSPDELAY           CAF      1SEC                                  
021002,000028: 31,2005           04676                           TC       BANKCALL                              
021003,000029: 31,2006           01732                           CADR     DELAYJOB                              
021004,000030: 31,2007           31044                           CA       EXTVBACT                              
021005,000031: 31,2010           75020                           MASK     BIT12                                 
021006,000032: 31,2011           00006                           EXTEND                                         
021007,000033: 31,2012           12004                           BZF      DSPDELAY                              
021008,000034: 
021009,000035: 31,2013           30105        DISPN5X            CA       FLAGWRD9                              #  TEST R31FLAG (IN SUNDANCE R31FLAG WILL
021010,000036: 31,2014           75030                           MASK     BIT4                                  #        ALWAYS BE SET AS R34 DOES NOT EXIST)
021011,000037: 31,2015           00006                           EXTEND                                         
021012,000038: 31,2016           12021                           BZF      +3                                    
021013,000039: 31,2017           32136                           CAF      V16N54                                #  R31   USE NOUN 54
021014,000040: 31,2020           02022                           TC       +2                                    
021015,000041: 31,2021           32137                           CAF      V16N53                                #  R34   USE NOUN 53
021016,000042: 31,2022           04676                           TC       BANKCALL                              
021017,000043: 31,2023           20561                           CADR     GOMARKF                               
021018,000044: 31,2024           05641                           TC       B5OFF                                 
021019,000045: 31,2025           05641                           TC       B5OFF                                 
021020,000046: 31,2026           12013                           TCF      DISPN5X                               
021021,000047: 
021022,000048: 31,2027           06006        V83                TC       INTPRET                               
021023,000049: 31,2030           77650                           GOTO                                           
021024,000050: 31,2031           62171                                    HAVEBASE                              #  INTEG STATE VECTORS
021025,000051: 31,2032           06006        V83CALL            TC       INTPRET                               
021026,000052: 31,2033           77650                           GOTO                                           
021027,000053: 31,2034           62140                                    STATEXTP                              #  EXTRAPOLATE STATE VECTORS
021028,000054: 31,2035           52375        COMPDISP           VLOAD    VSU                                   
021029,000055: 31,2036           00001                                    RATT                                  
021030,000056: 31,2037           02327                                    RONE                                  
021031,000057: 31,2040           51406                           PUSH     ABVAL                                 #  RATT-RONE TO 0D       PD= 6
021032,000058: 31,2041           02321                           STORE    RANGE                                 #  METERS B-29
021033,000059: 31,2042           77301                           NORM     VLOAD                                 
021034,000060: 31,2043           00047                                    X1                                    #  RATT-RONE             PD= 0
021035,000061: 31,2044           77762                           VSR1                                           
021036,000062: 31,2045           53457                           VSL*     UNIT                                  
021037,000063: 31,2046           20201                                    0,1                                   
021038,000064: 31,2047           52315                           PDVL     VSU                                   #  UNIT(LOS) TO 0D       PD= 6
021039,000065: 31,2050           00007                                    VATT                                  
021040,000066: 31,2051           02335                                    VONE                                  
021041,000067: 31,2052           77641                           DOT                                            #  (VATT-VONE).UNIT(LOS) PD= 0
021042,000068: 31,2053           77752                           SL1                                            
021043,000069: 31,2054           36323                           STCALL   RRATE                                 #  RANGE RATE M/CS B-7
021044,000070: 31,2055           47501                                    CDUTRIG                               #  TO INITIALIZE FOR *NBSM*
021045,000071: 31,2056           77624                           CALL                                           
021046,000072: 31,2057           62311                                    R34LOS                                #  NOTE.  PDL MUST = 0.
021047,000073: 31,2060           53575        R34ANG             VLOAD    UNIT                                  
021048,000074: 31,2061           02327                                    RONE                                  
021049,000075: 31,2062           77715                           PDVL                                           #  UR TO 0D              PD= 6
021050,000076: 31,2063           15332                                    THISAXIS                              #  UNITX FOR CM, UNITZ FOR LM
021051,000077: 31,2064           77214                           BON      VLOAD                                 #  CHK R31FLAG.  ON=R31 THETA, OFF=R34 PHI
021052,000078: 31,2065           04713                                    R31FLAG                               
021053,000079: 31,2066           62070                                    +2                                    #  R31-THETA
021054,000080: 31,2067           00015                                    12D                                   
021055,000081: 31,2070           77624                           CALL                                           
021056,000082: 31,2071           47650                                    *NBSM*                                
021057,000083: 31,2072           41505                           VXM      PUSH                                  #  UXORZ TO 6D           PD=12D
021058,000084: 31,2073           01736                                    REFSMMAT                              
021059,000085: 31,2074           72431                           VPROJ    VSL2                                  
021060,000086: 31,2075           00001                                    0D                                    
021061,000087: 31,2076           53445                           BVSU     UNIT                                  
021062,000088: 31,2077           00007                                    6D                                    
021063,000089: 31,2100           47315                           PDVL     VXV                                   #  UP/2 TO 12D           PD=18D
021064,000090: 31,2101           02327                                    RONE                                  
021065,000091: 31,2102           02335                                    VONE                                  
021066,000092: 31,2103           47256                           UNIT     VXV                                   
021067,000093: 31,2104           02327                                    RONE                                  
021068,000094: 31,2105           63241                           DOT      PDVL                                  #  SIGN TO 12D, UP/2 TO MPAC     PD=18D
021069,000095: 31,2106           00015                                    12D                                   
021070,000096: 31,2107           50372                           VSL1     DOT                                   #  UP.UXORZ
021071,000097: 31,2110           00007                                    6D                                    
021072,000098: 31,2111           72565                           SIGN     SL1                                   
021073,000099: 31,2112           00015                                    12D                                   
021074,000100: 31,2113           77726                           ACOS                                           
021075,000101: 31,2114           26325                           STOVL    RTHETA                                
021076,000102: 31,2115           02327                                    RONE                                  
021077,000103: 31,2116           51041                           DOT      BPL                                   
021078,000104: 31,2117           00007                                    6D                                    
021079,000105: 31,2120           62125                                    +5                                    
021080,000106: 31,2121           44345                           DLOAD    BDSU                                  #  IF UXORZ.R NEG, RTHETA = 1 - RTHETA
021081,000107: 31,2122           02325                                    RTHETA                                
021082,000108: 31,2123           15342                                    DPPOSMAX                              
021083,000109: 31,2124           02325                           STORE    RTHETA                                #  RTHETA BETWEEN 0 AND 1 REV.
021084,000110: 31,2125           77776                           EXIT                                           
021085,000111: 31,2126           35027                           CAF      BIT5                                  #  HAVE WE BEEN ANSWERED
021086,000112: 31,2127           71044                           MASK     EXTVBACT                              
021087,000113: 31,2130           00006                           EXTEND                                         
021088,000114: 31,2131           15550                           BZF      ENDEXT                                #  YES, DIE
021089,000115: 31,2132           41044                           CS       EXTVBACT                              
021090,000116: 31,2133           75020                           MASK     BIT12                                 
021091,000117: 31,2134           27044                           ADS      EXTVBACT                              
021092,000118: 
021093,000119: 31,2135           12027                           TCF      V83                                   
021094,000120: 31,2136           04066        V16N54             VN       1654                                  
021095,000121: 31,2137           04065        V16N53             VN       1653                                  
021096,000122: 
021097,000123:                                                                                                  #  STATEXTP DOES AN INITIAL PRECISION EXTRAPOLATION OF THE
021098,000124:                                                                                                  #  LEM STATE VECTOR TO PRESENT TIME OR TO PIPTIME IF AV G
021099,000125:                                                                                                  #  IS ON AND SAVES AS BASE VECTOR. IF AV G IS ON RN + VN
021100,000126:                                                                                                  #  ARE USED AS THE CM STATE VECTOR AND THE INITIAL R RDOT
021101,000127:                                                                                                  #  RTHETA ARE COMPUTED WITH NO FURTHER INTEGRATION. IF AV
021102,000128:                                                                                                  #  G IS OFF A PRECISION EXTRAPOLATION IS MADE OF THE CM
021103,000129:                                                                                                  #  STATE VECTOR TO PRESENT TIME AND.....
021104,000130: 
021105,000131:                                                                                                  #    THE CM + LM STATE VECTORS ARE INTEGRATED TO PRES TIME
021106,000132:                                                                                                  #    USING PRECISION OR CONIC AS SURFFLAG IS SET OR CLEAR.
021107,000133: 
021108,000134:                                                                                                  #    IF AV G IS ON THEN SUBSEQUENT PASSES WILL PROVIDE
021109,000135:                                                                                                  #      USE OF RN + VN AS CM STATE VECTOR AND THE LM STATE
021110,000136:                                                                                                  #      VECTOR WILL BE PRECISION INTEGRATED USING LEMPREC
021111,000137: 
021112,000138:                                                                                                  #    IF SURFFLAG IS SET.
021113,000139:                                                                                                  #      CM STATE VECTOR RONE VONE + LM STATE VECTOR RATT
021114,000140:                                                                                                  #      VATT ARE USED IN COMPUTING R RDOT RTHETA.
021115,000141: 
021116,000142: 
021117,000143: 31,2140           43034        STATEXTP           RTB      BOF                                   #  INITIAL INTEGRATION
021118,000144: 31,2141           45510                                    LOADTIME                              
021119,000145: 31,2142           03751                                    V37FLAG                               
021120,000146: 31,2143           62146                                    +3                                    #  AV G OFF, USE PRES TIME
021121,000147: 31,2144           77624                           CALL                                           
021122,000148: 31,2145           62273                                    GETRVN                                #       ON,  USE RN VN PIPTIME
021123,000149: 31,2146           02343                           STORE    BASETIME                              #  PRES TIME OR PIPTIME
021124,000150: 31,2147           34041                           STCALL   TDEC1                                 
021125,000151: 31,2150           27115                                    LEMPREC                               
021126,000152: 31,2151           77775                           VLOAD                                          #  BASE VECTOR, LM
021127,000153: 31,2152           00017                                    RATT1                                 
021128,000154: 31,2153           26225                           STOVL    BASEOTP                               #    POS.
021129,000155: 31,2154           00025                                    VATT1                                 
021130,000156: 31,2155           02241                           STORE    BASEOTV                               #    VEL.
021131,000157: 31,2156           71214                           BON      DLOAD                                 
021132,000158: 31,2157           03711                                    V37FLAG                               
021133,000159: 31,2160           62035                                    COMPDISP                              #  COMPUTE R RDOT RTHETA FROM
021134,000160:                                                                                                  #  RONE(RN) VONE(VN) RATT+VATT(LEMPREC)
021135,000161: 31,2161           00015                                    TAT                                   
021136,000162: 31,2162           34041                           STCALL   TDEC1                                 
021137,000163: 31,2163           27101                                    CSMPREC                               
021138,000164: 31,2164           77775                           VLOAD                                          #  BASE VECTOR, CM
021139,000165: 31,2165           00017                                    RATT1                                 
021140,000166: 31,2166           26255                           STOVL    BASETHP                               #   POS.
021141,000167: 31,2167           00025                                    VATT1                                 
021142,000168: 31,2170           02263                           STORE    BASETHV                               #   VEL.
021143,000169: 31,2171           47014        HAVEBASE           BON      RTB                                   #  SUBSEQUENT INTEGRATIONS
021144,000170: 31,2172           03711                                    V37FLAG                               
021145,000171: 31,2173           62256                                    GETRVN5                               
021146,000172: 31,2174           45510                                    LOADTIME                              
021147,000173: 31,2175           34041                           STCALL   TDEC1                                 #  AV G OFF. SET INTEG. OF CM
021148,000174: 31,2176           27452                                    INTSTALL                              
021149,000175: 31,2177           43175                           VLOAD    CLEAR                                 
021150,000176: 31,2200           02255                                    BASETHP                               
021151,000177: 31,2201           00263                                    MOONFLAG                              
021152,000178: 31,2202           25535                           STOVL    RCV                                   
021153,000179: 31,2203           02263                                    BASETHV                               
021154,000180: 31,2204           15543                           STODL    VCV                                   
021155,000181: 31,2205           02343                                    BASETIME                              
021156,000182: 31,2206           43014                           BOF      SET                                   #  GET APPROPRIATE MOONFLAG SETTING
021157,000183: 31,2207           04343                                    MOONTHIS                              
021158,000184: 31,2210           62212                                    +2                                    
021159,000185: 31,2211           00063                                    MOONFLAG                              
021160,000186: 31,2212           77614                           CLEAR                                          
021161,000187: 31,2213           01673                                    INTYPFLG                              
021162,000188: 31,2214           43014                           BON      SET                                   
021163,000189: 31,2215           04307                                    SURFFLAG                              
021164,000190: 31,2216           62220                                    +2                                    #  PREC. IF LM DOWN
021165,000191: 31,2217           01473                                    INTYPFLG                              #  CONIC IF LM NOT DOWN
021166,000192: 31,2220           35517                           STCALL   TET                                   
021167,000193: 31,2221           27145                                    INTEGRVS                              #  INTEGRATION --- AT LAST---
021168,000194: 31,2222           77775                           VLOAD                                          
021169,000195: 31,2223           00001                                    RATT                                  
021170,000196: 31,2224           26327                           STOVL    RONE                                  
021171,000197: 31,2225           00007                                    VATT                                  
021172,000198: 31,2226           16335                           STODL    VONE                                  #  GET SET FOR CONIC EXTRAP.,OTHER
021173,000199: 31,2227           00015                                    TAT                                   
021174,000200: 31,2230           45014                           BON      CALL                                  
021175,000201: 31,2231           04307                                    SURFFLAG                              
021176,000202: 31,2232           62267                                    GETRVN6                               #  LEMPREC IF LM DOWN
021177,000203: 31,2233           27452                                    INTSTALL                              #  ..CONIC IF NOT DOWN
021178,000204: 31,2234           77614                           SET                                            
021179,000205: 31,2235           01473                                    INTYPFLG                              
021180,000206: 31,2236           00041        OTHINT             STORE    TDEC1                                 #  ENTERED IF AV G ON TO INTEG LM
021181,000207: 31,2237           43175                           VLOAD    CLEAR                                 
021182,000208: 31,2240           02225                                    BASEOTP                               
021183,000209: 31,2241           00263                                    MOONFLAG                              
021184,000210: 31,2242           25535                           STOVL    RCV                                   
021185,000211: 31,2243           02241                                    BASEOTV                               
021186,000212: 31,2244           15543                           STODL    VCV                                   
021187,000213: 31,2245           02343                                    BASETIME                              
021188,000214: 31,2246           43014                           BOF      SET                                   
021189,000215: 31,2247           04343                                    MOONTHIS                              
021190,000216: 31,2250           62252                                    +2                                    
021191,000217: 31,2251           00063                                    MOONFLAG                              
021192,000218: 31,2252           35517                           STCALL   TET                                   
021193,000219: 31,2253           27145                                    INTEGRVS                              
021194,000220: 31,2254           77650                           GOTO                                           
021195,000221: 31,2255           62035                                    COMPDISP                              #  COMPUTE R RDOT RTHETA         
021196,000222: 31,2256           77624        GETRVN5            CALL                                           #  AV G ON
021197,000223: 31,2257           62273                                    GETRVN                                
021198,000224: 31,2260           45014                           BON      CALL                                  
021199,000225: 31,2261           04307                                    SURFFLAG                              
021200,000226: 31,2262           62267                                    GETRVN6                               #  LM DOWN, LMPREC
021201,000227: 31,2263           27452                                    INTSTALL                              
021202,000228: 31,2264           52014                           CLEAR    GOTO                                  
021203,000229: 31,2265           01673                                    INTYPFLG                              
021204,000230: 31,2266           62236                                    OTHINT                                
021205,000231: 31,2267           34041        GETRVN6            STCALL   TDEC1                                 
021206,000232: 31,2270           27115                                    LEMPREC                               
021207,000233: 31,2271           77650                           GOTO                                           
021208,000234: 31,2272           62035                                    COMPDISP                              #  COMPUTE R RDOT RTHETA
021209,000235: 31,2273           77620        GETRVN             STQ                                            
021210,000236: 31,2274           00000                                    0D                                    
021211,000237: 31,2275           52175                           VLOAD    GOTO                                  #  AV G ON, RONE = RN VONE = VN
021212,000238: 31,2276           01171                                    RN                                    #   AND USE PIPTIME
021213,000239: 31,2277           62300                                    +1                                    
021214,000240: 31,2300           36327                           STCALL   RONE                                  
021215,000241: 31,2301           62302                                    +1                                    
021216,000242: 31,2302           52175                           VLOAD    GOTO                                  
021217,000243: 31,2303           01177                                    VN                                    
021218,000244: 31,2304           62305                                    +1                                    
021219,000245: 31,2305           16335                           STODL    VONE                                  
021220,000246: 31,2306           01205                                    PIPTIME                               
021221,000247: 31,2307           77650                           GOTO                                           
021222,000248: 31,2310           00000                                    0D                                    
021223,000249: 31,2000                                           SETLOC   R34                                   
021224,000250: 31,2000                                           BANK                                           
021225,000251: 31,2311           77776        R34LOS             EXIT                                           
021226,000252: 31,2312           30036                           CA       CDUS                                  
021227,000253: 31,2313           50120                           INDEX    FIXLOC                                
021228,000254: 31,2314           54011                           TS       9D                                    
021229,000255: 31,2315           30035                           CA       CDUT                                  
021230,000256: 31,2316           50120                           INDEX    FIXLOC                                
021231,000257: 31,2317           54013                           TS       11D                                   
021232,000258: 31,2320           30120                           CA       FIXLOC                                
021233,000259: 31,2321           66211                           AD       SIX                                   
021234,000260: 31,2322           40000                           COM                                            
021235,000261: 31,2323           50120                           INDEX    FIXLOC                                
021236,000262: 31,2324           54046                           TS       X1                                    
021237,000263: 31,2325           06006                           TC       INTPRET                               
021238,000264: 31,2326           77624                           CALL                                           
021239,000265: 31,2327           46000                                    SXTNB                                 
021240,000266: 31,2330           34015                           STCALL   12D                                   
021241,000267: 31,2331           62060                                    R34ANG                                

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