Source Code
036591,000001: # Copyright: Public domain.
036592,000002: # Filename: ASCENT_GUIDNCE.agc
036593,000003: # Purpose: Part of the source code for Luminary 1A build 099.
036594,000004: # It is part of the source code for the Lunar Module's (LM)
036595,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
036596,000006: # Assembler: yaYUL
036597,000007: # Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
036598,000008: # Website: www.ibiblio.org/apollo.
036599,000009: # Pages: 843-856
036600,000010: # Mod history: 2009-05-23 HG Transcribed from page images.
036601,000011: # 2009-06-05 RSB Fixed a couple of typos.
036602,000012: # 2009-06-07 RSB Corrected a typo.
036603,000013: # 2010-12-31 JL Fixed page number comment.
036604,000014:
036605,000015: # This source code has been transcribed or otherwise adapted from
036606,000016: # digitized images of a hardcopy from the MIT Museum. The digitization
036607,000017: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
036608,000018: # the Museum. Many thanks to both. The images (with suitable reduction
036609,000019: # in storage size and consequent reduction in image quality as well) are
036610,000020: # available online at www.ibiblio.org/apollo. If for some reason you
036611,000021: # find that the images are illegible, contact me at info@sandroid.org
036612,000022: # about getting access to the (much) higher-quality images which Paul
036613,000023: # actually created.
036614,000024:
036615,000025: # Notations on the hardcopy document read, in part:
036616,000026:
036617,000027: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
036618,000028: # 16:27 JULY 14, 1969
036619,000029:
036620,000030: # Page 843
036621,000031: 34,3642 BANK 34
036622,000032: 34,2000 SETLOC ASCFILT
036623,000033: 34,2000 BANK
036624,000034:
036625,000035: 34,3642 E7,1515 EBANK= DVCNTR
036626,000036:
036627,000037: 34,3642 COUNT* $$/ASENT
036628,000038:
036629,000039: 34,3642 05353 ATMAG TC PHASCHNG
036630,000040: 34,3643 00035 OCT 00035
036631,000041: 34,3644 06037 TC INTPRET
036632,000042: 34,3645 77614 BON
036633,000043: 34,3646 04705 FLRCS
036634,000044: 34,3647 60321 ASCENT
036635,000045: 34,3650 45345 DLOAD DSU
036636,000046: 34,3651 03514 ABDVCONV
036637,000047: 34,3652 26205 MINABDV
036638,000048: 34,3653 43040 BMN CLEAR
036639,000049: 34,3654 60750 ASCTERM4
036640,000050: 34,3655 04267 SURFFLAG
036641,000051: 34,3656 67214 CLEAR SLOAD
036642,000052: 34,3657 02676 RENDWFLG
036643,000053: 34,3660 31716 BIT3H
036644,000054: 34,3661 77471 DDV EXIT
036645,000055: 34,3662 03514 ABDVCONV
036646,000056: 34,3663 52155 DXCH MPAC
036647,000057: 34,3664 53641 DXCH 1/DV3
036648,000058: 34,3665 53637 DXCH 1/DV2
036649,000059: 34,3666 53635 DXCH 1/DV1
036650,000060: 34,3667 53571 DXCH 1/DV0
036651,000061: 34,3670 06037 TC INTPRET
036652,000062: 34,3671 43345 DLOAD DAD
036653,000063: 34,3672 03571 1/DV0
036654,000064: 34,3673 03635 1/DV1
036655,000065: 34,3674 43215 DAD DAD
036656,000066: 34,3675 03637 1/DV2
036657,000067: 34,3676 03641 1/DV3
036658,000068: 34,3677 41205 DMP DMP
036659,000069: 34,3700 02265 VE
036660,000070: 34,3701 21032 2SEC(9)
036661,000071: 34,3702 65252 SL3 PDDL
036662,000072: 34,3703 02271 TBUP
036663,000073: 34,3704 43342 SR1 DAD
036664,000074: 34,3705 77625 DSU
036665,000075: 34,3706 21027 6SEC(18)
036666,000076: 34,3707 16271 STODL TBUP
036667,000077: 34,3710 02265 VE
036668,000078: 34,3711 56342 SR1 DDV
036669,000079: 34,3712 02271 TBUP
036670,000080: 34,3713 36263 STCALL AT
036671,000081: # Page 844
036672,000082: 34,3714 60321 ASCENT
036673,000083: 34,3715 00004 BIT3H OCT 4
036674,000084:
036675,000085: # Page 845
036676,000086: 30,2321 BANK 30
036677,000087: 30,2000 SETLOC ASENT
036678,000088: 30,2000 BANK
036679,000089: 30,2321 COUNT* $$/ASENT
036680,000090:
036681,000091: 30,2321 51575 ASCENT VLOAD ABVAL
036682,000092: 30,2322 03521 R
036683,000093: 30,2323 26301 STOVL /R/MAG
036684,000094: 30,2324 03726 ZAXIS1
036685,000095: 30,2325 72441 DOT SL1
036686,000096: 30,2326 03527 V # Z.V = ZDOT*2(-8).
036687,000097: 30,2327 26313 STOVL ZDOT # ZDOT*2(-7)
036688,000098: 30,2330 03726 ZAXIS1
036689,000099: 30,2331 76435 VXV VSL1
036690,000100: 30,2332 03537 UNIT/R/ # Z X UR = LAXIS*2(-2)
036691,000101: 30,2333 02303 STORE LAXIS # LAXIS*2(-1)
036692,000102: 30,2334 72441 DOT SL1
036693,000103: 30,2335 03527 V # L.V = YDOT*2(-8).
036694,000104: 30,2336 36311 STCALL YDOT # YDOT * 2(-7)
036695,000105: 30,2337 57312 YCOMP
036696,000106: 30,2340 77775 VLOAD
036697,000107: 30,2341 03563 GDT1/2 # LOAD GDT1/2*2(-7) M/CS.
036698,000108: 30,2342 50341 V/SC DOT
036699,000109: 30,2343 27147 2SEC(18)
036700,000110: 30,2344 03537 UNIT/R/ # G.UR*2(9) = GR*2(9).
036701,000111: 30,2345 47315 PDVL VXV # STORE IN PDL(0)
036702,000112: 30,2346 03537 UNIT/R/ # LOAD UNIT/R/ *2(-1)
036703,000113: 30,2347 03527 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
036704,000114: 30,2350 56236 VSQ DDV # H(2)/R(2)*2(-16).
036705,000115: 30,2351 02301 /R/MAG # H(2)/R(3)*2(9).
036706,000116: 30,2352 43352 SL1 DAD
036707,000117: 30,2353 77626 STADR
036708,000118: 30,2354 61462 STODL GEFF # GEFF*2(10)m/CS/CS.
036709,000119: 30,2355 02277 ZDOTD
036710,000120: 30,2356 77625 DSU
036711,000121: 30,2357 02313 ZDOT
036712,000122: 30,2360 02343 STORE DZDOT # DZDOT = (ZDOTD - ZDOT) * 2(7) M/CS.
036713,000123: 30,2361 65361 VXSC PDDL
036714,000124: 30,2362 03726 ZAXIS1
036715,000125: 30,2363 02275 YDOTD
036716,000126: 30,2364 77625 DSU
036717,000127: 30,2365 02311 YDOT
036718,000128: 30,2366 02341 STORE DYDOT # DYDOT = (YDOTD - YDOT) *2(7) M/CS.
036719,000129: 30,2367 65361 VXSC PDDL
036720,000130: 30,2370 02303 LAXIS
036721,000131: 30,2371 02273 RDOTD
036722,000132: # Page 846
036723,000133: 30,2372 77625 DSU
036724,000134: 30,2373 03474 RDOT
036725,000135: 30,2374 02337 STORE DRDOT # DRDOT = (RDOTD - RDOT) * 2(7) M/CS.
036726,000136: 30,2375 53361 VXSC VAD
036727,000137: 30,2376 03537 UNIT/R/
036728,000138: 30,2377 76455 VAD VSL1
036729,000139: 30,2400 77626 STADR
036730,000140: 30,2401 74131 STORE VGVECT # VG = (DRDOT)R + (DVDOT)L + (DZDOT)Z.
036731,000141: 30,2402 41345 DLOAD DMP # LOAD TGO
036732,000142: 30,2403 03517 TGO # TGO GEFF
036733,000143: 30,2404 02315 GEFF
036734,000144: 30,2405 76561 VXSC VSL1
036735,000145: 30,2406 03537 UNIT/R/ # TGO GEFF UR
036736,000146: 30,2407 77645 BVSU
036737,000147: 30,2410 03646 VGVECT # COMPENSATED FOR GEFF
036738,000148: 30,2411 03646 STORE VGVECT # STORE FOR DOWNLINK
036739,000149: 30,2412 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
036740,000150: 30,2413 02146 XNBPIP
036741,000151: 30,2414 27502 STOVL VGBODY
036742,000152: 30,2415 03646 VGVECT
036743,000153: 30,2416 43046 ABVAL BOFF # MAGNITUDE OF VGVECT
036744,000154: 30,2417 04745 FLRCS # IF FLRCS=0,D0 NORMAL GUIDANCE
036745,000155: 30,2420 60425 MAINENG
036746,000156: 30,2421 77671 DDV # USE TGO=VG/AT WITH RCS
036747,000157: 30,2422 20001 AT/RCS
036748,000158: 30,2423 37517 STCALL TGO # THIS WILL BE USED ON NEXT CYCLE
036749,000159: 30,2424 60746 ASCTERM2
036750,000160: 30,2425 41471 MAINENG DDV PUSH # VG/VE IN PDL(0) (2)
036751,000161: 30,2426 02265 VE
036752,000162: 30,2427 44205 DMP BDSU # 1 - KT VG/VE
036753,000163: 30,2430 26201 KT1
036754,000164: 30,2431 17771 NEARONE
036755,000165: 30,2432 41205 DMP DMP # TBUP VG(1-KT VG/VE)/VE (0)
036756,000166: 30,2433 02271 TBUP # = TGO
036757,000167: 30,2434 77625 DSU # COMPENSATE FOR TAILOFF
036758,000168: 30,2435 02267 TTO
036759,000169: 30,2436 03517 STORE TGO
036760,000170: 30,2437 57461 SR DCOMP
036761,000171: 30,2440 20614 11D
036762,000172: 30,2441 17454 STODL TTOGO # TGO *2(-28) CS
036763,000173: 30,2442 03517 TGO
036764,000174: 30,2443 45214 BON DSU
036765,000175: 30,2444 03710 IDLEFLAG
036766,000176: 30,2445 60451 T2TEST
036767,000177: 30,2446 21021 4SEC(17) # ( TGO - 4 )*2(-17) CS.
036768,000178: 30,2447 77640 BMN
036769,000179: 30,2450 30355 ENGOFF
036770,000180: 30,2451 77745 T2TEST DLOAD
036771,000181: 30,2452 03517 TGO
036772,000182: 30,2453 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
036773,000183: # Page 847
036774,000184: 30,2454 21023 T2A
036775,000185: 30,2455 60612 CMPONENT
036776,000186: 30,2456 45345 DLOAD DSU
036777,000187: 30,2457 02271 TBUP
036778,000188: 30,2460 03517 TGO
036779,000189: 30,2461 45071 DDV CALL # 1- TGO/TBUP
036780,000190: 30,2462 02271 TBUP
036781,000191: 30,2463 61036 LOGSUB
036782,000192: 30,2464 41461 SL PUSH # -L IN PDL(0) (2)
036783,000193: 30,2465 20206 5
036784,000194: 30,2466 44265 BDDV BDSU # -TGO/L*2(-17)
036785,000195: 30,2467 03517 TGO
036786,000196: 30,2470 02271 TBUP # TBUP + TGO/L = D12*2(-17)
036787,000197: 30,2471 43006 PUSH BON # STORE IN PDL(2) (4)
036788,000198: 30,2472 04703 FLPC # IF FLPC = 1, GO TO CONST
036789,000199: 30,2473 60502 NORATES
036790,000200: 30,2474 45345 DLOAD DSU
036791,000201: 30,2475 03517 TGO
036792,000202: 30,2476 21025 T3
036793,000203: 30,2477 43044 BPL SET # FLPC=1
036794,000204: 30,2500 60510 RATES
036795,000205: 30,2501 04463 FLPC
036796,000206: 30,2502 77745 NORATES DLOAD
036797,000207: 30,2503 06522 HI6ZEROS
036798,000208: 30,2504 02351 STORE PRATE # B = 0
036799,000209: 30,2505 02353 STORE YRATE # D = 0
036800,000210: 30,2506 77650 GOTO
036801,000211: 30,2507 60572 CONST # GO TO CONST
036802,000212: 30,2510 45345 RATES DLOAD DSU
036803,000213: 30,2511 03517 TGO
036804,000214: 30,2512 00003 02D # TGO - D12 = D21*2(-17)
036805,000215: 30,2513 72406 PUSH SL1 # IN PDL(4) (6)
036806,000216: 30,2514 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
036807,000217: 30,2515 03517 TGO # (8)
036808,000218: 30,2516 41325 PDDL DMP # IN PDL(6)
036809,000219: 30,2517 03517 TGO
036810,000220: 30,2520 03474 RDOT # RDOT TGO * 2(-24)
036811,000221: 30,2521 45215 DAD DSU # R + RDOT TGO
036812,000222: 30,2522 02301 /R/MAG # R + RDOT TGO - RCO
036813,000223: 30,2523 03631 RCO # MPAC = -DR *2(-24).
036814,000224: 30,2524 41325 PDDL DMP # -DR IN PDL(8) (10)
036815,000225: 30,2525 02337 DRDOT
036816,000226: 30,2526 00005 04D # D21 DRDOT*2(-24)
036817,000227: 30,2527 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
036818,000228: 30,2530 56271 DDV DDV
036819,000229: 30,2531 00007 06D # (D21 DRDOT-DR)/E*2(-9)
036820,000230: 30,2532 03517 TGO
036821,000231: 30,2533 02351 STORE PRATE # B * 2(8)
036822,000232: 30,2534 71240 BMN DLOAD # B>0 NOT PERMITTED
036823,000233: 30,2535 60541 CHKBMAG
036824,000234: # Page 848
036825,000235: 30,2536 06522 HI6ZEROS
036826,000236: 30,2537 36351 STCALL PRATE
036827,000237: 30,2540 60553 PROK
036828,000238: 30,2541 56202 CHKBMAG SR4 DDV # B*2(4)
036829,000239: 30,2542 02271 TBUP # (B / TAU) * 2(21)
036830,000240: 30,2543 51025 DSU BPL
036831,000241: 30,2544 26203 PRLIMIT # ( B / TAU ) = 2(21) MAX.
036832,000242: 30,2545 60553 PROK
036833,000243: 30,2546 41345 DLOAD DMP
036834,000244: 30,2547 26203 PRLIMIT
036835,000245: 30,2550 02271 TBUP # B MAX. * 2(4)
036836,000246: 30,2551 77612 SL4 # BMAX*2(8)
036837,000247: 30,2552 02351 STORE PRATE
036838,000248: 30,2553 77745 PROK DLOAD
036839,000249: 30,2554 03517 TGO
036840,000250: 30,2555 43205 DMP DAD # YDOT TGO
036841,000251: 30,2556 02311 YDOT
036842,000252: 30,2557 02335 Y # Y + YDOT TGO
036843,000253: 30,2560 65225 DSU PDDL # Y + YDOT TGO - YCO
036844,000254: 30,2561 03633 YCO # MPAC = - DY*(-24.) IN PDL(8) (10)
036845,000255: 30,2562 02341 DYDOT
036846,000256: 30,2563 43205 DMP DAD # D21 DYDOT - DY (8)
036847,000257: 30,2564 00005 04D
036848,000258: 30,2565 56312 SL2 DDV # (D21 DYDOT - DY)/E*2(-9)
036849,000259: 30,2566 40271 DDV SETPD # (D21 DYDOT - DY)/E TGO*2(8)
036850,000260: 30,2567 03517 TGO # = D*2(8)
036851,000261: 30,2570 00005 04
036852,000262: 30,2571 02353 STORE YRATE
036853,000263: 30,2572 41345 CONST DLOAD DMP # LOAD B*2(8)
036854,000264: 30,2573 02351 PRATE # B D12*2(-9)
036855,000265: 30,2574 00003 02D
036856,000266: 30,2575 56325 PDDL DDV # D12 B IN PDL(4) (6)
036857,000267: 30,2576 02337 DRDOT # LOAD DRDOT*2(-7)
036858,000268: 30,2577 00001 00D # -DRDOT/L*2(-7)
036859,000269: 30,2600 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
036860,000270: 30,2601 77626 STADR
036861,000271: 30,2602 61432 STODL PCONS
036862,000272: 30,2603 02353 YRATE # D*2(8)
036863,000273: 30,2604 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
036864,000274: 30,2605 60465 BDDV SR2 # -DYDOT/L*2(-9)
036865,000275: 30,2606 02341 DYDOT
036866,000276: 30,2607 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
036867,000277: 30,2610 00001 00D
036868,000278: 30,2611 02347 STORE YCONS
036869,000279: 30,2612 71201 CMPONENT SETPD DLOAD
036870,000280: 30,2613 00001 00D
036871,000281: 30,2614 27147 100CS
036872,000282: 30,2615 77605 DMP
036873,000283: 30,2616 02351 PRATE # B(T-T0)*2(-9)
036874,000284: 30,2617 56215 DAD DDV # (A+B(T-T0))*2(-9)
036875,000285: # Page 849
036876,000286: 30,2620 02345 PCONS # (A+B(T-T0))/TBUP*2(8)
036877,000287: 30,2621 02271 TBUP
036878,000288: 30,2622 45352 SL1 DSU
036879,000289: 30,2623 02315 GEFF # ATR*2(9)
036880,000290: 30,2624 16357 STODL ATR
036881,000291: 30,2625 27147 100CS
036882,000292: 30,2626 43205 DMP DAD
036883,000293: 30,2627 02353 YRATE
036884,000294: 30,2630 02347 YCONS # (C+D(T-T0))*2(-9)
036885,000295: 30,2631 72471 DDV SL1
036886,000296: 30,2632 02271 TBUP
036887,000297: 30,2633 02355 STORE ATY # ATY*2(9)
036888,000298: 30,2634 65361 VXSC PDDL # ATY UY*2(8) (6)
036889,000299: 30,2635 02303 LAXIS
036890,000300: 30,2636 02357 ATR
036891,000301: 30,2637 53361 VXSC VAD
036892,000302: 30,2640 03537 UNIT/R/
036893,000303: 30,2641 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
036894,000304: 30,2642 65246 ABVAL PDDL # AH(2) IN PDL(34)
036895,000305: 30,2643 02263 AT # AHMAG IN PDL(6) (8)
036896,000306: 30,2644 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
036897,000307: 30,2645 00043 34D # =ATP2*2(18)
036898,000308: 30,2646 41525 PDDL PUSH # (12)
036899,000309: 30,2647 02263 AT
036900,000310: 30,2650 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
036901,000311: 30,2651 00043 34D # =ATP3*2(18)
036902,000312: 30,2652 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
036903,000313: 30,2653 60657 NO-ATP # LOAD ATP2, IF ATP3 POS
036904,000314: 30,2654 00011 8D
036905,000315: 30,2655 52166 SQRT GOTO # ATP*2(9)
036906,000316: 30,2656 60665 AIMER
036907,000317: 30,2657 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
036908,000318: 30,2660 00007 6D
036909,000319: 30,2661 77761 VXSC # KH AG*2(9)
036910,000320: 30,2662 00001 00D
036911,000321: 30,2663 14001 STODL 00D # STORE NEW AH IN PDL(0)
036912,000322: 30,2664 06522 HI6ZEROS
036913,000323: 30,2665 77765 AIMER SIGN
036914,000324: 30,2666 02343 DZDOT
036915,000325: 30,2667 02361 STORE ATP
036916,000326: 30,2670 77761 VXSC
036917,000327: 30,2671 03726 ZAXIS1 # ATP ZAXIS *2(8).
036918,000328: 30,2672 53372 VSL1 VAD # AT*2(0)
036919,000329: 30,2673 00001 00D
036920,000330: 30,2674 03254 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
036921,000331: 30,2675 43001 SETPD BON
036922,000332: 30,2676 00001 00D
036923,000333: 30,2677 04704 FLPI
036924,000334: 30,2700 60220 P12RET
036925,000335: 30,2701 77614 BON
036926,000336: # Page 850
036927,000337: 30,2702 04701 FLVR
036928,000338: 30,2703 60755 CHECKALT
036929,000339: 30,2704 57575 MAINLINE VLOAD VCOMP
036930,000340: 30,2705 03537 UNIT/R/
036931,000341: 30,2706 17262 STODL UNWC/2
036932,000342: 30,2707 03654 TXO
036933,000343: 30,2710 51025 DSU BPL
036934,000344: 30,2711 01235 PIPTIME
036935,000345: 30,2712 60721 ASCTERM
036936,000346: 30,2713 77614 BON
036937,000347: 30,2714 04711 ROTFLAG
036938,000348: 30,2715 57273 ANG1CHEK
036939,000349: 30,2716 43014 CLRXFLAG CLEAR CLEAR
036940,000350: 30,2717 01664 NOR29FLG # START r29 IN ASCENT PHASE.
036941,000351: 30,2720 06666 XOVINFLG # ALLOW X-AXIS OVERRIDE
036942,000352: 30,2721 77776 ASCTERM EXIT
036943,000353: 30,2722 30105 CA FLAGWRD9
036944,000354: 30,2723 74742 MASK FLRCSBIT
036945,000355: 30,2724 10000 CCS A
036946,000356: 30,2725 12747 TCF ASCTERM3
036947,000357: 30,2726 06037 TC INTPRET
036948,000358: 30,2727 77624 CALL
036949,000359: 30,2730 61111 FINDCDUW -2
036950,000360: 30,2731 77776 ASCTERM1 EXIT
036951,000361: 30,2732 30105 +1 CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
036952,000362: 30,2733 74742 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
036953,000363: 30,2734 10000 CCS A # MODE OF OPERATION
036954,000364: 30,2735 12747 TCF ASCTERM3
036955,000365: 30,2736 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
036956,000366: 30,2737 74742 MASK FLUNDBIT # INDICATED.
036957,000367: 30,2740 10000 CCS A
036958,000368: 30,2741 12747 TCF ASCTERM3
036959,000369: 30,2742 33033 CAF V06N63*
036960,000370: 30,2743 04616 TC BANKCALL
036961,000371: 30,2744 20451 CADR GODSPR
036962,000372: 30,2745 12747 TCF ASCTERM3
036963,000373: 30,2746 77776 ASCTERM2 EXIT
036964,000374: 30,2747 15155 ASCTERM3 TCF ENDOFJOB
036965,000375: 30,2750 77776 ASCTERM4 EXIT
036966,000376: 30,2751 00004 INHINT
036967,000377: 30,2752 04674 TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
036968,000378: 30,2753 40153 CADR ZATTEROR # THE DAP COMMANDED ERRORSss.
036969,000379: 30,2754 12732 TCF ASCTERM1 +1
036970,000380:
036971,000381: 30,2755 45345 CHECKALT DLOAD DSU
036972,000382: 30,2756 02301 /R/MAG
036973,000383: 30,2757 02333 /LAND/
036974,000384: 30,2760 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION
036975,000385: 30,2761 26700 25KFT
036976,000386: 30,2762 16667 CHECKYAW
036977,000387: # Page 851
036978,000388: 30,2763 43014 EXITVR CLEAR BON
036979,000389: 30,2764 04661 FLVR
036980,000390: 30,2765 04711 ROTFLAG
036981,000391: 30,2766 60704 MAINLINE
036982,000392: 30,2767 43345 DLOAD DAD
036983,000393: 30,2770 01235 PIPTIME
036984,000394: 30,2771 25755 10SECS
036985,000395: 30,2772 37654 STCALL TXO
036986,000396: 30,2773 60704 MAINLINE
036987,000397: 30,2774 77614 EXITVR1 CLRGO
036988,000398: 30,2775 04631 ROTFLAG
036989,000399: 30,2776 60763 EXITVR
036990,000400:
036991,000401: 27,2000 SETLOC ASENT1
036992,000402: 27,2000 BANK
036993,000403: 27,3273 COUNT* $$/ASENT
036994,000404:
036995,000405: 27,3273 50375 ANG1CHEK VLOAD DOT
036996,000406: 27,3274 03254 UNFC/2
036997,000407: 27,3275 02146 XNBPIP
036998,000408: 27,3276 51025 DSU BPL
036999,000409: 27,3277 02577 COSTHET1
037000,000410: 27,3300 57307 OFFROT
037001,000411: 27,3301 50375 VLOAD DOT
037002,000412: 27,3302 02146 XNBPIP
037003,000413: 27,3303 03537 UNIT/R/
037004,000414: 27,3304 50025 DSU BMN
037005,000415: 27,3305 02601 COSTHET2
037006,000416: 27,3306 30351 KEEPVR1
037007,000417: 27,3307 77614 OFFROT CLRGO
037008,000418: 27,3310 04631 ROTFLAG
037009,000419: 27,3311 60716 CLRXFLAG
037010,000420:
037011,000421: 07,2667 BANK 7
037012,000422: 07,2000 SETLOC ASENT2
037013,000423: 07,2000 BANK
037014,000424: 07,2667 COUNT* $$/ASENT
037015,000425:
037016,000426: 07,2667 07,2667 SETXFLAG = CHECKYAW
037017,000427:
037018,000428: 07,2667 77614 CHECKYAW SET
037019,000429: 07,2670 06466 XOVINFLG # PROHIBIT X-AXIS OVERRRIDE
037020,000430: 07,2671 74345 DLOAD VXSC
037021,000431: 07,2672 02355 ATY
037022,000432: 07,2673 02303 LAXIS
037023,000433: 07,2674 74325 PDDL VXSC
037024,000434: 07,2675 02361 ATP
037025,000435: 07,2676 03726 ZAXIS1
037026,000436: 07,2677 53455 VAD UNIT
037027,000437: 07,2700 50206 PUSH DOT
037028,000438: # Page 852
037029,000439: 07,2701 02154 YNBPIP
037030,000440: 07,2702 45246 ABS DSU
037031,000441: 07,2703 13503 SIN5DEG
037032,000442: 07,2704 71244 BPL DLOAD
037033,000443: 07,2705 30347 KEEPVR
037034,000444: 07,2706 03474 RDOT
037035,000445: 07,2707 51025 DSU BPL
037036,000446: 07,2710 13505 40FPS
037037,000447: 07,2711 60774 EXITVR1
037038,000448: 07,2712 77650 GOTO
037039,000449: 07,2713 30347 KEEPVR
037040,000450:
037041,000451: 05,3502 BANK 5
037042,000452: 05,2000 SETLOC ASENT3
037043,000453: 05,2000 BANK
037044,000454: 05,3502 COUNT* $$/ASENT
037045,000455:
037046,000456: 05,3502 00545 00171 SIN5DEG 2DEC 0.08716 B-2
037047,000457: 05,3504 00017 23305 40FPS 2DEC 0.12192 B-7
037048,000458:
037049,000459: 14,2347 BANK 14
037050,000460: 14,2000 SETLOC ASENT4
037051,000461: 14,2000 BANK
037052,000462: 14,2347 COUNT* $$/ASENT
037053,000463:
037054,000464: 14,2347 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
037055,000465: 14,2350 74515 STORE UNWC/2
037056,000466: 14,2351 77775 KEEPVR1 VLOAD
037057,000467: 14,2352 03537 UNIT/R/
037058,000468: 14,2353 37254 STCALL UNFC/2
037059,000469: 14,2354 60721 ASCTERM
037060,000470:
037061,000471: 14,2355 77634 ENGOFF RTB
037062,000472: 14,2356 21573 LOADTIME
037063,000473: 14,2357 43225 DSU DAD
037064,000474: 14,2360 01235 PIPTIME
037065,000475: 14,2361 03454 TTOGO
037066,000476: 14,2362 77476 DCOMP EXIT
037067,000477: 14,2363 07257 TC TPAGREE # FORCH SIGN AGREEMENT ON MPAC, MPAC +1.
037068,000478: 14,2364 35016 CAF EBANK7
037069,000479: 14,2365 54003 TS EBANK
037070,000480: 14,2366 E7,1516 EBANK= TGO
037071,000481: 14,2366 00004 INHINT
037072,000482: 14,2367 10155 CCS MPAC +1
037073,000483: 14,2370 12373 TCF +3 # C(A) = DT - 1 BIT
037074,000484: 14,2371 12373 TCF +2 # C(A) = 0
037075,000485: 14,2372 34755 CAF ZERO # C(A) = 0
037076,000486: 14,2373 64753 AD BIT1 # C(A) = 1 BIT OR DT.
037077,000487: # Page 853
037078,000488: 14,2374 55644 TS ENGOFFDT
037079,000489: 14,2375 05173 TC TWIDDLE
037080,000490: 14,2376 02410 ADRES ENGOFF1
037081,000491: 14,2377 05353 TC PHASCHNG
037082,000492: 14,2400 47014 OCT 47014
037083,000493: 14,2401 76133 -GENADR ENGOFFDT
037084,000494: 14,2402 E7,1516 EBANK= TGO
037085,000495: 14,2402 02410 30067 2CADR ENGOFF1
037086,000496:
037087,000497: 14,2404 06037 TC INTPRET
037088,000498: 14,2405 52014 SET GOTO
037089,000499: 14,2406 03470 IDLEFLAG # DISABLE DELTA-V MONITOR
037090,000500: 14,2407 60451 T2TEST
037091,000501:
037092,000502: 14,2410 04674 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
037093,000503: 14,2411 75551 CADR ENGINOF2
037094,000504:
037095,000505: 14,2412 35027 CAF PRIO17 # SET UP A JOB FOR THE ASCENT GUIDANCE
037096,000506: 14,2413 05105 TC FINDVAC # POSTBURN LOGIC.
037097,000507: 14,2414 E7,1455 EBANK= WHICH
037098,000508: 14,2414 02424 30067 2CADR CUTOFF
037099,000509:
037100,000510: 14,2416 05353 TC PHASCHNG
037101,000511: 14,2417 07024 OCT 07024
037102,000512: 14,2420 17000 OCT 17000
037103,000513: 14,2421 E7,1516 EBANK= TGO
037104,000514: 14,2421 02424 30067 2CADR CUTOFF
037105,000515:
037106,000516: 14,2423 15261 TCF TASKOVER
037107,000517:
037108,000518: 14,2424 05504 CUTOFF TC UPFLAG # SET FLRCS FLAG.
037109,000519: 14,2425 00214 ADRES FLRCS
037110,000520:
037111,000521: 14,2426 32445 -5 CAF V16N63
037112,000522: 14,2427 04616 TC BANKCALL
037113,000523: 14,2430 20476 CADR GOFLASH
037114,000524: 14,2431 12434 TCF +3
037115,000525: 14,2432 12436 TCF CUTOFF1
037116,000526: 14,2433 12426 TCF -5
037117,000527:
037118,000528: 14,2434 04635 +3 TC POSTJUMP
037119,000529: 14,2435 61007 CADR TERMASC
037120,000530:
037121,000531: 14,2436 00004 CUTOFF1 INHINT
037122,000532: 14,2437 04674 TC IBNKCALL # ZERO ATTITUDE ERRORS BEFORE REDUCINT DB.
037123,000533: 14,2440 40153 CADR ZATTEROR
037124,000534: 14,2441 04674 TC IBNKCALL
037125,000535: 14,2442 40140 CADR SETMINDB
037126,000536: 14,2443 04635 TC POSTJUMP
037127,000537: 14,2444 60777 CADR CUTOFF2
037128,000538: # Page 854
037129,000539:
037130,000540: 14,2445 04077 V16N63 VN 1663
037131,000541: 30,2777 BANK 30
037132,000542: 30,2000 SETLOC ASENT5
037133,000543: 30,2000 BANK
037134,000544: 30,2777 COUNT* $$/ASENT
037135,000545:
037136,000546: 30,2777 05353 CUTOFF2 TC PHASCHNG
037137,000547: 30,3000 04024 OCT 04024
037138,000548:
037139,000549: 30,3001 33017 CAF V16N85C
037140,000550: 30,3002 04616 TC BANKCALL
037141,000551: 30,3003 20476 CADR GOFLASH
037142,000552: 30,3004 13007 TCF TERMASC
037143,000553: 30,3005 13007 TCF +2 # PROCEED
037144,000554: 30,3006 12777 TCF CUTOFF2
037145,000555:
037146,000556: 30,3007 05353 TERMASC TC PHASCHNG
037147,000557: 30,3010 04024 OCT 04024
037148,000558:
037149,000559: 30,3011 00004 INHINT # RESTORE DEADBAND DESIRED BY ASTRONAUT.
037150,000560: 30,3012 04674 TC IBNKCALL
037151,000561: 30,3013 40123 CADR RESTORDB
037152,000562: 30,3014 05516 TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
037153,000563: 30,3015 00215 ADRES LETABORT
037154,000564: 30,3016 16001 TCF GOTOP00H
037155,000565:
037156,000566: 30,3017 04125 V16N85C VN 1685
037157,000567:
037158,000568: 27,3312 BANK 27
037159,000569: 27,2000 SETLOC ASENT1
037160,000570: 27,2000 BANK
037161,000571: 27,3312 COUNT* $$/ASENT
037162,000572:
037163,000573: 27,3312 50375 YCOMP VLOAD DOT
037164,000574: 27,3313 03537 UNIT/R/
037165,000575: 27,3314 03720 QAXIS
037166,000576: 27,3315 41312 SL2 DMP
037167,000577: 27,3316 03631 RCO
037168,000578: 27,3317 02335 STORE Y
037169,000579: 27,3320 77616 RVQ
037170,000580:
037171,000581: 30,3020 BANK 30
037172,000582: 30,2000 SETLOC ASENT
037173,000583: 30,2000 BANK
037174,000584: # Page 855
037175,000585: 30,3020 33,3146 100CS EQUALS 2SEC(18)
037176,000586: 30,3020 30,3022 T2A EQUALS 2SEC(17)
037177,000587: 30,3020 00062 00000 4SEC(17) 2DEC 400 B-17
037178,000588: 30,3022 00031 00000 2SEC(17) 2DEC 200 B-17
037179,000589: 30,3024 00175 00000 T3 2DEC 1000 B-17
037180,000590: 30,3026 00045 20000 6SEC(18) 2DEC 600 B-18
037181,000591: 30,3030 00010 BIT4H OCT 10
037182,000592: 30,3031 14400 00000 2SEC(9) 2DEC 200 B-9
037183,000593: 30,3033 01477 V06N63* VN 0663
037184,000594: 30,3034 01514 V06N76 VN 0676
037185,000595: 30,3035 01441 V06N33A VN 0633
037186,000596:
037187,000597: 33,2200 BANK 33
037188,000598: 33,2000 SETLOC ASENT6
037189,000599: 33,2000 BANK
037190,000600: 33,2200 COUNT* $$/ASENT
037191,000601:
037192,000602: 33,2200 20000 00000 KT1 2DEC 0.5000
037193,000603: 33,2202 75751 41775 PRLIMIT 2DEC -.0639 # (B/TBUP)MIN=-.1FT.SEC(-3)
037194,000604: 33,2204 00022 07212 MINABDV 2DEC .0356 B-5 # 10 PERCENT BIGGER THAN GRAVITY
037195,000605: 33,2206 E7,1570 1/DV0 = MASS1
037196,000606:
037197,000607: # Page 856
037198,000608: # THE LOGARITHM SUBROUTINE
037199,000609:
037200,000610: 24,3670 BANK 24
037201,000611: 30,2000 SETLOC FLOGSUB
037202,000612: 30,2000 BANK
037203,000613:
037204,000614: # INPUT ..... X IN MPAC
037205,000615: # OUTPUT ..... -LOG(X) IN MPAC
037206,000616:
037207,000617: 30,3036 44301 LOGSUB NORM BDSU
037208,000618: 30,3037 00163 MPAC +6
037209,000619: 30,3040 17771 NEARONE
037210,000620: 30,3041 77776 EXIT
037211,000621: 30,3042 07222 TC POLY
037212,000622: 30,3043 00006 DEC 6 B-14
037213,000623: 30,3044 00000 00002 2DEC .0000000060
037214,000624: 30,3046 76777 77175 2DEC -.0312514377
037215,000625: 30,3050 77400 75416 2DEC -.0155686771
037216,000626: 30,3052 77507 65515 2DEC -.0112502068
037217,000627: 30,3054 77741 63547 2DEC -.0018545108
037218,000628: 30,3056 77052 55373 2DEC -.0286607906
037219,000629: 30,3060 01167 30361 2DEC .0385598563
037220,000630: 30,3062 76520 75267 2DEC -.0419361902
037221,000631:
037222,000632: 30,3064 34755 CAF ZERO
037223,000633: 30,3065 54156 TS MPAC +2
037224,000634: 30,3066 00006 EXTEND
037225,000635: 30,3067 33103 DCA CLOG2/32
037226,000636: 30,3070 52155 DXCH MPAC
037227,000637: 30,3071 52132 DXCH BUF +1
037228,000638: 30,3072 30162 CA MPAC +6
037229,000639: 30,3073 07307 TC SHORTMP
037230,000640: 30,3074 52156 DXCH MPAC +1
037231,000641: 30,3075 52155 DXCH MPAC
037232,000642: 30,3076 52132 DXCH BUF +1
037233,000643: 30,3077 20155 DAS MPAC
037234,000644: 30,3100 06037 TC INTPRET
037235,000645: 30,3101 43476 DCOMP RVQ
037236,000646:
037237,000647: 30,3102 00542 34414 CLOG2/32 2DEC .0216608494
037238,000648:
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc