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.

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

Page 802

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

Page 803

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

Page 804

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

Page 805

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

Page 806

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

Page 807

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

Page 808

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

Page 809

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

Page 810

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

Page 811

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

Page 812

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

Page 813

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

Page 814

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

Page 815

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

Page 816

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

Page 817

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

Page 818

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

Page 819

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

Page 820

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

Page 821

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

Page 822

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

Page 823

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

Page 824

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

Page 825

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

Page 826

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

Page 827

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

Page 828

036614,001366:                                                                                                  #  ****************************************************************************************************************
036615,001367:                                                                                                  #  ****************************************************************************************************************

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