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