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