Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

024317,000002:                                                                                                  ## Copyright:   Public domain.
024318,000003:                                                                                                  ## Filename:    TPI_SEARCH.agc
024319,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
024320,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
024321,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
024322,000007:                                                                                                  ## Assembler:   yaYUL
024323,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
024324,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
024325,000010:                                                                                                  ## Pages:       551-561
024326,000011:                                                                                                  ## Mod history: 2009-05-15 RSB  Adapted from the Colossus249/ file of the
024327,000012:                                                                                                  ##                              same name, using Comanche055 page images.
024328,000013:                                                                                                  ##              2009-05-20 RSB  Corrections:  On p. 551, "SETLOC P17S" -> P17S1.
024329,000014:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
024330,000015:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
024331,000016:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
024332,000017:                                                                                                  ##                              and fixed the errors found.
024333,000018:                                                                                                  ##              2017-01-20 RSB  Fixed comment-text errors noted while diff'ing
024334,000019:                                                                                                  ##                              vs Colossus 249.
024335,000020:                                                                                                  ##
024336,000021:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
024337,000022:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
024338,000023:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
024339,000024:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
024340,000025:                                                                                                  ## consequent reduction in image quality as well) are available online at
024341,000026:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
024342,000027:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
024343,000028:                                                                                                  ## (much) higher-quality images which Paul actually created.
024344,000029:                                                                                                  ##
024345,000030:                                                                                                  ## Notations on the hardcopy document read, in part:
024346,000031:                                                                                                  ##
024347,000032:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
024348,000033:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
024349,000034:                                                                                                  ##
024350,000035:                                                                                                  ##      This AGC program shall also be referred to as
024351,000036:                                                                                                  ##                      Colossus 2A
024352,000037: 

Page 551

024354,000039:                                                                                                  #  PROGRAM DESCRIPTION S17.1 AND S17.2
024355,000040: 
024356,000041:                                                                                                  #  FUNCTIONAL DESCRIPTION
024357,000042: 
024358,000043:                                                                                                  #  THE TPI SEARCH ROUTINE DETERMINES THE MINIMUM TOTAL VELOCITY TRANSFER TRAJECTORY FROM A GIVEN TPI
024359,000044:                                                                                                  #  MANEUVER TIME WITHIN THE CONSTRAINT OF A SAFE PERICENTER.  THIS VELOCITY IS THE SUM OF THE IMPULSIVE VELOCITIES
024360,000045:                                                                                                  #  FOR THE TPI AND TPF MANEUVERS.
024361,000046: 
024362,000047:                                                                                                  #  THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
024363,000048:                                                                                                  #  RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E. THE MAGNITUDE DIFFERENCE OF THE 
024364,000049:                                                                                                  #  POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
024365,000050: 
024366,000051:                                                                                                  #  THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA
024367,000052:                                                                                                  #  SUBROUTINE TO COMPUTE THE SEARCH START AND END TIMES.  THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE
024368,000053:                                                                                                  #  LAMBERT SUBROUTINE TO COMPUTE THE VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME.  EXIT FROM THE SEARCH LOOP
024369,000054:                                                                                                  #  IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN
024370,000055:                                                                                                  #  THE SECTOR SEARCHED.
024371,000056: 
024372,000057:                                                                                                  #  CALLING SEQUENCE
024373,000058: 
024374,000059:                                                                                                  #        BOTH ROUTINES ARE CALLED IN INTERPRETIVE CODE AND RETURN VIA QPRET.  S17.1 HAS ONLY A NORMAL EXIT.
024375,000060:                                                                                                  #        S17.2 RETURNS VIA QPRET FOR NORMAL EXIT AND TO ALARUMS FOR ERROR EXIT.
024376,000061: 
024377,000062:                                                                                                  #  SUBROUTINES CALLED
024378,000063: 
024379,000064:                                                                                                  #        CSMCONIC
024380,000065:                                                                                                  #        LEMCONIC
024381,000066:                                                                                                  #        TIMETHET
024382,000067:                                                                                                  #        INITVEL
024383,000068: 
024384,000069: 36,2012                                           BANK     36                                    
024385,000070: 35,2000                                           SETLOC   P17S1                                 
024386,000071: 35,2000                                           BANK                                           
024387,000072: 
024388,000073: 35,3123                                           COUNT    36/TPI                                
024389,000074: 
024390,000075: 35,3123  E7,1537                                  EBANK=   RACT3                                 
024391,000076: 
024392,000077:                                                                                                  #  **** TEMPORARY ****
024393,000078: 
024394,000079: 35,3123           00004 31566  HPE                2DEC     157420.0   B-29                       #  EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
024395,000080: 
024396,000081: 35,3125           00000 12326  HPL                2DEC     10668.0213 B-29                       #  MOON:S MIN. PERICENTER ALTITUDE 35000 FT
024397,000082: 
024398,000083: 35,3127           00002 16100  CDSEC              2DEC     40000      B-28                       
024399,000084: 
024400,000085: 35,3131           00000 35230  CLSEC              2DEC     15000      B-28                       
024401,000086: 
024402,000087: 35,3133           12137 06033  PIINVERS           2DEC     .3183098862                            
024403,000088: 
024404,000089: 35,3135           06161 30707  SEC1THET           2DEC     .1944444444                            
024405,000090: 

Page 552

024407,000092: 35,3137           35252 25253  SEC2THET           2DEC     .9166666667                            
024408,000093: 
024409,000094: 35,3141           67777 77777  MANYFEET           2DEC     -1.0       B-2                        
024410,000095: 
024411,000096: 35,3143           00000 30760  LIMVEL             2DEC     .6096      E-2        B-7             #  2FPS
024412,000097: 
024413,000098: 35,3145           00000 00114  DFTMOON            2DEC     .1524      E3         B-29            #  500 FEET
024414,000099: 
024415,000100: 35,3147           00040 30447  DP-.002            2DEC     0.002                                 
024416,000101: 
024417,000102: 36,2000                                           SETLOC   P17S                                  
024418,000103: 36,2000                                           BANK                                           
024419,000104: 36,2012           71220        S17.1              STQ      DLOAD                                 
024420,000105: 36,2013           01340                                    NORMEX                                
024421,000106: 36,2014           03663                                    TTPI                                  
024422,000107: 36,2015           34041                           STCALL   TDEC1                                 #  ADVANCE PASSIVE VEHICLE TO TPI
024423,000108: 36,2016           27126                                    LEMCONIC                              
024424,000109: 36,2017           77624                           CALL                                           
024425,000110: 36,2020           45233                                    LEMSTORE                              
024426,000111: 36,2021           77745                           DLOAD                                          
024427,000112: 36,2022           03663                                    TTPI                                  
024428,000113: 36,2023           34041                           STCALL   TDEC1                                 #  ADVANCE ACTIVE VEHICLE TO TPI
024429,000114: 36,2024           27114                                    CSMCONIC                              
024430,000115: 36,2025           77624                           CALL                                           
024431,000116: 36,2026           45243                                    CSMSTORE                              
024432,000117: 36,2027           77775                           VLOAD                                          
024433,000118: 36,2030           03540                                    RACT3                                 
024434,000119: 36,2031           63246                           ABVAL    PDVL                                  #  /RA/ 0D                       PL 2D
024435,000120: 36,2032           03554                                    RPASS3                                
024436,000121: 36,2033           65256                           UNIT     PDDL                                  #  UNIT RP 0D                    PL 6D
024437,000122: 36,2034           43021                           BDSU     SET                                   
024438,000123: 36,2035           00045                                    36D                                   #  /RP/ -/RA/
024439,000124: 36,2036           00076                                    KFLAG                                 #  OFF = +
024440,000125: 36,2037           43040                           BMN      CLEAR                                 
024441,000126: 36,2040           74042                                    +2                                    
024442,000127: 36,2041           00276                                    KFLAG                                 #  ON = -
024443,000128: 36,2042           27754                           STOVL    DELHITE                               
024444,000129: 36,2043           00001                                    0D                                    
024445,000130: 36,2044           53435                           VXV      UNIT                                  
024446,000131: 36,2045           03562                                    VPASS3                                
024447,000132: 36,2046           27646                           STOVL    E2                                    #  ALMOST IT SAVE FOR 17.2
024448,000133: 36,2047           03540                                    RACT3                                 
024449,000134: 36,2050           46206                           PUSH     VPROJ                                 
024450,000135: 36,2051           03646                                    E2                                    
024451,000136: 36,2052           51352                           VSL2     BVSU                                  #  RPA
024452,000137: 36,2053           50256                           UNIT     DOT                                   
024453,000138: 36,2054           00001                                    0D                                    
024454,000139: 36,2055           65552                           SL1      ACOS                                  
024455,000140: 36,2056           77715                           PDVL                                           
024456,000141: 36,2057           50235                           VXV      DOT                                   

Page 553

