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