Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

035046,000002:                                                                                                  ## Copyright:   Public domain.
035047,000003:                                                                                                  ## Filename:    LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
035048,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
035049,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
035050,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
035051,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
035052,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
035053,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
035054,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
035055,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
035056,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
035057,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
035058,000014:                                                                                                  ## Reference:   pp. 802-828
035059,000015:                                                                                                  ## Assembler:   yaYUL
035060,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
035061,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
035062,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
035063,000019:                                                                                                  ##              2021-05-30 ABS  Removed DEC66 symbol not present in Luminary 69.
035064,000020: 

Page 802

035066,000022: 31,2445  E7,1617                                  EBANK=   E2DPS                                 
035067,000023: 
035068,000024: 31,2445                                           COUNT*   $$/F2DPS                              
035069,000025: 
035070,000026:                                                                                                  #  ****************************************************************************************************************
035071,000027:                                                                                                  #  LUNAR LANDING FLIGHT SEQUENCE TABLES
035072,000028:                                                                                                  #  ****************************************************************************************************************
035073,000029: 
035074,000030:                                                                                                  #  FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.   THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
035075,000031:                                                                                                  #                                                   WCHPHASE  =  -1  --->  IGNALG
035076,000032:                                                                                                  #                                                   WCHPHASE  =   0  --->  BRAKQUAD
035077,000033:                                                                                                  #                                                   WCHPHASE  =   1  --->  BRAKLING
035078,000034:                                                                                                  #                                                   WCHPHASE  =   2  --->  APPRQUAD
035079,000035:                                                                                                  #                                                   WCHPHASE  =   3  --->  APPRLING
035080,000036:                                                                                                  #                                                   WCHPHASE  =   4  --->  VERTICAL
035081,000037: 
035082,000038:                                                                                                  #  ***************************************************************************************************************
035083,000039: 
035084,000040:                                                                                                  #  ROUTINES FOR STARTING NEW GUIDANCE PHASES:
035085,000041: 
035086,000042: 31,2445           12657                           TCF      TTFINCR                               #  IGNALG
035087,000043: 31,2446           12657        NEWPHASE           TCF      TTFINCR                               #  BRAKQUAD
035088,000044: 31,2447           12643                           TCF      LINSET?                               #  BRAKLING
035089,000045: 31,2450           12627                           TCF      STARTP64                              #  APPRQUAD
035090,000046: 31,2451           12647                           TCF      LINSET                                #  APPRLING
035091,000047: 31,2452           12616                           TCF      P65START                              #  VERTICAL
035092,000048: 
035093,000049: 
035094,000050: 
035095,000051:                                                                                                  #  PRE-GUIDANCE COMPUTATIONS:
035096,000052: 
035097,000053: 31,2453           13025                           TCF      CALCRGVG                              #  IGNALG
035098,000054: 31,2454           13035        PREGUIDE           TCF      RGVGCALC                              #  BRAKQUAD
035099,000055: 31,2455           13035                           TCF      RGVGCALC                              #  BRAKLING
035100,000056: 31,2456           12725                           TCF      REDESIG                               #  APPRQUAD
035101,000057: 31,2457           13035                           TCF      RGVGCALC                              #  APPRLING
035102,000058: 31,2460           13035                           TCF      RGVGCALC                              #  VERTICAL
035103,000059: 
035104,000060: 
035105,000061:                                                                                                  #  GUIDANCE EQUATIONS:
035106,000062: 
035107,000063: 31,2461           13107                           TCF      TTF/8CL                               #  IGNALG
035108,000064: 31,2462           13107        WHATGUID           TCF      TTF/8CL                               #  BRAKQUAD
035109,000065: 31,2463           13101                           TCF      LINGUID                               #  BRAKLING
035110,000066: 31,2464           13107                           TCF      TTF/8CL                               #  APPRQUAD
035111,000067: 31,2465           13101                           TCF      LINGUID                               #  BRAKLING
035112,000068: 31,2466           13477                           TCF      VERTGUID                              #  VERTICAL
035113,000069: 

Page 803

035115,000071:                                                                                                  #  POST GUIDANCE EQUATION COMPUTATIONS:
035116,000072: 
035117,000073: 31,2467           13240                           TCF      CGCALC                                #  IGNALG
035118,000074: 31,2470           13240        AFTRGUID           TCF      CGCALC                                #  BRAKQUAD
035119,000075: 31,2471           13270                           TCF      LINXLOGC                              #  BRAKLING
035120,000076: 31,2472           13240                           TCF      CGCALC                                #  APPRQUAD
035121,000077: 31,2473           13270                           TCF      LINXLOGC                              #  APPRLING
035122,000078: 31,2474           13411                           TCF      EXVERT                                #  VERTICAL
035123,000079: 
035124,000080: 
035125,000081:                                                                                                  #  WINDOW VECTOR COMPUTATIONS:
035126,000082: 
035127,000083: 31,2475           13304                           TCF      EXGSUB                                #  IGNALG
035128,000084: 31,2476           13325        WHATEXIT           TCF      EXBRAK                                #  BRAKQUAD
035129,000085: 31,2477           13325                           TCF      EXBRAK                                #  BRAKLING
035130,000086: 31,2500           13333                           TCF      EXNORM                                #  APPRQUAD
035131,000087: 31,2501           13333                           TCF      EXNORM                                #  APPRLING
035132,000088: 
035133,000089: 
035134,000090:                                                                                                  #  DISPLAY ROUTINES:
035135,000091: 
035136,000092: 31,2502           13441        WHATDISP           TCF      P63DISPS                              #  BRAKQUAD
035137,000093: 31,2503           13441                           TCF      P63DISPS                              #  BRAKLING
035138,000094: 31,2504           13445                           TCF      P64DISPS                              #  APPRQUAD
035139,000095: 31,2505           13445                           TCF      P64DISPS                              #  APPRLING
035140,000096: 31,2506           13475                           TCF      VERTDISP                              #  VERTICAL
035141,000097: 
035142,000098: 
035143,000099:                                                                                                  #  INDICES FOR REFERENCING TARGET PARAMETERS:
035144,000100: 
035145,000101: 31,2507           00000                           OCT      0                                     #  IGNALG
035146,000102: 31,2510           00000        TARGTDEX           OCT      0                                     #  BRAKQUAD
035147,000103: 31,2511           00000                           OCT      0                                     #  BRAKLING
035148,000104: 31,2512           00030                           OCT      30                                    #  APPRQUAD
035149,000105: 31,2513           00030                           OCT      30                                    #  APPRLING
035150,000106: 
035151,000107: 
035152,000108:                                                                                                  #  ****************************************************************************************************************
035153,000109:                                                                                                  #  ENTRY POINTS:   2GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
035154,000110:                                                                                                  #  ****************************************************************************************************************
035155,000111: 
035156,000112:                                                                                                  #  IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC QUIDANCE
035157,000113: 
035158,000114: 31,2514           77776        ?GUIDSUB           EXIT                                           
035159,000115: 31,2515           34752                           CAF      TWO                                   #  N = 3
035160,000116: 31,2516           55645                           TS       NGUIDSUB                              
035161,000117: 31,2517           12600                           TCF      GUILDRET                              
035162,000118: 
035163,000119: 31,2520           55645        GUIDSUB            TS       NGUIDSUB                              #  ON SUCEEDING PASSES SKIP TTFINCR
035164,000120: 31,2521           13025                           TCF      CALCRGVG                              
035165,000121: 

Page 804

035167,000123: 
035168,000124:                                                                                                  #  NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT
035169,000125: 
035170,000126: 31,2522           05353        LUNLAND            TC       PHASCHNG                              
035171,000127: 31,2523           00035                           OCT      00035                                 #  GROUP 5:  RETAIN ONLY PIPA TASK
035172,000128: 31,2524           05353                           TC       PHASCHNG                              
035173,000129: 31,2525           05023                           OCT      05023                                 #  GROUP 3:  PROTECT GUIDANCE WITH PRIO 21
035174,000130: 31,2526           21000                           OCT      21000                                 #        JUST HIGHER THAN SERVICER'S PRIORITY
035175,000131: 
035176,000132:                                                                                                  #  ****************************************************************************************************************
035177,000133:                                                                                                  #  GUILDENSTERN:  AUTO-MODES MONITOR (R13)
035178,000134:                                                                                                  #  ****************************************************************************************************************
035179,000135: 
035180,000136: 31,2527                                           COUNT*   $$/R13                                
035181,000137: 
035182,000138:                                                                                                  #     HERE IS THE PHILOSOPHY OF GUILDENSTERN:    ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE
035183,000139:                                                                                                  #  DISCRETE TO SELECT P67 OR P66 RESPECTIVELY;   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66
035184,000140:                                                                                                  #  UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE.
035185,000141: 
035186,000142: 31,2527           00006        GUILDEN            EXTEND                                         #  IS UN-AUTO-THROTTLE DISCRETE PRESENT?
035187,000143: 31,2530           00030                           READ     CHAN30                                
035188,000144: 31,2531           74747                           MASK     BIT5                                  
035189,000145: 31,2532           10000                           CCS      A                                     
035190,000146: 31,2533           12564                           TCF      STARTP67                              #  YES
035191,000147: 31,2534           05321        P67NOW?            TC       CHECKMM                               #  NO:   ARE WE IN P67 NOW?
035192,000148: 31,2535           00103                           DEC      67         B-14                       
035193,000149: 31,2536           12570                           TCF      STABL?                                #  NO
035194,000150: 31,2537           03721        STARTP66           TC       FASTCHNG                              #  YES
035195,000151: 31,2540           05311                           TC       NEWMODEX                              
035196,000152: 31,2541           00102                           DEC      66         B-14                       
035197,000153: 31,2542           00006                           EXTEND                                         #  INITIALIZE VDGVERT USING
035198,000154: 31,2543           31625                           DCA      VGU                                   #    PRESENT DOWNWARD VELOCITY
035199,000155: 31,2544           53643                           DXCH     VDGVERT                               
035200,000156: 31,2545           34755                           CAF      ZERO                                  
035201,000157: 31,2546           55644                           TS       RODCOUNT                              
035202,000158: 31,2547           55645        VRTSTART           TS       WCHVERT                               
035203,000159: 31,2550           34751                           CAF      FOUR                                  #  WCHPHASE = 4 --> VERTICAL: P65,P66,P67
035204,000160: 31,2551           55617                           TS       WCHPHOLD                              
035205,000161: 31,2552           55620                           TS       WCHPHASE                              
035206,000162: 31,2553           04616                           TC       BANKCALL                              #  TEMPORARY, I HOPE HOPE HOPE
035207,000163: 31,2554           40165                           CADR     STOPRATE                              #  TEMPORARY, I HOPE HOPE HOPE
035208,000164: 31,2555           05516                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE
035209,000165: 31,2556           00311                           ADRES    XOVINFLG                              
035210,000166: 31,2557           05516                           TC       DOWNFLAG                              
035211,000167: 31,2560           00143                           ADRES    REDFLAG                               
035212,000168: 31,2561           05516                           TC       DOWNFLAG                              
035213,000169: 31,2562           00142                           ADRES    POUTFLAG                              #  PERMIT PULSE-OUTS
035214,000170: 31,2563           12600                           TCF      GUILDRET                              
035215,000171: 
035216,000172: 31,2564           05311        STARTP67           TC       NEWMODEX                              #  NO HARM IN "STARTING" P67 OVER AND OVER
035217,000173: 31,2565           00103                           DEC      67         B-14                       #    SO NO NEED FOR A FASTCHNG AND NO NEED
035218,000174: 

Page 805

035220,000176: 31,2566           34363                           CAF      TEN                                   #    TO SEE IF ALREADY IN P67
035221,000177: 31,2567           12547                           TCF      VRTSTART                              
035222,000178: 
035223,000179: 31,2570           34737        STABL?             CAF      BIT13                                 #  IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
035224,000180: 31,2571           00006                           EXTEND                                         
035225,000181: 31,2572           02031                           RAND     CHAN31                                
035226,000182: 31,2573           10000                           CCS      A                                     
035227,000183: 31,2574           12600                           TCF      GUILDRET                              #  YES: ALL'S WELL
035228,000184: 31,2575           05321        P66NOW?            TC       CHECKMM                               #  NO:  ARE WE IN P66 NOW?
035229,000185: 31,2576           00102                           DEC      66         B-14                       
035230,000186: 31,2577           12537                           TCF      STARTP66                              #  NO
035231,000187: 
035232,000188:                                                                                                  #                                                (CONTINUE TO GUILDRET) YES
035233,000189: 
035234,000190:                                                                                                  #  ****************************************************************************************************************
035235,000191:                                                                                                  #  INITIALIZATION FOR THIS PASS
035236,000192:                                                                                                  #  ****************************************************************************************************************
035237,000193: 
035238,000194: 31,2600                                           COUNT*   $$/F2DPS                              
035239,000195: 
035240,000196: 31,2600           00006        GUILDRET           EXTEND                                         
035241,000197: 31,2601           31623                           DCA      TPIP                                  
035242,000198: 31,2602           53572                           DXCH     TPIPOLD                               
035243,000199: 
035244,000200: 31,2603           03721                           TC       FASTCHNG                              
035245,000201: 
035246,000202: 31,2604           00006                           EXTEND                                         
035247,000203: 31,2605           31557                           DCA      PIPTIME1                              
035248,000204: 31,2606           53623                           DXCH     TPIP                                  
035249,000205: 
035250,000206: 31,2607           00006                           EXTEND                                         
035251,000207: 31,2610           31641                           DCA      TTF/8                                 
035252,000208: 31,2611           53551                           DXCH     TTF/8TMP                              
035253,000209: 
035254,000210: 31,2612           11621                           CCS      FLPASS0                               
035255,000211: 31,2613           12657                           TCF      TTFINCR                               
035256,000212: 
035257,000213: 31,2614           51620        BRSPOT1            INDEX    WCHPHASE                              
035258,000214: 31,2615           12446                           TCF      NEWPHASE                              
035259,000215: 
035260,000216:                                                                                                  #  ****************************************************************************************************************
035261,000217:                                                                                                  #  ROUTINES TO START NEW PHASES
035262,000218:                                                                                                  #  ****************************************************************************************************************
035263,000219: 
035264,000220: 31,2616           05311        P65START           TC       NEWMODEX                              
035265,000221: 31,2617           00101                           DEC      65         B-14                       
035266,000222: 31,2620           44752                           CS       TWO                                   
035267,000223: 31,2621           55645                           TS       WCHVERT                               
035268,000224: 31,2622           05516                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE
035269,000225: 31,2623           00311                           ADRES    XOVINFLG                              
035270,000226: 

Page 806

035272,000228: 31,2624           05516        COMSTART           TC       DOWNFLAG                              
035273,000229: 31,2625           00142                           ADRES    POUTFLAG                              
035274,000230: 31,2626           12657                           TCF      TTFINCR                               
035275,000231: 
035276,000232: 
035277,000233: 31,2627           33743        STARTP64           CAF      DELTTFAP                              #  AUGMENT TTF/8 (TWO-PHASE ONLY)
035278,000234: 31,2630           27550                           ADS      TTF/8TMP                              
035279,000235: 31,2631           05311                 +2        TC       NEWMODEX                              
035280,000236: 31,2632           00100                           DEC      64         B-14                       
035281,000237: 31,2633           34752                           CAF      TWO                                   
035282,000238: 31,2634           55620                           TS       WCHPHASE                              
035283,000239: 31,2635           34740                           CA       BIT12                                 #  ENABLE RUPT10
035284,000240: 31,2636           00006                           EXTEND                                         
035285,000241: 31,2637           05013                           WOR      CHAN13                                
035286,000242: 31,2640           05516                           TC       DOWNFLAG                              #  INITIALIZE REDESIGNATION FLAG
035287,000243: 31,2641           00143                           ADRES    REDFLAG                               
035288,000244: 31,2642           12624                           TCF      COMSTART                              
035289,000245: 
035290,000246:                                                                                                  #  ****************************************************************************************************************
035291,000247:                                                                                                  #  SET LINEAR GUIDANCE COEFFICIENTS
035292,000248:                                                                                                  #  ****************************************************************************************************************
035293,000249: 
035294,000250: 31,2643           30102        LINSET?            CA       FLAGWRD6                              #  ONE-PHASE OR TWO-PHASE?
035295,000251: 31,2644           74743                           MASK     2PHASBIT                              
035296,000252: 31,2645           00006                           EXTEND                                         
035297,000253: 31,2646           12631                           BZF      STARTP64   +2                         #  ONE-PHASE: GO DIRECTLY TO APPROACH PHASE
035298,000254: 
035299,000255: 31,2647           03667        LINSET             TC       INTPRETX                              
035300,000256: 31,2650           51775                           VLOAD    VSU*                                  #  -        -     -
035301,000257: 31,2651           02271                                    ACG                                   #  JLING = (ACG - ADG)/TTF
035302,000258: 31,2652           02417                                    ADG,1                                 
035303,000259: 31,2653           70322                           VSR3     V/SC                                  
035304,000260: 31,2654           03551                                    TTF/8TMP                              #  TTF/8 NOT YET UPDATED
035305,000261: 31,2655           02277                           STORE    JLING                                 #  JLING IS IN UMITS OF 2(-18) M/CS/CS/CS
035306,000262: 31,2656           77776                           EXIT                                           
035307,000263: 
035308,000264:                                                                                                  #                                              (CONTINUE TO TTFINCR)
035309,000265: 
035310,000266:                                                                                                  #  ****************************************************************************************************************
035311,000267:                                                                                                  #  INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
035312,000268:                                                                                                  #  ****************************************************************************************************************
035313,000269: 
035314,000270:                                                                                                  #             TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
035315,000271: 
035316,000272:                                                                                                  #                       TTF/8 UPDATED FOR TIME SINCE LAST PASS:
035317,000273: 
035318,000274:                                                                                                  #                                  TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
035319,000275: 
035320,000276:                                                                                                  #                       LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
035321,000277: 

Page 807

035323,000279:                                                                                                  #                                  -                  -      -                      -
035324,000280:                                                                                                  #                                  LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
035325,000281: 
035326,000282:                                                                                                  #                       SLANT RANGE TO LANDING SITE, FOR DISPLAY:
035327,000283: 
035328,000284:                                                                                                  #                                                   -      -
035329,000285:                                                                                                  #                                  RANGEDSP = ABVAL(LAND - R)
035330,000286: 
035331,000287: 31,2657           06036        TTFINCR            TC       INTPRET                               
035332,000288: 31,2660           45345                           DLOAD    DSU                                   
035333,000289: 31,2661           03623                                    TPIP                                  
035334,000290: 31,2662           03572                                    TPIPOLD                               
035335,000291: 31,2663           41461                           SLR      PUSH                                  #  SHIFT SCALES DELTA TIME TO 2(17) CSECS
035336,000292: 31,2664           21214                                    11D                                   
035337,000293: 31,2665           47361                           VXSC     VXV                                   
035338,000294: 31,2666           03633                                    LAND                                  
035339,000295: 31,2667           02331                                    WM                                    
035340,000296: 31,2670           47045                           BVSU     RTB                                   
035341,000297: 31,2671           03633                                    LAND                                  
035342,000298: 31,2672           21700                                    NORMUNIT                              
035343,000299: 31,2673           76561                           VXSC     VSL1                                  
035344,000300: 31,2674           02337                                    /LAND/                                
035345,000301: 31,2675           03543                           STORE    LANDTEMP                              
035346,000302: 31,2676           51451                           VSU      ABVAL                                 
035347,000303: 31,2677           03517                                    R                                     
035348,000304: 31,2700           16532                           STODL    RANGEDSP                              
035349,000305: 31,2701           77776                           EXIT                                           
035350,000306: 
035351,000307: 31,2702           52155                           DXCH     MPAC                                  
035352,000308: 31,2703           21551                           DAS      TTF/8TMP                              #  NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP
035353,000309: 
035354,000310: 31,2704           03721                           TC       FASTCHNG                              
035355,000311: 
035356,000312: 31,2705           00006                           EXTEND                                         
035357,000313: 31,2706           31551                           DCA      TTF/8TMP                              
035358,000314: 31,2707           53641                           DXCH     TTF/8                                 
035359,000315: 
035360,000316: 31,2710           00006                           EXTEND                                         
035361,000317: 31,2711           31543                           DCA      LANDTEMP                              
035362,000318: 31,2712           53633                           DXCH     LAND                                  
035363,000319: 31,2713           00006                           EXTEND                                         
035364,000320: 31,2714           31545                           DCA      LANDTEMP   +2                         
035365,000321: 31,2715           53635                           DXCH     LAND       +2                         
035366,000322: 31,2716           00006                           EXTEND                                         
035367,000323: 31,2717           31547                           DCA      LANDTEMP   +4                         
035368,000324: 31,2720           53637                           DXCH     LAND       +4                         
035369,000325: 
035370,000326: 31,2721           03674                           TC       TDISPSET                              
035371,000327: 31,2722           03721                           TC       FASTCHNG                              #  SINCE REDESIG MAY CHANGE LANDTEMP
035372,000328: 

Page 808

035374,000330: 31,2723           51620        BRSPOT2            INDEX    WCHPHASE                              
035375,000331: 31,2724           12454                           TCF      PREGUIDE                              
035376,000332: 
035377,000333:                                                                                                  #  ****************************************************************************************************************
035378,000334:                                                                                                  #  LANDING SITE PERTURBATION EQUATIONS
035379,000335:                                                                                                  #  ****************************************************************************************************************
035380,000336: 
035381,000337: 31,2725           30102        REDESIG            CA       FLAGWRD6                              #  IS REDFLAG SET?
035382,000338: 31,2726           74746                           MASK     REDFLBIT                              
035383,000339: 31,2727           00006                           EXTEND                                         
035384,000340: 31,2730           13035                           BZF      RGVGCALC                              #  NO:   SKIP REDESIGNATION LOGIC
035385,000341: 
035386,000342: 31,2731           31664                           CA       TREDES                                #  YES:  HAS TREDES REACHED ZERO?
035387,000343: 31,2732           00006                           EXTEND                                         
035388,000344: 31,2733           13035                           BZF      RGVGCALC                              #  YES:  SKIP REDESIGNATION LOGIC
035389,000345: 
035390,000346: 31,2734           00004                           INHINT                                         
035391,000347: 31,2735           31642                           CA       ELINCR1                               
035392,000348: 31,2736           55552                           TS       ELINCR                                
035393,000349: 31,2737           31643                           CA       AZINCR1                               
035394,000350: 31,2740           55554                           TS       AZINCR                                
035395,000351: 31,2741           03721                           TC       FASTCHNG                              
035396,000352: 
035397,000353: 31,2742           34755                           CA       ZERO                                  
035398,000354: 31,2743           55642                           TS       ELINCR1                               
035399,000355: 31,2744           55643                           TS       AZINCR1                               
035400,000356: 31,2745           00003                           RELINT                                         
035401,000357: 31,2746           55553                           TS       ELINCR     +1                         
035402,000358: 31,2747           55555                           TS       AZINCR     +1                         
035403,000359: 
035404,000360: 31,2750           30120                           CA       FIXLOC                                #  SET PD TO 0
035405,000361: 31,2751           54166                           TS       PUSHLOC                               
035406,000362: 
035407,000363: 31,2752           06036                           TC       INTPRET                               
035408,000364: 31,2753           52375                           VLOAD    VSU                                   
035409,000365: 31,2754           03633                                    LAND                                  
035410,000366: 31,2755           03517                                    R                                     #                  -      -
035411,000367: 31,2756           41434                           RTB      PUSH                                  #  PUSH DOWN UNIT (LAND - R)
035412,000368: 31,2757           21700                                    NORMUNIT                              
035413,000369: 31,2760           76435                           VXV      VSL1                                  
035414,000370: 31,2761           02154                                    YNBPIP                                #                     -          -      -
035415,000371: 31,2762           65361                           VXSC     PDDL                                  #  PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
035416,000372: 31,2763           03553                                    ELINCR                                
035417,000373: 31,2764           03555                                    AZINCR                                
035418,000374: 31,2765           52361                           VXSC     VSU                                   
035419,000375: 31,2766           02154                                    YNBPIP                                
035420,000376: 31,2767           41455                           VAD      PUSH                                  #  RESULTING VECTOR IS 1/2 REAL SIZE
035421,000377: 
035422,000378: 31,2770           45345                           DLOAD    DSU                                   #  MAKE SURE REDESIGNATION IS NOT
035423,000379: 31,2771           00001                                    0                                     #    TOO CLOSE TO THE HORIZON
035424,000380: 

Page 809

035426,000382: 31,2772           23762                                    DEPRCRIT                              
035427,000383: 31,2773           71240                           BMN      DLOAD                                 
035428,000384: 31,2774           62777                                    REDES1                                
035429,000385: 31,2775           23762                                    DEPRCRIT                              
035430,000386: 31,2776           00001                           STORE    0                                     
035431,000387: 31,2777           45345        REDES1             DLOAD    DSU                                   
035432,000388: 31,3000           03633                                    LAND                                  
035433,000389: 31,3001           03517                                    R                                     
035434,000390: 31,3002           74271                           DDV      VXSC                                  
035435,000391: 31,3003           00001                                    0                                     
035436,000392: 31,3004           53455                           VAD      UNIT                                  
035437,000393: 31,3005           03517                                    R                                     
035438,000394: 31,3006           76561                           VXSC     VSL1                                  
035439,000395: 31,3007           02337                                    /LAND/                                
035440,000396: 31,3010           03543                           STORE    LANDTEMP                              
035441,000397: 31,3011           77776                           EXIT                                           #  LOOKANGL WILL BE COMPUTED AT RGVGCALC
035442,000398: 
035443,000399: 31,3012           03721                           TC       FASTCHNG                              
035444,000400: 
035445,000401: 31,3013           00006                           EXTEND                                         
035446,000402: 31,3014           31543                           DCA      LANDTEMP                              
035447,000403: 31,3015           53633                           DXCH     LAND                                  
035448,000404: 31,3016           00006                           EXTEND                                         
035449,000405: 31,3017           31545                           DCA      LANDTEMP   +2                         
035450,000406: 31,3020           53635                           DXCH     LAND       +2                         
035451,000407: 31,3021           00006                           EXTEND                                         
035452,000408: 31,3022           31547                           DCA      LANDTEMP   +4                         
035453,000409: 31,3023           53637                           DXCH     LAND       +4                         
035454,000410: 
035455,000411: 31,3024           13035                           TCF      RGVGCALC                              
035456,000412: 
035457,000413:                                                                                                  #  ****************************************************************************************************************
035458,000414:                                                                                                  #  COMPUTE STATE IN GUIDANCE COORDINATES
035459,000415:                                                                                                  #  ****************************************************************************************************************
035460,000416: 
035461,000417:                                                                                                  #             RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
035462,000418: 
035463,000419:                                                                                                  #                      VELOCITY RELATIVE TO THE SURFACE:
035464,000420: 
035465,000421:                                                                                                  #                                  -         -   -   -
035466,000422:                                                                                                  #                                  ANGTERM = V + R * WM
035467,000423: 
035468,000424:                                                                                                  #                      STATE IN GUIDANCE COORDINATES:
035469,000425: 
035470,000426:                                                                                                  #                                  -     *   -   -
035471,000427:                                                                                                  #                                  RGU = CG (R - LAND)
035472,000428: 
035473,000429:                                                                                                  #                                  -     *   -   -    -
035474,000430:                                                                                                  #                                  VGU = CG (V - WM * R)
035475,000431: 

Page 810

035477,000433:                                                                                                  #                      HORIZONTAL VELOCITY FOR DISPLAY:
035478,000434: 
035479,000435:                                                                                                  #                                  VHORIZ = 8 ABVAL (0, VG , VG )
035480,000436:                                                                                                  #                                                         2    1
035481,000437: 
035482,000438:                                                                                                  #                      DEPRESSION ANGLE FOR DISPLAY:
035483,000439: 
035484,000440:                                                                                                  #                                                         -   -     -
035485,000441:                                                                                                  #                                  LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
035486,000442: 
035487,000443: 31,3025           06036        CALCRGVG           TC       INTPRET                               #  IN IGNALG, COMPUTE V FROM INTEGRATION
035488,000444: 31,3026           64375                           VLOAD    MXV                                   #    OUTPUT AND TRIM CORRECTION TERM
035489,000445: 31,3027           00025                                    VATT1                                 #    COMPUTED LAST PASS AND LEFT IN UNFC/2
035490,000446: 31,3030           01734                                    REFSMMAT                              
035491,000447: 31,3031           53362                           VSR1     VAD                                   
035492,000448: 31,3032           03252                                    UNFC/2                                
035493,000449: 31,3033           03525                           STORE    V                                     
035494,000450: 31,3034           77776                           EXIT                                           
035495,000451: 
035496,000452: 31,3035           06036        RGVGCALC           TC       INTPRET                               #  ENTER HERE TO RECOMPUTE RG AND VG
035497,000453: 31,3036           47375                           VLOAD    VXV                                   
035498,000454: 31,3037           03517                                    R                                     
035499,000455: 31,3040           02331                                    WM                                    
035500,000456: 31,3041           70455                           VAD      VSR2                                  #  RESCALE TO UNITS OF 2(9) M/CS
035501,000457: 31,3042           03525                                    V                                     
035502,000458: 31,3043           02305                           STORE    ANGTERM                               
035503,000459: 31,3044           77721                           MXV                                            
035504,000460: 31,3045           02510                                    CG                                    #  NO SHIFT SINCE ANGTERM IS DOUBLE SIZED
035505,000461: 31,3046           03625                           STORE    VGU                                   
035506,000462: 31,3047           55525                           PDDL     VDEF                                  #  FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS
035507,000463: 31,3050           06424                                    ZEROVECS                              #            2   1
035508,000464: 31,3051           52446                           ABVAL    SL3                                   
035509,000465: 31,3052           26267                           STOVL    VHORIZ                                #  VHORIZ FOR DISPLAY DURING P65, P66, P67
035510,000466: 31,3053           03517                                    R                                     #            -   -
035511,000467: 31,3054           41451                           VSU      PUSH                                  #  PUSH DOWN R - LAND
035512,000468: 31,3055           03633                                    LAND                                  
035513,000469: 31,3056           76521                           MXV      VSL1                                  
035514,000470: 31,3057           02510                                    CG                                    
035515,000471: 31,3060           26544                           STOVL    RGU                                   
035516,000472: 31,3061           50234                           RTB      DOT                                   #  NOW IN MPAC IS SINE(LOOKANGL)/4
035517,000473: 31,3062           21700                                    NORMUNIT                              
035518,000474: 31,3063           02146                                    XNBPIP                                
035519,000475: 31,3064           77776                           EXIT                                           
035520,000476: 
035521,000477: 31,3065           30120                           CA       FIXLOC                                #  RESET PUSH DOWN POINTER
035522,000478: 31,3066           54166                           TS       PUSHLOC                               
035523,000479: 
035524,000480: 31,3067           30154                           CA       MPAC                                  #  COMPUTE LOOKANGL ITSELF
035525,000481: 31,3070           60000                           DOUBLE                                         
035526,000482: 31,3071           04616                           TC       BANKCALL                              
035527,000483: 

Page 811

035529,000485: 31,3072           61643                           CADR     SPARCSIN   -1                         
035530,000486: 31,3073           63742                           AD       1/2DEG                                
035531,000487: 31,3074           00006                           EXTEND                                         
035532,000488: 31,3075           73741                           MP       180DEGS                               
035533,000489: 31,3076           55665                           TS       LOOKANGL                              #  LOOKANGL FOR DISPLAY DURING P64
035534,000490: 
035535,000491: 31,3077           51620        BRSPOT3            INDEX    WCHPHASE                              
035536,000492: 31,3100           12462                           TCF      WHATGUID                              
035537,000493: 
035538,000494:                                                                                                  # ****************************************************************************************************************
035539,000495:                                                                                                  #  LINEAR GUIDANCE EQUATION
035540,000496:                                                                                                  # ****************************************************************************************************************
035541,000497: 
035542,000498: 31,3101           03667        LINGUID            TC       INTPRETX                              
035543,000499: 31,3102           74375                           VLOAD    VXSC                                  #  -     -     -
035544,000500: 31,3103           02277                                    JLING                                 #  ACG = ADG + JLING TTF
035545,000501: 31,3104           03641                                    TTF/8                                 
035546,000502: 31,3105           52132                           VSL3     GOTO                                  #  PICK UP THE VAD* AT AFCCALC
035547,000503: 31,3106           63171                                    AFCCALC                               
035548,000504: 
035549,000505:                                                                                                  # ****************************************************************************************************************
035550,000506:                                                                                                  #  TTF/4 COMPUTATION
035551,000507:                                                                                                  # ****************************************************************************************************************
035552,000508: 
035553,000509: 31,3107           03667        TTF/8CL            TC       INTPRETX                              
035554,000510: 31,3110           77743                           DLOAD*                                         
035555,000511: 31,3111           02431                                    JDG2TTF,1                             
035556,000512: 31,3112           23567                           STODL*   TABLTTF    +6                         #  A(3) = 8 JDG  TO TABLTTF
035557,000513: 31,3113           02427                                    ADG2TTF,1                             #              2
035558,000514: 31,3114           17565                           STODL    TABLTTF    +4                         #  A(2) = 6 ADG  TO TABLTTF
035559,000515: 31,3115           03631                                    VGU        +4                         #              2
035560,000516: 31,3116           42605                           DMP      DAD*                                  
035561,000517: 31,3117           23755                                    3/4DP                                 
035562,000518: 31,3120           02425                                    VDG2TTF,1                             
035563,000519: 31,3121           23563                           STODL*   TABLTTF    +2                         #  A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF
035564,000520: 31,3122           02407                                    RDG        +4,1                       #               2         2
035565,000521: 31,3123           41225                           DSU      DMP                                   
035566,000522: 31,3124           02550                                    RGU        +4                         
035567,000523: 31,3125           23753                                    3/8DP                                 
035568,000524: 31,3126           03561                           STORE    TABLTTF                               #  A(0) = -24 (RGU  - RDG )/64 TO TABLTTF
035569,000525: 31,3127           77776                           EXIT                                           #                 2      2
035570,000526: 
035571,000527: 31,3130           34744                           CA       BIT8                                  
035572,000528: 31,3131           55570                           TS       TABLTTF    +10                        #  FRACTIONAL PRECISION FOR TTF TO TABLE
035573,000529: 
035574,000530: 31,3132           00006                           EXTEND                                         
035575,000531: 31,3133           31641                           DCA      TTF/8                                 
035576,000532: 31,3134           52155                           DXCH     MPAC                                  #  LOADS TTF/8 (INITIAL GUESS) INTO MPAC
035577,000533: 31,3135           34752                           CAF      TWO                                   #  DEGREE - ONE
035578,000534: 31,3136           54001                           TS       L                                     
035579,000535: 

Page 812

035581,000537: 31,3137           33733                           CAF      TABLTTFL                              
035582,000538: 31,3140           03543                           TC       ROOTPSRS                              #  YIELDS TTF/8 IN MPAC
035583,000539: 31,3141           05652                           TC       POODOO                                #  BAD RETURN
035584,000540: 31,3142           01406                           OCT      01406                                 
035585,000541: 31,3143           00006                           EXTEND                                         #  GOOD RETURN
035586,000542: 31,3144           30155                           DCA      MPAC                                  #  FETCH TTF/8 KEEPING IT IN MPAC
035587,000543: 31,3145           53641                           DXCH     TTF/8                                 #  CORRECTED TTF/8
035588,000544: 
035589,000545: 31,3146           03674                           TC       TDISPSET                              
035590,000546: 
035591,000547:                                                                                                  #                                               (CONTINUE TO QUADGUID)
035592,000548: 
035593,000549:                                                                                                  #  ****************************************************************************************************************
035594,000550:                                                                                                  #  MAIN GUIDANCE EQUATION
035595,000551:                                                                                                  #  ****************************************************************************************************************
035596,000552: 
035597,000553:                                                                                                  #                       AS PUBLISHED:-
035598,000554: 
035599,000555:                                                                                                  #                                                -     -        -     -
035600,000556:                                                                                                  #                                  -     -     6(VDG + VG)   12(RDG - RG)
035601,000557:                                                                                                  #                                  ACG = ADG + ----------- + ------------
035602,000558:                                                                                                  #                                                  TTF         (TTF)(TTF)
035603,000559: 
035604,000560:                                                                                                  #                       AS HERE PROGRAMMED:-
035605,000561: 
035606,000562:                                                                                                  #                                              -     -
035607,000563:                                                                                                  #                                       3 (1/4(RDG - RG)   -     - )
035608,000564:                                                                                                  #                                       - (------------- + VDG + VG)
035609,000565:                                                                                                  #                                 -     4 (    TTF/8               )   -
035610,000566:                                                                                                  #                                 ACG = ---------------------------- + ADG
035611,000567:                                                                                                  #                                                  TTF/8
035612,000568: 
035613,000569: 31,3147           33732        QUADGUID           CAF      30SEC*17                              #  PULSE-OUTS ARE INHIBITED WHENEVER
035614,000570: 31,3150           61640                           AD       TTF/8                                 #    TTF < 30 SECONDS, REGARDLESS OF
035615,000571: 31,3151           00006                           EXTEND                                         #    THE DURATION OF LINEAR GUIDANCE
035616,000572: 31,3152           63155                           BZMF     Q**DG**D                              
035617,000573: 31,3153           05504                           TC       UPFLAG                                
035618,000574: 31,3154           00142                           ADRES    POUTFLAG                              
035619,000575: 31,3155           03667        Q**DG**D           TC       INTPRETX                              
035620,000576: 31,3156           52373                           VLOAD*   VSU                                   
035621,000577: 31,3157           02403                                    RDG,1                                 
035622,000578: 31,3160           02544                                    RGU                                   
035623,000579: 31,3161           70541                           V/SC     VSR2                                  
035624,000580: 31,3162           03641                                    TTF/8                                 
035625,000581: 31,3163           53253                           VAD*     VAD                                   
035626,000582: 31,3164           02411                                    VDG,1                                 
035627,000583: 31,3165           03625                                    VGU                                   
035628,000584: 31,3166           74341                           V/SC     VXSC                                  
035629,000585: 31,3167           03641                                    TTF/8                                 
035630,000586: 

Page 813

035632,000588: 31,3170           23755                                    3/4DP                                 
035633,000589: 31,3171           77653        AFCCALC            VAD*                                           
035634,000590: 31,3172           02417                                    ADG,1                                 #  CURRENT TARGET ACCELERATION
035635,000591: 31,3173           02271                           STORE    ACG                                   
035636,000592: 31,3174           76505        AFCCALC1           VXM      VSL1                                  #  VERTGUID COMES HERE
035637,000593: 31,3175           02510                                    CG                                    
035638,000594: 31,3176           70315                           PDVL     V/SC                                  
035639,000595: 31,3177           01237                                    GDT/2                                 
035640,000596: 31,3200           23751                                    GSCALE                                
035641,000597: 31,3201           45445                           BVSU     STADR                                 
035642,000598: 31,3202           74525                           STORE    UNFC/2                                #  UNFC/2 NEED NOT BE UNITIZED
035643,000599: 31,3203           77646                           ABVAL                                          
035644,000600: 31,3204           03574        AFCCALC2           STORE    /AFC/                                 #  MAGNITUDE OF AFC FOR THROTTLE
035645,000601: 31,3205           71214                           BON      DLOAD                                 
035646,000602: 31,3206           03306                                    2PHASFLG                              
035647,000603: 31,3207           63231                                    AFCCLEND                              
035648,000604: 31,3210           03252                                    UNFC/2                                #  VERTICAL COMPONENT
035649,000605: 31,3211           65316                           DSQ      PDDL                                  
035650,000606: 31,3212           03254                                    UNFC/2     +2                         #  OUT-OF-PLANE
035651,000607: 31,3213           65316                           DSQ      PDDL                                  
035652,000608: 31,3214           23735                                    HIGHESTF                              
035653,000609: 31,3215           63471                           DDV      DSQ                                   
035654,000610: 31,3216           01245                                    MASS                                  #                         2    2    2
035655,000611: 31,3217           45225                           DSU      DSU                                   #  AMAXHORIZ = SQRT(ATOTAL - A  - A  )
035656,000612: 31,3220           71244                           BPL      DLOAD                                 #                             1    0
035657,000613: 31,3221           63223                                    AFCCALC3                              
035658,000614: 31,3222           06424                                    ZEROVECS                              
035659,000615: 31,3223           43366        AFCCALC3           SQRT     DAD                                   
035660,000616: 31,3224           03256                                    UNFC/2     +4                         
035661,000617: 31,3225           44244                           BPL      BDSU                                  
035662,000618: 31,3226           63231                                    AFCCLEND                              
035663,000619: 31,3227           03256                                    UNFC/2     +4                         
035664,000620: 31,3230           03256                           STORE    UNFC/2     +4                         
035665,000621: 31,3231           77776        AFCCLEND           EXIT                                           
035666,000622: 31,3232           03721                           TC       FASTCHNG                              
035667,000623: 
035668,000624: 31,3233           31620                           CA       WCHPHASE                              #  PREPARE FOR PHASE SWITCHING LOGIC
035669,000625: 31,3234           55617                           TS       WCHPHOLD                              
035670,000626: 31,3235           25621                           INCR     FLPASS0                               #  INCREMENT PASS COUNTER
035671,000627: 
035672,000628: 31,3236           51620        BRSPOT4            INDEX    WCHPHASE                              
035673,000629: 31,3237           12470                           TCF      AFTRGUID                              
035674,000630: 
035675,000631:                                                                                                  #  ***************************************************************************************************************
035676,000632:                                                                                                  #  ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX
035677,000633:                                                                                                  #  ***************************************************************************************************************
035678,000634: 
035679,000635: 31,3240           06036        CGCALC             TC       INTPRET                               
035680,000636: 31,3241           53575                           VLOAD    UNIT                                  
035681,000637: 31,3242           03633                                    LAND                                  
035682,000638: 

Page 814

