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,1968
Note that the date is the date of the printout, not the date of the program revision.

035267,000002:                                                                                                  ## Copyright:   Public domain.
035268,000003:                                                                                                  ## Filename:    LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
035269,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
035270,000005:                                                                                                  ##              It is part of the source code for the original release
035271,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
035272,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
035273,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
035274,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
035275,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
035276,000011:                                                                                                  ##              that the code format has been changed to conform to the
035277,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
035278,000013:                                                                                                  ##              original YUL assembler.
035279,000014:                                                                                                  ## Reference:   pp. 802-828
035280,000015:                                                                                                  ## Assembler:   yaYUL
035281,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
035282,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
035283,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
035284,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
035285,000020:                                                                                                  ##              2017-01-07 HG   Transcribed
035286,000021:                                                                                                  ##              2017-01-23 HG   Add missing statement TS L
035287,000022:                                                                                                  ##                              Fix operator CS -> TC
035288,000023:                                                                                                  ##                                           INDEX -> CCS
035289,000024:                                                                                                  ##                              Fix interpretive operator STODL -> STORE
035290,000025:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
035291,000026:                                                                                                  ##                              and fixed errors found.
035292,000027:                                                                                                  ##              2017-03-10 RSB  Comment-text fixes noted while transcribing Luminary 116.
035293,000028:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
035294,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
035295,000030:                                                                                                  ##              2021-05-30 ABS  Removed DEC66 symbol not present in scans.
035296,000031: 

Page 802

035298,000033: 31,2445  E7,1617                                  EBANK=   E2DPS                                 
035299,000034: 
035300,000035: 31,2445                                           COUNT*   $$/F2DPS                              
035301,000036: 
035302,000037:                                                                                                  #  ****************************************************************************************************************
035303,000038:                                                                                                  #  LUNAR LANDING FLIGHT SEQUENCE TABLES
035304,000039:                                                                                                  #  ****************************************************************************************************************
035305,000040: 
035306,000041:                                                                                                  #  FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.   THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
035307,000042:                                                                                                  #                                                   WCHPHASE  =  -1  --->  IGNALG
035308,000043:                                                                                                  #                                                   WCHPHASE  =   0  --->  BRAKQUAD
035309,000044:                                                                                                  #                                                   WCHPHASE  =   1  --->  BRAKLING
035310,000045:                                                                                                  #                                                   WCHPHASE  =   2  --->  APPRQUAD
035311,000046:                                                                                                  #                                                   WCHPHASE  =   3  --->  APPRLING
035312,000047:                                                                                                  #                                                   WCHPHASE  =   4  --->  VERTICAL
035313,000048: 
035314,000049:                                                                                                  #  ***************************************************************************************************************
035315,000050: 
035316,000051:                                                                                                  #  ROUTINES FOR STARTING NEW GUIDANCE PHASES:
035317,000052: 
035318,000053: 31,2445           12657                           TCF      TTFINCR                               #  IGNALG
035319,000054: 31,2446           12657        NEWPHASE           TCF      TTFINCR                               #  BRAKQUAD
035320,000055: 31,2447           12643                           TCF      LINSET?                               #  BRAKLING
035321,000056: 31,2450           12627                           TCF      STARTP64                              #  APPRQUAD
035322,000057: 31,2451           12647                           TCF      LINSET                                #  APPRLING
035323,000058: 31,2452           12616                           TCF      P65START                              #  VERTICAL
035324,000059: 
035325,000060: 
035326,000061: 
035327,000062:                                                                                                  #  PRE-GUIDANCE COMPUTATIONS:
035328,000063: 
035329,000064: 31,2453           13025                           TCF      CALCRGVG                              #  IGNALG
035330,000065: 31,2454           13035        PREGUIDE           TCF      RGVGCALC                              #  BRAKQUAD
035331,000066: 31,2455           13035                           TCF      RGVGCALC                              #  BRAKLING
035332,000067: 31,2456           12725                           TCF      REDESIG                               #  APPRQUAD
035333,000068: 31,2457           13035                           TCF      RGVGCALC                              #  APPRLING
035334,000069: 31,2460           13035                           TCF      RGVGCALC                              #  VERTICAL
035335,000070: 
035336,000071: 
035337,000072:                                                                                                  #  GUIDANCE EQUATIONS:
035338,000073: 
035339,000074: 31,2461           13107                           TCF      TTF/8CL                               #  IGNALG
035340,000075: 31,2462           13107        WHATGUID           TCF      TTF/8CL                               #  BRAKQUAD
035341,000076: 31,2463           13101                           TCF      LINGUID                               #  BRAKLING
035342,000077: 31,2464           13107                           TCF      TTF/8CL                               #  APPRQUAD
035343,000078: 31,2465           13101                           TCF      LINGUID                               #  BRAKLING
035344,000079: 31,2466           13477                           TCF      VERTGUID                              #  VERTICAL
035345,000080: 

Page 803

035347,000082:                                                                                                  #  POST GUIDANCE EQUATION COMPUTATIONS:
035348,000083: 
035349,000084: 31,2467           13240                           TCF      CGCALC                                #  IGNALG
035350,000085: 31,2470           13240        AFTRGUID           TCF      CGCALC                                #  BRAKQUAD
035351,000086: 31,2471           13270                           TCF      LINXLOGC                              #  BRAKLING
035352,000087: 31,2472           13240                           TCF      CGCALC                                #  APPRQUAD
035353,000088: 31,2473           13270                           TCF      LINXLOGC                              #  APPRLING
035354,000089: 31,2474           13411                           TCF      EXVERT                                #  VERTICAL
035355,000090: 
035356,000091: 
035357,000092:                                                                                                  #  WINDOW VECTOR COMPUTATIONS:
035358,000093: 
035359,000094: 31,2475           13304                           TCF      EXGSUB                                #  IGNALG
035360,000095: 31,2476           13325        WHATEXIT           TCF      EXBRAK                                #  BRAKQUAD
035361,000096: 31,2477           13325                           TCF      EXBRAK                                #  BRAKLING
035362,000097: 31,2500           13333                           TCF      EXNORM                                #  APPRQUAD
035363,000098: 31,2501           13333                           TCF      EXNORM                                #  APPRLING
035364,000099: 
035365,000100: 
035366,000101:                                                                                                  #  DISPLAY ROUTINES:
035367,000102: 
035368,000103: 31,2502           13441        WHATDISP           TCF      P63DISPS                              #  BRAKQUAD
035369,000104: 31,2503           13441                           TCF      P63DISPS                              #  BRAKLING
035370,000105: 31,2504           13445                           TCF      P64DISPS                              #  APPRQUAD
035371,000106: 31,2505           13445                           TCF      P64DISPS                              #  APPRLING
035372,000107: 31,2506           13475                           TCF      VERTDISP                              #  VERTICAL
035373,000108: 
035374,000109: 
035375,000110:                                                                                                  #  INDICES FOR REFERENCING TARGET PARAMETERS:
035376,000111: 
035377,000112: 31,2507           00000                           OCT      0                                     #  IGNALG
035378,000113: 31,2510           00000        TARGTDEX           OCT      0                                     #  BRAKQUAD
035379,000114: 31,2511           00000                           OCT      0                                     #  BRAKLING
035380,000115: 31,2512           00030                           OCT      30                                    #  APPRQUAD
035381,000116: 31,2513           00030                           OCT      30                                    #  APPRLING
035382,000117: 
035383,000118: 
035384,000119:                                                                                                  #  ****************************************************************************************************************
035385,000120:                                                                                                  #  ENTRY POINTS:   2GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
035386,000121:                                                                                                  #  ****************************************************************************************************************
035387,000122: 
035388,000123:                                                                                                  #  IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC QUIDANCE
035389,000124: 
035390,000125: 31,2514           77776        ?GUIDSUB           EXIT                                           
035391,000126: 31,2515           34752                           CAF      TWO                                   #  N = 3
035392,000127: 31,2516           55645                           TS       NGUIDSUB                              
035393,000128: 31,2517           12600                           TCF      GUILDRET                              
035394,000129: 
035395,000130: 31,2520           55645        GUIDSUB            TS       NGUIDSUB                              #  ON SUCEEDING PASSES SKIP TTFINCR
035396,000131: 31,2521           13025                           TCF      CALCRGVG                              
035397,000132: 

Page 804

035399,000134: 
035400,000135:                                                                                                  #  NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT
035401,000136: 
035402,000137: 31,2522           05353        LUNLAND            TC       PHASCHNG                              
035403,000138: 31,2523           00035                           OCT      00035                                 #  GROUP 5:  RETAIN ONLY PIPA TASK
035404,000139: 31,2524           05353                           TC       PHASCHNG                              
035405,000140: 31,2525           05023                           OCT      05023                                 #  GROUP 3:  PROTECT GUIDANCE WITH PRIO 21
035406,000141: 31,2526           21000                           OCT      21000                                 #        JUST HIGHER THAN SERVICER'S PRIORITY
035407,000142: 
035408,000143:                                                                                                  #  ****************************************************************************************************************
035409,000144:                                                                                                  #  GUILDENSTERN:  AUTO-MODES MONITOR (R13)
035410,000145:                                                                                                  #  ****************************************************************************************************************
035411,000146: 
035412,000147: 31,2527                                           COUNT*   $$/R13                                
035413,000148: 
035414,000149:                                                                                                  #     HERE IS THE PHILOSOPHY OF GUILDENSTERN:    ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE
035415,000150:                                                                                                  #  DISCRETE TO SELECT P67 OR P66 RESPECTIVELY;   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66
035416,000151:                                                                                                  #  UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE.
035417,000152: 
035418,000153: 31,2527           00006        GUILDEN            EXTEND                                         #  IS UN-AUTO-THROTTLE DISCRETE PRESENT?
035419,000154: 31,2530           00030                           READ     CHAN30                                
035420,000155: 31,2531           74747                           MASK     BIT5                                  
035421,000156: 31,2532           10000                           CCS      A                                     
035422,000157: 31,2533           12564                           TCF      STARTP67                              #  YES
035423,000158: 31,2534           05321        P67NOW?            TC       CHECKMM                               #  NO:   ARE WE IN P67 NOW?
035424,000159: 31,2535           00103                           DEC      67         B-14                       
035425,000160: 31,2536           12570                           TCF      STABL?                                #  NO
035426,000161: 31,2537           03721        STARTP66           TC       FASTCHNG                              #  YES
035427,000162: 31,2540           05311                           TC       NEWMODEX                              
035428,000163: 31,2541           00102                           DEC      66         B-14                       
035429,000164: 31,2542           00006                           EXTEND                                         #  INITIALIZE VDGVERT USING
035430,000165: 31,2543           31625                           DCA      VGU                                   #    PRESENT DOWNWARD VELOCITY
035431,000166: 31,2544           53643                           DXCH     VDGVERT                               
035432,000167: 31,2545           34755                           CAF      ZERO                                  
035433,000168: 31,2546           55644                           TS       RODCOUNT                              
035434,000169: 31,2547           55645        VRTSTART           TS       WCHVERT                               
035435,000170: 31,2550           34751                           CAF      FOUR                                  #  WCHPHASE = 4 --> VERTICAL: P65,P66,P67
035436,000171: 31,2551           55617                           TS       WCHPHOLD                              
035437,000172: 31,2552           55620                           TS       WCHPHASE                              
035438,000173: 31,2553           04616                           TC       BANKCALL                              #  TEMPORARY, I HOPE HOPE HOPE
035439,000174: 31,2554           40165                           CADR     STOPRATE                              #  TEMPORARY, I HOPE HOPE HOPE
035440,000175: 31,2555           05516                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE
035441,000176: 31,2556           00311                           ADRES    XOVINFLG                              
035442,000177: 31,2557           05516                           TC       DOWNFLAG                              
035443,000178: 31,2560           00143                           ADRES    REDFLAG                               
035444,000179: 31,2561           05516                           TC       DOWNFLAG                              
035445,000180: 31,2562           00142                           ADRES    POUTFLAG                              #  PERMIT PULSE-OUTS
035446,000181: 31,2563           12600                           TCF      GUILDRET                              
035447,000182: 
035448,000183: 31,2564           05311        STARTP67           TC       NEWMODEX                              #  NO HARM IN "STARTING" P67 OVER AND OVER
035449,000184: 31,2565           00103                           DEC      67         B-14                       #    SO NO NEED FOR A FASTCHNG AND NO NEED
035450,000185: 

