Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
037275,000002: ## Copyright: Public domain.
037276,000003: ## Filename: ASCENT_GUIDANCE.agc
037277,000004: ## Purpose: A log section of Zerlina 56, the final revision of
037278,000005: ## Don Eyles's offline development program for the variable
037279,000006: ## guidance period servicer. It also includes a new P66 with LPD
037280,000007: ## (Landing Point Designator) capability, based on an idea of John
037281,000008: ## Young's. Neither of these advanced features were actually flown,
037282,000009: ## but Zerlina was also the birthplace of other big improvements to
037283,000010: ## Luminary including the terrain model and new (Luminary 1E)
037284,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
037285,000012: ## and revision 56 includes all changes up to and including Luminary
037286,000013: ## 183. It is therefore quite close to the Apollo 14 program,
037287,000014: ## Luminary 178, where not modified with new features.
037288,000015: ## Reference: pp. 834-849
037289,000016: ## Assembler: yaYUL
037290,000017: ## Contact: Ron Burkey <info@sandroid.org>.
037291,000018: ## Website: www.ibiblio.org/apollo/index.html
037292,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
037293,000020: ## 2017-08-20 MAS Updated for Zerlina 56.
037294,000021:
![]() |
Page 834 |
037296,000023: 34,3455 BANK 34
037297,000024: 34,2000 SETLOC ASCFILT
037298,000025: 34,2000 BANK
037299,000026:
037300,000027: 34,3455 E7,1513 EBANK= DVCNTR
037301,000028:
037302,000029: 34,3455 COUNT* $$/ASENT
037303,000030:
037304,000031: 34,3455 05364 ATMAG TC PHASCHNG
037305,000032: 34,3456 06025 OCT 06025
037306,000033: 34,3457 E7,1513 EBANK= DVCNTR
037307,000034: 34,3457 02102 66067 2CADR PIPCYCLE
037308,000035:
037309,000036:
037310,000037: 34,3461 06051 TC INTPRET
037311,000038: 34,3462 77614 BON
037312,000039: 34,3463 04705 FLRCS
037313,000040: 34,3464 60307 ASCENT
037314,000041: 34,3465 41335 SLOAD DMP
037315,000042: 34,3466 01251 ABDVACC
037316,000043: 34,3467 26013 KPIP
037317,000044: 34,3470 00007 STORE 6D
037318,000045: 34,3471 77625 DSU
037319,000046: 34,3472 26034 MINABDV
037320,000047: 34,3473 43040 BMN CLEAR
037321,000048: 34,3474 60752 ASCTERM4
037322,000049: 34,3475 04267 SURFFLAG
037323,000050: 34,3476 67214 CLEAR SLOAD
037324,000051: 34,3477 02676 RENDWFLG
037325,000052: 34,3500 31536 BIT3H
037326,000053: 34,3501 77471 DDV EXIT
037327,000054: 34,3502 00007 6D
037328,000055: 34,3503 52155 DXCH MPAC
037329,000056: 34,3504 53641 DXCH 1/DV3
037330,000057: 34,3505 53637 DXCH 1/DV2
037331,000058: 34,3506 53635 DXCH 1/DV1
037332,000059: 34,3507 53571 DXCH 1/DV0
037333,000060: 34,3510 06051 TC INTPRET
037334,000061: 34,3511 43345 DLOAD DAD
037335,000062: 34,3512 03571 1/DV0
037336,000063: 34,3513 03635 1/DV1
037337,000064: 34,3514 43215 DAD DAD
037338,000065: 34,3515 03637 1/DV2
037339,000066: 34,3516 03641 1/DV3
037340,000067: 34,3517 41205 DMP DMP
037341,000068: 34,3520 02256 VE
037342,000069: 34,3521 21012 2SEC(9)
037343,000070: 34,3522 65252 SL3 PDDL
037344,000071: 34,3523 02262 TBUP
037345,000072: 34,3524 43342 SR1 DAD
![]() |
Page 835 |
037347,000074: 34,3525 77625 DSU
037348,000075: 34,3526 21010 6SEC(18)
037349,000076: 34,3527 16262 STODL TBUP
037350,000077: 34,3530 02256 VE
037351,000078: 34,3531 56342 SR1 DDV
037352,000079: 34,3532 02262 TBUP
037353,000080: 34,3533 36254 STCALL AT
037354,000081: 34,3534 60307 ASCENT
037355,000082:
037356,000083: 34,3535 00004 BIT3H OCT 4
037357,000084:
![]() |
Page 836 |
037359,000086: 30,2307 BANK 30
037360,000087: 30,2000 SETLOC ASENT
037361,000088: 30,2000 BANK
037362,000089: 30,2307 COUNT* $$/ASENT
037363,000090:
037364,000091:
037365,000092: 30,2307 51575 ASCENT VLOAD ABVAL
037366,000093: 30,2310 03517 R
037367,000094: 30,2311 26272 STOVL /R/MAG
037368,000095: 30,2312 03535 UNIT/R/
037369,000096: 30,2313 53435 VXV UNIT
037370,000097: 30,2314 02567 QAXIS
037371,000098: 30,2315 02575 STORE ZAXIS1
037372,000099: 30,2316 72441 DOT SL1
037373,000100: 30,2317 03525 V # Z.V = ZDOT*2(-8).
037374,000101: 30,2320 26304 STOVL ZDOT # ZDOT*2(-7)
037375,000102: 30,2321 02575 ZAXIS1
037376,000103: 30,2322 76435 VXV VSL1
037377,000104: 30,2323 03535 UNIT/R/ # Z X UR = LAXIS*2(-2)
037378,000105: 30,2324 02274 STORE LAXIS # LAXIS*2(-1)
037379,000106: 30,2325 72441 DOT SL1
037380,000107: 30,2326 03525 V # L.V = YDOT*2(-8).
037381,000108: 30,2327 36302 STCALL YDOT # YDOT * 2(-7)
037382,000109: 30,2330 57333 YCOMP
037383,000110: 30,2331 77775 VLOAD
037384,000111: 30,2332 03561 G1
037385,000112: 30,2333 42441 DOT SL4
037386,000113: 30,2334 03535 UNIT/R/ # G.UR*2(9) = GR*2(9).
037387,000114: 30,2335 47315 PDVL VXV # STORE IN PDL(0) (2)
037388,000115: 30,2336 03535 UNIT/R/ # LOAD UNIT/R/*2(-1).
037389,000116: 30,2337 03525 V # UR*2(-1) X V*2(-7) = H/R*2(-8).
037390,000117: 30,2340 56236 VSQ DDV # H(2)/R(2)*2(-16).
037391,000118: 30,2341 02272 /R/MAG # H(2)/R(3)*2(9).
037392,000119: 30,2342 43352 SL1 DAD
037393,000120: 30,2343 77626 STADR
037394,000121: 30,2344 75471 STORE GEFF # GEFF*2(10)M/CS/CS
037395,000122: 30,2345 45014 BOFF CALL # IF P7071FLG = 1 (I.E. P70 OR P71)
037396,000123: 30,2346 04742 P7071FLG # CALL ZDOTDCMP TO UPDATE ZDOTD
037397,000124: 30,2347 60351 +2 # ON THE BASIS OF THE LAST RP.
037398,000125: 30,2350 71614 ZDOTDCMP
037399,000126: 30,2351 45345 +2 DLOAD DSU
037400,000127: 30,2352 02270 ZDOTD
037401,000128: 30,2353 02304 ZDOT
037402,000129: 30,2354 02334 STORE DZDOT # DZDOT = (ZDOTD - ZDOT)*2(7)M/CS.
037403,000130: 30,2355 65361 VXSC PDDL
037404,000131: 30,2356 02575 ZAXIS1
037405,000132: 30,2357 02266 YDOTD
![]() |
Page 837 |
037407,000134: 30,2360 77625 DSU
037408,000135: 30,2361 02302 YDOT
037409,000136: 30,2362 02332 STORE DYDOT # DYDOT = (YDOTD - YDOT)*2(7)M/CS.
037410,000137: 30,2363 65361 VXSC PDDL
037411,000138: 30,2364 02274 LAXIS
037412,000139: 30,2365 02264 RDOTD
037413,000140: 30,2366 77625 DSU
037414,000141: 30,2367 03474 RDOT
037415,000142: 30,2370 02330 STORE DRDOT # DRDOT = (RDOTD - RDOT)*2(7)M/CS.
037416,000143: 30,2371 53361 VXSC VAD
037417,000144: 30,2372 03535 UNIT/R/
037418,000145: 30,2373 76455 VAD VSL1
037419,000146: 30,2374 77626 STADR
037420,000147: 30,2375 74131 STORE VGVECT # VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
037421,000148: 30,2376 41345 DLOAD DMP # LOAD TGO
037422,000149: 30,2377 03515 TGO # TGO GEFF
037423,000150: 30,2400 02306 GEFF
037424,000151: 30,2401 76561 VXSC VSL1
037425,000152: 30,2402 03535 UNIT/R/ # TGO GEFF UR
037426,000153: 30,2403 77645 BVSU
037427,000154: 30,2404 03646 VGVECT # COMPENSATED FOR GEFF
037428,000155: 30,2405 03646 STORE VGVECT # STORE FOR DOWNLINK
037429,000156: 30,2406 76521 MXV VSL1 # GET VGBODY FOR N85 DISPLAY
037430,000157: 30,2407 02137 XNBPIP
037431,000158: 30,2410 27502 STOVL VGBODY
037432,000159: 30,2411 03646 VGVECT
037433,000160: 30,2412 43046 ABVAL BOFF # MAGNITUDE OF VGVECT
037434,000161: 30,2413 04745 FLRCS # IF FLRCS=0,DO NORMAL GUIDANCE
037435,000162: 30,2414 60423 MAINENG
037436,000163: 30,2415 77671 DDV # USE TGO=VG/AT WITH RCS
037437,000164: 30,2416 20001 AT/RCS
037438,000165: 30,2417 37515 STCALL TGO # THIS WILL BE USED ON NEXT CYCLE
037439,000166: 30,2420 71565 RPCOMP1 # COMPUTE NEW RP FOR NEXT CYCLE.
037440,000167: 30,2421 77634 RTB
037441,000168: 30,2422 60750 ASCTERM3
037442,000169: 30,2423 41471 MAINENG DDV PUSH # VG/VE IN PDL(0) (2)
037443,000170: 30,2424 02256 VE
037444,000171: 30,2425 44342 SR1 BDSU # 1 - VG / 2 VE
037445,000172: 30,2426 17753 NEARONE
037446,000173: 30,2427 41205 DMP DMP # TBUP VG(1-KT VG/VE)/VE (0)
037447,000174: 30,2430 02262 TBUP # = TGO
037448,000175: 30,2431 77625 DSU # COMPENSATE FOR TAILOFF
037449,000176: 30,2432 02260 TTO
037450,000177: 30,2433 03515 STORE TGO
037451,000178: 30,2434 57461 SR DCOMP
037452,000179: 30,2435 20614 11D
037453,000180: 30,2436 17454 STODL TTOGO # TGO*2(-28)CS
037454,000181: 30,2437 03515 TGO
037455,000182: 30,2440 45214 BON DSU
037456,000183: 30,2441 03710 IDLEFLAG
![]() |
Page 838 |
037458,000185: 30,2442 60446 T2TEST
037459,000186: 30,2443 21002 4SEC(17) # ( TGO - 4 )*2(-17)CS.
037460,000187: 30,2444 77640 BMN
037461,000188: 30,2445 30347 ENGOFF
037462,000189: 30,2446 77745 T2TEST DLOAD
037463,000190: 30,2447 03515 TGO
037464,000191: 30,2450 50025 DSU BMN # IF TGO - T2 NEG., GO TO CMPONENT
037465,000192: 30,2451 21004 T2A
037466,000193: 30,2452 60606 CMPONENT
037467,000194: 30,2453 45345 DLOAD DSU
037468,000195: 30,2454 02262 TBUP
037469,000196: 30,2455 03515 TGO
037470,000197: 30,2456 45071 DDV CALL # 1-TGO/TBUP
037471,000198: 30,2457 02262 TBUP
037472,000199: 30,2460 61016 LOGSUB
037473,000200: 30,2461 41461 SL PUSH # -L IN PDL(0) (2)
037474,000201: 30,2462 20206 5
037475,000202: 30,2463 44265 BDDV BDSU # -TGO/L*2(-17)
037476,000203: 30,2464 03515 TGO
037477,000204: 30,2465 02262 TBUP # TBUP + TGO/L = D12*2(-17)
037478,000205: 30,2466 43006 PUSH BON # STORE IN PDL(2) (4)
037479,000206: 30,2467 04703 FLPC # IF FLPC = 1, GO TO CONST
037480,000207: 30,2470 60477 NORATES
037481,000208: 30,2471 45345 DLOAD DSU
037482,000209: 30,2472 03515 TGO
037483,000210: 30,2473 21006 T3
037484,000211: 30,2474 43044 BPL SET # FLPC=1
037485,000212: 30,2475 60504 RATES
037486,000213: 30,2476 04463 FLPC
037487,000214: 30,2477 77745 NORATES DLOAD
037488,000215: 30,2500 06520 HI6ZEROS
037489,000216: 30,2501 02342 STORE PRATE # B = 0
037490,000217: 30,2502 36344 STCALL YRATE # D = 0
037491,000218: 30,2503 60566 CONST # GO TO CONST
037492,000219: 30,2504 45345 RATES DLOAD DSU
037493,000220: 30,2505 03515 TGO
037494,000221: 30,2506 00003 02D # TGO - D12 = D21*2(-17)
037495,000222: 30,2507 72406 PUSH SL1 # IN PDL(4) (6)
037496,000223: 30,2510 52421 BDSU SL3 # (1/2TGO - D21)*2(-13) = E * 2(-13)
037497,000224: 30,2511 03515 TGO # (8)
037498,000225: 30,2512 41325 PDDL DMP # IN PDL(6)
037499,000226: 30,2513 03515 TGO
037500,000227: 30,2514 03474 RDOT # RDOT TGO * 2(-24)
037501,000228: 30,2515 45215 DAD DSU # R + RDOT TGO
037502,000229: 30,2516 02272 /R/MAG # R + RDOT TGO - RCO
037503,000230: 30,2517 03631 RCO # MPAC = - DR*2(-24).
037504,000231: 30,2520 41325 PDDL DMP # -DR IN PDL(8) (10)
037505,000232: 30,2521 02330 DRDOT
037506,000233: 30,2522 00005 04D # D21 DRDOT*2(-24)
037507,000234: 30,2523 62415 DAD SL2 # (D21 DRDOT-DR)*2(-22) (8)
![]() |
Page 839 |
037509,000236: 30,2524 56271 DDV DDV
037510,000237: 30,2525 00007 06D # (D21 DRDOT-DR)/E*2(-9)
037511,000238: 30,2526 03515 TGO
037512,000239: 30,2527 02342 STORE PRATE # B * 2(8)
037513,000240: 30,2530 71240 BMN DLOAD # B>0 NOT PERMITTED
037514,000241: 30,2531 60535 CHKBMAG
037515,000242: 30,2532 06520 HI6ZEROS
037516,000243: 30,2533 36342 STCALL PRATE
037517,000244: 30,2534 60547 PROK
037518,000245: 30,2535 56202 CHKBMAG SR4 DDV # B*2(4)
037519,000246: 30,2536 02262 TBUP # (B / TAU) * 2(21)
037520,000247: 30,2537 51025 DSU BPL
037521,000248: 30,2540 26032 PRLIMIT # ( B/ TAU) * 2(21) MAX.
037522,000249: 30,2541 60547 PROK
037523,000250: 30,2542 41345 DLOAD DMP
037524,000251: 30,2543 26032 PRLIMIT
037525,000252: 30,2544 02262 TBUP # B MAX. * 2(4)
037526,000253: 30,2545 77612 SL4 # BMAX*2(8)
037527,000254: 30,2546 02342 STORE PRATE
037528,000255: 30,2547 77745 PROK DLOAD
037529,000256: 30,2550 03515 TGO
037530,000257: 30,2551 43205 DMP DAD # YDOT TGO
037531,000258: 30,2552 02302 YDOT
037532,000259: 30,2553 02326 Y # Y + YDOT TGO
037533,000260: 30,2554 65225 DSU PDDL # Y + YDOT TGO - YCO
037534,000261: 30,2555 03633 YCO # MPAC = - DY*2(-24.) IN PDL(8) (10)
037535,000262: 30,2556 02332 DYDOT
037536,000263: 30,2557 43205 DMP DAD # D21 DYDOT - DY (8)
037537,000264: 30,2560 00005 04D
037538,000265: 30,2561 56312 SL2 DDV # (D21 DYDOT - DY)/E*2(-9)
037539,000266: 30,2562 40271 DDV SETPD # (D21 DYDOT - DY)/E TGO*2(8)
037540,000267: 30,2563 03515 TGO # = D*2(8)
037541,000268: 30,2564 00005 04
037542,000269: 30,2565 02344 STORE YRATE
037543,000270: 30,2566 41345 CONST DLOAD DMP # LOAD B*2(8)
037544,000271: 30,2567 02342 PRATE # B D12*2(-9)
037545,000272: 30,2570 00003 02D
037546,000273: 30,2571 56325 PDDL DDV # D12 B IN PDL(4) (6)
037547,000274: 30,2572 02330 DRDOT # LOAD DRDOT*2(-7)
037548,000275: 30,2573 00001 00D # -DRDOT/L*2(-7)
037549,000276: 30,2574 45302 SR2 DSU # (-DRDOT/L-D12 B)=A*2(-9) (4)
037550,000277: 30,2575 77626 STADR
037551,000278: 30,2576 61441 STODL PCONS
037552,000279: 30,2577 02344 YRATE # D*2(8)
037553,000280: 30,2600 65205 DMP PDDL # D12 D,EXCH WITH -L IN PDL(0) (2,2)
037554,000281: 30,2601 60465 BDDV SR2 # -DYDOT/L*2(-9)
037555,000282: 30,2602 02332 DYDOT
037556,000283: 30,2603 77625 DSU # (-DYDOT/L-D12 D)=C*2(-9)
037557,000284: 30,2604 00001 00D
037558,000285: 30,2605 02340 STORE YCONS
![]() |
Page 840 |
037560,000287: 30,2606 43001 CMPONENT SETPD BOFF
037561,000288: 30,2607 00001 00D
037562,000289: 30,2610 04742 P7071FLG
037563,000290: 30,2611 60614 +3 # IF P7071FLG = 1 (I.E. P70 OR P71)
037564,000291: 30,2612 77624 CALL # COMPUTE NEW RP FOR NEXT CYCLE.
037565,000292: 30,2613 71571 RPCOMP2
037566,000293: 30,2614 41345 +3 DLOAD DMP
037567,000294: 30,2615 27747 100CS
037568,000295: 30,2616 02342 PRATE # B(T-T0)*2(-9)
037569,000296: 30,2617 56215 DAD DDV # (A+B(T-T0))*2(-9)
037570,000297: 30,2620 02336 PCONS # (A+B(T-T0))/TBUP*2(8)
037571,000298: 30,2621 02262 TBUP
037572,000299: 30,2622 45352 SL1 DSU
037573,000300: 30,2623 02306 GEFF # ATR*2(9)
037574,000301: 30,2624 16350 STODL ATR
037575,000302: 30,2625 27747 100CS
037576,000303: 30,2626 43205 DMP DAD
037577,000304: 30,2627 02344 YRATE
037578,000305: 30,2630 02340 YCONS # (C+D(T-T0))*2(-9)
037579,000306: 30,2631 72471 DDV SL1
037580,000307: 30,2632 02262 TBUP
037581,000308: 30,2633 02346 STORE ATY # ATY*2(9)
037582,000309: 30,2634 65361 VXSC PDDL # ATY UY*2(8) (6)
037583,000310: 30,2635 02274 LAXIS
037584,000311: 30,2636 02350 ATR
037585,000312: 30,2637 53361 VXSC VAD # (0)
037586,000313: 30,2640 03535 UNIT/R/
037587,000314: 30,2641 41572 VSL1 PUSH # AH*2(9) IN PDL(0) (6)
037588,000315: 30,2642 65246 ABVAL PDDL # AH(2) IN PDL(34)
037589,000316: 30,2643 02254 AT # AHMAG IN PDL(6) (8)
037590,000317: 30,2644 45316 DSQ DSU # (AT(2)-AH(2))*2(18)
037591,000318: 30,2645 00043 34D # =ATP2*2(18)
037592,000319: 30,2646 41525 PDDL PUSH # (12)
037593,000320: 30,2647 02254 AT
037594,000321: 30,2650 45316 DSQ DSU # (AT(2)KR(2)-AH(2))*2(18) (10)
037595,000322: 30,2651 00043 34D # =ATP3*2(18)
037596,000323: 30,2652 71240 BMN DLOAD # IF ATP3 NEG,GO TO NO-ATP
037597,000324: 30,2653 60657 NO-ATP # LOAD ATP2,IF ATP3 POS
037598,000325: 30,2654 00011 8D
037599,000326: 30,2655 52166 SQRT GOTO # ATP*2(9)
037600,000327: 30,2656 60665 AIMER
037601,000328: 30,2657 55345 NO-ATP DLOAD BDDV # KR AT/AH = KH (8)
037602,000329: 30,2660 00007 6D
037603,000330: 30,2661 77761 VXSC # KH AH*2(9)
037604,000331: 30,2662 00001 00D
037605,000332: 30,2663 14001 STODL 00D # STORE NEW AH IN PDL(0)
037606,000333: 30,2664 06520 HI6ZEROS
037607,000334: 30,2665 77765 AIMER SIGN
037608,000335: 30,2666 02334 DZDOT
037609,000336: 30,2667 02352 STORE ATP
![]() |
Page 841 |
037611,000338: 30,2670 77761 VXSC
037612,000339: 30,2671 02575 ZAXIS1 # ATP ZAXIS *2(8).
037613,000340: 30,2672 53372 VSL1 VAD # AT*2(9)
037614,000341: 30,2673 00001 00D
037615,000342: 30,2674 03253 STORE UNFC/2 # WILL BE OVERWRITTEN IF IN VERT. RISE.
037616,000343: 30,2675 43001 SETPD BON
037617,000344: 30,2676 00001 00D
037618,000345: 30,2677 04704 FLPI
037619,000346: 30,2700 60210 P12RET
037620,000347: 30,2701 77614 BON
037621,000348: 30,2702 04701 FLVR
037622,000349: 30,2703 60757 CHECKALT
037623,000350: 30,2704 57575 MAINLINE VLOAD VCOMP
037624,000351: 30,2705 03535 UNIT/R/
037625,000352: 30,2706 17261 STODL UNWC/2
037626,000353: 30,2707 03654 TXO
037627,000354: 30,2710 51025 DSU BPL
037628,000355: 30,2711 01234 PIPTIME
037629,000356: 30,2712 60720 ASCTERM
037630,000357: 30,2713 77614 BON
037631,000358: 30,2714 04711 ROTFLAG
037632,000359: 30,2715 57272 ANG1CHEK
037633,000360: 30,2716 77614 CLRXFLAG CLEAR
037634,000361: 30,2717 06666 XOVINFLG # (XOVINFLG)
037635,000362: 30,2720 77776 ASCTERM EXIT
037636,000363: 30,2721 30105 CA FLAGWRD9
037637,000364: 30,2722 74742 MASK FLRCSBIT
037638,000365: 30,2723 10000 CCS A
037639,000366: 30,2724 12750 TCF ASCTERM3
037640,000367: 30,2725 06051 TC INTPRET
037641,000368: 30,2726 77624 CALL
037642,000369: 30,2727 61073 FINDCDUW -2
037643,000370: 30,2730 77776 ASCTERM1 EXIT
037644,000371: 30,2731 30105 +1 CA FLAGWRD9 # INSURE THAT THE NOUN 63 DISPLAY IS
037645,000372: 30,2732 74742 MASK FLRCSBIT # BYPASSED IF WE ARE IN THE RCS TRIMMING
037646,000373: 30,2733 10000 CCS A # MODE OF OPERATION
037647,000374: 30,2734 12750 TCF ASCTERM3
037648,000375: 30,2735 30104 CA FLAGWRD8 # BYPASS DISPLAYS IF ENGINE FAILURE IS
037649,000376: 30,2736 74742 MASK FLUNDBIT # INDICATED.
037650,000377: 30,2737 10000 CCS A
037651,000378: 30,2740 12750 TCF ASCTERM3
037652,000379: 30,2741 37723 CAF PRIO23 # RAISE PRIORITY SO MAKEPLAY WILL BE SET
037653,000380: 30,2742 05146 TC PRIOCHNG # UP AT A HIGHER PRIORITY THAN SERVICER
037654,000381: 30,2743 33013 CAF V06N94
037655,000382: 30,2744 04616 TC BANKCALL
037656,000383: 30,2745 20471 CADR REGODSPR
037657,000384: 30,2746 34736 CAF PRIO20 # RETURN TO NORMAL SERVICER PRIORITY
037658,000385: 30,2747 05146 TC PRIOCHNG
037659,000386: 30,2750 04635 ASCTERM3 TC POSTJUMP
037660,000387: 30,2751 66102 CADR PIPCYCLE
![]() |
Page 842 |
037662,000389: 30,2752 77776 ASCTERM4 EXIT
037663,000390: 30,2753 00004 INHINT
037664,000391: 30,2754 04674 TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
037665,000392: 30,2755 40166 CADR STOPRATE # THE DAP COMMANDED RATES.
037666,000393: 30,2756 12731 TCF ASCTERM1 +1
037667,000394:
037668,000395: 30,2757 45345 CHECKALT DLOAD DSU
037669,000396: 30,2760 02272 /R/MAG
037670,000397: 30,2761 02324 /LAND/
037671,000398: 30,2762 50025 DSU BMN # IF H LT 25K CHECK Z AXIS ORIENTATION.
037672,000399: 30,2763 26036 25KFT
037673,000400: 30,2764 57312 CHECKYAW
037674,000401: 30,2765 43014 EXITVR CLEAR BON
037675,000402: 30,2766 04661 FLVR
037676,000403: 30,2767 04711 ROTFLAG
037677,000404: 30,2770 60704 MAINLINE
037678,000405: 30,2771 43345 DLOAD DAD
037679,000406: 30,2772 01234 PIPTIME
037680,000407: 30,2773 25723 10SECS
037681,000408: 30,2774 37654 STCALL TXO
037682,000409: 30,2775 60704 MAINLINE
037683,000410: 30,2776 77614 EXITVR1 CLRGO
037684,000411: 30,2777 04631 ROTFLAG
037685,000412: 30,3000 60765 EXITVR
037686,000413:
037687,000414: 27,2000 SETLOC ASENT1
037688,000415: 27,2000 BANK
037689,000416: 27,3272 COUNT* $$/ASENT
037690,000417:
037691,000418: 27,3272 53575 ANG1CHEK VLOAD UNIT
037692,000419: 27,3273 03253 UNFC/2
037693,000420: 27,3274 77641 DOT
037694,000421: 27,3275 02137 XNBPIP
037695,000422: 27,3276 51025 DSU BPL
037696,000423: 27,3277 02555 COSTHET1
037697,000424: 27,3300 57307 OFFROT
037698,000425: 27,3301 50375 VLOAD DOT
037699,000426: 27,3302 02137 XNBPIP
037700,000427: 27,3303 03535 UNIT/R/
037701,000428: 27,3304 50025 DSU BMN
037702,000429: 27,3305 02557 COSTHET2
037703,000430: 27,3306 71540 KEEPVR1
037704,000431: 27,3307 77614 OFFROT CLRGO
037705,000432: 27,3310 04631 ROTFLAG
037706,000433: 27,3311 60716 CLRXFLAG
037707,000434:
037708,000435: 07,2661 BANK 7
037709,000436: 27,2000 SETLOC ASENT1
037710,000437: 27,2000 BANK
037711,000438: 27,3312 COUNT* $$/ASENT
037712,000439:
![]() |
Page 843 |
037714,000441: 27,3312 27,3312 SETXFLAG = CHECKYAW
037715,000442:
037716,000443: 27,3312 77614 CHECKYAW SET
037717,000444: 27,3313 06466 XOVINFLG # PROHIBIT X-AXIS OVERRIDE
037718,000445: 27,3314 74345 DLOAD VXSC
037719,000446: 27,3315 02346 ATY
037720,000447: 27,3316 02274 LAXIS
037721,000448: 27,3317 74325 PDDL VXSC
037722,000449: 27,3320 02352 ATP
037723,000450: 27,3321 02575 ZAXIS1
037724,000451: 27,3322 53455 VAD UNIT
037725,000452: 27,3323 45325 PDDL DSU
037726,000453: 27,3324 03474 RDOT
037727,000454: 27,3325 17332 40FPS
037728,000455: 27,3326 52044 BPL GOTO
037729,000456: 27,3327 60776 EXITVR1
037730,000457: 27,3330 71536 KEEPVR
037731,000458:
037732,000459: 27,3331 00017 23305 40FPS 2DEC 0.12192 B-7
037733,000460:
037734,000461: 34,3536 BANK 34
037735,000462: 34,2000 SETLOC ASENT8
037736,000463: 34,2000 BANK
037737,000464: 34,3536 COUNT* $$/ASENT
037738,000465:
037739,000466: 34,3536 45575 KEEPVR VLOAD STADR # RECALL LOSVEC FROM PUSHLIST
037740,000467: 34,3537 74516 STORE UNWC/2
037741,000468: 34,3540 77775 KEEPVR1 VLOAD
037742,000469: 34,3541 03535 UNIT/R/
037743,000470: 34,3542 37253 STCALL UNFC/2
037744,000471: 34,3543 60720 ASCTERM
037745,000472:
037746,000473:
037747,000474: 14,2347 BANK 14
037748,000475: 14,2000 SETLOC ASENT4
037749,000476: 14,2000 BANK
037750,000477: 14,2347 COUNT* $$/ASENT
037751,000478:
037752,000479: 14,2347 77634 ENGOFF RTB
037753,000480: 14,2350 21555 LOADTIME
037754,000481: 14,2351 43225 DSU DAD
037755,000482: 14,2352 01234 PIPTIME
037756,000483: 14,2353 03454 TTOGO
037757,000484: 14,2354 77476 DCOMP EXIT
037758,000485: 14,2355 07271 TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
037759,000486: 14,2356 35016 CAF EBANK7
037760,000487: 14,2357 54003 TS EBANK
037761,000488: 14,2360 E7,1514 EBANK= TGO
037762,000489: 14,2360 00004 INHINT
037763,000490: 14,2361 10155 CCS MPAC +1
![]() |
Page 844 |
037765,000492: 14,2362 12365 TCF +3 # C(A) = DT - 1 BIT
037766,000493: 14,2363 12365 TCF +2 # C(A) = 0
037767,000494: 14,2364 34755 CAF ZERO # C(A) = 0
037768,000495: 14,2365 64753 AD BIT1 # C(A) = 1 BIT OR DT.
037769,000496: 14,2366 55644 TS ENGOFFDT
037770,000497: 14,2367 05204 TC TWIDDLE
037771,000498: 14,2370 02402 ADRES ENGOFF1
037772,000499: 14,2371 05364 TC PHASCHNG
037773,000500: 14,2372 47014 OCT 47014
037774,000501: 14,2373 76133 -GENADR ENGOFFDT
037775,000502: 14,2374 E7,1514 EBANK= TGO
037776,000503: 14,2374 02402 30067 2CADR ENGOFF1
037777,000504:
037778,000505: 14,2376 06051 TC INTPRET
037779,000506: 14,2377 52014 SET GOTO
037780,000507: 14,2400 03470 IDLEFLAG # DISABLE DELTA-V MONITOR
037781,000508: 14,2401 60446 T2TEST
037782,000509:
037783,000510: 14,2402 04674 ENGOFF1 TC IBNKCALL # SHUT OFF THE ENGINE.
037784,000511: 14,2403 75551 CADR ENGINOF2
037785,000512:
037786,000513: 14,2404 35027 CAF PRIO17 # SET UP A JOB FOR THE ASCENT GUIDANCE
037787,000514: 14,2405 05072 TC NOVAC
037788,000515: 14,2406 E7,1455 EBANK= WHICH
037789,000516: 14,2406 02416 30067 2CADR CUTOFF
037790,000517:
037791,000518: 14,2410 05364 TC PHASCHNG
037792,000519: 14,2411 07024 OCT 07024
037793,000520: 14,2412 17000 OCT 17000
037794,000521: 14,2413 E7,1514 EBANK= TGO
037795,000522: 14,2413 02416 30067 2CADR CUTOFF
037796,000523:
037797,000524: 14,2415 15272 TCF TASKOVER
037798,000525:
037799,000526: 14,2416 05515 CUTOFF TC UPFLAG # SET FLRCS FLAG.
037800,000527: 14,2417 00214 ADRES FLRCS
037801,000528:
037802,000529: 14,2420 32437 -5 CAF V16N63
037803,000530: 14,2421 04616 TC BANKCALL
037804,000531: 14,2422 20477 CADR GOFLASH
037805,000532: 14,2423 12426 TCF +3
037806,000533: 14,2424 12430 TCF CUTOFF1
037807,000534: 14,2425 12420 TCF -5
037808,000535:
037809,000536: 14,2426 04635 +3 TC POSTJUMP
037810,000537: 14,2427 71554 CADR TERMASC
037811,000538:
037812,000539: 14,2430 00004 CUTOFF1 INHINT
037813,000540: 14,2431 04674 TC IBNKCALL # ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
037814,000541: 14,2432 40154 CADR ZATTEROR
![]() |
Page 845 |
037816,000543: 14,2433 04674 TC IBNKCALL
037817,000544: 14,2434 40141 CADR SETMINDB
037818,000545: 14,2435 04635 TC POSTJUMP
037819,000546: 14,2436 71544 CADR CUTOFF2
037820,000547:
037821,000548: 14,2437 04077 V16N63 VN 1663
037822,000549: 34,3544 BANK 34
037823,000550: 34,2000 SETLOC ASENT8
037824,000551: 34,2000 BANK
037825,000552: 34,3544 COUNT* $$/ASENT
037826,000553:
037827,000554: 34,3544 05364 CUTOFF2 TC PHASCHNG
037828,000555: 34,3545 04024 OCT 04024
037829,000556:
037830,000557: 34,3546 33564 CAF V16N85C
037831,000558: 34,3547 04616 TC BANKCALL
037832,000559: 34,3550 20477 CADR GOFLASH
037833,000560: 34,3551 13554 TCF TERMASC
037834,000561: 34,3552 13554 TCF +2 # PROCEED
037835,000562: 34,3553 13544 TCF CUTOFF2
037836,000563:
037837,000564: 34,3554 05364 TERMASC TC PHASCHNG
037838,000565: 34,3555 04024 OCT 04024
037839,000566:
037840,000567: 34,3556 00004 INHINT # RESTORE DEADBAND DESIRED BY ASTRONAUT.
037841,000568: 34,3557 04674 TC IBNKCALL
037842,000569: 34,3560 40115 CADR RESTORDB
037843,000570: 34,3561 05527 TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
037844,000571: 34,3562 00215 ADRES LETABORT
037845,000572: 34,3563 16001 TCF GOTOPOOH
037846,000573:
037847,000574: 34,3564 04125 V16N85C VN 1685
037848,000575:
037849,000576: 34,3565 77745 RPCOMP1 DLOAD # FLRCS = 1 (TRIM MODE)
037850,000577: 34,3566 06520 HI6ZEROS
037851,000578: 34,3567 02336 STORE PCONS # SET PCONS = PRATE = 0 SO THAT
037852,000579: 34,3570 02342 STORE PRATE # RP = R + RDOT TGO
037853,000580: 34,3571 41345 RPCOMP2 DLOAD DMP # FLRCS = 0 (GUIDANCE MODE)
037854,000581: 34,3572 02342 PRATE # LEAVE PCONS AND PRATE ALONE SO THAT
037855,000582: 34,3573 03515 TGO # RP = R + RDOT TGO + (PCONS*TGO**2)/
037856,000583: 34,3574 43205 DMP DAD # (2 TBUP) + (PRATE*TGO**3)/(6 TBUP)
037857,000584: 34,3575 33653 THIRD
037858,000585: 34,3576 02336 PCONS
037859,000586: 34,3577 41205 DMP DMP
037860,000587: 34,3600 03515 TGO
037861,000588: 34,3601 03515 TGO
037862,000589: 34,3602 72471 DDV SL1
037863,000590: 34,3603 02262 TBUP
037864,000591: 34,3604 65215 DAD PDDL
037865,000592: 34,3605 02272 /R/MAG
![]() |
Page 846 |
037867,000594: 34,3606 03474 RDOT
037868,000595: 34,3607 43205 DMP DAD
037869,000596: 34,3610 03515 TGO
037870,000597: 34,3611 77626 STADR
037871,000598: 34,3612 75212 STORE RP
037872,000599: 34,3613 77616 RVQ
037873,000600:
037874,000601: 34,3614 45020 ZDOTDCMP STQ CALL # COMPUTE CENTRAL ANGLE (0)
037875,000602: 34,3615 02620 ASCSAVE
037876,000603: 34,3616 71644 THETCOMP
037877,000604: 34,3617 43205 DMP DAD # CENTRAL ANGLE IN MPAC
037878,000605: 34,3620 02563 KPARM
037879,000606: 34,3621 02561 JPARM
037880,000607: 34,3622 41425 DSU PUSH # RA IN MPAC AND IN PUSHLIST (2)
037881,000608: 34,3623 02565 RP
037882,000609: 34,3624 51025 DSU BPL
037883,000610: 34,3625 02547 RAMIN
037884,000611: 34,3626 71631 +3
037885,000612: 34,3627 65345 DLOAD PDDL # RA < RAMIN. SET RA = RAMIN. (2)
037886,000613: 34,3630 02547 RAMIN
037887,000614: 34,3631 41345 +3 DLOAD DMP
037888,000615: 34,3632 00001 0D
037889,000616: 34,3633 16025 MUM(-37)
037890,000617: 34,3634 77725 PDDL
037891,000618: 34,3635 41215 DAD DMP
037892,000619: 34,3636 02565 RP
037893,000620: 34,3637 02565 RP
037894,000621: 34,3640 75465 BDDV SQRT # (0)
037895,000622: 34,3641 77626 STADR
037896,000623: 34,3642 41507 STCALL ZDOTD # UPDATE ZDOTD FOR GUIDANCE AND DOWNLINK.
037897,000624: 34,3643 02620 ASCSAVE
037898,000625:
037899,000626: 34,3644 53575 THETCOMP VLOAD UNIT
037900,000627: 34,3645 03517 R
037901,000628: 34,3646 53515 PDVL UNIT # (6)
037902,000629: 34,3647 01716 R(CSM)
037903,000630: 34,3650 47206 PUSH VXV # (12)
037904,000631: 34,3651 00001 0D
037905,000632: 34,3652 77641 DOT
037906,000633: 34,3653 02316 WM
037907,000634: 34,3654 24037 STOVL 30D # (6)
037908,000635: 34,3655 72441 DOT SL1 # (0)
037909,000636: 34,3656 75326 ARCCOS SIGN
037910,000637: 34,3657 00037 30D
037911,000638: 34,3660 77616 RVQ
037912,000639:
037913,000640: 27,3333 BANK 27
037914,000641: 27,2000 SETLOC ASENT1
037915,000642: 27,2000 BANK
037916,000643: 27,3333 COUNT* $$/ASENT
037917,000644:
![]() |
Page 847 |
037919,000646: 27,3333 50375 YCOMP VLOAD DOT
037920,000647: 27,3334 03535 UNIT/R/
037921,000648: 27,3335 02567 QAXIS
037922,000649: 27,3336 41312 SL2 DMP
037923,000650: 27,3337 03631 RCO
037924,000651: 27,3340 02326 STORE Y
037925,000652: 27,3341 77616 RVQ
037926,000653:
037927,000654:
037928,000655: 30,3001 BANK 30
037929,000656: 30,2000 SETLOC ASENT
037930,000657: 30,2000 BANK
037931,000658:
![]() |
Page 848 |
037933,000660: # ASCENT GUIDANCE CONSTANTS
037934,000661:
037935,000662: 30,3001 33,3746 100CS EQUALS 2SEC(18)
037936,000663: 30,3001 30,3003 T2A EQUALS 2SEC(17)
037937,000664: 30,3001 00062 00000 4SEC(17) 2DEC 400 B-17
037938,000665:
037939,000666: 30,3003 00031 00000 2SEC(17) 2DEC 200 B-17
037940,000667:
037941,000668: 30,3005 00175 00000 T3 2DEC 1000 B-17
037942,000669:
037943,000670: 30,3007 00045 20000 6SEC(18) 2DEC 600 B-18
037944,000671:
037945,000672: 30,3011 14400 00000 2SEC(9) 2DEC 200 B-9
037946,000673:
037947,000674: 30,3013 01536 V06N94 VN 0694
037948,000675: 30,3014 01514 V06N76 VN 0676
037949,000676: 30,3015 01441 V06N33A VN 0633
037950,000677:
037951,000678: 33,2031 BANK 33
037952,000679: 33,2000 SETLOC ASENT6
037953,000680: 33,2000 BANK
037954,000681: 33,2031 COUNT* $$/ASENT
037955,000682:
037956,000683: 33,2031 75751 41775 PRLIMIT 2DEC -.0639 # (B/TBUP)MIN=-.1FT.SEC(-3)
037957,000684:
037958,000685: 33,2033 00022 07212 MINABDV 2DEC .0356 B-5 # 10 PERCENT BIGGER THAN GRAVITY
037959,000686:
037960,000687: 33,2035 00007 16100 25KFT 2DEC 7620 B-24
037961,000688:
![]() |
Page 849 |
037963,000690: # THE LOGARITHM SUBROUTINE
037964,000691:
037965,000692: 24,3644 BANK 24
037966,000693: 30,2000 SETLOC FLOGSUB
037967,000694: 30,2000 BANK
037968,000695:
037969,000696: # INPUT ..... X IN MPAC
037970,000697: # OUTPUT ..... -LOG(X) IN MPAC
037971,000698:
037972,000699: 30,3016 44301 LOGSUB NORM BDSU
037973,000700: 30,3017 00163 MPAC +6
037974,000701: 30,3020 17753 NEARONE
037975,000702: 30,3021 77776 EXIT
037976,000703: 30,3022 07234 TC POLY
037977,000704: 30,3023 00006 DEC 6 B-14
037978,000705: 30,3024 00000 00002 2DEC .0000000060
037979,000706:
037980,000707: 30,3026 76777 77175 2DEC -.0312514377
037981,000708:
037982,000709: 30,3030 77400 75416 2DEC -.0155686771
037983,000710:
037984,000711: 30,3032 77507 65515 2DEC -.0112502068
037985,000712:
037986,000713: 30,3034 77741 63547 2DEC -.0018545108
037987,000714:
037988,000715: 30,3036 77052 55373 2DEC -.0286607906
037989,000716:
037990,000717: 30,3040 01167 30361 2DEC .0385598563
037991,000718:
037992,000719: 30,3042 76520 75267 2DEC -.0419361902
037993,000720:
037994,000721: 30,3044 34755 CAF ZERO
037995,000722: 30,3045 54156 TS MPAC +2
037996,000723: 30,3046 00006 EXTEND
037997,000724: 30,3047 33063 DCA CLOG2/32
037998,000725: 30,3050 52155 DXCH MPAC
037999,000726: 30,3051 52132 DXCH BUF +1
038000,000727: 30,3052 30162 CA MPAC +6
038001,000728: 30,3053 07321 TC SHORTMP
038002,000729: 30,3054 52156 DXCH MPAC +1
038003,000730: 30,3055 52155 DXCH MPAC
038004,000731: 30,3056 52132 DXCH BUF +1
038005,000732: 30,3057 20155 DAS MPAC
038006,000733: 30,3060 06051 TC INTPRET
038007,000734: 30,3061 43476 DCOMP RVQ
038008,000735:
038009,000736: 30,3062 00542 34414 CLOG2/32 2DEC .0216608494
038010,000737:
End of include-file ASCENT_GUIDANCE.agc. Parent file is MAIN.agc