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