Page 805

035452,000187: 31,2566           34363                           CAF      TEN                                   #    TO SEE IF ALREADY IN P67
035453,000188: 31,2567           12547                           TCF      VRTSTART                              
035454,000189: 
035455,000190: 31,2570           34737        STABL?             CAF      BIT13                                 #  IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
035456,000191: 31,2571           00006                           EXTEND                                         
035457,000192: 31,2572           02031                           RAND     CHAN31                                
035458,000193: 31,2573           10000                           CCS      A                                     
035459,000194: 31,2574           12600                           TCF      GUILDRET                              #  YES: ALL'S WELL
035460,000195: 31,2575           05321        P66NOW?            TC       CHECKMM                               #  NO:  ARE WE IN P66 NOW?
035461,000196: 31,2576           00102                           DEC      66         B-14                       
035462,000197: 31,2577           12537                           TCF      STARTP66                              #  NO
035463,000198: 
035464,000199:                                                                                                  #                                                (CONTINUE TO GUILDRET) YES
035465,000200: 
035466,000201:                                                                                                  #  ****************************************************************************************************************
035467,000202:                                                                                                  #  INITIALIZATION FOR THIS PASS
035468,000203:                                                                                                  #  ****************************************************************************************************************
035469,000204: 
035470,000205: 31,2600                                           COUNT*   $$/F2DPS                              
035471,000206: 
035472,000207: 31,2600           00006        GUILDRET           EXTEND                                         
035473,000208: 31,2601           31623                           DCA      TPIP                                  
035474,000209: 31,2602           53572                           DXCH     TPIPOLD                               
035475,000210: 
035476,000211: 31,2603           03721                           TC       FASTCHNG                              
035477,000212: 
035478,000213: 31,2604           00006                           EXTEND                                         
035479,000214: 31,2605           31557                           DCA      PIPTIME1                              
035480,000215: 31,2606           53623                           DXCH     TPIP                                  
035481,000216: 
035482,000217: 31,2607           00006                           EXTEND                                         
035483,000218: 31,2610           31641                           DCA      TTF/8                                 
035484,000219: 31,2611           53551                           DXCH     TTF/8TMP                              
035485,000220: 
035486,000221: 31,2612           11621                           CCS      FLPASS0                               
035487,000222: 31,2613           12657                           TCF      TTFINCR                               
035488,000223: 
035489,000224: 31,2614           51620        BRSPOT1            INDEX    WCHPHASE                              
035490,000225: 31,2615           12446                           TCF      NEWPHASE                              
035491,000226: 
035492,000227:                                                                                                  #  ****************************************************************************************************************
035493,000228:                                                                                                  #  ROUTINES TO START NEW PHASES
035494,000229:                                                                                                  #  ****************************************************************************************************************
035495,000230: 
035496,000231: 31,2616           05311        P65START           TC       NEWMODEX                              
035497,000232: 31,2617           00101                           DEC      65         B-14                       
035498,000233: 31,2620           44752                           CS       TWO                                   
035499,000234: 31,2621           55645                           TS       WCHVERT                               
035500,000235: 31,2622           05516                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE
035501,000236: 31,2623           00311                           ADRES    XOVINFLG                              
035502,000237: 

Page 806

035504,000239: 31,2624           05516        COMSTART           TC       DOWNFLAG                              
035505,000240: 31,2625           00142                           ADRES    POUTFLAG                              
035506,000241: 31,2626           12657                           TCF      TTFINCR                               
035507,000242: 
035508,000243: 
035509,000244: 31,2627           33743        STARTP64           CAF      DELTTFAP                              #  AUGMENT TTF/8 (TWO-PHASE ONLY)
035510,000245: 31,2630           27550                           ADS      TTF/8TMP                              
035511,000246: 31,2631           05311                 +2        TC       NEWMODEX                              
035512,000247: 31,2632           00100                           DEC      64         B-14                       
035513,000248: 31,2633           34752                           CAF      TWO                                   
035514,000249: 31,2634           55620                           TS       WCHPHASE                              
035515,000250: 31,2635           34740                           CA       BIT12                                 #  ENABLE RUPT10
035516,000251: 31,2636           00006                           EXTEND                                         
035517,000252: 31,2637           05013                           WOR      CHAN13                                
035518,000253: 31,2640           05516                           TC       DOWNFLAG                              #  INITIALIZE REDESIGNATION FLAG
035519,000254: 31,2641           00143                           ADRES    REDFLAG                               
035520,000255: 31,2642           12624                           TCF      COMSTART                              
035521,000256: 
035522,000257:                                                                                                  #  ****************************************************************************************************************
035523,000258:                                                                                                  #  SET LINEAR GUIDANCE COEFFICIENTS
035524,000259:                                                                                                  #  ****************************************************************************************************************
035525,000260: 
035526,000261: 31,2643           30102        LINSET?            CA       FLAGWRD6                              #  ONE-PHASE OR TWO-PHASE?
035527,000262: 31,2644           74743                           MASK     2PHASBIT                              
035528,000263: 31,2645           00006                           EXTEND                                         
035529,000264: 31,2646           12631                           BZF      STARTP64   +2                         #  ONE-PHASE: GO DIRECTLY TO APPROACH PHASE
035530,000265: 
035531,000266: 31,2647           03667        LINSET             TC       INTPRETX                              
035532,000267: 31,2650           51775                           VLOAD    VSU*                                  #  -        -     -
035533,000268: 31,2651           02271                                    ACG                                   #  JLING = (ACG - ADG)/TTF
035534,000269: 31,2652           02417                                    ADG,1                                 
035535,000270: 31,2653           70322                           VSR3     V/SC                                  
035536,000271: 31,2654           03551                                    TTF/8TMP                              #  TTF/8 NOT YET UPDATED
035537,000272: 31,2655           02277                           STORE    JLING                                 #  JLING IS IN UMITS OF 2(-18) M/CS/CS/CS
035538,000273: 31,2656           77776                           EXIT                                           
035539,000274: 
035540,000275:                                                                                                  #                                              (CONTINUE TO TTFINCR)
035541,000276: 
035542,000277:                                                                                                  #  ****************************************************************************************************************
035543,000278:                                                                                                  #  INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
035544,000279:                                                                                                  #  ****************************************************************************************************************
035545,000280: 
035546,000281:                                                                                                  #             TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
035547,000282: 
035548,000283:                                                                                                  #                       TTF/8 UPDATED FOR TIME SINCE LAST PASS:
035549,000284: 
035550,000285:                                                                                                  #                                  TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
035551,000286: 
035552,000287:                                                                                                  #                       LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
035553,000288: 

Page 807

035555,000290:                                                                                                  #                                  -                  -      -                      -
035556,000291:                                                                                                  #                                  LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
035557,000292: 
035558,000293:                                                                                                  #                       SLANT RANGE TO LANDING SITE, FOR DISPLAY:
035559,000294: 
035560,000295:                                                                                                  #                                                   -      -
035561,000296:                                                                                                  #                                  RANGEDSP = ABVAL(LAND - R)
035562,000297: 
035563,000298: 31,2657           06036        TTFINCR            TC       INTPRET                               
035564,000299: 31,2660           45345                           DLOAD    DSU                                   
035565,000300: 31,2661           03623                                    TPIP                                  
035566,000301: 31,2662           03572                                    TPIPOLD                               
035567,000302: 31,2663           41461                           SLR      PUSH                                  #  SHIFT SCALES DELTA TIME TO 2(17) CSECS
035568,000303: 31,2664           21214                                    11D                                   
035569,000304: 31,2665           47361                           VXSC     VXV                                   
035570,000305: 31,2666           03633                                    LAND                                  
035571,000306: 31,2667           02331                                    WM                                    
035572,000307: 31,2670           47045                           BVSU     RTB                                   
035573,000308: 31,2671           03633                                    LAND                                  
035574,000309: 31,2672           21700                                    NORMUNIT                              
035575,000310: 31,2673           76561                           VXSC     VSL1                                  
035576,000311: 31,2674           02337                                    /LAND/                                
035577,000312: 31,2675           03543                           STORE    LANDTEMP                              
035578,000313: 31,2676           51451                           VSU      ABVAL                                 
035579,000314: 31,2677           03517                                    R                                     
035580,000315: 31,2700           16532                           STODL    RANGEDSP                              
035581,000316: 31,2701           77776                           EXIT                                           
035582,000317: 
035583,000318: 31,2702           52155                           DXCH     MPAC                                  
035584,000319: 31,2703           21551                           DAS      TTF/8TMP                              #  NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP
035585,000320: 
035586,000321: 31,2704           03721                           TC       FASTCHNG                              
035587,000322: 
035588,000323: 31,2705           00006                           EXTEND                                         
035589,000324: 31,2706           31551                           DCA      TTF/8TMP                              
035590,000325: 31,2707           53641                           DXCH     TTF/8                                 
035591,000326: 
035592,000327: 31,2710           00006                           EXTEND                                         
035593,000328: 31,2711           31543                           DCA      LANDTEMP                              
035594,000329: 31,2712           53633                           DXCH     LAND                                  
035595,000330: 31,2713           00006                           EXTEND                                         
035596,000331: 31,2714           31545                           DCA      LANDTEMP   +2                         
035597,000332: 31,2715           53635                           DXCH     LAND       +2                         
035598,000333: 31,2716           00006                           EXTEND                                         
035599,000334: 31,2717           31547                           DCA      LANDTEMP   +4                         
035600,000335: 31,2720           53637                           DXCH     LAND       +4                         
035601,000336: 
035602,000337: 31,2721           03674                           TC       TDISPSET                              
035603,000338: 31,2722           03721                           TC       FASTCHNG                              #  SINCE REDESIG MAY CHANGE LANDTEMP
035604,000339: 

Page 808