024458,000143: 36,2060           03540                                    RACT3                                 
024459,000144: 36,2061           03646                                    E2                                    
024460,000145: 36,2062           75325                           PDDL     SIGN                                  
024461,000146: 36,2063           77626                           STADR                                          
024462,000147: 36,2064           61160                           STODL    THETZERO                              #  CENTRAL ANGLE
024463,000148: 36,2065           00047                                    X1                                    
024464,000149: 36,2066           37746                           STCALL   XRS                                   #  SAVE INDICES FOR FURTHER USE
024465,000150: 36,2067           01340                                    NORMEX                                #    += ACTIVE AHEAD  -= ACTIVE BEHIND
024466,000151: 36,2070           77220        S17.2              STQ      VLOAD                                 #  COMPUTE SEARCH SECTOR LIMITS
024467,000152: 36,2071           03657                                    QTEMP                                 
024468,000153: 36,2072           03540                                    RACT3                                 
024469,000154: 36,2073           50256                           UNIT     DOT                                   
024470,000155: 36,2074           03646                                    E2                                    
024471,000156: 36,2075           75446                           ABS      SQRT                                  
024472,000157: 36,2076           43352                           SL1      DAD                                   
024473,000158: 36,2077           33150                                    DP-.002                               #  ADD .002 RADIANS TO IT
024474,000159: 36,2100           57414                           BON      DCOMP                                 #  GIVES CORRECT SINE, COSINE MUST BE
024475,000160: 36,2101           00316                                    KFLAG                                 #  COMP. ADD .5 FOR ANGLE
024476,000161: 36,2102           74103                                    +1                                    
024477,000162:                                                                                                  #  PHI(0)=180-(-(THETAZERO +K5IT)), PHI(I)=180-(-(THETAZERO+K2IT))
024478,000163:                                                                                                  #  SIN(180-ALPHA)=SIN(ALPHA) ETC
024479,000164: 36,2103           40205                           DMP      SETPD                                 
024480,000165: 36,2104           33134                                    PIINVERS                              #  REVOLUTIONARY HERES TWO IT
024481,000166: 36,2105           00001                                    0D                                    
024482,000167: 36,2106           45206                           PUSH     DSU                                   
024483,000168: 36,2107           02617                                    THETZERO                              
024484,000169: 36,2110           02611                           STORE    IT                                    #  PHI(I) , -(THETZERO + K2IT)
024485,000170: 36,2111           41525                           PDDL     PUSH                                  
024486,000171: 36,2112           43342                           SR1      DAD                                   
024487,000172: 36,2113           41415                           DAD      PUSH                                  #  PHI(0) , -(THETZERO + K5IT)
024488,000173: 36,2114           43156                           SIN      SET                                   
024489,000174: 36,2115           03466                                    RVSW                                  
024490,000175: 36,2116           16732                           STODL    SNTH                                  
024491,000176: 36,2117           50146                           COS      BMN                                   
024492,000177: 36,2120           74122                                    +2                                    
024493,000178: 36,2121           77676                           DCOMP                                          
024494,000179: 36,2122           16734                           STODL    CSTH                                  
024495,000180: 36,2123           03746                                    XRS                                   
024496,000181: 36,2124           24047                           STOVL    X1                                    
024497,000182: 36,2125           03554                                    RPASS3                                
024498,000183: 36,2126           77657                           VSR*                                           
024499,000184: 36,2127           57176                                    0,2                                   
024500,000185: 36,2130           26657                           STOVL    RVEC                                  
024501,000186: 36,2131           03562                                    VPASS3                                
024502,000187: 36,2132           77657                           VSR*                                           
024503,000188: 36,2133           57176                                    0,2                                   
024504,000189: 36,2134           36746                           STCALL   VVEC                                  
024505,000190: 36,2135           24744                                    TIMETHET                              
024506,000191: 36,2136           77745                           DLOAD                                          #  SAVE START TIME AND GET END TIME
024507,000192: 36,2137           00037                                    T                                     

Page 554

024509,000194: 36,2140           03752                           STORE    TF                                    
024510,000195: 36,2141           16627                           STODL    TFO                                   
024511,000196: 36,2142           02611                                    IT                                    
024512,000197: 36,2143           73406                           PUSH     SIN                                   
024513,000198: 36,2144           16732                           STODL    SNTH                                  
024514,000199: 36,2145           50146                           COS      BMN                                   
024515,000200: 36,2146           74150                                    +2                                    
024516,000201: 36,2147           77676                           DCOMP                                          
024517,000202: 36,2150           02734                           STORE    CSTH                                  
024518,000203: 36,2151           45150                           LXA,1    CALL                                  
024519,000204: 36,2152           03745                                    XRS                                   
024520,000205: 36,2153           24744                                    TIMETHET                              
024521,000206:                                                                                                  #  INITIALIZE LOOP
024522,000207: 36,2154           43145                           DLOAD    CLEAR                                 
024523,000208: 36,2155           00037                                    T                                     
024524,000209: 36,2156           03661                                    ITSWICH                               
024525,000210: 36,2157           16621                           STODL    TFI                                   #  SAVE TIME FOR LOOP TEST
024526,000211: 36,2160           15343                                    DPPOSMAX                              
024527,000212: 36,2161           16623                           STODL    DELVEE                                
024528,000213: 36,2162           33142                                    MANYFEET                              
024529,000214: 36,2163           16625                           STODL    HP                                    
024530,000215: 36,2164           33136                                    SEC1THET                              #  70 DEGREES
024531,000216: 36,2165           71214                           BON      DLOAD                                 
024532,000217: 36,2166           00316                                    KFLAG                                 
024533,000218: 36,2167           74171                                    +2                                    
024534,000219: 36,2170           33140                                    SEC2THET                              #  330 DEGREES
024535,000220: 36,2171           37750                           STCALL   THETL                                 
024536,000221: 36,2172           74214                                    CONCAUL                               
024537,000222: 36,2173           70545        BIS                DLOAD    SR1                                   
024538,000223: 36,2174           02734                                    CSTH                                  
024539,000224: 36,2175           14021                           STODL    COSTH                                 
024540,000225: 36,2176           02732                                    SNTH                                  
024541,000226: 36,2177           77742                           SR1                                            
024542,000227: 36,2200           34023                           STCALL   SINTH                                 #  GET 4 QUADRANT THETA
024543,000228: 36,2201           47256                                    ARCTRIG                               
024544,000229: 36,2202           43244                           BPL      DAD                                   
024545,000230: 36,2203           74205                                    +2                                    
024546,000231: 36,2204           15343                                    DPPOSMAX                              #  PUT THETA BETWEEN 0,1
024547,000232: 36,2205           65221                           BDSU     PDDL                                  
024548,000233: 36,2206           03750                                    THETL                                 
024549,000234: 36,2207           03752                                    TF                                    
024550,000235: 36,2210           75225                           DSU      SIGN                                  #  FAST TIMES
024551,000236: 36,2211           02621                                    TFI                                   
024552,000237: 36,2212           77640                           BMN                                            
024553,000238: 36,2213           74416                                    RNGETEST                              #  TIME MUST HAVE A STOP
024554,000239:                                                                                                  #  ADVANCE PASSIVE FOR TARGET VECTOR
024555,000240: 36,2214           77745        CONCAUL            DLOAD                                          
024556,000241: 36,2215           03663                                    TTPI                                  
024557,000242: 36,2216           43015                           DAD      BON                                   
024558,000243: 36,2217           03752                                    TF                                    

Page 555

024560,000245: 36,2220           01312                                    AVFLAG                                
024561,000246: 36,2221           74226                                    ADVCSM                                
024562,000247: 36,2222           34041                           STCALL   TDEC1                                 
024563,000248: 36,2223           27126                                    LEMCONIC                              
024564,000249: 36,2224           77650                           GOTO                                           
024565,000250: 36,2225           74230                                    JUNCT3                                
024566,000251: 36,2226           34041        ADVCSM             STCALL   TDEC1                                 
024567,000252: 36,2227           27114                                    CSMCONIC                              
024568,000253:                                                                                                  #  SAVE BACK VALUES OF HP AND DELVEE
024569,000254: 36,2230           77775        JUNCT3             VLOAD                                          
024570,000255: 36,2231           00007                                    VATT                                  
024571,000256: 36,2232           27640                           STOVL    VPASS4                                
024572,000257: 36,2233           00001                                    RATT                                  
024573,000258: 36,2234           03632                           STORE    RPASS4                                
024574,000259: 36,2235           17415                           STODL    RTARG                                 
024575,000260: 36,2236           03752                                    TF                                    
024576,000261: 36,2237           17423                           STODL    DELLT4                                
024577,000262: 36,2240           02625                                    HP                                    
024578,000263: 36,2241           16631                           STODL    HPO                                   
024579,000264: 36,2242           02623                                    DELVEE                                
024580,000265: 36,2243           16633                           STODL    DELVEO                                
024581,000266:                                                                                                  #  PREPARE FOR LAMBERT
024582,000267: 36,2244           03663                                    TTPI                                  
024583,000268: 36,2245           17503                           STODL    INTIME                                
024584,000269: 36,2246           03746                                    XRS                                   
024585,000270: 36,2247           17746                           STODL    RTX1                                  
024586,000271: 36,2250           15335                                    HI6ZEROS                              
024587,000272: 36,2251           65201                           SETPD    PDDL                                  
024588,000273: 36,2252           00001                                    0D                                    
024589,000274: 36,2253           33122                                    EPSFOUR                               
024590,000275: 36,2254           77715                           PDVL                                           
024591,000276: 36,2255           03540                                    RACT3                                 
024592,000277: 36,2256           27570                           STOVL    RINIT                                 
024593,000278: 36,2257           03546                                    VACT3                                 
024594,000279: 36,2260           37576                           STCALL   VINIT                                 
024595,000280: 36,2261           22000                                    INITVEL                               
024596,000281:                                                                                                  #  COMPUTE H ET CETERA
024597,000282: 36,2262           52375                           VLOAD    VSU                                   
024598,000283: 36,2263           03620                                    VTPRIME                               
024599,000284: 36,2264           03640                                    VPASS4                                
024600,000285: 36,2265           41446                           ABVAL    PUSH                                  
024601,000286: 36,2266           26637                           STOVL    RELDELV                               #  /V2-VP(TPI+TF)/
024602,000287: 36,2267           03646                                    DELVEET3                              #  V1-VA
024603,000288: 36,2270           77646                           ABVAL                                          #  /V1-VA/
024604,000289: 36,2271           02635                           STORE    MAGVTPI                               
024605,000290: 36,2272           45415                           DAD      STADR                                 
024606,000291: 36,2273           61154                           STODL    DELVEE                                
024607,000292: 36,2274           03746                                    XRS                                   
024608,000293: 36,2275           24047                           STOVL    X1                                    
024609,000294: 36,2276           03612                                    VIPRIME                               

Page 556

