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.

023351,000002:                                                                                                  ## Copyright:   Public domain.
023352,000003:                                                                                                  ## Filename:    TPI_SEARCH.agc
023353,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
023354,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
023355,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
023356,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
023357,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
023358,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
023359,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
023360,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
023361,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
023362,000013:                                                                                                  ##              is correct.
023363,000014:                                                                                                  ## Assembler:   yaYUL
023364,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
023365,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023366,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
023367,000018: 
023368,000019:                                                                                                  #  PROGRAM DESCRIPTION S17.1 AND S17.2
023369,000020: 
023370,000021:                                                                                                  #  FUNCTIONAL DESCRIPTION
023371,000022: 
023372,000023:                                                                                                  #  THE TPI SEARCH ROUTINE DETERMINES THE MINIMUM TOTAL VELOCITY TRANSFER TRAJECTORY FROM A GIVEN TPI
023373,000024:                                                                                                  #  MANEUVER TIME WITHIN THE CONSTRAINT OF A SAFE PERICENTER.  THIS VELOCITY IS THE SUM OF THE IMPULSIVE VELOCITIES
023374,000025:                                                                                                  #  FOR THE TPI AND TPF MANEUVERS.
023375,000026: 
023376,000027:                                                                                                  #  THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
023377,000028:                                                                                                  #  RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E. THE MAGNITUDE DIFFERENCE OF THE 
023378,000029:                                                                                                  #  POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
023379,000030: 
023380,000031:                                                                                                  #  THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA
023381,000032:                                                                                                  #  SUBROUTINE TO COMPUTE THE SEARCH START AND END TIMES.  THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE
023382,000033:                                                                                                  #  LAMBERT SUBROUTINE TO COMPUTE THE VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME.  EXIT FROM THE SEARCH LOOP
023383,000034:                                                                                                  #  IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN
023384,000035:                                                                                                  #  THE SECTOR SEARCHED.
023385,000036: 
023386,000037:                                                                                                  #  CALLING SEQUENCE
023387,000038: 
023388,000039:                                                                                                  #        BOTH ROUTINES ARE CALLED IN INTERPRETIVE CODE AND RETURN VIA QPRET.  S17.1 HAS ONLY A NORMAL EXIT.
023389,000040:                                                                                                  #        S17.2 RETURNS VIA QPRET FOR NORMAL EXIT AND TO ALARUMS FOR ERROR EXIT.
023390,000041: 
023391,000042:                                                                                                  #  SUBROUTINES CALLED
023392,000043: 
023393,000044:                                                                                                  #        CSMCONIC
023394,000045:                                                                                                  #        LEMCONIC
023395,000046:                                                                                                  #        TIMETHET
023396,000047:                                                                                                  #        INITVEL
023397,000048: 
023398,000049: 36,2012                                           BANK     36                                    
023399,000050: 35,2000                                           SETLOC   P17S1                                 
023400,000051: 35,2000                                           BANK                                           
023401,000052: 
023402,000053: 35,3123                                           COUNT    36/TPI                                
023403,000054: 
023404,000055: 35,3123  E7,1537                                  EBANK=   RACT3                                 
023405,000056: 
023406,000057:                                                                                                  #  **** TEMPORARY ****
023407,000058: 
023408,000059: 35,3123           00004 31566  HPE                2DEC     157420.0   B-29                       #  EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
023409,000060: 
023410,000061: 35,3125           00000 12326  HPL                2DEC     10668.0213 B-29                       #  MOON:S MIN. PERICENTER ALTITUDE 35000 FT
023411,000062: 
023412,000063: 35,3127           00002 16100  CDSEC              2DEC     40000      B-28                       
023413,000064: 
023414,000065: 35,3131           00000 35230  CLSEC              2DEC     15000      B-28                       
023415,000066: 
023416,000067: 35,3133           12137 06033  PIINVERS           2DEC     .3183098862                            
023417,000068: 
023418,000069: 35,3135           06161 30707  SEC1THET           2DEC     .1944444444                            
023419,000070: 
023420,000071: 35,3137           35252 25253  SEC2THET           2DEC     .9166666667                            
023421,000072: 
023422,000073: 35,3141           67777 77777  MANYFEET           2DEC     -1.0       B-2                        
023423,000074: 
023424,000075: 35,3143           00000 30760  LIMVEL             2DEC     .6096      E-2        B-7             #  2FPS
023425,000076: 
023426,000077: 35,3145           00000 00114  DFTMOON            2DEC     .1524      E3         B-29            #  500 FEET
023427,000078: 
023428,000079: 35,3147           00040 30447  DP-.002            2DEC     0.002                                 
023429,000080: 
023430,000081: 36,2000                                           SETLOC   P17S                                  
023431,000082: 36,2000                                           BANK                                           
023432,000083: 36,2012           71220        S17.1              STQ      DLOAD                                 
023433,000084: 36,2013           01340                                    NORMEX                                
023434,000085: 36,2014           03663                                    TTPI                                  
023435,000086: 36,2015           34041                           STCALL   TDEC1                                 #  ADVANCE PASSIVE VEHICLE TO TPI
023436,000087: 36,2016           27135                                    LEMCONIC                              
023437,000088: 36,2017           77624                           CALL                                           
023438,000089: 36,2020           45233                                    LEMSTORE                              
023439,000090: 36,2021           77745                           DLOAD                                          
023440,000091: 36,2022           03663                                    TTPI                                  
023441,000092: 36,2023           34041                           STCALL   TDEC1                                 #  ADVANCE ACTIVE VEHICLE TO TPI
023442,000093: 36,2024           27123                                    CSMCONIC                              
023443,000094: 36,2025           77624                           CALL                                           
023444,000095: 36,2026           45243                                    CSMSTORE                              
023445,000096: 36,2027           77775                           VLOAD                                          
023446,000097: 36,2030           03540                                    RACT3                                 
023447,000098: 36,2031           63246                           ABVAL    PDVL                                  #  /RA/ 0D                       PL 2D
023448,000099: 36,2032           03554                                    RPASS3                                
023449,000100: 36,2033           65256                           UNIT     PDDL                                  #  UNIT RP 0D                    PL 6D
023450,000101: 36,2034           43021                           BDSU     SET                                   
023451,000102: 36,2035           00045                                    36D                                   #  /RP/ -/RA/
023452,000103: 36,2036           00076                                    KFLAG                                 #  OFF = +
023453,000104: 36,2037           43040                           BMN      CLEAR                                 
023454,000105: 36,2040           74042                                    +2                                    
023455,000106: 36,2041           00276                                    KFLAG                                 #  ON = -
023456,000107: 36,2042           27754                           STOVL    DELHITE                               
023457,000108: 36,2043           00001                                    0D                                    
023458,000109: 36,2044           53435                           VXV      UNIT                                  
023459,000110: 36,2045           03562                                    VPASS3                                
023460,000111: 36,2046           27646                           STOVL    E2                                    #  ALMOST IT SAVE FOR 17.2
023461,000112: 36,2047           03540                                    RACT3                                 
023462,000113: 36,2050           46206                           PUSH     VPROJ                                 
023463,000114: 36,2051           03646                                    E2                                    
023464,000115: 36,2052           51352                           VSL2     BVSU                                  #  RPA
023465,000116: 36,2053           50256                           UNIT     DOT                                   
023466,000117: 36,2054           00001                                    0D                                    
023467,000118: 36,2055           65552                           SL1      ACOS                                  
023468,000119: 36,2056           77715                           PDVL                                           
023469,000120: 36,2057           50235                           VXV      DOT                                   
023470,000121: 36,2060           03540                                    RACT3                                 
023471,000122: 36,2061           03646                                    E2                                    
023472,000123: 36,2062           75325                           PDDL     SIGN                                  
023473,000124: 36,2063           77626                           STADR                                          
023474,000125: 36,2064           61160                           STODL    THETZERO                              #  CENTRAL ANGLE
023475,000126: 36,2065           00047                                    X1                                    
023476,000127: 36,2066           37746                           STCALL   XRS                                   #  SAVE INDICES FOR FURTHER USE
023477,000128: 36,2067           01340                                    NORMEX                                #    += ACTIVE AHEAD  -= ACTIVE BEHIND
023478,000129: 36,2070           77220        S17.2              STQ      VLOAD                                 #  COMPUTE SEARCH SECTOR LIMITS
023479,000130: 36,2071           03657                                    QTEMP                                 
023480,000131: 36,2072           03540                                    RACT3                                 
023481,000132: 36,2073           50256                           UNIT     DOT                                   
023482,000133: 36,2074           03646                                    E2                                    
023483,000134: 36,2075           75446                           ABS      SQRT                                  
023484,000135: 36,2076           43352                           SL1      DAD                                   
023485,000136: 36,2077           33150                                    DP-.002                               #  ADD .002 RADIANS TO IT
023486,000137: 36,2100           57414                           BON      DCOMP                                 #  GIVES CORRECT SINE, COSINE MUST BE
023487,000138: 36,2101           00316                                    KFLAG                                 #  COMP. ADD .5 FOR ANGLE
023488,000139: 36,2102           74103                                    +1                                    
023489,000140:                                                                                                  #  PHI(0)=180-(-(THETAZERO +K5IT)), PHI(I)=180-(-(THETAZERO+K2IT))
023490,000141:                                                                                                  #  SIN(180-ALPHA)=SIN(ALPHA) ETC
023491,000142: 36,2103           40205                           DMP      SETPD                                 
023492,000143: 36,2104           33134                                    PIINVERS                              #  REVOLUTIONARY HERES TWO IT
023493,000144: 36,2105           00001                                    0D                                    
023494,000145: 36,2106           45206                           PUSH     DSU                                   
023495,000146: 36,2107           02617                                    THETZERO                              
023496,000147: 36,2110           02611                           STORE    IT                                    #  PHI(I) , -(THETZERO + K2IT)
023497,000148: 36,2111           41525                           PDDL     PUSH                                  
023498,000149: 36,2112           43342                           SR1      DAD                                   
023499,000150: 36,2113           41415                           DAD      PUSH                                  #  PHI(0) , -(THETZERO + K5IT)
023500,000151: 36,2114           43156                           SIN      SET                                   
023501,000152: 36,2115           03466                                    RVSW                                  
023502,000153: 36,2116           16732                           STODL    SNTH                                  
023503,000154: 36,2117           50146                           COS      BMN                                   
023504,000155: 36,2120           74122                                    +2                                    
023505,000156: 36,2121           77676                           DCOMP                                          
023506,000157: 36,2122           16734                           STODL    CSTH                                  
023507,000158: 36,2123           03746                                    XRS                                   
023508,000159: 36,2124           24047                           STOVL    X1                                    
023509,000160: 36,2125           03554                                    RPASS3                                
023510,000161: 36,2126           77657                           VSR*                                           
023511,000162: 36,2127           57176                                    0,2                                   
023512,000163: 36,2130           26657                           STOVL    RVEC                                  
023513,000164: 36,2131           03562                                    VPASS3                                
023514,000165: 36,2132           77657                           VSR*                                           
023515,000166: 36,2133           57176                                    0,2                                   
023516,000167: 36,2134           36746                           STCALL   VVEC                                  
023517,000168: 36,2135           24744                                    TIMETHET                              
023518,000169: 36,2136           77745                           DLOAD                                          #  SAVE START TIME AND GET END TIME
023519,000170: 36,2137           00037                                    T                                     
023520,000171: 36,2140           03752                           STORE    TF                                    
023521,000172: 36,2141           16627                           STODL    TFO                                   
023522,000173: 36,2142           02611                                    IT                                    
023523,000174: 36,2143           73406                           PUSH     SIN                                   
023524,000175: 36,2144           16732                           STODL    SNTH                                  
023525,000176: 36,2145           50146                           COS      BMN                                   
023526,000177: 36,2146           74150                                    +2                                    
023527,000178: 36,2147           77676                           DCOMP                                          
023528,000179: 36,2150           02734                           STORE    CSTH                                  
023529,000180: 36,2151           45150                           LXA,1    CALL                                  
023530,000181: 36,2152           03745                                    XRS                                   
023531,000182: 36,2153           24744                                    TIMETHET                              
023532,000183:                                                                                                  #  INITIALIZE LOOP
023533,000184: 36,2154           43145                           DLOAD    CLEAR                                 
023534,000185: 36,2155           00037                                    T                                     
023535,000186: 36,2156           03661                                    ITSWICH                               
023536,000187: 36,2157           16621                           STODL    TFI                                   #  SAVE TIME FOR LOOP TEST
023537,000188: 36,2160           15342                                    DPPOSMAX                              
023538,000189: 36,2161           16623                           STODL    DELVEE                                
023539,000190: 36,2162           33142                                    MANYFEET                              
023540,000191: 36,2163           16625                           STODL    HP                                    
023541,000192: 36,2164           33136                                    SEC1THET                              #  70 DEGREES
023542,000193: 36,2165           71214                           BON      DLOAD                                 
023543,000194: 36,2166           00316                                    KFLAG                                 
023544,000195: 36,2167           74171                                    +2                                    
023545,000196: 36,2170           33140                                    SEC2THET                              #  330 DEGREES
023546,000197: 36,2171           37750                           STCALL   THETL                                 
023547,000198: 36,2172           74214                                    CONCAUL                               
023548,000199: 36,2173           70545        BIS                DLOAD    SR1                                   
023549,000200: 36,2174           02734                                    CSTH                                  
023550,000201: 36,2175           14021                           STODL    COSTH                                 
023551,000202: 36,2176           02732                                    SNTH                                  
023552,000203: 36,2177           77742                           SR1                                            
023553,000204: 36,2200           34023                           STCALL   SINTH                                 #  GET 4 QUADRANT THETA
023554,000205: 36,2201           47260                                    ARCTRIG                               
023555,000206: 36,2202           43244                           BPL      DAD                                   
023556,000207: 36,2203           74205                                    +2                                    
023557,000208: 36,2204           15342                                    DPPOSMAX                              #  PUT THETA BETWEEN 0,1
023558,000209: 36,2205           65221                           BDSU     PDDL                                  
023559,000210: 36,2206           03750                                    THETL                                 
023560,000211: 36,2207           03752                                    TF                                    
023561,000212: 36,2210           75225                           DSU      SIGN                                  #  FAST TIMES
023562,000213: 36,2211           02621                                    TFI                                   
023563,000214: 36,2212           77640                           BMN                                            
023564,000215: 36,2213           74416                                    RNGETEST                              #  TIME MUST HAVE A STOP
023565,000216:                                                                                                  #  ADVANCE PASSIVE FOR TARGET VECTOR
023566,000217: 36,2214           77745        CONCAUL            DLOAD                                          
023567,000218: 36,2215           03663                                    TTPI                                  
023568,000219: 36,2216           43015                           DAD      BON                                   
023569,000220: 36,2217           03752                                    TF                                    
023570,000221: 36,2220           01312                                    AVFLAG                                
023571,000222: 36,2221           74226                                    ADVCSM                                
023572,000223: 36,2222           34041                           STCALL   TDEC1                                 
023573,000224: 36,2223           27135                                    LEMCONIC                              
023574,000225: 36,2224           77650                           GOTO                                           
023575,000226: 36,2225           74230                                    JUNCT3                                
023576,000227: 36,2226           34041        ADVCSM             STCALL   TDEC1                                 
023577,000228: 36,2227           27123                                    CSMCONIC                              
023578,000229:                                                                                                  #  SAVE BACK VALUES OF HP AND DELVEE
023579,000230: 36,2230           77775        JUNCT3             VLOAD                                          
023580,000231: 36,2231           00007                                    VATT                                  
023581,000232: 36,2232           27640                           STOVL    VPASS4                                
023582,000233: 36,2233           00001                                    RATT                                  
023583,000234: 36,2234           03632                           STORE    RPASS4                                
023584,000235: 36,2235           17415                           STODL    RTARG                                 
023585,000236: 36,2236           03752                                    TF                                    
023586,000237: 36,2237           17423                           STODL    DELLT4                                
023587,000238: 36,2240           02625                                    HP                                    
023588,000239: 36,2241           16631                           STODL    HPO                                   
023589,000240: 36,2242           02623                                    DELVEE                                
023590,000241: 36,2243           16633                           STODL    DELVEO                                
023591,000242:                                                                                                  #  PREPARE FOR LAMBERT
023592,000243: 36,2244           03663                                    TTPI                                  
023593,000244: 36,2245           17503                           STODL    INTIME                                
023594,000245: 36,2246           03746                                    XRS                                   
023595,000246: 36,2247           17746                           STODL    RTX1                                  
023596,000247: 36,2250           15334                                    HI6ZEROS                              
023597,000248: 36,2251           65201                           SETPD    PDDL                                  
023598,000249: 36,2252           00001                                    0D                                    
023599,000250: 36,2253           33122                                    EPSFOUR                               
023600,000251: 36,2254           77715                           PDVL                                           
023601,000252: 36,2255           03540                                    RACT3                                 
023602,000253: 36,2256           27570                           STOVL    RINIT                                 
023603,000254: 36,2257           03546                                    VACT3                                 
023604,000255: 36,2260           37576                           STCALL   VINIT                                 
023605,000256: 36,2261           22000                                    INITVEL                               
023606,000257:                                                                                                  #  COMPUTE H ET CETERA
023607,000258: 36,2262           52375                           VLOAD    VSU                                   
023608,000259: 36,2263           03620                                    VTPRIME                               
023609,000260: 36,2264           03640                                    VPASS4                                
023610,000261: 36,2265           41446                           ABVAL    PUSH                                  
023611,000262: 36,2266           26637                           STOVL    RELDELV                               #  /V2-VP(TPI+TF)/
023612,000263: 36,2267           03646                                    DELVEET3                              #  V1-VA
023613,000264: 36,2270           77646                           ABVAL                                          #  /V1-VA/
023614,000265: 36,2271           02635                           STORE    MAGVTPI                               
023615,000266: 36,2272           45415                           DAD      STADR                                 
023616,000267: 36,2273           61154                           STODL    DELVEE                                
023617,000268: 36,2274           03746                                    XRS                                   
023618,000269: 36,2275           24047                           STOVL    X1                                    
023619,000270: 36,2276           03612                                    VIPRIME                               
023620,000271: 36,2277           77657                           VSR*                                           
023621,000272: 36,2300           57176                                    0,2                                   
023622,000273: 36,2301           26746                           STOVL    VVEC                                  
023623,000274: 36,2302           03540                                    RACT3                                 
023624,000275: 36,2303           77657                           VSR*                                           
023625,000276: 36,2304           57176                                    0,2                                   
023626,000277: 36,2305           36657                           STCALL   RVEC                                  
023627,000278: 36,2306           45163                                    PERIAPO                               
023628,000279: 36,2307           71354                           LXA,2    DLOAD                                 
023629,000280: 36,2310           03746                                    XRS        +1                         
023630,000281: 36,2311           77657                           SL*                                            
023631,000282: 36,2312           57576                                    0,2                                   
023632,000283: 36,2313           02625                           STORE    HP                                    
023633,000284:                                                                                                  #  ITSWICH DENOTES INTERPOLATION -- SOLUTION ACCEPTANCE IS FORCED
023634,000285: 36,2314           71214                           BON      DLOAD                                 
023635,000286: 36,2315           03701                                    ITSWICH                               
023636,000287: 36,2316           74427                                    ENDEN                                 
023637,000288: 36,2317           02321                                    HPERMIN                               
023638,000289: 36,2320           50025                           DSU      BMN                                   
023639,000290: 36,2321           02625                                    HP                                    
023640,000291: 36,2322           74365                                    HALFSAFE                              
023641,000292: 36,2323           45325                           PDDL     DSU                                   #  WAS PERICENTER ALT SAFE
023642,000293: 36,2324           02321                                    HPERMIN                               
023643,000294: 36,2325           02631                                    HPO                                   
023644,000295: 36,2326           45240                           BMN      DSU                                   #  (HPLIM-HPO)-(HPLIM-HP)=HP-HPO
023645,000296: 36,2327           74344                                    INTERP                                #  SOLUTION AT HAND
023646,000297: 36,2330           71240                           BMN      DLOAD                                 
023647,000298: 36,2331           73254                                    ALARUMS                               #  ITS GETTING WORSE - SOUND THE ALARM
023648,000299: 36,2332           33130                                    CDSEC                                 
023649,000300: 36,2333           57414        JUNCT1             BOFF     DCOMP                                 #  OFF IS PLUS ON IS MINUS
023650,000301: 36,2334           00356                                    KFLAG                                 
023651,000302: 36,2335           74336                                    +1                                    
023652,000303: 36,2336           03744                           STORE    DELTEE                                
023653,000304: 36,2337           43345        JUNCT2             DLOAD    DAD                                   
023654,000305: 36,2340           03744                                    DELTEE                                
023655,000306: 36,2341           03752                                    TF                                    
023656,000307: 36,2342           37752                           STCALL   TF                                    
023657,000308: 36,2343           74173                                    BIS                                   #  RECYCLE
023658,000309: 36,2344           45214        INTERP             SET      DSU                                   #  HP-HPO
023659,000310: 36,2345           03461                                    ITSWICH                               
023660,000311: 36,2346           65301                           NORM     PDDL                                  
023661,000312: 36,2347           00047                                    X1                                    
023662,000313: 36,2350           33146                                    DFTMOON                               
023663,000314: 36,2351           45215                           DAD      DSU                                   
023664,000315: 36,2352           02321                                    HPERMIN                               
023665,000316: 36,2353           02625                                    HP                                    
023666,000317: 36,2354           70501                           NORM     SR1                                   
023667,000318: 36,2355           00050                                    X2                                    
023668,000319: 36,2356           56264                           XSU,2    DDV                                   
023669,000320: 36,2357           00046                                    X1                                    
023670,000321: 36,2360           53605                           DMP      SR*                                   
023671,000322: 36,2361           03744                                    DELTEE                                
023672,000323: 36,2362           57177                                    0          -1,2                       
023673,000324: 36,2363           37744                           STCALL   DELTEE                                
023674,000325: 36,2364           74337                                    JUNCT2                                
023675,000326: 36,2365           45325        HALFSAFE           PDDL     DSU                                   #  SAVE HP-HPLIM FOR POSSIBLE
023676,000327: 36,2366           02623                                    DELVEE                                
023677,000328: 36,2367           02633                                    DELVEO                                #  SAVE THIS TOO
023678,000329: 36,2370           51406                           PUSH     ABS                                   
023679,000330: 36,2371           50025                           DSU      BMN                                   
023680,000331: 36,2372           33144                                    LIMVEL                                #  2 FT PS
023681,000332: 36,2373           74427                                    ENDEN                                 
023682,000333: 36,2374           45345                           DLOAD    DSU                                   
023683,000334: 36,2375           02321                                    HPERMIN                               
023684,000335: 36,2376           02631                                    HPO                                   
023685,000336: 36,2377           77725                           PDDL                                           
023686,000337: 36,2400           71240                           BMN      DLOAD                                 
023687,000338: 36,2401           74410                                    LRGRDVO                               
023688,000339: 36,2402           71244                           BPL      DLOAD                                 
023689,000340: 36,2403           74344                                    INTERP                                
023690,000341: 36,2404           03744                                    DELTEE                                
023691,000342: 36,2405           57542                           SR1      DCOMP                                 
023692,000343: 36,2406           37744                           STCALL   DELTEE                                
023693,000344: 36,2407           74337                                    JUNCT2                                
023694,000345: 36,2410           77745        LRGRDVO            DLOAD                                          
023695,000346: 36,2411           71240                           BMN      DLOAD                                 
023696,000347: 36,2412           74337                                    JUNCT2                                
023697,000348: 36,2413           33132                                    CLSEC                                 
023698,000349: 36,2414           77650                           GOTO                                           
023699,000350: 36,2415           74333                                    JUNCT1                                
023700,000351:                                                                                                  #  TIME RAN OUT ASSUME SOLUTION IF SAFE PERICENTER
023701,000352: 36,2416           45345        RNGETEST           DLOAD    DSU                                   
023702,000353: 36,2417           02625                                    HP                                    
023703,000354: 36,2420           02321                                    HPERMIN                               
023704,000355: 36,2421           71240                           BMN      DLOAD                                 
023705,000356: 36,2422           73254                                    ALARUMS                               
023706,000357: 36,2423           03752                                    TF                                    
023707,000358: 36,2424           77625                           DSU                                            
023708,000359: 36,2425           03744                                    DELTEE                                
023709,000360: 36,2426           03752                           STORE    TF                                    #  TIME OF SOLUTION
023710,000361: 36,2427           77775        ENDEN              VLOAD                                          
023711,000362: 36,2430           03620                                    VTPRIME                               
023712,000363: 36,2431           65241                           DOT      PDDL                                  #  SG2 WITH MAGNITUDE
023713,000364: 36,2432           03632                                    RPASS4                                
023714,000365: 36,2433           02637                                    RELDELV                               
023715,000366: 36,2434           45565                           SIGN     STADR                                 #  NOW SIGN(RELDELV)=SIGN(SG2)
023716,000367: 36,2435           41140                           STCALL   RELDELV                               
023717,000368: 36,2436           16441                                    TRANSANG                              #  COMPUTE OMEGA T, CENTRAL ANGLE
023718,000369: 36,2437           50375                           VLOAD    DOT                                   
023719,000370: 36,2440           03540                                    RACT3                                 
023720,000371: 36,2441           03612                                    VIPRIME                               #  SG1
023721,000372: 36,2442           51165                           SIGN     BPL                                   #  IF POSITIVE THEN SG1 = SG2 OTHERWISE
023722,000373: 36,2443           02637                                    RELDELV                               
023723,000374: 36,2444           74454                                    USEKAY                                #  SIGN(SG2-SG1)=SIGN(SG2)=SIGN(RELDELV)
023724,000375: 36,2445           57535                           SLOAD    DCOMP                                 
023725,000376: 36,2446           33117                                    DECTWO                                
023726,000377: 36,2447           51165                           SIGN     BPL                                   
023727,000378: 36,2450           02637                                    RELDELV                               
023728,000379: 36,2451           74462                                    NEXUS                                 
023729,000380: 36,2452           52076                           DCOMP    GOTO                                  
023730,000381: 36,2453           74460                                    USEKAY     +4                         
023731,000382: 36,2454           43135        USEKAY             SLOAD    BON                                   
023732,000383: 36,2455           33117                                    DECTWO                                
023733,000384: 36,2456           00316                                    KFLAG                                 
023734,000385: 36,2457           74462                                    NEXUS                                 
023735,000386: 36,2460           77625                           DSU                                            
023736,000387: 36,2461           36157                                    P21ONENN                              
023737,000388: 36,2462           17766        NEXUS              STODL    NN1                                   
023738,000389: 36,2463           02625                                    HP                                    
023739,000390: 36,2464           36641                           STCALL   POSTTPI                               
023740,000391: 36,2465           03657                                    QTEMP                                 
023741,000392: 07,2441                                           BANK     07                                    
023742,000393: 07,2000                                           SETLOC   XANG                                  
023743,000394: 07,2000                                           BANK                                           
023744,000395: 07,2441                                           COUNT    07/XANG                               
023745,000396: 
023746,000397:                                                                                                  #  CENTRAL ANGLE SUBROUTINE
023747,000398: 
023748,000399:                                                                                                  #  THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
023749,000400:                                                                                                  #  PASSIVE VEHICLE DURING THE TRANSFER.
023750,000401: 
023751,000402: 07,2441           40220        TRANSANG           STQ      SETPD                                 
023752,000403: 07,2442           02370                                    SUBEXIT                               
023753,000404: 07,2443           00001                                    0                                     
023754,000405: 07,2444           73150                           LXA,1    LXA,2                                 
023755,000406: 07,2445           03745                                    XRS                                   
023756,000407: 07,2446           03746                                    XRS        +1                         
023757,000408: 07,2447           53775                           VLOAD    VSR*                                  
023758,000409: 07,2450           03640                                    VPASS4                                
023759,000410: 07,2451           57176                                    0,2                                   
023760,000411: 07,2452           22746                           STODL*   VVEC                                  
023761,000412: 07,2453           11742                                    MUTABLE    +2,1                       
023762,000413: 07,2454           53715                           PDVL     VSR*                                  #  SQRT MU (+18 OR +15)                  00D
023763,000414: 07,2455           03632                                    RPASS4                                
023764,000415: 07,2456           57176                                    0,2                                   
023765,000416: 07,2457           64646                           ABVAL    PDDL*                                 #  MAGNITUDE OF R        (+29 OR +27)    02D
023766,000417: 07,2460           11740                                    MUTABLE,1                             
023767,000418: 07,2461           47515                           PDVL     VSQ                                   #  1/MU                  (+34 OR +28)    04D
023768,000419: 07,2462           02746                                    VVEC                                  
023769,000420: 07,2463           57301                           NORM     DMPR                                  #  PUSH LIST AT 02D
023770,000421: 07,2464           00047                                    X1                                    
023771,000422: 07,2465           53605                           DMP      SRR*                                  
023772,000423: 07,2466           00003                                    02D                                   
023773,000424: 07,2467           21576                                    0          -3,1                       
023774,000425: 07,2470           77621                           BDSU                                           #  R V**/MU              (+6)
023775,000426: 07,2471           11616                                    D1/32                                 
023776,000427: 07,2472           65301                           NORM     PDDL                                  
023777,000428: 07,2473           00047                                    X1                                    #  (2 - R V**/MU)        (+6-N)
023778,000429: 07,2474           56362                           SR1R     DDV                                   #  MAGNITUDE OF R        (+30 OR +28)
023779,000430: 07,2475           41457                           SL*      PUSH                                  #  R/(2 - R V**/MU)      (+29 OR +27)    02D
023780,000431: 07,2476           20174                                    0          -5,1                       
023781,000432: 07,2477           75542                           SR1      SQRT                                  
023782,000433: 07,2500           77605                           DMP                                            
023783,000434: 07,2501           65301                           NORM     PDDL                                  #  ASUBP***                              00D
023784,000435: 07,2502           00047                                    X1                                    
023785,000436: 07,2503           56342                           SR1      DDV                                   
023786,000437: 07,2504           53605                           DMP      SL*                                   
023787,000438: 07,2505           03752                                    TF                                    
023788,000439: 07,2506           20201                                    0,1                                   
023789,000440: 07,2507           60325                           PDDL     NORM                                  
023790,000441: 07,2510           11630                                    2PISC                                 
023791,000442: 07,2511           00047                                    X1                                    
023792,000443: 07,2512           56325                           PDDL     DDV                                   
023793,000444: 07,2513           77657                           SL*                                            
023794,000445: 07,2514           20176                                    0          -3,1                       #  CENTANG = (SQRT(MU/ASUP***)TF)
023795,000446: 07,2515           37754                           STCALL   CENTANG                               #  IN REVOLUTIONS B-0
023796,000447: 07,2516           02370                                    SUBEXIT                               
023797,000448: 35,3151                                           BANK     35                                    
023798,000449: 35,2000                                           SETLOC   P17S1                                 
023799,000450: 35,2000                                           BANK                                           
023800,000451: 35,3151                                           COUNT    35/P17                                
023801,000452: 
023802,000453:                                                                                                  #  TPI SEARCH DISPLAY ROUTINE
023803,000454: 
023804,000455: 35,3151           04627        P17                TC       AVFLAGA                               #  AVFLAG = CSM, SET TRACK + UPDATE FLAGS
023805,000456: 35,3152           03154                           TC       P17.1                                 
023806,000457: 35,3153           04642        P77                TC       AVFLAGP                               #  AVFLAG = LEM, SET TRACK + UPDATE FLAGS
023807,000458: 35,3154           04647        P17.1              TC       P20FLGON                              #        SET UPDATE FLAG
023808,000459: 35,3155           34614                           CAF      V06N37                                #        DISPLAY TTPI TIME
023809,000460: 35,3156           04575                           TC       VNPOOH                                
023810,000461: 35,3157           06006                           TC       INTPRET                               
023811,000462: 35,3160           45014                           CLEAR    CALL                                  
023812,000463: 35,3161           00670                                    UPDATFLG                              
023813,000464: 35,3162           74012                                    S17.1                                 #  UPDATE STATE VECTORS TO TTPI
023814,000465: 35,3163           76014                           SET      AXT,1                                 
023815,000466: 35,3164           00470                                    UPDATFLG                              
023816,000467: 35,3165           00002                           DEC      2          B-14                       #  DELTA H = 2 K POSITIVE, KFLAG OFF
023817,000468: 35,3166           76014                           BOFF     AXT,1                                 
023818,000469: 35,3167           00356                                    KFLAG                                 
023819,000470: 35,3170           73172                                    +2                                    
023820,000471: 35,3171           00001                           DEC      1          B-14                       #  DELTA H = 1 K NEGATIVE, KFLAG ON
023821,000472: 35,3172           77530                           SXA,1    EXIT                                  
023822,000473: 35,3173           01132                                    OPTION2                               
023823,000474: 35,3174           33263                           CAF      V06N72                                #  DISPLAY PHI, DELTA H, SEARCH OPTION K
023824,000475: 35,3175           03237                           TC       VNCOMP17                              
023825,000476: 35,3176           06006                           TC       INTPRET                               
023826,000477: 35,3177           43014                           CLEAR    SET                                   
023827,000478: 35,3200           00670                                    UPDATFLG                              
023828,000479: 35,3201           00076                                    KFLAG                                 
023829,000480: 35,3202           45335                           SLOAD    DSU                                   
023830,000481: 35,3203           01133                                    OPTION2                               #  RESET KFLAG ON FOR OPTION =1
023831,000482: 35,3204           36157                                    P21ONENN                              #             OFF FOR OPTION =2
023832,000483: 35,3205           43030                           BHIZ     CLEAR                                 
023833,000484: 35,3206           73210                                    +2                                    
023834,000485: 35,3207           00276                                    KFLAG                                 
023835,000486: 35,3210           46135                           SLOAD    BHIZ                                  
023836,000487: 35,3211           03747                                    XRS        +1                         
023837,000488: 35,3212           73216                                    +4                                    
023838,000489: 35,3213           52145                           DLOAD    GOTO                                  
023839,000490: 35,3214           33126                                    HPL                                   
023840,000491: 35,3215           73220                                    P17.2                                 
023841,000492: 35,3216           77745                           DLOAD                                          
023842,000493: 35,3217           33124                                    HPE                                   
023843,000494: 35,3220           36321        P17.2              STCALL   HPERMIN                               
023844,000495: 35,3221           74070                                    S17.2                                 
023845,000496: 35,3222           77414                           SET      EXIT                                  
023846,000497: 35,3223           00470                                    UPDATFLG                              
023847,000498: 35,3224           34616        P17.3              CAF      V06N58                                #  DISPLAY DELTA VTPI, DELTA VTPF, AND H
023848,000499: 35,3225           03237                           TC       VNCOMP17                              
023849,000500: 35,3226           34615                           CAF      V06N55                                #  DISPLAY PERICENTER CODE AND CENTRAL ANG,
023850,000501: 35,3227           04676                           TC       BANKCALL                              
023851,000502: 35,3230           21057                           CADR     GOFLASHR                              
023852,000503: 35,3231           04106                           TC       GOTOPOOH                              #  TERMINATE PROGRAM
023853,000504: 35,3232           04106                           TC       GOTOPOOH                              #  END PROGRAM
023854,000505: 35,3233           03154                           TC       P17.1                                 #  RECYCLE WITH NEW TTPI OR SEARCH OPTION
023855,000506: 35,3234           35032                           CAF      TWO                                   #  BLANK R2
023856,000507: 35,3235           05542                           TC       BLANKET                               
023857,000508: 35,3236           15233                           TCF      ENDOFJOB                              
023858,000509: 35,3237  E4,1767                                  EBANK=   RTRN                                  
023859,000510: 
023860,000511: 35,3237           00006        VNCOMP17           EXTEND                                         
023861,000512: 35,3240           23766                           QXCH     QSAVED                                
023862,000513: 35,3241           55765                           TS       VERBNOUN                              
023863,000514: 35,3242           31765                           CA       VERBNOUN                              
023864,000515: 35,3243           04676                           TCR      BANKCALL                              
023865,000516: 35,3244           20720                           CADR     GOFLASH                               
023866,000517: 35,3245           04106                           TC       GOTOPOOH                              #  TERMINATE PROGRAM
023867,000518: 35,3246           01766                           TC       QSAVED                                #  PROCEED
023868,000519: 35,3247           40154                           CS       MPAC                                  #  RECYCLE WITH NEW TPI TIME
023869,000520: 35,3250           65026                           AD       BIT6                                  #  OR PROCEED WITH NEW SEARCH OPTION
023870,000521: 35,3251           00006                           EXTEND                                         
023871,000522: 35,3252           13154                           BZF      P17.1                                 
023872,000523: 35,3253           03242                           TC       VNCOMP17   +3                         
023873,000524: 35,3254           77414        ALARUMS            SET      EXIT                                  
023874,000525: 35,3255           00470                                    UPDATFLG                              
023875,000526: 35,3256           05664                           TC       ALARM                                 
023876,000527: 35,3257           00124                           OCT      00124                                 #  NO SAFE PERCENTER IN THIS SECTOR
023877,000528: 35,3260           35064                           CAF      V05N09                                
023878,000529: 35,3261           03237                           TC       VNCOMP17                              
023879,000530: 35,3262           04106                           TC       GOTOPOOH                              #  PROCEED ILLEGAL TERMINATE PROGRAM
023880,000531: 35,3263           01510        V06N72             VN       0672                                  
023881,000532: 

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