035606,000341: 31,2723           51620        BRSPOT2            INDEX    WCHPHASE                              
035607,000342: 31,2724           12454                           TCF      PREGUIDE                              
035608,000343: 
035609,000344:                                                                                                  #  ****************************************************************************************************************
035610,000345:                                                                                                  #  LANDING SITE PERTURBATION EQUATIONS
035611,000346:                                                                                                  #  ****************************************************************************************************************
035612,000347: 
035613,000348: 31,2725           30102        REDESIG            CA       FLAGWRD6                              #  IS REDFLAG SET?
035614,000349: 31,2726           74746                           MASK     REDFLBIT                              
035615,000350: 31,2727           00006                           EXTEND                                         
035616,000351: 31,2730           13035                           BZF      RGVGCALC                              #  NO:   SKIP REDESIGNATION LOGIC
035617,000352: 
035618,000353: 31,2731           31664                           CA       TREDES                                #  YES:  HAS TREDES REACHED ZERO?
035619,000354: 31,2732           00006                           EXTEND                                         
035620,000355: 31,2733           13035                           BZF      RGVGCALC                              #  YES:  SKIP REDESIGNATION LOGIC
035621,000356: 
035622,000357: 31,2734           00004                           INHINT                                         
035623,000358: 31,2735           31642                           CA       ELINCR1                               
035624,000359: 31,2736           55552                           TS       ELINCR                                
035625,000360: 31,2737           31643                           CA       AZINCR1                               
035626,000361: 31,2740           55554                           TS       AZINCR                                
035627,000362: 31,2741           03721                           TC       FASTCHNG                              
035628,000363: 
035629,000364: 31,2742           34755                           CA       ZERO                                  
035630,000365: 31,2743           55642                           TS       ELINCR1                               
035631,000366: 31,2744           55643                           TS       AZINCR1                               
035632,000367: 31,2745           00003                           RELINT                                         
035633,000368: 31,2746           55553                           TS       ELINCR     +1                         
035634,000369: 31,2747           55555                           TS       AZINCR     +1                         
035635,000370: 
035636,000371: 31,2750           30120                           CA       FIXLOC                                #  SET PD TO 0
035637,000372: 31,2751           54166                           TS       PUSHLOC                               
035638,000373: 
035639,000374: 31,2752           06036                           TC       INTPRET                               
035640,000375: 31,2753           52375                           VLOAD    VSU                                   
035641,000376: 31,2754           03633                                    LAND                                  
035642,000377: 31,2755           03517                                    R                                     #                  -      -
035643,000378: 31,2756           41434                           RTB      PUSH                                  #  PUSH DOWN UNIT (LAND - R)
035644,000379: 31,2757           21700                                    NORMUNIT                              
035645,000380: 31,2760           76435                           VXV      VSL1                                  
035646,000381: 31,2761           02154                                    YNBPIP                                #                     -          -      -
035647,000382: 31,2762           65361                           VXSC     PDDL                                  #  PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
035648,000383: 31,2763           03553                                    ELINCR                                
035649,000384: 31,2764           03555                                    AZINCR                                
035650,000385: 31,2765           52361                           VXSC     VSU                                   
035651,000386: 31,2766           02154                                    YNBPIP                                
035652,000387: 31,2767           41455                           VAD      PUSH                                  #  RESULTING VECTOR IS 1/2 REAL SIZE
035653,000388: 
035654,000389: 31,2770           45345                           DLOAD    DSU                                   #  MAKE SURE REDESIGNATION IS NOT
035655,000390: 31,2771           00001                                    0                                     #    TOO CLOSE TO THE HORIZON
035656,000391: 

Page 809

035658,000393: 31,2772           23762                                    DEPRCRIT                              
035659,000394: 31,2773           71240                           BMN      DLOAD                                 
035660,000395: 31,2774           62777                                    REDES1                                
035661,000396: 31,2775           23762                                    DEPRCRIT                              
035662,000397: 31,2776           00001                           STORE    0                                     
035663,000398: 31,2777           45345        REDES1             DLOAD    DSU                                   
035664,000399: 31,3000           03633                                    LAND                                  
035665,000400: 31,3001           03517                                    R                                     
035666,000401: 31,3002           74271                           DDV      VXSC                                  
035667,000402: 31,3003           00001                                    0                                     
035668,000403: 31,3004           53455                           VAD      UNIT                                  
035669,000404: 31,3005           03517                                    R                                     
035670,000405: 31,3006           76561                           VXSC     VSL1                                  
035671,000406: 31,3007           02337                                    /LAND/                                
035672,000407: 31,3010           03543                           STORE    LANDTEMP                              
035673,000408: 31,3011           77776                           EXIT                                           #  LOOKANGL WILL BE COMPUTED AT RGVGCALC
035674,000409: 
035675,000410: 31,3012           03721                           TC       FASTCHNG                              
035676,000411: 
035677,000412: 31,3013           00006                           EXTEND                                         
035678,000413: 31,3014           31543                           DCA      LANDTEMP                              
035679,000414: 31,3015           53633                           DXCH     LAND                                  
035680,000415: 31,3016           00006                           EXTEND                                         
035681,000416: 31,3017           31545                           DCA      LANDTEMP   +2                         
035682,000417: 31,3020           53635                           DXCH     LAND       +2                         
035683,000418: 31,3021           00006                           EXTEND                                         
035684,000419: 31,3022           31547                           DCA      LANDTEMP   +4                         
035685,000420: 31,3023           53637                           DXCH     LAND       +4                         
035686,000421: 
035687,000422: 31,3024           13035                           TCF      RGVGCALC                              
035688,000423: 
035689,000424:                                                                                                  #  ****************************************************************************************************************
035690,000425:                                                                                                  #  COMPUTE STATE IN GUIDANCE COORDINATES
035691,000426:                                                                                                  #  ****************************************************************************************************************
035692,000427: 
035693,000428:                                                                                                  #             RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
035694,000429: 
035695,000430:                                                                                                  #                      VELOCITY RELATIVE TO THE SURFACE:
035696,000431: 
035697,000432:                                                                                                  #                                  -         -   -   -
035698,000433:                                                                                                  #                                  ANGTERM = V + R * WM
035699,000434: 
035700,000435:                                                                                                  #                      STATE IN GUIDANCE COORDINATES:
035701,000436: 
035702,000437:                                                                                                  #                                  -     *   -   -
035703,000438:                                                                                                  #                                  RGU = CG (R - LAND)
035704,000439: 
035705,000440:                                                                                                  #                                  -     *   -   -    -
035706,000441:                                                                                                  #                                  VGU = CG (V - WM * R)
035707,000442: 

Page 810

035709,000444:                                                                                                  #                      HORIZONTAL VELOCITY FOR DISPLAY:
035710,000445: 
035711,000446:                                                                                                  #                                  VHORIZ = 8 ABVAL (0, VG , VG )
035712,000447:                                                                                                  #                                                         2    1
035713,000448: 
035714,000449:                                                                                                  #                      DEPRESSION ANGLE FOR DISPLAY:
035715,000450: 
035716,000451:                                                                                                  #                                                         -   -     -
035717,000452:                                                                                                  #                                  LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
035718,000453: 
035719,000454: 31,3025           06036        CALCRGVG           TC       INTPRET                               #  IN IGNALG, COMPUTE V FROM INTEGRATION
035720,000455: 31,3026           64375                           VLOAD    MXV                                   #    OUTPUT AND TRIM CORRECTION TERM
035721,000456: 31,3027           00025                                    VATT1                                 #    COMPUTED LAST PASS AND LEFT IN UNFC/2
035722,000457: 31,3030           01734                                    REFSMMAT                              
035723,000458: 31,3031           53362                           VSR1     VAD                                   
035724,000459: 31,3032           03252                                    UNFC/2                                
035725,000460: 31,3033           03525                           STORE    V                                     
035726,000461: 31,3034           77776                           EXIT                                           
035727,000462: 
035728,000463: 31,3035           06036        RGVGCALC           TC       INTPRET                               #  ENTER HERE TO RECOMPUTE RG AND VG
035729,000464: 31,3036           47375                           VLOAD    VXV                                   
035730,000465: 31,3037           03517                                    R                                     
035731,000466: 31,3040           02331                                    WM                                    
035732,000467: 31,3041           70455                           VAD      VSR2                                  #  RESCALE TO UNITS OF 2(9) M/CS
035733,000468: 31,3042           03525                                    V                                     
035734,000469: 31,3043           02305                           STORE    ANGTERM                               
035735,000470: 31,3044           77721                           MXV                                            
035736,000471: 31,3045           02510                                    CG                                    #  NO SHIFT SINCE ANGTERM IS DOUBLE SIZED
035737,000472: 31,3046           03625                           STORE    VGU                                   
035738,000473: 31,3047           55525                           PDDL     VDEF                                  #  FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS
035739,000474: 31,3050           06424                                    ZEROVECS                              #            2   1
035740,000475: 31,3051           52446                           ABVAL    SL3                                   
035741,000476: 31,3052           26267                           STOVL    VHORIZ                                #  VHORIZ FOR DISPLAY DURING P65, P66, P67
035742,000477: 31,3053           03517                                    R                                     #            -   -
035743,000478: 31,3054           41451                           VSU      PUSH                                  #  PUSH DOWN R - LAND
035744,000479: 31,3055           03633                                    LAND                                  
035745,000480: 31,3056           76521                           MXV      VSL1                                  
035746,000481: 31,3057           02510                                    CG                                    
035747,000482: 31,3060           26544                           STOVL    RGU                                   
035748,000483: 31,3061           50234                           RTB      DOT                                   #  NOW IN MPAC IS SINE(LOOKANGL)/4
035749,000484: 31,3062           21700                                    NORMUNIT                              
035750,000485: 31,3063           02146                                    XNBPIP                                
035751,000486: 31,3064           77776                           EXIT                                           
035752,000487: 
035753,000488: 31,3065           30120                           CA       FIXLOC                                #  RESET PUSH DOWN POINTER
035754,000489: 31,3066           54166                           TS       PUSHLOC                               
035755,000490: 
035756,000491: 31,3067           30154                           CA       MPAC                                  #  COMPUTE LOOKANGL ITSELF
035757,000492: 31,3070           60000                           DOUBLE                                         
035758,000493: 31,3071           04616                           TC       BANKCALL                              
035759,000494: 

Page 811

