Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
037163,000002: ## Copyright: Public domain.
037164,000003: ## Filename: ASCENT_GUIDANCE.agc
037165,000004: ## Purpose: A section of LUM69 revision 2.
037166,000005: ## It is part of the reconstructed source code for the flown
037167,000006: ## version of the flight software for the Lunar Module's (LM)
037168,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
037169,000008: ## been recreated from a copy of Luminary revsion 069, using
037170,000009: ## changes present in Luminary 099 which were described in
037171,000010: ## Luminary memos 75 and 78. The code has been adapted such
037172,000011: ## that the resulting bugger words exactly match those specified
037173,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
037174,000013: ## relatively high confidence that the reconstruction is correct.
037175,000014: ## Reference: pp. 844-857
037176,000015: ## Assembler: yaYUL
037177,000016: ## Contact: Ron Burkey <info@sandroid.org>.
037178,000017: ## Website: www.ibiblio.org/apollo/index.html
037179,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
037180,000019:
|
|
Page 844
|
037182,000021: 34,3637 BANK 34
037183,000022: 34,2000 SETLOC ASCFILT
037184,000023: 34,2000 BANK
037185,000024:
037186,000025: 34,3637 E7,1513 EBANK= DVCNTR
037187,000026:
037188,000027: 34,3637 COUNT* $$/ASENT
037189,000028:
037190,000029: 34,3637 05353 ATMAG TC PHASCHNG
037191,000030: 34,3640 00035 OCT 00035
037192,000031: 34,3641 05353 TC PHASCHNG
037193,000032: 34,3642 05023 OCT 05023
037194,000033: 34,3643 21000 OCT 21000
037195,000034: 34,3644 06036 TC INTPRET
037196,000035: 34,3645 77614 BON
037197,000036: 34,3646 04705 FLRCS
037198,000037: 34,3647 60313 ASCENT
037199,000038: 34,3650 45345 DLOAD DSU
037200,000039: 34,3651 03512 ABDVCONV
037201,000040: 34,3652 21054 MINABDV
037202,000041: 34,3653 43040 BMN CLEAR
037203,000042: 34,3654 60767 ASCTERM4
037204,000043: 34,3655 04267 SURFFLAG
037205,000044: 34,3656 67214 CLEAR SLOAD
037206,000045: 34,3657 02676 RENDWFLG
037207,000046: 34,3660 17224 BIT3H
037208,000047: 34,3661 77471 DDV EXIT
037209,000048: 34,3662 03512 ABDVCONV
037210,000049: 34,3663 52155 DXCH MPAC
037211,000050: 34,3664 53637 DXCH 1/DV3
037212,000051: 34,3665 53635 DXCH 1/DV2
037213,000052: 34,3666 53633 DXCH 1/DV1
037214,000053: 34,3667 53567 DXCH 1/DV0
037215,000054: 34,3670 05353 TC PHASCHNG
037216,000055: 34,3671 04023 OCT 04023
037217,000056: 34,3672 06036 TC INTPRET
037218,000057: 34,3673 43345 DLOAD DAD
037219,000058: 34,3674 03567 1/DV0
037220,000059: 34,3675 03633 1/DV1
037221,000060: 34,3676 43215 DAD DAD
037222,000061: 34,3677 03635 1/DV2
037223,000062: 34,3700 03637 1/DV3
037224,000063: 34,3701 41205 DMP DMP
037225,000064: 34,3702 02261 VE
037226,000065: 34,3703 21041 2SEC(9)
037227,000066: 34,3704 65252 SL3 PDDL
037228,000067: 34,3705 02265 TBUP
037229,000068: 34,3706 43342 SR1 DAD
037230,000069: 34,3707 77625 DSU
037231,000070: 34,3710 21036 6SEC(18)
037232,000071:
|
|
Page 845
|
037234,000073: 34,3711 16265 STODL TBUP
037235,000074: 34,3712 02261 VE
037236,000075: 34,3713 56342 SR1 DDV
037237,000076: 34,3714 02265 TBUP
037238,000077: 34,3715 36257 STCALL AT
037239,000078: 34,3716 60313 ASCENT
037240,000079:
|
|
Page 846
|
037242,000081: 30,2313 BANK 30
037243,000082: 30,2000 SETLOC ASENT
037244,000083: 30,2000 BANK
037245,000084: 30,2313 COUNT* $$/ASENT
037246,000085:
037247,000086:
037248,000087: 30,2313 51575 ASCENT VLOAD ABVAL
037249,000088: 30,2314 03517 R
037250,000089: 30,2315 26275 STOVL /R/MAG
037251,000090: 30,2316 03535 UNIT/R/ # UR*2(-1)
037252,000091: 30,2317 53435 VXV UNIT
037253,000092: 30,2320 03716 QAXIS
037254,000093: 30,2321 02305 STORE ZAXIS1
037255,000094: 30,2322 72441 DOT SL1
037256,000095: 30,2323 03525 V # Z.V = ZDOT*2(-8).
037257,000096: 30,2324 26317 STOVL ZDOT # ZDOT*2(-7)
037258,000097: 30,2325 02305 ZAXIS1
037259,000098: 30,2326 76435 VXV VSL1
037260,000099: 30,2327 03535 UNIT/R/ # Z X UR = LAXIS*2(-2)
037261,000100: 30,2330 02277 STORE LAXIS # LAXIS*2(-1)
037262,000101: 30,2331 72441 DOT SL1
037263,000102: 30,2332 03525 V # L.V = YDOT*2(-8).
037264,000103: 30,2333 26315 STOVL YDOT # YDOT * 2(-7)
037265,000104: 30,2334 03535 UNIT/R/
037266,000105: 30,2335 72441 DOT SL1
037267,000106: 30,2336 03525 V
037268,000107: 30,2337 36313 STCALL RDOT # RDOT*2(-7)
037269,000108: 30,2340 57316 YCOMP
037270,000109: 30,2341 77775 VLOAD
037271,000110: 30,2342 03561 GDT1/2 # LOAD GDT1/2*2(-7) M/CS.
037272,000111: 30,2343 50341 V/SC DOT
037273,000112: 30,2344 27201 2SEC(18)
037274,000113: 30,2345 03535 UNIT/R/ # G.UR*2(9) = GR*2(9).
037275,000114: 30,2346 47315 PDVL VXV # STORE IN PDL(0) (2)
037276,000115: 30,2347 03535 UNIT/R/ # LOAD UNIT/R/ *2(-1).
037277,000116: 30,2350 03525 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
037278,000117: 30,2351 56236 VSQ DDV # H(2)/R(2)*2(-16).
037279,000118: 30,2352 02275 /R/MAG # H(2)/R(3)*2(9).
037280,000119: 30,2353 43352 SL1 DAD
037281,000120: 30,2354 77626 STADR
037282,000121: 30,2355 61456 STODL GEFF # GEFF*2(10)M/CS/CS.
037283,000122: 30,2356 02273 ZDOTD
037284,000123: 30,2357 77625 DSU
037285,000124: 30,2360 02317 ZDOT
037286,000125: 30,2361 02347 STORE DZDOT # DZDOT = (ZDOTD - ZDOT) * 2(7)M/CS.
037287,000126: 30,2362 65361 VXSC PDDL
037288,000127: 30,2363 02305 ZAXIS1
037289,000128:
|
|
Page 847
|
037291,000130: 30,2364 02271 YDOTD
037292,000131: 30,2365 77625 DSU
037293,000132: 30,2366 02315 YDOT
037294,000133: 30,2367 02345 STORE DYDOT # DYDOT = (YDOTD - YDOT)*2(7)M/CS.
037295,000134: 30,2370 65361 VXSC PDDL
037296,000135: 30,2371 02277 LAXIS
037297,000136: 30,2372 02267 RDOTD
037298,000137: 30,2373 77625 DSU
037299,000138: 30,2374 02313 RDOT
037300,000139: 30,2375 02343 STORE DRDOT # DRDOT = (RDOTD - RDOT)*2(7)M/CS.
037301,000140: 30,2376 53361 VXSC VAD
037302,000141: 30,2377 03535 UNIT/R/
037303,000142: 30,2400 76455 VAD VSL1
037304,000143: 30,2401 77626 STADR
037305,000144: 30,2402 74131 STORE VGVECT # VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
037306,000145: 30,2403 77614 BON
037307,000146: 30,2404 04711 FLZONE0
037308,000147: 30,2405 65442 PREBRET1
037309,000148: 30,2406 77624 CALL
037310,000149: 30,2407 61011 ASCRSTRT
037311,000150: 30,2410 41345 DLOAD DMP # LOAD TGO
037312,000151: 30,2411 03515 TGO # TGO GEFF
037313,000152: 30,2412 02321 GEFF
037314,000153: 30,2413 76561 VXSC VSL1
037315,000154: 30,2414 03535 UNIT/R/ # TGO GEFF UR
037316,000155: 30,2415 77645 BVSU
037317,000156: 30,2416 03646 VGVECT # COMPENSATED FOR GEFF
037318,000157: 30,2417 03646 STORE VGVECT # STORE FOR DOWNLINK
037319,000158: 30,2420 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
037320,000159: 30,2421 02146 XNBPIP
037321,000160: 30,2422 27500 STOVL VGBODY
037322,000161: 30,2423 03646 VGVECT
037323,000162: 30,2424 43046 ABVAL BOFF # MAGNITUDE OF VGVECT
037324,000163: 30,2425 04745 FLRCS # IF FLRCS=0,DO NORMAL GUIDANCE
037325,000164: 30,2426 60433 MAINENG
037326,000165: 30,2427 77671 DDV # USE TGO=VG/AT WITH RCS
037327,000166: 30,2430 20001 AT/RCS
037328,000167: 30,2431 37515 STCALL TGO # THIS WILL BE USED ON NEXT CYCLE
037329,000168: 30,2432 60763 ASCTERM2
037330,000169: 30,2433 41471 MAINENG DDV PUSH # VG/VE IN PDL(0) (2)
037331,000170: 30,2434 02261 VE
037332,000171: 30,2435 44205 DMP BDSU # 1-KT VG/VE
037333,000172: 30,2436 21046 KT1
037334,000173: 30,2437 17743 NEARONE
037335,000174: 30,2440 41205 DMP DMP # TBUP VG(1-KT VG/VE)/VE (0)
037336,000175: 30,2441 02265 TBUP # = TGO
037337,000176: 30,2442 77625 DSU # COMPENSATE FOR TAILOFF
037338,000177: 30,2443 02263 TTO
037339,000178: 30,2444 03515 STORE TGO
037340,000179: 30,2445 57461 SR DCOMP
037341,000180:
|
|
Page 848
|
037343,000182: 30,2446 20614 11D
037344,000183: 30,2447 17452 STODL TTOGO # TGO*2(-28)CS
037345,000184: 30,2450 03515 TGO
037346,000185: 30,2451 45214 BON DSU
037347,000186: 30,2452 03710 IDLEFLAG
037348,000187: 30,2453 60457 T2TEST
037349,000188: 30,2454 21026 4SEC(17) # ( TGO - 4 )*2(-17)CS.
037350,000189: 30,2455 77640 BMN
037351,000190: 30,2456 57212 ENGOFF
037352,000191: 30,2457 77745 T2TEST DLOAD
037353,000192: 30,2460 03515 TGO
037354,000193: 30,2461 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
037355,000194: 30,2462 21030 T2A
037356,000195: 30,2463 60620 CMPONENT
037357,000196: 30,2464 45345 DLOAD DSU
037358,000197: 30,2465 02265 TBUP
037359,000198: 30,2466 03515 TGO
037360,000199: 30,2467 45071 DDV CALL # 1-TGO/TBUP
037361,000200: 30,2470 02265 TBUP
037362,000201: 30,2471 65613 LOGSUB
037363,000202: 30,2472 41461 SL PUSH # -L IN PDL(0) (2)
037364,000203: 30,2473 20206 5
037365,000204: 30,2474 44265 BDDV BDSU # -TGO/L*2(-17)
037366,000205: 30,2475 03515 TGO
037367,000206: 30,2476 02265 TBUP # TBUP + TGO/L = D12*2(-17)
037368,000207: 30,2477 43006 PUSH BON # STORE IN PDL(2) (4)
037369,000208: 30,2500 04703 FLPC # IF FLPC = 1, GO TO CONST
037370,000209: 30,2501 60510 NORATES
037371,000210: 30,2502 45345 DLOAD DSU
037372,000211: 30,2503 03515 TGO
037373,000212: 30,2504 21032 T3
037374,000213: 30,2505 43044 BPL SET # FLPC=1
037375,000214: 30,2506 60516 RATES
037376,000215: 30,2507 04463 FLPC
037377,000216: 30,2510 77745 NORATES DLOAD
037378,000217: 30,2511 06424 HI6ZEROS
037379,000218: 30,2512 02355 STORE PRATE # B = 0
037380,000219: 30,2513 02357 STORE YRATE # D = 0
037381,000220: 30,2514 77650 GOTO
037382,000221: 30,2515 60600 CONST # GO TO CONST
037383,000222: 30,2516 45345 RATES DLOAD DSU
037384,000223: 30,2517 03515 TGO
037385,000224: 30,2520 00003 02D # TGO - D12 = D21*2(-17)
037386,000225: 30,2521 72406 PUSH SL1 # IN PDL(4) (6)
037387,000226: 30,2522 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
037388,000227: 30,2523 03515 TGO # (8)
037389,000228: 30,2524 41325 PDDL DMP # IN PDL(6)
037390,000229: 30,2525 03515 TGO
037391,000230: 30,2526 02313 RDOT # RDOT TGO * 2(-24)
037392,000231: 30,2527 45215 DAD DSU # R + RDOT TGO
037393,000232:
|
|
Page 849
|
037395,000234: 30,2530 02275 /R/MAG # R + RDOT TGO - RCO
037396,000235: 30,2531 03627 RCO # MPAC = -DR*2(-24).
037397,000236: 30,2532 41325 PDDL DMP # -DR IN PDL(8) (10)
037398,000237: 30,2533 02343 DRDOT
037399,000238: 30,2534 00005 04D # D21 DRDOT*2(-24)
037400,000239: 30,2535 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
037401,000240: 30,2536 56271 DDV DDV
037402,000241: 30,2537 00007 06D # (D21 DRDOT-DR)/E*2(-9)
037403,000242: 30,2540 03515 TGO
037404,000243: 30,2541 02355 STORE PRATE # B * 2(8)
037405,000244: 30,2542 71240 BMN DLOAD # B>0 NOT PERMITTED
037406,000245: 30,2543 60547 CHKBMAG
037407,000246: 30,2544 06424 HI6ZEROS
037408,000247: 30,2545 36355 STCALL PRATE
037409,000248: 30,2546 60561 PROK
037410,000249: 30,2547 56202 CHKBMAG SR4 DDV # B*2(4)
037411,000250: 30,2550 02265 TBUP # (B / TAU) * 2(21)
037412,000251: 30,2551 51025 DSU BPL
037413,000252: 30,2552 21050 PRLIMIT # ( B/ TAU) * 2(21) MAX.
037414,000253: 30,2553 60561 PROK
037415,000254: 30,2554 41345 DLOAD DMP
037416,000255: 30,2555 21050 PRLIMIT
037417,000256: 30,2556 02265 TBUP # B MAX. * 2(4)
037418,000257: 30,2557 77612 SL4 # BMAX*2(8)
037419,000258: 30,2560 02355 STORE PRATE
037420,000259: 30,2561 77745 PROK DLOAD
037421,000260: 30,2562 03515 TGO
037422,000261: 30,2563 43205 DMP DAD # YDOT TGO
037423,000262: 30,2564 02315 YDOT
037424,000263: 30,2565 02341 Y # Y + YDOT TGO
037425,000264: 30,2566 65225 DSU PDDL # Y + YDOT TGO - YCO
037426,000265: 30,2567 03631 YCO # MPAC = - DY*2(-24.) IN PDL(8) (10)
037427,000266: 30,2570 02345 DYDOT
037428,000267: 30,2571 43205 DMP DAD # D21 DYDOT - DY (8)
037429,000268: 30,2572 00005 04D
037430,000269: 30,2573 56271 DDV DDV
037431,000270: 30,2574 03515 TGO # (D21 DYDOT - DY)/ E TGO*2(6) (6)
037432,000271: 30,2575 40312 SL2 SETPD # MPAC = D*2(8)
037433,000272: 30,2576 00005 04D # (4)
037434,000273: 30,2577 02357 STORE YRATE
037435,000274: 30,2600 41345 CONST DLOAD DMP # LOAD B*2(8)
037436,000275: 30,2601 02355 PRATE # B D12*2(-9)
037437,000276: 30,2602 00003 02D
037438,000277: 30,2603 56325 PDDL DDV # D12 B IN PDL(4) (6)
037439,000278: 30,2604 02343 DRDOT # LOAD DRDOT*2(-7)
037440,000279: 30,2605 00001 00D # -DRDOT/L*2(-7)
037441,000280: 30,2606 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
037442,000281: 30,2607 77626 STADR
037443,000282: 30,2610 61426 STODL PCONS
037444,000283: 30,2611 02357 YRATE # D*2(8)
037445,000284:
|
|
Page 850
|
037447,000286: 30,2612 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
037448,000287: 30,2613 60465 BDDV SR2 # -DYDOT/L*2(-9)
037449,000288: 30,2614 02345 DYDOT
037450,000289: 30,2615 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
037451,000290: 30,2616 00001 00D
037452,000291: 30,2617 02353 STORE YCONS
037453,000292: 30,2620 77624 CMPONENT CALL
037454,000293: 30,2621 61011 ASCRSTRT
037455,000294: 30,2622 71201 SETPD DLOAD
037456,000295: 30,2623 00001 00D
037457,000296: 30,2624 27201 100CS
037458,000297: 30,2625 77605 DMP
037459,000298: 30,2626 02355 PRATE # B(T-T0)*2(-9)
037460,000299: 30,2627 56215 DAD DDV # (A+B(T-T0))*2(-9)
037461,000300: 30,2630 02351 PCONS # (A+B(T-T0))/TBUP*2(8)
037462,000301: 30,2631 02265 TBUP
037463,000302: 30,2632 45352 SL1 DSU
037464,000303: 30,2633 02321 GEFF # ATR*2(9)
037465,000304: 30,2634 16363 STODL ATR
037466,000305: 30,2635 27201 100CS
037467,000306: 30,2636 43205 DMP DAD
037468,000307: 30,2637 02357 YRATE
037469,000308: 30,2640 02353 YCONS # (C+D(T-T0))*2(-9)
037470,000309: 30,2641 72471 DDV SL1
037471,000310: 30,2642 02265 TBUP
037472,000311: 30,2643 02361 STORE ATY # ATY*2(9)
037473,000312: 30,2644 65361 VXSC PDDL # ATY UY*2(8) (6)
037474,000313: 30,2645 02277 LAXIS
037475,000314: 30,2646 02363 ATR
037476,000315: 30,2647 53361 VXSC VAD # (0)
037477,000316: 30,2650 03535 UNIT/R/
037478,000317: 30,2651 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
037479,000318: 30,2652 65246 ABVAL PDDL # AH(2) IN PDL(34)
037480,000319: 30,2653 02257 AT # AHMAG IN PDL(6) (8)
037481,000320: 30,2654 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
037482,000321: 30,2655 00043 34D # =ATP2*2(18)
037483,000322: 30,2656 41525 PDDL PUSH # (12)
037484,000323: 30,2657 02257 AT
037485,000324: 30,2660 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
037486,000325: 30,2661 00043 34D # =ATP3*2(18)
037487,000326: 30,2662 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
037488,000327: 30,2663 60667 NO-ATP # LOAD ATP2, IF ATP3 POS
037489,000328: 30,2664 00011 8D
037490,000329: 30,2665 52166 SQRT GOTO # ATP*2(9)
037491,000330: 30,2666 60675 AIMER
037492,000331: 30,2667 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
037493,000332: 30,2670 00007 6D
037494,000333: 30,2671 77761 VXSC # KH AH*2(9)
037495,000334: 30,2672 00001 00D
037496,000335: 30,2673 14001 STODL 00D # STORE NEW AH IN PDL(0)
037497,000336:
|
|
Page 851
|
037499,000338: 30,2674 06424 HI6ZEROS
037500,000339: 30,2675 77765 AIMER SIGN
037501,000340: 30,2676 02347 DZDOT
037502,000341: 30,2677 02365 STORE ATP
037503,000342: 30,2700 77761 VXSC
037504,000343: 30,2701 02305 ZAXIS1 # ATP ZAXIS *2(8).
037505,000344: 30,2702 53372 VSL1 VAD # AT*2(9)
037506,000345: 30,2703 00001 00D
037507,000346: 30,2704 03252 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
037508,000347: 30,2705 43001 SETPD BON
037509,000348: 30,2706 00001 00D
037510,000349: 30,2707 04704 FLPI
037511,000350: 30,2710 60150 P12RET
037512,000351: 30,2711 77624 CALL
037513,000352: 30,2712 61011 ASCRSTRT
037514,000353: 30,2713 77614 BON
037515,000354: 30,2714 04701 FLVR
037516,000355: 30,2715 60774 CHECKALT
037517,000356: 30,2716 57575 MAINLINE VLOAD VCOMP
037518,000357: 30,2717 03535 UNIT/R/
037519,000358: 30,2720 17260 STODL UNWC/2
037520,000359: 30,2721 03654 TXO
037521,000360: 30,2722 51025 DSU BPL
037522,000361: 30,2723 01235 PIPTIME
037523,000362: 30,2724 60730 ASCTERM
037524,000363: 30,2725 43014 CLRXFLAG CLEAR CLEAR
037525,000364: 30,2726 01664 NOR29FLG # START R29 IN ASCENT PHASE.
037526,000365: 30,2727 06666 XOVINFLG # ALLOW X-AXIS OVERRIDE
037527,000366: 30,2730 77776 ASCTERM EXIT
037528,000367: 30,2731 00006 EXTEND
037529,000368: 30,2732 34755 DCA NEG0
037530,000369: 30,2733 52757 DXCH -PHASE3
037531,000370: 30,2734 30105 CA FLAGWRD9
037532,000371: 30,2735 74742 MASK FLRCSBIT
037533,000372: 30,2736 10000 CCS A
037534,000373: 30,2737 12766 TCF ASCTERM3
037535,000374: 30,2740 06036 TC INTPRET
037536,000375: 30,2741 77624 CALL
037537,000376: 30,2742 61062 FINDCDUW -2
037538,000377: 30,2743 77776 ASCTERM1 EXIT
037539,000378: 30,2744 00006 +1 EXTEND
037540,000379: 30,2745 34755 DCA NEG0
037541,000380: 30,2746 52757 DXCH -PHASE3
037542,000381: 30,2747 30105 ABRTDISP CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
037543,000382: 30,2750 74742 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
037544,000383: 30,2751 10000 CCS A # MODE OF OPERATION
037545,000384: 30,2752 12766 TCF ASCTERM3
037546,000385: 30,2753 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
037547,000386: 30,2754 74742 MASK FLUNDBIT # INDICATED.
037548,000387: 30,2755 10000 CCS A
037549,000388:
|
|
Page 852
|
037551,000390: 30,2756 12766 TCF ASCTERM3
037552,000391: 30,2757 33042 CAF V06N63*
037553,000392: 30,2760 04616 TC BANKCALL
037554,000393: 30,2761 20327 CADR GODSPR
037555,000394: 30,2762 12766 TCF ASCTERM3
037556,000395: 30,2763 77776 ASCTERM2 EXIT
037557,000396: 30,2764 05353 TC PHASCHNG
037558,000397: 30,2765 00003 OCT 00003
037559,000398: 30,2766 15155 ASCTERM3 TCF ENDOFJOB
037560,000399: 30,2767 77776 ASCTERM4 EXIT
037561,000400: 30,2770 00004 INHINT
037562,000401: 30,2771 04674 TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
037563,000402: 30,2772 40153 CADR ZATTEROR # THE DAP ATTITUDE ERRORS.
037564,000403: 30,2773 12744 TCF ASCTERM1 +1
037565,000404:
037566,000405: 30,2774 45345 CHECKALT DLOAD DSU
037567,000406: 30,2775 02275 /R/MAG
037568,000407: 30,2776 02337 /LAND/
037569,000408: 30,2777 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION.
037570,000409: 30,3000 26732 25KFT
037571,000410: 30,3001 57162 CHECKYAW
037572,000411: 30,3002 43345 EXITVR DLOAD DAD
037573,000412: 30,3003 01235 PIPTIME
037574,000413: 30,3004 25574 10SECS
037575,000414: 30,3005 03654 STORE TXO
037576,000415: 30,3006 77614 CLRGO
037577,000416: 30,3007 04621 FLVR
037578,000417: 30,3010 60716 MAINLINE
037579,000418:
037580,000419: 30,3011 77420 ASCRSTRT STQ EXIT
037581,000420: 30,3012 01164 TEMPR60
037582,000421: 30,3013 34741 CA FLPIBIT
037583,000422: 30,3014 64746 AD FLZONBIT
037584,000423: 30,3015 70105 MASK FLAGWRD9
037585,000424: 30,3016 10000 CCS A
037586,000425: 30,3017 13022 TCF +3
037587,000426: 30,3020 05353 TC PHASCHNG
037588,000427: 30,3021 04023 OCT 04023
037589,000428: 30,3022 06036 +3 TC INTPRET
037590,000429: 30,3023 77650 GOTO
037591,000430: 30,3024 01164 TEMPR60
037592,000431:
037593,000432: 27,3162 BANK 27
037594,000433: 27,2000 SETLOC ASENT1
037595,000434: 27,2000 BANK
037596,000435:
037597,000436: 27,3162 27,3162 SETXFLAG = CHECKYAW
037598,000437:
037599,000438: 27,3162 77614 CHECKYAW SET
037600,000439: 27,3163 06466 XOVINFLG # PROHIBIT X-AXIS OVERRIDE
037601,000440:
|
|
Page 853
|
037603,000442: 27,3164 74345 DLOAD VXSC
037604,000443: 27,3165 02361 ATY
037605,000444: 27,3166 02277 LAXIS
037606,000445: 27,3167 74325 PDDL VXSC
037607,000446: 27,3170 02365 ATP
037608,000447: 27,3171 02305 ZAXIS1
037609,000448: 27,3172 53455 VAD UNIT
037610,000449: 27,3173 50206 PUSH DOT
037611,000450: 27,3174 02154 YNBPIP
037612,000451: 27,3175 45246 ABS DSU
037613,000452: 27,3176 21052 SIN5DEG
037614,000453: 27,3177 71244 BPL DLOAD
037615,000454: 27,3200 57205 KEEPVR
037616,000455: 27,3201 02313 RDOT
037617,000456: 27,3202 51025 DSU BPL
037618,000457: 27,3203 21034 40FPS
037619,000458: 27,3204 61002 EXITVR
037620,000459:
037621,000460: 27,3205 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
037622,000461: 27,3206 50517 STOVL UNWC/2
037623,000462: 27,3207 03535 UNIT/R/
037624,000463: 27,3210 37252 STCALL UNFC/2
037625,000464: 27,3211 60730 ASCTERM
037626,000465:
037627,000466: 27,3212 77634 ENGOFF RTB
037628,000467: 27,3213 21462 LOADTIME
037629,000468: 27,3214 43225 DSU DAD
037630,000469: 27,3215 01235 PIPTIME
037631,000470: 27,3216 03452 TTOGO
037632,000471: 27,3217 77476 DCOMP EXIT
037633,000472: 27,3220 07256 TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
037634,000473: 27,3221 35016 CAF EBANK7
037635,000474: 27,3222 54003 TS EBANK
037636,000475: 27,3223 E7,1514 EBANK= TGO
037637,000476: 27,3223 00004 BIT3H INHINT # USED AS A CONSTANT
037638,000477: 27,3224 10155 CCS MPAC +1
037639,000478: 27,3225 13230 TCF +3 # C(A) = DT - 1 BIT
037640,000479: 27,3226 13230 TCF +2 # C(A) = 0
037641,000480: 27,3227 34755 CAF ZERO # C(A) = 0
037642,000481: 27,3230 64753 AD BIT1 # C(A) = 1 BIT OR DT.
037643,000482: 27,3231 55644 TS ENGOFFDT
037644,000483: 27,3232 05173 TC TWIDDLE
037645,000484: 27,3233 03245 ADRES ENGOFF1
037646,000485: 27,3234 05353 TC PHASCHNG
037647,000486: 27,3235 47014 OCT 47014
037648,000487: 27,3236 76133 -GENADR ENGOFFDT
037649,000488: 27,3237 E7,1514 EBANK= TGO
037650,000489: 27,3237 03245 56067 2CADR ENGOFF1
037651,000490:
|
|
Page 854
|
037653,000492: 27,3241 06036 TC INTPRET
037654,000493: 27,3242 52014 SET GOTO
037655,000494: 27,3243 03470 IDLEFLAG # DISABLE DELTA-V MONITOR
037656,000495: 27,3244 60457 T2TEST
037657,000496:
037658,000497: 27,3245 04674 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
037659,000498: 27,3246 75551 CADR ENGINOF2
037660,000499:
037661,000500: 27,3247 35027 CAF PRIO17 # SET UP A JOB FOR THE ASCENT GUIDANCE
037662,000501: 27,3250 05105 TC FINDVAC # POSTBURN LOGIC.
037663,000502: 27,3251 E7,1453 EBANK= WHICH
037664,000503: 27,3251 03261 56067 2CADR CUTOFF
037665,000504: 27,3253 05353 TC PHASCHNG
037666,000505: 27,3254 07024 OCT 07024
037667,000506: 27,3255 17000 OCT 17000
037668,000507: 27,3256 E7,1514 EBANK= TGO
037669,000508: 27,3256 03261 56067 2CADR CUTOFF
037670,000509: 27,3260 15261 TCF TASKOVER
037671,000510:
037672,000511: 27,3261 05504 CUTOFF TC UPFLAG # SET FLRCS FLAG.
037673,000512: 27,3262 00214 ADRES FLRCS
037674,000513:
037675,000514: 27,3263 33330 -5 CAF V16N63
037676,000515: 27,3264 04616 TC BANKCALL
037677,000516: 27,3265 20351 CADR GOFLASH
037678,000517: 27,3266 13306 TCF TERMASC
037679,000518: 27,3267 13271 TCF CUTOFF1
037680,000519: 27,3270 13263 TCF -5
037681,000520:
037682,000521: 27,3271 00004 CUTOFF1 INHINT
037683,000522: 27,3272 04674 TC IBNKCALL # ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
037684,000523: 27,3273 40153 CADR ZATTEROR
037685,000524: 27,3274 04674 TC IBNKCALL
037686,000525: 27,3275 40140 CADR SETMINDB
037687,000526: 27,3276 05353 TC PHASCHNG
037688,000527: 27,3277 04024 OCT 04024
037689,000528:
037690,000529: 27,3300 33331 -5 CAF V16N85C
037691,000530: 27,3301 04616 TC BANKCALL
037692,000531: 27,3302 20351 CADR GOFLASH
037693,000532: 27,3303 13306 TCF TERMASC
037694,000533: 27,3304 13306 TCF +2 # PROCEED
037695,000534: 27,3305 13300 TCF -5
037696,000535:
037697,000536: 27,3306 05353 TERMASC TC PHASCHNG
037698,000537: 27,3307 04024 OCT 04024
037699,000538:
037700,000539: 27,3310 00004 INHINT # RESTORE DEADBAND DESIRED BY ASTRONAUT.
037701,000540:
|
|
Page 855
|
037703,000542: 27,3311 04674 TC IBNKCALL
037704,000543: 27,3312 40123 CADR RESTORDB
037705,000544: 27,3313 05516 TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
037706,000545: 27,3314 00215 ADRES LETABORT
037707,000546: 27,3315 16001 TCF GOTOPOOH
037708,000547:
037709,000548: 27,3316 50375 YCOMP VLOAD DOT
037710,000549: 27,3317 03535 UNIT/R/
037711,000550: 27,3320 03716 QAXIS
037712,000551: 27,3321 67552 SL1 ARCSIN
037713,000552: 27,3322 41205 DMP DMP
037714,000553: 27,3323 03627 RCO
037715,000554: 27,3324 15404 2PI/8
037716,000555: 27,3325 77652 SL3
037717,000556: 27,3326 02341 STORE Y
037718,000557: 27,3327 77616 RVQ
037719,000558:
037720,000559: 27,3330 04077 V16N63 VN 1663
037721,000560: 27,3331 04125 V16N85C VN 1685
037722,000561:
037723,000562: 30,3025 BANK 30
037724,000563: 30,2000 SETLOC ASENT
037725,000564: 30,2000 BANK
037726,000565:
|
|
Page 856
|
037728,000567: # ASCENT GUIDANCE CONSTANTS
037729,000568:
037730,000569: 30,3025 33,3200 100CS EQUALS 2SEC(18)
037731,000570: 30,3025 30,3027 T2A EQUALS 2SEC(17)
037732,000571: 30,3025 00062 00000 4SEC(17) 2DEC 400 B-17
037733,000572: 30,3027 00031 00000 2SEC(17) 2DEC 200 B-17
037734,000573: 30,3031 00175 00000 T3 2DEC 1000 B-17
037735,000574: 30,3033 00017 23305 40FPS 2DEC .12192 B-7 # 40 FT/SEC EXPRESSED IN M/CS.
037736,000575: 30,3035 00045 20000 6SEC(18) 2DEC 600 B-18
037737,000576: 30,3037 00010 BIT4H OCT 10
037738,000577: 30,3040 14400 00000 2SEC(9) 2DEC 200 B-9
037739,000578: 30,3042 01477 V06N63* VN 0663
037740,000579: 30,3043 01514 V06N76 VN 0676
037741,000580: 30,3044 01441 V06N33A VN 0633
037742,000581:
037743,000582: 30,3045 20000 00000 KT1 2DEC 0.5000
037744,000583: 30,3047 75751 41775 PRLIMIT 2DEC -.0639 # (B/TBUP)MIN=-.1FT.SEC(-3)
037745,000584: 30,3051 00545 00171 SIN5DEG 2DEC .08716 B-2
037746,000585: 30,3053 00022 07212 MINABDV 2DEC .0356 B-5 # 10 PERCENT BIGGER THAN GRAVITY
037747,000586: 30,3055 E7,1566 1/DV0 = MASS1
037748,000587:
|
|
Page 857
|
037750,000589: # THE LOGARITHM SUBROUTINE
037751,000590:
037752,000591: 24,3504 BANK 24
037753,000592: 32,2000 SETLOC FLOGSUB
037754,000593: 32,2000 BANK
037755,000594:
037756,000595: # INPUT ..... X IN MPAC
037757,000596: # OUTPUT ..... -LOG(X) IN MPAC
037758,000597:
037759,000598: 32,3613 44301 LOGSUB NORM BDSU
037760,000599: 32,3614 00163 MPAC +6
037761,000600: 32,3615 17743 NEARONE
037762,000601: 32,3616 77776 EXIT
037763,000602: 32,3617 07221 TC POLY
037764,000603: 32,3620 00006 DEC 6 B-14
037765,000604: 32,3621 00000 00002 2DEC .0000000060
037766,000605: 32,3623 76777 77175 2DEC -.0312514377
037767,000606: 32,3625 77400 75416 2DEC -.0155686771
037768,000607: 32,3627 77507 65515 2DEC -.0112502068
037769,000608: 32,3631 77741 63547 2DEC -.0018545108
037770,000609: 32,3633 77052 55373 2DEC -.0286607906
037771,000610: 32,3635 01167 30361 2DEC .0385598563
037772,000611: 32,3637 76520 75267 2DEC -.0419361902
037773,000612:
037774,000613: 32,3641 34755 CAF ZERO
037775,000614: 32,3642 54156 TS MPAC +2
037776,000615: 32,3643 00006 EXTEND
037777,000616: 32,3644 33660 DCA CLOG2/32
037778,000617: 32,3645 52155 DXCH MPAC
037779,000618: 32,3646 52132 DXCH BUF +1
037780,000619: 32,3647 30162 CA MPAC +6
037781,000620: 32,3650 07306 TC SHORTMP
037782,000621: 32,3651 52156 DXCH MPAC +1
037783,000622: 32,3652 52155 DXCH MPAC
037784,000623: 32,3653 52132 DXCH BUF +1
037785,000624: 32,3654 20155 DAS MPAC
037786,000625: 32,3655 06036 TC INTPRET
037787,000626: 32,3656 43476 DCOMP RVQ
037788,000627:
037789,000628: 32,3657 00542 34414 CLOG2/32 2DEC .0216608494
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc