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