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