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