035684,000640: 31,3243           26510                           STOVL    CG                                    #  FIRST ROW
035685,000641: 31,3244           02305                                    ANGTERM                               
035686,000642: 31,3245           53361                           VXSC     VAD                                   #  REMEMBER THAT ANGTERM IS DOUBLE-SIZED
035687,000643: 31,3246           03641                                    TTF/8                                 
035688,000644: 31,3247           03633                                    LAND                                  
035689,000645: 31,3250           47051                           VSU      RTB                                   
035690,000646: 31,3251           03517                                    R                                     
035691,000647: 31,3252           21700                                    NORMUNIT                              
035692,000648: 31,3253           47035                           VXV      RTB                                   
035693,000649: 31,3254           03633                                    LAND                                  
035694,000650: 31,3255           21700                                    NORMUNIT                              
035695,000651: 31,3256           26516                           STOVL    CG         +6                         #  SECOND ROW
035696,000652: 31,3257           02510                                    CG                                    
035697,000653: 31,3260           76435                           VXV      VSL1                                  
035698,000654: 31,3261           02516                                    CG         +6                         
035699,000655: 31,3262           02524                           STORE    CG         +14                        
035700,000656: 31,3263           77776                           EXIT                                           
035701,000657: 
035702,000658:                                                                                                  #                                              (CONTINUE TO EXTLOGIC)
035703,000659: 
035704,000660:                                                                                                  #  ****************************************************************************************************************
035705,000661:                                                                                                  #  PREPARE TO EXIT
035706,000662:                                                                                                  #  ****************************************************************************************************************
035707,000663: 
035708,000664:                                                                                                  #  DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES
035709,000665: 
035710,000666: 31,3264           11620        EXTLOGIC           CCS      WCHPHASE                              
035711,000667: 31,3265           50000                           INDEX    A                                     #  WCHPHASE = +2    APPRQUAD    A = 1
035712,000668: 31,3266           31425                           CA       TENDBRAK                              #  WCHPHASE = +0    BRAKQUAD    A = 0
035713,000669: 31,3267           13271                           TCF      EXSPOT1    -1                         #  WCHPHASE = -1    IGNALG      A = 0
035714,000670: 
035715,000671: 31,3270           33727        LINXLOGC           CA       3SEC*17                               
035716,000672: 31,3271           61640                           AD       TTF/8                                 
035717,000673: 
035718,000674: 31,3272           00006        EXSPOT1            EXTEND                                         
035719,000675: 31,3273           51620                           INDEX    WCHPHASE                              
035720,000676: 31,3274           62476                           BZMF     WHATEXIT                              
035721,000677: 
035722,000678: 31,3275           03721                           TC       FASTCHNG                              
035723,000679: 
035724,000680: 31,3276           31617                           CA       WCHPHOLD                              
035725,000681: 31,3277           64753                           AD       ONE                                   
035726,000682: 31,3300           22007                           ZL                                             #  +0
035727,000683: 31,3301           53621                           DXCH     WCHPHASE                              #  ADVANCING WCHPHASE AND RESETTING FLPASS0
035728,000684: 
035729,000685: 31,3302           51617                           INDEX    WCHPHOLD                              
035730,000686: 31,3303           12476                           TCF      WHATEXIT                              
035731,000687: 
035732,000688:                                                                                                  #  ****************************************************************************************************************
035733,000689:                                                                                                  #  ROUTINES FOR EXITING FROM LANDING GUIDANCE
035734,000690: 

Page 815

035736,000692:                                                                                                  #  ****************************************************************************************************************
035737,000693: 
035738,000694:                                                                                                  #  1.        EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
035739,000695: 
035740,000696:                                                                                                  #  2.        EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.   IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
035741,000697: 
035742,000698:                                                                                                  #  3.        EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
035743,000699: 
035744,000700:                                                                                                  #           (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
035745,000701: 
035746,000702: 31,3304           06036        EXGSUB             TC       INTPRET                               #  COMPUTE TRIM VELOCITY CORRECTION TERM
035747,000703: 31,3305           47175                           VLOAD    RTB                                   
035748,000704: 31,3306           03252                                    UNFC/2                                
035749,000705: 31,3307           21700                                    NORMUNIT                              
035750,000706: 31,3310           74361                           VXSC     VXSC                                  
035751,000707: 31,3311           03425                                    ZOOMTIME                              
035752,000708: 31,3312           22001                                    TRIMACCL                              
035753,000709: 31,3313           03252                           STORE    UNFC/2                                
035754,000710: 31,3314           77776                           EXIT                                           
035755,000711: 
035756,000712: 31,3315           11645                           CCS      NGUIDSUB                              
035757,000713: 31,3316           12520                           TCF      GUIDSUB                               
035758,000714: 31,3317           11644                           CCS      NIGNLOOP                              
035759,000715: 31,3320           13323                           TCF      +3                                    
035760,000716: 31,3321           05567                           TC       ALARM                                 
035761,000717: 31,3322           01412                           OCT      01412                                 
035762,000718: 
035763,000719: 31,3323           04635                 +3        TC       POSTJUMP                              
035764,000720: 31,3324           65075                           CADR     DDUMCALC                              
035765,000721: 
035766,000722: 31,3325           06036        EXBRAK             TC       INTPRET                               
035767,000723: 31,3326           77775                           VLOAD                                          
035768,000724: 31,3327           03535                                    UNIT/R/                               
035769,000725: 31,3330           03260                           STORE    UNWC/2                                
035770,000726: 31,3331           77776                           EXIT                                           
035771,000727: 31,3332           13405                           TCF      STEER?                                
035772,000728: 
035773,000729: 31,3333           06036        EXNORM             TC       INTPRET                               
035774,000730: 31,3334           52375                           VLOAD    VSU                                   
035775,000731: 31,3335           03633                                    LAND                                  
035776,000732: 31,3336           03517                                    R                                     
035777,000733: 31,3337           77634                           RTB                                            
035778,000734: 31,3340           21700                                    NORMUNIT                              
035779,000735: 31,3341           03260                           STORE    UNWC/2                                #  UNIT(LAND - R) IS TENTATIVE CHOICE
035780,000736: 31,3342           50235                           VXV      DOT                                   
035781,000737: 31,3343           02146                                    XNBPIP                                
035782,000738: 31,3344           02516                                    CG         +6                         
035783,000739: 31,3345           77776                           EXIT                                           #  WITH PROJ IN MPAC 1/8 REAL SIZE
035784,000740: 
035785,000741: 31,3346           40154                           CS       MPAC                                  #  GET COEFFICIENT FOR CG +14
035786,000742: 

Page 816

035788,000744: 31,3347           63763                           AD       PROJMAX                               
035789,000745: 31,3350           64733                           AD       POSMAX                                
035790,000746: 31,3351           54130                           TS       BUF                                   
035791,000747: 31,3352           40130                           CS       BUF                                   
035792,000748: 31,3353           26130                           ADS      BUF                                   #  RESULT IS 0 IF PROJMAX - PROJ NEGATIVE
035793,000749: 
035794,000750: 31,3354           43764                           CS       PROJMIN                               #  GET COEFFICIENT FOR UNIT(LAND - R)
035795,000751: 31,3355           60154                           AD       MPAC                                  
035796,000752: 31,3356           64733                           AD       POSMAX                                
035797,000753: 31,3357           54131                           TS       BUF        +1                         
035798,000754: 31,3360           40131                           CS       BUF        +1                         
035799,000755: 31,3361           26131                           ADS      BUF        +1                         #  RESULT IS 0 IF PROJ - PROJMIN NEGATIVE
035800,000756: 
035801,000757: 31,3362           34751                           CAF      FOUR                                  
035802,000758: 31,3363           76241        UNWCLOOP           MASK     SIX                                   
035803,000759: 31,3364           54002                           TS       Q                                     
035804,000760: 31,3365           35014                           CA       EBANK5                                
035805,000761: 31,3366           54003                           TS       EBANK                                 
035806,000762: 31,3367  E5,1507                                  EBANK=   CG                                    
035807,000763: 31,3367           30130                           CA       BUF                                   
035808,000764: 31,3370           00006                           EXTEND                                         
035809,000765: 31,3371           50002                           INDEX    Q                                     
035810,000766: 31,3372           71523                           MP       CG         +14                        
035811,000767: 31,3373           24006                           INCR     BBANK                                 
035812,000768: 31,3374  E6,1657                                  EBANK=   UNWC/2                                
035813,000769: 31,3374           50002                           INDEX    Q                                     
035814,000770: 31,3375           53660                           DXCH     UNWC/2                                
035815,000771: 31,3376           00006                           EXTEND                                         
035816,000772: 31,3377           70131                           MP       BUF        +1                         
035817,000773: 31,3400           50002                           INDEX    Q                                     
035818,000774: 31,3401           21660                           DAS      UNWC/2                                
035819,000775: 31,3402           10002                           CCS      Q                                     
035820,000776: 31,3403           13363                           TCF      UNWCLOOP                              
035821,000777: 
035822,000778: 31,3404           24006                           INCR     BBANK                                 
035823,000779: 31,3405  E7,1610                                  EBANK=   PIF                                   
035824,000780: 
035825,000781: 31,3405           30076        STEER?             CA       FLAGWRD2                              #  IF STEERSW DOWN NO OUTPUTS
035826,000782: 31,3406           74741                           MASK     STEERBIT                              
035827,000783: 31,3407           00006                           EXTEND                                         
035828,000784: 31,3410           13416                           BZF      RATESTOP                              
035829,000785: 
035830,000786: 31,3411           30121        EXVERT             CA       OVFIND                                #  IF OVERFLOW ANYWHERE IN GUIDANCE
035831,000787: 31,3412           00006                           EXTEND                                         #    DON'T CALL THROTTLE OR FINDCDUW
035832,000788: 31,3413           13421                           BZF      +6                                    
035833,000789: 
035834,000790: 31,3414           05567        EXOVFLOW           TC       ALARM                                 #  SOUND THE ALARM NON-ABORTIVELY.
035835,000791: 31,3415           01410                           OCT      01410                                 
035836,000792: 
035837,000793: 31,3416           04616        RATESTOP           TC       BANKCALL                              #  CLEAN UP AFTER LAST FINDCDUW
035838,000794: 

Page 817

035840,000796: 31,3417           40165                           CADR     STOPRATE                              
035841,000797: 
035842,000798: 31,3420           13426                           TCF      DISPEXIT                              
035843,000799: 
035844,000800: 31,3421           02247        GDUMP1             TC       THROTTLE                              
035845,000801: 31,3422           06036                           TC       INTPRET                               
035846,000802: 31,3423           77624                           CALL                                           
035847,000803: 31,3424           61062                                    FINDCDUW   -2                         
035848,000804: 31,3425           77776                           EXIT                                           
035849,000805: 
035850,000806:                                                                                                  #                                                    (CONTINUE TO DISPEXIT)
035851,000807: 
035852,000808: 
035853,000809:                                                                                                  #  ****************************************************************************************************************
035854,000810:                                                                                                  #  GUIDANCE LOOP DISPLAYS
035855,000811:                                                                                                  #  ****************************************************************************************************************
035856,000812: 
035857,000813: 31,3426           00006        DISPEXIT           EXTEND                                         #  KILL GROUP 3:  DISPLAYS WILL BE
035858,000814: 31,3427           34755                           DCA      NEG0                                  #    RESTORED BY NEXT GUIDANCE CYCLE
035859,000815: 31,3430           52757                           DXCH     -PHASE3                               
035860,000816: 
035861,000817: 31,3431           40104                           CS       FLAGWRD8                              #  IF FLUNDISP SET, NO DISPLAY THIS PASS
035862,000818: 31,3432           74742                           MASK     FLUNDBIT                              
035863,000819: 31,3433           00006                           EXTEND                                         
035864,000820: 31,3434           13444                           BZF      ENDLLJOB                              #  TO PICK UP THE TAG
035865,000821: 
035866,000822: 31,3435           51617                           INDEX    WCHPHOLD                              
035867,000823: 31,3436           12502                           TCF      WHATDISP                              
035868,000824: 
035869,000825: 31,3437           05353                 -2        TC       PHASCHNG                              #  KILL GROUP 5
035870,000826: 31,3440           00035                           OCT      00035                                 
035871,000827: 
035872,000828: 31,3441           33765        P63DISPS           CAF      V06N63                                
035873,000829: 31,3442           04616        DISPCOMN           TC       BANKCALL                              
035874,000830: 31,3443           20346                           CADR     REGODSPR                              
035875,000831: 
035876,000832: 31,3444           15155        ENDLLJOB           TCF      ENDOFJOB                              
035877,000833: 
035878,000834: 31,3445           31664        P64DISPS           CA       TREDES                                #  HAS TREDES REACHED ZERO?
035879,000835: 31,3446           00006                           EXTEND                                         
035880,000836: 31,3447           13471                           BZF      RED-OVER                              #  YES:  CLEAR REDESIGNATION FLAG
035881,000837: 
035882,000838: 31,3450           40102                           CS       FLAGWRD6                              #  NO:   IS REDFLAG SET?
035883,000839: 31,3451           74746                           MASK     REDFLBIT                              
035884,000840: 31,3452           00006                           EXTEND                                         
035885,000841: 31,3453           13473                           BZF      REDES-OK                              #  YES:  DO STATIC DISPLAY
035886,000842: 
035887,000843: 31,3454           33766                           CAF      V06N64                                #  OTHERWISE USE FLASHING DISPLAY
035888,000844: 31,3455           04616                           TC       BANKCALL                              
035889,000845: 