035761,000496: 31,3072           61643                           CADR     SPARCSIN   -1                         
035762,000497: 31,3073           63742                           AD       1/2DEG                                
035763,000498: 31,3074           00006                           EXTEND                                         
035764,000499: 31,3075           73741                           MP       180DEGS                               
035765,000500: 31,3076           55665                           TS       LOOKANGL                              #  LOOKANGL FOR DISPLAY DURING P64
035766,000501: 
035767,000502: 31,3077           51620        BRSPOT3            INDEX    WCHPHASE                              
035768,000503: 31,3100           12462                           TCF      WHATGUID                              
035769,000504: 
035770,000505:                                                                                                  # ****************************************************************************************************************
035771,000506:                                                                                                  #  LINEAR GUIDANCE EQUATION
035772,000507:                                                                                                  # ****************************************************************************************************************
035773,000508: 
035774,000509: 31,3101           03667        LINGUID            TC       INTPRETX                              
035775,000510: 31,3102           74375                           VLOAD    VXSC                                  #  -     -     -
035776,000511: 31,3103           02277                                    JLING                                 #  ACG = ADG + JLING TTF
035777,000512: 31,3104           03641                                    TTF/8                                 
035778,000513: 31,3105           52132                           VSL3     GOTO                                  #  PICK UP THE VAD* AT AFCCALC
035779,000514: 31,3106           63171                                    AFCCALC                               
035780,000515: 
035781,000516:                                                                                                  # ****************************************************************************************************************
035782,000517:                                                                                                  #  TTF/4 COMPUTATION
035783,000518:                                                                                                  # ****************************************************************************************************************
035784,000519: 
035785,000520: 31,3107           03667        TTF/8CL            TC       INTPRETX                              
035786,000521: 31,3110           77743                           DLOAD*                                         
035787,000522: 31,3111           02431                                    JDG2TTF,1                             
035788,000523: 31,3112           23567                           STODL*   TABLTTF    +6                         #  A(3) = 8 JDG  TO TABLTTF
035789,000524: 31,3113           02427                                    ADG2TTF,1                             #              2
035790,000525: 31,3114           17565                           STODL    TABLTTF    +4                         #  A(2) = 6 ADG  TO TABLTTF
035791,000526: 31,3115           03631                                    VGU        +4                         #              2
035792,000527: 31,3116           42605                           DMP      DAD*                                  
035793,000528: 31,3117           23755                                    3/4DP                                 
035794,000529: 31,3120           02425                                    VDG2TTF,1                             
035795,000530: 31,3121           23563                           STODL*   TABLTTF    +2                         #  A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF
035796,000531: 31,3122           02407                                    RDG        +4,1                       #               2         2
035797,000532: 31,3123           41225                           DSU      DMP                                   
035798,000533: 31,3124           02550                                    RGU        +4                         
035799,000534: 31,3125           23753                                    3/8DP                                 
035800,000535: 31,3126           03561                           STORE    TABLTTF                               #  A(0) = -24 (RGU  - RDG )/64 TO TABLTTF
035801,000536: 31,3127           77776                           EXIT                                           #                 2      2
035802,000537: 
035803,000538: 31,3130           34744                           CA       BIT8                                  
035804,000539: 31,3131           55570                           TS       TABLTTF    +10                        #  FRACTIONAL PRECISION FOR TTF TO TABLE
035805,000540: 
035806,000541: 31,3132           00006                           EXTEND                                         
035807,000542: 31,3133           31641                           DCA      TTF/8                                 
035808,000543: 31,3134           52155                           DXCH     MPAC                                  #  LOADS TTF/8 (INITIAL GUESS) INTO MPAC
035809,000544: 31,3135           34752                           CAF      TWO                                   #  DEGREE - ONE
035810,000545: 31,3136           54001                           TS       L                                     
035811,000546: 

Page 812

035813,000548: 31,3137           33733                           CAF      TABLTTFL                              
035814,000549: 31,3140           03543                           TC       ROOTPSRS                              #  YIELDS TTF/8 IN MPAC
035815,000550: 31,3141           05652                           TC       POODOO                                #  BAD RETURN
035816,000551: 31,3142           01406                           OCT      01406                                 
035817,000552: 31,3143           00006                           EXTEND                                         #  GOOD RETURN
035818,000553: 31,3144           30155                           DCA      MPAC                                  #  FETCH TTF/8 KEEPING IT IN MPAC
035819,000554: 31,3145           53641                           DXCH     TTF/8                                 #  CORRECTED TTF/8
035820,000555: 
035821,000556: 31,3146           03674                           TC       TDISPSET                              
035822,000557: 
035823,000558:                                                                                                  #                                               (CONTINUE TO QUADGUID)
035824,000559: 
035825,000560:                                                                                                  #  ****************************************************************************************************************
035826,000561:                                                                                                  #  MAIN GUIDANCE EQUATION
035827,000562:                                                                                                  #  ****************************************************************************************************************
035828,000563: 
035829,000564:                                                                                                  #                       AS PUBLISHED:-
035830,000565: 
035831,000566:                                                                                                  #                                                -     -        -     -
035832,000567:                                                                                                  #                                  -     -     6(VDG + VG)   12(RDG - RG)
035833,000568:                                                                                                  #                                  ACG = ADG + ----------- + ------------
035834,000569:                                                                                                  #                                                  TTF         (TTF)(TTF)
035835,000570: 
035836,000571:                                                                                                  #                       AS HERE PROGRAMMED:-
035837,000572: 
035838,000573:                                                                                                  #                                              -     -
035839,000574:                                                                                                  #                                       3 (1/4(RDG - RG)   -     - )
035840,000575:                                                                                                  #                                       - (------------- + VDG + VG)
035841,000576:                                                                                                  #                                 -     4 (    TTF/8               )   -
035842,000577:                                                                                                  #                                 ACG = ---------------------------- + ADG
035843,000578:                                                                                                  #                                                  TTF/8
035844,000579: 
035845,000580: 31,3147           33732        QUADGUID           CAF      30SEC*17                              #  PULSE-OUTS ARE INHIBITED WHENEVER
035846,000581: 31,3150           61640                           AD       TTF/8                                 #    TTF < 30 SECONDS, REGARDLESS OF
035847,000582: 31,3151           00006                           EXTEND                                         #    THE DURATION OF LINEAR GUIDANCE
035848,000583: 31,3152           63155                           BZMF     Q**DG**D                              
035849,000584: 31,3153           05504                           TC       UPFLAG                                
035850,000585: 31,3154           00142                           ADRES    POUTFLAG                              
035851,000586: 31,3155           03667        Q**DG**D           TC       INTPRETX                              
035852,000587: 31,3156           52373                           VLOAD*   VSU                                   
035853,000588: 31,3157           02403                                    RDG,1                                 
035854,000589: 31,3160           02544                                    RGU                                   
035855,000590: 31,3161           70541                           V/SC     VSR2                                  
035856,000591: 31,3162           03641                                    TTF/8                                 
035857,000592: 31,3163           53253                           VAD*     VAD                                   
035858,000593: 31,3164           02411                                    VDG,1                                 
035859,000594: 31,3165           03625                                    VGU                                   
035860,000595: 31,3166           74341                           V/SC     VXSC                                  
035861,000596: 31,3167           03641                                    TTF/8                                 
035862,000597: 

Page 813

035864,000599: 31,3170           23755                                    3/4DP                                 
035865,000600: 31,3171           77653        AFCCALC            VAD*                                           
035866,000601: 31,3172           02417                                    ADG,1                                 #  CURRENT TARGET ACCELERATION
035867,000602: 31,3173           02271                           STORE    ACG                                   
035868,000603: 31,3174           76505        AFCCALC1           VXM      VSL1                                  #  VERTGUID COMES HERE
035869,000604: 31,3175           02510                                    CG                                    
035870,000605: 31,3176           70315                           PDVL     V/SC                                  
035871,000606: 31,3177           01237                                    GDT/2                                 
035872,000607: 31,3200           23751                                    GSCALE                                
035873,000608: 31,3201           45445                           BVSU     STADR                                 
035874,000609: 31,3202           74525                           STORE    UNFC/2                                #  UNFC/2 NEED NOT BE UNITIZED
035875,000610: 31,3203           77646                           ABVAL                                          
035876,000611: 31,3204           03574        AFCCALC2           STORE    /AFC/                                 #  MAGNITUDE OF AFC FOR THROTTLE
035877,000612: 31,3205           71214                           BON      DLOAD                                 
035878,000613: 31,3206           03306                                    2PHASFLG                              
035879,000614: 31,3207           63231                                    AFCCLEND                              
035880,000615: 31,3210           03252                                    UNFC/2                                #  VERTICAL COMPONENT
035881,000616: 31,3211           65316                           DSQ      PDDL                                  
035882,000617: 31,3212           03254                                    UNFC/2     +2                         #  OUT-OF-PLANE
035883,000618: 31,3213           65316                           DSQ      PDDL                                  
035884,000619: 31,3214           23735                                    HIGHESTF                              
035885,000620: 31,3215           63471                           DDV      DSQ                                   
035886,000621: 31,3216           01245                                    MASS                                  #                         2    2    2
035887,000622: 31,3217           45225                           DSU      DSU                                   #  AMAXHORIZ = SQRT(ATOTAL - A  - A  )
035888,000623: 31,3220           71244                           BPL      DLOAD                                 #                             1    0
035889,000624: 31,3221           63223                                    AFCCALC3                              
035890,000625: 31,3222           06424                                    ZEROVECS                              
035891,000626: 31,3223           43366        AFCCALC3           SQRT     DAD                                   
035892,000627: 31,3224           03256                                    UNFC/2     +4                         
035893,000628: 31,3225           44244                           BPL      BDSU                                  
035894,000629: 31,3226           63231                                    AFCCLEND                              
035895,000630: 31,3227           03256                                    UNFC/2     +4                         
035896,000631: 31,3230           03256                           STORE    UNFC/2     +4                         
035897,000632: 31,3231           77776        AFCCLEND           EXIT                                           
035898,000633: 31,3232           03721                           TC       FASTCHNG                              
035899,000634: 
035900,000635: 31,3233           31620                           CA       WCHPHASE                              #  PREPARE FOR PHASE SWITCHING LOGIC
035901,000636: 31,3234           55617                           TS       WCHPHOLD                              
035902,000637: 31,3235           25621                           INCR     FLPASS0                               #  INCREMENT PASS COUNTER
035903,000638: 
035904,000639: 31,3236           51620        BRSPOT4            INDEX    WCHPHASE                              
035905,000640: 31,3237           12470                           TCF      AFTRGUID                              
035906,000641: 
035907,000642:                                                                                                  #  ***************************************************************************************************************
035908,000643:                                                                                                  #  ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX
035909,000644:                                                                                                  #  ***************************************************************************************************************
035910,000645: 
035911,000646: 31,3240           06036        CGCALC             TC       INTPRET                               
035912,000647: 31,3241           53575                           VLOAD    UNIT                                  
035913,000648: 31,3242           03633                                    LAND                                  
035914,000649: 

Page 814

035916,000651: 31,3243           26510                           STOVL    CG                                    #  FIRST ROW
035917,000652: 31,3244           02305                                    ANGTERM                               
035918,000653: 31,3245           53361                           VXSC     VAD                                   #  REMEMBER THAT ANGTERM IS DOUBLE-SIZED
035919,000654: 31,3246           03641                                    TTF/8                                 
035920,000655: 31,3247           03633                                    LAND                                  
035921,000656: 31,3250           47051                           VSU      RTB                                   
035922,000657: 31,3251           03517                                    R                                     
035923,000658: 31,3252           21700                                    NORMUNIT                              
035924,000659: 31,3253           47035                           VXV      RTB                                   
035925,000660: 31,3254           03633                                    LAND                                  
035926,000661: 31,3255           21700                                    NORMUNIT                              
035927,000662: 31,3256           26516                           STOVL    CG         +6                         #  SECOND ROW
035928,000663: 31,3257           02510                                    CG                                    
035929,000664: 31,3260           76435                           VXV      VSL1                                  
035930,000665: 31,3261           02516                                    CG         +6                         
035931,000666: 31,3262           02524                           STORE    CG         +14                        
035932,000667: 31,3263           77776                           EXIT                                           
035933,000668: 
035934,000669:                                                                                                  #                                              (CONTINUE TO EXTLOGIC)
035935,000670: 
035936,000671:                                                                                                  #  ****************************************************************************************************************
035937,000672:                                                                                                  #  PREPARE TO EXIT
035938,000673:                                                                                                  #  ****************************************************************************************************************
035939,000674: 
035940,000675:                                                                                                  #  DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES
035941,000676: 
035942,000677: 31,3264           11620        EXTLOGIC           CCS      WCHPHASE                              
035943,000678: 31,3265           50000                           INDEX    A                                     #  WCHPHASE = +2    APPRQUAD    A = 1
035944,000679: 31,3266           31425                           CA       TENDBRAK                              #  WCHPHASE = +0    BRAKQUAD    A = 0
035945,000680: 31,3267           13271                           TCF      EXSPOT1    -1                         #  WCHPHASE = -1    IGNALG      A = 0
035946,000681: 
035947,000682: 31,3270           33727        LINXLOGC           CA       3SEC*17                               
035948,000683: 31,3271           61640                           AD       TTF/8                                 
035949,000684: 
035950,000685: 31,3272           00006        EXSPOT1            EXTEND                                         
035951,000686: 31,3273           51620                           INDEX    WCHPHASE                              
035952,000687: 31,3274           62476                           BZMF     WHATEXIT                              
035953,000688: 
035954,000689: 31,3275           03721                           TC       FASTCHNG                              
035955,000690: 
035956,000691: 31,3276           31617                           CA       WCHPHOLD                              
035957,000692: 31,3277           64753                           AD       ONE                                   
035958,000693: 31,3300           22007                           ZL                                             #  +0
035959,000694: 31,3301           53621                           DXCH     WCHPHASE                              #  ADVANCING WCHPHASE AND RESETTING FLPASS0
035960,000695: 
035961,000696: 31,3302           51617                           INDEX    WCHPHOLD                              
035962,000697: 31,3303           12476                           TCF      WHATEXIT                              
035963,000698: 
035964,000699:                                                                                                  #  ****************************************************************************************************************
035965,000700:                                                                                                  #  ROUTINES FOR EXITING FROM LANDING GUIDANCE
035966,000701: 

Page 815

035968,000703:                                                                                                  #  ****************************************************************************************************************
035969,000704: 
035970,000705:                                                                                                  #  1.        EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
035971,000706: 
035972,000707:                                                                                                  #  2.        EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.   IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
035973,000708: 
035974,000709:                                                                                                  #  3.        EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
035975,000710: 
035976,000711:                                                                                                  #           (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
035977,000712: 
035978,000713: 31,3304           06036        EXGSUB             TC       INTPRET                               #  COMPUTE TRIM VELOCITY CORRECTION TERM
035979,000714: 31,3305           47175                           VLOAD    RTB                                   
035980,000715: 31,3306           03252                                    UNFC/2                                
035981,000716: 31,3307           21700                                    NORMUNIT                              
035982,000717: 31,3310           74361                           VXSC     VXSC                                  
035983,000718: 31,3311           03425                                    ZOOMTIME                              
035984,000719: 31,3312           22001                                    TRIMACCL                              
035985,000720: 31,3313           03252                           STORE    UNFC/2                                
035986,000721: 31,3314           77776                           EXIT                                           
035987,000722: 
035988,000723: 31,3315           11645                           CCS      NGUIDSUB                              
035989,000724: 31,3316           12520                           TCF      GUIDSUB                               
035990,000725: 31,3317           11644                           CCS      NIGNLOOP                              
035991,000726: 31,3320           13323                           TCF      +3                                    
035992,000727: 31,3321           05567                           TC       ALARM                                 
035993,000728: 31,3322           01412                           OCT      01412                                 
035994,000729: 
035995,000730: 31,3323           04635                 +3        TC       POSTJUMP                              
035996,000731: 31,3324           65075                           CADR     DDUMCALC                              
035997,000732: 
035998,000733: 31,3325           06036        EXBRAK             TC       INTPRET                               
035999,000734: 31,3326           77775                           VLOAD                                          
036000,000735: 31,3327           03535                                    UNIT/R/                               
036001,000736: 31,3330           03260                           STORE    UNWC/2                                
036002,000737: 31,3331           77776                           EXIT                                           
036003,000738: 31,3332           13405                           TCF      STEER?                                
036004,000739: 
036005,000740: 31,3333           06036        EXNORM             TC       INTPRET                               
036006,000741: 31,3334           52375                           VLOAD    VSU                                   
036007,000742: 31,3335           03633                                    LAND                                  
036008,000743: 31,3336           03517                                    R                                     
036009,000744: 31,3337           77634                           RTB                                            
036010,000745: 31,3340           21700                                    NORMUNIT                              
036011,000746: 31,3341           03260                           STORE    UNWC/2                                #  UNIT(LAND - R) IS TENTATIVE CHOICE
036012,000747: 31,3342           50235                           VXV      DOT                                   
036013,000748: 31,3343           02146                                    XNBPIP                                
036014,000749: 31,3344           02516                                    CG         +6                         
036015,000750: 31,3345           77776                           EXIT                                           #  WITH PROJ IN MPAC 1/8 REAL SIZE
036016,000751: 
036017,000752: 31,3346           40154                           CS       MPAC                                  #  GET COEFFICIENT FOR CG +14
036018,000753: 

Page 816

036020,000755: 31,3347           63763                           AD       PROJMAX                               
036021,000756: 31,3350           64733                           AD       POSMAX                                
036022,000757: 31,3351           54130                           TS       BUF                                   
036023,000758: 31,3352           40130                           CS       BUF                                   
036024,000759: 31,3353           26130                           ADS      BUF                                   #  RESULT IS 0 IF PROJMAX - PROJ NEGATIVE
036025,000760: 
036026,000761: 31,3354           43764                           CS       PROJMIN                               #  GET COEFFICIENT FOR UNIT(LAND - R)
036027,000762: 31,3355           60154                           AD       MPAC                                  
036028,000763: 31,3356           64733                           AD       POSMAX                                
036029,000764: 31,3357           54131                           TS       BUF        +1                         
036030,000765: 31,3360           40131                           CS       BUF        +1                         
036031,000766: 31,3361           26131                           ADS      BUF        +1                         #  RESULT IS 0 IF PROJ - PROJMIN NEGATIVE
036032,000767: 
036033,000768: 31,3362           34751                           CAF      FOUR                                  
036034,000769: 31,3363           76241        UNWCLOOP           MASK     SIX                                   
036035,000770: 31,3364           54002                           TS       Q                                     
036036,000771: 31,3365           35014                           CA       EBANK5                                
036037,000772: 31,3366           54003                           TS       EBANK                                 
036038,000773: 31,3367  E5,1507                                  EBANK=   CG                                    
036039,000774: 31,3367           30130                           CA       BUF                                   
036040,000775: 31,3370           00006                           EXTEND                                         
036041,000776: 31,3371           50002                           INDEX    Q                                     
036042,000777: 31,3372           71523                           MP       CG         +14                        
036043,000778: 31,3373           24006                           INCR     BBANK                                 
036044,000779: 31,3374  E6,1657                                  EBANK=   UNWC/2                                
036045,000780: 31,3374           50002                           INDEX    Q                                     
036046,000781: 31,3375           53660                           DXCH     UNWC/2                                
036047,000782: 31,3376           00006                           EXTEND                                         
036048,000783: 31,3377           70131                           MP       BUF        +1                         
036049,000784: 31,3400           50002                           INDEX    Q                                     
036050,000785: 31,3401           21660                           DAS      UNWC/2                                
036051,000786: 31,3402           10002                           CCS      Q                                     
036052,000787: 31,3403           13363                           TCF      UNWCLOOP                              
036053,000788: 
036054,000789: 31,3404           24006                           INCR     BBANK                                 
036055,000790: 31,3405  E7,1610                                  EBANK=   PIF                                   
036056,000791: 
036057,000792: 31,3405           30076        STEER?             CA       FLAGWRD2                              #  IF STEERSW DOWN NO OUTPUTS
036058,000793: 31,3406           74741                           MASK     STEERBIT                              
036059,000794: 31,3407           00006                           EXTEND                                         
036060,000795: 31,3410           13416                           BZF      RATESTOP                              
036061,000796: 
036062,000797: 31,3411           30121        EXVERT             CA       OVFIND                                #  IF OVERFLOW ANYWHERE IN GUIDANCE
036063,000798: 31,3412           00006                           EXTEND                                         #    DON'T CALL THROTTLE OR FINDCDUW
036064,000799: 31,3413           13421                           BZF      +6                                    
036065,000800: 
036066,000801: 31,3414           05567        EXOVFLOW           TC       ALARM                                 #  SOUND THE ALARM NON-ABORTIVELY.
036067,000802: 31,3415           01410                           OCT      01410                                 
036068,000803: 
036069,000804: 31,3416           04616        RATESTOP           TC       BANKCALL                              #  CLEAN UP AFTER LAST FINDCDUW
036070,000805: 

Page 817

036072,000807: 31,3417           40165                           CADR     STOPRATE                              
036073,000808: 
036074,000809: 31,3420           13426                           TCF      DISPEXIT                              
036075,000810: 
036076,000811: 31,3421           02247        GDUMP1             TC       THROTTLE                              
036077,000812: 31,3422           06036                           TC       INTPRET                               
036078,000813: 31,3423           77624                           CALL                                           
036079,000814: 31,3424           61062                                    FINDCDUW   -2                         
036080,000815: 31,3425           77776                           EXIT                                           
036081,000816: 
036082,000817:                                                                                                  #                                                    (CONTINUE TO DISPEXIT)
036083,000818: 
036084,000819: 
036085,000820:                                                                                                  #  ****************************************************************************************************************
036086,000821:                                                                                                  #  GUIDANCE LOOP DISPLAYS
036087,000822:                                                                                                  #  ****************************************************************************************************************
036088,000823: 
036089,000824: 31,3426           00006        DISPEXIT           EXTEND                                         #  KILL GROUP 3:  DISPLAYS WILL BE
036090,000825: 31,3427           34755                           DCA      NEG0                                  #    RESTORED BY NEXT GUIDANCE CYCLE
036091,000826: 31,3430           52757                           DXCH     -PHASE3                               
036092,000827: 
036093,000828: 31,3431           40104                           CS       FLAGWRD8                              #  IF FLUNDISP SET, NO DISPLAY THIS PASS
036094,000829: 31,3432           74742                           MASK     FLUNDBIT                              
036095,000830: 31,3433           00006                           EXTEND                                         
036096,000831: 31,3434           13444                           BZF      ENDLLJOB                              #  TO PICK UP THE TAG
036097,000832: 
036098,000833: 31,3435           51617                           INDEX    WCHPHOLD                              
036099,000834: 31,3436           12502                           TCF      WHATDISP                              
036100,000835: 
036101,000836: 31,3437           05353                 -2        TC       PHASCHNG                              #  KILL GROUP 5
036102,000837: 31,3440           00035                           OCT      00035                                 
036103,000838: 
036104,000839: 31,3441           33765        P63DISPS           CAF      V06N63                                
036105,000840: 31,3442           04616        DISPCOMN           TC       BANKCALL                              
036106,000841: 31,3443           20346                           CADR     REGODSPR                              
036107,000842: 
036108,000843: 31,3444           15155        ENDLLJOB           TCF      ENDOFJOB                              
036109,000844: 
036110,000845: 31,3445           31664        P64DISPS           CA       TREDES                                #  HAS TREDES REACHED ZERO?
036111,000846: 31,3446           00006                           EXTEND                                         
036112,000847: 31,3447           13471                           BZF      RED-OVER                              #  YES:  CLEAR REDESIGNATION FLAG
036113,000848: 
036114,000849: 31,3450           40102                           CS       FLAGWRD6                              #  NO:   IS REDFLAG SET?
036115,000850: 31,3451           74746                           MASK     REDFLBIT                              
036116,000851: 31,3452           00006                           EXTEND                                         
036117,000852: 31,3453           13473                           BZF      REDES-OK                              #  YES:  DO STATIC DISPLAY
036118,000853: 
036119,000854: 31,3454           33766                           CAF      V06N64                                #  OTHERWISE USE FLASHING DISPLAY
036120,000855: 31,3455           04616                           TC       BANKCALL                              
036121,000856: 

