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