024611,000296: 36,2277           77657                           VSR*                                           
024612,000297: 36,2300           57176                                    0,2                                   
024613,000298: 36,2301           26746                           STOVL    VVEC                                  
024614,000299: 36,2302           03540                                    RACT3                                 
024615,000300: 36,2303           77657                           VSR*                                           
024616,000301: 36,2304           57176                                    0,2                                   
024617,000302: 36,2305           36657                           STCALL   RVEC                                  
024618,000303: 36,2306           45163                                    PERIAPO                               
024619,000304: 36,2307           71354                           LXA,2    DLOAD                                 
024620,000305: 36,2310           03746                                    XRS        +1                         
024621,000306: 36,2311           77657                           SL*                                            
024622,000307: 36,2312           57576                                    0,2                                   
024623,000308: 36,2313           02625                           STORE    HP                                    
024624,000309:                                                                                                  #  ITSWICH DENOTES INTERPOLATION -- SOLUTION ACCEPTANCE IS FORCED
024625,000310: 36,2314           71214                           BON      DLOAD                                 
024626,000311: 36,2315           03701                                    ITSWICH                               
024627,000312: 36,2316           74427                                    ENDEN                                 
024628,000313: 36,2317           02321                                    HPERMIN                               
024629,000314: 36,2320           50025                           DSU      BMN                                   
024630,000315: 36,2321           02625                                    HP                                    
024631,000316: 36,2322           74365                                    HALFSAFE                              
024632,000317: 36,2323           45325                           PDDL     DSU                                   #  WAS PERICENTER ALT SAFE
024633,000318: 36,2324           02321                                    HPERMIN                               
024634,000319: 36,2325           02631                                    HPO                                   
024635,000320: 36,2326           45240                           BMN      DSU                                   #  (HPLIM-HPO)-(HPLIM-HP)=HP-HPO
024636,000321: 36,2327           74344                                    INTERP                                #  SOLUTION AT HAND
024637,000322: 36,2330           71240                           BMN      DLOAD                                 
024638,000323: 36,2331           73254                                    ALARUMS                               #  ITS GETTING WORSE - SOUND THE ALARM
024639,000324: 36,2332           33130                                    CDSEC                                 
024640,000325: 36,2333           57414        JUNCT1             BOFF     DCOMP                                 #  OFF IS PLUS ON IS MINUS
024641,000326: 36,2334           00356                                    KFLAG                                 
024642,000327: 36,2335           74336                                    +1                                    
024643,000328: 36,2336           03744                           STORE    DELTEE                                
024644,000329: 36,2337           43345        JUNCT2             DLOAD    DAD                                   
024645,000330: 36,2340           03744                                    DELTEE                                
024646,000331: 36,2341           03752                                    TF                                    
024647,000332: 36,2342           37752                           STCALL   TF                                    
024648,000333: 36,2343           74173                                    BIS                                   #  RECYCLE
024649,000334: 36,2344           45214        INTERP             SET      DSU                                   #  HP-HPO
024650,000335: 36,2345           03461                                    ITSWICH                               
024651,000336: 36,2346           65301                           NORM     PDDL                                  
024652,000337: 36,2347           00047                                    X1                                    
024653,000338: 36,2350           33146                                    DFTMOON                               
024654,000339: 36,2351           45215                           DAD      DSU                                   
024655,000340: 36,2352           02321                                    HPERMIN                               
024656,000341: 36,2353           02625                                    HP                                    
024657,000342: 36,2354           70501                           NORM     SR1                                   
024658,000343: 36,2355           00050                                    X2                                    
024659,000344: 36,2356           56264                           XSU,2    DDV                                   
024660,000345: 36,2357           00046                                    X1                                    

Page 557

