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