Page 818

036123,000858: 31,3456           20340                           CADR     REFLASHR                              
036124,000859: 31,3457           16001                           TCF      GOTOPOOH                              #  TERMINATE
036125,000860: 31,3460           13463                           TCF      P64CEED                               #  PROCEED    PERMIT REDESIGNATIONS
036126,000861: 31,3461           13445                           TCF      P64DISPS                              #  RECYCLE
036127,000862: 
036128,000863: 31,3462           13444                           TCF      ENDLLJOB                              #  TO PICK UP THE TAG
036129,000864: 
036130,000865: 31,3463           34755        P64CEED            CAF      ZERO                                  
036131,000866: 31,3464           55642                           TS       ELINCR1                               
036132,000867: 31,3465           55643                           TS       AZINCR1                               
036133,000868: 
036134,000869: 31,3466           05504                           TC       UPFLAG                                #  ENABLE REDESIGNATION LOGIC
036135,000870: 31,3467           00143                           ADRES    REDFLAG                               
036136,000871: 
036137,000872: 31,3470           15155                           TCF      ENDOFJOB                              
036138,000873: 
036139,000874: 31,3471           05516        RED-OVER           TC       DOWNFLAG                              
036140,000875: 31,3472           00143                           ADRES    REDFLAG                               
036141,000876: 31,3473           33766        REDES-OK           CAF      V06N64                                
036142,000877: 31,3474           13442                           TCF      DISPCOMN                              
036143,000878: 
036144,000879: 
036145,000880: 31,3475           33767        VERTDISP           CAF      V06N60                                
036146,000881: 31,3476           13442                           TCF      DISPCOMN                              
036147,000882: 
036148,000883: 
036149,000884:                                                                                                  #  ****************************************************************************************************************
036150,000885:                                                                                                  #  GUIDANCE FOR VERTICAL DESCENT
036151,000886:                                                                                                  #  ****************************************************************************************************************
036152,000887: 
036153,000888: 31,3477           11645        VERTGUID           CCS      WCHVERT                               
036154,000889: 31,3500           13426                           TCF      DISPEXIT                              #  POSITIVE   P67, WHICH SKIPS ALL GUIDANCE
036155,000890: 31,3501           13516                           TCF      P66VERT                               #  +0
036156,000891: 
036157,000892:                                                                                                  #           THE P65 GUIDANCE EQUATION IS AS FOLLOWS:-
036158,000893: 
036159,000894:                                                                                                  #                            -         -
036160,000895:                                                                                                  #                      -     VDGVERT - VGU          -
036161,000896:                                                                                                  #                      ACG = -------------  , WHERE VDGVERT = (-3FPS,0,0)
036162,000897:                                                                                                  #                               TAUVERT
036163,000898: 
036164,000899: 31,3502           00006        P65VERT            EXTEND                                         #  NEGATIVE
036165,000900: 31,3503           43760                           DCS      +3FPS                                 
036166,000901: 31,3504           53643                           DXCH     VDGVERT                               
036167,000902: 31,3505           06036                           TC       INTPRET                               
036168,000903: 31,3506           65375                           VLOAD    PDDL                                  
036169,000904: 31,3507           06424                                    ZEROVECS                              
036170,000905: 31,3510           03643                                    VDGVERT                               
036171,000906: 31,3511           52266                           VDEF     VSU                                   #  FORM (VDGVERT,0,0), LEAVING DP 0 IN PDL
036172,000907: 31,3512           03625                                    VGU                                   
036173,000908: 

Page 819

036175,000910: 31,3513           52141                           V/SC     GOTO                                  
036176,000911: 31,3514           23745                                    TAUVERT                               
036177,000912: 31,3515           63174                                    AFCCALC1                              
036178,000913: 
036179,000914: 
036180,000915:                                                                                                  #           THE R.O.D. EQUATION IS AS FOLLOWS:-
036181,000916: 
036182,000917:                                                                                                  #                             (VDGVERTX - VGUX)/TAUVERT - GMOON
036183,000918:                                                                                                  #                     /AFC/ = ---------------------------------
036184,000919:                                                                                                  #                                       UNIT/R/ . XNB
036185,000920: 
036186,000921: 31,3516           57644        P66VERT            XCH      RODCOUNT                              #  RESTART COULD CAUSE RODCOUNTS TO BE LOST
036187,000922: 31,3517           00006                           EXTEND                                         
036188,000923: 31,3520           73756                           MP       +1FPS                                 
036189,000924: 31,3521           21643                           DAS      VDGVERT                               
036190,000925: 31,3522           03721                           TC       FASTCHNG                              
036191,000926: 31,3523           06036                           TC       INTPRET                               
036192,000927: 31,3524           45345                           DLOAD    DSU                                   
036193,000928: 31,3525           03643                                    VDGVERT                               
036194,000929: 31,3526           03625                                    VGU                                   
036195,000930: 31,3527           45271                           DDV      DSU                                   
036196,000931: 31,3530           23747                                    TAUROD                                
036197,000932: 31,3531           22010                                    MOONG                                 
036198,000933: 31,3532           50315                           PDVL     DOT                                   #  HAVE ACC IN UNITS OF 2(-2) M/CS/CS
036199,000934: 31,3533           02146                                    XNBPIP                                
036200,000935: 31,3534           03535                                    UNIT/R/                               
036201,000936: 31,3535           45465                           BDDV     STADR                                 
036202,000937: 31,3536           74203                           STORE    /AFC/                                 
036203,000938: 31,3537           77404                           BOVB     EXIT                                  
036204,000939: 31,3540           63414                                    EXOVFLOW                              
036205,000940: 31,3541           02247                           TC       THROTTLE                              
036206,000941: 31,3542           13426                           TCF      DISPEXIT                              
036207,000942: 
036208,000943: 
036209,000944:                                                                                                  #  ****************************************************************************************************************
036210,000945:                                                                                                  #  REDESIGNATOR TRAP
036211,000946:                                                                                                  #  ****************************************************************************************************************
036212,000947: 
036213,000948: 21,2006                                           BANK     21                                    
036214,000949: 21,2000                                           SETLOC   F2DPS*21                              
036215,000950: 21,2000                                           BANK                                           
036216,000951: 
036217,000952: 21,2006                                           COUNT*   $$/F2DPS                              
036218,000953: 
036219,000954: 21,2006           56016        PITFALL            XCH      BANKRUPT                              
036220,000955: 21,2007           00006                           EXTEND                                         
036221,000956: 21,2010           22012                           QXCH     QRUPT                                 
036222,000957: 
036223,000958: 21,2011           05321                           TC       CHECKMM                               #  IF NOT IN P64, NO REASON TO CONTINUE
036224,000959: 21,2012           00100                           DEC      64         B-14                       
036225,000960: 

Page 820

036227,000962: 21,2013           15270                           TCF      RESUME                                
036228,000963: 
036229,000964: 21,2014           00006                           EXTEND                                         
036230,000965: 21,2015           00031                           READ     CHAN31                                
036231,000966: 21,2016           40000                           COM                                            
036232,000967: 21,2017           72077                           MASK     ALL4BITS                              
036233,000968: 21,2020           55645                           TS       ELVIRA                                
036234,000969: 21,2021           34752                           CAF      TWO                                   
036235,000970: 21,2022           55644                           TS       ZERLINA                               
036236,000971: 21,2023           34756                           CAF      FIVE                                  
036237,000972: 21,2024           05173                           TC       TWIDDLE                               
036238,000973: 21,2025           02032                           ADRES    REDESMON                              
036239,000974: 21,2026           15270                           TCF      RESUME                                
036240,000975: 
036241,000976: 
036242,000977:                                                                                                  #  REDESIGNATION MONITOR (INITIATED BY PITFALL)
036243,000978: 
036244,000979: 
036245,000980: 21,2027           55644        PREMON1            TS       ZERLINA                               
036246,000981: 21,2030           34757        PREMON2            CAF      SEVEN                                 
036247,000982: 21,2031           05224                           TC       VARDELAY                              
036248,000983: 21,2032           00006        REDESMON           EXTEND                                         
036249,000984: 21,2033           00031                           READ     31                                    
036250,000985: 21,2034           40000                           COM                                            
036251,000986: 21,2035           72077                           MASK     ALL4BITS                              
036252,000987: 21,2036           57645                           XCH      ELVIRA                                
036253,000988: 21,2037           54001                           TS       L                                     
036254,000989: 21,2040           11645                           CCS      ELVIRA                                #  DO ANY BITS APPEAR THIS PASS?
036255,000990: 21,2041           12030                           TCF      PREMON2                               #    Y: CONTINUE MONITOR
036256,000991: 
036257,000992: 21,2042           10001                           CCS      L                                     #    N: ANY LAST PASS?
036258,000993: 21,2043           12052                           TCF      COUNT'EM                              #       Y: COUNT 'EM, RESET RUPT, TERMINATE
036259,000994: 21,2044           11644                           CCS      ZERLINA                               #       N: HAS ZERLINA REACHED ZERO YET?
036260,000995: 21,2045           12027                           TCF      PREMON1                               #          N: DIMINISH ZERLINA, CONTINUE
036261,000996: 21,2046           34740        RESETRPT           CAF      BIT12                                 #          Y: RESET RUPT, TERMINATE
036262,000997: 21,2047           00006                           EXTEND                                         
036263,000998: 21,2050           05013                           WOR      CHAN13                                
036264,000999: 21,2051           15261                           TCF      TASKOVER                              
036265,001000: 
036266,001001: 21,2052           30001        COUNT'EM           CA       L                                     
036267,001002: 21,2053           74746                           MASK     -AZBIT                                
036268,001003: 21,2054           10000                           CCS      A                                     
036269,001004: 21,2055           42100        -AZ                CS       AZEACH                                
036270,001005: 21,2056           27643                           ADS      AZINCR1                               
036271,001006: 21,2057           30001                           CA       L                                     
036272,001007: 21,2060           74747                           MASK     +AZBIT                                
036273,001008: 21,2061           10000                           CCS      A                                     
036274,001009: 21,2062           32100        +AZ                CA       AZEACH                                
036275,001010: 21,2063           27643                           ADS      AZINCR1                               
036276,001011: 21,2064           30001                           CA       L                                     
036277,001012: 

