Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

023443,000002:                                                                                                 #  Copyright:    Public domain.
023444,000003:                                                                                                 #  Filename:      TPI_SEARCH.agc
023445,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
023446,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
023447,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
023448,000007:                                                                                                 #  Assembler:    yaYUL
023449,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
023450,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
023451,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
023452,000011:                                                                                                 #  Mod history:  2011-02-14 JL    Adapted from corresponding Colossus 249 file.
023453,000012: 
023454,000013:                                                                                                 # # Page 539
023455,000014:                                                                                                 #  PROGRAM DESCRIPTION S17.1 AND S17.2
023456,000015: 
023457,000016:                                                                                                 #  FUNCTIONAL DESCRIPTION
023458,000017: 
023459,000018:                                                                                                 #           THE TPI SEARCH ROUTINE DETERMINES THE MINIMUM TOTAL VELOCITY TRANSFER TRAJECTORY FROM A GIVEN TPI
023460,000019:                                                                                                 #  MANEUVER TIME WITHIN THE CONSTRAINT OF A SAFE PERICENTER.  THIS VELOCITY IS THE SUM OF THE IMPULSIVE VELOCITIES
023461,000020:                                                                                                 #  FOR THE TPI AND TPF MANEUVERS.
023462,000021:                                                                                                 #           THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
023463,000022:                                                                                                 #  RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE(I.E. THE MAGNITUDE DIFFERENCE OF THE 
023464,000023:                                                                                                 #  POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
023465,000024:                                                                                                 #           THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA
023466,000025:                                                                                                 #  SUBROUTINE TO COMPUTE THE SEARCH START AND END TIMES.  THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE
023467,000026:                                                                                                 #  LAMBERT SUBROUTINE TO COMPUTE TEH VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME.  EXIT FROM THE SEARCH LOOP
023468,000027:                                                                                                 #  IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN
023469,000028:                                                                                                 #  THE SECTOR SEARCHED.
023470,000029: 
023471,000030:                                                                                                 #  CALLING SEQUENCE
023472,000031: 
023473,000032:                                                                                                 #           BOTH ROUTINES ARE CALLED IN INTERPRETIVE CODE AND RETURN VIA QPRET.  S17.1 HAS ONLY A NORMAL EXIT.
023474,000033:                                                                                                 #  S17.2 RETURNS VIA QPRET FOR NORMAL EXIT AND TO ALARUMS FOR ERROR EXIT.
023475,000034:                                                                                                 #  SUBROUTINES CALLED
023476,000035: 
023477,000036:                                                                                                 #           CSMCONIC
023478,000037:                                                                                                 #           LEMCONIC
023479,000038:                                                                                                 #           TIMETHET
023480,000039:                                                                                                 #           INITVEL
023481,000040: 
023482,000041: 36,2000                                          BANK     36                                    
023483,000042: 36,2000                                          SETLOC   P17S                                  
023484,000043: 36,2000                                          BANK                                           
023485,000044: 
023486,000045: 36,2000                                          COUNT    36/TPI                                
023487,000046: 
023488,000047: 36,2000  E7,1537                                 EBANK=   RACT3                                 
023489,000048: 
023490,000049:                                                                                                 #        **** TEMPORARY ****
023491,000050: 
023492,000051: 36,2000           00004 31566  HPE               2DEC     157420.0   B-29                       #  EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
023493,000052: 
023494,000053: 36,2002           00000 12326  HPL               2DEC     10668.0213 B-29                       #  MOON:S MIN. PERICENTER ALTITUDE 35000FT
023495,000054: 36,2004           00002 16100  CDSEC             2DEC     40000      B-28                       
023496,000055: 36,2006           00000 35230  CLSEC             2DEC     15000      B-28                       
023497,000056: 36,2010           12137 06033  PIINVERS          2DEC     .3183098862                            
023498,000057: 36,2012           06161 30707  SEC1THET          2DEC     .1944444444                            
023499,000058:                                                                                                 # # Page 540
023500,000059: 36,2014           35252 25253  SEC2THET          2DEC     .9166666667                            
023501,000060: 36,2016           67777 77777  MANYFEET          2DEC     -1.0       B-2                        
023502,000061: 36,2020           00000 30760  LIMVEL            2DEC     .6096      E-2        B-7             #  2FPS
023503,000062: 36,2022           00000 00114  DFTMOON           2DEC     .1524      E3         B-29            #  500 FEET
023504,000063: 36,2024           00040 30447  DP-.002           2DEC     0.002                                 
023505,000064: 36,2026           71220        S17.1             STQ      DLOAD                                 
023506,000065: 36,2027           01340                                   NORMEX                                
023507,000066: 36,2030           03663                                   TTPI                                  
023508,000067: 36,2031           34041                          STCALL   TDEC1                                 #  ADVANCE PASSIVE VEHICLE  TO TPI
023509,000068: 36,2032           27057                                   LEMCONIC                              
023510,000069: 36,2033           77624                          CALL                                           
023511,000070: 36,2034           45372                                   LEMSTORE                              
023512,000071: 36,2035           77745                          DLOAD                                          
023513,000072: 36,2036           03663                                   TTPI                                  
023514,000073: 36,2037           34041                          STCALL   TDEC1                                 #  ADVANCE  ACTIVE VEHICLE TO TPI
023515,000074: 36,2040           27045                                   CSMCONIC                              
023516,000075: 36,2041           77624                          CALL                                           
023517,000076: 36,2042           45402                                   CSMSTORE                              
023518,000077: 36,2043           77775                          VLOAD                                          
023519,000078: 36,2044           03540                                   RACT3                                 
023520,000079: 36,2045           63246                          ABVAL    PDVL                                  #   /RA/ 0D                         PL  2D
023521,000080: 36,2046           03554                                   RPASS3                                
023522,000081: 36,2047           65256                          UNIT     PDDL                                  #   UNIT RP 0D                      PL  6D
023523,000082: 36,2050           43021                          BDSU     SET                                   
023524,000083: 36,2051           00045                                   36D                                   #  /RP/ -/RA/
023525,000084: 36,2052           00076                                   KFLAG                                 #   OFF = +
023526,000085: 36,2053           43040                          BMN      CLEAR                                 
023527,000086: 36,2054           74056                                   +2                                    
023528,000087: 36,2055           00276                                   KFLAG                                 #   ON = -
023529,000088: 36,2056           27754                          STOVL    DELHITE                               
023530,000089: 36,2057           00001                                   0D                                    
023531,000090: 36,2060           53435                          VXV      UNIT                                  
023532,000091: 36,2061           03562                                   VPASS3                                
023533,000092: 36,2062           27646                          STOVL    E2                                    #  ALMOST IT SAVE FOR 17.2
023534,000093: 36,2063           03540                                   RACT3                                 
023535,000094: 36,2064           46206                          PUSH     VPROJ                                 
023536,000095: 36,2065           03646                                   E2                                    
023537,000096: 36,2066           51352                          VSL2     BVSU                                  #  RPA
023538,000097: 36,2067           50256                          UNIT     DOT                                   
023539,000098: 36,2070           00001                                   0D                                    
023540,000099: 36,2071           65552                          SL1      ACOS                                  
023541,000100: 36,2072           77715                          PDVL                                           
023542,000101: 36,2073           50235                          VXV      DOT                                   
023543,000102: 36,2074           03540                                   RACT3                                 
023544,000103: 36,2075           03646                                   E2                                    
023545,000104:                                                                                                 # # Page 541
023546,000105: 36,2076           75325                          PDDL     SIGN                                  
023547,000106: 36,2077           77626                          STADR                                          
023548,000107: 36,2100           61160                          STODL    THETZERO                              #  CENTRAL ANGLE
023549,000108: 36,2101           00047                                   X1                                    
023550,000109: 36,2102           37746                          STCALL   XRS                                   #  SAVE INDICES FOR FURTHER USE
023551,000110: 36,2103           01340                                   NORMEX                                #   += ACTIVE AHEAD   -= ACTIVE BEHIND
023552,000111: 36,2104           77220        S17.2             STQ      VLOAD                                 #  COMPUTE SEARCH SECTOR LIMITS
023553,000112: 36,2105           03657                                   QTEMP                                 
023554,000113: 36,2106           03540                                   RACT3                                 
023555,000114: 36,2107           50256                          UNIT     DOT                                   
023556,000115: 36,2110           03646                                   E2                                    
023557,000116: 36,2111           75446                          ABS      SQRT                                  
023558,000117: 36,2112           43352                          SL1      DAD                                   
023559,000118: 36,2113           34025                                   DP-.002                               #  ADD .002 RADIANS TO IT
023560,000119: 36,2114           57414                          BON      DCOMP                                 #  GIVES CORRECT SINE, COSINE MUST BE
023561,000120: 36,2115           00316                                   KFLAG                                 #  COMP. ADD .5 FOR ANGLE
023562,000121: 36,2116           74117                                   +1                                    
023563,000122:                                                                                                 #  PHI(0)=180-(-(THETAZERO +K5IT)), PHI(I)=180-(-THETAZERO+K2IT))
023564,000123:                                                                                                 #  SIN(180-ALPHA)=SIN(ALPHA) ETC
023565,000124: 36,2117           40205                          DMP      SETPD                                 
023566,000125: 36,2120           34011                                   PIINVERS                              #  REVOLUTIONARY HERES TWO IT
023567,000126: 36,2121           00001                                   0D                                    
023568,000127: 36,2122           45206                          PUSH     DSU                                   
023569,000128: 36,2123           02617                                   THETZERO                              
023570,000129: 36,2124           02611                          STORE    IT                                    #  PHI(I) , -(THETZERO + K2IT)
023571,000130: 36,2125           41525                          PDDL     PUSH                                  
023572,000131: 36,2126           43342                          SR1      DAD                                   
023573,000132: 36,2127           41415                          DAD      PUSH                                  #  PHI(0) , -(THETZERO + K5IT)
023574,000133: 36,2130           43156                          SIN      SET                                   
023575,000134: 36,2131           03466                                   RVSW                                  
023576,000135: 36,2132           16732                          STODL    SNTH                                  
023577,000136: 36,2133           50146                          COS      BMN                                   
023578,000137: 36,2134           74136                                   +2                                    
023579,000138: 36,2135           77676                          DCOMP                                          
023580,000139: 36,2136           16734                          STODL    CSTH                                  
023581,000140: 36,2137           03746                                   XRS                                   
023582,000141: 36,2140           24047                          STOVL    X1                                    
023583,000142: 36,2141           03554                                   RPASS3                                
023584,000143: 36,2142           77657                          VSR*                                           
023585,000144: 36,2143           57176                                   0,2                                   
023586,000145: 36,2144           26657                          STOVL    RVEC                                  
023587,000146: 36,2145           03562                                   VPASS3                                
023588,000147: 36,2146           77657                          VSR*                                           
023589,000148: 36,2147           57176                                   0,2                                   
023590,000149: 36,2150           36746                          STCALL   VVEC                                  
023591,000150: 36,2151           24737                                   TIMETHET                              
023592,000151: 36,2152           77745                          DLOAD                                          #  SAVE START TIME AND GET END TIME
023593,000152: 36,2153           00037                                   T                                     
023594,000153: 36,2154           03752                          STORE    TF                                    
023595,000154: 36,2155           16627                          STODL    TFO                                   
023596,000155:                                                                                                 # # Page 542
023597,000156: 36,2156           02611                                   IT                                    
023598,000157: 36,2157           73406                          PUSH     SIN                                   
023599,000158: 36,2160           16732                          STODL    SNTH                                  
023600,000159: 36,2161           50146                          COS      BMN                                   
023601,000160: 36,2162           74164                                   +2                                    
023602,000161: 36,2163           77676                          DCOMP                                          
023603,000162: 36,2164           02734                          STORE    CSTH                                  
023604,000163: 36,2165           45150                          LXA,1    CALL                                  
023605,000164: 36,2166           03745                                   XRS                                   
023606,000165: 36,2167           24737                                   TIMETHET                              
023607,000166:                                                                                                 #  INITIALIZE LOOP
023608,000167: 36,2170           43145                          DLOAD    CLEAR                                 
023609,000168: 36,2171           00037                                   T                                     
023610,000169: 36,2172           03661                                   ITSWICH                               
023611,000170: 36,2173           16621                          STODL    TFI                                   #  SAVE TIME FOR LOOP TEST
023612,000171: 36,2174           15340                                   DPPOSMAX                              
023613,000172: 36,2175           16623                          STODL    DELVEE                                
023614,000173: 36,2176           34017                                   MANYFEET                              
023615,000174: 36,2177           16625                          STODL    HP                                    
023616,000175: 36,2200           34013                                   SEC1THET                              #  70 DEGREES
023617,000176: 36,2201           71214                          BON      DLOAD                                 
023618,000177: 36,2202           00316                                   KFLAG                                 
023619,000178: 36,2203           74205                                   +2                                    
023620,000179: 36,2204           34015                                   SEC2THET                              #  330 DEGREES
023621,000180: 36,2205           37750                          STCALL   THETL                                 
023622,000181: 36,2206           74230                                   CONCAUL                               
023623,000182: 36,2207           70545        BIS               DLOAD    SR1                                   
023624,000183: 36,2210           02734                                   CSTH                                  
023625,000184: 36,2211           14021                          STODL    COSTH                                 
023626,000185: 36,2212           02732                                   SNTH                                  
023627,000186: 36,2213           77742                          SR1                                            
023628,000187: 36,2214           34023                          STCALL   SINTH                                 #  GET 4 QUADRANT THETA
023629,000188: 36,2215           47211                                   ARCTRIG                               
023630,000189: 36,2216           43244                          BPL      DAD                                   
023631,000190: 36,2217           74221                                   +2                                    
023632,000191: 36,2220           15340                                   DPPOSMAX                              #  PUT THETA BETWEEN 0,1
023633,000192: 36,2221           65221                          BDSU     PDDL                                  
023634,000193: 36,2222           03750                                   THETL                                 
023635,000194: 36,2223           03752                                   TF                                    
023636,000195: 36,2224           75225                          DSU      SIGN                                  #  FAST TIMES
023637,000196: 36,2225           02621                                   TFI                                   
023638,000197: 36,2226           77640                          BMN                                            
023639,000198: 36,2227           74432                                   RNGETEST                              #  TIME MUST HAVE A STOP
023640,000199:                                                                                                 #  ADVANCE PASSIVE FOR TARGET VECTOR
023641,000200: 36,2230           77745        CONCAUL           DLOAD                                          
023642,000201: 36,2231           03663                                   TTPI                                  
023643,000202: 36,2232           43015                          DAD      BON                                   
023644,000203: 36,2233           03752                                   TF                                    
023645,000204: 36,2234           01312                                   AVFLAG                                
023646,000205: 36,2235           74242                                   ADVCSM                                
023647,000206:                                                                                                 # # Page 543
023648,000207: 36,2236           34041                          STCALL   TDEC1                                 
023649,000208: 36,2237           27057                                   LEMCONIC                              
023650,000209: 36,2240           77650                          GOTO                                           
023651,000210: 36,2241           74244                                   JUNCT3                                
023652,000211: 36,2242           34041        ADVCSM            STCALL   TDEC1                                 
023653,000212: 36,2243           27045                                   CSMCONIC                              
023654,000213:                                                                                                 #  SAVE BACK VALUES OF HP AND DELVEE
023655,000214: 36,2244           77775        JUNCT3            VLOAD                                          
023656,000215: 36,2245           00007                                   VATT                                  
023657,000216: 36,2246           27640                          STOVL    VPASS4                                
023658,000217: 36,2247           00001                                   RATT                                  
023659,000218: 36,2250           03632                          STORE    RPASS4                                
023660,000219: 36,2251           17415                          STODL    RTARG                                 
023661,000220: 36,2252           03752                                   TF                                    
023662,000221: 36,2253           17423                          STODL    DELLT4                                
023663,000222: 36,2254           02625                                   HP                                    
023664,000223: 36,2255           16631                          STODL    HPO                                   
023665,000224: 36,2256           02623                                   DELVEE                                
023666,000225: 36,2257           16633                          STODL    DELVEO                                
023667,000226:                                                                                                 #  PREPARE FOR LAMBERT
023668,000227: 36,2260           03663                                   TTPI                                  
023669,000228: 36,2261           17503                          STODL    INTIME                                
023670,000229: 36,2262           03746                                   XRS                                   
023671,000230: 36,2263           17746                          STODL    RTX1                                  
023672,000231: 36,2264           15332                                   HI6ZEROS                              
023673,000232: 36,2265           65201                          SETPD    PDDL                                  
023674,000233: 36,2266           00001                                   0D                                    
023675,000234: 36,2267           33147                                   EPSFOUR                               
023676,000235: 36,2270           77715                          PDVL                                           
023677,000236: 36,2271           03540                                   RACT3                                 
023678,000237: 36,2272           27570                          STOVL    RINIT                                 
023679,000238: 36,2273           03546                                   VACT3                                 
023680,000239: 36,2274           37576                          STCALL   VINIT                                 
023681,000240: 36,2275           22000                                   INITVEL                               
023682,000241:                                                                                                 #  COMPUTE H ET CETERA
023683,000242: 36,2276           52375                          VLOAD    VSU                                   
023684,000243: 36,2277           03620                                   VTPRIME                               
023685,000244: 36,2300           03640                                   VPASS4                                
023686,000245: 36,2301           41446                          ABVAL    PUSH                                  
023687,000246: 36,2302           26637                          STOVL    RELDELV                               #  /V2-VP(TPI+TF)/
023688,000247: 36,2303           03646                                   DELVEET3                              #  V1-VA
023689,000248: 36,2304           77646                          ABVAL                                          #  /V1-VA/
023690,000249: 36,2305           02635                          STORE    MAGVTPI                               
023691,000250: 36,2306           45415                          DAD      STADR                                 
023692,000251: 36,2307           61154                          STODL    DELVEE                                
023693,000252: 36,2310           03746                                   XRS                                   
023694,000253: 36,2311           24047                          STOVL    X1                                    
023695,000254: 36,2312           03612                                   VIPRIME                               
023696,000255: 36,2313           77657                          VSR*                                           
023697,000256: 36,2314           57176                                   0,2                                   
023698,000257:                                                                                                 # # Page 544
023699,000258: 36,2315           26746                          STOVL    VVEC                                  
023700,000259: 36,2316           03540                                   RACT3                                 
023701,000260: 36,2317           77657                          VSR*                                           
023702,000261: 36,2320           57176                                   0,2                                   
023703,000262: 36,2321           36657                          STCALL   RVEC                                  
023704,000263: 36,2322           45322                                   PERIAPO                               
023705,000264: 36,2323           71354                          LXA,2    DLOAD                                 
023706,000265: 36,2324           03746                                   XRS        +1                         
023707,000266: 36,2325           77657                          SL*                                            
023708,000267: 36,2326           57576                                   0,2                                   
023709,000268: 36,2327           02625                          STORE    HP                                    
023710,000269:                                                                                                 #  ITSWICH DENOTES INTERPOLATION--SOLUTION ACCEPTANCE IS FORCED
023711,000270: 36,2330           71214                          BON      DLOAD                                 
023712,000271: 36,2331           03701                                   ITSWICH                               
023713,000272: 36,2332           74443                                   ENDEN                                 
023714,000273: 36,2333           02321                                   HPERMIN                               
023715,000274: 36,2334           50025                          DSU      BMN                                   
023716,000275: 36,2335           02625                                   HP                                    
023717,000276: 36,2336           74401                                   HALFSAFE                              
023718,000277: 36,2337           45325                          PDDL     DSU                                   #  WAS PERICENTER ALT SAFE
023719,000278: 36,2340           02321                                   HPERMIN                               
023720,000279: 36,2341           02631                                   HPO                                   
023721,000280: 36,2342           45240                          BMN      DSU                                   #  (HPLIM-HPO)-(HPLIM-HP)=HP-HPO
023722,000281: 36,2343           74360                                   INTERP                                #  SOLUTION AT HAND
023723,000282: 36,2344           71240                          BMN      DLOAD                                 
023724,000283: 36,2345           73534                                   ALARUMS                               #  ITS GETTING WORSE - SOUND THE ALARM
023725,000284: 36,2346           34005                                   CDSEC                                 
023726,000285: 36,2347           57414        JUNCT1            BOFF     DCOMP                                 #  OFF IS PLUS ON IS MINUS
023727,000286: 36,2350           00356                                   KFLAG                                 
023728,000287: 36,2351           74352                                   +1                                    
023729,000288: 36,2352           03744                          STORE    DELTEE                                
023730,000289: 36,2353           43345        JUNCT2            DLOAD    DAD                                   
023731,000290: 36,2354           03744                                   DELTEE                                
023732,000291: 36,2355           03752                                   TF                                    
023733,000292: 36,2356           37752                          STCALL   TF                                    
023734,000293: 36,2357           74207                                   BIS                                   #  RECYCLE
023735,000294: 36,2360           45214        INTERP            SET      DSU                                   #  HP-HPO
023736,000295: 36,2361           03461                                   ITSWICH                               
023737,000296: 36,2362           65301                          NORM     PDDL                                  
023738,000297: 36,2363           00047                                   X1                                    
023739,000298: 36,2364           34023                                   DFTMOON                               
023740,000299: 36,2365           45215                          DAD      DSU                                   
023741,000300: 36,2366           02321                                   HPERMIN                               
023742,000301: 36,2367           02625                                   HP                                    
023743,000302: 36,2370           70501                          NORM     SR1                                   
023744,000303: 36,2371           00050                                   X2                                    
023745,000304: 36,2372           56264                          XSU,2    DDV                                   
023746,000305: 36,2373           00046                                   X1                                    
023747,000306: 36,2374           53605                          DMP      SR*                                   
023748,000307: 36,2375           03744                                   DELTEE                                
023749,000308:                                                                                                 # # Page 545
023750,000309: 36,2376           57177                                   0          -1,2                       
023751,000310: 36,2377           37744                          STCALL   DELTEE                                
023752,000311: 36,2400           74353                                   JUNCT2                                
023753,000312: 36,2401           45325        HALFSAFE          PDDL     DSU                                   #  SAVE HP-HPLIM FOR POSSIBLE
023754,000313: 36,2402           02623                                   DELVEE                                
023755,000314: 36,2403           02633                                   DELVEO                                #  SAVE THIS TOO
023756,000315: 36,2404           51406                          PUSH     ABS                                   
023757,000316: 36,2405           50025                          DSU      BMN                                   
023758,000317: 36,2406           34021                                   LIMVEL                                #  2 FT PS
023759,000318: 36,2407           74443                                   ENDEN                                 
023760,000319: 36,2410           45345                          DLOAD    DSU                                   
023761,000320: 36,2411           02321                                   HPERMIN                               
023762,000321: 36,2412           02631                                   HPO                                   
023763,000322: 36,2413           77725                          PDDL                                           
023764,000323: 36,2414           71240                          BMN      DLOAD                                 
023765,000324: 36,2415           74424                                   LRGRDVO                               
023766,000325: 36,2416           71244                          BPL      DLOAD                                 
023767,000326: 36,2417           74360                                   INTERP                                
023768,000327: 36,2420           03744                                   DELTEE                                
023769,000328: 36,2421           57542                          SR1      DCOMP                                 
023770,000329: 36,2422           37744                          STCALL   DELTEE                                
023771,000330: 36,2423           74353                                   JUNCT2                                
023772,000331: 36,2424           77745        LRGRDVO           DLOAD                                          
023773,000332: 36,2425           71240                          BMN      DLOAD                                 
023774,000333: 36,2426           74353                                   JUNCT2                                
023775,000334: 36,2427           34007                                   CLSEC                                 
023776,000335: 36,2430           77650                          GOTO                                           
023777,000336: 36,2431           74347                                   JUNCT1                                
023778,000337:                                                                                                 #  TIME RAN OUT ASSUME SOLUTION IF SAFE PERICENTER
023779,000338: 36,2432           45345        RNGETEST          DLOAD    DSU                                   
023780,000339: 36,2433           02625                                   HP                                    
023781,000340: 36,2434           02321                                   HPERMIN                               
023782,000341: 36,2435           71240                          BMN      DLOAD                                 
023783,000342: 36,2436           73534                                   ALARUMS                               
023784,000343: 36,2437           03752                                   TF                                    
023785,000344: 36,2440           77625                          DSU                                            
023786,000345: 36,2441           03744                                   DELTEE                                
023787,000346: 36,2442           03752                          STORE    TF                                    #  TIME OF SOLUTION
023788,000347: 36,2443           77775        ENDEN             VLOAD                                          
023789,000348: 36,2444           03620                                   VTPRIME                               
023790,000349: 36,2445           65241                          DOT      PDDL                                  #  SG2 WITH MAGNITUDE
023791,000350: 36,2446           03632                                   RPASS4                                
023792,000351: 36,2447           02637                                   RELDELV                               
023793,000352: 36,2450           45565                          SIGN     STADR                                 #  NOW SIGN(RELDELV)=SIGN(SG2)
023794,000353: 36,2451           41140                          STCALL   RELDELV                               
023795,000354: 36,2452           16440                                   TRANSANG                              #  COMPUTE OMEGA T , CENTRAL ANGLE
023796,000355: 36,2453           50375                          VLOAD    DOT                                   
023797,000356: 36,2454           03540                                   RACT3                                 
023798,000357: 36,2455           03612                                   VIPRIME                               #  SG1
023799,000358: 36,2456           51165                          SIGN     BPL                                   #  IF POSITIVE THEN SG1 = SG2 OTHERWISE
023800,000359:                                                                                                 # # Page 546
023801,000360: 36,2457           02637                                   RELDELV                               
023802,000361: 36,2460           74470                                   USEKAY                                #  SIGN(SG2-SG1)=SIGN(SG2)=SIGN(RELDELV)
023803,000362: 36,2461           57535                          SLOAD    DCOMP                                 
023804,000363: 36,2462           33144                                   DECTWO                                
023805,000364: 36,2463           51165                          SIGN     BPL                                   
023806,000365: 36,2464           02637                                   RELDELV                               
023807,000366: 36,2465           74476                                   NEXUS                                 
023808,000367: 36,2466           52076                          DCOMP    GOTO                                  
023809,000368: 36,2467           74474                                   USEKAY     +4                         
023810,000369: 36,2470           43135        USEKAY            SLOAD    BON                                   
023811,000370: 36,2471           33144                                   DECTWO                                
023812,000371: 36,2472           00316                                   KFLAG                                 
023813,000372: 36,2473           74476                                   NEXUS                                 
023814,000373: 36,2474           77625                          DSU                                            
023815,000374: 36,2475           36100                                   P21ONENN                              
023816,000375: 36,2476           17646        NEXUS             STODL    NN1                                   
023817,000376: 36,2477           02625                                   HP                                    
023818,000377: 36,2500           36641                          STCALL   POSTTPI                               
023819,000378: 36,2501           03657                                   QTEMP                                 
023820,000379: 07,2440                                          BANK     07                                    
023821,000380: 07,2000                                          SETLOC   XANG                                  
023822,000381: 07,2000                                          BANK                                           
023823,000382: 07,2440                                          COUNT    07/XANG                               
023824,000383: 
023825,000384:                                                                                                 #  CENTRAL ANGLE SUBROUTINE
023826,000385:                                                                                                 #          THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
023827,000386:                                                                                                 #  PASSIVE VEHICLE DURING THE TRANSFER.
023828,000387: 
023829,000388: 07,2440           40220        TRANSANG          STQ      SETPD                                 
023830,000389: 07,2441           02370                                   SUBEXIT                               
023831,000390: 07,2442           00001                                   0                                     
023832,000391: 07,2443           73150                          LXA,1    LXA,2                                 
023833,000392: 07,2444           03745                                   XRS                                   
023834,000393: 07,2445           03746                                   XRS        +1                         
023835,000394: 07,2446           53775                          VLOAD    VSR*                                  
023836,000395: 07,2447           03640                                   VPASS4                                
023837,000396: 07,2450           57176                                   0,2                                   
023838,000397: 07,2451           22746                          STODL*   VVEC                                  
023839,000398: 07,2452           11630                                   MUTABLE    +2,1                       
023840,000399: 07,2453           53715                          PDVL     VSR*                                  #  SQRT MU  (+18 OR +15)          00D
023841,000400: 07,2454           03632                                   RPASS4                                
023842,000401: 07,2455           57176                                   0,2                                   
023843,000402: 07,2456           64646                          ABVAL    PDDL*                                 #  MAGNITUDE OF R  (+29 OR +27)   02D
023844,000403: 07,2457           11626                                   MUTABLE,1                             
023845,000404: 07,2460           47515                          PDVL     VSQ                                   #  1/MU  (+34 OR +28)             04D
023846,000405: 07,2461           02746                                   VVEC                                  
023847,000406: 07,2462           57301                          NORM     DMPR                                  #  PUSH LIST AT 02D
023848,000407: 07,2463           00047                                   X1                                    
023849,000408: 07,2464           53605                          DMP      SRR*                                  
023850,000409: 07,2465           00003                                   02D                                   
023851,000410:                                                                                                 # # Page 547
023852,000411: 07,2466           21576                                   0          -3,1                       
023853,000412: 07,2467           77621                          BDSU                                           #  R V**/MU  (+6)
023854,000413: 07,2470           11503                                   D1/32                                 
023855,000414: 07,2471           65301                          NORM     PDDL                                  
023856,000415: 07,2472           00047                                   X1                                    #  (2 - R V**/MU)     (+6-N)
023857,000416: 07,2473           56362                          SR1R     DDV                                   #  MAGNITUDE OF R     (+30 OR +28)
023858,000417: 07,2474           41457                          SL*      PUSH                                  #  R/(2 - R V**/MU)   (+29 OR +27)02D
023859,000418: 07,2475           20174                                   0          -5,1                       
023860,000419: 07,2476           75542                          SR1      SQRT                                  
023861,000420: 07,2477           77605                          DMP                                            
023862,000421: 07,2500           65301                          NORM     PDDL                                  #  ASUBP***                       00D
023863,000422: 07,2501           00047                                   X1                                    
023864,000423: 07,2502           56342                          SR1      DDV                                   
023865,000424: 07,2503           53605                          DMP      SL*                                   
023866,000425: 07,2504           03752                                   TF                                    
023867,000426: 07,2505           20201                                   0,1                                   
023868,000427: 07,2506           60325                          PDDL     NORM                                  
023869,000428: 07,2507           11515                                   2PISC                                 
023870,000429: 07,2510           00047                                   X1                                    
023871,000430: 07,2511           56325                          PDDL     DDV                                   
023872,000431: 07,2512           77657                          SL*                                            
023873,000432: 07,2513           20176                                   0          -3,1                       #  CENTANG = (SQRT(MU/ASUP***)TF)
023874,000433: 07,2514           37754                          STCALL   CENTANG                               #  IN REVOLUTIONS B-0
023875,000434: 07,2515           02370                                   SUBEXIT                               
023876,000435: 35,3431                                          BANK     35                                    
023877,000436: 35,2000                                          SETLOC   P17S1                                 
023878,000437: 35,2000                                          BANK                                           
023879,000438: 35,3431                                          COUNT    35/P17                                
023880,000439: 
023881,000440:                                                                                                 #  TPI SEARCH DISPLAY ROUTINE
023882,000441: 
023883,000442: 35,3431           03726        P17               TC       AVFLAGA                               #  AVFLAG = CSM , SET TRACK + UPDATE FLAGS
023884,000443: 35,3432           03434                          TC       P17.1                                 
023885,000444: 35,3433           03741        P77               TC       AVFLAGP                               #  AVFLAG = LEM , SET TRACK + UPDATE FLAGS
023886,000445: 35,3434           03746        P17.1             TC       P20FLGON                              #   SET UPDATE FLAG
023887,000446: 35,3435           33125                          CAF      V06N37                                #   DISPLAY TTPI TIME
023888,000447: 35,3436           03114                          TC       VNPOOH                                
023889,000448: 35,3437           06006                          TC       INTPRET                               
023890,000449: 35,3440           45014                          CLEAR    CALL                                  
023891,000450: 35,3441           00670                                   UPDATFLG                              
023892,000451: 35,3442           74026                                   S17.1                                 #  UPDATE STATE VECTORS TO TTPI
023893,000452: 35,3443           76014                          SET      AXT,1                                 
023894,000453: 35,3444           00470                                   UPDATFLG                              
023895,000454: 35,3445           00002                          DEC      2          B-14                       #  DELTA H = 2  K POSITIVE , KFLAG OFF
023896,000455: 35,3446           76014                          BOFF     AXT,1                                 
023897,000456: 35,3447           00356                                   KFLAG                                 
023898,000457: 35,3450           73452                                   +2                                    
023899,000458: 35,3451           00001                          DEC      1          B-14                       #  DELTA H = 1  K NEGATIVE , KFLAG ON
023900,000459: 35,3452           77530                          SXA,1    EXIT                                  
023901,000460: 35,3453           01132                                   OPTION2                               
023902,000461:                                                                                                 # # Page 548
023903,000462: 35,3454           33543                          CAF      V06N72                                #  DISPLAY PHI , DELTA H , SEARCH OPTION K
023904,000463: 35,3455           03517                          TC       VNCOMP17                              
023905,000464: 35,3456           06006                          TC       INTPRET                               
023906,000465: 35,3457           43014                          CLEAR    SET                                   
023907,000466: 35,3460           00670                                   UPDATFLG                              
023908,000467: 35,3461           00076                                   KFLAG                                 
023909,000468: 35,3462           45335                          SLOAD    DSU                                   
023910,000469: 35,3463           01133                                   OPTION2                               #  RESET KFLAG ON FOR OPTION =1
023911,000470: 35,3464           36100                                   P21ONENN                              #             OFF FOR OPTION =2
023912,000471: 35,3465           43030                          BHIZ     CLEAR                                 
023913,000472: 35,3466           73470                                   +2                                    
023914,000473: 35,3467           00276                                   KFLAG                                 
023915,000474: 35,3470           46135                          SLOAD    BHIZ                                  
023916,000475: 35,3471           03747                                   XRS        +1                         
023917,000476: 35,3472           73476                                   +4                                    
023918,000477: 35,3473           52145                          DLOAD    GOTO                                  
023919,000478: 35,3474           34003                                   HPL                                   
023920,000479: 35,3475           73500                                   P17.2                                 
023921,000480: 35,3476           77745                          DLOAD                                          
023922,000481: 35,3477           34001                                   HPE                                   
023923,000482: 35,3500           36321        P17.2             STCALL   HPERMIN                               
023924,000483: 35,3501           74104                                   S17.2                                 
023925,000484: 35,3502           77414                          SET      EXIT                                  
023926,000485: 35,3503           00470                                   UPDATFLG                              
023927,000486: 35,3504           33127        P17.3             CAF      V06N58                                #  DISPLAY DELTA VTPI , DELTA VTPF , AND H
023928,000487: 35,3505           03517                          TC       VNCOMP17                              
023929,000488: 35,3506           33126                          CAF      V06N55                                #  DISPLAY PERICENTER CODE AND CENTRAL ANG,
023930,000489: 35,3507           04555                          TC       BANKCALL                              
023931,000490: 35,3510           20763                          CADR     GOFLASHR                              
023932,000491: 35,3511           04106                          TC       GOTOPOOH                              #  TERMINATE PROGRAM
023933,000492: 35,3512           04106                          TC       GOTOPOOH                              #  END PROGRAM
023934,000493: 35,3513           03434                          TC       P17.1                                 #  RECYCLE WITH NEW TTPI OR SEARCH OPTION
023935,000494: 35,3514           34711                          CAF      TWO                                   #  BLANK R2
023936,000495: 35,3515           05415                          TC       BLANKET                               
023937,000496: 35,3516           15112                          TCF      ENDOFJOB                              
023938,000497: 35,3517  E4,1767                                 EBANK=   RTRN                                  
023939,000498: 
023940,000499: 35,3517           00006        VNCOMP17          EXTEND                                         
023941,000500: 35,3520           23766                          QXCH     QSAVED                                
023942,000501: 35,3521           55765                          TS       VERBNOUN                              
023943,000502: 35,3522           31765                          CA       VERBNOUN                              
023944,000503: 35,3523           04555                          TCR      BANKCALL                              
023945,000504: 35,3524           20624                          CADR     GOFLASH                               
023946,000505: 35,3525           03522                          TC       -3                                    #  TERMINATE ILLEGAL REDISPLAY
023947,000506: 35,3526           01766                          TC       QSAVED                                #  PROCEED
023948,000507: 35,3527           40154                          CS       MPAC                                  #  RECYCLE WITH NEW TPI TIME
023949,000508: 35,3530           64705                          AD       BIT6                                  #  OR PROCEED WITH NEW SEARCH OPTION
023950,000509: 35,3531           00006                          EXTEND                                         
023951,000510: 35,3532           13434                          BZF      P17.1                                 
023952,000511: 35,3533           03522                          TC       VNCOMP17   +3                         
023953,000512:                                                                                                 # # Page 549
023954,000513: 35,3534           77414        ALARUMS           SET      EXIT                                  
023955,000514: 35,3535           00470                                   UPDATFLG                              
023956,000515: 35,3536           05537                          TC       ALARM                                 
023957,000516: 35,3537           00124                          OCT      00124                                 #  NO SAFE PERCENTER IN THIS SECTOR
023958,000517: 35,3540           34743                          CAF      V05N09                                
023959,000518: 35,3541           03517                          TC       VNCOMP17                              
023960,000519: 35,3542           04106                          TC       GOTOPOOH                              #  PROCEED ILLEGAL TERMINATE PROGRAM
023961,000520: 35,3543           01510        V06N72            VN       0672                                  

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