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