GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
035879,000002: ## Copyright: Public domain.
035880,000003: ## Filename: ASCENT_GUIDANCE.agc
035881,000004: ## Purpose: A section of Luminary 1C, revision 131.
035882,000005: ## It is part of the source code for the Lunar Module's (LM)
035883,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
035884,000007: ## This file is intended to be a faithful transcription, except
035885,000008: ## that the code format has been changed to conform to the
035886,000009: ## requirements of the yaYUL assembler rather than the
035887,000010: ## original YUL assembler.
035888,000011: ## Reference: pp. 836-851
035889,000012: ## Contact: Ron Burkey <info@sandroid.org>.
035890,000013: ## Website: www.ibiblio.org/apollo/index.html
035891,000014: ## Mod history: 05/26/03 RSB. Began transcribing.
035892,000015: ## 05/14/05 RSB Corrected website reference above.
035893,000016: ## 2010-10-25 JL Added missing # in comments.
035894,000017: ## 2017-01-06 RSB Page numbers now agree with those on the
035895,000018: ## original hardcopy, as opposed to the PDF page
035896,000019: ## numbers in 1701.pdf.
035897,000020: ## 2017-02-26 RSB Proofed comment text using octopus/ProoferComments.
035898,000021: ## 2017-03-01 RSB Fixed lingering typos.
035899,000022: ## 2017-03-14 RSB Comment-text fixes identified in 5-way
035900,000023: ## side-by-side diff of Luminary 69/99/116/131/210.
035901,000024:
|
|
Page 836 |
035903,000026: 34,3372 BANK 34
035904,000027: 34,2000 SETLOC ASCFILT
035905,000028: 34,2000 BANK
035906,000029:
035907,000030: 34,3372 E7,1515 EBANK= DVCNTR
035908,000031:
035909,000032: 34,3372 COUNT* $$/ASENT
035910,000033:
035911,000034: 34,3372 05353 ATMAG TC PHASCHNG
035912,000035: 34,3373 00035 OCT 00035
035913,000036: 34,3374 06042 TC INTPRET
035914,000037: 34,3375 77614 BON
035915,000038: 34,3376 04705 FLRCS
035916,000039: 34,3377 60315 ASCENT
035917,000040: 34,3400 45345 DLOAD DSU
035918,000041: 34,3401 03514 ABDVCONV
035919,000042: 34,3402 26203 MINABDV
035920,000043: 34,3403 43040 BMN CLEAR
035921,000044: 34,3404 60756 ASCTERM4
035922,000045: 34,3405 04267 SURFFLAG
035923,000046: 34,3406 67214 CLEAR SLOAD
035924,000047: 34,3407 02676 RENDWFLG
035925,000048: 34,3410 31446 BIT3H
035926,000049: 34,3411 77471 DDV EXIT
035927,000050: 34,3412 03514 ABDVCONV
035928,000051: 34,3413 52155 DXCH MPAC
035929,000052: 34,3414 53641 DXCH 1/DV3
035930,000053: 34,3415 53637 DXCH 1/DV2
035931,000054: 34,3416 53635 DXCH 1/DV1
035932,000055: 34,3417 53571 DXCH 1/DV0
035933,000056: 34,3420 06042 TC INTPRET
035934,000057: 34,3421 43345 DLOAD DAD
035935,000058: 34,3422 03571 1/DV0
035936,000059: 34,3423 03635 1/DV1
035937,000060: 34,3424 43215 DAD DAD
035938,000061: 34,3425 03637 1/DV2
035939,000062: 34,3426 03641 1/DV3
035940,000063: 34,3427 41205 DMP DMP
035941,000064: 34,3430 02265 VE
035942,000065: 34,3431 21017 2SEC(9)
035943,000066: 34,3432 65252 SL3 PDDL
035944,000067: 34,3433 02271 TBUP
035945,000068: 34,3434 43342 SR1 DAD
035946,000069: 34,3435 77625 DSU
035947,000070: 34,3436 21014 6SEC(18)
035948,000071: 34,3437 16271 STODL TBUP
035949,000072: 34,3440 02265 VE
035950,000073: 34,3441 56342 SR1 DDV
035951,000074: 34,3442 02271 TBUP
035952,000075: 34,3443 36263 STCALL AT
|
|
Page 837 |
035954,000077: 34,3444 60315 ASCENT
035955,000078: 34,3445 00004 BIT3H OCT 4
035956,000079:
|
|
Page 838 |
035958,000081: 30,2315 BANK 30
035959,000082: 30,2000 SETLOC ASENT
035960,000083: 30,2000 BANK
035961,000084: 30,2315 COUNT* $$/ASENT
035962,000085:
035963,000086: 30,2315 51575 ASCENT VLOAD ABVAL
035964,000087: 30,2316 03521 R
035965,000088: 30,2317 26301 STOVL /R/MAG
035966,000089: 30,2320 03726 ZAXIS1
035967,000090: 30,2321 72441 DOT SL1
035968,000091: 30,2322 03527 V # Z.V = ZDOT*2(-8).
035969,000092: 30,2323 26313 STOVL ZDOT # ZDOT*2(-7)
035970,000093: 30,2324 03726 ZAXIS1
035971,000094: 30,2325 76435 VXV VSL1
035972,000095: 30,2326 03537 UNIT/R/ # Z X UR = LAXIS*2(-2)
035973,000096: 30,2327 02303 STORE LAXIS # LAXIS*2(-1)
035974,000097: 30,2330 72441 DOT SL1
035975,000098: 30,2331 03527 V # L.V = YDOT*2(-8).
035976,000099: 30,2332 36311 STCALL YDOT # YDOT * 2(-7)
035977,000100: 30,2333 57313 YCOMP
035978,000101: 30,2334 77775 VLOAD
035979,000102: 30,2335 03563 GDT1/2 # LOAD GDT1/2*2(-7) M/CS.
035980,000103: 30,2336 50341 V/SC DOT
035981,000104: 30,2337 27104 2SEC(18)
035982,000105: 30,2340 03537 UNIT/R/ # G.UR*2(9) = GR*2(9).
035983,000106: 30,2341 47315 PDVL VXV # STORE IN PDL(0) (2)
035984,000107: 30,2342 03537 UNIT/R/ # LOAD UNIT/R/ *2(-1).
035985,000108: 30,2343 03527 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
035986,000109: 30,2344 56236 VSQ DDV # H(2)/R(2)*2(-16).
035987,000110: 30,2345 02301 /R/MAG # H(2)/R(3)*2(9).
035988,000111: 30,2346 43352 SL1 DAD
035989,000112: 30,2347 77626 STADR
035990,000113: 30,2350 75462 STORE GEFF # GEFF*2(10) M/CS/CS
035991,000114: 30,2351 45014 BOFF CALL # IF P7071FLG = 1 (I.E. P70 OR P71)
035992,000115: 30,2352 04742 P7071FLG # CALL ZDOTDCMP TO UPDATE ZDOTD
035993,000116: 30,2353 60355 +2 # ON THE BASIS OF THE LAST RP.
035994,000117: 30,2354 71524 ZDOTDCMP
035995,000118: 30,2355 45345 +2 DLOAD DSU
035996,000119: 30,2356 02277 ZDOTD
035997,000120: 30,2357 02313 ZDOT
035998,000121: 30,2360 02343 STORE DZDOT # DZDOT = (ZDOTD - ZDOT) * 2(7) M/CS.
035999,000122: 30,2361 65361 VXSC PDDL
036000,000123: 30,2362 03726 ZAXIS1
036001,000124: 30,2363 02275 YDOTD
036002,000125: 30,2364 77625 DSU
036003,000126: 30,2365 02311 YDOT
|
|
Page 839 |
036005,000128: 30,2366 02341 STORE DYDOT # DYDOT = (YDOTD - YDOT) *2(7) M/CS.
036006,000129: 30,2367 65361 VXSC PDDL
036007,000130: 30,2370 02303 LAXIS
036008,000131: 30,2371 02273 RDOTD
036009,000132: 30,2372 77625 DSU
036010,000133: 30,2373 03474 RDOT
036011,000134: 30,2374 02337 STORE DRDOT # DRDOT = (RDOTD - RDOT) * 2(7) M/CS.
036012,000135: 30,2375 53361 VXSC VAD
036013,000136: 30,2376 03537 UNIT/R/
036014,000137: 30,2377 76455 VAD VSL1
036015,000138: 30,2400 77626 STADR
036016,000139: 30,2401 74131 STORE VGVECT # VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
036017,000140: 30,2402 41345 DLOAD DMP # LOAD TGO
036018,000141: 30,2403 03517 TGO # TGO GEFF
036019,000142: 30,2404 02315 GEFF
036020,000143: 30,2405 76561 VXSC VSL1
036021,000144: 30,2406 03537 UNIT/R/ # TGO GEFF UR
036022,000145: 30,2407 77645 BVSU
036023,000146: 30,2410 03646 VGVECT # COMPENSATED FOR GEFF
036024,000147: 30,2411 03646 STORE VGVECT # STORE FOR DOWNLINK
036025,000148: 30,2412 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
036026,000149: 30,2413 02146 XNBPIP
036027,000150: 30,2414 27502 STOVL VGBODY
036028,000151: 30,2415 03646 VGVECT
036029,000152: 30,2416 43046 ABVAL BOFF # MAGNITUDE OF VGVECT
036030,000153: 30,2417 04745 FLRCS # IF FLRCS=0,DO NORMAL GUIDANCE
036031,000154: 30,2420 60427 MAINENG
036032,000155: 30,2421 77671 DDV # USE TGO=VG/AT WITH RCS
036033,000156: 30,2422 20001 AT/RCS
036034,000157: 30,2423 37517 STCALL TGO # THIS WILL BE USED ON NEXT CYCLE
036035,000158: 30,2424 71475 RPCOMP1 # COMPUTE NEW RP FOR NEXT CYCLE.
036036,000159: 30,2425 77650 GOTO
036037,000160: 30,2426 60754 ASCTERM2
036038,000161: 30,2427 41471 MAINENG DDV PUSH # VG/VE IN PDL(0) (2)
036039,000162: 30,2430 02265 VE
036040,000163: 30,2431 44342 SR1 BDSU # 1 - VG / 2 VE
036041,000164: 30,2432 17772 NEARONE
036042,000165: 30,2433 41205 DMP DMP # TBUP VG(1-KT VG/VE)/VE (0)
036043,000166: 30,2434 02271 TBUP # = TGO
036044,000167: 30,2435 77625 DSU # COMPENSATE FOR TAILOFF
036045,000168: 30,2436 02267 TTO
036046,000169: 30,2437 03517 STORE TGO
036047,000170: 30,2440 57461 SR DCOMP
036048,000171: 30,2441 20614 11D
036049,000172: 30,2442 17454 STODL TTOGO # TGO *2(-28) CS
036050,000173: 30,2443 03517 TGO
036051,000174: 30,2444 45214 BON DSU
036052,000175: 30,2445 03710 IDLEFLAG
036053,000176: 30,2446 60452 T2TEST
036054,000177: 30,2447 21006 4SEC(17) # ( TGO - 4 )*2(-17) CS.
036055,000178:
|
|
Page 840 |
036057,000180: 30,2450 77640 BMN
036058,000181: 30,2451 30347 ENGOFF
036059,000182: 30,2452 77745 T2TEST DLOAD
036060,000183: 30,2453 03517 TGO
036061,000184: 30,2454 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
036062,000185: 30,2455 21010 T2A
036063,000186: 30,2456 60612 CMPONENT
036064,000187: 30,2457 45345 DLOAD DSU
036065,000188: 30,2460 02271 TBUP
036066,000189: 30,2461 03517 TGO
036067,000190: 30,2462 45071 DDV CALL # 1- TGO/TBUP
036068,000191: 30,2463 02271 TBUP
036069,000192: 30,2464 61023 LOGSUB
036070,000193: 30,2465 41461 SL PUSH # -L IN PDL(0) (2)
036071,000194: 30,2466 20206 5
036072,000195: 30,2467 44265 BDDV BDSU # -TGO/L*2(-17)
036073,000196: 30,2470 03517 TGO
036074,000197: 30,2471 02271 TBUP # TBUP + TGO/L = D12*2(-17)
036075,000198: 30,2472 43006 PUSH BON # STORE IN PDL(2) (4)
036076,000199: 30,2473 04703 FLPC # IF FLPC = 1, GO TO CONST
036077,000200: 30,2474 60503 NORATES
036078,000201: 30,2475 45345 DLOAD DSU
036079,000202: 30,2476 03517 TGO
036080,000203: 30,2477 21012 T3
036081,000204: 30,2500 43044 BPL SET # FLPC=1
036082,000205: 30,2501 60510 RATES
036083,000206: 30,2502 04463 FLPC
036084,000207: 30,2503 77745 NORATES DLOAD
036085,000208: 30,2504 06524 HI6ZEROS
036086,000209: 30,2505 02351 STORE PRATE # B = 0
036087,000210: 30,2506 36353 STCALL YRATE # D = 0
036088,000211: 30,2507 60572 CONST # GO TO CONST
036089,000212: 30,2510 45345 RATES DLOAD DSU
036090,000213: 30,2511 03517 TGO
036091,000214: 30,2512 00003 02D # TGO - D12 = D21*2(-17)
036092,000215: 30,2513 72406 PUSH SL1 # IN PDL(4) (6)
036093,000216: 30,2514 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
036094,000217: 30,2515 03517 TGO # (8)
036095,000218: 30,2516 41325 PDDL DMP # IN PDL(6)
036096,000219: 30,2517 03517 TGO
036097,000220: 30,2520 03474 RDOT # RDOT TGO * 2(-24)
036098,000221: 30,2521 45215 DAD DSU # R + RDOT TGO
036099,000222: 30,2522 02301 /R/MAG # R + RDOT TGO - RCO
036100,000223: 30,2523 03631 RCO # MPAC = -DR *2(-24).
036101,000224: 30,2524 41325 PDDL DMP # -DR IN PDL(8) (10)
036102,000225: 30,2525 02337 DRDOT
036103,000226: 30,2526 00005 04D # D21 DRDOT*2(-24)
036104,000227: 30,2527 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
036105,000228: 30,2530 56271 DDV DDV
036106,000229: 30,2531 00007 06D # (D21 DRDOT-DR)/E*2(-9)
|
|
Page 841 |
036108,000231: 30,2532 03517 TGO
036109,000232: 30,2533 02351 STORE PRATE # B * 2(8)
036110,000233: 30,2534 71240 BMN DLOAD # B>0 NOT PERMITTED
036111,000234: 30,2535 60541 CHKBMAG
036112,000235: 30,2536 06524 HI6ZEROS
036113,000236: 30,2537 36351 STCALL PRATE
036114,000237: 30,2540 60553 PROK
036115,000238: 30,2541 56202 CHKBMAG SR4 DDV # B*2(4)
036116,000239: 30,2542 02271 TBUP # (B / TAU) * 2(21)
036117,000240: 30,2543 51025 DSU BPL
036118,000241: 30,2544 26201 PRLIMIT # ( B / TAU ) * 2(21) MAX.
036119,000242: 30,2545 60553 PROK
036120,000243: 30,2546 41345 DLOAD DMP
036121,000244: 30,2547 26201 PRLIMIT
036122,000245: 30,2550 02271 TBUP # B MAX. * 2(4)
036123,000246: 30,2551 77612 SL4 # BMAX*2(8)
036124,000247: 30,2552 02351 STORE PRATE
036125,000248: 30,2553 77745 PROK DLOAD
036126,000249: 30,2554 03517 TGO
036127,000250: 30,2555 43205 DMP DAD # YDOT TGO
036128,000251: 30,2556 02311 YDOT
036129,000252: 30,2557 02335 Y # Y + YDOT TGO
036130,000253: 30,2560 65225 DSU PDDL # Y + YDOT TGO - YCO
036131,000254: 30,2561 03633 YCO # MPAC = - DY*2(-24.) IN PDL(8) (10)
036132,000255: 30,2562 02341 DYDOT
036133,000256: 30,2563 43205 DMP DAD # D21 DYDOT - DY (8)
036134,000257: 30,2564 00005 04D
036135,000258: 30,2565 56312 SL2 DDV # (D21 DYDOT - DY)/E*2(-9)
036136,000259: 30,2566 40271 DDV SETPD # (D21 DYDOT - DY)/E TGO*2(8)
036137,000260: 30,2567 03517 TGO # = D*2(8)
036138,000261: 30,2570 00005 04
036139,000262: 30,2571 02353 STORE YRATE
036140,000263: 30,2572 41345 CONST DLOAD DMP # LOAD B*2(8)
036141,000264: 30,2573 02351 PRATE # B D12*2(-9)
036142,000265: 30,2574 00003 02D
036143,000266: 30,2575 56325 PDDL DDV # D12 B IN PDL(4) (6)
036144,000267: 30,2576 02337 DRDOT # LOAD DRDOT*2(-7)
036145,000268: 30,2577 00001 00D # -DRDOT/L*2(-7)
036146,000269: 30,2600 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
036147,000270: 30,2601 77626 STADR
036148,000271: 30,2602 61432 STODL PCONS
036149,000272: 30,2603 02353 YRATE # D*2(8)
036150,000273: 30,2604 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
036151,000274: 30,2605 60465 BDDV SR2 # -DYDOT/L*2(-9)
036152,000275: 30,2606 02341 DYDOT
036153,000276: 30,2607 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
036154,000277: 30,2610 00001 00D
036155,000278: 30,2611 02347 STORE YCONS
036156,000279: 30,2612 43001 CMPONENT SETPD BOFF
036157,000280: 30,2613 00001 00D
|
|
Page 842 |
036159,000282: 30,2614 04742 P7071FLG
036160,000283: 30,2615 60620 +3 # IF P7071FLG = 1 (I.E. P70 OR P71)
036161,000284: 30,2616 77624 CALL # COMPUTE NEW RP FOR NEXT CYCLE.
036162,000285: 30,2617 71501 RPCOMP2
036163,000286: 30,2620 41345 +3 DLOAD DMP
036164,000287: 30,2621 27104 100CS
036165,000288: 30,2622 02351 PRATE # B(T-T0)*2(-9)
036166,000289: 30,2623 56215 DAD DDV # (A+B(T-T0))*2(-9)
036167,000290: 30,2624 02345 PCONS # (A+B(T-T0))/TBUP*2(8)
036168,000291: 30,2625 02271 TBUP
036169,000292: 30,2626 45352 SL1 DSU
036170,000293: 30,2627 02315 GEFF # ATR*2(9)
036171,000294: 30,2630 16357 STODL ATR
036172,000295: 30,2631 27104 100CS
036173,000296: 30,2632 43205 DMP DAD
036174,000297: 30,2633 02353 YRATE
036175,000298: 30,2634 02347 YCONS # (C+D(T-T0))*2(-9)
036176,000299: 30,2635 72471 DDV SL1
036177,000300: 30,2636 02271 TBUP
036178,000301: 30,2637 02355 STORE ATY # ATY*2(9)
036179,000302: 30,2640 65361 VXSC PDDL # ATY UY*2(8) (6)
036180,000303: 30,2641 02303 LAXIS
036181,000304: 30,2642 02357 ATR
036182,000305: 30,2643 53361 VXSC VAD # (0)
036183,000306: 30,2644 03537 UNIT/R/
036184,000307: 30,2645 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
036185,000308: 30,2646 65246 ABVAL PDDL # AH(2) IN PDL(34)
036186,000309: 30,2647 02263 AT # AHMAG IN PDL(6) (8)
036187,000310: 30,2650 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
036188,000311: 30,2651 00043 34D # =ATP2*2(18)
036189,000312: 30,2652 41525 PDDL PUSH # (12)
036190,000313: 30,2653 02263 AT
036191,000314: 30,2654 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
036192,000315: 30,2655 00043 34D # =ATP3*2(18)
036193,000316: 30,2656 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
036194,000317: 30,2657 60663 NO-ATP # LOAD ATP2, IF ATP3 POS
036195,000318: 30,2660 00011 8D
036196,000319: 30,2661 52166 SQRT GOTO # ATP*2(9)
036197,000320: 30,2662 60671 AIMER
036198,000321: 30,2663 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
036199,000322: 30,2664 00007 6D
036200,000323: 30,2665 77761 VXSC # KH AH*2(9)
036201,000324: 30,2666 00001 00D
036202,000325: 30,2667 14001 STODL 00D # STORE NEW AH IN PDL(0)
036203,000326: 30,2670 06524 HI6ZEROS
036204,000327: 30,2671 77765 AIMER SIGN
036205,000328: 30,2672 02343 DZDOT
036206,000329: 30,2673 02361 STORE ATP
036207,000330: 30,2674 77761 VXSC
036208,000331: 30,2675 03726 ZAXIS1 # ATP ZAXIS *2(8).
|
|
Page 843 |
036210,000333: 30,2676 53372 VSL1 VAD # AT*2(9)
036211,000334: 30,2677 00001 00D
036212,000335: 30,2700 03253 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
036213,000336: 30,2701 43001 SETPD BON
036214,000337: 30,2702 00001 00D
036215,000338: 30,2703 04704 FLPI
036216,000339: 30,2704 60216 P12RET
036217,000340: 30,2705 77614 BON
036218,000341: 30,2706 04701 FLVR
036219,000342: 30,2707 60763 CHECKALT
036220,000343: 30,2710 57575 MAINLINE VLOAD VCOMP
036221,000344: 30,2711 03537 UNIT/R/
036222,000345: 30,2712 17261 STODL UNWC/2
036223,000346: 30,2713 03654 TXO
036224,000347: 30,2714 51025 DSU BPL
036225,000348: 30,2715 01234 PIPTIME
036226,000349: 30,2716 60730 ASCTERM
036227,000350: 30,2717 77614 BON
036228,000351: 30,2720 04711 ROTFLAG
036229,000352: 30,2721 57273 ANG1CHEK
036230,000353: 30,2722 43014 CLRXFLAG CLEAR BON # ALLOW X-AXIS OVERRIDE
036231,000354: 30,2723 06666 XOVINFLG
036232,000355: 30,2724 04702 P7071FLG # ONLY ACTIVATE R29 IF IN P12.
036233,000356: 30,2725 60730 ASCTERM
036234,000357: 30,2726 77614 CLEAR
036235,000358: 30,2727 01664 NOR29FLG
036236,000359: 30,2730 77776 ASCTERM EXIT
036237,000360: 30,2731 30105 CA FLAGWRD9
036238,000361: 30,2732 74742 MASK FLRCSBIT
036239,000362: 30,2733 10000 CCS A
036240,000363: 30,2734 12755 TCF ASCTERM3
036241,000364: 30,2735 06042 TC INTPRET
036242,000365: 30,2736 77624 CALL
036243,000366: 30,2737 61100 FINDCDUW -2
036244,000367: 30,2740 77776 ASCTERM1 EXIT
036245,000368: 30,2741 30105 +1 CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
036246,000369: 30,2742 74742 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
036247,000370: 30,2743 10000 CCS A # MODE OF OPERATION
036248,000371: 30,2744 12755 TCF ASCTERM3
036249,000372: 30,2745 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
036250,000373: 30,2746 74742 MASK FLUNDBIT # INDICATED.
036251,000374: 30,2747 10000 CCS A
036252,000375: 30,2750 12755 TCF ASCTERM3
036253,000376: 30,2751 33020 CAF V06N63*
036254,000377: 30,2752 04616 TC BANKCALL
036255,000378: 30,2753 20444 CADR GODSP
036256,000379: 30,2754 77776 ASCTERM2 EXIT
036257,000380: 30,2755 15155 ASCTERM3 TCF ENDOFJOB
036258,000381: 30,2756 77776 ASCTERM4 EXIT
036259,000382: 30,2757 00004 INHINT
|
|
Page 844 |
036261,000384: 30,2760 04674 TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
036262,000385: 30,2761 40166 CADR STOPRATE # THE DAP COMMANDED RATES.
036263,000386: 30,2762 12741 TCF ASCTERM1 +1
036264,000387:
036265,000388: 30,2763 45345 CHECKALT DLOAD DSU
036266,000389: 30,2764 02301 /R/MAG
036267,000390: 30,2765 02333 /LAND/
036268,000391: 30,2766 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION.
036269,000392: 30,2767 26205 25KFT
036270,000393: 30,2770 16666 CHECKYAW
036271,000394: 30,2771 43014 EXITVR CLEAR BON
036272,000395: 30,2772 04661 FLVR
036273,000396: 30,2773 04711 ROTFLAG
036274,000397: 30,2774 60710 MAINLINE
036275,000398: 30,2775 43345 DLOAD DAD
036276,000399: 30,2776 01234 PIPTIME
036277,000400: 30,2777 25734 10SECS
036278,000401: 30,3000 37654 STCALL TXO
036279,000402: 30,3001 60710 MAINLINE
036280,000403: 30,3002 77614 EXITVR1 CLRGO
036281,000404: 30,3003 04631 ROTFLAG
036282,000405: 30,3004 60771 EXITVR
036283,000406:
036284,000407: 27,2000 SETLOC ASENT1
036285,000408: 27,2000 BANK
036286,000409: 27,3273 COUNT* $$/ASENT
036287,000410:
036288,000411: 27,3273 53575 ANG1CHEK VLOAD UNIT
036289,000412: 27,3274 03253 UNFC/2
036290,000413: 27,3275 77641 DOT
036291,000414: 27,3276 02146 XNBPIP
036292,000415: 27,3277 51025 DSU BPL
036293,000416: 27,3300 02571 COSTHET1
036294,000417: 27,3301 57310 OFFROT
036295,000418: 27,3302 50375 VLOAD DOT
036296,000419: 27,3303 02146 XNBPIP
036297,000420: 27,3304 03537 UNIT/R/
036298,000421: 27,3305 50025 DSU BMN
036299,000422: 27,3306 02573 COSTHET2
036300,000423: 27,3307 71450 KEEPVR1
036301,000424: 27,3310 77614 OFFROT CLRGO
036302,000425: 27,3311 04631 ROTFLAG
036303,000426: 27,3312 60722 CLRXFLAG
036304,000427:
036305,000428: 07,2666 BANK 7
036306,000429: 07,2000 SETLOC ASENT2
036307,000430: 07,2000 BANK
036308,000431: 07,2666 COUNT* $$/ASENT
036309,000432:
036310,000433: 07,2666 07,2666 SETXFLAG = CHECKYAW
036311,000434:
|
|
Page 845 |
036313,000436: 07,2666 77614 CHECKYAW SET
036314,000437: 07,2667 06466 XOVINFLG # PROHIBIT X-AXIS OVERRIDE
036315,000438: 07,2670 74345 DLOAD VXSC
036316,000439: 07,2671 02355 ATY
036317,000440: 07,2672 02303 LAXIS
036318,000441: 07,2673 74325 PDDL VXSC
036319,000442: 07,2674 02361 ATP
036320,000443: 07,2675 03726 ZAXIS1
036321,000444: 07,2676 53455 VAD UNIT
036322,000445: 07,2677 45325 PDDL DSU
036323,000446: 07,2700 03474 RDOT
036324,000447: 07,2701 13504 40FPS
036325,000448: 07,2702 52044 BPL GOTO
036326,000449: 07,2703 61002 EXITVR1
036327,000450: 07,2704 71446 KEEPVR
036328,000451:
036329,000452: 05,3503 BANK 5
036330,000453: 05,2000 SETLOC ASENT3
036331,000454: 05,2000 BANK
036332,000455: 05,3503 COUNT* $$/ASENT
036333,000456:
036334,000457: 05,3503 00017 23305 40FPS 2DEC 0.12192 B-7
036335,000458:
036336,000459: 34,3446 BANK 34
036337,000460: 34,2000 SETLOC ASENT8
036338,000461: 34,2000 BANK
036339,000462: 34,3446 COUNT* $$/ASENT
036340,000463:
036341,000464: 34,3446 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
036342,000465: 34,3447 74516 STORE UNWC/2
036343,000466: 34,3450 77775 KEEPVR1 VLOAD
036344,000467: 34,3451 03537 UNIT/R/
036345,000468: 34,3452 37253 STCALL UNFC/2
036346,000469: 34,3453 60730 ASCTERM
036347,000470:
036348,000471: 14,2347 BANK 14
036349,000472: 14,2000 SETLOC ASENT4
036350,000473: 14,2000 BANK
036351,000474: 14,2347 COUNT* $$/ASENT
036352,000475:
036353,000476: 14,2347 77634 ENGOFF RTB
036354,000477: 14,2350 21574 LOADTIME
036355,000478: 14,2351 43225 DSU DAD
036356,000479: 14,2352 01234 PIPTIME
036357,000480: 14,2353 03454 TTOGO
036358,000481: 14,2354 77476 DCOMP EXIT
036359,000482: 14,2355 07262 TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
036360,000483: 14,2356 35016 CAF EBANK7
036361,000484: 14,2357 54003 TS EBANK
|
|
Page 846 |
036363,000486: 14,2360 E7,1516 EBANK= TGO
036364,000487: 14,2360 00004 INHINT
036365,000488: 14,2361 10155 CCS MPAC +1
036366,000489: 14,2362 12365 TCF +3 # C(A) = DT - 1 BIT
036367,000490: 14,2363 12365 TCF +2 # C(A) = 0
036368,000491: 14,2364 34755 CAF ZERO # C(A) = 0
036369,000492: 14,2365 64753 AD BIT1 # C(A) = 1 BIT OR DT.
036370,000493: 14,2366 55644 TS ENGOFFDT
036371,000494: 14,2367 05173 TC TWIDDLE
036372,000495: 14,2370 02402 ADRES ENGOFF1
036373,000496: 14,2371 05353 TC PHASCHNG
036374,000497: 14,2372 47014 OCT 47014
036375,000498: 14,2373 76133 -GENADR ENGOFFDT
036376,000499: 14,2374 E7,1516 EBANK= TGO
036377,000500: 14,2374 02402 30067 2CADR ENGOFF1
036378,000501:
036379,000502: 14,2376 06042 TC INTPRET
036380,000503: 14,2377 52014 SET GOTO
036381,000504: 14,2400 03470 IDLEFLAG # DISABLE DELTA-V MONITOR
036382,000505: 14,2401 60452 T2TEST
036383,000506:
036384,000507: 14,2402 04674 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
036385,000508: 14,2403 75555 CADR ENGINOF2
036386,000509:
036387,000510: 14,2404 35027 CAF PRIO17 # SET UP A JOB FOR THE ASCENT GUIDANCE
036388,000511: 14,2405 05105 TC FINDVAC # POSTBURN LOGIC.
036389,000512: 14,2406 E7,1455 EBANK= WHICH
036390,000513: 14,2406 02416 30067 2CADR CUTOFF
036391,000514:
036392,000515: 14,2410 05353 TC PHASCHNG
036393,000516: 14,2411 07024 OCT 07024
036394,000517: 14,2412 17000 OCT 17000
036395,000518: 14,2413 E7,1516 EBANK= TGO
036396,000519: 14,2413 02416 30067 2CADR CUTOFF
036397,000520:
036398,000521: 14,2415 15261 TCF TASKOVER
036399,000522:
036400,000523: 14,2416 05504 CUTOFF TC UPFLAG # SET FLRCS FLAG.
036401,000524: 14,2417 00214 ADRES FLRCS
036402,000525:
036403,000526: 14,2420 32437 -5 CAF V16N63
036404,000527: 14,2421 04616 TC BANKCALL
036405,000528: 14,2422 20477 CADR GOFLASH
036406,000529: 14,2423 12426 TCF +3
036407,000530: 14,2424 12430 TCF CUTOFF1
036408,000531: 14,2425 12420 TCF -5
036409,000532:
036410,000533: 14,2426 04635 +3 TC POSTJUMP
036411,000534: 14,2427 71464 CADR TERMASC
|
|
Page 847 |
036413,000536:
036414,000537: 14,2430 00004 CUTOFF1 INHINT
036415,000538: 14,2431 04674 TC IBNKCALL # ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
036416,000539: 14,2432 40154 CADR ZATTEROR
036417,000540: 14,2433 04674 TC IBNKCALL
036418,000541: 14,2434 40141 CADR SETMINDB
036419,000542: 14,2435 04635 TC POSTJUMP
036420,000543: 14,2436 71454 CADR CUTOFF2
036421,000544:
036422,000545: 14,2437 04077 V16N63 VN 1663
036423,000546: 34,3454 BANK 34
036424,000547: 34,2000 SETLOC ASENT8
036425,000548: 34,2000 BANK
036426,000549: 34,3454 COUNT* $$/ASENT
036427,000550:
036428,000551: 34,3454 05353 CUTOFF2 TC PHASCHNG
036429,000552: 34,3455 04024 OCT 04024
036430,000553:
036431,000554: 34,3456 33474 CAF V16N85C
036432,000555: 34,3457 04616 TC BANKCALL
036433,000556: 34,3460 20477 CADR GOFLASH
036434,000557: 34,3461 13464 TCF TERMASC
036435,000558: 34,3462 13464 TCF +2 # PROCEED
036436,000559: 34,3463 13454 TCF CUTOFF2
036437,000560:
036438,000561: 34,3464 05353 TERMASC TC PHASCHNG
036439,000562: 34,3465 04024 OCT 04024
036440,000563:
036441,000564: 34,3466 00004 INHINT # RESTORE DEADBAND DESIRED BY ASTRONAUT.
036442,000565: 34,3467 04674 TC IBNKCALL
036443,000566: 34,3470 40115 CADR RESTORDB
036444,000567: 34,3471 05516 TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
036445,000568: 34,3472 00215 ADRES LETABORT
036446,000569: 34,3473 16001 TCF GOTOPOOH
036447,000570:
036448,000571: 34,3474 04125 V16N85C VN 1685
036449,000572:
036450,000573: 34,3475 77745 RPCOMP1 DLOAD # FLRCS = 1 (TRIM MODE)
036451,000574: 34,3476 06524 HI6ZEROS
036452,000575: 34,3477 02345 STORE PCONS # SET PCONS = PRATE = 0 SO THAT
036453,000576: 34,3500 02351 STORE PRATE # RP = R + RDOT TGO
036454,000577: 34,3501 41345 RPCOMP2 DLOAD DMP # FLRCS = 0 (GUIDANCE MODE)
036455,000578: 34,3502 02351 PRATE # LEAVE PCONS AND PRATE ALONE SO THAT
036456,000579: 34,3503 03517 TGO # RP = R + RDOT TGO + (PCONS*TGO**2)/
036457,000580: 34,3504 43205 DMP DAD # (2 TBUP) + (PRATE*TGO**3)/(6 TBUP)
036458,000581: 34,3505 33645 THIRD
036459,000582: 34,3506 02345 PCONS
036460,000583: 34,3507 41205 DMP DMP
036461,000584: 34,3510 03517 TGO
036462,000585: 34,3511 03517 TGO
036463,000586: 34,3512 72471 DDV SL1
|
|
Page 848 |
036465,000588: 34,3513 02271 TBUP
036466,000589: 34,3514 65215 DAD PDDL
036467,000590: 34,3515 02301 /R/MAG
036468,000591: 34,3516 03474 RDOT
036469,000592: 34,3517 43205 DMP DAD
036470,000593: 34,3520 03517 TGO
036471,000594: 34,3521 77626 STADR
036472,000595: 34,3522 75152 STORE RP
036473,000596: 34,3523 77616 RVQ
036474,000597:
036475,000598: 34,3524 45020 ZDOTDCMP STQ CALL # COMPUTE CENTRAL ANGLE (0)
036476,000599: 34,3525 02574 ASCSAVE
036477,000600: 34,3526 71554 THETCOMP
036478,000601: 34,3527 43205 DMP DAD # CENTRAL ANGLE IN MPAC
036479,000602: 34,3530 02623 KPARM
036480,000603: 34,3531 02621 JPARM
036481,000604: 34,3532 41425 DSU PUSH # RA IN MPAC AND IN PUSHLIST (2)
036482,000605: 34,3533 02625 RP
036483,000606: 34,3534 51025 DSU BPL
036484,000607: 34,3535 02563 RAMIN
036485,000608: 34,3536 71541 +3
036486,000609: 34,3537 65345 DLOAD PDDL # RA < RAMIN. SET RA = RAMIN. (2)
036487,000610: 34,3540 02563 RAMIN
036488,000611: 34,3541 41345 +3 DLOAD DMP
036489,000612: 34,3542 00001 0D
036490,000613: 34,3543 16025 MUM(-37)
036491,000614: 34,3544 77725 PDDL
036492,000615: 34,3545 41215 DAD DMP
036493,000616: 34,3546 02625 RP
036494,000617: 34,3547 02625 RP
036495,000618: 34,3550 75465 BDDV SQRT # (0)
036496,000619: 34,3551 77626 STADR
036497,000620: 34,3552 41500 STCALL ZDOTD # UPDATE ZDOTD FOR GUIDANCE AND DOWNLINK.
036498,000621: 34,3553 02574 ASCSAVE
036499,000622:
036500,000623: 34,3554 53575 THETCOMP VLOAD UNIT
036501,000624: 34,3555 03521 R
036502,000625: 34,3556 53515 PDVL UNIT # (6)
036503,000626: 34,3557 01720 R(CSM)
036504,000627: 34,3560 47206 PUSH VXV # (12)
036505,000628: 34,3561 00001 0D
036506,000629: 34,3562 77641 DOT
036507,000630: 34,3563 02325 WM
036508,000631: 34,3564 24037 STOVL 30D # (6)
036509,000632: 34,3565 72441 DOT SL1 # (0)
036510,000633: 34,3566 75326 ARCCOS SIGN
036511,000634: 34,3567 00037 30D
036512,000635: 34,3570 77616 RVQ
036513,000636:
036514,000637: 34,3571 E5,1574 ASCSAVE = CG
036515,000638:
|
|
Page 849 |
036517,000640: 27,3313 BANK 27
036518,000641: 27,2000 SETLOC ASENT1
036519,000642: 27,2000 BANK
036520,000643: 27,3313 COUNT* $$/ASENT
036521,000644:
036522,000645: 27,3313 50375 YCOMP VLOAD DOT
036523,000646: 27,3314 03537 UNIT/R/
036524,000647: 27,3315 03720 QAXIS
036525,000648: 27,3316 41312 SL2 DMP
036526,000649: 27,3317 03631 RCO
036527,000650: 27,3320 02335 STORE Y
036528,000651: 27,3321 77616 RVQ
036529,000652:
036530,000653: 30,3005 BANK 30
036531,000654: 30,2000 SETLOC ASENT
036532,000655: 30,2000 BANK
036533,000656:
|
|
Page 850 |
036535,000658: # ASCENT GUIDANCE CONSTANTS
036536,000659:
036537,000660: 30,3005 33,3103 100CS EQUALS 2SEC(18)
036538,000661: 30,3005 30,3007 T2A EQUALS 2SEC(17)
036539,000662: 30,3005 00062 00000 4SEC(17) 2DEC 400 B-17
036540,000663: 30,3007 00031 00000 2SEC(17) 2DEC 200 B-17
036541,000664: 30,3011 00175 00000 T3 2DEC 1000 B-17
036542,000665: 30,3013 00045 20000 6SEC(18) 2DEC 600 B-18
036543,000666: 30,3015 00010 BIT4H OCT 10
036544,000667: 30,3016 14400 00000 2SEC(9) 2DEC 200 B-9
036545,000668: 30,3020 01477 V06N63* VN 0663
036546,000669: 30,3021 01514 V06N76 VN 0676
036547,000670: 30,3022 01441 V06N33A VN 0633
036548,000671:
036549,000672: 33,2200 BANK 33
036550,000673: 33,2000 SETLOC ASENT6
036551,000674: 33,2000 BANK
036552,000675: 33,2200 COUNT* $$/ASENT
036553,000676:
036554,000677: 33,2200 75751 41775 PRLIMIT 2DEC -.0639 # (B/TBUP)MIN=-.1FT.SEC(-3)
036555,000678: 33,2202 00022 07212 MINABDV 2DEC .0356 B-5 # 10 PERCENT BIGGER THAN GRAVITY
036556,000679: 33,2204 00007 16100 25KFT 2DEC 7620 B-24
036557,000680: 33,2206 E7,1570 1/DV0 = MASS1
036558,000681:
|
|
Page 851 |
036560,000683: # THE LOGARITHM SUBROUTINE
036561,000684:
036562,000685: 24,3700 BANK 24
036563,000686: 30,2000 SETLOC FLOGSUB
036564,000687: 30,2000 BANK
036565,000688:
036566,000689: # INPUT ..... X IN MPAC
036567,000690: # OUTPUT ..... -LOG(X) IN MPAC
036568,000691:
036569,000692: 30,3023 44301 LOGSUB NORM BDSU
036570,000693: 30,3024 00163 MPAC +6
036571,000694: 30,3025 17772 NEARONE
036572,000695: 30,3026 77776 EXIT
036573,000696: 30,3027 07225 TC POLY
036574,000697: 30,3030 00006 DEC 6 B-14
036575,000698: 30,3031 00000 00002 2DEC .0000000060
036576,000699: 30,3033 76777 77175 2DEC -.0312514377
036577,000700: 30,3035 77400 75416 2DEC -.0155686771
036578,000701: 30,3037 77507 65515 2DEC -.0112502068
036579,000702: 30,3041 77741 63547 2DEC -.0018545108
036580,000703: 30,3043 77052 55373 2DEC -.0286607906
036581,000704: 30,3045 01167 30361 2DEC .0385598563
036582,000705: 30,3047 76520 75267 2DEC -.0419361902
036583,000706:
036584,000707: 30,3051 34755 CAF ZERO
036585,000708: 30,3052 54156 TS MPAC +2
036586,000709: 30,3053 00006 EXTEND
036587,000710: 30,3054 33070 DCA CLOG2/32
036588,000711: 30,3055 52155 DXCH MPAC
036589,000712: 30,3056 52132 DXCH BUF +1
036590,000713: 30,3057 30162 CA MPAC +6
036591,000714: 30,3060 07312 TC SHORTMP
036592,000715: 30,3061 52156 DXCH MPAC +1
036593,000716: 30,3062 52155 DXCH MPAC
036594,000717: 30,3063 52132 DXCH BUF +1
036595,000718: 30,3064 20155 DAS MPAC
036596,000719: 30,3065 06042 TC INTPRET
036597,000720: 30,3066 43476 DCOMP RVQ
036598,000721:
036599,000722: 30,3067 00542 34414 CLOG2/32 2DEC .0216608494
036600,000723:
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc