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