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