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