Page 821

036279,001014: 21,2065           74753                           MASK     -ELBIT                                
036280,001015: 21,2066           10000                           CCS      A                                     
036281,001016: 21,2067           42101        -EL                CS       ELEACH                                
036282,001017: 21,2070           27642                           ADS      ELINCR1                               
036283,001018: 21,2071           30001                           CA       L                                     
036284,001019: 21,2072           74752                           MASK     +ELBIT                                
036285,001020: 21,2073           10000                           CCS      A                                     
036286,001021: 21,2074           32101        +EL                CA       ELEACH                                
036287,001022: 21,2075           27642                           ADS      ELINCR1                               
036288,001023: 21,2076           12046                           TCF      RESETRPT                              
036289,001024: 
036290,001025: 
036291,001026:                                                                                                  #  THESE EQUIVALENCIES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM
036292,001027: 
036293,001028: 21,2077     4752               +ELBIT             =        BIT2                                  #  -PITCH
036294,001029: 
036295,001030: 
036296,001031: 21,2077     4753               -ELBIT             =        BIT1                                  #  +PITCH
036297,001032: 
036298,001033: 
036299,001034: 21,2077     4747               +AZBIT             =        BIT5                                  
036300,001035: 
036301,001036: 
036302,001037: 21,2077     4746               -AZBIT             =        BIT6                                  
036303,001038: 
036304,001039: 21,2077           00063        ALL4BITS           OCT      00063                                 
036305,001040: 
036306,001041: 
036307,001042: 21,2100           01074        AZEACH             DEC      .03491                                #  2 DEGREES
036308,001043: 
036309,001044: 
036310,001045: 21,2101           00217        ELEACH             DEC      .00873                                #  1/2 DEGREE
036311,001046: 
036312,001047: 
036313,001048:                                                                                                  #  ****************************************************************************************************************
036314,001049:                                                                                                  #  R.O.D. TRAP
036315,001050:                                                                                                  #  ************************************************************************
036316,001051: 
036317,001052: 20,2115                                           BANK     20                                    
036318,001053: 20,2000                                           SETLOC   RODTRAP                               
036319,001054: 20,2000                                           BANK                                           
036320,001055: 20,2115                                           COUNT*   $$/F2DPS                              #  ****************************************
036321,001056: 
036322,001057: 20,2115           74745        DESCBITS           MASK     BIT7                                  #  COME HERE FROM MARKRUPT CODING WITH BIT
036323,001058: 20,2116           10000                           CCS      A                                     #    7 OR 6 OF CHANNEL 16 IN A: BIT 7 MEANS
036324,001059: 20,2117           44752                           CS       TWO                                   #    - RATE INCREMENT, BIT 6 + INCREMENT
036325,001060: 20,2120           64753                           AD       ONE                                   
036326,001061: 20,2121           27644                           ADS      RODCOUNT                              
036327,001062: 

Page 822

036329,001064: 20,2122           15270                           TCF      RESUME                                #  TRAP IS RESET WHEN SWITCH IS RELEASED
036330,001065: 
036331,001066: 
036332,001067: 31,3543                                           BANK     31                                    
036333,001068: 31,2000                                           SETLOC   F2DPS*31                              
036334,001069: 31,2000                                           BANK                                           
036335,001070: 
036336,001071: 31,3543                                           COUNT*   $$/F2DPS                              
036337,001072: 
036338,001073:                                                                                                  #  ****************************************************************************************************************
036339,001074:                                                                                                  #  DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)
036340,001075:                                                                                                  #  ****************************************************************************************************************
036341,001076: 
036342,001077:                                                                                                  #                                                          N        N-1
036343,001078:                                                                                                  #           ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A
036344,001079:                                                                                                  #                                                        N      N-1              1     0
036345,001080: 
036346,001081:                                                                                                  #  USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:
036347,001082: 
036348,001083:                                                                                                  #                                          A        SP     LOC-3            ADRES FOR REFERENCING PWR COF TABL
036349,001084:                                                                                                  #                                          L        SP     N-1              N IS THE DEGREE OF THE POWER SERIES
036350,001085:                                                                                                  #                                          MPAC     DP     X                INITIAL GUESS FOR ROOT
036351,001086: 
036352,001087:                                                                                                  #                                          LOC-2N   DP     A(0)
036353,001088:                                                                                                  #                                                   ...
036354,001089:                                                                                                  #                                          LOC      DP     A(N)
036355,001090:                                                                                                  #                                          LOC+2    SP     PRECROOT         PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)
036356,001091: 
036357,001092:                                                                                                  #  THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.
036358,001093:                                                                                                  #  RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.   IF ROOTPSRS FAILS TO CONVERGE IN 32 PASSES, RETURN IS TO LOC+1 AND
036359,001094:                                                                                                  #  OUTPUTS ARE NOT TO BE TRUSTED.
036360,001095: 
036361,001096:                                                                                                  #           PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
036362,001097:                                                                                                  #  PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
036363,001098:                                                                                                  #  COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
036364,001099:                                                                                                  #  COEFFICIENT TABLE = 1 OR > 1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
036365,001100:                                                                                                  #  ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
036366,001101: 
036367,001102:                                                                                                  #  1. USER'S RESPONSIBILITY TO ASSURE THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
036368,001103: 
036369,001104:                                                                                                  #  2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
036370,001105:                                                                                                  #     POWER SERIES.   THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
036371,001106:                                                                                                  #     PRECLUDE EVENTUAL CONVERGENCE.
036372,001107: 
036373,001108:                                                                                                  #  3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
036374,001109:                                                                                                  #     ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.
036375,001110: 
036376,001111:                                                                                                  #  4. THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.
036377,001112: 
036378,001113:                                                                                                  #                                                                          STORE ENTERING DATA, INITLIZE ERASABLES
036379,001114: 

Page 823

036381,001116: 31,3543           00006        ROOTPSRS           EXTEND                                         
036382,001117: 31,3544           22132                           QXCH     RETROOT                               #  RETURN ADRES
036383,001118: 31,3545           54117                           TS       PWRPTR                                #  PWR TABL POINTER
036384,001119: 31,3546           52160                           DXCH     MPAC       +3                         #  PWR TABL ADRES, N-1
036385,001120: 31,3547           33666                           CA       DERTABLL                              
036386,001121: 31,3550           54141                           TS       DERPTR                                #  DER TABL POINTER
036387,001122: 31,3551           54161                           TS       MPAC       +5                         #  DER TABL ADRES
036388,001123: 31,3552           10160                           CCS      MPAC       +4                         #  NO POWER SERIES OF DEGREE 1 OR LESS
036389,001124: 31,3553           54162                           TS       MPAC       +6                         #  N-2
036390,001125: 31,3554           34755                           CA       ZERO                                  #  MODE USED AS ITERATION COUNTER. MODE
036391,001126: 31,3555           54163                           TS       MODE                                  #  MUST BE POS SO ABS WON'T COMP MPAC+3 ETC
036392,001127: 
036393,001128:                                                                                                  #  COMPUTE CRITERION TO STOP ITERATING
036394,001129: 
036395,001130: 31,3556           00006                           EXTEND                                         
036396,001131: 31,3557           30155                           DCA      MPAC                                  #  FETCH ROOT GUESS, KEEPING IT IN MPAC
036397,001132: 31,3560           52127                           DXCH     ROOTPS                                #  AND IN ROOTPS
036398,001133: 31,3561           50157                           INDEX    MPAC       +3                         #  PWR TABL ADRES
036399,001134: 31,3562           30005                           CA       5                                     #  PRECROOT TO A
036400,001135: 31,3563           07306                           TC       SHORTMP                               #  YIELDS DP PRODUCT IN MPAC
036401,001136: 31,3564           04713                           TC       USPRCADR                              
036402,001137: 31,3565           01226                           CADR     ABS                                   #  YIELDS ABVAL OF CRITERION ON DX IN MPAC
036403,001138: 31,3566           52155                           DXCH     MPAC                                  
036404,001139: 31,3567           52125                           DXCH     DXCRIT                                #  CRITERION
036405,001140: 
036406,001141:                                                                                                  #  SET UP DER COF TABL
036407,001142: 
036408,001143: 31,3570           00006                           EXTEND                                         
036409,001144: 31,3571           50117                           INDEX    PWRPTR                                
036410,001145: 31,3572           30004                           DCA      3                                     
036411,001146: 31,3573           52155                           DXCH     MPAC                                  #  A(N) TO MPAC
036412,001147: 
036413,001148: 31,3574           30160                           CA       MPAC       +4                         #  N-1 TO A
036414,001149: 
036415,001150: 31,3575           54140        DERCLOOP           TS       PWRCNT                                #  LOOP COUNTER
036416,001151: 31,3576           64753                           AD       ONE                                   
036417,001152: 31,3577           07315                           TC       DMPNSUB                               #  YIELDS DERCOF = I X A(I) IN MPAC
036418,001153: 31,3600           00006                           EXTEND                                         
036419,001154: 31,3601           50117                           INDEX    PWRPTR                                
036420,001155: 31,3602           30002                           DCA      1                                     
036421,001156: 31,3603           52155                           DXCH     MPAC                                  #  A(I-1) TO MPAC, FETCHING DERCOF
036422,001157: 31,3604           50141                           INDEX    DERPTR                                
036423,001158: 31,3605           52004                           DXCH     3                                     #  DERCOF TO DER TABL
036424,001159: 31,3606           44752                           CS       TWO                                   
036425,001160: 31,3607           26117                           ADS      PWRPTR                                #  DECREMENT PWR POINTER
036426,001161: 31,3610           44752                           CS       TWO                                   
036427,001162: 31,3611           26141                           ADS      DERPTR                                #  DECREMENT DER POINTER
036428,001163: 31,3612           10140                           CCS      PWRCNT                                
036429,001164: 31,3613           13575                           TCF      DERCLOOP                              
036430,001165: 
036431,001166: 

Page 824