Page 818

035891,000847: 31,3456           20340                           CADR     REFLASHR                              
035892,000848: 31,3457           16001                           TCF      GOTOPOOH                              #  TERMINATE
035893,000849: 31,3460           13463                           TCF      P64CEED                               #  PROCEED    PERMIT REDESIGNATIONS
035894,000850: 31,3461           13445                           TCF      P64DISPS                              #  RECYCLE
035895,000851: 
035896,000852: 31,3462           13444                           TCF      ENDLLJOB                              #  TO PICK UP THE TAG
035897,000853: 
035898,000854: 31,3463           34755        P64CEED            CAF      ZERO                                  
035899,000855: 31,3464           55642                           TS       ELINCR1                               
035900,000856: 31,3465           55643                           TS       AZINCR1                               
035901,000857: 
035902,000858: 31,3466           05504                           TC       UPFLAG                                #  ENABLE REDESIGNATION LOGIC
035903,000859: 31,3467           00143                           ADRES    REDFLAG                               
035904,000860: 
035905,000861: 31,3470           15155                           TCF      ENDOFJOB                              
035906,000862: 
035907,000863: 31,3471           05516        RED-OVER           TC       DOWNFLAG                              
035908,000864: 31,3472           00143                           ADRES    REDFLAG                               
035909,000865: 31,3473           33766        REDES-OK           CAF      V06N64                                
035910,000866: 31,3474           13442                           TCF      DISPCOMN                              
035911,000867: 
035912,000868: 
035913,000869: 31,3475           33767        VERTDISP           CAF      V06N60                                
035914,000870: 31,3476           13442                           TCF      DISPCOMN                              
035915,000871: 
035916,000872: 
035917,000873:                                                                                                  #  ****************************************************************************************************************
035918,000874:                                                                                                  #  GUIDANCE FOR VERTICAL DESCENT
035919,000875:                                                                                                  #  ****************************************************************************************************************
035920,000876: 
035921,000877: 31,3477           11645        VERTGUID           CCS      WCHVERT                               
035922,000878: 31,3500           13426                           TCF      DISPEXIT                              #  POSITIVE   P67, WHICH SKIPS ALL GUIDANCE
035923,000879: 31,3501           13516                           TCF      P66VERT                               #  +0
035924,000880: 
035925,000881:                                                                                                  #           THE P65 GUIDANCE EQUATION IS AS FOLLOWS:-
035926,000882: 
035927,000883:                                                                                                  #                            -         -
035928,000884:                                                                                                  #                      -     VDGVERT - VGU          -
035929,000885:                                                                                                  #                      ACG = -------------  , WHERE VDGVERT = (-3FPS,0,0)
035930,000886:                                                                                                  #                               TAUVERT
035931,000887: 
035932,000888: 31,3502           00006        P65VERT            EXTEND                                         #  NEGATIVE
035933,000889: 31,3503           43760                           DCS      +3FPS                                 
035934,000890: 31,3504           53643                           DXCH     VDGVERT                               
035935,000891: 31,3505           06036                           TC       INTPRET                               
035936,000892: 31,3506           65375                           VLOAD    PDDL                                  
035937,000893: 31,3507           06424                                    ZEROVECS                              
035938,000894: 31,3510           03643                                    VDGVERT                               
035939,000895: 31,3511           52266                           VDEF     VSU                                   #  FORM (VDGVERT,0,0), LEAVING DP 0 IN PDL
035940,000896: 31,3512           03625                                    VGU                                   
035941,000897: 

Page 819

035943,000899: 31,3513           52141                           V/SC     GOTO                                  
035944,000900: 31,3514           23745                                    TAUVERT                               
035945,000901: 31,3515           63174                                    AFCCALC1                              
035946,000902: 
035947,000903: 
035948,000904:                                                                                                  #           THE R.O.D. EQUATION IS AS FOLLOWS:-
035949,000905: 
035950,000906:                                                                                                  #                             (VDGVERTX - VGUX)/TAUVERT - GMOON
035951,000907:                                                                                                  #                     /AFC/ = ---------------------------------
035952,000908:                                                                                                  #                                       UNIT/R/ . XNB
035953,000909: 
035954,000910: 31,3516           57644        P66VERT            XCH      RODCOUNT                              #  RESTART COULD CAUSE RODCOUNTS TO BE LOST
035955,000911: 31,3517           00006                           EXTEND                                         
035956,000912: 31,3520           73756                           MP       +1FPS                                 
035957,000913: 31,3521           21643                           DAS      VDGVERT                               
035958,000914: 31,3522           03721                           TC       FASTCHNG                              
035959,000915: 31,3523           06036                           TC       INTPRET                               
035960,000916: 31,3524           45345                           DLOAD    DSU                                   
035961,000917: 31,3525           03643                                    VDGVERT                               
035962,000918: 31,3526           03625                                    VGU                                   
035963,000919: 31,3527           45271                           DDV      DSU                                   
035964,000920: 31,3530           23747                                    TAUROD                                
035965,000921: 31,3531           22010                                    MOONG                                 
035966,000922: 31,3532           50315                           PDVL     DOT                                   #  HAVE ACC IN UNITS OF 2(-2) M/CS/CS
035967,000923: 31,3533           02146                                    XNBPIP                                
035968,000924: 31,3534           03535                                    UNIT/R/                               
035969,000925: 31,3535           45465                           BDDV     STADR                                 
035970,000926: 31,3536           74203                           STORE    /AFC/                                 
035971,000927: 31,3537           77404                           BOVB     EXIT                                  
035972,000928: 31,3540           63414                                    EXOVFLOW                              
035973,000929: 31,3541           02247                           TC       THROTTLE                              
035974,000930: 31,3542           13426                           TCF      DISPEXIT                              
035975,000931: 
035976,000932: 
035977,000933:                                                                                                  #  ****************************************************************************************************************
035978,000934:                                                                                                  #  REDESIGNATOR TRAP
035979,000935:                                                                                                  #  ****************************************************************************************************************
035980,000936: 
035981,000937: 21,2006                                           BANK     21                                    
035982,000938: 21,2000                                           SETLOC   F2DPS*21                              
035983,000939: 21,2000                                           BANK                                           
035984,000940: 
035985,000941: 21,2006                                           COUNT*   $$/F2DPS                              
035986,000942: 
035987,000943: 21,2006           56016        PITFALL            XCH      BANKRUPT                              
035988,000944: 21,2007           00006                           EXTEND                                         
035989,000945: 21,2010           22012                           QXCH     QRUPT                                 
035990,000946: 
035991,000947: 21,2011           05321                           TC       CHECKMM                               #  IF NOT IN P64, NO REASON TO CONTINUE
035992,000948: 21,2012           00100                           DEC      64         B-14                       
035993,000949: 

Page 820

035995,000951: 21,2013           15270                           TCF      RESUME                                
035996,000952: 
035997,000953: 21,2014           00006                           EXTEND                                         
035998,000954: 21,2015           00031                           READ     CHAN31                                
035999,000955: 21,2016           40000                           COM                                            
036000,000956: 21,2017           72077                           MASK     ALL4BITS                              
036001,000957: 21,2020           55645                           TS       ELVIRA                                
036002,000958: 21,2021           34752                           CAF      TWO                                   
036003,000959: 21,2022           55644                           TS       ZERLINA                               
036004,000960: 21,2023           34756                           CAF      FIVE                                  
036005,000961: 21,2024           05173                           TC       TWIDDLE                               
036006,000962: 21,2025           02032                           ADRES    REDESMON                              
036007,000963: 21,2026           15270                           TCF      RESUME                                
036008,000964: 
036009,000965: 
036010,000966:                                                                                                  #  REDESIGNATION MONITOR (INITIATED BY PITFALL)
036011,000967: 
036012,000968: 
036013,000969: 21,2027           55644        PREMON1            TS       ZERLINA                               
036014,000970: 21,2030           34757        PREMON2            CAF      SEVEN                                 
036015,000971: 21,2031           05224                           TC       VARDELAY                              
036016,000972: 21,2032           00006        REDESMON           EXTEND                                         
036017,000973: 21,2033           00031                           READ     31                                    
036018,000974: 21,2034           40000                           COM                                            
036019,000975: 21,2035           72077                           MASK     ALL4BITS                              
036020,000976: 21,2036           57645                           XCH      ELVIRA                                
036021,000977: 21,2037           54001                           TS       L                                     
036022,000978: 21,2040           11645                           CCS      ELVIRA                                #  DO ANY BITS APPEAR THIS PASS?
036023,000979: 21,2041           12030                           TCF      PREMON2                               #    Y: CONTINUE MONITOR
036024,000980: 
036025,000981: 21,2042           10001                           CCS      L                                     #    N: ANY LAST PASS?
036026,000982: 21,2043           12052                           TCF      COUNT'EM                              #       Y: COUNT 'EM, RESET RUPT, TERMINATE
036027,000983: 21,2044           11644                           CCS      ZERLINA                               #       N: HAS ZERLINA REACHED ZERO YET?
036028,000984: 21,2045           12027                           TCF      PREMON1                               #          N: DIMINISH ZERLINA, CONTINUE
036029,000985: 21,2046           34740        RESETRPT           CAF      BIT12                                 #          Y: RESET RUPT, TERMINATE
036030,000986: 21,2047           00006                           EXTEND                                         
036031,000987: 21,2050           05013                           WOR      CHAN13                                
036032,000988: 21,2051           15261                           TCF      TASKOVER                              
036033,000989: 
036034,000990: 21,2052           30001        COUNT'EM           CA       L                                     
036035,000991: 21,2053           74746                           MASK     -AZBIT                                
036036,000992: 21,2054           10000                           CCS      A                                     
036037,000993: 21,2055           42100        -AZ                CS       AZEACH                                
036038,000994: 21,2056           27643                           ADS      AZINCR1                               
036039,000995: 21,2057           30001                           CA       L                                     
036040,000996: 21,2060           74747                           MASK     +AZBIT                                
036041,000997: 21,2061           10000                           CCS      A                                     
036042,000998: 21,2062           32100        +AZ                CA       AZEACH                                
036043,000999: 21,2063           27643                           ADS      AZINCR1                               
036044,001000: 21,2064           30001                           CA       L                                     
036045,001001: 

Page 821

036047,001003: 21,2065           74753                           MASK     -ELBIT                                
036048,001004: 21,2066           10000                           CCS      A                                     
036049,001005: 21,2067           42101        -EL                CS       ELEACH                                
036050,001006: 21,2070           27642                           ADS      ELINCR1                               
036051,001007: 21,2071           30001                           CA       L                                     
036052,001008: 21,2072           74752                           MASK     +ELBIT                                
036053,001009: 21,2073           10000                           CCS      A                                     
036054,001010: 21,2074           32101        +EL                CA       ELEACH                                
036055,001011: 21,2075           27642                           ADS      ELINCR1                               
036056,001012: 21,2076           12046                           TCF      RESETRPT                              
036057,001013: 
036058,001014: 
036059,001015:                                                                                                  #  THESE EQUIVALENCIES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM
036060,001016: 
036061,001017: 21,2077     4752               +ELBIT             =        BIT2                                  #  -PITCH
036062,001018: 
036063,001019: 
036064,001020: 21,2077     4753               -ELBIT             =        BIT1                                  #  +PITCH
036065,001021: 
036066,001022: 
036067,001023: 21,2077     4747               +AZBIT             =        BIT5                                  
036068,001024: 
036069,001025: 
036070,001026: 21,2077     4746               -AZBIT             =        BIT6                                  
036071,001027: 
036072,001028: 21,2077           00063        ALL4BITS           OCT      00063                                 
036073,001029: 
036074,001030: 
036075,001031: 21,2100           01074        AZEACH             DEC      .03491                                #  2 DEGREES
036076,001032: 
036077,001033: 
036078,001034: 21,2101           00217        ELEACH             DEC      .00873                                #  1/2 DEGREE
036079,001035: 
036080,001036: 
036081,001037:                                                                                                  #  ****************************************************************************************************************
036082,001038:                                                                                                  #  R.O.D. TRAP
036083,001039:                                                                                                  #  ************************************************************************
036084,001040: 
036085,001041: 20,2115                                           BANK     20                                    
036086,001042: 20,2000                                           SETLOC   RODTRAP                               
036087,001043: 20,2000                                           BANK                                           
036088,001044: 20,2115                                           COUNT*   $$/F2DPS                              #  ****************************************
036089,001045: 
036090,001046: 20,2115           74745        DESCBITS           MASK     BIT7                                  #  COME HERE FROM MARKRUPT CODING WITH BIT
036091,001047: 20,2116           10000                           CCS      A                                     #    7 OR 6 OF CHANNEL 16 IN A: BIT 7 MEANS
036092,001048: 20,2117           44752                           CS       TWO                                   #    - RATE INCREMENT, BIT 6 + INCREMENT
036093,001049: 20,2120           64753                           AD       ONE                                   
036094,001050: 20,2121           27644                           ADS      RODCOUNT                              
036095,001051: 

Page 822

036097,001053: 20,2122           15270                           TCF      RESUME                                #  TRAP IS RESET WHEN SWITCH IS RELEASED
036098,001054: 
036099,001055: 
036100,001056: 31,3543                                           BANK     31                                    
036101,001057: 31,2000                                           SETLOC   F2DPS*31                              
036102,001058: 31,2000                                           BANK                                           
036103,001059: 
036104,001060: 31,3543                                           COUNT*   $$/F2DPS                              
036105,001061: 
036106,001062:                                                                                                  #  ****************************************************************************************************************
036107,001063:                                                                                                  #  DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)
036108,001064:                                                                                                  #  ****************************************************************************************************************
036109,001065: 
036110,001066:                                                                                                  #                                                          N        N-1
036111,001067:                                                                                                  #           ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A
036112,001068:                                                                                                  #                                                        N      N-1              1     0
036113,001069: 
036114,001070:                                                                                                  #  USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:
036115,001071: 
036116,001072:                                                                                                  #                                          A        SP     LOC-3            ADRES FOR REFERENCING PWR COF TABL
036117,001073:                                                                                                  #                                          L        SP     N-1              N IS THE DEGREE OF THE POWER SERIES
036118,001074:                                                                                                  #                                          MPAC     DP     X                INITIAL GUESS FOR ROOT
036119,001075: 
036120,001076:                                                                                                  #                                          LOC-2N   DP     A(0)
036121,001077:                                                                                                  #                                                   ...
036122,001078:                                                                                                  #                                          LOC      DP     A(N)
036123,001079:                                                                                                  #                                          LOC+2    SP     PRECROOT         PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)
036124,001080: 
036125,001081:                                                                                                  #  THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.
036126,001082:                                                                                                  #  RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.   IF ROOTPSRS FAILS TO CONVERGE IN 32 PASSES, RETURN IS TO LOC+1 AND
036127,001083:                                                                                                  #  OUTPUTS ARE NOT TO BE TRUSTED.
036128,001084: 
036129,001085:                                                                                                  #           PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
036130,001086:                                                                                                  #  PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
036131,001087:                                                                                                  #  COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
036132,001088:                                                                                                  #  COEFFICIENT TABLE = 1 OR > 1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
036133,001089:                                                                                                  #  ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
036134,001090: 
036135,001091:                                                                                                  #  1. USER'S RESPONSIBILITY TO ASSURE THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
036136,001092: 
036137,001093:                                                                                                  #  2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
036138,001094:                                                                                                  #     POWER SERIES.   THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
036139,001095:                                                                                                  #     PRECLUDE EVENTUAL CONVERGENCE.
036140,001096: 
036141,001097:                                                                                                  #  3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
036142,001098:                                                                                                  #     ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.
036143,001099: 
036144,001100:                                                                                                  #  4. THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.
036145,001101: 
036146,001102:                                                                                                  #                                                                          STORE ENTERING DATA, INITLIZE ERASABLES
036147,001103: 

Page 823

036149,001105: 31,3543           00006        ROOTPSRS           EXTEND                                         
036150,001106: 31,3544           22132                           QXCH     RETROOT                               #  RETURN ADRES
036151,001107: 31,3545           54117                           TS       PWRPTR                                #  PWR TABL POINTER
036152,001108: 31,3546           52160                           DXCH     MPAC       +3                         #  PWR TABL ADRES, N-1
036153,001109: 31,3547           33666                           CA       DERTABLL                              
036154,001110: 31,3550           54141                           TS       DERPTR                                #  DER TABL POINTER
036155,001111: 31,3551           54161                           TS       MPAC       +5                         #  DER TABL ADRES
036156,001112: 31,3552           10160                           CCS      MPAC       +4                         #  NO POWER SERIES OF DEGREE 1 OR LESS
036157,001113: 31,3553           54162                           TS       MPAC       +6                         #  N-2
036158,001114: 31,3554           34755                           CA       ZERO                                  #  MODE USED AS ITERATION COUNTER. MODE
036159,001115: 31,3555           54163                           TS       MODE                                  #  MUST BE POS SO ABS WON'T COMP MPAC+3 ETC
036160,001116: 
036161,001117:                                                                                                  #  COMPUTE CRITERION TO STOP ITERATING
036162,001118: 
036163,001119: 31,3556           00006                           EXTEND                                         
036164,001120: 31,3557           30155                           DCA      MPAC                                  #  FETCH ROOT GUESS, KEEPING IT IN MPAC
036165,001121: 31,3560           52127                           DXCH     ROOTPS                                #  AND IN ROOTPS
036166,001122: 31,3561           50157                           INDEX    MPAC       +3                         #  PWR TABL ADRES
036167,001123: 31,3562           30005                           CA       5                                     #  PRECROOT TO A
036168,001124: 31,3563           07306                           TC       SHORTMP                               #  YIELDS DP PRODUCT IN MPAC
036169,001125: 31,3564           04713                           TC       USPRCADR                              
036170,001126: 31,3565           01226                           CADR     ABS                                   #  YIELDS ABVAL OF CRITERION ON DX IN MPAC
036171,001127: 31,3566           52155                           DXCH     MPAC                                  
036172,001128: 31,3567           52125                           DXCH     DXCRIT                                #  CRITERION
036173,001129: 
036174,001130:                                                                                                  #  SET UP DER COF TABL
036175,001131: 
036176,001132: 31,3570           00006                           EXTEND                                         
036177,001133: 31,3571           50117                           INDEX    PWRPTR                                
036178,001134: 31,3572           30004                           DCA      3                                     
036179,001135: 31,3573           52155                           DXCH     MPAC                                  #  A(N) TO MPAC
036180,001136: 
036181,001137: 31,3574           30160                           CA       MPAC       +4                         #  N-1 TO A
036182,001138: 
036183,001139: 31,3575           54140        DERCLOOP           TS       PWRCNT                                #  LOOP COUNTER
036184,001140: 31,3576           64753                           AD       ONE                                   
036185,001141: 31,3577           07315                           TC       DMPNSUB                               #  YIELDS DERCOF = I X A(I) IN MPAC
036186,001142: 31,3600           00006                           EXTEND                                         
036187,001143: 31,3601           50117                           INDEX    PWRPTR                                
036188,001144: 31,3602           30002                           DCA      1                                     
036189,001145: 31,3603           52155                           DXCH     MPAC                                  #  A(I-1) TO MPAC, FETCHING DERCOF
036190,001146: 31,3604           50141                           INDEX    DERPTR                                
036191,001147: 31,3605           52004                           DXCH     3                                     #  DERCOF TO DER TABL
036192,001148: 31,3606           44752                           CS       TWO                                   
036193,001149: 31,3607           26117                           ADS      PWRPTR                                #  DECREMENT PWR POINTER
036194,001150: 31,3610           44752                           CS       TWO                                   
036195,001151: 31,3611           26141                           ADS      DERPTR                                #  DECREMENT DER POINTER
036196,001152: 31,3612           10140                           CCS      PWRCNT                                
036197,001153: 31,3613           13575                           TCF      DERCLOOP                              
036198,001154: 
036199,001155: 

Page 824

036201,001157:                                                                                                  #  CONVERGE ON ROOT
036202,001158: 
036203,001159: 31,3614           00006        ROOTLOOP           EXTEND                                         
036204,001160: 31,3615           30127                           DCA      ROOTPS                                #  FETCH CURRENT ROOT
036205,001161: 31,3616           52155                           DXCH     MPAC                                  #  LEAVE IN MPAC
036206,001162: 31,3617           00006                           EXTEND                                         
036207,001163: 31,3620           30162                           DCA      MPAC       +5                         #  LOAD A, L WITH DER TABL ADRES, N-2
036208,001164: 31,3621           07214                           TC       POWRSERS                              #  YIELDS DERIVATIVE IN MPAC
036209,001165: 
036210,001166: 31,3622           00006                           EXTEND                                         
036211,001167: 31,3623           30127                           DCA      ROOTPS                                
036212,001168: 31,3624           52155                           DXCH     MPAC                                  #  CURRENT ROOT TO MPAC, FETCHING DERIVTIVE
036213,001169: 31,3625           52131                           DXCH     BUF                                   #  LEAVE DERIVATIVE IN BUF AS DIVISOR
036214,001170: 31,3626           00006                           EXTEND                                         
036215,001171: 31,3627           30160                           DCA      MPAC       +3                         #  LOAD A, L WITH PWR TABL ADRES, N-1
036216,001172: 31,3630           07214                           TC       POWRSERS                              #  YIELDS RESIDUAL IN MPAC
036217,001173: 
036218,001174: 31,3631           04713                           TC       USPRCADR                              
036219,001175: 31,3632           00353                           CADR     DDV/BDDV                              #  YIELDS -DX IN MPAC
036220,001176: 
036221,001177: 31,3633           00006                           EXTEND                                         
036222,001178: 31,3634           40155                           DCS      MPAC                                  #  FETCH DX, LEAVING -DX IN MPAC
036223,001179: 31,3635           20127                           DAS      ROOTPS                                #  CORRECTED ROOT NOW IN ROOTPS
036224,001180: 
036225,001181: 31,3636           04713                           TC       USPRCADR                              
036226,001182: 31,3637           01226                           CADR     ABS                                   #  YIELDS ABS(DX) IN MPAC
036227,001183: 31,3640           00006                           EXTEND                                         
036228,001184: 31,3641           40125                           DCS      DXCRIT                                
036229,001185: 31,3642           20155                           DAS      MPAC                                  #  ABS(DX)-ABS(DXCRIT) IN MPAC
036230,001186: 
036231,001187: 31,3643           24163                           INCR     MODE                                  #  INCREMENT ITERATION COUNTER
036232,001188: 31,3644           30163                           CA       MODE                                  
036233,001189: 31,3645           74750                           MASK     BIT4                                  #  KLUMPP SAYS GIVE UP AFTER EIGHT PASSES
036234,001190: 31,3646           10000                           CCS      A                                     
036235,001191: 31,3647           00132        BADROOT            TC       RETROOT                               
036236,001192: 
036237,001193: 31,3650           10154                           CCS      MPAC                                  #  TEST HI ORDER DX
036238,001194: 31,3651           13614                           TCF      ROOTLOOP                              
036239,001195: 31,3652           13654                           TCF      TESTLODX                              
036240,001196: 31,3653           13660                           TCF      ROOTSTOR                              
036241,001197: 31,3654           10155        TESTLODX           CCS      MPAC       +1                         #  TEST LO ORDER DX
036242,001198: 31,3655           13614                           TCF      ROOTLOOP                              
036243,001199: 31,3656           13660                           TCF      ROOTSTOR                              
036244,001200: 31,3657           13660                           TCF      ROOTSTOR                              
036245,001201: 31,3660           52127        ROOTSTOR           DXCH     ROOTPS                                
036246,001202: 31,3661           52155                           DXCH     MPAC                                  
036247,001203: 31,3662           30163                           CA       MODE                                  
036248,001204: 31,3663           54156                           TS       MPAC       +2                         #  STORE SP ITERATION COUNT IN MPAC+2
036249,001205: 31,3664           50132                           INDEX    RETROOT                               
036250,001206: 31,3665           10002                           TCF      2                                     
036251,001207: 

Page 825

036253,001209: 
036254,001210: 31,3666           00147        DERTABLL           ADRES    DERCOFN    -3                         
036255,001211: 
036256,001212:                                                                                                  #  ****************************************************************************************************************
036257,001213:                                                                                                  #  TRASHY LITTLE SUBROUTINES
036258,001214:                                                                                                  #  ****************************************************************************************************************
036259,001215: 
036260,001216: 31,3667           51620        INTPRETX           INDEX    WCHPHASE                              #  SET X1 ON THE WAY TO THE INTERPRETER
036261,001217: 31,3670           42510                           CS       TARGTDEX                              
036262,001218: 31,3671           50120                           INDEX    FIXLOC                                
036263,001219: 31,3672           54046                           TS       X1                                    
036264,001220: 31,3673           16036                           TCF      INTPRET                               
036265,001221: 
036266,001222: 
036267,001223: 31,3674           31640        TDISPSET           CA       TTF/8                                 
036268,001224: 31,3675           00006                           EXTEND                                         
036269,001225: 31,3676           74750                           MP       TSCALINV                              
036270,001226: 31,3677           53474                           DXCH     TTFDISP                               
036271,001227: 
036272,001228: 31,3700           31640                           CA       TTF/8                                 
036273,001229: 31,3701           00006                           EXTEND                                         
036274,001230: 31,3702           73740                           MP       SCTTFDSP                              
036275,001231: 31,3703           54001                           TS       L                                     
036276,001232: 31,3704           63736                           AD       99+LINT                               
036277,001233: 31,3705           00006                           EXTEND                                         
036278,001234: 31,3706           63717                           BZMF     +11                                   
036279,001235: 31,3707           40001                           CS       L                                     
036280,001236: 31,3710           63737                           AD       -LINT                                 
036281,001237: 31,3711           00006                           EXTEND                                         
036282,001238: 31,3712           63715                           BZMF     +3                                    
036283,001239: 31,3713           55664                           TS       TREDES                                
036284,001240: 31,3714           00002                           TC       Q                                     
036285,001241: 
036286,001242: 31,3715           34755                           CA       ZERO                                  
036287,001243: 31,3716           13713                           TCF      -3                                    
036288,001244: 
036289,001245: 31,3717           33736                           CA       99+LINT                               
036290,001246: 31,3720           13710                           TCF      -10                                   
036291,001247: 
036292,001248: 
036293,001249:                                                                                                  #  ****************************************************************************************************************
036294,001250:                                                                                                  #  SPECIALIZED "PHASCHNG" SUBROUTINE
036295,001251:                                                                                                  #  ****************************************************************************************************************
036296,001252: 
036297,001253: 31,3721  E3,1440                                  EBANK=   PHSNAME2                              
036298,001254: 31,3721           35007        FASTCHNG           CA       EBANK3                                #  SPECIALIZED 'PHASCHNG' ROUTINE
036299,001255: 31,3722           56003                           XCH      EBANK                                 
036300,001256: 31,3723           52002                           DXCH     L                                     
036301,001257: 31,3724           55442                           TS       PHSNAME3                              
036302,001258: 31,3725           22003                           LXCH     EBANK                                 
036303,001259: 

Page 826

036305,001261: 31,3726  E7,1617                                  EBANK=   E2DPS                                 
036306,001262: 31,3726           00000                           TC       A                                     
036307,001263: 
036308,001264: 
036309,001265:                                                                                                  #  ****************************************************************************************************************
036310,001266:                                                                                                  #  PARAMETER TABLE INDIRECT ADDRESSES
036311,001267:                                                                                                  #  ****************************************************************************************************************
036312,001268: 
036313,001269: 31,3727  E5,1402               RDG                =        RBRFG                                 
036314,001270: 31,3727  E5,1410               VDG                =        VBRFG                                 
036315,001271: 31,3727  E5,1416               ADG                =        ABRFG                                 
036316,001272: 31,3727  E5,1424               VDG2TTF            =        VBRFG*                                
036317,001273: 31,3727  E5,1426               ADG2TTF            =        ABRFG*                                
036318,001274: 31,3727  E5,1430               JDG2TTF            =        JBRFG*                                
036319,001275: 
036320,001276:                                                                                                  #  ****************************************************************************************************************
036321,001277:                                                                                                  #  LUNAR LANDING CONSTANTS
036322,001278:                                                                                                  #  ***************************************************************************************************************
036323,001279: 
036324,001280: 31,3727           00046        3SEC*17            DEC      +3         E2         B-17            
036325,001281: 
036326,001282: 
036327,001283: 31,3730           00175        10SEC*17           DEC      +10        E2         B-17            
036328,001284: 
036329,001285: 
036330,001286: 31,3731           00372        20SEC*17           DEC      +20        E2         B-17            
036331,001287: 
036332,001288: 
036333,001289: 31,3732           00567        30SEC*17           DEC      +30        E2         B-17            
036334,001290: 
036335,001291: 
036336,001292: 31,3733           01563        TABLTTFL           ADRES    TABLTTF    +3                         #  ADDRESS FOR REFERENCING TTF TABLE
036337,001293: 
036338,001294: 
036339,001295: 31,3734           00021 11422  HIGHESTF           2DEC     +43245     E-4        B-12            #  THRUST FOR RADIAL CONTROL
036340,001296: 31,3736     4740               TTFSCALE           =        BIT12                                 
036341,001297: 
036342,001298: 
036343,001299: 31,3736     4750               TSCALINV           =        BIT4                                  
036344,001300: 
036345,001301: 
036346,001302: 31,3736           00167        99+LINT            DEC      +119       B-14                       
036347,001303: 
036348,001304: 
036349,001305: 31,3737           77753        -LINT              DEC      -20        B-14                       
036350,001306: 
036351,001307: 
036352,001308: 31,3740           02437        SCTTFDSP           DEC      .08                                   #  RESCALES FROM 2(-17) CS TO WHOLE SECONDS
036353,001309: 
036354,001310: 

Page 827

036356,001312: 31,3741           00264        180DEGS            DEC      +180       B-14                       
036357,001313: 
036358,001314: 
036359,001315: 31,3742           00056        1/2DEG             DEC      +.00278                               
036360,001316: 
036361,001317: 
036362,001318: 31,3743           74110        DELTTFAP           DEC      -158       E2         B-17            
036363,001319: 
036364,001320: 
036365,001321: 31,3744           01130 00000  TAUVERT            2DEC     600        B-14                       
036366,001322: 
036367,001323: 
036368,001324: 31,3746           02260 00000  TAUROD             2DEC     300        B-12                       
036369,001325: 
036370,001326: 
036371,001327: 31,3750           01440 00000  GSCALE             2DEC     100        B-11                       
036372,001328: 
036373,001329: 
036374,001330: 31,3752           14000 00000  3/8DP              2DEC     .375000000                            
036375,001331: 
036376,001332: 
036377,001333: 31,3754           30000 00000  3/4DP              2DEC     .750000000                            
036378,001334: 31,3756           01437        +1FPS              DEC      .3048      E-2        B+4             
036379,001335: 
036380,001336: 
036381,001337: 31,3757           00000 04535  +3FPS              2DEC     +0.9144    E-2        B-10            
036382,001338: 
036383,001339: 
036384,001340: 31,3761           77656 42436  DEPRCRIT           2DEC     -.02       B-2                        #  DEPRESSION ANGLE CRITERION
036385,001341: 
036386,001342: 
036387,001343: 31,3763           01542        PROJMAX            DEC      .42262     B-3                        #  SIN(25')/8 TO COMPARE WITH PROJ
036388,001344: 
036389,001345: 
036390,001346: 31,3764           01022        PROJMIN            DEC      .25882     B-3                        #  SIN(15')/8 TO COMPARE WITH PROJ
036391,001347: 
036392,001348: 
036393,001349: 31,3765           01477        V06N63             VN       0663                                  #  P63
036394,001350: 
036395,001351: 31,3766           01500        V06N64             VN       0664                                  #  P64
036396,001352: 
036397,001353: 31,3767           01474        V06N60             VN       0660                                  #  P65, P66, P67
036398,001354: 

Page 828

036400,001356:                                                                                                  #  ****************************************************************************************************************
036401,001357:                                                                                                  #  ****************************************************************************************************************

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