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