036433,001168:                                                                                                  #  CONVERGE ON ROOT
036434,001169: 
036435,001170: 31,3614           00006        ROOTLOOP           EXTEND                                         
036436,001171: 31,3615           30127                           DCA      ROOTPS                                #  FETCH CURRENT ROOT
036437,001172: 31,3616           52155                           DXCH     MPAC                                  #  LEAVE IN MPAC
036438,001173: 31,3617           00006                           EXTEND                                         
036439,001174: 31,3620           30162                           DCA      MPAC       +5                         #  LOAD A, L WITH DER TABL ADRES, N-2
036440,001175: 31,3621           07214                           TC       POWRSERS                              #  YIELDS DERIVATIVE IN MPAC
036441,001176: 
036442,001177: 31,3622           00006                           EXTEND                                         
036443,001178: 31,3623           30127                           DCA      ROOTPS                                
036444,001179: 31,3624           52155                           DXCH     MPAC                                  #  CURRENT ROOT TO MPAC, FETCHING DERIVTIVE
036445,001180: 31,3625           52131                           DXCH     BUF                                   #  LEAVE DERIVATIVE IN BUF AS DIVISOR
036446,001181: 31,3626           00006                           EXTEND                                         
036447,001182: 31,3627           30160                           DCA      MPAC       +3                         #  LOAD A, L WITH PWR TABL ADRES, N-1
036448,001183: 31,3630           07214                           TC       POWRSERS                              #  YIELDS RESIDUAL IN MPAC
036449,001184: 
036450,001185: 31,3631           04713                           TC       USPRCADR                              
036451,001186: 31,3632           00353                           CADR     DDV/BDDV                              #  YIELDS -DX IN MPAC
036452,001187: 
036453,001188: 31,3633           00006                           EXTEND                                         
036454,001189: 31,3634           40155                           DCS      MPAC                                  #  FETCH DX, LEAVING -DX IN MPAC
036455,001190: 31,3635           20127                           DAS      ROOTPS                                #  CORRECTED ROOT NOW IN ROOTPS
036456,001191: 
036457,001192: 31,3636           04713                           TC       USPRCADR                              
036458,001193: 31,3637           01226                           CADR     ABS                                   #  YIELDS ABS(DX) IN MPAC
036459,001194: 31,3640           00006                           EXTEND                                         
036460,001195: 31,3641           40125                           DCS      DXCRIT                                
036461,001196: 31,3642           20155                           DAS      MPAC                                  #  ABS(DX)-ABS(DXCRIT) IN MPAC
036462,001197: 
036463,001198: 31,3643           24163                           INCR     MODE                                  #  INCREMENT ITERATION COUNTER
036464,001199: 31,3644           30163                           CA       MODE                                  
036465,001200: 31,3645           74750                           MASK     BIT4                                  #  KLUMPP SAYS GIVE UP AFTER EIGHT PASSES
036466,001201: 31,3646           10000                           CCS      A                                     
036467,001202: 31,3647           00132        BADROOT            TC       RETROOT                               
036468,001203: 
036469,001204: 31,3650           10154                           CCS      MPAC                                  #  TEST HI ORDER DX
036470,001205: 31,3651           13614                           TCF      ROOTLOOP                              
036471,001206: 31,3652           13654                           TCF      TESTLODX                              
036472,001207: 31,3653           13660                           TCF      ROOTSTOR                              
036473,001208: 31,3654           10155        TESTLODX           CCS      MPAC       +1                         #  TEST LO ORDER DX
036474,001209: 31,3655           13614                           TCF      ROOTLOOP                              
036475,001210: 31,3656           13660                           TCF      ROOTSTOR                              
036476,001211: 31,3657           13660                           TCF      ROOTSTOR                              
036477,001212: 31,3660           52127        ROOTSTOR           DXCH     ROOTPS                                
036478,001213: 31,3661           52155                           DXCH     MPAC                                  
036479,001214: 31,3662           30163                           CA       MODE                                  
036480,001215: 31,3663           54156                           TS       MPAC       +2                         #  STORE SP ITERATION COUNT IN MPAC+2
036481,001216: 31,3664           50132                           INDEX    RETROOT                               
036482,001217: 31,3665           10002                           TCF      2                                     
036483,001218: 

Page 825

036485,001220: 
036486,001221: 31,3666           00147        DERTABLL           ADRES    DERCOFN    -3                         
036487,001222: 
036488,001223:                                                                                                  #  ****************************************************************************************************************
036489,001224:                                                                                                  #  TRASHY LITTLE SUBROUTINES
036490,001225:                                                                                                  #  ****************************************************************************************************************
036491,001226: 
036492,001227: 31,3667           51620        INTPRETX           INDEX    WCHPHASE                              #  SET X1 ON THE WAY TO THE INTERPRETER
036493,001228: 31,3670           42510                           CS       TARGTDEX                              
036494,001229: 31,3671           50120                           INDEX    FIXLOC                                
036495,001230: 31,3672           54046                           TS       X1                                    
036496,001231: 31,3673           16036                           TCF      INTPRET                               
036497,001232: 
036498,001233: 
036499,001234: 31,3674           31640        TDISPSET           CA       TTF/8                                 
036500,001235: 31,3675           00006                           EXTEND                                         
036501,001236: 31,3676           74750                           MP       TSCALINV                              
036502,001237: 31,3677           53474                           DXCH     TTFDISP                               
036503,001238: 
036504,001239: 31,3700           31640                           CA       TTF/8                                 
036505,001240: 31,3701           00006                           EXTEND                                         
036506,001241: 31,3702           73740                           MP       SCTTFDSP                              
036507,001242: 31,3703           54001                           TS       L                                     
036508,001243: 31,3704           63736                           AD       99+LINT                               
036509,001244: 31,3705           00006                           EXTEND                                         
036510,001245: 31,3706           63717                           BZMF     +11                                   
036511,001246: 31,3707           40001                           CS       L                                     
036512,001247: 31,3710           63737                           AD       -LINT                                 
036513,001248: 31,3711           00006                           EXTEND                                         
036514,001249: 31,3712           63715                           BZMF     +3                                    
036515,001250: 31,3713           55664                           TS       TREDES                                
036516,001251: 31,3714           00002                           TC       Q                                     
036517,001252: 
036518,001253: 31,3715           34755                           CA       ZERO                                  
036519,001254: 31,3716           13713                           TCF      -3                                    
036520,001255: 
036521,001256: 31,3717           33736                           CA       99+LINT                               
036522,001257: 31,3720           13710                           TCF      -10                                   
036523,001258: 
036524,001259: 
036525,001260:                                                                                                  #  ****************************************************************************************************************
036526,001261:                                                                                                  #  SPECIALIZED "PHASCHNG" SUBROUTINE
036527,001262:                                                                                                  #  ****************************************************************************************************************
036528,001263: 
036529,001264: 31,3721  E3,1440                                  EBANK=   PHSNAME2                              
036530,001265: 31,3721           35007        FASTCHNG           CA       EBANK3                                #  SPECIALIZED 'PHASCHNG' ROUTINE
036531,001266: 31,3722           56003                           XCH      EBANK                                 
036532,001267: 31,3723           52002                           DXCH     L                                     
036533,001268: 31,3724           55442                           TS       PHSNAME3                              
036534,001269: 31,3725           22003                           LXCH     EBANK                                 
036535,001270: 

Page 826

036537,001272: 31,3726  E7,1617                                  EBANK=   E2DPS                                 
036538,001273: 31,3726           00000                           TC       A                                     
036539,001274: 
036540,001275: 
036541,001276:                                                                                                  #  ****************************************************************************************************************
036542,001277:                                                                                                  #  PARAMETER TABLE INDIRECT ADDRESSES
036543,001278:                                                                                                  #  ****************************************************************************************************************
036544,001279: 
036545,001280: 31,3727  E5,1402               RDG                =        RBRFG                                 
036546,001281: 31,3727  E5,1410               VDG                =        VBRFG                                 
036547,001282: 31,3727  E5,1416               ADG                =        ABRFG                                 
036548,001283: 31,3727  E5,1424               VDG2TTF            =        VBRFG*                                
036549,001284: 31,3727  E5,1426               ADG2TTF            =        ABRFG*                                
036550,001285: 31,3727  E5,1430               JDG2TTF            =        JBRFG*                                
036551,001286: 
036552,001287:                                                                                                  #  ****************************************************************************************************************
036553,001288:                                                                                                  #  LUNAR LANDING CONSTANTS
036554,001289:                                                                                                  #  ***************************************************************************************************************
036555,001290: 
036556,001291: 31,3727           00046        3SEC*17            DEC      +3         E2         B-17            
036557,001292: 
036558,001293: 
036559,001294: 31,3730           00175        10SEC*17           DEC      +10        E2         B-17            
036560,001295: 
036561,001296: 
036562,001297: 31,3731           00372        20SEC*17           DEC      +20        E2         B-17            
036563,001298: 
036564,001299: 
036565,001300: 31,3732           00567        30SEC*17           DEC      +30        E2         B-17            
036566,001301: 
036567,001302: 
036568,001303: 31,3733           01563        TABLTTFL           ADRES    TABLTTF    +3                         #  ADDRESS FOR REFERENCING TTF TABLE
036569,001304: 
036570,001305: 
036571,001306: 31,3734           00021 11422  HIGHESTF           2DEC     +43245     E-4        B-12            #  THRUST FOR RADIAL CONTROL
036572,001307: 31,3736     4740               TTFSCALE           =        BIT12                                 
036573,001308: 
036574,001309: 
036575,001310: 31,3736     4750               TSCALINV           =        BIT4                                  
036576,001311: 
036577,001312: 
036578,001313: 31,3736           00167        99+LINT            DEC      +119       B-14                       
036579,001314: 
036580,001315: 
036581,001316: 31,3737           77753        -LINT              DEC      -20        B-14                       
036582,001317: 
036583,001318: 
036584,001319: 31,3740           02437        SCTTFDSP           DEC      .08                                   #  RESCALES FROM 2(-17) CS TO WHOLE SECONDS
036585,001320: 
036586,001321: 

Page 827

036588,001323: 31,3741           00264        180DEGS            DEC      +180       B-14                       
036589,001324: 
036590,001325: 
036591,001326: 31,3742           00056        1/2DEG             DEC      +.00278                               
036592,001327: 
036593,001328: 
036594,001329: 31,3743           74110        DELTTFAP           DEC      -158       E2         B-17            
036595,001330: 
036596,001331: 
036597,001332: 31,3744           01130 00000  TAUVERT            2DEC     600        B-14                       
036598,001333: 
036599,001334: 
036600,001335: 31,3746           02260 00000  TAUROD             2DEC     300        B-12                       
036601,001336: 
036602,001337: 
036603,001338: 31,3750           01440 00000  GSCALE             2DEC     100        B-11                       
036604,001339: 
036605,001340: 
036606,001341: 31,3752           14000 00000  3/8DP              2DEC     .375000000                            
036607,001342: 
036608,001343: 
036609,001344: 31,3754           30000 00000  3/4DP              2DEC     .750000000                            
036610,001345: 31,3756           01437        +1FPS              DEC      .3048      E-2        B+4             
036611,001346: 
036612,001347: 
036613,001348: 31,3757           00000 04535  +3FPS              2DEC     +0.9144    E-2        B-10            
036614,001349: 
036615,001350: 
036616,001351: 31,3761           77656 42436  DEPRCRIT           2DEC     -.02       B-2                        #  DEPRESSION ANGLE CRITERION
036617,001352: 
036618,001353: 
036619,001354: 31,3763           01542        PROJMAX            DEC      .42262     B-3                        #  SIN(25')/8 TO COMPARE WITH PROJ
036620,001355: 
036621,001356: 
036622,001357: 31,3764           01022        PROJMIN            DEC      .25882     B-3                        #  SIN(15')/8 TO COMPARE WITH PROJ
036623,001358: 
036624,001359: 
036625,001360: 31,3765           01477        V06N63             VN       0663                                  #  P63
036626,001361: 
036627,001362: 31,3766           01500        V06N64             VN       0664                                  #  P64
036628,001363: 
036629,001364: 31,3767           01474        V06N60             VN       0660                                  #  P65, P66, P67
036630,001365: 

Page 828

036632,001367:                                                                                                  #  ****************************************************************************************************************
036633,001368:                                                                                                  #  ****************************************************************************************************************

End of include-file LUNAR_LANDING_GUIDANCE_EQUATIONS.agc.  Parent file is MAIN.agc