Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
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.
|
035046,000002: ## Copyright: Public domain.
035047,000003: ## Filename: LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
035048,000004: ## Purpose: A section of LUM69 revision 2.
035049,000005: ## It is part of the reconstructed source code for the flown
035050,000006: ## version of the flight software for the Lunar Module's (LM)
035051,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
035052,000008: ## been recreated from a copy of Luminary revsion 069, using
035053,000009: ## changes present in Luminary 099 which were described in
035054,000010: ## Luminary memos 75 and 78. The code has been adapted such
035055,000011: ## that the resulting bugger words exactly match those specified
035056,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
035057,000013: ## relatively high confidence that the reconstruction is correct.
035058,000014: ## Reference: pp. 802-828
035059,000015: ## Assembler: yaYUL
035060,000016: ## Contact: Ron Burkey <info@sandroid.org>.
035061,000017: ## Website: www.ibiblio.org/apollo/index.html
035062,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
035063,000019: ## 2021-05-30 ABS Removed DEC66 symbol not present in Luminary 69.
035064,000020:
|
|
Page 802
|
035066,000022: 31,2445 E7,1617 EBANK= E2DPS
035067,000023:
035068,000024: 31,2445 COUNT* $$/F2DPS
035069,000025:
035070,000026: # ****************************************************************************************************************
035071,000027: # LUNAR LANDING FLIGHT SEQUENCE TABLES
035072,000028: # ****************************************************************************************************************
035073,000029:
035074,000030: # FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION. THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
035075,000031: # WCHPHASE = -1 ---> IGNALG
035076,000032: # WCHPHASE = 0 ---> BRAKQUAD
035077,000033: # WCHPHASE = 1 ---> BRAKLING
035078,000034: # WCHPHASE = 2 ---> APPRQUAD
035079,000035: # WCHPHASE = 3 ---> APPRLING
035080,000036: # WCHPHASE = 4 ---> VERTICAL
035081,000037:
035082,000038: # ***************************************************************************************************************
035083,000039:
035084,000040: # ROUTINES FOR STARTING NEW GUIDANCE PHASES:
035085,000041:
035086,000042: 31,2445 12657 TCF TTFINCR # IGNALG
035087,000043: 31,2446 12657 NEWPHASE TCF TTFINCR # BRAKQUAD
035088,000044: 31,2447 12643 TCF LINSET? # BRAKLING
035089,000045: 31,2450 12627 TCF STARTP64 # APPRQUAD
035090,000046: 31,2451 12647 TCF LINSET # APPRLING
035091,000047: 31,2452 12616 TCF P65START # VERTICAL
035092,000048:
035093,000049:
035094,000050:
035095,000051: # PRE-GUIDANCE COMPUTATIONS:
035096,000052:
035097,000053: 31,2453 13025 TCF CALCRGVG # IGNALG
035098,000054: 31,2454 13035 PREGUIDE TCF RGVGCALC # BRAKQUAD
035099,000055: 31,2455 13035 TCF RGVGCALC # BRAKLING
035100,000056: 31,2456 12725 TCF REDESIG # APPRQUAD
035101,000057: 31,2457 13035 TCF RGVGCALC # APPRLING
035102,000058: 31,2460 13035 TCF RGVGCALC # VERTICAL
035103,000059:
035104,000060:
035105,000061: # GUIDANCE EQUATIONS:
035106,000062:
035107,000063: 31,2461 13107 TCF TTF/8CL # IGNALG
035108,000064: 31,2462 13107 WHATGUID TCF TTF/8CL # BRAKQUAD
035109,000065: 31,2463 13101 TCF LINGUID # BRAKLING
035110,000066: 31,2464 13107 TCF TTF/8CL # APPRQUAD
035111,000067: 31,2465 13101 TCF LINGUID # BRAKLING
035112,000068: 31,2466 13477 TCF VERTGUID # VERTICAL
035113,000069:
|
|
Page 803
|
035115,000071: # POST GUIDANCE EQUATION COMPUTATIONS:
035116,000072:
035117,000073: 31,2467 13240 TCF CGCALC # IGNALG
035118,000074: 31,2470 13240 AFTRGUID TCF CGCALC # BRAKQUAD
035119,000075: 31,2471 13270 TCF LINXLOGC # BRAKLING
035120,000076: 31,2472 13240 TCF CGCALC # APPRQUAD
035121,000077: 31,2473 13270 TCF LINXLOGC # APPRLING
035122,000078: 31,2474 13411 TCF EXVERT # VERTICAL
035123,000079:
035124,000080:
035125,000081: # WINDOW VECTOR COMPUTATIONS:
035126,000082:
035127,000083: 31,2475 13304 TCF EXGSUB # IGNALG
035128,000084: 31,2476 13325 WHATEXIT TCF EXBRAK # BRAKQUAD
035129,000085: 31,2477 13325 TCF EXBRAK # BRAKLING
035130,000086: 31,2500 13333 TCF EXNORM # APPRQUAD
035131,000087: 31,2501 13333 TCF EXNORM # APPRLING
035132,000088:
035133,000089:
035134,000090: # DISPLAY ROUTINES:
035135,000091:
035136,000092: 31,2502 13441 WHATDISP TCF P63DISPS # BRAKQUAD
035137,000093: 31,2503 13441 TCF P63DISPS # BRAKLING
035138,000094: 31,2504 13445 TCF P64DISPS # APPRQUAD
035139,000095: 31,2505 13445 TCF P64DISPS # APPRLING
035140,000096: 31,2506 13475 TCF VERTDISP # VERTICAL
035141,000097:
035142,000098:
035143,000099: # INDICES FOR REFERENCING TARGET PARAMETERS:
035144,000100:
035145,000101: 31,2507 00000 OCT 0 # IGNALG
035146,000102: 31,2510 00000 TARGTDEX OCT 0 # BRAKQUAD
035147,000103: 31,2511 00000 OCT 0 # BRAKLING
035148,000104: 31,2512 00030 OCT 30 # APPRQUAD
035149,000105: 31,2513 00030 OCT 30 # APPRLING
035150,000106:
035151,000107:
035152,000108: # ****************************************************************************************************************
035153,000109: # ENTRY POINTS: 2GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
035154,000110: # ****************************************************************************************************************
035155,000111:
035156,000112: # IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC QUIDANCE
035157,000113:
035158,000114: 31,2514 77776 ?GUIDSUB EXIT
035159,000115: 31,2515 34752 CAF TWO # N = 3
035160,000116: 31,2516 55645 TS NGUIDSUB
035161,000117: 31,2517 12600 TCF GUILDRET
035162,000118:
035163,000119: 31,2520 55645 GUIDSUB TS NGUIDSUB # ON SUCEEDING PASSES SKIP TTFINCR
035164,000120: 31,2521 13025 TCF CALCRGVG
035165,000121:
|
|
Page 804
|
035167,000123:
035168,000124: # NORMAL ENTRY: CONTROL COMES HERE FROM SERVOUT
035169,000125:
035170,000126: 31,2522 05353 LUNLAND TC PHASCHNG
035171,000127: 31,2523 00035 OCT 00035 # GROUP 5: RETAIN ONLY PIPA TASK
035172,000128: 31,2524 05353 TC PHASCHNG
035173,000129: 31,2525 05023 OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
035174,000130: 31,2526 21000 OCT 21000 # JUST HIGHER THAN SERVICER'S PRIORITY
035175,000131:
035176,000132: # ****************************************************************************************************************
035177,000133: # GUILDENSTERN: AUTO-MODES MONITOR (R13)
035178,000134: # ****************************************************************************************************************
035179,000135:
035180,000136: 31,2527 COUNT* $$/R13
035181,000137:
035182,000138: # HERE IS THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE
035183,000139: # DISCRETE TO SELECT P67 OR P66 RESPECTIVELY; ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66
035184,000140: # UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE.
035185,000141:
035186,000142: 31,2527 00006 GUILDEN EXTEND # IS UN-AUTO-THROTTLE DISCRETE PRESENT?
035187,000143: 31,2530 00030 READ CHAN30
035188,000144: 31,2531 74747 MASK BIT5
035189,000145: 31,2532 10000 CCS A
035190,000146: 31,2533 12564 TCF STARTP67 # YES
035191,000147: 31,2534 05321 P67NOW? TC CHECKMM # NO: ARE WE IN P67 NOW?
035192,000148: 31,2535 00103 DEC 67 B-14
035193,000149: 31,2536 12570 TCF STABL? # NO
035194,000150: 31,2537 03721 STARTP66 TC FASTCHNG # YES
035195,000151: 31,2540 05311 TC NEWMODEX
035196,000152: 31,2541 00102 DEC 66 B-14
035197,000153: 31,2542 00006 EXTEND # INITIALIZE VDGVERT USING
035198,000154: 31,2543 31625 DCA VGU # PRESENT DOWNWARD VELOCITY
035199,000155: 31,2544 53643 DXCH VDGVERT
035200,000156: 31,2545 34755 CAF ZERO
035201,000157: 31,2546 55644 TS RODCOUNT
035202,000158: 31,2547 55645 VRTSTART TS WCHVERT
035203,000159: 31,2550 34751 CAF FOUR # WCHPHASE = 4 --> VERTICAL: P65,P66,P67
035204,000160: 31,2551 55617 TS WCHPHOLD
035205,000161: 31,2552 55620 TS WCHPHASE
035206,000162: 31,2553 04616 TC BANKCALL # TEMPORARY, I HOPE HOPE HOPE
035207,000163: 31,2554 40165 CADR STOPRATE # TEMPORARY, I HOPE HOPE HOPE
035208,000164: 31,2555 05516 TC DOWNFLAG # PERMIT X-AXIS OVERRIDE
035209,000165: 31,2556 00311 ADRES XOVINFLG
035210,000166: 31,2557 05516 TC DOWNFLAG
035211,000167: 31,2560 00143 ADRES REDFLAG
035212,000168: 31,2561 05516 TC DOWNFLAG
035213,000169: 31,2562 00142 ADRES POUTFLAG # PERMIT PULSE-OUTS
035214,000170: 31,2563 12600 TCF GUILDRET
035215,000171:
035216,000172: 31,2564 05311 STARTP67 TC NEWMODEX # NO HARM IN "STARTING" P67 OVER AND OVER
035217,000173: 31,2565 00103 DEC 67 B-14 # SO NO NEED FOR A FASTCHNG AND NO NEED
035218,000174:
|
|
Page 805
|
035220,000176: 31,2566 34363 CAF TEN # TO SEE IF ALREADY IN P67
035221,000177: 31,2567 12547 TCF VRTSTART
035222,000178:
035223,000179: 31,2570 34737 STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
035224,000180: 31,2571 00006 EXTEND
035225,000181: 31,2572 02031 RAND CHAN31
035226,000182: 31,2573 10000 CCS A
035227,000183: 31,2574 12600 TCF GUILDRET # YES: ALL'S WELL
035228,000184: 31,2575 05321 P66NOW? TC CHECKMM # NO: ARE WE IN P66 NOW?
035229,000185: 31,2576 00102 DEC 66 B-14
035230,000186: 31,2577 12537 TCF STARTP66 # NO
035231,000187:
035232,000188: # (CONTINUE TO GUILDRET) YES
035233,000189:
035234,000190: # ****************************************************************************************************************
035235,000191: # INITIALIZATION FOR THIS PASS
035236,000192: # ****************************************************************************************************************
035237,000193:
035238,000194: 31,2600 COUNT* $$/F2DPS
035239,000195:
035240,000196: 31,2600 00006 GUILDRET EXTEND
035241,000197: 31,2601 31623 DCA TPIP
035242,000198: 31,2602 53572 DXCH TPIPOLD
035243,000199:
035244,000200: 31,2603 03721 TC FASTCHNG
035245,000201:
035246,000202: 31,2604 00006 EXTEND
035247,000203: 31,2605 31557 DCA PIPTIME1
035248,000204: 31,2606 53623 DXCH TPIP
035249,000205:
035250,000206: 31,2607 00006 EXTEND
035251,000207: 31,2610 31641 DCA TTF/8
035252,000208: 31,2611 53551 DXCH TTF/8TMP
035253,000209:
035254,000210: 31,2612 11621 CCS FLPASS0
035255,000211: 31,2613 12657 TCF TTFINCR
035256,000212:
035257,000213: 31,2614 51620 BRSPOT1 INDEX WCHPHASE
035258,000214: 31,2615 12446 TCF NEWPHASE
035259,000215:
035260,000216: # ****************************************************************************************************************
035261,000217: # ROUTINES TO START NEW PHASES
035262,000218: # ****************************************************************************************************************
035263,000219:
035264,000220: 31,2616 05311 P65START TC NEWMODEX
035265,000221: 31,2617 00101 DEC 65 B-14
035266,000222: 31,2620 44752 CS TWO
035267,000223: 31,2621 55645 TS WCHVERT
035268,000224: 31,2622 05516 TC DOWNFLAG # PERMIT X-AXIS OVERRIDE
035269,000225: 31,2623 00311 ADRES XOVINFLG
035270,000226:
|
|
Page 806
|
035272,000228: 31,2624 05516 COMSTART TC DOWNFLAG
035273,000229: 31,2625 00142 ADRES POUTFLAG
035274,000230: 31,2626 12657 TCF TTFINCR
035275,000231:
035276,000232:
035277,000233: 31,2627 33743 STARTP64 CAF DELTTFAP # AUGMENT TTF/8 (TWO-PHASE ONLY)
035278,000234: 31,2630 27550 ADS TTF/8TMP
035279,000235: 31,2631 05311 +2 TC NEWMODEX
035280,000236: 31,2632 00100 DEC 64 B-14
035281,000237: 31,2633 34752 CAF TWO
035282,000238: 31,2634 55620 TS WCHPHASE
035283,000239: 31,2635 34740 CA BIT12 # ENABLE RUPT10
035284,000240: 31,2636 00006 EXTEND
035285,000241: 31,2637 05013 WOR CHAN13
035286,000242: 31,2640 05516 TC DOWNFLAG # INITIALIZE REDESIGNATION FLAG
035287,000243: 31,2641 00143 ADRES REDFLAG
035288,000244: 31,2642 12624 TCF COMSTART
035289,000245:
035290,000246: # ****************************************************************************************************************
035291,000247: # SET LINEAR GUIDANCE COEFFICIENTS
035292,000248: # ****************************************************************************************************************
035293,000249:
035294,000250: 31,2643 30102 LINSET? CA FLAGWRD6 # ONE-PHASE OR TWO-PHASE?
035295,000251: 31,2644 74743 MASK 2PHASBIT
035296,000252: 31,2645 00006 EXTEND
035297,000253: 31,2646 12631 BZF STARTP64 +2 # ONE-PHASE: GO DIRECTLY TO APPROACH PHASE
035298,000254:
035299,000255: 31,2647 03667 LINSET TC INTPRETX
035300,000256: 31,2650 51775 VLOAD VSU* # - - -
035301,000257: 31,2651 02271 ACG # JLING = (ACG - ADG)/TTF
035302,000258: 31,2652 02417 ADG,1
035303,000259: 31,2653 70322 VSR3 V/SC
035304,000260: 31,2654 03551 TTF/8TMP # TTF/8 NOT YET UPDATED
035305,000261: 31,2655 02277 STORE JLING # JLING IS IN UMITS OF 2(-18) M/CS/CS/CS
035306,000262: 31,2656 77776 EXIT
035307,000263:
035308,000264: # (CONTINUE TO TTFINCR)
035309,000265:
035310,000266: # ****************************************************************************************************************
035311,000267: # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
035312,000268: # ****************************************************************************************************************
035313,000269:
035314,000270: # TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
035315,000271:
035316,000272: # TTF/8 UPDATED FOR TIME SINCE LAST PASS:
035317,000273:
035318,000274: # TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
035319,000275:
035320,000276: # LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
035321,000277:
|
|
Page 807
|
035323,000279: # - - - -
035324,000280: # LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
035325,000281:
035326,000282: # SLANT RANGE TO LANDING SITE, FOR DISPLAY:
035327,000283:
035328,000284: # - -
035329,000285: # RANGEDSP = ABVAL(LAND - R)
035330,000286:
035331,000287: 31,2657 06036 TTFINCR TC INTPRET
035332,000288: 31,2660 45345 DLOAD DSU
035333,000289: 31,2661 03623 TPIP
035334,000290: 31,2662 03572 TPIPOLD
035335,000291: 31,2663 41461 SLR PUSH # SHIFT SCALES DELTA TIME TO 2(17) CSECS
035336,000292: 31,2664 21214 11D
035337,000293: 31,2665 47361 VXSC VXV
035338,000294: 31,2666 03633 LAND
035339,000295: 31,2667 02331 WM
035340,000296: 31,2670 47045 BVSU RTB
035341,000297: 31,2671 03633 LAND
035342,000298: 31,2672 21700 NORMUNIT
035343,000299: 31,2673 76561 VXSC VSL1
035344,000300: 31,2674 02337 /LAND/
035345,000301: 31,2675 03543 STORE LANDTEMP
035346,000302: 31,2676 51451 VSU ABVAL
035347,000303: 31,2677 03517 R
035348,000304: 31,2700 16532 STODL RANGEDSP
035349,000305: 31,2701 77776 EXIT
035350,000306:
035351,000307: 31,2702 52155 DXCH MPAC
035352,000308: 31,2703 21551 DAS TTF/8TMP # NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP
035353,000309:
035354,000310: 31,2704 03721 TC FASTCHNG
035355,000311:
035356,000312: 31,2705 00006 EXTEND
035357,000313: 31,2706 31551 DCA TTF/8TMP
035358,000314: 31,2707 53641 DXCH TTF/8
035359,000315:
035360,000316: 31,2710 00006 EXTEND
035361,000317: 31,2711 31543 DCA LANDTEMP
035362,000318: 31,2712 53633 DXCH LAND
035363,000319: 31,2713 00006 EXTEND
035364,000320: 31,2714 31545 DCA LANDTEMP +2
035365,000321: 31,2715 53635 DXCH LAND +2
035366,000322: 31,2716 00006 EXTEND
035367,000323: 31,2717 31547 DCA LANDTEMP +4
035368,000324: 31,2720 53637 DXCH LAND +4
035369,000325:
035370,000326: 31,2721 03674 TC TDISPSET
035371,000327: 31,2722 03721 TC FASTCHNG # SINCE REDESIG MAY CHANGE LANDTEMP
035372,000328:
|
|
Page 808
|
035374,000330: 31,2723 51620 BRSPOT2 INDEX WCHPHASE
035375,000331: 31,2724 12454 TCF PREGUIDE
035376,000332:
035377,000333: # ****************************************************************************************************************
035378,000334: # LANDING SITE PERTURBATION EQUATIONS
035379,000335: # ****************************************************************************************************************
035380,000336:
035381,000337: 31,2725 30102 REDESIG CA FLAGWRD6 # IS REDFLAG SET?
035382,000338: 31,2726 74746 MASK REDFLBIT
035383,000339: 31,2727 00006 EXTEND
035384,000340: 31,2730 13035 BZF RGVGCALC # NO: SKIP REDESIGNATION LOGIC
035385,000341:
035386,000342: 31,2731 31664 CA TREDES # YES: HAS TREDES REACHED ZERO?
035387,000343: 31,2732 00006 EXTEND
035388,000344: 31,2733 13035 BZF RGVGCALC # YES: SKIP REDESIGNATION LOGIC
035389,000345:
035390,000346: 31,2734 00004 INHINT
035391,000347: 31,2735 31642 CA ELINCR1
035392,000348: 31,2736 55552 TS ELINCR
035393,000349: 31,2737 31643 CA AZINCR1
035394,000350: 31,2740 55554 TS AZINCR
035395,000351: 31,2741 03721 TC FASTCHNG
035396,000352:
035397,000353: 31,2742 34755 CA ZERO
035398,000354: 31,2743 55642 TS ELINCR1
035399,000355: 31,2744 55643 TS AZINCR1
035400,000356: 31,2745 00003 RELINT
035401,000357: 31,2746 55553 TS ELINCR +1
035402,000358: 31,2747 55555 TS AZINCR +1
035403,000359:
035404,000360: 31,2750 30120 CA FIXLOC # SET PD TO 0
035405,000361: 31,2751 54166 TS PUSHLOC
035406,000362:
035407,000363: 31,2752 06036 TC INTPRET
035408,000364: 31,2753 52375 VLOAD VSU
035409,000365: 31,2754 03633 LAND
035410,000366: 31,2755 03517 R # - -
035411,000367: 31,2756 41434 RTB PUSH # PUSH DOWN UNIT (LAND - R)
035412,000368: 31,2757 21700 NORMUNIT
035413,000369: 31,2760 76435 VXV VSL1
035414,000370: 31,2761 02154 YNBPIP # - - -
035415,000371: 31,2762 65361 VXSC PDDL # PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
035416,000372: 31,2763 03553 ELINCR
035417,000373: 31,2764 03555 AZINCR
035418,000374: 31,2765 52361 VXSC VSU
035419,000375: 31,2766 02154 YNBPIP
035420,000376: 31,2767 41455 VAD PUSH # RESULTING VECTOR IS 1/2 REAL SIZE
035421,000377:
035422,000378: 31,2770 45345 DLOAD DSU # MAKE SURE REDESIGNATION IS NOT
035423,000379: 31,2771 00001 0 # TOO CLOSE TO THE HORIZON
035424,000380:
|
|
Page 809
|
035426,000382: 31,2772 23762 DEPRCRIT
035427,000383: 31,2773 71240 BMN DLOAD
035428,000384: 31,2774 62777 REDES1
035429,000385: 31,2775 23762 DEPRCRIT
035430,000386: 31,2776 00001 STORE 0
035431,000387: 31,2777 45345 REDES1 DLOAD DSU
035432,000388: 31,3000 03633 LAND
035433,000389: 31,3001 03517 R
035434,000390: 31,3002 74271 DDV VXSC
035435,000391: 31,3003 00001 0
035436,000392: 31,3004 53455 VAD UNIT
035437,000393: 31,3005 03517 R
035438,000394: 31,3006 76561 VXSC VSL1
035439,000395: 31,3007 02337 /LAND/
035440,000396: 31,3010 03543 STORE LANDTEMP
035441,000397: 31,3011 77776 EXIT # LOOKANGL WILL BE COMPUTED AT RGVGCALC
035442,000398:
035443,000399: 31,3012 03721 TC FASTCHNG
035444,000400:
035445,000401: 31,3013 00006 EXTEND
035446,000402: 31,3014 31543 DCA LANDTEMP
035447,000403: 31,3015 53633 DXCH LAND
035448,000404: 31,3016 00006 EXTEND
035449,000405: 31,3017 31545 DCA LANDTEMP +2
035450,000406: 31,3020 53635 DXCH LAND +2
035451,000407: 31,3021 00006 EXTEND
035452,000408: 31,3022 31547 DCA LANDTEMP +4
035453,000409: 31,3023 53637 DXCH LAND +4
035454,000410:
035455,000411: 31,3024 13035 TCF RGVGCALC
035456,000412:
035457,000413: # ****************************************************************************************************************
035458,000414: # COMPUTE STATE IN GUIDANCE COORDINATES
035459,000415: # ****************************************************************************************************************
035460,000416:
035461,000417: # RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
035462,000418:
035463,000419: # VELOCITY RELATIVE TO THE SURFACE:
035464,000420:
035465,000421: # - - - -
035466,000422: # ANGTERM = V + R * WM
035467,000423:
035468,000424: # STATE IN GUIDANCE COORDINATES:
035469,000425:
035470,000426: # - * - -
035471,000427: # RGU = CG (R - LAND)
035472,000428:
035473,000429: # - * - - -
035474,000430: # VGU = CG (V - WM * R)
035475,000431:
|
|
Page 810
|
035477,000433: # HORIZONTAL VELOCITY FOR DISPLAY:
035478,000434:
035479,000435: # VHORIZ = 8 ABVAL (0, VG , VG )
035480,000436: # 2 1
035481,000437:
035482,000438: # DEPRESSION ANGLE FOR DISPLAY:
035483,000439:
035484,000440: # - - -
035485,000441: # LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
035486,000442:
035487,000443: 31,3025 06036 CALCRGVG TC INTPRET # IN IGNALG, COMPUTE V FROM INTEGRATION
035488,000444: 31,3026 64375 VLOAD MXV # OUTPUT AND TRIM CORRECTION TERM
035489,000445: 31,3027 00025 VATT1 # COMPUTED LAST PASS AND LEFT IN UNFC/2
035490,000446: 31,3030 01734 REFSMMAT
035491,000447: 31,3031 53362 VSR1 VAD
035492,000448: 31,3032 03252 UNFC/2
035493,000449: 31,3033 03525 STORE V
035494,000450: 31,3034 77776 EXIT
035495,000451:
035496,000452: 31,3035 06036 RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
035497,000453: 31,3036 47375 VLOAD VXV
035498,000454: 31,3037 03517 R
035499,000455: 31,3040 02331 WM
035500,000456: 31,3041 70455 VAD VSR2 # RESCALE TO UNITS OF 2(9) M/CS
035501,000457: 31,3042 03525 V
035502,000458: 31,3043 02305 STORE ANGTERM
035503,000459: 31,3044 77721 MXV
035504,000460: 31,3045 02510 CG # NO SHIFT SINCE ANGTERM IS DOUBLE SIZED
035505,000461: 31,3046 03625 STORE VGU
035506,000462: 31,3047 55525 PDDL VDEF # FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS
035507,000463: 31,3050 06424 ZEROVECS # 2 1
035508,000464: 31,3051 52446 ABVAL SL3
035509,000465: 31,3052 26267 STOVL VHORIZ # VHORIZ FOR DISPLAY DURING P65, P66, P67
035510,000466: 31,3053 03517 R # - -
035511,000467: 31,3054 41451 VSU PUSH # PUSH DOWN R - LAND
035512,000468: 31,3055 03633 LAND
035513,000469: 31,3056 76521 MXV VSL1
035514,000470: 31,3057 02510 CG
035515,000471: 31,3060 26544 STOVL RGU
035516,000472: 31,3061 50234 RTB DOT # NOW IN MPAC IS SINE(LOOKANGL)/4
035517,000473: 31,3062 21700 NORMUNIT
035518,000474: 31,3063 02146 XNBPIP
035519,000475: 31,3064 77776 EXIT
035520,000476:
035521,000477: 31,3065 30120 CA FIXLOC # RESET PUSH DOWN POINTER
035522,000478: 31,3066 54166 TS PUSHLOC
035523,000479:
035524,000480: 31,3067 30154 CA MPAC # COMPUTE LOOKANGL ITSELF
035525,000481: 31,3070 60000 DOUBLE
035526,000482: 31,3071 04616 TC BANKCALL
035527,000483:
|
|
Page 811
|
035529,000485: 31,3072 61643 CADR SPARCSIN -1
035530,000486: 31,3073 63742 AD 1/2DEG
035531,000487: 31,3074 00006 EXTEND
035532,000488: 31,3075 73741 MP 180DEGS
035533,000489: 31,3076 55665 TS LOOKANGL # LOOKANGL FOR DISPLAY DURING P64
035534,000490:
035535,000491: 31,3077 51620 BRSPOT3 INDEX WCHPHASE
035536,000492: 31,3100 12462 TCF WHATGUID
035537,000493:
035538,000494: # ****************************************************************************************************************
035539,000495: # LINEAR GUIDANCE EQUATION
035540,000496: # ****************************************************************************************************************
035541,000497:
035542,000498: 31,3101 03667 LINGUID TC INTPRETX
035543,000499: 31,3102 74375 VLOAD VXSC # - - -
035544,000500: 31,3103 02277 JLING # ACG = ADG + JLING TTF
035545,000501: 31,3104 03641 TTF/8
035546,000502: 31,3105 52132 VSL3 GOTO # PICK UP THE VAD* AT AFCCALC
035547,000503: 31,3106 63171 AFCCALC
035548,000504:
035549,000505: # ****************************************************************************************************************
035550,000506: # TTF/4 COMPUTATION
035551,000507: # ****************************************************************************************************************
035552,000508:
035553,000509: 31,3107 03667 TTF/8CL TC INTPRETX
035554,000510: 31,3110 77743 DLOAD*
035555,000511: 31,3111 02431 JDG2TTF,1
035556,000512: 31,3112 23567 STODL* TABLTTF +6 # A(3) = 8 JDG TO TABLTTF
035557,000513: 31,3113 02427 ADG2TTF,1 # 2
035558,000514: 31,3114 17565 STODL TABLTTF +4 # A(2) = 6 ADG TO TABLTTF
035559,000515: 31,3115 03631 VGU +4 # 2
035560,000516: 31,3116 42605 DMP DAD*
035561,000517: 31,3117 23755 3/4DP
035562,000518: 31,3120 02425 VDG2TTF,1
035563,000519: 31,3121 23563 STODL* TABLTTF +2 # A(1) = (6 VGU + 18 VDG )/8 TO TABLTTF
035564,000520: 31,3122 02407 RDG +4,1 # 2 2
035565,000521: 31,3123 41225 DSU DMP
035566,000522: 31,3124 02550 RGU +4
035567,000523: 31,3125 23753 3/8DP
035568,000524: 31,3126 03561 STORE TABLTTF # A(0) = -24 (RGU - RDG )/64 TO TABLTTF
035569,000525: 31,3127 77776 EXIT # 2 2
035570,000526:
035571,000527: 31,3130 34744 CA BIT8
035572,000528: 31,3131 55570 TS TABLTTF +10 # FRACTIONAL PRECISION FOR TTF TO TABLE
035573,000529:
035574,000530: 31,3132 00006 EXTEND
035575,000531: 31,3133 31641 DCA TTF/8
035576,000532: 31,3134 52155 DXCH MPAC # LOADS TTF/8 (INITIAL GUESS) INTO MPAC
035577,000533: 31,3135 34752 CAF TWO # DEGREE - ONE
035578,000534: 31,3136 54001 TS L
035579,000535:
|
|
Page 812
|
035581,000537: 31,3137 33733 CAF TABLTTFL
035582,000538: 31,3140 03543 TC ROOTPSRS # YIELDS TTF/8 IN MPAC
035583,000539: 31,3141 05652 TC POODOO # BAD RETURN
035584,000540: 31,3142 01406 OCT 01406
035585,000541: 31,3143 00006 EXTEND # GOOD RETURN
035586,000542: 31,3144 30155 DCA MPAC # FETCH TTF/8 KEEPING IT IN MPAC
035587,000543: 31,3145 53641 DXCH TTF/8 # CORRECTED TTF/8
035588,000544:
035589,000545: 31,3146 03674 TC TDISPSET
035590,000546:
035591,000547: # (CONTINUE TO QUADGUID)
035592,000548:
035593,000549: # ****************************************************************************************************************
035594,000550: # MAIN GUIDANCE EQUATION
035595,000551: # ****************************************************************************************************************
035596,000552:
035597,000553: # AS PUBLISHED:-
035598,000554:
035599,000555: # - - - -
035600,000556: # - - 6(VDG + VG) 12(RDG - RG)
035601,000557: # ACG = ADG + ----------- + ------------
035602,000558: # TTF (TTF)(TTF)
035603,000559:
035604,000560: # AS HERE PROGRAMMED:-
035605,000561:
035606,000562: # - -
035607,000563: # 3 (1/4(RDG - RG) - - )
035608,000564: # - (------------- + VDG + VG)
035609,000565: # - 4 ( TTF/8 ) -
035610,000566: # ACG = ---------------------------- + ADG
035611,000567: # TTF/8
035612,000568:
035613,000569: 31,3147 33732 QUADGUID CAF 30SEC*17 # PULSE-OUTS ARE INHIBITED WHENEVER
035614,000570: 31,3150 61640 AD TTF/8 # TTF < 30 SECONDS, REGARDLESS OF
035615,000571: 31,3151 00006 EXTEND # THE DURATION OF LINEAR GUIDANCE
035616,000572: 31,3152 63155 BZMF Q**DG**D
035617,000573: 31,3153 05504 TC UPFLAG
035618,000574: 31,3154 00142 ADRES POUTFLAG
035619,000575: 31,3155 03667 Q**DG**D TC INTPRETX
035620,000576: 31,3156 52373 VLOAD* VSU
035621,000577: 31,3157 02403 RDG,1
035622,000578: 31,3160 02544 RGU
035623,000579: 31,3161 70541 V/SC VSR2
035624,000580: 31,3162 03641 TTF/8
035625,000581: 31,3163 53253 VAD* VAD
035626,000582: 31,3164 02411 VDG,1
035627,000583: 31,3165 03625 VGU
035628,000584: 31,3166 74341 V/SC VXSC
035629,000585: 31,3167 03641 TTF/8
035630,000586:
|
|
Page 813
|
035632,000588: 31,3170 23755 3/4DP
035633,000589: 31,3171 77653 AFCCALC VAD*
035634,000590: 31,3172 02417 ADG,1 # CURRENT TARGET ACCELERATION
035635,000591: 31,3173 02271 STORE ACG
035636,000592: 31,3174 76505 AFCCALC1 VXM VSL1 # VERTGUID COMES HERE
035637,000593: 31,3175 02510 CG
035638,000594: 31,3176 70315 PDVL V/SC
035639,000595: 31,3177 01237 GDT/2
035640,000596: 31,3200 23751 GSCALE
035641,000597: 31,3201 45445 BVSU STADR
035642,000598: 31,3202 74525 STORE UNFC/2 # UNFC/2 NEED NOT BE UNITIZED
035643,000599: 31,3203 77646 ABVAL
035644,000600: 31,3204 03574 AFCCALC2 STORE /AFC/ # MAGNITUDE OF AFC FOR THROTTLE
035645,000601: 31,3205 71214 BON DLOAD
035646,000602: 31,3206 03306 2PHASFLG
035647,000603: 31,3207 63231 AFCCLEND
035648,000604: 31,3210 03252 UNFC/2 # VERTICAL COMPONENT
035649,000605: 31,3211 65316 DSQ PDDL
035650,000606: 31,3212 03254 UNFC/2 +2 # OUT-OF-PLANE
035651,000607: 31,3213 65316 DSQ PDDL
035652,000608: 31,3214 23735 HIGHESTF
035653,000609: 31,3215 63471 DDV DSQ
035654,000610: 31,3216 01245 MASS # 2 2 2
035655,000611: 31,3217 45225 DSU DSU # AMAXHORIZ = SQRT(ATOTAL - A - A )
035656,000612: 31,3220 71244 BPL DLOAD # 1 0
035657,000613: 31,3221 63223 AFCCALC3
035658,000614: 31,3222 06424 ZEROVECS
035659,000615: 31,3223 43366 AFCCALC3 SQRT DAD
035660,000616: 31,3224 03256 UNFC/2 +4
035661,000617: 31,3225 44244 BPL BDSU
035662,000618: 31,3226 63231 AFCCLEND
035663,000619: 31,3227 03256 UNFC/2 +4
035664,000620: 31,3230 03256 STORE UNFC/2 +4
035665,000621: 31,3231 77776 AFCCLEND EXIT
035666,000622: 31,3232 03721 TC FASTCHNG
035667,000623:
035668,000624: 31,3233 31620 CA WCHPHASE # PREPARE FOR PHASE SWITCHING LOGIC
035669,000625: 31,3234 55617 TS WCHPHOLD
035670,000626: 31,3235 25621 INCR FLPASS0 # INCREMENT PASS COUNTER
035671,000627:
035672,000628: 31,3236 51620 BRSPOT4 INDEX WCHPHASE
035673,000629: 31,3237 12470 TCF AFTRGUID
035674,000630:
035675,000631: # ***************************************************************************************************************
035676,000632: # ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX
035677,000633: # ***************************************************************************************************************
035678,000634:
035679,000635: 31,3240 06036 CGCALC TC INTPRET
035680,000636: 31,3241 53575 VLOAD UNIT
035681,000637: 31,3242 03633 LAND
035682,000638:
|
|
Page 814
|
035684,000640: 31,3243 26510 STOVL CG # FIRST ROW
035685,000641: 31,3244 02305 ANGTERM
035686,000642: 31,3245 53361 VXSC VAD # REMEMBER THAT ANGTERM IS DOUBLE-SIZED
035687,000643: 31,3246 03641 TTF/8
035688,000644: 31,3247 03633 LAND
035689,000645: 31,3250 47051 VSU RTB
035690,000646: 31,3251 03517 R
035691,000647: 31,3252 21700 NORMUNIT
035692,000648: 31,3253 47035 VXV RTB
035693,000649: 31,3254 03633 LAND
035694,000650: 31,3255 21700 NORMUNIT
035695,000651: 31,3256 26516 STOVL CG +6 # SECOND ROW
035696,000652: 31,3257 02510 CG
035697,000653: 31,3260 76435 VXV VSL1
035698,000654: 31,3261 02516 CG +6
035699,000655: 31,3262 02524 STORE CG +14
035700,000656: 31,3263 77776 EXIT
035701,000657:
035702,000658: # (CONTINUE TO EXTLOGIC)
035703,000659:
035704,000660: # ****************************************************************************************************************
035705,000661: # PREPARE TO EXIT
035706,000662: # ****************************************************************************************************************
035707,000663:
035708,000664: # DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES
035709,000665:
035710,000666: 31,3264 11620 EXTLOGIC CCS WCHPHASE
035711,000667: 31,3265 50000 INDEX A # WCHPHASE = +2 APPRQUAD A = 1
035712,000668: 31,3266 31425 CA TENDBRAK # WCHPHASE = +0 BRAKQUAD A = 0
035713,000669: 31,3267 13271 TCF EXSPOT1 -1 # WCHPHASE = -1 IGNALG A = 0
035714,000670:
035715,000671: 31,3270 33727 LINXLOGC CA 3SEC*17
035716,000672: 31,3271 61640 AD TTF/8
035717,000673:
035718,000674: 31,3272 00006 EXSPOT1 EXTEND
035719,000675: 31,3273 51620 INDEX WCHPHASE
035720,000676: 31,3274 62476 BZMF WHATEXIT
035721,000677:
035722,000678: 31,3275 03721 TC FASTCHNG
035723,000679:
035724,000680: 31,3276 31617 CA WCHPHOLD
035725,000681: 31,3277 64753 AD ONE
035726,000682: 31,3300 22007 ZL # +0
035727,000683: 31,3301 53621 DXCH WCHPHASE # ADVANCING WCHPHASE AND RESETTING FLPASS0
035728,000684:
035729,000685: 31,3302 51617 INDEX WCHPHOLD
035730,000686: 31,3303 12476 TCF WHATEXIT
035731,000687:
035732,000688: # ****************************************************************************************************************
035733,000689: # ROUTINES FOR EXITING FROM LANDING GUIDANCE
035734,000690:
|
|
Page 815
|
035736,000692: # ****************************************************************************************************************
035737,000693:
035738,000694: # 1. EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
035739,000695:
035740,000696: # 2. EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE. IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
035741,000697:
035742,000698: # 3. EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
035743,000699:
035744,000700: # (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
035745,000701:
035746,000702: 31,3304 06036 EXGSUB TC INTPRET # COMPUTE TRIM VELOCITY CORRECTION TERM
035747,000703: 31,3305 47175 VLOAD RTB
035748,000704: 31,3306 03252 UNFC/2
035749,000705: 31,3307 21700 NORMUNIT
035750,000706: 31,3310 74361 VXSC VXSC
035751,000707: 31,3311 03425 ZOOMTIME
035752,000708: 31,3312 22001 TRIMACCL
035753,000709: 31,3313 03252 STORE UNFC/2
035754,000710: 31,3314 77776 EXIT
035755,000711:
035756,000712: 31,3315 11645 CCS NGUIDSUB
035757,000713: 31,3316 12520 TCF GUIDSUB
035758,000714: 31,3317 11644 CCS NIGNLOOP
035759,000715: 31,3320 13323 TCF +3
035760,000716: 31,3321 05567 TC ALARM
035761,000717: 31,3322 01412 OCT 01412
035762,000718:
035763,000719: 31,3323 04635 +3 TC POSTJUMP
035764,000720: 31,3324 65075 CADR DDUMCALC
035765,000721:
035766,000722: 31,3325 06036 EXBRAK TC INTPRET
035767,000723: 31,3326 77775 VLOAD
035768,000724: 31,3327 03535 UNIT/R/
035769,000725: 31,3330 03260 STORE UNWC/2
035770,000726: 31,3331 77776 EXIT
035771,000727: 31,3332 13405 TCF STEER?
035772,000728:
035773,000729: 31,3333 06036 EXNORM TC INTPRET
035774,000730: 31,3334 52375 VLOAD VSU
035775,000731: 31,3335 03633 LAND
035776,000732: 31,3336 03517 R
035777,000733: 31,3337 77634 RTB
035778,000734: 31,3340 21700 NORMUNIT
035779,000735: 31,3341 03260 STORE UNWC/2 # UNIT(LAND - R) IS TENTATIVE CHOICE
035780,000736: 31,3342 50235 VXV DOT
035781,000737: 31,3343 02146 XNBPIP
035782,000738: 31,3344 02516 CG +6
035783,000739: 31,3345 77776 EXIT # WITH PROJ IN MPAC 1/8 REAL SIZE
035784,000740:
035785,000741: 31,3346 40154 CS MPAC # GET COEFFICIENT FOR CG +14
035786,000742:
|
|
Page 816
|
035788,000744: 31,3347 63763 AD PROJMAX
035789,000745: 31,3350 64733 AD POSMAX
035790,000746: 31,3351 54130 TS BUF
035791,000747: 31,3352 40130 CS BUF
035792,000748: 31,3353 26130 ADS BUF # RESULT IS 0 IF PROJMAX - PROJ NEGATIVE
035793,000749:
035794,000750: 31,3354 43764 CS PROJMIN # GET COEFFICIENT FOR UNIT(LAND - R)
035795,000751: 31,3355 60154 AD MPAC
035796,000752: 31,3356 64733 AD POSMAX
035797,000753: 31,3357 54131 TS BUF +1
035798,000754: 31,3360 40131 CS BUF +1
035799,000755: 31,3361 26131 ADS BUF +1 # RESULT IS 0 IF PROJ - PROJMIN NEGATIVE
035800,000756:
035801,000757: 31,3362 34751 CAF FOUR
035802,000758: 31,3363 76241 UNWCLOOP MASK SIX
035803,000759: 31,3364 54002 TS Q
035804,000760: 31,3365 35014 CA EBANK5
035805,000761: 31,3366 54003 TS EBANK
035806,000762: 31,3367 E5,1507 EBANK= CG
035807,000763: 31,3367 30130 CA BUF
035808,000764: 31,3370 00006 EXTEND
035809,000765: 31,3371 50002 INDEX Q
035810,000766: 31,3372 71523 MP CG +14
035811,000767: 31,3373 24006 INCR BBANK
035812,000768: 31,3374 E6,1657 EBANK= UNWC/2
035813,000769: 31,3374 50002 INDEX Q
035814,000770: 31,3375 53660 DXCH UNWC/2
035815,000771: 31,3376 00006 EXTEND
035816,000772: 31,3377 70131 MP BUF +1
035817,000773: 31,3400 50002 INDEX Q
035818,000774: 31,3401 21660 DAS UNWC/2
035819,000775: 31,3402 10002 CCS Q
035820,000776: 31,3403 13363 TCF UNWCLOOP
035821,000777:
035822,000778: 31,3404 24006 INCR BBANK
035823,000779: 31,3405 E7,1610 EBANK= PIF
035824,000780:
035825,000781: 31,3405 30076 STEER? CA FLAGWRD2 # IF STEERSW DOWN NO OUTPUTS
035826,000782: 31,3406 74741 MASK STEERBIT
035827,000783: 31,3407 00006 EXTEND
035828,000784: 31,3410 13416 BZF RATESTOP
035829,000785:
035830,000786: 31,3411 30121 EXVERT CA OVFIND # IF OVERFLOW ANYWHERE IN GUIDANCE
035831,000787: 31,3412 00006 EXTEND # DON'T CALL THROTTLE OR FINDCDUW
035832,000788: 31,3413 13421 BZF +6
035833,000789:
035834,000790: 31,3414 05567 EXOVFLOW TC ALARM # SOUND THE ALARM NON-ABORTIVELY.
035835,000791: 31,3415 01410 OCT 01410
035836,000792:
035837,000793: 31,3416 04616 RATESTOP TC BANKCALL # CLEAN UP AFTER LAST FINDCDUW
035838,000794:
|
|
Page 817
|
035840,000796: 31,3417 40165 CADR STOPRATE
035841,000797:
035842,000798: 31,3420 13426 TCF DISPEXIT
035843,000799:
035844,000800: 31,3421 02247 GDUMP1 TC THROTTLE
035845,000801: 31,3422 06036 TC INTPRET
035846,000802: 31,3423 77624 CALL
035847,000803: 31,3424 61062 FINDCDUW -2
035848,000804: 31,3425 77776 EXIT
035849,000805:
035850,000806: # (CONTINUE TO DISPEXIT)
035851,000807:
035852,000808:
035853,000809: # ****************************************************************************************************************
035854,000810: # GUIDANCE LOOP DISPLAYS
035855,000811: # ****************************************************************************************************************
035856,000812:
035857,000813: 31,3426 00006 DISPEXIT EXTEND # KILL GROUP 3: DISPLAYS WILL BE
035858,000814: 31,3427 34755 DCA NEG0 # RESTORED BY NEXT GUIDANCE CYCLE
035859,000815: 31,3430 52757 DXCH -PHASE3
035860,000816:
035861,000817: 31,3431 40104 CS FLAGWRD8 # IF FLUNDISP SET, NO DISPLAY THIS PASS
035862,000818: 31,3432 74742 MASK FLUNDBIT
035863,000819: 31,3433 00006 EXTEND
035864,000820: 31,3434 13444 BZF ENDLLJOB # TO PICK UP THE TAG
035865,000821:
035866,000822: 31,3435 51617 INDEX WCHPHOLD
035867,000823: 31,3436 12502 TCF WHATDISP
035868,000824:
035869,000825: 31,3437 05353 -2 TC PHASCHNG # KILL GROUP 5
035870,000826: 31,3440 00035 OCT 00035
035871,000827:
035872,000828: 31,3441 33765 P63DISPS CAF V06N63
035873,000829: 31,3442 04616 DISPCOMN TC BANKCALL
035874,000830: 31,3443 20346 CADR REGODSPR
035875,000831:
035876,000832: 31,3444 15155 ENDLLJOB TCF ENDOFJOB
035877,000833:
035878,000834: 31,3445 31664 P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
035879,000835: 31,3446 00006 EXTEND
035880,000836: 31,3447 13471 BZF RED-OVER # YES: CLEAR REDESIGNATION FLAG
035881,000837:
035882,000838: 31,3450 40102 CS FLAGWRD6 # NO: IS REDFLAG SET?
035883,000839: 31,3451 74746 MASK REDFLBIT
035884,000840: 31,3452 00006 EXTEND
035885,000841: 31,3453 13473 BZF REDES-OK # YES: DO STATIC DISPLAY
035886,000842:
035887,000843: 31,3454 33766 CAF V06N64 # OTHERWISE USE FLASHING DISPLAY
035888,000844: 31,3455 04616 TC BANKCALL
035889,000845:
|
|
Page 818
|
035891,000847: 31,3456 20340 CADR REFLASHR
035892,000848: 31,3457 16001 TCF GOTOPOOH # TERMINATE
035893,000849: 31,3460 13463 TCF P64CEED # PROCEED PERMIT REDESIGNATIONS
035894,000850: 31,3461 13445 TCF P64DISPS # RECYCLE
035895,000851:
035896,000852: 31,3462 13444 TCF ENDLLJOB # TO PICK UP THE TAG
035897,000853:
035898,000854: 31,3463 34755 P64CEED CAF ZERO
035899,000855: 31,3464 55642 TS ELINCR1
035900,000856: 31,3465 55643 TS AZINCR1
035901,000857:
035902,000858: 31,3466 05504 TC UPFLAG # ENABLE REDESIGNATION LOGIC
035903,000859: 31,3467 00143 ADRES REDFLAG
035904,000860:
035905,000861: 31,3470 15155 TCF ENDOFJOB
035906,000862:
035907,000863: 31,3471 05516 RED-OVER TC DOWNFLAG
035908,000864: 31,3472 00143 ADRES REDFLAG
035909,000865: 31,3473 33766 REDES-OK CAF V06N64
035910,000866: 31,3474 13442 TCF DISPCOMN
035911,000867:
035912,000868:
035913,000869: 31,3475 33767 VERTDISP CAF V06N60
035914,000870: 31,3476 13442 TCF DISPCOMN
035915,000871:
035916,000872:
035917,000873: # ****************************************************************************************************************
035918,000874: # GUIDANCE FOR VERTICAL DESCENT
035919,000875: # ****************************************************************************************************************
035920,000876:
035921,000877: 31,3477 11645 VERTGUID CCS WCHVERT
035922,000878: 31,3500 13426 TCF DISPEXIT # POSITIVE P67, WHICH SKIPS ALL GUIDANCE
035923,000879: 31,3501 13516 TCF P66VERT # +0
035924,000880:
035925,000881: # THE P65 GUIDANCE EQUATION IS AS FOLLOWS:-
035926,000882:
035927,000883: # - -
035928,000884: # - VDGVERT - VGU -
035929,000885: # ACG = ------------- , WHERE VDGVERT = (-3FPS,0,0)
035930,000886: # TAUVERT
035931,000887:
035932,000888: 31,3502 00006 P65VERT EXTEND # NEGATIVE
035933,000889: 31,3503 43760 DCS +3FPS
035934,000890: 31,3504 53643 DXCH VDGVERT
035935,000891: 31,3505 06036 TC INTPRET
035936,000892: 31,3506 65375 VLOAD PDDL
035937,000893: 31,3507 06424 ZEROVECS
035938,000894: 31,3510 03643 VDGVERT
035939,000895: 31,3511 52266 VDEF VSU # FORM (VDGVERT,0,0), LEAVING DP 0 IN PDL
035940,000896: 31,3512 03625 VGU
035941,000897:
|
|
Page 819
|
035943,000899: 31,3513 52141 V/SC GOTO
035944,000900: 31,3514 23745 TAUVERT
035945,000901: 31,3515 63174 AFCCALC1
035946,000902:
035947,000903:
035948,000904: # THE R.O.D. EQUATION IS AS FOLLOWS:-
035949,000905:
035950,000906: # (VDGVERTX - VGUX)/TAUVERT - GMOON
035951,000907: # /AFC/ = ---------------------------------
035952,000908: # UNIT/R/ . XNB
035953,000909:
035954,000910: 31,3516 57644 P66VERT XCH RODCOUNT # RESTART COULD CAUSE RODCOUNTS TO BE LOST
035955,000911: 31,3517 00006 EXTEND
035956,000912: 31,3520 73756 MP +1FPS
035957,000913: 31,3521 21643 DAS VDGVERT
035958,000914: 31,3522 03721 TC FASTCHNG
035959,000915: 31,3523 06036 TC INTPRET
035960,000916: 31,3524 45345 DLOAD DSU
035961,000917: 31,3525 03643 VDGVERT
035962,000918: 31,3526 03625 VGU
035963,000919: 31,3527 45271 DDV DSU
035964,000920: 31,3530 23747 TAUROD
035965,000921: 31,3531 22010 MOONG
035966,000922: 31,3532 50315 PDVL DOT # HAVE ACC IN UNITS OF 2(-2) M/CS/CS
035967,000923: 31,3533 02146 XNBPIP
035968,000924: 31,3534 03535 UNIT/R/
035969,000925: 31,3535 45465 BDDV STADR
035970,000926: 31,3536 74203 STORE /AFC/
035971,000927: 31,3537 77404 BOVB EXIT
035972,000928: 31,3540 63414 EXOVFLOW
035973,000929: 31,3541 02247 TC THROTTLE
035974,000930: 31,3542 13426 TCF DISPEXIT
035975,000931:
035976,000932:
035977,000933: # ****************************************************************************************************************
035978,000934: # REDESIGNATOR TRAP
035979,000935: # ****************************************************************************************************************
035980,000936:
035981,000937: 21,2006 BANK 21
035982,000938: 21,2000 SETLOC F2DPS*21
035983,000939: 21,2000 BANK
035984,000940:
035985,000941: 21,2006 COUNT* $$/F2DPS
035986,000942:
035987,000943: 21,2006 56016 PITFALL XCH BANKRUPT
035988,000944: 21,2007 00006 EXTEND
035989,000945: 21,2010 22012 QXCH QRUPT
035990,000946:
035991,000947: 21,2011 05321 TC CHECKMM # IF NOT IN P64, NO REASON TO CONTINUE
035992,000948: 21,2012 00100 DEC 64 B-14
035993,000949:
|
|
Page 820
|
035995,000951: 21,2013 15270 TCF RESUME
035996,000952:
035997,000953: 21,2014 00006 EXTEND
035998,000954: 21,2015 00031 READ CHAN31
035999,000955: 21,2016 40000 COM
036000,000956: 21,2017 72077 MASK ALL4BITS
036001,000957: 21,2020 55645 TS ELVIRA
036002,000958: 21,2021 34752 CAF TWO
036003,000959: 21,2022 55644 TS ZERLINA
036004,000960: 21,2023 34756 CAF FIVE
036005,000961: 21,2024 05173 TC TWIDDLE
036006,000962: 21,2025 02032 ADRES REDESMON
036007,000963: 21,2026 15270 TCF RESUME
036008,000964:
036009,000965:
036010,000966: # REDESIGNATION MONITOR (INITIATED BY PITFALL)
036011,000967:
036012,000968:
036013,000969: 21,2027 55644 PREMON1 TS ZERLINA
036014,000970: 21,2030 34757 PREMON2 CAF SEVEN
036015,000971: 21,2031 05224 TC VARDELAY
036016,000972: 21,2032 00006 REDESMON EXTEND
036017,000973: 21,2033 00031 READ 31
036018,000974: 21,2034 40000 COM
036019,000975: 21,2035 72077 MASK ALL4BITS
036020,000976: 21,2036 57645 XCH ELVIRA
036021,000977: 21,2037 54001 TS L
036022,000978: 21,2040 11645 CCS ELVIRA # DO ANY BITS APPEAR THIS PASS?
036023,000979: 21,2041 12030 TCF PREMON2 # Y: CONTINUE MONITOR
036024,000980:
036025,000981: 21,2042 10001 CCS L # N: ANY LAST PASS?
036026,000982: 21,2043 12052 TCF COUNT'EM # Y: COUNT 'EM, RESET RUPT, TERMINATE
036027,000983: 21,2044 11644 CCS ZERLINA # N: HAS ZERLINA REACHED ZERO YET?
036028,000984: 21,2045 12027 TCF PREMON1 # N: DIMINISH ZERLINA, CONTINUE
036029,000985: 21,2046 34740 RESETRPT CAF BIT12 # Y: RESET RUPT, TERMINATE
036030,000986: 21,2047 00006 EXTEND
036031,000987: 21,2050 05013 WOR CHAN13
036032,000988: 21,2051 15261 TCF TASKOVER
036033,000989:
036034,000990: 21,2052 30001 COUNT'EM CA L
036035,000991: 21,2053 74746 MASK -AZBIT
036036,000992: 21,2054 10000 CCS A
036037,000993: 21,2055 42100 -AZ CS AZEACH
036038,000994: 21,2056 27643 ADS AZINCR1
036039,000995: 21,2057 30001 CA L
036040,000996: 21,2060 74747 MASK +AZBIT
036041,000997: 21,2061 10000 CCS A
036042,000998: 21,2062 32100 +AZ CA AZEACH
036043,000999: 21,2063 27643 ADS AZINCR1
036044,001000: 21,2064 30001 CA L
036045,001001:
|
|
Page 821
|
036047,001003: 21,2065 74753 MASK -ELBIT
036048,001004: 21,2066 10000 CCS A
036049,001005: 21,2067 42101 -EL CS ELEACH
036050,001006: 21,2070 27642 ADS ELINCR1
036051,001007: 21,2071 30001 CA L
036052,001008: 21,2072 74752 MASK +ELBIT
036053,001009: 21,2073 10000 CCS A
036054,001010: 21,2074 32101 +EL CA ELEACH
036055,001011: 21,2075 27642 ADS ELINCR1
036056,001012: 21,2076 12046 TCF RESETRPT
036057,001013:
036058,001014:
036059,001015: # THESE EQUIVALENCIES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM
036060,001016:
036061,001017: 21,2077 4752 +ELBIT = BIT2 # -PITCH
036062,001018:
036063,001019:
036064,001020: 21,2077 4753 -ELBIT = BIT1 # +PITCH
036065,001021:
036066,001022:
036067,001023: 21,2077 4747 +AZBIT = BIT5
036068,001024:
036069,001025:
036070,001026: 21,2077 4746 -AZBIT = BIT6
036071,001027:
036072,001028: 21,2077 00063 ALL4BITS OCT 00063
036073,001029:
036074,001030:
036075,001031: 21,2100 01074 AZEACH DEC .03491 # 2 DEGREES
036076,001032:
036077,001033:
036078,001034: 21,2101 00217 ELEACH DEC .00873 # 1/2 DEGREE
036079,001035:
036080,001036:
036081,001037: # ****************************************************************************************************************
036082,001038: # R.O.D. TRAP
036083,001039: # ************************************************************************
036084,001040:
036085,001041: 20,2115 BANK 20
036086,001042: 20,2000 SETLOC RODTRAP
036087,001043: 20,2000 BANK
036088,001044: 20,2115 COUNT* $$/F2DPS # ****************************************
036089,001045:
036090,001046: 20,2115 74745 DESCBITS MASK BIT7 # COME HERE FROM MARKRUPT CODING WITH BIT
036091,001047: 20,2116 10000 CCS A # 7 OR 6 OF CHANNEL 16 IN A: BIT 7 MEANS
036092,001048: 20,2117 44752 CS TWO # - RATE INCREMENT, BIT 6 + INCREMENT
036093,001049: 20,2120 64753 AD ONE
036094,001050: 20,2121 27644 ADS RODCOUNT
036095,001051:
|
|
Page 822
|
036097,001053: 20,2122 15270 TCF RESUME # TRAP IS RESET WHEN SWITCH IS RELEASED
036098,001054:
036099,001055:
036100,001056: 31,3543 BANK 31
036101,001057: 31,2000 SETLOC F2DPS*31
036102,001058: 31,2000 BANK
036103,001059:
036104,001060: 31,3543 COUNT* $$/F2DPS
036105,001061:
036106,001062: # ****************************************************************************************************************
036107,001063: # DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)
036108,001064: # ****************************************************************************************************************
036109,001065:
036110,001066: # N N-1
036111,001067: # ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X + A X + ... + A X + A
036112,001068: # N N-1 1 0
036113,001069:
036114,001070: # USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT. THE ENTERING DATA MUST BE AS FOLLOWS:
036115,001071:
036116,001072: # A SP LOC-3 ADRES FOR REFERENCING PWR COF TABL
036117,001073: # L SP N-1 N IS THE DEGREE OF THE POWER SERIES
036118,001074: # MPAC DP X INITIAL GUESS FOR ROOT
036119,001075:
036120,001076: # LOC-2N DP A(0)
036121,001077: # ...
036122,001078: # LOC DP A(N)
036123,001079: # LOC+2 SP PRECROOT PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)
036124,001080:
036125,001081: # THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.
036126,001082: # RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3. IF ROOTPSRS FAILS TO CONVERGE IN 32 PASSES, RETURN IS TO LOC+1 AND
036127,001083: # OUTPUTS ARE NOT TO BE TRUSTED.
036128,001084:
036129,001085: # PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
036130,001086: # PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
036131,001087: # COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
036132,001088: # COEFFICIENT TABLE = 1 OR > 1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
036133,001089: # ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
036134,001090:
036135,001091: # 1. USER'S RESPONSIBILITY TO ASSURE THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
036136,001092:
036137,001093: # 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
036138,001094: # POWER SERIES. THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
036139,001095: # PRECLUDE EVENTUAL CONVERGENCE.
036140,001096:
036141,001097: # 3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5. AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
036142,001098: # ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.
036143,001099:
036144,001100: # 4. THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.
036145,001101:
036146,001102: # STORE ENTERING DATA, INITLIZE ERASABLES
036147,001103:
|
|
Page 823
|
036149,001105: 31,3543 00006 ROOTPSRS EXTEND
036150,001106: 31,3544 22132 QXCH RETROOT # RETURN ADRES
036151,001107: 31,3545 54117 TS PWRPTR # PWR TABL POINTER
036152,001108: 31,3546 52160 DXCH MPAC +3 # PWR TABL ADRES, N-1
036153,001109: 31,3547 33666 CA DERTABLL
036154,001110: 31,3550 54141 TS DERPTR # DER TABL POINTER
036155,001111: 31,3551 54161 TS MPAC +5 # DER TABL ADRES
036156,001112: 31,3552 10160 CCS MPAC +4 # NO POWER SERIES OF DEGREE 1 OR LESS
036157,001113: 31,3553 54162 TS MPAC +6 # N-2
036158,001114: 31,3554 34755 CA ZERO # MODE USED AS ITERATION COUNTER. MODE
036159,001115: 31,3555 54163 TS MODE # MUST BE POS SO ABS WON'T COMP MPAC+3 ETC
036160,001116:
036161,001117: # COMPUTE CRITERION TO STOP ITERATING
036162,001118:
036163,001119: 31,3556 00006 EXTEND
036164,001120: 31,3557 30155 DCA MPAC # FETCH ROOT GUESS, KEEPING IT IN MPAC
036165,001121: 31,3560 52127 DXCH ROOTPS # AND IN ROOTPS
036166,001122: 31,3561 50157 INDEX MPAC +3 # PWR TABL ADRES
036167,001123: 31,3562 30005 CA 5 # PRECROOT TO A
036168,001124: 31,3563 07306 TC SHORTMP # YIELDS DP PRODUCT IN MPAC
036169,001125: 31,3564 04713 TC USPRCADR
036170,001126: 31,3565 01226 CADR ABS # YIELDS ABVAL OF CRITERION ON DX IN MPAC
036171,001127: 31,3566 52155 DXCH MPAC
036172,001128: 31,3567 52125 DXCH DXCRIT # CRITERION
036173,001129:
036174,001130: # SET UP DER COF TABL
036175,001131:
036176,001132: 31,3570 00006 EXTEND
036177,001133: 31,3571 50117 INDEX PWRPTR
036178,001134: 31,3572 30004 DCA 3
036179,001135: 31,3573 52155 DXCH MPAC # A(N) TO MPAC
036180,001136:
036181,001137: 31,3574 30160 CA MPAC +4 # N-1 TO A
036182,001138:
036183,001139: 31,3575 54140 DERCLOOP TS PWRCNT # LOOP COUNTER
036184,001140: 31,3576 64753 AD ONE
036185,001141: 31,3577 07315 TC DMPNSUB # YIELDS DERCOF = I X A(I) IN MPAC
036186,001142: 31,3600 00006 EXTEND
036187,001143: 31,3601 50117 INDEX PWRPTR
036188,001144: 31,3602 30002 DCA 1
036189,001145: 31,3603 52155 DXCH MPAC # A(I-1) TO MPAC, FETCHING DERCOF
036190,001146: 31,3604 50141 INDEX DERPTR
036191,001147: 31,3605 52004 DXCH 3 # DERCOF TO DER TABL
036192,001148: 31,3606 44752 CS TWO
036193,001149: 31,3607 26117 ADS PWRPTR # DECREMENT PWR POINTER
036194,001150: 31,3610 44752 CS TWO
036195,001151: 31,3611 26141 ADS DERPTR # DECREMENT DER POINTER
036196,001152: 31,3612 10140 CCS PWRCNT
036197,001153: 31,3613 13575 TCF DERCLOOP
036198,001154:
036199,001155:
|
|
Page 824
|
036201,001157: # CONVERGE ON ROOT
036202,001158:
036203,001159: 31,3614 00006 ROOTLOOP EXTEND
036204,001160: 31,3615 30127 DCA ROOTPS # FETCH CURRENT ROOT
036205,001161: 31,3616 52155 DXCH MPAC # LEAVE IN MPAC
036206,001162: 31,3617 00006 EXTEND
036207,001163: 31,3620 30162 DCA MPAC +5 # LOAD A, L WITH DER TABL ADRES, N-2
036208,001164: 31,3621 07214 TC POWRSERS # YIELDS DERIVATIVE IN MPAC
036209,001165:
036210,001166: 31,3622 00006 EXTEND
036211,001167: 31,3623 30127 DCA ROOTPS
036212,001168: 31,3624 52155 DXCH MPAC # CURRENT ROOT TO MPAC, FETCHING DERIVTIVE
036213,001169: 31,3625 52131 DXCH BUF # LEAVE DERIVATIVE IN BUF AS DIVISOR
036214,001170: 31,3626 00006 EXTEND
036215,001171: 31,3627 30160 DCA MPAC +3 # LOAD A, L WITH PWR TABL ADRES, N-1
036216,001172: 31,3630 07214 TC POWRSERS # YIELDS RESIDUAL IN MPAC
036217,001173:
036218,001174: 31,3631 04713 TC USPRCADR
036219,001175: 31,3632 00353 CADR DDV/BDDV # YIELDS -DX IN MPAC
036220,001176:
036221,001177: 31,3633 00006 EXTEND
036222,001178: 31,3634 40155 DCS MPAC # FETCH DX, LEAVING -DX IN MPAC
036223,001179: 31,3635 20127 DAS ROOTPS # CORRECTED ROOT NOW IN ROOTPS
036224,001180:
036225,001181: 31,3636 04713 TC USPRCADR
036226,001182: 31,3637 01226 CADR ABS # YIELDS ABS(DX) IN MPAC
036227,001183: 31,3640 00006 EXTEND
036228,001184: 31,3641 40125 DCS DXCRIT
036229,001185: 31,3642 20155 DAS MPAC # ABS(DX)-ABS(DXCRIT) IN MPAC
036230,001186:
036231,001187: 31,3643 24163 INCR MODE # INCREMENT ITERATION COUNTER
036232,001188: 31,3644 30163 CA MODE
036233,001189: 31,3645 74750 MASK BIT4 # KLUMPP SAYS GIVE UP AFTER EIGHT PASSES
036234,001190: 31,3646 10000 CCS A
036235,001191: 31,3647 00132 BADROOT TC RETROOT
036236,001192:
036237,001193: 31,3650 10154 CCS MPAC # TEST HI ORDER DX
036238,001194: 31,3651 13614 TCF ROOTLOOP
036239,001195: 31,3652 13654 TCF TESTLODX
036240,001196: 31,3653 13660 TCF ROOTSTOR
036241,001197: 31,3654 10155 TESTLODX CCS MPAC +1 # TEST LO ORDER DX
036242,001198: 31,3655 13614 TCF ROOTLOOP
036243,001199: 31,3656 13660 TCF ROOTSTOR
036244,001200: 31,3657 13660 TCF ROOTSTOR
036245,001201: 31,3660 52127 ROOTSTOR DXCH ROOTPS
036246,001202: 31,3661 52155 DXCH MPAC
036247,001203: 31,3662 30163 CA MODE
036248,001204: 31,3663 54156 TS MPAC +2 # STORE SP ITERATION COUNT IN MPAC+2
036249,001205: 31,3664 50132 INDEX RETROOT
036250,001206: 31,3665 10002 TCF 2
036251,001207:
|
|
Page 825
|
036253,001209:
036254,001210: 31,3666 00147 DERTABLL ADRES DERCOFN -3
036255,001211:
036256,001212: # ****************************************************************************************************************
036257,001213: # TRASHY LITTLE SUBROUTINES
036258,001214: # ****************************************************************************************************************
036259,001215:
036260,001216: 31,3667 51620 INTPRETX INDEX WCHPHASE # SET X1 ON THE WAY TO THE INTERPRETER
036261,001217: 31,3670 42510 CS TARGTDEX
036262,001218: 31,3671 50120 INDEX FIXLOC
036263,001219: 31,3672 54046 TS X1
036264,001220: 31,3673 16036 TCF INTPRET
036265,001221:
036266,001222:
036267,001223: 31,3674 31640 TDISPSET CA TTF/8
036268,001224: 31,3675 00006 EXTEND
036269,001225: 31,3676 74750 MP TSCALINV
036270,001226: 31,3677 53474 DXCH TTFDISP
036271,001227:
036272,001228: 31,3700 31640 CA TTF/8
036273,001229: 31,3701 00006 EXTEND
036274,001230: 31,3702 73740 MP SCTTFDSP
036275,001231: 31,3703 54001 TS L
036276,001232: 31,3704 63736 AD 99+LINT
036277,001233: 31,3705 00006 EXTEND
036278,001234: 31,3706 63717 BZMF +11
036279,001235: 31,3707 40001 CS L
036280,001236: 31,3710 63737 AD -LINT
036281,001237: 31,3711 00006 EXTEND
036282,001238: 31,3712 63715 BZMF +3
036283,001239: 31,3713 55664 TS TREDES
036284,001240: 31,3714 00002 TC Q
036285,001241:
036286,001242: 31,3715 34755 CA ZERO
036287,001243: 31,3716 13713 TCF -3
036288,001244:
036289,001245: 31,3717 33736 CA 99+LINT
036290,001246: 31,3720 13710 TCF -10
036291,001247:
036292,001248:
036293,001249: # ****************************************************************************************************************
036294,001250: # SPECIALIZED "PHASCHNG" SUBROUTINE
036295,001251: # ****************************************************************************************************************
036296,001252:
036297,001253: 31,3721 E3,1440 EBANK= PHSNAME2
036298,001254: 31,3721 35007 FASTCHNG CA EBANK3 # SPECIALIZED 'PHASCHNG' ROUTINE
036299,001255: 31,3722 56003 XCH EBANK
036300,001256: 31,3723 52002 DXCH L
036301,001257: 31,3724 55442 TS PHSNAME3
036302,001258: 31,3725 22003 LXCH EBANK
036303,001259:
|
|
Page 826
|
036305,001261: 31,3726 E7,1617 EBANK= E2DPS
036306,001262: 31,3726 00000 TC A
036307,001263:
036308,001264:
036309,001265: # ****************************************************************************************************************
036310,001266: # PARAMETER TABLE INDIRECT ADDRESSES
036311,001267: # ****************************************************************************************************************
036312,001268:
036313,001269: 31,3727 E5,1402 RDG = RBRFG
036314,001270: 31,3727 E5,1410 VDG = VBRFG
036315,001271: 31,3727 E5,1416 ADG = ABRFG
036316,001272: 31,3727 E5,1424 VDG2TTF = VBRFG*
036317,001273: 31,3727 E5,1426 ADG2TTF = ABRFG*
036318,001274: 31,3727 E5,1430 JDG2TTF = JBRFG*
036319,001275:
036320,001276: # ****************************************************************************************************************
036321,001277: # LUNAR LANDING CONSTANTS
036322,001278: # ***************************************************************************************************************
036323,001279:
036324,001280: 31,3727 00046 3SEC*17 DEC +3 E2 B-17
036325,001281:
036326,001282:
036327,001283: 31,3730 00175 10SEC*17 DEC +10 E2 B-17
036328,001284:
036329,001285:
036330,001286: 31,3731 00372 20SEC*17 DEC +20 E2 B-17
036331,001287:
036332,001288:
036333,001289: 31,3732 00567 30SEC*17 DEC +30 E2 B-17
036334,001290:
036335,001291:
036336,001292: 31,3733 01563 TABLTTFL ADRES TABLTTF +3 # ADDRESS FOR REFERENCING TTF TABLE
036337,001293:
036338,001294:
036339,001295: 31,3734 00021 11422 HIGHESTF 2DEC +43245 E-4 B-12 # THRUST FOR RADIAL CONTROL
036340,001296: 31,3736 4740 TTFSCALE = BIT12
036341,001297:
036342,001298:
036343,001299: 31,3736 4750 TSCALINV = BIT4
036344,001300:
036345,001301:
036346,001302: 31,3736 00167 99+LINT DEC +119 B-14
036347,001303:
036348,001304:
036349,001305: 31,3737 77753 -LINT DEC -20 B-14
036350,001306:
036351,001307:
036352,001308: 31,3740 02437 SCTTFDSP DEC .08 # RESCALES FROM 2(-17) CS TO WHOLE SECONDS
036353,001309:
036354,001310:
|
|
Page 827
|
036356,001312: 31,3741 00264 180DEGS DEC +180 B-14
036357,001313:
036358,001314:
036359,001315: 31,3742 00056 1/2DEG DEC +.00278
036360,001316:
036361,001317:
036362,001318: 31,3743 74110 DELTTFAP DEC -158 E2 B-17
036363,001319:
036364,001320:
036365,001321: 31,3744 01130 00000 TAUVERT 2DEC 600 B-14
036366,001322:
036367,001323:
036368,001324: 31,3746 02260 00000 TAUROD 2DEC 300 B-12
036369,001325:
036370,001326:
036371,001327: 31,3750 01440 00000 GSCALE 2DEC 100 B-11
036372,001328:
036373,001329:
036374,001330: 31,3752 14000 00000 3/8DP 2DEC .375000000
036375,001331:
036376,001332:
036377,001333: 31,3754 30000 00000 3/4DP 2DEC .750000000
036378,001334: 31,3756 01437 +1FPS DEC .3048 E-2 B+4
036379,001335:
036380,001336:
036381,001337: 31,3757 00000 04535 +3FPS 2DEC +0.9144 E-2 B-10
036382,001338:
036383,001339:
036384,001340: 31,3761 77656 42436 DEPRCRIT 2DEC -.02 B-2 # DEPRESSION ANGLE CRITERION
036385,001341:
036386,001342:
036387,001343: 31,3763 01542 PROJMAX DEC .42262 B-3 # SIN(25')/8 TO COMPARE WITH PROJ
036388,001344:
036389,001345:
036390,001346: 31,3764 01022 PROJMIN DEC .25882 B-3 # SIN(15')/8 TO COMPARE WITH PROJ
036391,001347:
036392,001348:
036393,001349: 31,3765 01477 V06N63 VN 0663 # P63
036394,001350:
036395,001351: 31,3766 01500 V06N64 VN 0664 # P64
036396,001352:
036397,001353: 31,3767 01474 V06N60 VN 0660 # P65, P66, P67
036398,001354:
|
|
Page 828
|
036400,001356: # ****************************************************************************************************************
036401,001357: # ****************************************************************************************************************
End of include-file LUNAR_LANDING_GUIDANCE_EQUATIONS.agc. Parent file is MAIN.agc