Source Code
|
These source-code files are part of a reconstructed copy of Comanche 45, the
second release, though not the final mission release, of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45 was
preceded by Comanche 44 and followed by Comanche 45/2 (the flown release). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 45, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 44 (itself previously accurately
reconstructed). Comanche 44 source code was then modified
by incorporating changes known from contemporary documentation to have been
made between revisions 44 and 45. The now-reconstructed Comanche 45 source code was
verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code tend to match those in the Comanche 55, the
most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy;
the source code would likely have different page numbers in a contemporary
Comanche 45 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 44. Here's a guide to the Apollo documentation referenced
in those annotations:
There is also
a detailed commentary about the reconstruction process.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
023680,000002: ## Copyright: Public domain.
023681,000003: ## Filename: TPI_SEARCH.agc
023682,000004: ## Purpose: A section of Comanche revision 045.
023683,000005: ## It is part of the reconstructed source code for the
023684,000006: ## second release of the flight software for the Command
023685,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
023686,000008: ## The code has been recreated from a copy of Comanche 055. It
023687,000009: ## has been adapted such that the resulting bugger words
023688,000010: ## exactly match those specified for Comanche 45 in NASA drawing
023689,000011: ## 2021153D, which gives relatively high confidence that the
023690,000012: ## reconstruction is correct.
023691,000013: ## Assembler: yaYUL
023692,000014: ## Contact: Ron Burkey <info@sandroid.org>.
023693,000015: ## Website: www.ibiblio.org/apollo/index.html
023694,000016: ## Mod history: 2020-12-06 MAS Created from Comanche 44.
023695,000017:
|
|
Page 551
|
023697,000019: # PROGRAM DESCRIPTION S17.1 AND S17.2
023698,000020:
023699,000021: # FUNCTIONAL DESCRIPTION
023700,000022:
023701,000023: # THE TPI SEARCH ROUTINE DETERMINES THE MINIMUM TOTAL VELOCITY TRANSFER TRAJECTORY FROM A GIVEN TPI
023702,000024: # MANEUVER TIME WITHIN THE CONSTRAINT OF A SAFE PERICENTER. THIS VELOCITY IS THE SUM OF THE IMPULSIVE VELOCITIES
023703,000025: # FOR THE TPI AND TPF MANEUVERS.
023704,000026:
023705,000027: # THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
023706,000028: # RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E. THE MAGNITUDE DIFFERENCE OF THE
023707,000029: # POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
023708,000030:
023709,000031: # THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA
023710,000032: # SUBROUTINE TO COMPUTE THE SEARCH START AND END TIMES. THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE
023711,000033: # LAMBERT SUBROUTINE TO COMPUTE THE VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME. EXIT FROM THE SEARCH LOOP
023712,000034: # IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN
023713,000035: # THE SECTOR SEARCHED.
023714,000036:
023715,000037: # CALLING SEQUENCE
023716,000038:
023717,000039: # BOTH ROUTINES ARE CALLED IN INTERPRETIVE CODE AND RETURN VIA QPRET. S17.1 HAS ONLY A NORMAL EXIT.
023718,000040: # S17.2 RETURNS VIA QPRET FOR NORMAL EXIT AND TO ALARUMS FOR ERROR EXIT.
023719,000041:
023720,000042: # SUBROUTINES CALLED
023721,000043:
023722,000044: # CSMCONIC
023723,000045: # LEMCONIC
023724,000046: # TIMETHET
023725,000047: # INITVEL
023726,000048:
023727,000049: 36,2000 BANK 36
023728,000050: 35,2000 SETLOC P17S1
023729,000051: 35,2000 BANK
023730,000052:
023731,000053: 35,3127 COUNT 36/TPI
023732,000054:
023733,000055: 35,3127 E7,1537 EBANK= RACT3
023734,000056:
023735,000057: # **** TEMPORARY ****
023736,000058:
023737,000059: 35,3127 00004 31566 HPE 2DEC 157420.0 B-29 # EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
023738,000060:
023739,000061: 35,3131 00000 12326 HPL 2DEC 10668.0213 B-29 # MOON:S MIN. PERICENTER ALTITUDE 35000 FT
023740,000062:
023741,000063: 35,3133 00002 16100 CDSEC 2DEC 40000 B-28
023742,000064:
023743,000065: 35,3135 00000 35230 CLSEC 2DEC 15000 B-28
023744,000066:
023745,000067: 35,3137 12137 06033 PIINVERS 2DEC .3183098862
023746,000068:
023747,000069: 35,3141 06161 30707 SEC1THET 2DEC .1944444444
023748,000070:
|
|
Page 552
|
023750,000072: 35,3143 35252 25253 SEC2THET 2DEC .9166666667
023751,000073:
023752,000074: 35,3145 67777 77777 MANYFEET 2DEC -1.0 B-2
023753,000075:
023754,000076: 35,3147 00000 30760 LIMVEL 2DEC .6096 E-2 B-7 # 2FPS
023755,000077:
023756,000078: 35,3151 00000 00114 DFTMOON 2DEC .1524 E3 B-29 # 500 FEET
023757,000079:
023758,000080: 35,3153 00040 30447 DP-.002 2DEC 0.002
023759,000081:
023760,000082: 36,2000 SETLOC P17S
023761,000083: 36,2000 BANK
023762,000084: 36,2000 71220 S17.1 STQ DLOAD
023763,000085: 36,2001 01340 NORMEX
023764,000086: 36,2002 03663 TTPI
023765,000087: 36,2003 34041 STCALL TDEC1 # ADVANCE PASSIVE VEHICLE TO TPI
023766,000088: 36,2004 27126 LEMCONIC
023767,000089: 36,2005 77624 CALL
023768,000090: 36,2006 45233 LEMSTORE
023769,000091: 36,2007 77745 DLOAD
023770,000092: 36,2010 03663 TTPI
023771,000093: 36,2011 34041 STCALL TDEC1 # ADVANCE ACTIVE VEHICLE TO TPI
023772,000094: 36,2012 27114 CSMCONIC
023773,000095: 36,2013 77624 CALL
023774,000096: 36,2014 45243 CSMSTORE
023775,000097: 36,2015 77775 VLOAD
023776,000098: 36,2016 03540 RACT3
023777,000099: 36,2017 63246 ABVAL PDVL # /RA/ 0D PL 2D
023778,000100: 36,2020 03554 RPASS3
023779,000101: 36,2021 65256 UNIT PDDL # UNIT RP 0D PL 6D
023780,000102: 36,2022 43021 BDSU SET
023781,000103: 36,2023 00045 36D # /RP/ -/RA/
023782,000104: 36,2024 00076 KFLAG # OFF = +
023783,000105: 36,2025 43040 BMN CLEAR
023784,000106: 36,2026 74030 +2
023785,000107: 36,2027 00276 KFLAG # ON = -
023786,000108: 36,2030 27754 STOVL DELHITE
023787,000109: 36,2031 00001 0D
023788,000110: 36,2032 53435 VXV UNIT
023789,000111: 36,2033 03562 VPASS3
023790,000112: 36,2034 27646 STOVL E2 # ALMOST IT SAVE FOR 17.2
023791,000113: 36,2035 03540 RACT3
023792,000114: 36,2036 46206 PUSH VPROJ
023793,000115: 36,2037 03646 E2
023794,000116: 36,2040 51352 VSL2 BVSU # RPA
023795,000117: 36,2041 50256 UNIT DOT
023796,000118: 36,2042 00001 0D
023797,000119: 36,2043 65552 SL1 ACOS
023798,000120: 36,2044 77715 PDVL
023799,000121: 36,2045 50235 VXV DOT
|
|
Page 553
|
023801,000123: 36,2046 03540 RACT3
023802,000124: 36,2047 03646 E2
023803,000125: 36,2050 75325 PDDL SIGN
023804,000126: 36,2051 77626 STADR
023805,000127: 36,2052 61160 STODL THETZERO # CENTRAL ANGLE
023806,000128: 36,2053 00047 X1
023807,000129: 36,2054 37746 STCALL XRS # SAVE INDICES FOR FURTHER USE
023808,000130: 36,2055 01340 NORMEX # += ACTIVE AHEAD -= ACTIVE BEHIND
023809,000131: 36,2056 77220 S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS
023810,000132: 36,2057 03657 QTEMP
023811,000133: 36,2060 03540 RACT3
023812,000134: 36,2061 50256 UNIT DOT
023813,000135: 36,2062 03646 E2
023814,000136: 36,2063 75446 ABS SQRT
023815,000137: 36,2064 43352 SL1 DAD
023816,000138: 36,2065 33154 DP-.002 # ADD .002 RADIANS TO IT
023817,000139: 36,2066 57414 BON DCOMP # GIVES CORRECT SINE, COSINE MUST BE
023818,000140: 36,2067 00316 KFLAG # COMP. ADD .5 FOR ANGLE
023819,000141: 36,2070 74071 +1
023820,000142: # PHI(0)=180-(-(THETAZERO +K5IT)), PHI(I)=180-(-(THETAZERO+K2IT))
023821,000143: # SIN(180-ALPHA)=SIN(ALPHA) ETC
023822,000144: 36,2071 40205 DMP SETPD
023823,000145: 36,2072 33140 PIINVERS # REVOLUTIONARY HERES TWO IT
023824,000146: 36,2073 00001 0D
023825,000147: 36,2074 45206 PUSH DSU
023826,000148: 36,2075 02617 THETZERO
023827,000149: 36,2076 02611 STORE IT # PHI(I) , -(THETZERO + K2IT)
023828,000150: 36,2077 41525 PDDL PUSH
023829,000151: 36,2100 43342 SR1 DAD
023830,000152: 36,2101 41415 DAD PUSH # PHI(0) , -(THETZERO + K5IT)
023831,000153: 36,2102 43156 SIN SET
023832,000154: 36,2103 03466 RVSW
023833,000155: 36,2104 16732 STODL SNTH
023834,000156: 36,2105 50146 COS BMN
023835,000157: 36,2106 74110 +2
023836,000158: 36,2107 77676 DCOMP
023837,000159: 36,2110 16734 STODL CSTH
023838,000160: 36,2111 03746 XRS
023839,000161: 36,2112 24047 STOVL X1
023840,000162: 36,2113 03554 RPASS3
023841,000163: 36,2114 77657 VSR*
023842,000164: 36,2115 57176 0,2
023843,000165: 36,2116 26657 STOVL RVEC
023844,000166: 36,2117 03562 VPASS3
023845,000167: 36,2120 77657 VSR*
023846,000168: 36,2121 57176 0,2
023847,000169: 36,2122 36746 STCALL VVEC
023848,000170: 36,2123 24744 TIMETHET
023849,000171: 36,2124 77745 DLOAD # SAVE START TIME AND GET END TIME
023850,000172: 36,2125 00037 T
|
|
Page 554
|
023852,000174: 36,2126 03752 STORE TF
023853,000175: 36,2127 16627 STODL TFO
023854,000176: 36,2130 02611 IT
023855,000177: 36,2131 73406 PUSH SIN
023856,000178: 36,2132 16732 STODL SNTH
023857,000179: 36,2133 50146 COS BMN
023858,000180: 36,2134 74136 +2
023859,000181: 36,2135 77676 DCOMP
023860,000182: 36,2136 02734 STORE CSTH
023861,000183: 36,2137 45150 LXA,1 CALL
023862,000184: 36,2140 03745 XRS
023863,000185: 36,2141 24744 TIMETHET
023864,000186: # INITIALIZE LOOP
023865,000187: 36,2142 43145 DLOAD CLEAR
023866,000188: 36,2143 00037 T
023867,000189: 36,2144 03661 ITSWICH
023868,000190: 36,2145 16621 STODL TFI # SAVE TIME FOR LOOP TEST
023869,000191: 36,2146 15343 DPPOSMAX
023870,000192: 36,2147 16623 STODL DELVEE
023871,000193: 36,2150 33146 MANYFEET
023872,000194: 36,2151 16625 STODL HP
023873,000195: 36,2152 33142 SEC1THET # 70 DEGREES
023874,000196: 36,2153 71214 BON DLOAD
023875,000197: 36,2154 00316 KFLAG
023876,000198: 36,2155 74157 +2
023877,000199: 36,2156 33144 SEC2THET # 330 DEGREES
023878,000200: 36,2157 37750 STCALL THETL
023879,000201: 36,2160 74202 CONCAUL
023880,000202: 36,2161 70545 BIS DLOAD SR1
023881,000203: 36,2162 02734 CSTH
023882,000204: 36,2163 14021 STODL COSTH
023883,000205: 36,2164 02732 SNTH
023884,000206: 36,2165 77742 SR1
023885,000207: 36,2166 34023 STCALL SINTH # GET 4 QUADRANT THETA
023886,000208: 36,2167 47256 ARCTRIG
023887,000209: 36,2170 43244 BPL DAD
023888,000210: 36,2171 74173 +2
023889,000211: 36,2172 15343 DPPOSMAX # PUT THETA BETWEEN 0,1
023890,000212: 36,2173 65221 BDSU PDDL
023891,000213: 36,2174 03750 THETL
023892,000214: 36,2175 03752 TF
023893,000215: 36,2176 75225 DSU SIGN # FAST TIMES
023894,000216: 36,2177 02621 TFI
023895,000217: 36,2200 77640 BMN
023896,000218: 36,2201 74404 RNGETEST # TIME MUST HAVE A STOP
023897,000219: # ADVANCE PASSIVE FOR TARGET VECTOR
023898,000220: 36,2202 77745 CONCAUL DLOAD
023899,000221: 36,2203 03663 TTPI
023900,000222: 36,2204 43015 DAD BON
023901,000223: 36,2205 03752 TF
|
|
Page 555
|
023903,000225: 36,2206 01312 AVFLAG
023904,000226: 36,2207 74214 ADVCSM
023905,000227: 36,2210 34041 STCALL TDEC1
023906,000228: 36,2211 27126 LEMCONIC
023907,000229: 36,2212 77650 GOTO
023908,000230: 36,2213 74216 JUNCT3
023909,000231: 36,2214 34041 ADVCSM STCALL TDEC1
023910,000232: 36,2215 27114 CSMCONIC
023911,000233: # SAVE BACK VALUES OF HP AND DELVEE
023912,000234: 36,2216 77775 JUNCT3 VLOAD
023913,000235: 36,2217 00007 VATT
023914,000236: 36,2220 27640 STOVL VPASS4
023915,000237: 36,2221 00001 RATT
023916,000238: 36,2222 03632 STORE RPASS4
023917,000239: 36,2223 17415 STODL RTARG
023918,000240: 36,2224 03752 TF
023919,000241: 36,2225 17423 STODL DELLT4
023920,000242: 36,2226 02625 HP
023921,000243: 36,2227 16631 STODL HPO
023922,000244: 36,2230 02623 DELVEE
023923,000245: 36,2231 16633 STODL DELVEO
023924,000246: # PREPARE FOR LAMBERT
023925,000247: 36,2232 03663 TTPI
023926,000248: 36,2233 17503 STODL INTIME
023927,000249: 36,2234 03746 XRS
023928,000250: 36,2235 17746 STODL RTX1
023929,000251: 36,2236 15335 HI6ZEROS
023930,000252: 36,2237 65201 SETPD PDDL
023931,000253: 36,2240 00001 0D
023932,000254: 36,2241 33126 EPSFOUR
023933,000255: 36,2242 77715 PDVL
023934,000256: 36,2243 03540 RACT3
023935,000257: 36,2244 27570 STOVL RINIT
023936,000258: 36,2245 03546 VACT3
023937,000259: 36,2246 37576 STCALL VINIT
023938,000260: 36,2247 22000 INITVEL
023939,000261: # COMPUTE H ET CETERA
023940,000262: 36,2250 52375 VLOAD VSU
023941,000263: 36,2251 03620 VTPRIME
023942,000264: 36,2252 03640 VPASS4
023943,000265: 36,2253 41446 ABVAL PUSH
023944,000266: 36,2254 26637 STOVL RELDELV # /V2-VP(TPI+TF)/
023945,000267: 36,2255 03646 DELVEET3 # V1-VA
023946,000268: 36,2256 77646 ABVAL # /V1-VA/
023947,000269: 36,2257 02635 STORE MAGVTPI
023948,000270: 36,2260 45415 DAD STADR
023949,000271: 36,2261 61154 STODL DELVEE
023950,000272: 36,2262 03746 XRS
023951,000273: 36,2263 24047 STOVL X1
023952,000274: 36,2264 03612 VIPRIME
|
|
Page 556
|
023954,000276: 36,2265 77657 VSR*
023955,000277: 36,2266 57176 0,2
023956,000278: 36,2267 26746 STOVL VVEC
023957,000279: 36,2270 03540 RACT3
023958,000280: 36,2271 77657 VSR*
023959,000281: 36,2272 57176 0,2
023960,000282: 36,2273 36657 STCALL RVEC
023961,000283: 36,2274 45163 PERIAPO
023962,000284: 36,2275 71354 LXA,2 DLOAD
023963,000285: 36,2276 03746 XRS +1
023964,000286: 36,2277 77657 SL*
023965,000287: 36,2300 57576 0,2
023966,000288: 36,2301 02625 STORE HP
023967,000289: # ITSWICH DENOTES INTERPOLATION -- SOLUTION ACCEPTANCE IS FORCED
023968,000290: 36,2302 71214 BON DLOAD
023969,000291: 36,2303 03701 ITSWICH
023970,000292: 36,2304 74415 ENDEN
023971,000293: 36,2305 02321 HPERMIN
023972,000294: 36,2306 50025 DSU BMN
023973,000295: 36,2307 02625 HP
023974,000296: 36,2310 74353 HALFSAFE
023975,000297: 36,2311 45325 PDDL DSU # WAS PERICENTER ALT SAFE
023976,000298: 36,2312 02321 HPERMIN
023977,000299: 36,2313 02631 HPO
023978,000300: 36,2314 45240 BMN DSU # (HPLIM-HPO)-(HPLIM-HP)=HP-HPO
023979,000301: 36,2315 74332 INTERP # SOLUTION AT HAND
023980,000302: 36,2316 71240 BMN DLOAD
023981,000303: 36,2317 73260 ALARUMS # ITS GETTING WORSE - SOUND THE ALARM
023982,000304: 36,2320 33134 CDSEC
023983,000305: 36,2321 57414 JUNCT1 BOFF DCOMP # OFF IS PLUS ON IS MINUS
023984,000306: 36,2322 00356 KFLAG
023985,000307: 36,2323 74324 +1
023986,000308: 36,2324 03744 STORE DELTEE
023987,000309: 36,2325 43345 JUNCT2 DLOAD DAD
023988,000310: 36,2326 03744 DELTEE
023989,000311: 36,2327 03752 TF
023990,000312: 36,2330 37752 STCALL TF
023991,000313: 36,2331 74161 BIS # RECYCLE
023992,000314: 36,2332 45214 INTERP SET DSU # HP-HPO
023993,000315: 36,2333 03461 ITSWICH
023994,000316: 36,2334 65301 NORM PDDL
023995,000317: 36,2335 00047 X1
023996,000318: 36,2336 33152 DFTMOON
023997,000319: 36,2337 45215 DAD DSU
023998,000320: 36,2340 02321 HPERMIN
023999,000321: 36,2341 02625 HP
024000,000322: 36,2342 70501 NORM SR1
024001,000323: 36,2343 00050 X2
024002,000324: 36,2344 56264 XSU,2 DDV
024003,000325: 36,2345 00046 X1
|
|
Page 557
|
024005,000327: 36,2346 53605 DMP SR*
024006,000328: 36,2347 03744 DELTEE
024007,000329: 36,2350 57177 0 -1,2
024008,000330: 36,2351 37744 STCALL DELTEE
024009,000331: 36,2352 74325 JUNCT2
024010,000332: 36,2353 45325 HALFSAFE PDDL DSU # SAVE HP-HPLIM FOR POSSIBLE
024011,000333: 36,2354 02623 DELVEE
024012,000334: 36,2355 02633 DELVEO # SAVE THIS TOO
024013,000335: 36,2356 51406 PUSH ABS
024014,000336: 36,2357 50025 DSU BMN
024015,000337: 36,2360 33150 LIMVEL # 2 FT PS
024016,000338: 36,2361 74415 ENDEN
024017,000339: 36,2362 45345 DLOAD DSU
024018,000340: 36,2363 02321 HPERMIN
024019,000341: 36,2364 02631 HPO
024020,000342: 36,2365 77725 PDDL
024021,000343: 36,2366 71240 BMN DLOAD
024022,000344: 36,2367 74376 LRGRDVO
024023,000345: 36,2370 71244 BPL DLOAD
024024,000346: 36,2371 74332 INTERP
024025,000347: 36,2372 03744 DELTEE
024026,000348: 36,2373 57542 SR1 DCOMP
024027,000349: 36,2374 37744 STCALL DELTEE
024028,000350: 36,2375 74325 JUNCT2
024029,000351: 36,2376 77745 LRGRDVO DLOAD
024030,000352: 36,2377 71240 BMN DLOAD
024031,000353: 36,2400 74325 JUNCT2
024032,000354: 36,2401 33136 CLSEC
024033,000355: 36,2402 77650 GOTO
024034,000356: 36,2403 74321 JUNCT1
024035,000357: # TIME RAN OUT ASSUME SOLUTION IF SAFE PERICENTER
024036,000358: 36,2404 45345 RNGETEST DLOAD DSU
024037,000359: 36,2405 02625 HP
024038,000360: 36,2406 02321 HPERMIN
024039,000361: 36,2407 71240 BMN DLOAD
024040,000362: 36,2410 73260 ALARUMS
024041,000363: 36,2411 03752 TF
024042,000364: 36,2412 77625 DSU
024043,000365: 36,2413 03744 DELTEE
024044,000366: 36,2414 03752 STORE TF # TIME OF SOLUTION
024045,000367: 36,2415 77775 ENDEN VLOAD
024046,000368: 36,2416 03620 VTPRIME
024047,000369: 36,2417 65241 DOT PDDL # SG2 WITH MAGNITUDE
024048,000370: 36,2420 03632 RPASS4
024049,000371: 36,2421 02637 RELDELV
024050,000372: 36,2422 45565 SIGN STADR # NOW SIGN(RELDELV)=SIGN(SG2)
024051,000373: 36,2423 41140 STCALL RELDELV
024052,000374: 36,2424 16441 TRANSANG # COMPUTE OMEGA T, CENTRAL ANGLE
024053,000375: 36,2425 50375 VLOAD DOT
024054,000376: 36,2426 03540 RACT3
|
|
Page 558
|
024056,000378: 36,2427 03612 VIPRIME # SG1
024057,000379: 36,2430 51165 SIGN BPL # IF POSITIVE THEN SG1 = SG2 OTHERWISE
024058,000380: 36,2431 02637 RELDELV
024059,000381: 36,2432 74442 USEKAY # SIGN(SG2-SG1)=SIGN(SG2)=SIGN(RELDELV)
024060,000382: 36,2433 57535 SLOAD DCOMP
024061,000383: 36,2434 33123 DECTWO
024062,000384: 36,2435 51165 SIGN BPL
024063,000385: 36,2436 02637 RELDELV
024064,000386: 36,2437 74450 NEXUS
024065,000387: 36,2440 52076 DCOMP GOTO
024066,000388: 36,2441 74446 USEKAY +4
024067,000389: 36,2442 43135 USEKAY SLOAD BON
024068,000390: 36,2443 33123 DECTWO
024069,000391: 36,2444 00316 KFLAG
024070,000392: 36,2445 74450 NEXUS
024071,000393: 36,2446 77625 DSU
024072,000394: 36,2447 36147 P21ONENN
024073,000395: 36,2450 17766 NEXUS STODL NN1
024074,000396: 36,2451 02625 HP
024075,000397: 36,2452 36641 STCALL POSTTPI
024076,000398: 36,2453 03657 QTEMP
024077,000399: 07,2441 BANK 07
024078,000400: 07,2000 SETLOC XANG
024079,000401: 07,2000 BANK
024080,000402: 07,2441 COUNT 07/XANG
024081,000403:
024082,000404: # CENTRAL ANGLE SUBROUTINE
024083,000405:
024084,000406: # THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
024085,000407: # PASSIVE VEHICLE DURING THE TRANSFER.
024086,000408:
024087,000409: 07,2441 40220 TRANSANG STQ SETPD
024088,000410: 07,2442 02370 SUBEXIT
024089,000411: 07,2443 00001 0
024090,000412: 07,2444 73150 LXA,1 LXA,2
024091,000413: 07,2445 03745 XRS
024092,000414: 07,2446 03746 XRS +1
024093,000415: 07,2447 53775 VLOAD VSR*
024094,000416: 07,2450 03640 VPASS4
024095,000417: 07,2451 57176 0,2
024096,000418: 07,2452 22746 STODL* VVEC
024097,000419: 07,2453 11737 MUTABLE +2,1
024098,000420: 07,2454 53715 PDVL VSR* # SQRT MU (+18 OR +15) 00D
024099,000421: 07,2455 03632 RPASS4
024100,000422: 07,2456 57176 0,2
024101,000423: 07,2457 64646 ABVAL PDDL* # MAGNITUDE OF R (+29 OR +27) 02D
024102,000424: 07,2460 11735 MUTABLE,1
024103,000425: 07,2461 47515 PDVL VSQ # 1/MU (+34 OR +28) 04D
024104,000426: 07,2462 02746 VVEC
024105,000427: 07,2463 57301 NORM DMPR # PUSH LIST AT 02D
024106,000428: 07,2464 00047 X1
|
|
Page 559
|
024108,000430: 07,2465 53605 DMP SRR*
024109,000431: 07,2466 00003 02D
024110,000432: 07,2467 21576 0 -3,1
024111,000433: 07,2470 77621 BDSU # R V**/MU (+6)
024112,000434: 07,2471 11613 D1/32
024113,000435: 07,2472 65301 NORM PDDL
024114,000436: 07,2473 00047 X1 # (2 - R V**/MU) (+6-N)
024115,000437: 07,2474 56362 SR1R DDV # MAGNITUDE OF R (+30 OR +28)
024116,000438: 07,2475 41457 SL* PUSH # R/(2 - R V**/MU) (+29 OR +27) 02D
024117,000439: 07,2476 20174 0 -5,1
024118,000440: 07,2477 75542 SR1 SQRT
024119,000441: 07,2500 77605 DMP
024120,000442: 07,2501 65301 NORM PDDL # ASUBP*** 00D
024121,000443: 07,2502 00047 X1
024122,000444: 07,2503 56342 SR1 DDV
024123,000445: 07,2504 53605 DMP SL*
024124,000446: 07,2505 03752 TF
024125,000447: 07,2506 20201 0,1
024126,000448: 07,2507 60325 PDDL NORM
024127,000449: 07,2510 11625 2PISC
024128,000450: 07,2511 00047 X1
024129,000451: 07,2512 56325 PDDL DDV
024130,000452: 07,2513 77657 SL*
024131,000453: 07,2514 20176 0 -3,1 # CENTANG = (SQRT(MU/ASUP***)TF)
024132,000454: 07,2515 37754 STCALL CENTANG # IN REVOLUTIONS B-0
024133,000455: 07,2516 02370 SUBEXIT
024134,000456: 35,3155 BANK 35
024135,000457: 35,2000 SETLOC P17S1
024136,000458: 35,2000 BANK
024137,000459: 35,3155 COUNT 35/P17
024138,000460:
024139,000461: # TPI SEARCH DISPLAY ROUTINE
024140,000462:
024141,000463: 35,3155 04627 P17 TC AVFLAGA # AVFLAG = CSM, SET TRACK + UPDATE FLAGS
024142,000464: 35,3156 03160 TC P17.1
024143,000465: 35,3157 04642 P77 TC AVFLAGP # AVFLAG = LEM, SET TRACK + UPDATE FLAGS
024144,000466: 35,3160 04647 P17.1 TC P20FLGON # SET UPDATE FLAG
024145,000467: 35,3161 34614 CAF V06N37 # DISPLAY TTPI TIME
024146,000468: 35,3162 04575 TC VNPOOH
024147,000469: 35,3163 06006 TC INTPRET
024148,000470: 35,3164 45014 CLEAR CALL
024149,000471: 35,3165 00670 UPDATFLG
024150,000472: 35,3166 74000 S17.1 # UPDATE STATE VECTORS TO TTPI
024151,000473: 35,3167 76014 SET AXT,1
024152,000474: 35,3170 00470 UPDATFLG
024153,000475: 35,3171 00002 DEC 2 B-14 # DELTA H = 2 K POSITIVE, KFLAG OFF
024154,000476: 35,3172 76014 BOFF AXT,1
024155,000477: 35,3173 00356 KFLAG
024156,000478: 35,3174 73176 +2
024157,000479: 35,3175 00001 DEC 1 B-14 # DELTA H = 1 K NEGATIVE, KFLAG ON
|
|
Page 560
|
024159,000481: 35,3176 77530 SXA,1 EXIT
024160,000482: 35,3177 01132 OPTION2
024161,000483: 35,3200 33267 CAF V06N72 # DISPLAY PHI, DELTA H, SEARCH OPTION K
024162,000484: 35,3201 03243 TC VNCOMP17
024163,000485: 35,3202 06006 TC INTPRET
024164,000486: 35,3203 43014 CLEAR SET
024165,000487: 35,3204 00670 UPDATFLG
024166,000488: 35,3205 00076 KFLAG
024167,000489: 35,3206 45335 SLOAD DSU
024168,000490: 35,3207 01133 OPTION2 # RESET KFLAG ON FOR OPTION =1
024169,000491: 35,3210 36147 P21ONENN # OFF FOR OPTION =2
024170,000492: 35,3211 43030 BHIZ CLEAR
024171,000493: 35,3212 73214 +2
024172,000494: 35,3213 00276 KFLAG
024173,000495: 35,3214 46135 SLOAD BHIZ
024174,000496: 35,3215 03747 XRS +1
024175,000497: 35,3216 73222 +4
024176,000498: 35,3217 52145 DLOAD GOTO
024177,000499: 35,3220 33132 HPL
024178,000500: 35,3221 73224 P17.2
024179,000501: 35,3222 77745 DLOAD
024180,000502: 35,3223 33130 HPE
024181,000503: 35,3224 36321 P17.2 STCALL HPERMIN
024182,000504: 35,3225 74056 S17.2
024183,000505: 35,3226 77414 SET EXIT
024184,000506: 35,3227 00470 UPDATFLG
024185,000507: 35,3230 34616 P17.3 CAF V06N58 # DISPLAY DELTA VTPI, DELTA VTPF, AND H
024186,000508: 35,3231 03243 TC VNCOMP17
024187,000509: 35,3232 34615 CAF V06N55 # DISPLAY PERICENTER CODE AND CENTRAL ANG,
024188,000510: 35,3233 04662 TC BANKCALL
024189,000511: 35,3234 21057 CADR GOFLASHR
024190,000512: 35,3235 04106 TC GOTOPOOH # TERMINATE PROGRAM
024191,000513: 35,3236 04106 TC GOTOPOOH # END PROGRAM
024192,000514: 35,3237 03160 TC P17.1 # RECYCLE WITH NEW TTPI OR SEARCH OPTION
024193,000515: 35,3240 35016 CAF TWO # BLANK R2
024194,000516: 35,3241 05526 TC BLANKET
024195,000517: 35,3242 15217 TCF ENDOFJOB
024196,000518: 35,3243 E4,1767 EBANK= RTRN
024197,000519:
024198,000520: 35,3243 00006 VNCOMP17 EXTEND
024199,000521: 35,3244 23766 QXCH QSAVED
024200,000522: 35,3245 55765 TS VERBNOUN
024201,000523: 35,3246 31765 CA VERBNOUN
024202,000524: 35,3247 04662 TCR BANKCALL
024203,000525: 35,3250 20720 CADR GOFLASH
024204,000526: 35,3251 03246 TC -3 # TERMINATE ILLEGAL REDISPLAY
024205,000527: 35,3252 01766 TC QSAVED # PROCEED
024206,000528: 35,3253 40154 CS MPAC # RECYCLE WITH NEW TPI TIME
024207,000529: 35,3254 65012 AD BIT6 # OR PROCEED WITH NEW SEARCH OPTION
024208,000530: 35,3255 00006 EXTEND
|
|
Page 561
|
024210,000532: 35,3256 13160 BZF P17.1
024211,000533: 35,3257 03246 TC VNCOMP17 +3
024212,000534: 35,3260 77414 ALARUMS SET EXIT
024213,000535: 35,3261 00470 UPDATFLG
024214,000536: 35,3262 05650 TC ALARM
024215,000537: 35,3263 00124 OCT 00124 # NO SAFE PERCENTER IN THIS SECTOR
024216,000538: 35,3264 35050 CAF V05N09
024217,000539: 35,3265 03243 TC VNCOMP17
024218,000540: 35,3266 04106 TC GOTOPOOH # PROCEED ILLEGAL TERMINATE PROGRAM
024219,000541: 35,3267 01510 V06N72 VN 0672
024220,000542:
End of include-file TPI_SEARCH.agc. Parent file is MAIN.agc