Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
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.
|
034056,000002: ## Copyright: Public domain.
034057,000003: ## Filename: LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
034058,000004: ## Purpose: A section of Luminary revision 173.
034059,000005: ## It is part of the reconstructed source code for the second
034060,000006: ## (unflown) release of the flight software for the Lunar
034061,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
034062,000008: ## The code has been recreated from a reconstructed copy of
034063,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
034064,000010: ## It has been adapted such that the resulting bugger words
034065,000011: ## exactly match those specified for Luminary 173 in NASA
034066,000012: ## drawing 2021152N, which gives relatively high confidence
034067,000013: ## that the reconstruction is correct.
034068,000014: ## Reference: pp. 784-821
034069,000015: ## Assembler: yaYUL
034070,000016: ## Contact: Ron Burkey <info@sandroid.org>.
034071,000017: ## Website: www.ibiblio.org/apollo/index.html
034072,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
034073,000019: ## 2019-09-21 MAS Added calculation of VBIAS back to STRTP66A.
034074,000020: ## Moved the setting of RODFLAG into interpretive
034075,000021: ## alongside VBIAS calculation. Also added back
034076,000022: ## the definition of BIASFACT.
034077,000023:
|
|
Page 794
|
034079,000025: 31,2366 E7,1621 EBANK= E2DPS
034080,000026:
034081,000027: 31,2366 COUNT* $$/F2DPS
034082,000028:
034083,000029: # ****************************************************************************************************************
034084,000030: # LUNAR LANDING FLIGHT SEQUENCE TABLES
034085,000031: # ****************************************************************************************************************
034086,000032:
034087,000033: # FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION. THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
034088,000034:
034089,000035: # WCHPHASE = -1 ---> IGNALG
034090,000036: # WCHPHASE = 0 ---> BRAKQUAD
034091,000037: # WCHPHASE = 1 ---> APPRQUAD
034092,000038: # WCHPHASE = 2 ---> VERTICAL
034093,000039:
034094,000040: # ***************************************************************************************************************
034095,000041:
034096,000042: # ROUTINES FOR STARTING NEW GUIDANCE PHASES:
034097,000043:
034098,000044: 31,2366 12577 TCF TTFINCR # IGNALG
034099,000045: 31,2367 12577 NEWPHASE TCF TTFINCR # BRAKQUAD
034100,000046: 31,2370 12560 TCF STARTP64 # APPRQUAD
034101,000047: 31,2371 12452 TCF STARTP66 # VERTICAL
034102,000048:
034103,000049:
034104,000050: # PRE-GUIDANCE COMPUTATIONS:
034105,000051:
034106,000052: 31,2372 12757 TCF CALCRGVG # IGNALG
034107,000053: 31,2373 12767 PREGUIDE TCF RGVGCALC # BRAKQUAD
034108,000054: 31,2374 12660 TCF REDESIG # APPRQUAD
034109,000055:
034110,000056:
034111,000057: # GUIDANCE EQUATIONS:
034112,000058:
034113,000059: 31,2375 13032 TCF TTF/8CL # IGNALG
034114,000060: 31,2376 13032 WHATGUID TCF TTF/8CL # BRAKQUAD
034115,000061: 31,2377 13032 TCF TTF/8CL # APPRQUAD
034116,000062:
034117,000063:
034118,000064: # POST GUIDANCE EQUATION COMPUTATIONS:
034119,000065:
034120,000066: 31,2400 13235 TCF CGCALC # IGNALG
034121,000067: 31,2401 13222 AFTRGUID TCF EXTLOGIC # BRAKQUAD
034122,000068: 31,2402 13222 TCF EXTLOGIC # APPRQUAD
034123,000069:
|
|
Page 795
|
034125,000071: # WINDOW VECTOR COMPUTATIONS:
034126,000072:
034127,000073: 31,2403 13305 TCF EXGSUB # IGNALG
034128,000074: 31,2404 13326 WHATEXIT TCF EXBRAK # BRAKQUAD
034129,000075: 31,2405 13334 TCF EXNORM # APPRQUAD
034130,000076:
034131,000077:
034132,000078: # DISPLAY ROUTINES:
034133,000079:
034134,000080: 31,2406 13445 WHATDISP TCF P63DISPS # BRAKQUAD
034135,000081: 31,2407 13451 TCF P64DISPS # APPRQUAD
034136,000082: 31,2410 13502 TCF VERTDISP # VERTICAL
034137,000083:
034138,000084:
034139,000085: # ALARM ROUTINE FOR TTF COMPUTATION:
034140,000086:
034141,000087: 31,2411 13731 TCF 1406POO # IGNALG
034142,000088: 31,2412 13733 WHATALM TCF 1406ALM # BRAKQUAD
034143,000089: 31,2413 13733 TCF 1406ALM # APPRQUAD
034144,000090:
034145,000091:
034146,000092: # INDICES FOR REFERENCING TARGET PARAMETERS:
034147,000093:
034148,000094: 31,2414 00000 OCT 0 # IGNALG
034149,000095: 31,2415 00000 TARGTDEX OCT 0 # BRAKQUAD
034150,000096: 31,2416 00002 OCT 2 # APPRQUAD
034151,000097:
|
|
Page 796
|
034153,000099:
034154,000100: # ****************************************************************************************************************
034155,000101: # ENTRY POINTS: ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
034156,000102: # ****************************************************************************************************************
034157,000103:
034158,000104: # IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC QUIDANCE
034159,000105:
034160,000106: 31,2417 77776 ?GUIDSUB EXIT
034161,000107: 31,2420 34752 CAF TWO # N = 3
034162,000108: 31,2421 55647 TS NGUIDSUB
034163,000109: 31,2422 12542 TCF GUILDRET +2
034164,000110:
034165,000111: 31,2423 55647 GUIDSUB TS NGUIDSUB # ON SUCEEDING PASSES SKIP TTFINCR
034166,000112: 31,2424 12757 TCF CALCRGVG
034167,000113:
034168,000114: # NORMAL ENTRY: CONTROL COMES HERE FROM SERVOUT
034169,000115:
034170,000116: 31,2425 05364 LUNLAND TC PHASCHNG
034171,000117: 31,2426 00035 OCT 00035 # GROUP 5: RETAIN ONLY PIPA TASK
034172,000118: 31,2427 30101 CA FLAGWRD5 # HAS THROTTLE-UP COME YET?
034173,000119: 31,2430 74744 MASK ZOOMBIT
034174,000120: 31,2431 00006 EXTEND
034175,000121: 31,2432 13437 BZF DISPEXIT +3 # NO: DO DISPLAYS ONLY
034176,000122:
034177,000123: 31,2433 05364 TC PHASCHNG # YES: DO GUIDANCE
034178,000124: 31,2434 05023 OCT 05023
034179,000125: 31,2435 20000 OCT 20000
034180,000126:
|
|
Page 797
|
034182,000128: # ****************************************************************************************************************
034183,000129: # GUILDENSTERN: AUTO-MODES MONITOR (R13)
034184,000130: # ****************************************************************************************************************
034185,000131:
034186,000132: 31,2436 COUNT* $$/R13
034187,000133:
034188,000134: # THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE CHECK TO SEE IF THE ROD SWITCH
034189,000135: # HAS BEEN CLICKED. IF SO, SELECT P66. IF THE DAP IS IN AUTO AND THE PRESENT
034190,000136: # 9PROGRAM IN PROGRESS IS P66, CHECK FOR A
034191,000137: # RESTART. IF ONE HAS OCCURED RE-INITIALIZE P66 AND CONTINUE OTHERWISE YOUCONTINUE WITH PRESENT DATA IN P66.TO
034192,000138: # SELECT P66 THE ATTITUDE-HOLD DISCRETE MUST BE PRESENT AND THE ROD SWITCH MUST HAVE BEEN CLICKED. OTHERWISE THE
034193,000139: # AUTOMATIC LANDING WILL CONTINUE.
034194,000140:
034195,000141: 31,2436 41010 GUILDEN CS MODREG # ARE WE IN P66? (EVEN THO WE ARE IN AUTO
034196,000142: 31,2437 62454 AD DEC66 # DAP)
034197,000143: 31,2440 00006 EXTEND
034198,000144: 31,2441 12533 BZF RESTART? # YES: GO SE IF THERE HAS BEEN A RESTART
034199,000145:
034200,000146: 31,2442 34737 CAF BIT13 # NO: IS UN-ATTITUDE-HOLD DISCRETE HERE?
034201,000147: 31,2443 00006 EXTEND
034202,000148: 31,2444 02031 RAND CHAN31
034203,000149: 31,2445 10000 CCS A
034204,000150: 31,2446 12540 TCF GUILDRET # YES: ALL'S WELL, OR AT LEAST AUTOMATIC
034205,000151:
034206,000152: 31,2447 31746 CA RODCOUNT # NO: HAS ROD SWITCH BEEN CLICKED
034207,000153: 31,2450 00006 EXTEND
034208,000154: 31,2451 12540 BZF GUILDRET # NO: CONTINUE WITH THE AUTOMATIC LANDING
034209,000155:
034210,000156: 31,2452 03751 STARTP66 TC FASTCHNG # YES
034211,000157: 31,2453 05322 TC NEWMODEX
034212,000158: 31,2454 00102 DEC66 DEC 66 B-14
034213,000159:
034214,000160: 31,2455 00006 EXTEND
034215,000161: 31,2456 31474 DCA HDOTDISP # SET DESIRED ALTITUDE RATE = CURRENT
034216,000162: 31,2457 53645 DXCH VDGVERT # ALTITUDE RATE.
034217,000163:
034218,000164: 31,2460 05515 TC UPFLAG # SET FLAG TO CONTINUE P66 HORIZONTAL
034219,000165: 31,2461 00016 ADRES P66PROFL # UNTIL 'PROCEED' AFTER TOUCHDOWN
034220,000166:
034221,000167: 31,2462 41354 CS TOOFEW # INITIALIZE CNTTHROT TO -TOOFEW
034222,000168: 31,2463 55623 TS CNTTHROT
034223,000169:
034224,000170: 31,2464 06042 STRTP66A TC INTPRET
034225,000171: 31,2465 47375 VLOAD VXV # COMPUTE HORIZONTAL VELOCITY COMMAND
034226,000172: 31,2466 02325 WM # MOON'S ANGULAR RATE IN 2(-17)RAD/CS
034227,000173: 31,2467 03521 R # LM POSITION IN 2(24)M
034228,000174: 31,2470 03434 STORE VHZC
034229,000175: 31,2471 41535 SLOAD PUSH # COMPUTE PIPA BIAS VECTOR FOR USE BY
034230,000176: 31,2472 01457 PBIASZ # P66ROD AND LANDING ANALOG DISPLAYS
034231,000177: 31,2473 41535 SLOAD PUSH
034232,000178: 31,2474 01455 PBIASY
034233,000179: 31,2475 55535 SLOAD VDEF
034234,000180: 31,2476 01453 PBIASX
034235,000181: 31,2477 43161 VXSC SET
034236,000182: 31,2500 25432 BIASFACT
034237,000183: 31,2501 00463 RODFLAG
034238,000184: 31,2502 26616 STOVL VBIAS # ONE SECOND'S BIAS IN UNITS OF 2(7) M/CS
034239,000185: 31,2503 01254 TEMX
034240,000186: 31,2504 77676 VCOMP
034241,000187: 31,2505 27764 STOVL OLDPIPAX
034242,000188: 31,2506 06520 ZEROVECS
034243,000189: 31,2507 17767 STODL DELVROD
034244,000190:
|
|
Page 798
|
034246,000192: 31,2510 02535 RODSCALE
034247,000193: 31,2511 17757 STODL RODSCAL1
034248,000194:
034249,000195: 31,2512 01234 PIPTIME
034250,000196: 31,2513 03760 STORE LASTTPIP
034251,000197:
034252,000198: 31,2514 77776 EXIT
034253,000199:
034254,000200: 31,2515 04616 TC BANKCALL # REFER CURRENT PIPAX READING TO THE CM:
034255,000201: 31,2516 65414 FCADR DEIMUBOB # ALAS, OMEGAQ AT PIPTIME NOT AVAILABLE
034256,000202:
034257,000203: 31,2517 34755 CAF ZERO
034258,000204: 31,2520 55620 TS FCOLD
034259,000205: 31,2521 55610 TS FWEIGHT
034260,000206: 31,2522 55611 TS FWEIGHT +1
034261,000207:
034262,000208: 31,2523 34752 CAF TWO # WCHPHOLD=2 --> VERTICAL PHASE
034263,000209: 31,2524 55621 TS WCHPHOLD
034264,000210:
034265,000211: 31,2525 55346 TS WCHPHASE
034266,000212:
034267,000213: 31,2526 05527 TC DOWNFLAG # PERMIT X-AXIS OVERRIDE
034268,000214: 31,2527 00311 ADRES XOVINFLG # SHOULD DO INTERPRETIVELY TO SAVE A WORD
034269,000215:
034270,000216: 31,2530 05515 TC UPFLAG # TERMINATE TERRAIN MODEL
034271,000217: 31,2531 00023 ADRES NOTERFLG # SHOULD DO INTERPRETIVELY TO SAVE A WORD
034272,000218:
034273,000219: 31,2532 13517 TCF P66
034274,000220:
034275,000221: 31,2533 30075 RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
034276,000222: 31,2534 74740 MASK RODFLBIT
034277,000223: 31,2535 00006 EXTEND
034278,000224: 31,2536 12464 BZF STRTP66A # Y
034279,000225: # N
034280,000226: 31,2537 13517 TCF P66
034281,000227:
|
|
Page 799
|
034283,000229: # ****************************************************************************************************************
034284,000230: # INITIALIZATION FOR THIS PASS
034285,000231: # ****************************************************************************************************************
034286,000232:
034287,000233: 31,2540 COUNT* $$/F2DPS
034288,000234:
034289,000235: 31,2540 34755 GUILDRET CAF ZERO
034290,000236: 31,2541 55746 TS RODCOUNT
034291,000237:
034292,000238: 31,2542 00006 EXTEND
034293,000239: 31,2543 31625 DCA TPIP
034294,000240: 31,2544 53574 DXCH TPIPOLD
034295,000241:
034296,000242: 31,2545 03751 TC FASTCHNG
034297,000243:
034298,000244: 31,2546 00006 EXTEND
034299,000245: 31,2547 31561 DCA PIPTIME1
034300,000246: 31,2550 53625 DXCH TPIP
034301,000247:
034302,000248: 31,2551 00006 EXTEND
034303,000249: 31,2552 31643 DCA TTF/8
034304,000250: 31,2553 53553 DXCH TTF/8TMP
034305,000251:
034306,000252: 31,2554 11623 CCS FLPASS0
034307,000253: 31,2555 12577 TCF TTFINCR
034308,000254:
034309,000255: 31,2556 51346 BRSPOT1 INDEX WCHPHASE
034310,000256: 31,2557 12367 TCF NEWPHASE
034311,000257:
034312,000258: # ****************************************************************************************************************
034313,000259: # ROUTINES TO START NEW PHASES
034314,000260: # ****************************************************************************************************************
034315,000261:
034316,000262: 31,2560 05322 STARTP64 TC NEWMODEX
034317,000263: 31,2561 00100 DEC 64 B-14
034318,000264: 31,2562 31425 CA DELTTFAP # AUGMENT TTF/8
034319,000265: 31,2563 27552 ADS TTF/8TMP
034320,000266: 31,2564 00004 INHINT
034321,000267: 31,2565 06022 TC C13STALL
034322,000268: 31,2566 34740 CA BIT12 # ENABLE RUPT10
034323,000269: 31,2567 00006 EXTEND
034324,000270: 31,2570 05013 WOR CHAN13
034325,000271: 31,2571 33761 CAF P64DB
034326,000272: 31,2572 55343 TS DB
034327,000273: 31,2573 05527 TC DOWNFLAG # INITIALIZE REDESIGNATION FLAG
034328,000274: 31,2574 00143 ADRES REDFLAG
034329,000275:
034330,000276: 31,2575 31756 CA LRWH1 # PUT P64 LR WEIGHTING FUNCTION INTO
034331,000277: 31,2576 55421 TS LRWH # LRWH SO LR UPDATES ARE DONE PROPERLY
034332,000278: # (CONTINUE TO TTFINCR)
034333,000279:
034334,000280: # ****************************************************************************************************************
034335,000281: # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
034336,000282: # ****************************************************************************************************************
034337,000283:
|
|
Page 800
|
034339,000285:
034340,000286: # TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
034341,000287:
034342,000288: # TTF/8 UPDATED FOR TIME SINCE LAST PASS:
034343,000289:
034344,000290: # TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
034345,000291:
034346,000292: # LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
034347,000293:
034348,000294: # - - - -
034349,000295: # LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
034350,000296:
034351,000297: # SLANT RANGE TO LANDING SITE, FOR DISPLAY:
034352,000298:
034353,000299: # - -
034354,000300: # RANGEDSP = ABVAL(LAND - R)
034355,000301:
034356,000302: 31,2577 06042 TTFINCR TC INTPRET
034357,000303: 31,2600 45345 DLOAD DSU
034358,000304: 31,2601 03625 TPIP
034359,000305: 31,2602 03574 TPIPOLD
034360,000306: 31,2603 41461 SLR PUSH # SHIFT SCALES DELTA TIME TO 2(17) CSECS
034361,000307: 31,2604 21214 11D
034362,000308: 31,2605 47361 VXSC VXV
034363,000309: 31,2606 03635 LAND
034364,000310: 31,2607 02325 WM
034365,000311: 31,2610 47045 BVSU RTB
034366,000312: 31,2611 03635 LAND
034367,000313: 31,2612 21727 NORMUNIT
034368,000314: 31,2613 76561 VXSC VSL1
034369,000315: 31,2614 02333 /LAND/
034370,000316: 31,2615 17545 STODL LANDTEMP
034371,000317: 31,2616 77776 EXIT
034372,000318:
034373,000319: 31,2617 52155 DXCH MPAC
034374,000320: 31,2620 21553 DAS TTF/8TMP # NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP
034375,000321:
034376,000322: 31,2621 03751 TC FASTCHNG
034377,000323:
034378,000324: 31,2622 00006 EXTEND
034379,000325: 31,2623 31553 DCA TTF/8TMP
034380,000326: 31,2624 53643 DXCH TTF/8
034381,000327:
034382,000328: 31,2625 03702 TC TDISPSET
034383,000329:
034384,000330: 31,2626 37721 CAF PRIO31 # TEMPORARILY OVER-PRIO CHARIN
034385,000331: 31,2627 05146 TC PRIOCHNG
034386,000332:
034387,000333: 31,2630 06042 TC INTPRET
034388,000334: 31,2631 53375 VLOAD VAD # ADD IN CORRECTION FROM NOUN 69
034389,000335: 31,2632 03545 LANDTEMP
034390,000336:
|
|
Page 801
|
034392,000338: 31,2633 02632 DLAND
034393,000339: 31,2634 03635 STORE LAND
034394,000340: 31,2635 77646 ABVAL # RECOMPUTE /LAND/
034395,000341: 31,2636 02333 STORE /LAND/
034396,000342: 31,2637 77776 EXIT
034397,000343:
034398,000344: 31,2640 03751 TC FASTCHNG # SINCE REDESIG MAY CHANGE LANDTEMP
034399,000345:
034400,000346: 31,2641 35014 CAF EBANK5
034401,000347: 31,2642 E5,1631 EBANK= DLAND
034402,000348: 31,2642 54003 TS EBANK
034403,000349: 31,2643 34755 CAF ZERO # ZERO N 69 REGISTERS
034404,000350: 31,2644 55631 TS DLAND
034405,000351: 31,2645 55632 TS DLAND +1
034406,000352: 31,2646 55633 TS DLAND +2
034407,000353: 31,2647 55634 TS DLAND +3
034408,000354: 31,2650 55635 TS DLAND +4
034409,000355: 31,2651 55636 TS DLAND +5
034410,000356: 31,2652 35016 CAF EBANK7
034411,000357: 31,2653 E7,1666 EBANK= TREDES
034412,000358: 31,2653 54003 TS EBANK
034413,000359:
034414,000360: 31,2654 34736 CAF PRIO20
034415,000361: 31,2655 05146 TC PRIOCHNG
034416,000362:
034417,000363: 31,2656 51346 BRSPOT2 INDEX WCHPHASE
034418,000364: 31,2657 12373 TCF PREGUIDE
034419,000365:
034420,000366: # ****************************************************************************************************************
034421,000367: # LANDING SITE PERTURBATION EQUATIONS
034422,000368: # ****************************************************************************************************************
034423,000369:
034424,000370: 31,2660 30102 REDESIG CA FLAGWRD6 # IS REDFLAG SET?
034425,000371: 31,2661 74746 MASK REDFLBIT
034426,000372: 31,2662 00006 EXTEND
034427,000373: 31,2663 12767 BZF RGVGCALC # NO: SKIP REDESIGNATION LOGIC
034428,000374:
034429,000375: 31,2664 31666 CA TREDES # YES: HAS TREDES REACHED ZERO?
034430,000376: 31,2665 00006 EXTEND
034431,000377: 31,2666 12767 BZF RGVGCALC # YES: SKIP REDESIGNATION LOGIC
034432,000378:
034433,000379: 31,2667 00004 INHINT
034434,000380: 31,2670 31645 CA ELINCR1
034435,000381: 31,2671 55554 TS ELINCR
034436,000382: 31,2672 31644 CA AZINCR1
034437,000383: 31,2673 55556 TS AZINCR
034438,000384: 31,2674 03751 TC FASTCHNG
034439,000385:
034440,000386: 31,2675 34755 CA ZERO
034441,000387: 31,2676 55645 TS ELINCR1
034442,000388:
|
|
Page 802
|
034444,000390: 31,2677 55644 TS AZINCR1
034445,000391: 31,2700 55555 TS ELINCR +1
034446,000392: 31,2701 55557 TS AZINCR +1
034447,000393:
034448,000394: 31,2702 30120 CA FIXLOC # SET PD TO 0
034449,000395: 31,2703 54166 TS PUSHLOC
034450,000396:
034451,000397: 31,2704 06042 TC INTPRET
034452,000398: 31,2705 52375 VLOAD VSU
034453,000399: 31,2706 03635 LAND
034454,000400: 31,2707 03521 R # - -
034455,000401: 31,2710 41434 RTB PUSH # PUSH DOWN UNIT (LAND - R)
034456,000402: 31,2711 21727 NORMUNIT
034457,000403: 31,2712 76435 VXV VSL1
034458,000404: 31,2713 02154 YNBPIP # - - -
034459,000405: 31,2714 65361 VXSC PDDL # PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
034460,000406: 31,2715 03555 ELINCR
034461,000407: 31,2716 03557 AZINCR
034462,000408: 31,2717 52361 VXSC VSU
034463,000409: 31,2720 02154 YNBPIP
034464,000410: 31,2721 41455 VAD PUSH # RESULTING VECTOR IS 1/2 REAL SIZE
034465,000411:
034466,000412: 31,2722 45345 DLOAD DSU # MAKE SURE REDESIGNATION IS NOT
034467,000413: 31,2723 00001 0 # TOO CLOSE TO THE HORIZON
034468,000414: 31,2724 05660 DEPRCRIT
034469,000415: 31,2725 71240 BMN DLOAD
034470,000416: 31,2726 62731 REDES1
034471,000417: 31,2727 05660 DEPRCRIT
034472,000418: 31,2730 00001 STORE 0
034473,000419: 31,2731 45345 REDES1 DLOAD DSU
034474,000420: 31,2732 03635 LAND
034475,000421: 31,2733 03521 R
034476,000422: 31,2734 74271 DDV VXSC
034477,000423: 31,2735 00001 0
034478,000424: 31,2736 53455 VAD UNIT
034479,000425: 31,2737 03521 R
034480,000426: 31,2740 76561 VXSC VSL1
034481,000427: 31,2741 02333 /LAND/
034482,000428: 31,2742 03545 STORE LANDTEMP
034483,000429: 31,2743 77776 EXIT # LOOKANGL WILL BE COMPUTED AT RGVGCALC
034484,000430:
034485,000431: 31,2744 03751 TC FASTCHNG
034486,000432:
034487,000433: 31,2745 00006 EXTEND
034488,000434: 31,2746 31545 DCA LANDTEMP
034489,000435: 31,2747 53635 DXCH LAND
034490,000436: 31,2750 00006 EXTEND
034491,000437: 31,2751 31547 DCA LANDTEMP +2
034492,000438: 31,2752 53637 DXCH LAND +2
034493,000439: 31,2753 00006 EXTEND
034494,000440:
|
|
Page 803
|
034496,000442: 31,2754 31551 DCA LANDTEMP +4
034497,000443: 31,2755 53641 DXCH LAND +4
034498,000444:
034499,000445: 31,2756 12767 TCF RGVGCALC
034500,000446:
034501,000447: # ****************************************************************************************************************
034502,000448: # COMPUTE STATE IN GUIDANCE COORDINATES
034503,000449: # ****************************************************************************************************************
034504,000450:
034505,000451: # RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
034506,000452:
034507,000453: # VELOCITY RELATIVE TO THE SURFACE:
034508,000454:
034509,000455: # - - - -
034510,000456: # ANGTERM = V + R * WM
034511,000457:
034512,000458: # STATE IN GUIDANCE COORDINATES:
034513,000459:
034514,000460: # - * - -
034515,000461: # RGU = CG (R - LAND)
034516,000462:
034517,000463: # - * - - -
034518,000464: # VGU = CG (V - WM * R)
034519,000465:
034520,000466: # DEPRESSION ANGLE FOR DISPLAY:
034521,000467:
034522,000468: # - - -
034523,000469: # LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
034524,000470:
034525,000471: 31,2757 06042 CALCRGVG TC INTPRET # IN IGNALG, COMPUTE V FROM INTEGRATION
034526,000472: 31,2760 64375 VLOAD MXV # OUTPUT AND TRIM CORRECTION TERM
034527,000473: 31,2761 00025 VATT1 # COMPUTED LAST PASS AND LEFT IN UNFC/2
034528,000474: 31,2762 01732 REFSMMAT
034529,000475: 31,2763 53362 VSR1 VAD
034530,000476: 31,2764 03253 UNFC/2
034531,000477: 31,2765 03527 STORE V
034532,000478: 31,2766 77776 EXIT
034533,000479:
034534,000480: 31,2767 06042 RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
034535,000481: 31,2770 47375 VLOAD VXV
034536,000482: 31,2771 03521 R
034537,000483: 31,2772 02325 WM
034538,000484: 31,2773 70455 VAD VSR2 # RESCALE TO UNITS OF 2(9) M/CS
034539,000485: 31,2774 03527 V
034540,000486: 31,2775 02231 STORE ANGTERM
034541,000487: 31,2776 77721 MXV
034542,000488: 31,2777 02572 CG # NO SHIFT SINCE ANGTERM IS DOUBLE SIZED
034543,000489: 31,3000 27627 STOVL VGU
034544,000490: 31,3001 03521 R # - -
034545,000491: 31,3002 41451 VSU PUSH # PUSH DOWN R - LAND
034546,000492:
|
|
Page 804
|
034548,000494: 31,3003 03635 LAND
034549,000495: 31,3004 76521 MXV VSL1
034550,000496: 31,3005 02572 CG
034551,000497: 31,3006 02624 STORE RGU
034552,000498: 31,3007 77646 ABVAL
034553,000499: 31,3010 26614 STOVL RANGEDSP # SM Z-AXIS RANGE FOR DISPLAY IN N68
034554,000500: 31,3011 50234 RTB DOT # NOW IN MPAC IS SINE(LOOKANGL)/4
034555,000501: 31,3012 21727 NORMUNIT
034556,000502: 31,3013 02146 XNBPIP
034557,000503: 31,3014 77776 EXIT
034558,000504:
034559,000505: 31,3015 30120 CA FIXLOC # RESET PUSH DOWN POINTER
034560,000506: 31,3016 54166 TS PUSHLOC
034561,000507:
034562,000508: 31,3017 30154 CA MPAC # COMPUTE LOOKANGL ITSELF
034563,000509: 31,3020 60000 DOUBLE
034564,000510: 31,3021 04616 TC BANKCALL
034565,000511: 31,3022 61655 CADR SPARCSIN -1
034566,000512: 31,3023 63765 AD 1/2DEG
034567,000513: 31,3024 61353 AD ELBIAS # BIAS LPD ANGLE FOR WINDOW BENDING
034568,000514: 31,3025 00006 EXTEND
034569,000515: 31,3026 73764 MP 180DEGS
034570,000516: 31,3027 55667 TS LOOKANGL # LOOKANGL FOR DISPLAY DURING P64
034571,000517:
034572,000518: 31,3030 51346 BRSPOT3 INDEX WCHPHASE
034573,000519: 31,3031 12376 TCF WHATGUID
034574,000520:
034575,000521: # ****************************************************************************************************************
034576,000522: # TTF/8 COMPUTATION
034577,000523: # ****************************************************************************************************************
034578,000524:
034579,000525: 31,3032 03675 TTF/8CL TC INTPRETX
034580,000526: 31,3033 77743 DLOAD*
034581,000527: 31,3034 02443 JDG2TTF,1
034582,000528: 31,3035 23571 STODL* TABLTTF +6 # A(3) = 8 JDG TO TABLTTF
034583,000529: 31,3036 02437 ADG2TTF,1 # 2
034584,000530: 31,3037 17567 STODL TABLTTF +4 # A(2) = 6 ADG TO TABLTTF
034585,000531: 31,3040 03633 VGU +4 # 2
034586,000532: 31,3041 42605 DMP DAD*
034587,000533: 31,3042 05656 3/4DP
034588,000534: 31,3043 02433 VDG2TTF,1
034589,000535: 31,3044 23565 STODL* TABLTTF +2 # A(1) = (6 VGU + 18 VDG )/8 TO TABLTTF
034590,000536: 31,3045 02407 RDG +4,1 # 2 2
034591,000537: 31,3046 41225 DSU DMP
034592,000538: 31,3047 02630 RGU +4
034593,000539: 31,3050 05654 3/8DP
034594,000540: 31,3051 03563 STORE TABLTTF # A(0) = -24 (RGU - RDG )/64 TO TABLTTF
034595,000541: 31,3052 77776 EXIT # 2 2
034596,000542:
|
|
Page 805
|
034598,000544:
034599,000545: 31,3053 34744 CA BIT8
034600,000546: 31,3054 55572 TS TABLTTF +10 # FRACTIONAL PRECISION FOR TTF TO TABLE
034601,000547:
034602,000548: 31,3055 00006 EXTEND
034603,000549: 31,3056 31643 DCA TTF/8
034604,000550: 31,3057 52155 DXCH MPAC # LOADS TTF/8 (INITIAL GUESS) INTO MPAC
034605,000551: 31,3060 34752 CAF TWO # DEGREE - ONE
034606,000552: 31,3061 54001 TS L
034607,000553: 31,3062 33757 CAF TABLTTFL
034608,000554: 31,3063 03545 TC ROOTPSRS # YIELDS TTF/8 IN MPAC
034609,000555: 31,3064 51346 INDEX WCHPHASE
034610,000556: 31,3065 12412 TCF WHATALM
034611,000557:
034612,000558: 31,3066 00006 EXTEND # GOOD RETURN
034613,000559: 31,3067 30155 DCA MPAC # FETCH TTF/8 KEEPING IT IN MPAC
034614,000560: 31,3070 53643 DXCH TTF/8 # CORRECTED TTF/8
034615,000561:
034616,000562: 31,3071 03702 TC TDISPSET
034617,000563:
034618,000564: # (CONTINUE TO QUADGUID)
034619,000565:
034620,000566: # ****************************************************************************************************************
034621,000567: # MAIN GUIDANCE EQUATION
034622,000568: # ****************************************************************************************************************
034623,000569:
034624,000570: # AS PUBLISHED:-
034625,000571:
034626,000572: # - - - -
034627,000573: # - - 6(VDG + VG) 12(RDG - RG)
034628,000574: # ACG = ADG + ----------- + ------------
034629,000575: # TTF (TTF)(TTF)
034630,000576:
034631,000577: # AS HERE PROGRAMMED:-
034632,000578:
034633,000579: # - -
034634,000580: # 3 (1/4(RDG - RG) - - )
034635,000581: # - (------------- + VDG + VG)
034636,000582: # - 4 ( TTF/8 ) -
034637,000583: # ACG = ---------------------------- + ADG
034638,000584: # TTF/8
034639,000585:
034640,000586: 31,3072 41642 QUADGUID CS TTF/8
034641,000587: 31,3073 61426 AD LEADTIME # LEADTIME IS A NEGATIVE NUMBER
034642,000588: 31,3074 64733 AD POSMAX # SAFEGUARD THE COMPUTATIONS THAT FOLLOW
034643,000589: 31,3075 54001 TS L # BY FORCING -TTF+LEADTIME > OR = ZERO
034644,000590: 31,3076 40001 CS L
034645,000591: 31,3077 60001 AD L
034646,000592: 31,3100 22007 ZL
034647,000593: 31,3101 00006 EXTEND
034648,000594:
|
|
Page 806
|
034650,000596: 31,3102 11642 DV TTF/8
034651,000597: 31,3103 54130 TS BUF # - RATIO OF LAG-DIMINISHED TTF TO TTF
034652,000598: 31,3104 00006 EXTEND
034653,000599: 31,3105 70000 SQUARE
034654,000600: 31,3106 54131 TS BUF +1
034655,000601: 31,3107 60130 AD BUF
034656,000602: 31,3110 56131 XCH BUF +1 # RATIO SQUARED - RATIO
034657,000603: 31,3111 60131 AD BUF +1
034658,000604: 31,3112 54154 TS MPAC # COEFFICIENT FOR VGU TERM
034659,000605: 31,3113 60131 AD BUF +1
034660,000606: 31,3114 50120 INDEX FIXLOC
034661,000607: 31,3115 54032 TS 26D # COEFFICIENT FOR RDG-RGU TERM
034662,000608: 31,3116 60131 AD BUF +1
034663,000609: 31,3117 50120 INDEX FIXLOC
034664,000610: 31,3120 54034 TS 28D # COEFFICIENT FOR VDG TERM
034665,000611: 31,3121 60130 AD BUF
034666,000612: 31,3122 64733 AD POSMAX
034667,000613: 31,3123 60131 AD BUF +1
034668,000614: 31,3124 60131 AD BUF +1
034669,000615: 31,3125 50120 INDEX FIXLOC
034670,000616: 31,3126 54036 TS 30D # COEFFICIENT FOR ADG TERM
034671,000617:
034672,000618: 31,3127 34755 CAF ZERO
034673,000619: 31,3130 54163 TS MODE
034674,000620:
034675,000621: 31,3131 03675 TC INTPRETX
034676,000622: 31,3132 65361 VXSC PDDL
034677,000623: 31,3133 03627 VGU
034678,000624: 31,3134 00035 28D
034679,000625: 31,3135 47157 VXSC* RTB
034680,000626: 31,3136 02413 VDG,1
034681,000627: 31,3137 63671 ZEROMID
034682,000628: 31,3140 47113 PDVL* RTB
034683,000629: 31,3141 02403 RDG,1
034684,000630: 31,3142 63671 ZEROMID
034685,000631: 31,3143 70251 VSU V/SC
034686,000632: 31,3144 02624 RGU
034687,000633: 31,3145 03643 TTF/8
034688,000634: 31,3146 74342 VSR2 VXSC
034689,000635: 31,3147 00033 26D
034690,000636: 31,3150 53255 VAD VAD
034691,000637: 31,3151 74341 V/SC VXSC
034692,000638: 31,3152 03643 TTF/8
034693,000639: 31,3153 05656 3/4DP
034694,000640: 31,3154 73725 PDDL VXSC*
034695,000641: 31,3155 00037 30D
034696,000642: 31,3156 02423 ADG,1
034697,000643: 31,3157 53234 RTB VAD
034698,000644: 31,3160 63671 ZEROMID
034699,000645:
|
|
Page 807
|
034701,000647: 31,3161 76505 AFCCALC1 VXM VSL1 # VERTGUID COMES HERE
034702,000648: 31,3162 02572 CG
034703,000649: 31,3163 70315 PDVL V/SC
034704,000650: 31,3164 01236 GDT/2
034705,000651: 31,3165 05652 GSCALE
034706,000652: 31,3166 45445 BVSU STADR
034707,000653: 31,3167 74524 STORE UNFC/2 # UNFC/2 NEED NOT BE UNITIZED
034708,000654: 31,3170 77646 ABVAL
034709,000655: 31,3171 17464 AFCCALC2 STODL /AFC/ # MAGNITUDE OF AFC FOR THROTTLE
034710,000656: 31,3172 03253 UNFC/2 # VERTICAL COMPONENT
034711,000657: 31,3173 65316 DSQ PDDL
034712,000658: 31,3174 03255 UNFC/2 +2 # OUT-OF-PLANE
034713,000659: 31,3175 65316 DSQ PDDL
034714,000660: 31,3176 05650 HIGHESTF
034715,000661: 31,3177 63471 DDV DSQ
034716,000662: 31,3200 01244 MASS # 2 2 2
034717,000663: 31,3201 45225 DSU DSU # AMAXHORIZ = SQRT(ATOTAL - A - A )
034718,000664: 31,3202 71244 BPL DLOAD # 1 0
034719,000665: 31,3203 63205 AFCCALC3
034720,000666: 31,3204 06520 ZEROVECS
034721,000667: 31,3205 43366 AFCCALC3 SQRT DAD
034722,000668: 31,3206 03257 UNFC/2 +4
034723,000669: 31,3207 44244 BPL BDSU
034724,000670: 31,3210 63213 AFCCLEND
034725,000671: 31,3211 03257 UNFC/2 +4
034726,000672: 31,3212 03257 STORE UNFC/2 +4
034727,000673: 31,3213 77776 AFCCLEND EXIT
034728,000674: 31,3214 03751 TC FASTCHNG
034729,000675:
034730,000676: 31,3215 31346 CA WCHPHASE # PREPARE FOR PHASE SWITCHING LOGIC
034731,000677: 31,3216 55621 TS WCHPHOLD
034732,000678: 31,3217 25623 INCR FLPASS0 # INCREMENT PASS COUNTER
034733,000679:
034734,000680: 31,3220 51346 BRSPOT4 INDEX WCHPHASE
034735,000681: 31,3221 12401 TCF AFTRGUID
034736,000682:
034737,000683: # ****************************************************************************************************************
034738,000684: # NEW PHASE NOW?
034739,000685: # ****************************************************************************************************************
034740,000686:
034741,000687: 31,3222 51346 EXTLOGIC INDEX WCHPHASE # IS TTF NEARER ZERO THAN CRITERION?
034742,000688: 31,3223 31423 CA TENDBRAK
034743,000689: 31,3224 61642 AD TTF/8
034744,000690: 31,3225 00006 EXTEND
034745,000691: 31,3226 63235 BZMF CGCALC # NO
034746,000692:
034747,000693: 31,3227 03751 TC FASTCHNG # YES: INCREMENT WCHPHASE, ZERO FLPASS0
034748,000694:
034749,000695: 31,3230 31621 CA WCHPHOLD
034750,000696: 31,3231 64753 AD ONE
034751,000697:
|
|
Page 808
|
034753,000699: 31,3232 55346 TS WCHPHASE
034754,000700: 31,3233 34755 CAF ZERO
034755,000701: 31,3234 55623 TS FLPASS0
034756,000702:
034757,000703: # (CONTINUE TO CGCALC)
034758,000704:
034759,000705: # ***************************************************************************************************************
034760,000706: # ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX
034761,000707: # ***************************************************************************************************************
034762,000708:
034763,000709: 31,3235 35014 CGCALC CAF EBANK5
034764,000710: 31,3236 54003 TS EBANK
034765,000711: 31,3237 E5,1453 EBANK= TCGIBRAK
034766,000712: 31,3237 00006 EXTEND
034767,000713: 31,3240 51346 INDEX WCHPHASE
034768,000714: 31,3241 52415 INDEX TARGTDEX
034769,000715: 31,3242 31453 DCA TCGFBRAK
034770,000716: 31,3243 24006 INCR BBANK
034771,000717: 31,3244 24006 INCR BBANK
034772,000718: 31,3245 E7,1642 EBANK= TTF/8
034773,000719: 31,3245 61642 AD TTF/8
034774,000720: 31,3246 56001 XCH L
034775,000721: 31,3247 61642 AD TTF/8
034776,000722: 31,3250 10000 CCS A
034777,000723: 31,3251 10001 CCS L
034778,000724: 31,3252 13303 TCF EXITSPOT
034779,000725: 31,3253 13303 TCF EXITSPOT
034780,000726: 31,3254 13255 NOOP
034781,000727:
034782,000728: 31,3255 03675 TC INTPRETX
034783,000729: 31,3256 53575 VLOAD UNIT
034784,000730: 31,3257 03635 LAND
034785,000731: 31,3260 16572 STODL CG
034786,000732: 31,3261 03643 TTF/8
034787,000733: 31,3262 74203 DMP* VXSC
034788,000734: 31,3263 02447 GAINBRAK,1 # NUMERO MYSTERIOSO
034789,000735: 31,3264 02231 ANGTERM
034790,000736: 31,3265 77655 VAD
034791,000737: 31,3266 03635 LAND
034792,000738: 31,3267 47051 VSU RTB
034793,000739: 31,3270 03521 R
034794,000740: 31,3271 21727 NORMUNIT
034795,000741: 31,3272 47035 VXV RTB
034796,000742: 31,3273 03635 LAND
034797,000743: 31,3274 21727 NORMUNIT
034798,000744: 31,3275 26600 STOVL CG +6 # SECOND ROW
034799,000745: 31,3276 02572 CG
034800,000746: 31,3277 76435 VXV VSL1
034801,000747: 31,3300 02600 CG +6
034802,000748: 31,3301 02606 STORE CG +14
034803,000749: 31,3302 77776 EXIT
034804,000750:
034805,000751: 31,3303 51621 EXITSPOT INDEX WCHPHOLD
034806,000752: 31,3304 12404 TCF WHATEXIT
034807,000753:
034808,000754: # ****************************************************************************************************************
034809,000755:
|
|
Page 809
|
034811,000757: # ROUTINES FOR EXITING FROM LANDING GUIDANCE
034812,000758: # ****************************************************************************************************************
034813,000759:
034814,000760: # 1. EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
034815,000761:
034816,000762: # 2. EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE. IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
034817,000763:
034818,000764: # 3. EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
034819,000765:
034820,000766: # (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
034821,000767:
034822,000768: 31,3305 06042 EXGSUB TC INTPRET # COMPUTE TRIM VELOCITY CORRECTION TERM
034823,000769: 31,3306 47175 VLOAD RTB
034824,000770: 31,3307 03253 UNFC/2
034825,000771: 31,3310 21727 NORMUNIT
034826,000772: 31,3311 74361 VXSC VXSC
034827,000773: 31,3312 03423 ZOOMTIME
034828,000774: 31,3313 22001 TRIMACCL
034829,000775: 31,3314 03253 STORE UNFC/2
034830,000776: 31,3315 77776 EXIT
034831,000777:
034832,000778: 31,3316 11647 CCS NGUIDSUB
034833,000779: 31,3317 12423 TCF GUIDSUB
034834,000780: 31,3320 11646 CCS NIGNLOOP
034835,000781: 31,3321 13324 TCF +3
034836,000782: 31,3322 05600 TC ALARM
034837,000783: 31,3323 01412 OCT 01412
034838,000784:
034839,000785: 31,3324 04635 +3 TC POSTJUMP
034840,000786: 31,3325 64672 CADR DDUMCALC
034841,000787:
034842,000788: 31,3326 06042 EXBRAK TC INTPRET
034843,000789: 31,3327 77775 VLOAD
034844,000790: 31,3330 03537 UNIT/R/
034845,000791: 31,3331 03261 STORE UNWC/2
034846,000792: 31,3332 77776 EXIT
034847,000793: 31,3333 13410 TCF STEER?
034848,000794:
034849,000795: 31,3334 06042 EXNORM TC INTPRET
034850,000796: 31,3335 52375 VLOAD VSU
034851,000797: 31,3336 03635 LAND
034852,000798: 31,3337 03521 R
034853,000799: 31,3340 77634 RTB
034854,000800: 31,3341 21727 NORMUNIT
034855,000801: 31,3342 03261 STORE UNWC/2 # UNIT(LAND - R) IS TENTATIVE CHOICE
034856,000802: 31,3343 50235 VXV DOT
034857,000803: 31,3344 02146 XNBPIP
034858,000804: 31,3345 02600 CG +6
034859,000805: 31,3346 77776 EXIT # WITH PROJ IN MPAC 1/8 REAL SIZE
034860,000806:
|
|
Page 810
|
034862,000808:
034863,000809: 31,3347 40154 CS MPAC # GET COEFFICIENT FOR CG +14
034864,000810: 31,3350 63766 AD PROJMAX
034865,000811: 31,3351 64733 AD POSMAX
034866,000812: 31,3352 54130 TS BUF
034867,000813: 31,3353 40130 CS BUF
034868,000814: 31,3354 26130 ADS BUF # RESULT IS 0 IF PROJMAX - PROJ NEGATIVE
034869,000815:
034870,000816: 31,3355 43767 CS PROJMIN # GET COEFFICIENT FOR UNIT(LAND - R)
034871,000817: 31,3356 60154 AD MPAC
034872,000818: 31,3357 64733 AD POSMAX
034873,000819: 31,3360 54131 TS BUF +1
034874,000820: 31,3361 40131 CS BUF +1
034875,000821: 31,3362 26131 ADS BUF +1 # RESULT IS 0 IF PROJ - PROJMIN NEGATIVE
034876,000822:
034877,000823: 31,3363 34751 CAF FOUR
034878,000824: 31,3364 76245 UNWCLOOP MASK SIX
034879,000825: 31,3365 54002 TS Q
034880,000826: 31,3366 35014 CA EBANK5
034881,000827: 31,3367 54003 TS EBANK
034882,000828: 31,3370 E5,1571 EBANK= CG
034883,000829: 31,3370 30130 CA BUF
034884,000830: 31,3371 00006 EXTEND
034885,000831: 31,3372 50002 INDEX Q
034886,000832: 31,3373 71605 MP CG +14
034887,000833: 31,3374 24006 INCR BBANK
034888,000834: 31,3375 E6,1660 EBANK= UNWC/2
034889,000835: 31,3375 50002 INDEX Q
034890,000836: 31,3376 53661 DXCH UNWC/2
034891,000837: 31,3377 00006 EXTEND
034892,000838: 31,3400 70131 MP BUF +1
034893,000839: 31,3401 50002 INDEX Q
034894,000840: 31,3402 21661 DAS UNWC/2
034895,000841: 31,3403 10002 CCS Q
034896,000842: 31,3404 13364 TCF UNWCLOOP
034897,000843:
034898,000844: 31,3405 31773 CA AZBIAS # SET OUTER GIMBAL
034899,000845: 31,3406 55677 TS OGABIAS # ANGLE BIAS FOR WINDOW BENDING
034900,000846:
034901,000847: 31,3407 24006 INCR BBANK
034902,000848: 31,3410 E7,1612 EBANK= PIF
034903,000849:
034904,000850: 31,3410 30121 STEER? CA OVFIND # OVERFLOW?
034905,000851: 31,3411 00006 EXTEND
034906,000852: 31,3412 13415 BZF STEERSW? # N: CHECK STEERSW
034907,000853:
034908,000854: 31,3413 03736 TC OVFDESC # Y: REMEDIAL ACTION AND
034909,000855: 31,3414 13434 TCF DISPEXIT # SKIP ISSUANCE OF CMDS. NO STEERSW CHK
034910,000856:
034911,000857: 31,3415 40076 STEERSW? CS FLAGWRD2 # IS STEERSW UP?
034912,000858: 31,3416 74741 MASK STEERBIT
034913,000859:
|
|
Page 811
|
034915,000861: 31,3417 00006 EXTEND
034916,000862: 31,3420 13426 BZF THRTCALL # Y: ISSUE GUIDANCE CMDS
034917,000863:
034918,000864: 31,3421 00004 RATESTOP INHINT # N: REMEDIAL ACTION
034919,000865: 31,3422 04674 TC IBNKCALL # AND
034920,000866: 31,3423 40166 FCADR STOPRATE # SKIP ISSUANCE OF CMDS
034921,000867: 31,3424 00003 RELINT
034922,000868: 31,3425 13434 TCF DISPEXIT
034923,000869:
034924,000870: 31,3426 31,3426 GDUMP1 = THRTCALL
034925,000871: 31,3426 02144 THRTCALL TC THROTTLE
034926,000872: 31,3427 03751 TC FASTCHNG
034927,000873: 31,3430 06042 TC INTPRET
034928,000874: 31,3431 77624 CALL
034929,000875: 31,3432 61072 FINDCDUW -2
034930,000876: 31,3433 77776 EXIT
034931,000877:
034932,000878: # (CONTINUE TO DISPEXIT)
034933,000879:
034934,000880: # ****************************************************************************************************************
034935,000881: # GUIDANCE LOOP DISPLAYS
034936,000882: # ****************************************************************************************************************
034937,000883:
034938,000884: 31,3434 00006 DISPEXIT EXTEND # KILL GROUP 3: DISPLAYS WILL BE
034939,000885: 31,3435 34755 DCA NEG0 # RESTORED BY NEXT GUIDANCE CYCLE
034940,000886: 31,3436 52756 DXCH -PHASE3
034941,000887:
034942,000888: 31,3437 31,3437 ENDLLJOB = DISPEXIT +3
034943,000889:
034944,000890: 31,3437 31,3437 DISPEX66 = DISPEXIT +3
034945,000891: 31,3437 40104 +3 CS FLAGWRD8 # IF FLUNDISP IS SET, NO DISPLAY THIS PASS
034946,000892: 31,3440 74742 MASK FLUNDBIT
034947,000893: 31,3441 00006 EXTEND
034948,000894: 31,3442 15155 BZF ENDOFJOB
034949,000895:
034950,000896: 31,3443 51621 INDEX WCHPHOLD
034951,000897: 31,3444 12406 TCF WHATDISP
034952,000898:
034953,000899: 31,3445 05165 P63DISPS TC VACRLEAS
034954,000900: 31,3446 33770 CAF V06N63
034955,000901: 31,3447 04616 DISPCOMN TC BANKCALL
034956,000902: 31,3450 20466 CADR REGODSP
034957,000903:
034958,000904: 31,3451 31666 P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
034959,000905: 31,3452 00006 EXTEND
034960,000906: 31,3453 13475 BZF RED-OVER # YES: CLEAR REDESIGNATION FLAG
034961,000907:
034962,000908: 31,3454 40102 CS FLAGWRD6 # NO: IS REDFLAG SET?
034963,000909: 31,3455 74746 MASK REDFLBIT
034964,000910: 31,3456 00006 EXTEND
034965,000911: 31,3457 13477 BZF REDES-OK # YES: DO STATIC DISPLAY
034966,000912:
034967,000913: 31,3460 05165 TC VACRLEAS
034968,000914: 31,3461 33771 CAF V06N64 # OTHERWISE USE FLASHING DISPLAY
034969,000915: 31,3462 04616 TC BANKCALL
034970,000916: 31,3463 20460 CADR REFLASH
034971,000917: 31,3464 16001 TCF GOTOPOOH # TERMINATE
034972,000918: 31,3465 13467 TCF P64CEED # PROCEED PERMIT REDESIGNATIONS
034973,000919: 31,3466 13451 TCF P64DISPS # RECYCLE
034974,000920:
034975,000921: 31,3467 34755 P64CEED CAF ZERO
034976,000922: 31,3470 55645 TS ELINCR1
034977,000923: 31,3471 55644 TS AZINCR1
034978,000924:
034979,000925: 31,3472 05515 TC UPFLAG # ENABLE REDESIGNATION LOGIC
034980,000926: 31,3473 00143 ADRES REDFLAG
034981,000927:
034982,000928: 31,3474 15155 TCF ENDOFJOB
034983,000929:
034984,000930: 31,3475 05527 RED-OVER TC DOWNFLAG
034985,000931: 31,3476 00143 ADRES REDFLAG
034986,000932: 31,3477 05165 REDES-OK TC VACRLEAS
034987,000933: 31,3500 33771 CAF V06N64
034988,000934: 31,3501 13447 TCF DISPCOMN
034989,000935:
034990,000936:
034991,000937: 31,3502 05165 VERTDISP TC VACRLEAS
034992,000938: 31,3503 33772 CAF V06N60
034993,000939: 31,3504 04616 TC BANKCALL
034994,000940: 31,3505 20460 CADR REFLASH
034995,000941:
|
|
Page 813
|
034997,000943: 31,3506 16001 TCF GOTOPOOH # TERMINATE
034998,000944: 31,3507 13511 TCF STOPFIRE # PROCEED
034999,000945: 31,3510 13511 TCF STOPFIRE # V32E
035000,000946:
035001,000947: 31,3511 05527 STOPFIRE TC DOWNFLAG
035002,000948: 31,3512 00016 ADRES P66PROFL # FLAG TO STOP P66 HORIZONTAL
035003,000949: 31,3513 15155 TCF ENDOFJOB
035004,000950:
035005,000951: 31,3514 02147 THROT66 TC THROTTLE +3
035006,000952: 31,3515 25623 INCR CNTTHROT # COUNT ONE THROTTLE COMPLETION
035007,000953:
035008,000954: 31,3516 13437 TCF DISPEX66
035009,000955:
|
|
Page 814
|
035011,000957: # ****************************************************************************************************************
035012,000958: # GUIDANCE FOR P66
035013,000959: # ****************************************************************************************************************
035014,000960:
035015,000961: # THE P66 HORIZONTAL (HZ) EQUATION IS:
035016,000962:
035017,000963: # UNFC/2X = GHZ
035018,000964:
035019,000965: # UNFC/2Y = (LIMIT AHZLIM)(-QHZ UNFC/2Y -(VY-VHZCY)/TAUHZ)
035020,000966: # I-1
035021,000967:
035022,000968: # UNFC/2Z = (LIMIT AHZLIM)(-QHZ UNFC/2Z -(VZ-VHZCZ)/TAUHZ)
035023,000969: # I-1
035024,000970:
035025,000971: # WHERE GHZ IS LUNAR GRAVITY
035026,000972: # QHZ AND 1/TAUHZ ARE GAIN CONSTANTS
035027,000973: # VHZCY AND VHZCZ ARE THE Y AND Z COMPONENTS OF COMMANDED
035028,000974: # VELOCITY, PLATFORM COORDINATES. THESE ARE INITIALIZED
035029,000975: # TO MOONRATE
035030,000976: # (LIMIT AHZLIM) INDICATES THE CONTENT OF THE SUBSEQUENT
035031,000977: # PARENTHESES IS MAGNITUDE LIMITED TO AHZLIM
035032,000978:
035033,000979: 31,3517 05364 P66 TC PHASCHNG # TERMINATE GROUP 3
035034,000980: 31,3520 00003 OCT 00003
035035,000981:
035036,000982: 31,3521 06042 TC INTPRET
035037,000983: 31,3522 45234 RTB DSU # IS THERE TIME FOR P66?
035038,000984: 31,3523 21574 LOADTIME
035039,000985: 31,3524 01234 PIPTIME
035040,000986: 31,3525 51021 BDSU BPL
035041,000987: 31,3526 02500 2LATE466
035042,000988: 31,3527 65067 P66HZ # Y: DOIT
035043,000989: 31,3530 77414 CLEAR EXIT # N: OMIT
035044,000990: 31,3531 00663 RODFLAG
035045,000991:
035046,000992: 31,3532 41354 CS TOOFEW # INITIALIZE CNTTHROT TO TOOFEW AND LOAD
035047,000993: 31,3533 57623 XCH CNTTHROT # ACCUMULATOR WITH ITS PREVIOUS CONTENTS
035048,000994: 31,3534 00006 EXTEND # TOO FEW THROTTLINGS SINCE LAST OMISSION?
035049,000995: 31,3535 63537 BZMF OMITWALM
035050,000996:
035051,000997: 31,3536 13437 TCF DISPEX66 # N: PERMIT OMISSION SANS ALARM
035052,000998:
035053,000999: 31,3537 00004 OMITWALM INHINT
035054,001000: 31,3540 04616 TC BANKCALL
035055,001001: 31,3541 40166 CADR STOPRATE
035056,001002: 31,3542 05600 TC ALARM # Y: PERMIT OMISSION WITH ALARM
035057,001003: 31,3543 01466 OCT 01466
035058,001004:
035059,001005: 31,3544 13437 TCF DISPEX66
035060,001006:
|
|
Page 815
|
035062,001008: # ****************************************************************************************************************
035063,001009: # GUIDANCE FOR P66
035064,001010: # ****************************************************************************************************************
035065,001011:
035066,001012: 32,2000 SETLOC P66LOC
035067,001013: 32,2000 BANK
035068,001014: 32,3067 COUNT* $$/F2DPS
035069,001015:
035070,001016: 32,3067 74375 P66HZ VLOAD VXSC
035071,001017: 32,3070 03253 UNFC/2 # P63, P64, & P66 UNITS 2(-4)M/CS/CS
035072,001018: 32,3071 02476 QHZ
035073,001019: 32,3072 52315 PDVL VSU
035074,001020: 32,3073 03434 VHZC # IN 2(7)M/CS
035075,001021: 32,3074 03527 V # IN 2(7)M/CS
035076,001022: 32,3075 52341 V/SC VSU # YIELDS UNLIM HZ ACCEL CMD, 2(-4)M/CS/CS
035077,001023: 32,3076 02475 TAUHZ # IN 2(1))CS
035078,001024: 32,3077 77776 EXIT
035079,001025:
035080,001026: 32,3100 35031 CA PRIO21 # ASSURE THIS SERVICER JOB ENDS
035081,001027: 32,3101 05146 TC PRIOCHNG # BEFORE NEXT SERVICER JOB BEGINS
035082,001028:
035083,001029: 32,3102 33425 CA GHZ
035084,001030: 32,3103 54154 TS MPAC # X COMPONENT = G
035085,001031:
035086,001032: 32,3104 35014 CA EBANK5
035087,001033: 32,3105 54003 TS EBANK
035088,001034: 32,3106 E5,1774 EBANK= END-E5
035089,001035:
035090,001036: 32,3106 22157 LXCH MPAC +3
035091,001037: 32,3107 31476 CA AHZLIM
035092,001038: 32,3110 04616 TC BANKCALL
035093,001039: 32,3111 61712 FCADR LIMITSUB
035094,001040: 32,3112 54157 TS MPAC +3 # Y COMPONENT LIMITED TO AHZLIM
035095,001041:
035096,001042: 32,3113 22161 LXCH MPAC +5
035097,001043: 32,3114 31476 CA AHZLIM
035098,001044: 32,3115 04616 TC BANKCALL
035099,001045: 32,3116 61712 FCADR LIMITSUB
035100,001046: 32,3117 54161 TS MPAC +5 # Z COMPONENT LIMITED TO AHZLIM
035101,001047:
035102,001048: 32,3120 35016 CA EBANK7
035103,001049: 32,3121 54003 TS EBANK
035104,001050: 32,3122 E7,1777 EBANK= END-E7
035105,001051:
035106,001052: 32,3122 30121 CA OVFIND # OVERFLOW?
035107,001053: 32,3123 00006 EXTEND
035108,001054: 32,3124 13130 BZF ENGARM? # N: KEEP CHECKING
035109,001055: 32,3125 04616 TC BANKCALL # Y: TAKE REMEDIAL ACTION
035110,001056: 32,3126 63736 FCADR OVFDESC # AND
035111,001057: 32,3127 13157 TCF P66VERT # SKIP ISSUANCE OF HZ CMDS
035112,001058:
|
|
Page 816
|
035114,001060: 32,3130 34751 ENGARM? CA BIT3 # IS ENGINE ARM SWITCH STILL ON?
035115,001061: 32,3131 00006 EXTEND
035116,001062: 32,3132 02030 RAND CHAN30
035117,001063: 32,3133 00006 EXTEND
035118,001064: 32,3134 13141 BZF CDUWHZ # Y: ISSUE HZ CMDS
035119,001065:
035120,001066: 32,3135 30074 CA FLAGWRD0 # N: HAVE WE PROCEEDED AFTER TOUCHDOWN?
035121,001067: 32,3136 74753 MASK P66PROBT
035122,001068: 32,3137 00006 EXTEND
035123,001069: 32,3140 13147 BZF ASTROPRO # Y: PREVENT RCS FIRINGS
035124,001070: 32,3141 06042 CDUWHZ TC INTPRET # N: ISSUE HZ CMDS
035125,001071: 32,3142 03253 STORE UNFC/2 # MUST STORE FOR SUCCEEDING PASS
035126,001072: 32,3143 77624 CALL
035127,001073: 32,3144 61074 FINDCDUW
035128,001074: 32,3145 77776 EXIT
035129,001075:
035130,001076: 32,3146 13157 TCF P66VERT
035131,001077:
035132,001078: 32,3147 33424 ASTROPRO CA IDLADR # Y: PREVENT RCS JET FIRINGS
035133,001079: 32,3150 55263 TS T5ADR # AND
035134,001080: 32,3151 13157 TCF P66VERT # SKIP HZ CMDS, BUT CONTINUE DISPLAYS
035135,001081:
035136,001082: # ***************************************************************************************************************
035137,001083: # P66 VERTICAL CHANNEL
035138,001084: # ***************************************************************************************************************
035139,001085:
035140,001086: 32,3152 37713 RODTASK CA PRIO22 # BUMPS ALL OF SERVICER JOB EXCEPT RODCOMP
035141,001087: 32,3153 05105 TC FINDVAC
035142,001088: 32,3154 E7,1515 EBANK= DVCNTR
035143,001089: 32,3154 03162 64067 2CADR RODCOMP
035144,001090: 32,3156 15272 TCF TASKOVER
035145,001091:
035146,001092: 32,3157 34777 P66VERT CA 1SEC
035147,001093: 32,3160 05204 TC TWIDDLE
035148,001094: 32,3161 03152 ADRES RODTASK
035149,001095:
035150,001096: 32,3162 37714 RODCOMP CA PRIO23 # LET ONLY ONE JOB THRU RODCOMP AT A TIME
035151,001097: 32,3163 05146 TC PRIOCHNG
035152,001098:
035153,001099: 32,3164 00004 INHINT
035154,001100:
035155,001101: 32,3165 34755 CAF ZERO
035156,001102: 32,3166 57746 XCH RODCOUNT
035157,001103: 32,3167 00006 EXTEND
035158,001104: 32,3170 71756 MP RODSCAL1
035159,001105: 32,3171 21645 DAS VDGVERT # UPDATE DESTRED ALTITUDE RATE.
035160,001106:
035161,001107: 32,3172 34747 CAF BIT5 # ARE WE IN AUTO THROTTLE?
035162,001108: 32,3173 00006 EXTEND
035163,001109: 32,3174 02030 RAND CHAN30
035164,001110: 32,3175 00006 EXTEND
035165,001111: 32,3176 13202 BZF RODCOMPA # Y: CONTINUE ROD
035166,001112:
035167,001113: 32,3177 00006 EXTEND # N: RESET VDGVERT TO CURRENT HDOT
035168,001114: 32,3200 31474 DCA HDOTDISP
035169,001115: 32,3201 53645 DXCH VDGVERT
035170,001116:
035171,001117: # READ THE PIPAS FOR P66
035172,001118:
035173,001119: 32,3202 00006 RODCOMPA EXTEND
035174,001120: 32,3203 30040 DCA PIPAX
035175,001121: 32,3204 53764 DXCH OLDPIPAX # CURRENT PIPA READINGS INTO OLDPIPAX,Y,Z
035176,001122: 32,3205 52071 DXCH RUPTREG1 # SAVE PRIOR READINGS IN RUPTREG1,2,3
035177,001123: 32,3206 30041 CA PIPAZ
035178,001124: 32,3207 57765 XCH OLDPIPAZ
035179,001125: 32,3210 56072 XCH RUPTREG3
035180,001126:
035181,001127: 32,3211 00006 EXTEND # SNAPSHOT TIME OF PIPA READING.
035182,001128: 32,3212 30025 DCA TIME2
035183,001129: 32,3213 53762 DXCH THISTPIP
035184,001130:
035185,001131: 32,3214 03414 TC DEIMUBOB # REFER CURRENT PIPAX READING TO THE CM
035186,001132:
035187,001133: # COMPUTE DELV SINCE PIPTIME. RETURN FROM DEIMUBOB WITH CORRECTED OLDPIPAX IN A
035188,001134: # CURRENT P66 PIPA
035189,001135: 32,3215 61157 AD PIPATMPX # + PIPA BY PIPASR IF B4 COPYCYCL, 0 AFTER
035190,001136: 32,3216 54154 TS MPAC # = DELV SINCE VALIDITY OF V, 2(14)CM/SEC
035191,001137: 32,3217 31764 CA OLDPIPAY
035192,001138: 32,3220 61160 AD PIPATMPY
035193,001139: 32,3221 54157 TS MPAC +3
035194,001140: 32,3222 31765 CA OLDPIPAZ
035195,001141: 32,3223 61161 AD PIPATMPZ
035196,001142: 32,3224 54161 TS MPAC +5
035197,001143:
035198,001144: # COMPUTE DELV SINCE THE LAST P66 PASS
035199,001145:
035200,001146: 32,3225 41763 CS OLDPIPAX # - CURRENT P66 PIPA
035201,001147: 32,3226 61253 AD TEMX # - PIPA BY PIPASR IF INTERVENING, ELSE 0
035202,001148: 32,3227 60070 AD RUPTREG1 # + PIPA BY P66 ON THE LAST P66 PASS
035203,001149: 32,3230 55766 TS DELVROD # = -DELV SINCE LAST P66 PASS, 2(14)CM/SEC
035204,001150: 32,3231 41764 CS OLDPIPAY
035205,001151: 32,3232 61254 AD TEMY
035206,001152: 32,3233 60071 AD RUPTREG2
035207,001153:
|
|
Page 818
|
035209,001155: 32,3234 55770 TS DELVROD +2
035210,001156: 32,3235 41765 CS OLDPIPAZ
035211,001157: 32,3236 61255 AD TEMZ
035212,001158: 32,3237 60072 AD RUPTREG3
035213,001159: 32,3240 55772 TS DELVROD +4
035214,001160:
035215,001161: 32,3241 34755 CAF ZERO
035216,001162: 32,3242 54155 TS MPAC +1 # ZERO LO-ORDER MPAC COMPONENTS
035217,001163: 32,3243 54160 TS MPAC +4
035218,001164: 32,3244 54162 TS MPAC +6
035219,001165: 32,3245 55253 TS TEMX # ZERO TEMX, TEMY, AND TEMZ SO WE WILL
035220,001166: 32,3246 55254 TS TEMY # KNOW WHEN READACCS CHANGES THEM.
035221,001167: 32,3247 55255 TS TEMZ
035222,001168: 32,3250 44753 CS ONE
035223,001169: 32,3251 54163 TS MODE
035224,001170:
035225,001171: 32,3252 06042 TC INTPRET
035226,001172: 32,3253 65361 ITRPNT1 VXSC PDDL # SCALE MPAC TO M/CS *2(-7) AND PUSH (6)
035227,001173: 32,3254 26074 KPIP1
035228,001174: 32,3255 03762 THISTPIP
035229,001175: 32,3256 77625 DSU
035230,001176: 32,3257 01234 PIPTIME
035231,001177: 32,3260 00037 STORE 30D # 30-31D CONTAINS TIME IN CS SINCE PIPTIME
035232,001178: 32,3261 63271 DDV PDVL # (8)
035233,001179: 32,3262 27020 4SEC(28)
035234,001180: 32,3263 01236 GDT/2
035235,001181: 32,3264 74251 VSU VXSC # (6)
035236,001182: 32,3265 02616 VBIAS
035237,001183: 32,3266 53352 VSL2 VAD
035238,001184: 32,3267 03527 V
035239,001185: 32,3270 45455 VAD STADR # (0)
035240,001186: 32,3271 53746 STOVL 24D # STORE UPDATED VELOCITY IN 24-29D
035241,001187: 32,3272 03521 R
035242,001188: 32,3273 77656 UNIT
035243,001189: 32,3274 00017 STORE 14D
035244,001190: 32,3275 72441 DOT SL1
035245,001191: 32,3276 00031 24D
035246,001192: 32,3277 17474 STODL HDOTDISP # UPDATE ALTITUDE RATE FOR NOUN 60
035247,001193: 32,3300 00037 30D
035248,001194: 32,3301 41261 SL DMP
035249,001195: 32,3302 20214 11D
035250,001196: 32,3303 03474 HDOTDISP
035251,001197: 32,3304 45215 DAD DSU
035252,001198: 32,3305 00045 36D
035253,001199: 32,3306 02333 /LAND/
035254,001200: 32,3307 17775 STODL HCALC1 # UPDATE ALTITUDE FOR NOUN 60
|
|
Page 819
|
035256,001202: 32,3310 03474 HDOTDISP
035257,001203: 32,3311 56221 BDSU DDV
035258,001204: 32,3312 03645 VDGVERT
035259,001205: 32,3313 02536 TAUROD
035260,001206: 32,3314 51515 PDVL ABVAL # (2)
035261,001207: 32,3315 01236 GDT/2
035262,001208: 32,3316 60471 DDV SR2
035263,001209: 32,3317 05652 GSCALE
035264,001210: 32,3320 00025 STORE 20D
035265,001211: 32,3321 43234 RTB DAD # (0)
035266,001212: 32,3322 47613 QTPROLOG # QUICTRIG PRESERVES MPAC
035267,001213: 32,3323 45115 PDVL CALL # (2)
035268,001214: 32,3324 06516 UNITX # X AXIS IN NB COORDS
035269,001215: 32,3325 47700 *NBSM* # TRANSFORMS TO SM COORDS
035270,001216: 32,3326 77641 DOT
035271,001217: 32,3327 00017 14D
035272,001218: 32,3330 00027 STORE 22D
035273,001219: 32,3331 45465 BDDV STADR # (0)
035274,001220: 32,3332 50313 STOVL /AFC/
035275,001221: 32,3333 03767 DELVROD
035276,001222: 32,3334 53361 VXSC VAD
035277,001223: 32,3335 26074 KPIP1
035278,001224: 32,3336 02616 VBIAS
035279,001225: 32,3337 65246 ABVAL PDDL # (2)
035280,001226: 32,3340 03762 THISTPIP
035281,001227: 32,3341 65225 DSU PDDL # (4)
035282,001228: 32,3342 03760 LASTTPIP
035283,001229: 32,3343 03762 THISTPIP
035284,001230: 32,3344 17760 STODL LASTTPIP # (2)
035285,001231: 32,3345 55271 DDV BDDV # (0)
035286,001232: 32,3346 25430 SHFTFACT
035287,001233: 32,3347 41325 PDDL DMP # (2)
035288,001234: 32,3350 03611 FWEIGHT
035289,001235: 32,3351 25427 BIT1H
035290,001236: 32,3352 56271 DDV DDV
035291,001237: 32,3353 01244 MASS
035292,001238: 32,3354 22006 SCALEFAC
035293,001239: 32,3355 65215 DAD PDDL # (4)
035294,001240: 32,3356 00001 0D
035295,001241: 32,3357 00025 20D
035296,001242: 32,3360 45271 DDV DSU # (2)
035297,001243: 32,3361 00027 22D
035298,001244:
|
|
Page 820
|
035300,001246: 32,3362 43205 DMP DAD
035301,001247: 32,3363 02540 LAG/TAU
035302,001248: 32,3364 03464 /AFC/
035303,001249: 32,3365 56325 PDDL DDV # (4)
035304,001250: 32,3366 02544 MAXFORCE
035305,001251: 32,3367 01244 MASS
035306,001252: 32,3370 56325 PDDL DDV # (6)
035307,001253: 32,3371 02542 MINFORCE
035308,001254: 32,3372 01244 MASS
035309,001255: 32,3373 44206 PUSH BDSU # (8)
035310,001256: 32,3374 00003 2D
035311,001257: 32,3375 71240 BMN DLOAD # (6)
035312,001258: 32,3376 65404 AFCSPOT
035313,001259: 32,3377 41545 DLOAD PUSH # (6)
035314,001260: 32,3400 51021 BDSU BPL
035315,001261: 32,3401 00003 2D
035316,001262: 32,3402 65404 AFCSPOT
035317,001263: 32,3403 77745 DLOAD # (4)
035318,001264: 32,3404 77745 AFCSPOT DLOAD # (2),(4),OR (6)
035319,001265: 32,3405 77601 SETPD # (2)
035320,001266: 32,3406 00003 2D
035321,001267: 32,3407 17464 STODL /AFC/ # (0)
035322,001268: 32,3410 77776 ITRPNT2 EXIT
035323,001269: 32,3411 52155 DXCH MPAC # MPAC = MEASURED ACCELERATION.
035324,001270: 32,3412 04635 TC POSTJUMP
035325,001271: 32,3413 63514 FCADR THROT66
035326,001272:
035327,001273: # THE FOLLOWING SUBROUTINE REFERS THE X PIPA READING TO THE CENTER OF MASS
035328,001274: # BY SUBTRACTING THOSE PIPA COUNTS PRODUCED BY VERTICAL IMU MOTION
035329,001275: # RELATIVE TO THE CENTER OF MASS. THE SPACECRAFT X AXIS IS ASSUMED
035330,001276: # APPROXIMATELY VERTICAL. THE EQUATION IS:
035331,001277:
035332,001278: # OLDPIPAX = OLDPIPAX - OMEGAQ RIMUZ
035333,001279:
035334,001280: # WHERE OLDPIPAX IS THE CURRENT P66 PIPA READING, OMEGAQ IS THE ATTITUDE
035335,001281: # RATE ABOUT THE Q (Y) AXIS, AND RIMUZ IS THE Z COORDINATE OF THE IMU.
035336,001282:
035337,001283: 32,3414 35015 DEIMUBOB CA EBANK6
035338,001284: 32,3415 54003 TS EBANK
035339,001285: 32,3416 E6,1774 EBANK= END-E6
035340,001286: 32,3416 41422 CS OMEGAQ # PITCH RATE IN UNITS 45 DEG/SEC
035341,001287: 32,3417 24006 INCR BBANK
035342,001288: 32,3420 E7,1777 EBANK= END-E7
035343,001289: 32,3420 00006 EXTEND
035344,001290: 32,3421 73433 MP RIMUZ # IMU Z IN UNITS (180/PI 45) 2(14) CM
035345,001291: 32,3422 27763 ADS OLDPIPAX # CURRENT P66 PIPA X IN UNITS 2(14) CM/SEC
035346,001292: 32,3423 00002 TC Q
035347,001293:
|
|
Page 821
|
035349,001295: # CONSTANTS FOR P66
035350,001296:
035351,001297: 32,3424 02024 IDLADR GENADR DAPIDLER
035352,001298: 32,3425 00053 GHZ DEC 1.62292 E-4 B+4 # GRAVITY IN 2(-4)M/CS/CS
035353,001299:
035354,001300: 32,3426 00001 BIT1H OCT 00001 # MUST PRECEDE A ZERO
035355,001301: 32,3427 00000 04000 SHFTFACT 2DEC 1 B-17 # SCALES P66 PERIOD TO 2(1))CS
035356,001302: 32,3431 00000 05075 BIASFACT 2DEC 655.36 B-26
035357,001303: 32,3433 00143 RIMUZ DEC 99.486 B-14 # 1.2667 M IN UNITS (180/PI 45) 2(14) CM
035358,001304:
|
|
Page 822
|
035360,001306: # ****************************************************************************************************************
035361,001307: # REDESIGNATOR TRAP
035362,001308: # ****************************************************************************************************************
035363,001309:
035364,001310: # END INSERT
035365,001311: 11,2302 BANK 11
035366,001312: 11,2000 SETLOC F2DPS*11
035367,001313: 11,2000 BANK
035368,001314:
035369,001315: 11,2302 COUNT* $$/F2DPS
035370,001316:
035371,001317: 11,2302 56016 PITFALL XCH BANKRUPT
035372,001318: 11,2303 00006 EXTEND
035373,001319: 11,2304 22012 QXCH QRUPT
035374,001320:
035375,001321: 11,2305 05332 TC CHECKMM # IF NOT IN P64, NO REASON TO CONTINUE
035376,001322: 11,2306 00100 DEC 64 B-14
035377,001323: 11,2307 15301 TCF RESUME
035378,001324:
035379,001325: 11,2310 00006 EXTEND
035380,001326: 11,2311 00031 READ CHAN31
035381,001327: 11,2312 40000 COM
035382,001328: 11,2313 72401 MASK ALL4BITS
035383,001329: 11,2314 55647 TS ELVIRA
035384,001330: 11,2315 34752 CAF TWO
035385,001331: 11,2316 55646 TS ZERLINA
035386,001332: 11,2317 34756 CAF FIVE
035387,001333: 11,2320 05204 TC TWIDDLE
035388,001334: 11,2321 02326 ADRES REDESMON
035389,001335: 11,2322 15301 TCF RESUME
035390,001336:
035391,001337:
035392,001338: # REDESIGNATION MONITOR (INITIATED BY PITFALL)
035393,001339:
035394,001340:
035395,001341: 11,2323 55646 PREMON1 TS ZERLINA
035396,001342: 11,2324 34757 PREMON2 CAF SEVEN
035397,001343: 11,2325 05235 TC VARDELAY
035398,001344: 11,2326 00006 REDESMON EXTEND
035399,001345: 11,2327 00031 READ 31
035400,001346: 11,2330 40000 COM
035401,001347: 11,2331 72401 MASK ALL4BITS
035402,001348: 11,2332 57647 XCH ELVIRA
035403,001349: 11,2333 54001 TS L
035404,001350: 11,2334 11647 CCS ELVIRA # DO ANY BITS APPEAR THIS PASS?
035405,001351: 11,2335 12324 TCF PREMON2 # Y: CONTINUE MONITOR
035406,001352:
035407,001353: 11,2336 10001 CCS L # N: ANY LAST PASS?
035408,001354: 11,2337 12347 TCF COUNT'EM # Y: COUNT 'EM, RESET RUPT, TERMINATE
035409,001355: 11,2340 11646 CCS ZERLINA # N: HAS ZERLINA REACHED ZERO YET?
035410,001356:
|
|
Page 823
|
035412,001358: 11,2341 12323 TCF PREMON1 # N: DIMINISH ZERLINA, CONTINUE
035413,001359: 11,2342 06022 RESETRPT TC C13STALL # Y: RESET RUPT, TERMINATE
035414,001360: 11,2343 34740 CAF BIT12
035415,001361: 11,2344 00006 EXTEND
035416,001362: 11,2345 05013 WOR CHAN13
035417,001363: 11,2346 15272 TCF TASKOVER
035418,001364:
035419,001365: 11,2347 34737 COUNT'EM CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
035420,001366: 11,2350 00006 EXTEND
035421,001367: 11,2351 02031 RAND CHAN31
035422,001368: 11,2352 00006 EXTEND
035423,001369: 11,2353 12342 BZF RESETRPT # YES: SKIP REDESIGNATION LOGIC.
035424,001370:
035425,001371: 11,2354 30001 CA L # NO
035426,001372: 11,2355 74746 MASK -AZBIT
035427,001373: 11,2356 10000 CCS A
035428,001374: 11,2357 42402 -AZ CS AZEACH
035429,001375: 11,2360 27644 ADS AZINCR1
035430,001376: 11,2361 30001 CA L
035431,001377: 11,2362 74747 MASK +AZBIT
035432,001378: 11,2363 10000 CCS A
035433,001379: 11,2364 32402 +AZ CA AZEACH
035434,001380: 11,2365 27644 ADS AZINCR1
035435,001381: 11,2366 30001 CA L
035436,001382: 11,2367 74753 MASK -ELBIT
035437,001383: 11,2370 10000 CCS A
035438,001384: 11,2371 42403 -EL CS ELEACH
035439,001385: 11,2372 27645 ADS ELINCR1
035440,001386: 11,2373 30001 CA L
035441,001387: 11,2374 74752 MASK +ELBIT
035442,001388: 11,2375 10000 CCS A
035443,001389: 11,2376 32403 +EL CA ELEACH
035444,001390: 11,2377 27645 ADS ELINCR1
035445,001391: 11,2400 12342 TCF RESETRPT
035446,001392:
035447,001393: # THESE EQUIVALENCIES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM
035448,001394:
035449,001395: 11,2401 4752 +ELBIT = BIT2 # -PITCH
035450,001396:
035451,001397:
035452,001398: 11,2401 4753 -ELBIT = BIT1 # +PITCH
035453,001399:
035454,001400:
035455,001401: 11,2401 4747 +AZBIT = BIT5
035456,001402:
035457,001403:
035458,001404: 11,2401 4746 -AZBIT = BIT6
035459,001405:
|
|
Page 824
|
035461,001407:
035462,001408: 11,2401 00063 ALL4BITS OCT 00063
035463,001409:
035464,001410:
035465,001411: 11,2402 01074 AZEACH DEC .03491 # 2 DEGREES
035466,001412:
035467,001413:
035468,001414: 11,2403 00217 ELEACH DEC .00873 # 1/2 DEGREE
035469,001415:
035470,001416: # ****************************************************************************************************************
035471,001417: # R.O.D. TRAP
035472,001418: # ************************************************************************
035473,001419:
035474,001420: 23,2000 SETLOC RODTRAP
035475,001421: 23,2000 BANK
035476,001422: 23,2451 COUNT* $$/F2DPS # ****************************************
035477,001423:
035478,001424: 23,2451 74745 DESCBITS MASK BIT7 # COME HERE FROM MARKRUPT CODING WITH BIT
035479,001425: 23,2452 10000 CCS A # 7 OR 6 OF CHANNEL 16 IN A: BIT 7 MEANS
035480,001426: 23,2453 44752 CS TWO # - RATE INCREMENT, BIT 6 + INCREMENT
035481,001427: 23,2454 64753 AD ONE
035482,001428: 23,2455 27746 ADS RODCOUNT
035483,001429: 23,2456 15301 TCF RESUME # TRAP IS RESET WHEN SWITCH IS RELEASED
035484,001430:
035485,001431:
035486,001432: 31,3545 BANK 31
035487,001433: 31,2000 SETLOC F2DPS*31
035488,001434: 31,2000 BANK
035489,001435:
035490,001436: 31,3545 COUNT* $$/F2DPS
035491,001437:
035492,001438: # ****************************************************************************************************************
035493,001439: # DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)
035494,001440: # ****************************************************************************************************************
035495,001441:
035496,001442: # N N-1
035497,001443: # ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X + A X + ... + A X + A
035498,001444: # N N-1 1 0
035499,001445:
035500,001446: # USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT. THE ENTERING DATA MUST BE AS FOLLOWS:
035501,001447:
035502,001448: # A SP LOC-3 ADRES FOR REFERENCING PWR COF TABL
035503,001449: # L SP N-1 N IS THE DEGREE OF THE POWER SERIES
035504,001450: # MPAC DP X INITIAL GUESS FOR ROOT
035505,001451:
035506,001452: # LOC-2N DP A(0)
035507,001453: # ...
035508,001454: # LOC DP A(N)
035509,001455: # LOC+2 SP PRECROOT PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)
035510,001456:
035511,001457: # THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.
035512,001458: # RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3. IF ROOTPSRS FAILS TO CONVERGE IN 8 PASSES, RETURN IS TO LOC+1 AND
035513,001459: # OUTPUTS ARE NOT TO BE TRUSTED.
035514,001460:
035515,001461: # PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
035516,001462: # PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
035517,001463: # COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
035518,001464: # COEFFICIENT TABLE = 1 OR > 1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
035519,001465: # ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
035520,001466:
035521,001467: # 1. USER'S RESPONSIBILITY TO ASSURE THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
035522,001468:
035523,001469: # 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
035524,001470: # POWER SERIES. THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
035525,001471: # PRECLUDE EVENTUAL CONVERGENCE.
035526,001472:
|
|
Page 825
|
035528,001474: # 3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5. AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
035529,001475: # ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.
035530,001476:
035531,001477: # 4. THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.
035532,001478:
035533,001479: # STORE ENTERING DATA, INITLIZE ERASABLES
035534,001480:
035535,001481: 31,3545 00006 ROOTPSRS EXTEND
035536,001482: 31,3546 22132 QXCH RETROOT # RETURN ADRES
035537,001483: 31,3547 54117 TS PWRPTR # PWR TABL POINTER
035538,001484: 31,3550 52160 DXCH MPAC +3 # PWR TABL ADRES, N-1
035539,001485: 31,3551 33670 CA DERTABLL
035540,001486: 31,3552 54141 TS DERPTR # DER TABL POINTER
035541,001487: 31,3553 54161 TS MPAC +5 # DER TABL ADRES
035542,001488: 31,3554 10160 CCS MPAC +4 # NO POWER SERIES OF DEGREE 1 OR LESS
035543,001489: 31,3555 54162 TS MPAC +6 # N-2
035544,001490: 31,3556 34755 CA ZERO # MODE USED AS ITERATION COUNTER. MODE
035545,001491: 31,3557 54163 TS MODE # MUST BE POS SO ABS WON'T COMP MPAC+3 ETC
035546,001492:
035547,001493: # COMPUTE CRITERION TO STOP ITERATING
035548,001494:
035549,001495: 31,3560 00006 EXTEND
035550,001496: 31,3561 30155 DCA MPAC # FETCH ROOT GUESS, KEEPING IT IN MPAC
035551,001497: 31,3562 52127 DXCH ROOTPS # AND IN ROOTPS
035552,001498: 31,3563 50157 INDEX MPAC +3 # PWR TABL ADRES
035553,001499: 31,3564 30005 CA 5 # PRECROOT TO A
035554,001500: 31,3565 07312 TC SHORTMP # YIELDS DP PRODUCT IN MPAC
035555,001501: 31,3566 04713 TC USPRCADR
035556,001502: 31,3567 01226 CADR ABS # YIELDS ABVAL OF CRITERION ON DX IN MPAC
035557,001503: 31,3570 52155 DXCH MPAC
035558,001504: 31,3571 52125 DXCH DXCRIT # CRITERION
035559,001505:
035560,001506: # SET UP DER COF TABL
035561,001507:
035562,001508: 31,3572 00006 EXTEND
035563,001509: 31,3573 50117 INDEX PWRPTR
035564,001510: 31,3574 30004 DCA 3
035565,001511: 31,3575 52155 DXCH MPAC # A(N) TO MPAC
035566,001512:
035567,001513: 31,3576 30160 CA MPAC +4 # N-1 TO A
035568,001514:
035569,001515: 31,3577 54140 DERCLOOP TS PWRCNT # LOOP COUNTER
035570,001516: 31,3600 64753 AD ONE
035571,001517: 31,3601 07321 TC DMPNSUB # YIELDS DERCOF = I X A(I) IN MPAC
035572,001518: 31,3602 00006 EXTEND
035573,001519: 31,3603 50117 INDEX PWRPTR
035574,001520: 31,3604 30002 DCA 1
035575,001521: 31,3605 52155 DXCH MPAC # A(I-1) TO MPAC, FETCHING DERCOF
035576,001522: 31,3606 50141 INDEX DERPTR
035577,001523: 31,3607 52004 DXCH 3 # DERCOF TO DER TABL
035578,001524:
|
|
Page 826
|
035580,001526: 31,3610 44752 CS TWO
035581,001527: 31,3611 26117 ADS PWRPTR # DECREMENT PWR POINTER
035582,001528: 31,3612 44752 CS TWO
035583,001529: 31,3613 26141 ADS DERPTR # DECREMENT DER POINTER
035584,001530: 31,3614 10140 CCS PWRCNT
035585,001531: 31,3615 13577 TCF DERCLOOP
035586,001532:
035587,001533: # CONVERGE ON ROOT
035588,001534:
035589,001535: 31,3616 00006 ROOTLOOP EXTEND
035590,001536: 31,3617 30127 DCA ROOTPS # FETCH CURRENT ROOT
035591,001537: 31,3620 52155 DXCH MPAC # LEAVE IN MPAC
035592,001538: 31,3621 00006 EXTEND
035593,001539: 31,3622 30162 DCA MPAC +5 # LOAD A, L WITH DER TABL ADRES, N-2
035594,001540: 31,3623 07220 TC POWRSERS # YIELDS DERIVATIVE IN MPAC
035595,001541:
035596,001542: 31,3624 00006 EXTEND
035597,001543: 31,3625 30127 DCA ROOTPS
035598,001544: 31,3626 52155 DXCH MPAC # CURRENT ROOT TO MPAC, FETCHING DERIVTIVE
035599,001545: 31,3627 52131 DXCH BUF # LEAVE DERIVATIVE IN BUF AS DIVISOR
035600,001546: 31,3630 00006 EXTEND
035601,001547: 31,3631 30160 DCA MPAC +3 # LOAD A, L WITH PWR TABL ADRES, N-1
035602,001548: 31,3632 07220 TC POWRSERS # YIELDS RESIDUAL IN MPAC
035603,001549:
035604,001550: 31,3633 04713 TC USPRCADR
035605,001551: 31,3634 00353 CADR DDV/BDDV # YIELDS -DX IN MPAC
035606,001552:
035607,001553: 31,3635 00006 EXTEND
035608,001554: 31,3636 40155 DCS MPAC # FETCH DX, LEAVING -DX IN MPAC
035609,001555: 31,3637 20127 DAS ROOTPS # CORRECTED ROOT NOW IN ROOTPS
035610,001556:
035611,001557: 31,3640 04713 TC USPRCADR
035612,001558: 31,3641 01226 CADR ABS # YIELDS ABS(DX) IN MPAC
035613,001559: 31,3642 00006 EXTEND
035614,001560: 31,3643 40125 DCS DXCRIT
035615,001561: 31,3644 20155 DAS MPAC # ABS(DX)-ABS(DXCRIT) IN MPAC
035616,001562:
035617,001563: 31,3645 30163 CA MODE
035618,001564: 31,3646 74750 MASK BIT4 # KLUMPP SAYS GIVE UP AFTER EIGHT PASSES
035619,001565: 31,3647 10000 CCS A
035620,001566: 31,3650 00132 BADROOT TC RETROOT
035621,001567:
035622,001568: 31,3651 24163 INCR MODE # INCREMENT ITERATION COUNTER
035623,001569: 31,3652 10154 CCS MPAC # TEST HI ORDER DX
035624,001570: 31,3653 13616 TCF ROOTLOOP
035625,001571: 31,3654 13656 TCF TESTLODX
035626,001572: 31,3655 13662 TCF ROOTSTOR
035627,001573: 31,3656 10155 TESTLODX CCS MPAC +1 # TEST LO ORDER DX
035628,001574: 31,3657 13616 TCF ROOTLOOP
035629,001575: 31,3660 13662 TCF ROOTSTOR
035630,001576:
|
|
Page 827
|
035632,001578: 31,3661 13662 TCF ROOTSTOR
035633,001579: 31,3662 52127 ROOTSTOR DXCH ROOTPS
035634,001580: 31,3663 52155 DXCH MPAC
035635,001581: 31,3664 30163 CA MODE
035636,001582: 31,3665 54156 TS MPAC +2 # STORE SP ITERATION COUNT IN MPAC+2
035637,001583: 31,3666 50132 INDEX RETROOT
035638,001584: 31,3667 10002 TCF 2
035639,001585:
035640,001586: 31,3670 00147 DERTABLL ADRES DERCOFN -3
035641,001587:
035642,001588:
035643,001589: # ****************************************************************************************************************
035644,001590: # TRASHY LITTLE SUBROUTINES
035645,001591: # ****************************************************************************************************************
035646,001592:
035647,001593: 31,3671 34755 ZEROMID CAF ZERO # ROUTINE TO ZERO THE MIDDLE COMPONENT
035648,001594: 31,3672 54157 TS MPAC +3 # OF A VECTOR IN MPAC. "TCF DANZIG"
035649,001595: 31,3673 54160 TS MPAC +4 # COULD BE A "TC Q" AT THE EXPENSE OF
035650,001596: 31,3674 16064 TCF DANZIG # A TINY AMOUNT OF TIME.
035651,001597:
035652,001598:
035653,001599: 31,3675 51346 INTPRETX INDEX WCHPHASE # SET X1 ON THE WAY TO THE INTERPRETER
035654,001600: 31,3676 42415 CS TARGTDEX
035655,001601: 31,3677 50120 INDEX FIXLOC
035656,001602: 31,3700 54046 TS X1
035657,001603: 31,3701 16042 TCF INTPRET
035658,001604:
035659,001605: 31,3702 31642 TDISPSET CA TTF/8
035660,001606: 31,3703 00006 EXTEND
035661,001607: 31,3704 74750 MP TSCALINV
035662,001608: 31,3705 53476 DXCH TTFDISP
035663,001609:
035664,001610: 31,3706 35014 CA EBANK5 # TREDES BECOMES ZERO TWO PASSES
035665,001611: 31,3707 54003 TS EBANK # BEFORE TCGFAPPR IS REACHED
035666,001612: 31,3710 E5,1454 EBANK= TCGFAPPR
035667,001613: 31,3710 31454 CA TCGFAPPR
035668,001614: 31,3711 24006 INCR BBANK
035669,001615: 31,3712 24006 INCR BBANK
035670,001616: 31,3713 E7,1642 EBANK= TTF/8
035671,001617: 31,3713 61642 AD TTF/8
035672,001618: 31,3714 00006 EXTEND
035673,001619: 31,3715 73763 MP TREDESCL
035674,001620: 31,3716 63760 AD -DEC103
035675,001621: 31,3717 64735 AD NEGMAX
035676,001622: 31,3720 54001 TS L
035677,001623: 31,3721 40001 CS L
035678,001624: 31,3722 60001 AD L
035679,001625: 31,3723 63762 AD +DEC99
035680,001626: 31,3724 64733 AD POSMAX
035681,001627:
|
|
Page 828
|
035683,001629: 31,3725 55666 TS TREDES
035684,001630: 31,3726 41666 CS TREDES
035685,001631: 31,3727 27666 ADS TREDES
035686,001632: 31,3730 00002 TC Q
035687,001633:
035688,001634:
035689,001635: 31,3731 05653 1406POO TC POODOO
035690,001636: 31,3732 21406 OCT 21406
035691,001637: 31,3733 05600 1406ALM TC ALARM
035692,001638: 31,3734 01406 OCT 01406
035693,001639: 31,3735 13421 TCF RATESTOP
035694,001640:
035695,001641: # DESCENT OVERFLOW SUBROUTINE
035696,001642: 31,3736 00006 OVFDESC EXTEND
035697,001643: 31,3737 23456 QXCH OVFRET
035698,001644:
035699,001645: 31,3740 05600 TC ALARM
035700,001646: 31,3741 01410 OCT 01410
035701,001647:
035702,001648: 31,3742 00004 INHINT # MUST USE INHINT, IBNKCALL, RELINT
035703,001649: 31,3743 04674 TC IBNKCALL # BECAUSE DAP COULD INTERRUPT STOPRATE AND
035704,001650: 31,3744 40166 FCADR STOPRATE # BECAUSE WE COME FROM P66HZ VIA BANKCALL
035705,001651: 31,3745 00003 RELINT
035706,001652:
035707,001653: 31,3746 34755 CA ZERO
035708,001654: 31,3747 54121 TS OVFIND
035709,001655:
035710,001656: 31,3750 01456 TC OVFRET
035711,001657:
|
|
Page 829
|
035713,001659:
035714,001660: # ****************************************************************************************************************
035715,001661: # SPECIALIZED "PHASCHNG" SUBROUTINE
035716,001662: # ****************************************************************************************************************
035717,001663:
035718,001664: 31,3751 E3,1440 EBANK= PHSNAME2
035719,001665: 31,3751 35007 FASTCHNG CA EBANK3 # SPECIALIZED 'PHASCHNG' ROUTINE
035720,001666: 31,3752 56003 XCH EBANK
035721,001667: 31,3753 52002 DXCH L
035722,001668: 31,3754 55442 TS PHSNAME3
035723,001669: 31,3755 22003 LXCH EBANK
035724,001670: 31,3756 E7,1621 EBANK= E2DPS
035725,001671: 31,3756 00000 TC A
035726,001672:
035727,001673: # ****************************************************************************************************************
035728,001674: # PARAMETER TABLE INDIRECT ADDRESSES
035729,001675: # ****************************************************************************************************************
035730,001676:
035731,001677: 31,3757 E5,1402 RDG = RBRFGX
035732,001678: 31,3757 E5,1412 VDG = VBRFGX
035733,001679: 31,3757 E5,1422 ADG = ABRFGX
035734,001680: 31,3757 E5,1432 VDG2TTF = VBRFG*
035735,001681: 31,3757 E5,1436 ADG2TTF = ABRFG*
035736,001682: 31,3757 E5,1442 JDG2TTF = JBRFG*
035737,001683:
035738,001684: # ****************************************************************************************************************
035739,001685: # LUNAR LANDING CONSTANTS
035740,001686: # ***************************************************************************************************************
035741,001687:
035742,001688: 31,3757 01565 TABLTTFL ADRES TABLTTF +3 # ADDRESS FOR REFERENCING TTF TABLE
035743,001689:
035744,001690:
035745,001691: 31,3760 4740 TTFSCALE = BIT12
035746,001692:
035747,001693:
035748,001694: 31,3760 4750 TSCALINV = BIT4
035749,001695:
035750,001696:
035751,001697: 31,3760 77630 -DEC103 DEC -103 B-14
035752,001698:
035753,001699:
035754,001700: 31,3761 00155 P64DB OCT 00155 # 0.3 DEGREES SCALED AT CDU SCALING
035755,001701:
035756,001702:
035757,001703: 31,3762 00143 +DEC99 DEC +99 B-14
035758,001704:
035759,001705:
035760,001706: 31,3763 75340 TREDESCL DEC -.08
035761,001707:
|
|
Page 830
|
035763,001709: 31,3764 00264 180DEGS DEC +180 B-14
035764,001710:
035765,001711:
035766,001712: 31,3765 00056 1/2DEG DEC +.00278
035767,001713:
035768,001714:
035769,001715: 31,3766 01542 PROJMAX DEC .42262 B-3 # SIN(25')/8 TO COMPARE WITH PROJ
035770,001716:
035771,001717:
035772,001718: 31,3767 01022 PROJMIN DEC .25882 B-3 # SIN(15')/8 TO COMPARE WITH PROJ
035773,001719:
035774,001720:
035775,001721: 31,3770 01477 V06N63 VN 0663 # P63
035776,001722:
035777,001723: 31,3771 01500 V06N64 VN 0664 # P64
035778,001724:
035779,001725: 31,3772 01474 V06N60 VN 0660 # P65, P66, P67
035780,001726:
035781,001727:
035782,001728: 22,3647 BANK 22
035783,001729: 22,2000 SETLOC LANDCNST
035784,001730: 22,2000 BANK
035785,001731: 22,3647 COUNT* $$/F2DPS
035786,001732:
035787,001733: 22,3647 00021 14161 HIGHESTF 2DEC 4.34546769 B-12
035788,001734: 22,3651 01440 00000 GSCALE 2DEC 100 B-11
035789,001735: 22,3653 14000 00000 3/8DP 2DEC .375
035790,001736: 22,3655 30000 00000 3/4DP 2DEC .750
035791,001737: 22,3657 77534 45074 DEPRCRIT 2DEC -.02 B-1
035792,001738: # ****************************************************************************************************************
035793,001739: # ****************************************************************************************************************
End of include-file LUNAR_LANDING_GUIDANCE_EQUATIONS.agc. Parent file is MAIN.agc