024662,000347: 36,2360           53605                           DMP      SR*                                   
024663,000348: 36,2361           03744                                    DELTEE                                
024664,000349: 36,2362           57177                                    0          -1,2                       
024665,000350: 36,2363           37744                           STCALL   DELTEE                                
024666,000351: 36,2364           74337                                    JUNCT2                                
024667,000352: 36,2365           45325        HALFSAFE           PDDL     DSU                                   #  SAVE HP-HPLIM FOR POSSIBLE
024668,000353: 36,2366           02623                                    DELVEE                                
024669,000354: 36,2367           02633                                    DELVEO                                #  SAVE THIS TOO
024670,000355: 36,2370           51406                           PUSH     ABS                                   
024671,000356: 36,2371           50025                           DSU      BMN                                   
024672,000357: 36,2372           33144                                    LIMVEL                                #  2 FT PS
024673,000358: 36,2373           74427                                    ENDEN                                 
024674,000359: 36,2374           45345                           DLOAD    DSU                                   
024675,000360: 36,2375           02321                                    HPERMIN                               
024676,000361: 36,2376           02631                                    HPO                                   
024677,000362: 36,2377           77725                           PDDL                                           
024678,000363: 36,2400           71240                           BMN      DLOAD                                 
024679,000364: 36,2401           74410                                    LRGRDVO                               
024680,000365: 36,2402           71244                           BPL      DLOAD                                 
024681,000366: 36,2403           74344                                    INTERP                                
024682,000367: 36,2404           03744                                    DELTEE                                
024683,000368: 36,2405           57542                           SR1      DCOMP                                 
024684,000369: 36,2406           37744                           STCALL   DELTEE                                
024685,000370: 36,2407           74337                                    JUNCT2                                
024686,000371: 36,2410           77745        LRGRDVO            DLOAD                                          
024687,000372: 36,2411           71240                           BMN      DLOAD                                 
024688,000373: 36,2412           74337                                    JUNCT2                                
024689,000374: 36,2413           33132                                    CLSEC                                 
024690,000375: 36,2414           77650                           GOTO                                           
024691,000376: 36,2415           74333                                    JUNCT1                                
024692,000377:                                                                                                  #  TIME RAN OUT ASSUME SOLUTION IF SAFE PERICENTER
024693,000378: 36,2416           45345        RNGETEST           DLOAD    DSU                                   
024694,000379: 36,2417           02625                                    HP                                    
024695,000380: 36,2420           02321                                    HPERMIN                               
024696,000381: 36,2421           71240                           BMN      DLOAD                                 
024697,000382: 36,2422           73254                                    ALARUMS                               
024698,000383: 36,2423           03752                                    TF                                    
024699,000384: 36,2424           77625                           DSU                                            
024700,000385: 36,2425           03744                                    DELTEE                                
024701,000386: 36,2426           03752                           STORE    TF                                    #  TIME OF SOLUTION
024702,000387: 36,2427           77775        ENDEN              VLOAD                                          
024703,000388: 36,2430           03620                                    VTPRIME                               
024704,000389: 36,2431           65241                           DOT      PDDL                                  #  SG2 WITH MAGNITUDE
024705,000390: 36,2432           03632                                    RPASS4                                
024706,000391: 36,2433           02637                                    RELDELV                               
024707,000392: 36,2434           45565                           SIGN     STADR                                 #  NOW SIGN(RELDELV)=SIGN(SG2)
024708,000393: 36,2435           41140                           STCALL   RELDELV                               
024709,000394: 36,2436           16441                                    TRANSANG                              #  COMPUTE OMEGA T, CENTRAL ANGLE
024710,000395: 36,2437           50375                           VLOAD    DOT                                   
024711,000396: 36,2440           03540                                    RACT3                                 

Page 558

024713,000398: 36,2441           03612                                    VIPRIME                               #  SG1
024714,000399: 36,2442           51165                           SIGN     BPL                                   #  IF POSITIVE THEN SG1 = SG2 OTHERWISE
024715,000400: 36,2443           02637                                    RELDELV                               
024716,000401: 36,2444           74454                                    USEKAY                                #  SIGN(SG2-SG1)=SIGN(SG2)=SIGN(RELDELV)
024717,000402: 36,2445           57535                           SLOAD    DCOMP                                 
024718,000403: 36,2446           33117                                    DECTWO                                
024719,000404: 36,2447           51165                           SIGN     BPL                                   
024720,000405: 36,2450           02637                                    RELDELV                               
024721,000406: 36,2451           74462                                    NEXUS                                 
024722,000407: 36,2452           52076                           DCOMP    GOTO                                  
024723,000408: 36,2453           74460                                    USEKAY     +4                         
024724,000409: 36,2454           43135        USEKAY             SLOAD    BON                                   
024725,000410: 36,2455           33117                                    DECTWO                                
024726,000411: 36,2456           00316                                    KFLAG                                 
024727,000412: 36,2457           74462                                    NEXUS                                 
024728,000413: 36,2460           77625                           DSU                                            
024729,000414: 36,2461           36150                                    P21ONENN                              
024730,000415: 36,2462           17766        NEXUS              STODL    NN1                                   
024731,000416: 36,2463           02625                                    HP                                    
024732,000417: 36,2464           36641                           STCALL   POSTTPI                               
024733,000418: 36,2465           03657                                    QTEMP                                 
024734,000419: 07,2441                                           BANK     07                                    
024735,000420: 07,2000                                           SETLOC   XANG                                  
024736,000421: 07,2000                                           BANK                                           
024737,000422: 07,2441                                           COUNT    07/XANG                               
024738,000423: 
024739,000424:                                                                                                  #  CENTRAL ANGLE SUBROUTINE
024740,000425: 
024741,000426:                                                                                                  #  THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
024742,000427:                                                                                                  #  PASSIVE VEHICLE DURING THE TRANSFER.
024743,000428: 
024744,000429: 07,2441           40220        TRANSANG           STQ      SETPD                                 
024745,000430: 07,2442           02370                                    SUBEXIT                               
024746,000431: 07,2443           00001                                    0                                     
024747,000432: 07,2444           73150                           LXA,1    LXA,2                                 
024748,000433: 07,2445           03745                                    XRS                                   
024749,000434: 07,2446           03746                                    XRS        +1                         
024750,000435: 07,2447           53775                           VLOAD    VSR*                                  
024751,000436: 07,2450           03640                                    VPASS4                                
024752,000437: 07,2451           57176                                    0,2                                   
024753,000438: 07,2452           22746                           STODL*   VVEC                                  
024754,000439: 07,2453           11742                                    MUTABLE    +2,1                       
024755,000440: 07,2454           53715                           PDVL     VSR*                                  #  SQRT MU (+18 OR +15)                  00D
024756,000441: 07,2455           03632                                    RPASS4                                
024757,000442: 07,2456           57176                                    0,2                                   
024758,000443: 07,2457           64646                           ABVAL    PDDL*                                 #  MAGNITUDE OF R        (+29 OR +27)    02D
024759,000444: 07,2460           11740                                    MUTABLE,1                             
024760,000445: 07,2461           47515                           PDVL     VSQ                                   #  1/MU                  (+34 OR +28)    04D
024761,000446: 07,2462           02746                                    VVEC                                  
024762,000447: 07,2463           57301                           NORM     DMPR                                  #  PUSH LIST AT 02D
024763,000448: 07,2464           00047                                    X1                                    

Page 559

024765,000450: 07,2465           53605                           DMP      SRR*                                  
024766,000451: 07,2466           00003                                    02D                                   
024767,000452: 07,2467           21576                                    0          -3,1                       
024768,000453: 07,2470           77621                           BDSU                                           #  R V**/MU              (+6)
024769,000454: 07,2471           11616                                    D1/32                                 
024770,000455: 07,2472           65301                           NORM     PDDL                                  
024771,000456: 07,2473           00047                                    X1                                    #  (2 - R V**/MU)        (+6-N)
024772,000457: 07,2474           56362                           SR1R     DDV                                   #  MAGNITUDE OF R        (+30 OR +28)
024773,000458: 07,2475           41457                           SL*      PUSH                                  #  R/(2 - R V**/MU)      (+29 OR +27)    02D
024774,000459: 07,2476           20174                                    0          -5,1                       
024775,000460: 07,2477           75542                           SR1      SQRT                                  
024776,000461: 07,2500           77605                           DMP                                            
024777,000462: 07,2501           65301                           NORM     PDDL                                  #  ASUBP***                              00D
024778,000463: 07,2502           00047                                    X1                                    
024779,000464: 07,2503           56342                           SR1      DDV                                   
024780,000465: 07,2504           53605                           DMP      SL*                                   
024781,000466: 07,2505           03752                                    TF                                    
024782,000467: 07,2506           20201                                    0,1                                   
024783,000468: 07,2507           60325                           PDDL     NORM                                  
024784,000469: 07,2510           11630                                    2PISC                                 
024785,000470: 07,2511           00047                                    X1                                    
024786,000471: 07,2512           56325                           PDDL     DDV                                   
024787,000472: 07,2513           77657                           SL*                                            
024788,000473: 07,2514           20176                                    0          -3,1                       #  CENTANG = (SQRT(MU/ASUP***)TF)
024789,000474: 07,2515           37754                           STCALL   CENTANG                               #  IN REVOLUTIONS B-0
024790,000475: 07,2516           02370                                    SUBEXIT                               
024791,000476: 35,3151                                           BANK     35                                    
024792,000477: 35,2000                                           SETLOC   P17S1                                 
024793,000478: 35,2000                                           BANK                                           
024794,000479: 35,3151                                           COUNT    35/P17                                
024795,000480: 
024796,000481:                                                                                                  #  TPI SEARCH DISPLAY ROUTINE
024797,000482: 
024798,000483: 35,3151           04627        P17                TC       AVFLAGA                               #  AVFLAG = CSM, SET TRACK + UPDATE FLAGS
024799,000484: 35,3152           03154                           TC       P17.1                                 
024800,000485: 35,3153           04642        P77                TC       AVFLAGP                               #  AVFLAG = LEM, SET TRACK + UPDATE FLAGS
024801,000486: 35,3154           04647        P17.1              TC       P20FLGON                              #        SET UPDATE FLAG
024802,000487: 35,3155           34614                           CAF      V06N37                                #        DISPLAY TTPI TIME
024803,000488: 35,3156           04575                           TC       VNPOOH                                
024804,000489: 35,3157           06006                           TC       INTPRET                               
024805,000490: 35,3160           45014                           CLEAR    CALL                                  
024806,000491: 35,3161           00670                                    UPDATFLG                              
024807,000492: 35,3162           74012                                    S17.1                                 #  UPDATE STATE VECTORS TO TTPI
024808,000493: 35,3163           76014                           SET      AXT,1                                 
024809,000494: 35,3164           00470                                    UPDATFLG                              
024810,000495: 35,3165           00002                           DEC      2          B-14                       #  DELTA H = 2 K POSITIVE, KFLAG OFF
024811,000496: 35,3166           76014                           BOFF     AXT,1                                 
024812,000497: 35,3167           00356                                    KFLAG                                 
024813,000498: 35,3170           73172                                    +2                                    
024814,000499: 35,3171           00001                           DEC      1          B-14                       #  DELTA H = 1 K NEGATIVE, KFLAG ON

Page 560

024816,000501: 35,3172           77530                           SXA,1    EXIT                                  
024817,000502: 35,3173           01132                                    OPTION2                               
024818,000503: 35,3174           33263                           CAF      V06N72                                #  DISPLAY PHI, DELTA H, SEARCH OPTION K
024819,000504: 35,3175           03237                           TC       VNCOMP17                              
024820,000505: 35,3176           06006                           TC       INTPRET                               
024821,000506: 35,3177           43014                           CLEAR    SET                                   
024822,000507: 35,3200           00670                                    UPDATFLG                              
024823,000508: 35,3201           00076                                    KFLAG                                 
024824,000509: 35,3202           45335                           SLOAD    DSU                                   
024825,000510: 35,3203           01133                                    OPTION2                               #  RESET KFLAG ON FOR OPTION =1
024826,000511: 35,3204           36150                                    P21ONENN                              #             OFF FOR OPTION =2
024827,000512: 35,3205           43030                           BHIZ     CLEAR                                 
024828,000513: 35,3206           73210                                    +2                                    
024829,000514: 35,3207           00276                                    KFLAG                                 
024830,000515: 35,3210           46135                           SLOAD    BHIZ                                  
024831,000516: 35,3211           03747                                    XRS        +1                         
024832,000517: 35,3212           73216                                    +4                                    
024833,000518: 35,3213           52145                           DLOAD    GOTO                                  
024834,000519: 35,3214           33126                                    HPL                                   
024835,000520: 35,3215           73220                                    P17.2                                 
024836,000521: 35,3216           77745                           DLOAD                                          
024837,000522: 35,3217           33124                                    HPE                                   
024838,000523: 35,3220           36321        P17.2              STCALL   HPERMIN                               
024839,000524: 35,3221           74070                                    S17.2                                 
024840,000525: 35,3222           77414                           SET      EXIT                                  
024841,000526: 35,3223           00470                                    UPDATFLG                              
024842,000527: 35,3224           34616        P17.3              CAF      V06N58                                #  DISPLAY DELTA VTPI, DELTA VTPF, AND H
024843,000528: 35,3225           03237                           TC       VNCOMP17                              
024844,000529: 35,3226           34615                           CAF      V06N55                                #  DISPLAY PERICENTER CODE AND CENTRAL ANG,
024845,000530: 35,3227           04662                           TC       BANKCALL                              
024846,000531: 35,3230           21057                           CADR     GOFLASHR                              
024847,000532: 35,3231           04106                           TC       GOTOPOOH                              #  TERMINATE PROGRAM
024848,000533: 35,3232           04106                           TC       GOTOPOOH                              #  END PROGRAM
024849,000534: 35,3233           03154                           TC       P17.1                                 #  RECYCLE WITH NEW TTPI OR SEARCH OPTION
024850,000535: 35,3234           35016                           CAF      TWO                                   #  BLANK R2
024851,000536: 35,3235           05526                           TC       BLANKET                               
024852,000537: 35,3236           15217                           TCF      ENDOFJOB                              
024853,000538: 35,3237  E4,1767                                  EBANK=   RTRN                                  
024854,000539: 
024855,000540: 35,3237           00006        VNCOMP17           EXTEND                                         
024856,000541: 35,3240           23766                           QXCH     QSAVED                                
024857,000542: 35,3241           55765                           TS       VERBNOUN                              
024858,000543: 35,3242           31765                           CA       VERBNOUN                              
024859,000544: 35,3243           04662                           TCR      BANKCALL                              
024860,000545: 35,3244           20720                           CADR     GOFLASH                               
024861,000546: 35,3245           03242                           TC       -3                                    #  TERMINATE ILLEGAL REDISPLAY
024862,000547: 35,3246           01766                           TC       QSAVED                                #  PROCEED
024863,000548: 35,3247           40154                           CS       MPAC                                  #  RECYCLE WITH NEW TPI TIME
024864,000549: 35,3250           65012                           AD       BIT6                                  #  OR PROCEED WITH NEW SEARCH OPTION
024865,000550: 35,3251           00006                           EXTEND                                         

Page 561

024867,000552: 35,3252           13154                           BZF      P17.1                                 
024868,000553: 35,3253           03242                           TC       VNCOMP17   +3                         
024869,000554: 35,3254           77414        ALARUMS            SET      EXIT                                  
024870,000555: 35,3255           00470                                    UPDATFLG                              
024871,000556: 35,3256           05650                           TC       ALARM                                 
024872,000557: 35,3257           00124                           OCT      00124                                 #  NO SAFE PERCENTER IN THIS SECTOR
024873,000558: 35,3260           35050                           CAF      V05N09                                
024874,000559: 35,3261           03237                           TC       VNCOMP17                              
024875,000560: 35,3262           04106                           TC       GOTOPOOH                              #  PROCEED ILLEGAL TERMINATE PROGRAM
024876,000561: 35,3263           01510        V06N72             VN       0672                                  
024877,000562: 

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