Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
036140,000002: ## Copyright: Public domain.
036141,000003: ## Filename: ASCENT_GUIDNCE.agc
036142,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
036143,000005: ## It is part of the source code for the Lunar Module's (LM)
036144,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
036145,000007: ## Assembler: yaYUL
036146,000008: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
036147,000009: ## Website: www.ibiblio.org/apollo.
036148,000010: ## Pages: 843-856
036149,000011: ## Mod history: 2009-05-23 HG Transcribed from page images.
036150,000012: ## 2009-06-05 RSB Fixed a couple of typos.
036151,000013: ## 2009-06-07 RSB Corrected a typo.
036152,000014: ## 2010-12-31 JL Fixed page number comment.
036153,000015: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
036154,000016: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
036155,000017: ## and corrected the errors found.
036156,000018: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
036157,000019: ## 2017-03-14 RSB Comment-text fixes identified in 5-way
036158,000020: ## side-by-side diff of Luminary 69/99/116/131/210.
036159,000021:
![]() |
Page 843 |
036161,000023: 34,3642 BANK 34
036162,000024: 34,2000 SETLOC ASCFILT
036163,000025: 34,2000 BANK
036164,000026:
036165,000027: 34,3642 E7,1515 EBANK= DVCNTR
036166,000028:
036167,000029: 34,3642 COUNT* $$/ASENT
036168,000030:
036169,000031: 34,3642 05353 ATMAG TC PHASCHNG
036170,000032: 34,3643 00035 OCT 00035
036171,000033: 34,3644 06037 TC INTPRET
036172,000034: 34,3645 77614 BON
036173,000035: 34,3646 04705 FLRCS
036174,000036: 34,3647 60321 ASCENT
036175,000037: 34,3650 45345 DLOAD DSU
036176,000038: 34,3651 03514 ABDVCONV
036177,000039: 34,3652 26205 MINABDV
036178,000040: 34,3653 43040 BMN CLEAR
036179,000041: 34,3654 60750 ASCTERM4
036180,000042: 34,3655 04267 SURFFLAG
036181,000043: 34,3656 67214 CLEAR SLOAD
036182,000044: 34,3657 02676 RENDWFLG
036183,000045: 34,3660 31716 BIT3H
036184,000046: 34,3661 77471 DDV EXIT
036185,000047: 34,3662 03514 ABDVCONV
036186,000048: 34,3663 52155 DXCH MPAC
036187,000049: 34,3664 53641 DXCH 1/DV3
036188,000050: 34,3665 53637 DXCH 1/DV2
036189,000051: 34,3666 53635 DXCH 1/DV1
036190,000052: 34,3667 53571 DXCH 1/DV0
036191,000053: 34,3670 06037 TC INTPRET
036192,000054: 34,3671 43345 DLOAD DAD
036193,000055: 34,3672 03571 1/DV0
036194,000056: 34,3673 03635 1/DV1
036195,000057: 34,3674 43215 DAD DAD
036196,000058: 34,3675 03637 1/DV2
036197,000059: 34,3676 03641 1/DV3
036198,000060: 34,3677 41205 DMP DMP
036199,000061: 34,3700 02265 VE
036200,000062: 34,3701 21032 2SEC(9)
036201,000063: 34,3702 65252 SL3 PDDL
036202,000064: 34,3703 02271 TBUP
036203,000065: 34,3704 43342 SR1 DAD
036204,000066: 34,3705 77625 DSU
036205,000067: 34,3706 21027 6SEC(18)
036206,000068: 34,3707 16271 STODL TBUP
036207,000069: 34,3710 02265 VE
036208,000070: 34,3711 56342 SR1 DDV
036209,000071: 34,3712 02271 TBUP
036210,000072: 34,3713 36263 STCALL AT
![]() |
Page 844 |
036212,000074: 34,3714 60321 ASCENT
036213,000075: 34,3715 00004 BIT3H OCT 4
036214,000076:
![]() |
Page 845 |
036216,000078: 30,2321 BANK 30
036217,000079: 30,2000 SETLOC ASENT
036218,000080: 30,2000 BANK
036219,000081: 30,2321 COUNT* $$/ASENT
036220,000082:
036221,000083: 30,2321 51575 ASCENT VLOAD ABVAL
036222,000084: 30,2322 03521 R
036223,000085: 30,2323 26301 STOVL /R/MAG
036224,000086: 30,2324 03726 ZAXIS1
036225,000087: 30,2325 72441 DOT SL1
036226,000088: 30,2326 03527 V # Z.V = ZDOT*2(-8).
036227,000089: 30,2327 26313 STOVL ZDOT # ZDOT*2(-7)
036228,000090: 30,2330 03726 ZAXIS1
036229,000091: 30,2331 76435 VXV VSL1
036230,000092: 30,2332 03537 UNIT/R/ # Z X UR = LAXIS*2(-2)
036231,000093: 30,2333 02303 STORE LAXIS # LAXIS*2(-1)
036232,000094: 30,2334 72441 DOT SL1
036233,000095: 30,2335 03527 V # L.V = YDOT*2(-8).
036234,000096: 30,2336 36311 STCALL YDOT # YDOT * 2(-7)
036235,000097: 30,2337 57312 YCOMP
036236,000098: 30,2340 77775 VLOAD
036237,000099: 30,2341 03563 GDT1/2 # LOAD GDT1/2*2(-7) M/CS.
036238,000100: 30,2342 50341 V/SC DOT
036239,000101: 30,2343 27147 2SEC(18)
036240,000102: 30,2344 03537 UNIT/R/ # G.UR*2(9) = GR*2(9).
036241,000103: 30,2345 47315 PDVL VXV # STORE IN PDL(0) (2)
036242,000104: 30,2346 03537 UNIT/R/ # LOAD UNIT/R/ *2(-1).
036243,000105: 30,2347 03527 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
036244,000106: 30,2350 56236 VSQ DDV # H(2)/R(2)*2(-16).
036245,000107: 30,2351 02301 /R/MAG # H(2)/R(3)*2(9).
036246,000108: 30,2352 43352 SL1 DAD
036247,000109: 30,2353 77626 STADR
036248,000110: 30,2354 61462 STODL GEFF # GEFF*2(10)M/CS/CS.
036249,000111: 30,2355 02277 ZDOTD
036250,000112: 30,2356 77625 DSU
036251,000113: 30,2357 02313 ZDOT
036252,000114: 30,2360 02343 STORE DZDOT # DZDOT = (ZDOTD - ZDOT) * 2(7) M/CS.
036253,000115: 30,2361 65361 VXSC PDDL
036254,000116: 30,2362 03726 ZAXIS1
036255,000117: 30,2363 02275 YDOTD
036256,000118: 30,2364 77625 DSU
036257,000119: 30,2365 02311 YDOT
036258,000120: 30,2366 02341 STORE DYDOT # DYDOT = (YDOTD - YDOT) *2(7) M/CS.
036259,000121: 30,2367 65361 VXSC PDDL
036260,000122: 30,2370 02303 LAXIS
036261,000123: 30,2371 02273 RDOTD
![]() |
Page 846 |
036263,000125: 30,2372 77625 DSU
036264,000126: 30,2373 03474 RDOT
036265,000127: 30,2374 02337 STORE DRDOT # DRDOT = (RDOTD - RDOT) * 2(7) M/CS.
036266,000128: 30,2375 53361 VXSC VAD
036267,000129: 30,2376 03537 UNIT/R/
036268,000130: 30,2377 76455 VAD VSL1
036269,000131: 30,2400 77626 STADR
036270,000132: 30,2401 74131 STORE VGVECT # VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
036271,000133: 30,2402 41345 DLOAD DMP # LOAD TGO
036272,000134: 30,2403 03517 TGO # TGO GEFF
036273,000135: 30,2404 02315 GEFF
036274,000136: 30,2405 76561 VXSC VSL1
036275,000137: 30,2406 03537 UNIT/R/ # TGO GEFF UR
036276,000138: 30,2407 77645 BVSU
036277,000139: 30,2410 03646 VGVECT # COMPENSATED FOR GEFF
036278,000140: 30,2411 03646 STORE VGVECT # STORE FOR DOWNLINK
036279,000141: 30,2412 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
036280,000142: 30,2413 02146 XNBPIP
036281,000143: 30,2414 27502 STOVL VGBODY
036282,000144: 30,2415 03646 VGVECT
036283,000145: 30,2416 43046 ABVAL BOFF # MAGNITUDE OF VGVECT
036284,000146: 30,2417 04745 FLRCS # IF FLRCS=0,DO NORMAL GUIDANCE
036285,000147: 30,2420 60425 MAINENG
036286,000148: 30,2421 77671 DDV # USE TGO=VG/AT WITH RCS
036287,000149: 30,2422 20001 AT/RCS
036288,000150: 30,2423 37517 STCALL TGO # THIS WILL BE USED ON NEXT CYCLE
036289,000151: 30,2424 60746 ASCTERM2
036290,000152: 30,2425 41471 MAINENG DDV PUSH # VG/VE IN PDL(0) (2)
036291,000153: 30,2426 02265 VE
036292,000154: 30,2427 44205 DMP BDSU # 1 - KT VG/VE
036293,000155: 30,2430 26201 KT1
036294,000156: 30,2431 17771 NEARONE
036295,000157: 30,2432 41205 DMP DMP # TBUP VG(1-KT VG/VE)/VE (0)
036296,000158: 30,2433 02271 TBUP # = TGO
036297,000159: 30,2434 77625 DSU # COMPENSATE FOR TAILOFF
036298,000160: 30,2435 02267 TTO
036299,000161: 30,2436 03517 STORE TGO
036300,000162: 30,2437 57461 SR DCOMP
036301,000163: 30,2440 20614 11D
036302,000164: 30,2441 17454 STODL TTOGO # TGO *2(-28) CS
036303,000165: 30,2442 03517 TGO
036304,000166: 30,2443 45214 BON DSU
036305,000167: 30,2444 03710 IDLEFLAG
036306,000168: 30,2445 60451 T2TEST
036307,000169: 30,2446 21021 4SEC(17) # ( TGO - 4 )*2(-17) CS.
036308,000170: 30,2447 77640 BMN
036309,000171: 30,2450 30355 ENGOFF
036310,000172: 30,2451 77745 T2TEST DLOAD
036311,000173: 30,2452 03517 TGO
036312,000174: 30,2453 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
![]() |
Page 847 |
036314,000176: 30,2454 21023 T2A
036315,000177: 30,2455 60612 CMPONENT
036316,000178: 30,2456 45345 DLOAD DSU
036317,000179: 30,2457 02271 TBUP
036318,000180: 30,2460 03517 TGO
036319,000181: 30,2461 45071 DDV CALL # 1- TGO/TBUP
036320,000182: 30,2462 02271 TBUP
036321,000183: 30,2463 61036 LOGSUB
036322,000184: 30,2464 41461 SL PUSH # -L IN PDL(0) (2)
036323,000185: 30,2465 20206 5
036324,000186: 30,2466 44265 BDDV BDSU # -TGO/L*2(-17)
036325,000187: 30,2467 03517 TGO
036326,000188: 30,2470 02271 TBUP # TBUP + TGO/L = D12*2(-17)
036327,000189: 30,2471 43006 PUSH BON # STORE IN PDL(2) (4)
036328,000190: 30,2472 04703 FLPC # IF FLPC = 1, GO TO CONST
036329,000191: 30,2473 60502 NORATES
036330,000192: 30,2474 45345 DLOAD DSU
036331,000193: 30,2475 03517 TGO
036332,000194: 30,2476 21025 T3
036333,000195: 30,2477 43044 BPL SET # FLPC=1
036334,000196: 30,2500 60510 RATES
036335,000197: 30,2501 04463 FLPC
036336,000198: 30,2502 77745 NORATES DLOAD
036337,000199: 30,2503 06522 HI6ZEROS
036338,000200: 30,2504 02351 STORE PRATE # B = 0
036339,000201: 30,2505 02353 STORE YRATE # D = 0
036340,000202: 30,2506 77650 GOTO
036341,000203: 30,2507 60572 CONST # GO TO CONST
036342,000204: 30,2510 45345 RATES DLOAD DSU
036343,000205: 30,2511 03517 TGO
036344,000206: 30,2512 00003 02D # TGO - D12 = D21*2(-17)
036345,000207: 30,2513 72406 PUSH SL1 # IN PDL(4) (6)
036346,000208: 30,2514 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
036347,000209: 30,2515 03517 TGO # (8)
036348,000210: 30,2516 41325 PDDL DMP # IN PDL(6)
036349,000211: 30,2517 03517 TGO
036350,000212: 30,2520 03474 RDOT # RDOT TGO * 2(-24)
036351,000213: 30,2521 45215 DAD DSU # R + RDOT TGO
036352,000214: 30,2522 02301 /R/MAG # R + RDOT TGO - RCO
036353,000215: 30,2523 03631 RCO # MPAC = -DR *2(-24).
036354,000216: 30,2524 41325 PDDL DMP # -DR IN PDL(8) (10)
036355,000217: 30,2525 02337 DRDOT
036356,000218: 30,2526 00005 04D # D21 DRDOT*2(-24)
036357,000219: 30,2527 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
036358,000220: 30,2530 56271 DDV DDV
036359,000221: 30,2531 00007 06D # (D21 DRDOT-DR)/E*2(-9)
036360,000222: 30,2532 03517 TGO
036361,000223: 30,2533 02351 STORE PRATE # B * 2(8)
036362,000224: 30,2534 71240 BMN DLOAD # B>0 NOT PERMITTED
036363,000225: 30,2535 60541 CHKBMAG
![]() |
Page 848 |
036365,000227: 30,2536 06522 HI6ZEROS
036366,000228: 30,2537 36351 STCALL PRATE
036367,000229: 30,2540 60553 PROK
036368,000230: 30,2541 56202 CHKBMAG SR4 DDV # B*2(4)
036369,000231: 30,2542 02271 TBUP # (B / TAU) * 2(21)
036370,000232: 30,2543 51025 DSU BPL
036371,000233: 30,2544 26203 PRLIMIT # ( B / TAU ) * 2(21) MAX.
036372,000234: 30,2545 60553 PROK
036373,000235: 30,2546 41345 DLOAD DMP
036374,000236: 30,2547 26203 PRLIMIT
036375,000237: 30,2550 02271 TBUP # B MAX. * 2(4)
036376,000238: 30,2551 77612 SL4 # BMAX*2(8)
036377,000239: 30,2552 02351 STORE PRATE
036378,000240: 30,2553 77745 PROK DLOAD
036379,000241: 30,2554 03517 TGO
036380,000242: 30,2555 43205 DMP DAD # YDOT TGO
036381,000243: 30,2556 02311 YDOT
036382,000244: 30,2557 02335 Y # Y + YDOT TGO
036383,000245: 30,2560 65225 DSU PDDL # Y + YDOT TGO - YCO
036384,000246: 30,2561 03633 YCO # MPAC = - DY*2(-24.) IN PDL(8) (10)
036385,000247: 30,2562 02341 DYDOT
036386,000248: 30,2563 43205 DMP DAD # D21 DYDOT - DY (8)
036387,000249: 30,2564 00005 04D
036388,000250: 30,2565 56312 SL2 DDV # (D21 DYDOT - DY)/E*2(-9)
036389,000251: 30,2566 40271 DDV SETPD # (D21 DYDOT - DY)/E TGO*2(8)
036390,000252: 30,2567 03517 TGO # = D*2(8)
036391,000253: 30,2570 00005 04
036392,000254: 30,2571 02353 STORE YRATE
036393,000255: 30,2572 41345 CONST DLOAD DMP # LOAD B*2(8)
036394,000256: 30,2573 02351 PRATE # B D12*2(-9)
036395,000257: 30,2574 00003 02D
036396,000258: 30,2575 56325 PDDL DDV # D12 B IN PDL(4) (6)
036397,000259: 30,2576 02337 DRDOT # LOAD DRDOT*2(-7)
036398,000260: 30,2577 00001 00D # -DRDOT/L*2(-7)
036399,000261: 30,2600 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
036400,000262: 30,2601 77626 STADR
036401,000263: 30,2602 61432 STODL PCONS
036402,000264: 30,2603 02353 YRATE # D*2(8)
036403,000265: 30,2604 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
036404,000266: 30,2605 60465 BDDV SR2 # -DYDOT/L*2(-9)
036405,000267: 30,2606 02341 DYDOT
036406,000268: 30,2607 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
036407,000269: 30,2610 00001 00D
036408,000270: 30,2611 02347 STORE YCONS
036409,000271: 30,2612 71201 CMPONENT SETPD DLOAD
036410,000272: 30,2613 00001 00D
036411,000273: 30,2614 27147 100CS
036412,000274: 30,2615 77605 DMP
036413,000275: 30,2616 02351 PRATE # B(T-T0)*2(-9)
036414,000276: 30,2617 56215 DAD DDV # (A+B(T-T0))*2(-9)
![]() |
Page 849 |
036416,000278: 30,2620 02345 PCONS # (A+B(T-T0))/TBUP*2(8)
036417,000279: 30,2621 02271 TBUP
036418,000280: 30,2622 45352 SL1 DSU
036419,000281: 30,2623 02315 GEFF # ATR*2(9)
036420,000282: 30,2624 16357 STODL ATR
036421,000283: 30,2625 27147 100CS
036422,000284: 30,2626 43205 DMP DAD
036423,000285: 30,2627 02353 YRATE
036424,000286: 30,2630 02347 YCONS # (C+D(T-T0))*2(-9)
036425,000287: 30,2631 72471 DDV SL1
036426,000288: 30,2632 02271 TBUP
036427,000289: 30,2633 02355 STORE ATY # ATY*2(9)
036428,000290: 30,2634 65361 VXSC PDDL # ATY UY*2(8) (6)
036429,000291: 30,2635 02303 LAXIS
036430,000292: 30,2636 02357 ATR
036431,000293: 30,2637 53361 VXSC VAD # (0)
036432,000294: 30,2640 03537 UNIT/R/
036433,000295: 30,2641 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
036434,000296: 30,2642 65246 ABVAL PDDL # AH(2) IN PDL(34)
036435,000297: 30,2643 02263 AT # AHMAG IN PDL(6) (8)
036436,000298: 30,2644 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
036437,000299: 30,2645 00043 34D # =ATP2*2(18)
036438,000300: 30,2646 41525 PDDL PUSH # (12)
036439,000301: 30,2647 02263 AT
036440,000302: 30,2650 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
036441,000303: 30,2651 00043 34D # =ATP3*2(18)
036442,000304: 30,2652 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
036443,000305: 30,2653 60657 NO-ATP # LOAD ATP2, IF ATP3 POS
036444,000306: 30,2654 00011 8D
036445,000307: 30,2655 52166 SQRT GOTO # ATP*2(9)
036446,000308: 30,2656 60665 AIMER
036447,000309: 30,2657 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
036448,000310: 30,2660 00007 6D
036449,000311: 30,2661 77761 VXSC # KH AH*2(9)
036450,000312: 30,2662 00001 00D
036451,000313: 30,2663 14001 STODL 00D # STORE NEW AH IN PDL(0)
036452,000314: 30,2664 06522 HI6ZEROS
036453,000315: 30,2665 77765 AIMER SIGN
036454,000316: 30,2666 02343 DZDOT
036455,000317: 30,2667 02361 STORE ATP
036456,000318: 30,2670 77761 VXSC
036457,000319: 30,2671 03726 ZAXIS1 # ATP ZAXIS *2(8).
036458,000320: 30,2672 53372 VSL1 VAD # AT*2(9)
036459,000321: 30,2673 00001 00D
036460,000322: 30,2674 03254 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
036461,000323: 30,2675 43001 SETPD BON
036462,000324: 30,2676 00001 00D
036463,000325: 30,2677 04704 FLPI
036464,000326: 30,2700 60220 P12RET
036465,000327: 30,2701 77614 BON
![]() |
Page 850 |
036467,000329: 30,2702 04701 FLVR
036468,000330: 30,2703 60755 CHECKALT
036469,000331: 30,2704 57575 MAINLINE VLOAD VCOMP
036470,000332: 30,2705 03537 UNIT/R/
036471,000333: 30,2706 17262 STODL UNWC/2
036472,000334: 30,2707 03654 TXO
036473,000335: 30,2710 51025 DSU BPL
036474,000336: 30,2711 01235 PIPTIME
036475,000337: 30,2712 60721 ASCTERM
036476,000338: 30,2713 77614 BON
036477,000339: 30,2714 04711 ROTFLAG
036478,000340: 30,2715 57273 ANG1CHEK
036479,000341: 30,2716 43014 CLRXFLAG CLEAR CLEAR
036480,000342: 30,2717 01664 NOR29FLG # START R29 IN ASCENT PHASE.
036481,000343: 30,2720 06666 XOVINFLG # ALLOW X-AXIS OVERRIDE
036482,000344: 30,2721 77776 ASCTERM EXIT
036483,000345: 30,2722 30105 CA FLAGWRD9
036484,000346: 30,2723 74742 MASK FLRCSBIT
036485,000347: 30,2724 10000 CCS A
036486,000348: 30,2725 12747 TCF ASCTERM3
036487,000349: 30,2726 06037 TC INTPRET
036488,000350: 30,2727 77624 CALL
036489,000351: 30,2730 61111 FINDCDUW -2
036490,000352: 30,2731 77776 ASCTERM1 EXIT
036491,000353: 30,2732 30105 +1 CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
036492,000354: 30,2733 74742 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
036493,000355: 30,2734 10000 CCS A # MODE OF OPERATION
036494,000356: 30,2735 12747 TCF ASCTERM3
036495,000357: 30,2736 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
036496,000358: 30,2737 74742 MASK FLUNDBIT # INDICATED.
036497,000359: 30,2740 10000 CCS A
036498,000360: 30,2741 12747 TCF ASCTERM3
036499,000361: 30,2742 33033 CAF V06N63*
036500,000362: 30,2743 04616 TC BANKCALL
036501,000363: 30,2744 20451 CADR GODSPR
036502,000364: 30,2745 12747 TCF ASCTERM3
036503,000365: 30,2746 77776 ASCTERM2 EXIT
036504,000366: 30,2747 15155 ASCTERM3 TCF ENDOFJOB
036505,000367: 30,2750 77776 ASCTERM4 EXIT
036506,000368: 30,2751 00004 INHINT
036507,000369: 30,2752 04674 TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
036508,000370: 30,2753 40153 CADR ZATTEROR # THE DAP ATTITUDE ERRORS.
036509,000371: 30,2754 12732 TCF ASCTERM1 +1
036510,000372:
036511,000373: 30,2755 45345 CHECKALT DLOAD DSU
036512,000374: 30,2756 02301 /R/MAG
036513,000375: 30,2757 02333 /LAND/
036514,000376: 30,2760 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION.
036515,000377: 30,2761 26700 25KFT
036516,000378: 30,2762 16667 CHECKYAW
![]() |
Page 851 |
036518,000380: 30,2763 43014 EXITVR CLEAR BON
036519,000381: 30,2764 04661 FLVR
036520,000382: 30,2765 04711 ROTFLAG
036521,000383: 30,2766 60704 MAINLINE
036522,000384: 30,2767 43345 DLOAD DAD
036523,000385: 30,2770 01235 PIPTIME
036524,000386: 30,2771 25755 10SECS
036525,000387: 30,2772 37654 STCALL TXO
036526,000388: 30,2773 60704 MAINLINE
036527,000389: 30,2774 77614 EXITVR1 CLRGO
036528,000390: 30,2775 04631 ROTFLAG
036529,000391: 30,2776 60763 EXITVR
036530,000392:
036531,000393: 27,2000 SETLOC ASENT1
036532,000394: 27,2000 BANK
036533,000395: 27,3273 COUNT* $$/ASENT
036534,000396:
036535,000397: 27,3273 50375 ANG1CHEK VLOAD DOT
036536,000398: 27,3274 03254 UNFC/2
036537,000399: 27,3275 02146 XNBPIP
036538,000400: 27,3276 51025 DSU BPL
036539,000401: 27,3277 02577 COSTHET1
036540,000402: 27,3300 57307 OFFROT
036541,000403: 27,3301 50375 VLOAD DOT
036542,000404: 27,3302 02146 XNBPIP
036543,000405: 27,3303 03537 UNIT/R/
036544,000406: 27,3304 50025 DSU BMN
036545,000407: 27,3305 02601 COSTHET2
036546,000408: 27,3306 30351 KEEPVR1
036547,000409: 27,3307 77614 OFFROT CLRGO
036548,000410: 27,3310 04631 ROTFLAG
036549,000411: 27,3311 60716 CLRXFLAG
036550,000412:
036551,000413: 07,2667 BANK 7
036552,000414: 07,2000 SETLOC ASENT2
036553,000415: 07,2000 BANK
036554,000416: 07,2667 COUNT* $$/ASENT
036555,000417:
036556,000418: 07,2667 07,2667 SETXFLAG = CHECKYAW
036557,000419:
036558,000420: 07,2667 77614 CHECKYAW SET
036559,000421: 07,2670 06466 XOVINFLG # PROHIBIT X-AXIS OVERRIDE
036560,000422: 07,2671 74345 DLOAD VXSC
036561,000423: 07,2672 02355 ATY
036562,000424: 07,2673 02303 LAXIS
036563,000425: 07,2674 74325 PDDL VXSC
036564,000426: 07,2675 02361 ATP
036565,000427: 07,2676 03726 ZAXIS1
036566,000428: 07,2677 53455 VAD UNIT
036567,000429: 07,2700 50206 PUSH DOT
![]() |
Page 852 |
036569,000431: 07,2701 02154 YNBPIP
036570,000432: 07,2702 45246 ABS DSU
036571,000433: 07,2703 13503 SIN5DEG
036572,000434: 07,2704 71244 BPL DLOAD
036573,000435: 07,2705 30347 KEEPVR
036574,000436: 07,2706 03474 RDOT
036575,000437: 07,2707 51025 DSU BPL
036576,000438: 07,2710 13505 40FPS
036577,000439: 07,2711 60774 EXITVR1
036578,000440: 07,2712 77650 GOTO
036579,000441: 07,2713 30347 KEEPVR
036580,000442:
036581,000443: 05,3502 BANK 5
036582,000444: 05,2000 SETLOC ASENT3
036583,000445: 05,2000 BANK
036584,000446: 05,3502 COUNT* $$/ASENT
036585,000447:
036586,000448: 05,3502 00545 00171 SIN5DEG 2DEC 0.08716 B-2
036587,000449: 05,3504 00017 23305 40FPS 2DEC 0.12192 B-7
036588,000450:
036589,000451: 14,2347 BANK 14
036590,000452: 14,2000 SETLOC ASENT4
036591,000453: 14,2000 BANK
036592,000454: 14,2347 COUNT* $$/ASENT
036593,000455:
036594,000456: 14,2347 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
036595,000457: 14,2350 74515 STORE UNWC/2
036596,000458: 14,2351 77775 KEEPVR1 VLOAD
036597,000459: 14,2352 03537 UNIT/R/
036598,000460: 14,2353 37254 STCALL UNFC/2
036599,000461: 14,2354 60721 ASCTERM
036600,000462:
036601,000463: 14,2355 77634 ENGOFF RTB
036602,000464: 14,2356 21573 LOADTIME
036603,000465: 14,2357 43225 DSU DAD
036604,000466: 14,2360 01235 PIPTIME
036605,000467: 14,2361 03454 TTOGO
036606,000468: 14,2362 77476 DCOMP EXIT
036607,000469: 14,2363 07257 TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
036608,000470: 14,2364 35016 CAF EBANK7
036609,000471: 14,2365 54003 TS EBANK
036610,000472: 14,2366 E7,1516 EBANK= TGO
036611,000473: 14,2366 00004 INHINT
036612,000474: 14,2367 10155 CCS MPAC +1
036613,000475: 14,2370 12373 TCF +3 # C(A) = DT - 1 BIT
036614,000476: 14,2371 12373 TCF +2 # C(A) = 0
036615,000477: 14,2372 34755 CAF ZERO # C(A) = 0
036616,000478: 14,2373 64753 AD BIT1 # C(A) = 1 BIT OR DT.
![]() |
Page 853 |
036618,000480: 14,2374 55644 TS ENGOFFDT
036619,000481: 14,2375 05173 TC TWIDDLE
036620,000482: 14,2376 02410 ADRES ENGOFF1
036621,000483: 14,2377 05353 TC PHASCHNG
036622,000484: 14,2400 47014 OCT 47014
036623,000485: 14,2401 76133 -GENADR ENGOFFDT
036624,000486: 14,2402 E7,1516 EBANK= TGO
036625,000487: 14,2402 02410 30067 2CADR ENGOFF1
036626,000488:
036627,000489: 14,2404 06037 TC INTPRET
036628,000490: 14,2405 52014 SET GOTO
036629,000491: 14,2406 03470 IDLEFLAG # DISABLE DELTA-V MONITOR
036630,000492: 14,2407 60451 T2TEST
036631,000493:
036632,000494: 14,2410 04674 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
036633,000495: 14,2411 75551 CADR ENGINOF2
036634,000496:
036635,000497: 14,2412 35027 CAF PRIO17 # SET UP A JOB FOR THE ASCENT GUIDANCE
036636,000498: 14,2413 05105 TC FINDVAC # POSTBURN LOGIC.
036637,000499: 14,2414 E7,1455 EBANK= WHICH
036638,000500: 14,2414 02424 30067 2CADR CUTOFF
036639,000501:
036640,000502: 14,2416 05353 TC PHASCHNG
036641,000503: 14,2417 07024 OCT 07024
036642,000504: 14,2420 17000 OCT 17000
036643,000505: 14,2421 E7,1516 EBANK= TGO
036644,000506: 14,2421 02424 30067 2CADR CUTOFF
036645,000507:
036646,000508: 14,2423 15261 TCF TASKOVER
036647,000509:
036648,000510: 14,2424 05504 CUTOFF TC UPFLAG # SET FLRCS FLAG.
036649,000511: 14,2425 00214 ADRES FLRCS
036650,000512:
036651,000513: 14,2426 32445 -5 CAF V16N63
036652,000514: 14,2427 04616 TC BANKCALL
036653,000515: 14,2430 20476 CADR GOFLASH
036654,000516: 14,2431 12434 TCF +3
036655,000517: 14,2432 12436 TCF CUTOFF1
036656,000518: 14,2433 12426 TCF -5
036657,000519:
036658,000520: 14,2434 04635 +3 TC POSTJUMP
036659,000521: 14,2435 61007 CADR TERMASC
036660,000522:
036661,000523: 14,2436 00004 CUTOFF1 INHINT
036662,000524: 14,2437 04674 TC IBNKCALL # ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
036663,000525: 14,2440 40153 CADR ZATTEROR
036664,000526: 14,2441 04674 TC IBNKCALL
036665,000527: 14,2442 40140 CADR SETMINDB
036666,000528: 14,2443 04635 TC POSTJUMP
036667,000529: 14,2444 60777 CADR CUTOFF2
![]() |
Page 854 |
036669,000531:
036670,000532: 14,2445 04077 V16N63 VN 1663
036671,000533: 30,2777 BANK 30
036672,000534: 30,2000 SETLOC ASENT5
036673,000535: 30,2000 BANK
036674,000536: 30,2777 COUNT* $$/ASENT
036675,000537:
036676,000538: 30,2777 05353 CUTOFF2 TC PHASCHNG
036677,000539: 30,3000 04024 OCT 04024
036678,000540:
036679,000541: 30,3001 33017 CAF V16N85C
036680,000542: 30,3002 04616 TC BANKCALL
036681,000543: 30,3003 20476 CADR GOFLASH
036682,000544: 30,3004 13007 TCF TERMASC
036683,000545: 30,3005 13007 TCF +2 # PROCEED
036684,000546: 30,3006 12777 TCF CUTOFF2
036685,000547:
036686,000548: 30,3007 05353 TERMASC TC PHASCHNG
036687,000549: 30,3010 04024 OCT 04024
036688,000550:
036689,000551: 30,3011 00004 INHINT # RESTORE DEADBAND DESIRED BY ASTRONAUT.
036690,000552: 30,3012 04674 TC IBNKCALL
036691,000553: 30,3013 40123 CADR RESTORDB
036692,000554: 30,3014 05516 TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
036693,000555: 30,3015 00215 ADRES LETABORT
036694,000556: 30,3016 16001 TCF GOTOPOOH
036695,000557:
036696,000558: 30,3017 04125 V16N85C VN 1685
036697,000559:
036698,000560: 27,3312 BANK 27
036699,000561: 27,2000 SETLOC ASENT1
036700,000562: 27,2000 BANK
036701,000563: 27,3312 COUNT* $$/ASENT
036702,000564:
036703,000565: 27,3312 50375 YCOMP VLOAD DOT
036704,000566: 27,3313 03537 UNIT/R/
036705,000567: 27,3314 03720 QAXIS
036706,000568: 27,3315 41312 SL2 DMP
036707,000569: 27,3316 03631 RCO
036708,000570: 27,3317 02335 STORE Y
036709,000571: 27,3320 77616 RVQ
036710,000572:
036711,000573: 30,3020 BANK 30
036712,000574: 30,2000 SETLOC ASENT
036713,000575: 30,2000 BANK
036714,000576:
![]() |
Page 855 |
036716,000578: # ASCENT GUIDANCE CONSTANTS
036717,000579:
036718,000580: 30,3020 33,3146 100CS EQUALS 2SEC(18)
036719,000581: 30,3020 30,3022 T2A EQUALS 2SEC(17)
036720,000582: 30,3020 00062 00000 4SEC(17) 2DEC 400 B-17
036721,000583: 30,3022 00031 00000 2SEC(17) 2DEC 200 B-17
036722,000584: 30,3024 00175 00000 T3 2DEC 1000 B-17
036723,000585: 30,3026 00045 20000 6SEC(18) 2DEC 600 B-18
036724,000586: 30,3030 00010 BIT4H OCT 10
036725,000587: 30,3031 14400 00000 2SEC(9) 2DEC 200 B-9
036726,000588: 30,3033 01477 V06N63* VN 0663
036727,000589: 30,3034 01514 V06N76 VN 0676
036728,000590: 30,3035 01441 V06N33A VN 0633
036729,000591:
036730,000592: 33,2200 BANK 33
036731,000593: 33,2000 SETLOC ASENT6
036732,000594: 33,2000 BANK
036733,000595: 33,2200 COUNT* $$/ASENT
036734,000596:
036735,000597: 33,2200 20000 00000 KT1 2DEC 0.5000
036736,000598: 33,2202 75751 41775 PRLIMIT 2DEC -.0639 # (B/TBUP)MIN=-.1FT.SEC(-3)
036737,000599: 33,2204 00022 07212 MINABDV 2DEC .0356 B-5 # 10 PERCENT BIGGER THAN GRAVITY
036738,000600: 33,2206 E7,1570 1/DV0 = MASS1
036739,000601:
![]() |
Page 856 |
036741,000603: # THE LOGARITHM SUBROUTINE
036742,000604:
036743,000605: 24,3670 BANK 24
036744,000606: 30,2000 SETLOC FLOGSUB
036745,000607: 30,2000 BANK
036746,000608:
036747,000609: # INPUT ..... X IN MPAC
036748,000610: # OUTPUT ..... -LOG(X) IN MPAC
036749,000611:
036750,000612: 30,3036 44301 LOGSUB NORM BDSU
036751,000613: 30,3037 00163 MPAC +6
036752,000614: 30,3040 17771 NEARONE
036753,000615: 30,3041 77776 EXIT
036754,000616: 30,3042 07222 TC POLY
036755,000617: 30,3043 00006 DEC 6 B-14
036756,000618: 30,3044 00000 00002 2DEC .0000000060
036757,000619: 30,3046 76777 77175 2DEC -.0312514377
036758,000620: 30,3050 77400 75416 2DEC -.0155686771
036759,000621: 30,3052 77507 65515 2DEC -.0112502068
036760,000622: 30,3054 77741 63547 2DEC -.0018545108
036761,000623: 30,3056 77052 55373 2DEC -.0286607906
036762,000624: 30,3060 01167 30361 2DEC .0385598563
036763,000625: 30,3062 76520 75267 2DEC -.0419361902
036764,000626:
036765,000627: 30,3064 34755 CAF ZERO
036766,000628: 30,3065 54156 TS MPAC +2
036767,000629: 30,3066 00006 EXTEND
036768,000630: 30,3067 33103 DCA CLOG2/32
036769,000631: 30,3070 52155 DXCH MPAC
036770,000632: 30,3071 52132 DXCH BUF +1
036771,000633: 30,3072 30162 CA MPAC +6
036772,000634: 30,3073 07307 TC SHORTMP
036773,000635: 30,3074 52156 DXCH MPAC +1
036774,000636: 30,3075 52155 DXCH MPAC
036775,000637: 30,3076 52132 DXCH BUF +1
036776,000638: 30,3077 20155 DAS MPAC
036777,000639: 30,3100 06037 TC INTPRET
036778,000640: 30,3101 43476 DCOMP RVQ
036779,000641:
036780,000642: 30,3102 00542 34414 CLOG2/32 2DEC .0216608494
036781,000643:
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc