Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
033444,000002: ## Copyright: Public domain.
033445,000003: ## Filename: ASCENT_GUIDANCE.agc
033446,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
033447,000005: ## It is part of the reconstructed source code for the Lunar
033448,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
033449,000007: ## No original listings of this program are available;
033450,000008: ## instead, this file was created via disassembly of dumps
033451,000009: ## of various revisions of Sundance core rope modules.
033452,000010: ## Assembler: yaYUL
033453,000011: ## Contact: Ron Burkey <info@sandroid.org>.
033454,000012: ## Website: www.ibiblio.org/apollo/index.html
033455,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
033456,000014:
033457,000015: ## Sundance 292
033458,000016:
033459,000017: 30,2213 BANK 30
033460,000018: 30,2000 SETLOC ASENT
033461,000019: 30,2000 BANK
033462,000020: 30,2213 COUNT* $$/ASENT
033463,000021:
033464,000022: 30,2213 E7,1472 EBANK= DVCNTR
033465,000023:
033466,000024: 30,2213 06014 ATMAG TC INTPRET
033467,000025: 30,2214 43001 SETPD BON
033468,000026: 30,2215 00001 0
033469,000027: 30,2216 04705 FLRCS
033470,000028: 30,2217 60266 ASCENT
033471,000029: 30,2220 71214 BOFF DLOAD
033472,000030: 30,2221 02750 ENGONFLG
033473,000031: 30,2222 60730 ASCTERM2
033474,000032: 30,2223 03471 ABDVCONV
033475,000033: 30,2224 50025 DSU BMN
033476,000034: 30,2225 21212 MINABDV
033477,000035: 30,2226 60713 ASCTERM1
033478,000036: 30,2227 67214 CLEAR SLOAD
033479,000037: 30,2230 04267 SURFFLAG
033480,000038: 30,2231 21174 BIT4H
033481,000039: 30,2232 77471 DDV EXIT
033482,000040: 30,2233 03471 ABDVCONV
033483,000041: 30,2234 52155 DXCH MPAC
033484,000042: 30,2235 53650 DXCH 1/DV3
033485,000043: 30,2236 53646 DXCH 1/DV2
033486,000044: 30,2237 53644 DXCH 1/DV1
033487,000045: 30,2240 52155 DXCH MPAC
033488,000046: 30,2241 05413 TC PHASCHNG
033489,000047: 30,2242 10035 OCT 10035
033490,000048: 30,2243 06014 TC INTPRET
033491,000049: 30,2244 77615 DAD
033492,000050: 30,2245 03644 1/DV1
033493,000051: 30,2246 43215 DAD DAD
033494,000052: 30,2247 03646 1/DV2
033495,000053: 30,2250 03650 1/DV3
033496,000054: 30,2251 41205 DMP DMP
033497,000055: 30,2252 03636 VE
033498,000056: 30,2253 21175 2SEC(9)
033499,000057: 30,2254 65252 SL3 PDDL
033500,000058: 30,2255 03642 TBUP
033501,000059: 30,2256 43342 SR1 DAD
033502,000060: 30,2257 77625 DSU
033503,000061: 30,2260 21170 6SEC(18)
033504,000062:
033505,000063: 30,2261 17642 STODL TBUP
033506,000064: 30,2262 03636 VE
033507,000065: 30,2263 56342 SR1 DDV
033508,000066: 30,2264 03642 TBUP
033509,000067: 30,2265 03634 STORE AT
033510,000068:
033511,000069: 30,2266 51575 ASCENT VLOAD ABVAL
033512,000070: 30,2267 03476 R
033513,000071: 30,2270 27660 STOVL /R/MAG
033514,000072: 30,2271 03524 UNIT/R/ # UR*2(-1)
033515,000073: 30,2272 53435 VXV UNIT
033516,000074: 30,2273 03652 QAXIS
033517,000075: 30,2274 03670 STORE ZAXIS1
033518,000076: 30,2275 72441 DOT SL1
033519,000077: 30,2276 03504 V # Z.V = ZDOT*2(-8).
033520,000078: 30,2277 27702 STOVL ZDOT # ZDOT*2(-7)
033521,000079: 30,2300 03670 ZAXIS1
033522,000080: 30,2301 76435 VXV VSL1
033523,000081: 30,2302 03524 UNIT/R/ # Z X UR = LAXIS*2(-2)
033524,000082: 30,2303 03662 STORE LAXIS # LAXIS*2(-1)
033525,000083: 30,2304 72441 DOT SL1
033526,000084: 30,2305 03504 V # L.V = YDOT*2(-8).
033527,000085: 30,2306 27700 STOVL YDOT # YDOT * 2(-7)
033528,000086: 30,2307 03524 UNIT/R/
033529,000087: 30,2310 72441 DOT SL1
033530,000088: 30,2311 03504 V
033531,000089: 30,2312 37676 STCALL RDOT # RDOT*2(-7)
033532,000090: 30,2313 61101 YCOMP
033533,000091: 30,2314 77775 VLOAD
033534,000092: 30,2315 03550 GDT1/2 # LOAD GDT1/2*2(-7) M/CS.
033535,000093: 30,2316 50341 V/SC DOT
033536,000094: 30,2317 27234 2SEC(18)
033537,000095: 30,2320 03524 UNIT/R/ # G.UR*2(9) = GR*2(9).
033538,000096: 30,2321 47315 PDVL VXV # STORE IN PDL(0) (2)
033539,000097: 30,2322 03524 UNIT/R/ # LOAD UNIT/R/ *2(-1).
033540,000098: 30,2323 03504 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
033541,000099: 30,2324 56236 VSQ DDV # H(2)/R(2)*2(-16).
033542,000100: 30,2325 03660 /R/MAG # H(2)/R(3)*2(9).
033543,000101: 30,2326 43352 SL1 DAD
033544,000102: 30,2327 77626 STADR
033545,000103: 30,2330 60073 STODL GEFF # GEFF*2(10)M/CS/CS.
033546,000104: 30,2331 03626 ZDOTD
033547,000105: 30,2332 77625 DSU
033548,000106: 30,2333 03702 ZDOT
033549,000107: 30,2334 03714 STORE DZDOT # DZDOT = (ZDOTD - ZDOT) * 2(7)M/CS.
033550,000108: 30,2335 65361 VXSC PDDL
033551,000109: 30,2336 03670 ZAXIS1
033552,000110:
033553,000111: 30,2337 03624 YDOTD
033554,000112: 30,2340 77625 DSU
033555,000113: 30,2341 03700 YDOT
033556,000114: 30,2342 03712 STORE DYDOT # DYDOT = (YDOTD - YDOT)*2(7)M/CS.
033557,000115: 30,2343 65361 VXSC PDDL
033558,000116: 30,2344 03662 LAXIS
033559,000117: 30,2345 03622 RDOTD
033560,000118: 30,2346 77625 DSU
033561,000119: 30,2347 03676 RDOT
033562,000120: 30,2350 03710 STORE DRDOT # DRDOT = (RDOTD - RDOT)*2(7)M/CS.
033563,000121: 30,2351 53361 VXSC VAD
033564,000122: 30,2352 03524 UNIT/R/
033565,000123: 30,2353 76455 VAD VSL1
033566,000124: 30,2354 77626 STADR
033567,000125: 30,2355 74032 STORE VGVECT # VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
033568,000126: 30,2356 77614 BON
033569,000127: 30,2357 04711 FLZONE0
033570,000128: 30,2360 65455 PREBRET1
033571,000129: 30,2361 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
033572,000130: 30,2362 02150 XNBPIP
033573,000131: 30,2363 03773 STORE VGBODY
033574,000132: 30,2364 71214 BON DLOAD
033575,000133: 30,2365 04705 FLRCS
033576,000134: 30,2366 60730 ASCTERM2
033577,000135: 30,2367 03474 TGO
033578,000136: 30,2370 77625 DSU
033579,000137: 30,2371 21162 2SEC(17)
033580,000138: 30,2372 03474 STORE TGO
033581,000139: 30,2373 74205 DMP VXSC # TGO GEFF
033582,000140: 30,2374 03704 GEFF
033583,000141: 30,2375 03524 UNIT/R/ # TGO GEFF UR
033584,000142: 30,2376 51372 VSL1 BVSU
033585,000143: 30,2377 03745 VGVECT # COMPENSATED FOR GEFF
033586,000144: 30,2400 56246 ABVAL DDV
033587,000145: 30,2401 03636 VE
033588,000146: 30,2402 41206 PUSH DMP # VG/VE IN PDL(0) (2)
033589,000147: 30,2403 21204 KT1
033590,000148: 30,2404 41221 BDSU DMP # 1-KT VG/VE
033591,000149: 30,2405 17722 NEARONE
033592,000150: 30,2406 45205 DMP DSU # TBUP VG(1-KT VG/VE)/VE (0)
033593,000151: 30,2407 03642 TBUP # = TGO
033594,000152: 30,2410 03640 TTO # COMPENSATE FOR TAILOFF
033595,000153: 30,2411 03474 STORE TGO
033596,000154: 30,2412 57461 SR DCOMP
033597,000155:
033598,000156: 30,2413 20614 11D
033599,000157: 30,2414 17427 STODL TTOGO # TGO*2(-28)CS
033600,000158: 30,2415 03474 TGO
033601,000159: 30,2416 43014 BON BON
033602,000160: 30,2417 04700 ENGOFFSW
033603,000161: 30,2420 60426 T2TEST
033604,000162: 30,2421 04710 FLIC
033605,000163: 30,2422 60426 T2TEST
033606,000164: 30,2423 50025 DSU BMN
033607,000165: 30,2424 21160 4SEC(17) # ( TGO - 4 )*2(-17)CS.
033608,000166: 30,2425 61001 ENGOFF
033609,000167: 30,2426 77745 T2TEST DLOAD
033610,000168: 30,2427 03474 TGO
033611,000169: 30,2430 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
033612,000170: 30,2431 21162 T2A
033613,000171: 30,2432 60563 CMPONENT
033614,000172: 30,2433 45345 DLOAD DSU
033615,000173: 30,2434 03642 TBUP
033616,000174: 30,2435 03474 TGO
033617,000175: 30,2436 45071 DDV CALL # 1-TGO/TBUP
033618,000176: 30,2437 03642 TBUP
033619,000177: 30,2440 61113 LOGSUB
033620,000178: 30,2441 41461 SL PUSH # -L IN PDL(0) (2)
033621,000179: 30,2442 20206 5
033622,000180: 30,2443 44265 BDDV BDSU # -TGO/L*2(-17)
033623,000181: 30,2444 03474 TGO
033624,000182: 30,2445 03642 TBUP # TBUP + TGO/L = D12*2(-17)
033625,000183: 30,2446 43006 PUSH BON # STORE IN PDL(2) (4)
033626,000184: 30,2447 04703 FLPC # IF FLPC = 1, GO TO CONST
033627,000185: 30,2450 60457 NORATES
033628,000186: 30,2451 45345 DLOAD DSU
033629,000187: 30,2452 03474 TGO
033630,000188: 30,2453 21164 T3
033631,000189: 30,2454 43044 BPL SET # FLPC=1
033632,000190: 30,2455 60465 RATES
033633,000191: 30,2456 04463 FLPC
033634,000192: 30,2457 77745 NORATES DLOAD
033635,000193: 30,2460 06233 HI6ZEROS
033636,000194: 30,2461 03722 STORE PRATE # B = 0
033637,000195: 30,2462 03724 STORE YRATE # D = 0
033638,000196: 30,2463 77650 GOTO
033639,000197: 30,2464 60543 CONST # GO TO CONST
033640,000198: 30,2465 45345 RATES DLOAD DSU
033641,000199: 30,2466 03474 TGO
033642,000200: 30,2467 00003 02D # TGO - D12 = D21*2(-17)
033643,000201: 30,2470 72406 PUSH SL1 # IN PDL(4) (6)
033644,000202: 30,2471 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
033645,000203: 30,2472 03474 TGO # (8)
033646,000204: 30,2473 41325 PDDL DMP # IN PDL(6)
033647,000205: 30,2474 03474 TGO
033648,000206: 30,2475 03676 RDOT # RDOT TGO * 2(-24)
033649,000207: 30,2476 45215 DAD DSU # R + RDOT TGO
033650,000208:
033651,000209: 30,2477 03660 /R/MAG # R + RDOT TGO - RCO
033652,000210: 30,2500 03616 RCO # MPAC = -DR*2(-24).
033653,000211: 30,2501 41325 PDDL DMP # -DR IN PDL(8) (10)
033654,000212: 30,2502 03710 DRDOT
033655,000213: 30,2503 00005 04D # D21 DRDOT*2(-24)
033656,000214: 30,2504 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
033657,000215: 30,2505 56271 DDV DDV
033658,000216: 30,2506 00007 06D # (D21 DRDOT-DR)/E*2(-9)
033659,000217: 30,2507 03474 TGO
033660,000218: 30,2510 03722 STORE PRATE # B * 2(8)
033661,000219: 30,2511 56202 CHKBMAG SR4 DDV # B*2(4)
033662,000220: 30,2512 03642 TBUP # (B / TAU) * 2(21)
033663,000221: 30,2513 50025 DSU BMN
033664,000222: 30,2514 21206 PRLIMIT # ( B/ TAU) * 2(21) MAX.
033665,000223: 30,2515 60524 PROK
033666,000224: 30,2516 41345 DLOAD DMP
033667,000225: 30,2517 21206 PRLIMIT
033668,000226: 30,2520 03642 TBUP # B MAX. * 2(4)
033669,000227: 30,2521 75212 SL4 SIGN # BMAX*2(8)
033670,000228: 30,2522 03722 PRATE
033671,000229: 30,2523 03722 STORE PRATE
033672,000230: 30,2524 77745 PROK DLOAD
033673,000231: 30,2525 03474 TGO
033674,000232: 30,2526 43205 DMP DAD # YDOT TGO
033675,000233: 30,2527 03700 YDOT
033676,000234: 30,2530 03706 Y # Y + YDOT TGO
033677,000235: 30,2531 65225 DSU PDDL # Y + YDOT TGO - YCO
033678,000236: 30,2532 03620 YCO # MPAC = - DY*2(-24.) IN PDL(8) (10)
033679,000237: 30,2533 03712 DYDOT
033680,000238: 30,2534 43205 DMP DAD # D21 DYDOT - DY (8)
033681,000239: 30,2535 00005 04D
033682,000240: 30,2536 56271 DDV DDV
033683,000241: 30,2537 03474 TGO # (D21 DYDOT - DY)/ E TGO*2(6) (6)
033684,000242: 30,2540 40312 SL2 SETPD # MPAC = D*2(8)
033685,000243: 30,2541 00005 04D # (4)
033686,000244: 30,2542 03724 STORE YRATE
033687,000245: 30,2543 41345 CONST DLOAD DMP # LOAD B*2(8)
033688,000246: 30,2544 03722 PRATE # B D12*2(-9)
033689,000247: 30,2545 00003 02D
033690,000248: 30,2546 56325 PDDL DDV # D12 B IN PDL(4) (6)
033691,000249: 30,2547 03710 DRDOT # LOAD DRDOT*2(-7)
033692,000250: 30,2550 00001 00D # -DRDOT/L*2(-7)
033693,000251: 30,2551 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
033694,000252: 30,2552 77626 STADR
033695,000253: 30,2553 60061 STODL PCONS
033696,000254: 30,2554 03724 YRATE # D*2(8)
033697,000255:
033698,000256: 30,2555 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
033699,000257: 30,2556 60465 BDDV SR2 # -DYDOT/L*2(-9)
033700,000258: 30,2557 03712 DYDOT
033701,000259: 30,2560 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
033702,000260: 30,2561 00001 00D
033703,000261: 30,2562 03720 STORE YCONS
033704,000262: 30,2563 71201 CMPONENT SETPD DLOAD
033705,000263: 30,2564 00001 00D
033706,000264: 30,2565 27234 100CS
033707,000265: 30,2566 77605 DMP
033708,000266: 30,2567 03722 PRATE # B(T-T0)*2(-9)
033709,000267: 30,2570 56215 DAD DDV # (A+B(T-T0))*2(-9)
033710,000268: 30,2571 03716 PCONS # (A+B(T-T0))/TBUP*2(8)
033711,000269: 30,2572 03642 TBUP
033712,000270: 30,2573 45352 SL1 DSU
033713,000271: 30,2574 03704 GEFF # ATR*2(9)
033714,000272: 30,2575 17734 STODL ATR
033715,000273: 30,2576 27234 100CS
033716,000274: 30,2577 43205 DMP DAD
033717,000275: 30,2600 03724 YRATE
033718,000276: 30,2601 03720 YCONS # (C+D(T-T0))*2(-9)
033719,000277: 30,2602 72471 DDV SL1
033720,000278: 30,2603 03642 TBUP
033721,000279: 30,2604 03732 STORE ATY # ATY*2(9)
033722,000280: 30,2605 65361 VXSC PDDL # ATY UY*2(8) (6)
033723,000281: 30,2606 03662 LAXIS
033724,000282: 30,2607 03734 ATR
033725,000283: 30,2610 53361 VXSC VAD # (0)
033726,000284: 30,2611 03524 UNIT/R/
033727,000285: 30,2612 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
033728,000286: 30,2613 65246 ABVAL PDDL # AH(2) IN PDL(34)
033729,000287: 30,2614 03634 AT # AHMAG IN PDL(6) (8)
033730,000288: 30,2615 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
033731,000289: 30,2616 00043 34D # =ATP2*2(18)
033732,000290: 30,2617 41525 PDDL PUSH # (12)
033733,000291: 30,2620 03634 AT
033734,000292: 30,2621 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
033735,000293: 30,2622 00043 34D # =ATP3*2(18)
033736,000294: 30,2623 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
033737,000295: 30,2624 60630 NO-ATP # LOAD ATP2, IF ATP3 POS
033738,000296: 30,2625 00011 8D
033739,000297: 30,2626 52166 SQRT GOTO # ATP*2(9)
033740,000298: 30,2627 60636 AIMER
033741,000299: 30,2630 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
033742,000300: 30,2631 00007 6D
033743,000301: 30,2632 77761 VXSC # KH AH*2(9)
033744,000302: 30,2633 00001 00D
033745,000303: 30,2634 14001 STODL 00D # STORE NEW AH IN PDL(0)
033746,000304:
033747,000305: 30,2635 06233 HI6ZEROS
033748,000306: 30,2636 77765 AIMER SIGN
033749,000307: 30,2637 03714 DZDOT
033750,000308: 30,2640 03736 STORE ATP
033751,000309: 30,2641 77761 VXSC
033752,000310: 30,2642 03670 ZAXIS1 # ATP ZAXIS *2(8).
033753,000311: 30,2643 53372 VSL1 VAD # AT*2(9)
033754,000312: 30,2644 00001 00D
033755,000313: 30,2645 77656 UNIT
033756,000314: 30,2646 03250 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
033757,000315: 30,2647 71201 SETPD DLOAD
033758,000316: 30,2650 00001 00D
033759,000317: 30,2651 03736 ATP # ATP(2)*2(18)
033760,000318: 30,2652 65316 DSQ PDDL
033761,000319: 30,2653 03732 ATY # ATY(2)*2(18)
033762,000320: 30,2654 43316 DSQ DAD
033763,000321: 30,2655 72566 SQRT SL1
033764,000322: 30,2656 67465 BDDV ARCSIN
033765,000323: 30,2657 03732 ATY
033766,000324: 30,2660 27740 STOVL YAW
033767,000325: 30,2661 03524 UNIT/R/
033768,000326: 30,2662 72441 DOT SL1
033769,000327: 30,2663 03250 UNFC/2
033770,000328: 30,2664 57526 ARCCOS DCOMP
033771,000329: 30,2665 03742 STORE PITCH
033772,000330: 30,2666 43014 BON BON
033773,000331: 30,2667 04704 FLPI
033774,000332: 30,2670 60171 P12RET
033775,000333: 30,2671 04710 FLIC
033776,000334: 30,2672 65321 ABORTIGN
033777,000335: 30,2673 77614 BON
033778,000336: 30,2674 04701 FLVR
033779,000337: 30,2675 60734 CHECKALT
033780,000338: 30,2676 57575 MAINLINE VLOAD VCOMP
033781,000339: 30,2677 03524 UNIT/R/
033782,000340: 30,2700 17256 STODL UNWC/2
033783,000341: 30,2701 03753 TXO
033784,000342: 30,2702 51025 DSU BPL
033785,000343: 30,2703 01234 PIPTIME
033786,000344: 30,2704 60707 ASCTERM
033787,000345: 30,2705 77634 RTB
033788,000346: 30,2706 61076 CLRXFLAG # ALLOW X-AXIS OVERRIDE
033789,000347: 30,2707 45014 ASCTERM BON CALL
033790,000348: 30,2710 04705 FLRCS
033791,000349: 30,2711 60730 ASCTERM2
033792,000350: 30,2712 61220 FINDCDUW -2
033793,000351: 30,2713 77776 ASCTERM1 EXIT
033794,000352: 30,2714 30105 ABRTDISP CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
033795,000353: 30,2715 75015 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
033796,000354: 30,2716 10000 CCS A # MODE OF OPERATION
033797,000355: 30,2717 12731 TCF ASCTERM3
033798,000356: 30,2720 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
033799,000357: 30,2721 75015 MASK FLUNDBIT # INDICATED.
033800,000358: 30,2722 10000 CCS A
033801,000359:
033802,000360: 30,2723 12731 TCF ASCTERM3
033803,000361: 30,2724 33200 CAF V06N63*
033804,000362: 30,2725 04655 TC BANKCALL
033805,000363: 30,2726 20364 CADR GODSPR
033806,000364: 30,2727 12731 TCF ASCTERM3
033807,000365: 30,2730 77776 ASCTERM2 EXIT
033808,000366: 30,2731 05413 ASCTERM3 TC PHASCHNG
033809,000367: 30,2732 00035 OCT 00035
033810,000368: 30,2733 15225 TCF ENDOFJOB
033811,000369:
033812,000370: 30,2734 45345 CHECKALT DLOAD DSU
033813,000371: 30,2735 03660 /R/MAG
033814,000372: 30,2736 02023 /LAND/
033815,000373: 30,2737 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION.
033816,000374: 30,2740 26752 25KFT
033817,000375: 30,2741 60751 CHECKYAW
033818,000376: 30,2742 43345 DLOAD DAD
033819,000377: 30,2743 01234 PIPTIME
033820,000378: 30,2744 25623 10SECS
033821,000379: 30,2745 03753 STORE TXO
033822,000380: 30,2746 77614 EXITVR CLRGO
033823,000381: 30,2747 04621 FLVR
033824,000382: 30,2750 60676 MAINLINE
033825,000383:
033826,000384: 30,2751 77634 CHECKYAW RTB
033827,000385: 30,2752 61073 SETXFLAG # PROHIBIT X-AXIS OVERRIDE
033828,000386: 30,2753 74345 DLOAD VXSC
033829,000387: 30,2754 03732 ATY
033830,000388: 30,2755 03662 LAXIS
033831,000389: 30,2756 74325 PDDL VXSC
033832,000390: 30,2757 03736 ATP
033833,000391: 30,2760 03670 ZAXIS1
033834,000392: 30,2761 53455 VAD UNIT
033835,000393: 30,2762 50206 PUSH DOT
033836,000394: 30,2763 02156 YNBPIP
033837,000395: 30,2764 45246 ABS DSU
033838,000396: 30,2765 21210 SIN5DEG
033839,000397: 30,2766 71244 BPL DLOAD
033840,000398: 30,2767 60774 KEEPVR
033841,000399: 30,2770 03676 RDOT
033842,000400: 30,2771 51025 DSU BPL
033843,000401: 30,2772 21166 50FPS
033844,000402: 30,2773 60746 EXITVR
033845,000403:
033846,000404: 30,2774 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
033847,000405: 30,2775 50521 STOVL UNWC/2
033848,000406: 30,2776 03524 UNIT/R/
033849,000407: 30,2777 37250 STCALL UNFC/2
033850,000408: 30,3000 60707 ASCTERM
033851,000409:
033852,000410: 30,3001 45234 ENGOFF RTB DSU
033853,000411: 30,3002 21454 LOADTIME
033854,000412: 30,3003 01234 PIPTIME
033855,000413: 30,3004 57415 DAD DCOMP
033856,000414: 30,3005 03427 TTOGO
033857,000415: 30,3006 77776 EXIT
033858,000416: 30,3007 07231 TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
033859,000417: 30,3010 35066 CAF EBANK7
033860,000418: 30,3011 54003 TS EBANK
033861,000419: 30,3012 E7,1473 EBANK= TGO
033862,000420: 30,3012 00004 INHINT # USED AS A CONSTANT
033863,000421: 30,3013 10155 CCS MPAC +1
033864,000422: 30,3014 13017 TCF +3 # C(A) = DT - 1 BIT
033865,000423: 30,3015 13017 TCF +2 # C(A) = 0
033866,000424: 30,3016 35030 CAF ZERO # C(A) = 0
033867,000425: 30,3017 65026 AD BIT1 # C(A) = 1 BIT OR DT.
033868,000426: 30,3020 55743 TS ENGOFFDT
033869,000427: 30,3021 05243 TC TWIDDLE
033870,000428: 30,3022 03034 ADRES ENGOFF1
033871,000429: 30,3023 05413 TC PHASCHNG
033872,000430: 30,3024 47016 OCT 47016
033873,000431: 30,3025 76034 -GENADR ENGOFFDT
033874,000432: 30,3026 E7,1473 EBANK= TGO
033875,000433: 30,3026 03034 60067 2CADR ENGOFF1
033876,000434:
033877,000435: 30,3030 06014 TC INTPRET
033878,000436: 30,3031 52014 SET GOTO
033879,000437: 30,3032 04460 ENGOFFSW # DISABLE DELTA-V MONITOR
033880,000438: 30,3033 60426 T2TEST
033881,000439:
033882,000440: 30,3034 04737 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
033883,000441: 30,3035 75546 CADR ENGINOF1
033884,000442:
033885,000443: 30,3036 35101 CAF PRIO21 # SET UP A JOB FOR THE ASCENT GUIDANCE
033886,000444: 30,3037 05155 TC FINDVAC # POSTBURN LOGIC.
033887,000445: 30,3040 E7,1430 EBANK= WHICH
033888,000446: 30,3040 03050 60067 2CADR CUTOFF
033889,000447: 30,3042 05413 TC PHASCHNG
033890,000448: 30,3043 07026 OCT 07026
033891,000449: 30,3044 21000 OCT 21000
033892,000450: 30,3045 E7,1473 EBANK= TGO
033893,000451: 30,3045 03050 60067 2CADR CUTOFF
033894,000452: 30,3047 15321 TCF TASKOVER
033895,000453:
033896,000454: 30,3050 05563 CUTOFF TC UPFLAG # SET FLRCS FLAG.
033897,000455: 30,3051 00214 ADRES FLRCS
033898,000456:
033899,000457: 30,3052 33177 -5 CAF V16N63
033900,000458: 30,3053 04655 TC BANKCALL
033901,000459: 30,3054 20406 CADR GOFLASH
033902,000460: 30,3055 14106 TCF GOTOPOOH
033903,000461: 30,3056 13060 TCF CUTOFF1
033904,000462: 30,3057 13052 TCF -5
033905,000463:
033906,000464: 30,3060 00004 CUTOFF1 INHINT
033907,000465: 30,3061 04737 TC IBNKCALL
033908,000466: 30,3062 40221 CADR SETMINDB
033909,000467: 30,3063 05413 TC PHASCHNG
033910,000468: 30,3064 04026 OCT 04026
033911,000469:
033912,000470: 30,3065 33176 -5 CAF V16N85C
033913,000471: 30,3066 04655 TC BANKCALL
033914,000472: 30,3067 20406 CADR GOFLASH
033915,000473: 30,3070 14106 TCF GOTOPOOH
033916,000474: 30,3071 14106 TCF GOTOPOOH # PROCEED
033917,000475: 30,3072 13065 TCF -5
033918,000476:
033919,000477: 30,3073 05563 SETXFLAG TC UPFLAG
033920,000478: 30,3074 17140 CADR XOVINFLG
033921,000479: 30,3075 16035 TCF DANZIG
033922,000480:
033923,000481: 30,3076 05575 CLRXFLAG TC DOWNFLAG
033924,000482: 30,3077 17140 CADR XOVINFLG
033925,000483: 30,3100 16035 TCF DANZIG
033926,000484:
033927,000485: 30,3101 50375 YCOMP VLOAD DOT
033928,000486: 30,3102 03524 UNIT/R/
033929,000487: 30,3103 03652 QAXIS
033930,000488: 30,3104 67552 SL1 ARCSIN
033931,000489: 30,3105 41205 DMP DMP
033932,000490: 30,3106 03616 RCO
033933,000491: 30,3107 15361 2PI/8
033934,000492: 30,3110 77652 SL3
033935,000493: 30,3111 03706 STORE Y
033936,000494: 30,3112 77616 RVQ
033937,000495:
033938,000496: # THE LOGARITHM SUBROUTINE
033939,000497:
033940,000498: # INPUT ..... X IN MPAC
033941,000499: # OUTPUT ..... -LOG(X) IN MPAC
033942,000500:
033943,000501: 30,3113 44301 LOGSUB NORM BDSU
033944,000502: 30,3114 00163 MPAC +6
033945,000503: 30,3115 17722 NEARONE
033946,000504: 30,3116 77776 EXIT
033947,000505: 30,3117 07176 TC POLY
033948,000506: 30,3120 00006 DEC 6 B-14
033949,000507: 30,3121 00000 00002 2DEC .0000000060
033950,000508: 30,3123 76777 77175 2DEC -.0312514377
033951,000509: 30,3125 77400 75416 2DEC -.0155686771
033952,000510: 30,3127 77507 65515 2DEC -.0112502068
033953,000511: 30,3131 77741 63547 2DEC -.0018545108
033954,000512: 30,3133 77052 55373 2DEC -.0286607906
033955,000513: 30,3135 01167 30361 2DEC .0385598563
033956,000514: 30,3137 76520 75267 2DEC -.0419361902
033957,000515:
033958,000516: 30,3141 35030 CAF ZERO
033959,000517: 30,3142 54156 TS MPAC +2
033960,000518: 30,3143 00006 EXTEND
033961,000519: 30,3144 33172 DCA CLOG2/32
033962,000520: 30,3145 52155 DXCH MPAC
033963,000521: 30,3146 52132 DXCH BUF +1
033964,000522: 30,3147 30162 CA MPAC +6
033965,000523: 30,3150 07261 TC SHORTMP
033966,000524: 30,3151 52156 DXCH MPAC +1
033967,000525: 30,3152 52155 DXCH MPAC
033968,000526: 30,3153 52132 DXCH BUF +1
033969,000527: 30,3154 20155 DAS MPAC
033970,000528: 30,3155 06014 TC INTPRET
033971,000529: 30,3156 43476 DCOMP RVQ
033972,000530:
033973,000531: # ASCENT GUIDANCE CONSTANTS
033974,000532:
033975,000533: 30,3157 33,3233 100CS EQUALS 2SEC(18)
033976,000534: 30,3157 30,3161 T2A EQUALS 2SEC(17)
033977,000535: 30,3157 00062 00000 4SEC(17) 2DEC 400 B-17
033978,000536: 30,3161 00031 00000 2SEC(17) 2DEC 200 B-17
033979,000537: 30,3163 00175 00000 T3 2DEC 1000 B-17
033980,000538: 30,3165 00023 20166 50FPS 2DEC .1524 B-7 # 40 FT/SEC EXPRESSED IN M/CS.
033981,000539: 30,3167 00045 20000 6SEC(18) 2DEC 600 B-18
033982,000540: 30,3171 00542 34414 CLOG2/32 2DEC .0216608494
033983,000541: 30,3173 00010 BIT4H OCT 10
033984,000542: 30,3174 14400 00000 2SEC(9) 2DEC 200 B-9
033985,000543: 30,3176 04125 V16N85C VN 1685
033986,000544: 30,3177 04077 V16N63 VN 1663
033987,000545: 30,3200 01477 V06N63* VN 0663
033988,000546: 30,3201 01514 V06N76 VN 0676
033989,000547: 30,3202 01441 V06N33A VN 0633
033990,000548:
033991,000549: 30,3203 20000 00000 KT1 2DEC 0.5000
033992,000550: 30,3205 10000 00000 PRLIMIT 2DEC .25 # (B/TBUP)MIN=-.1FT.SEC(-3)
033993,000551: 30,3207 00545 00171 SIN5DEG 2DEC .08716 B-2
033994,000552: 30,3211 00040 00000 MINABDV 2DEC .0625 B-5 # 10 PERCENT BIGGER THAN GRAVITY
033995,000553:
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc