Source Code

These source-code files are part of a reconstructed copy of Luminary 163, the first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 163 listing would be different.

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.

034045,000002:                                                                                                  ## Copyright:   Public domain.
034046,000003:                                                                                                  ## Filename:    LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
034047,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
034048,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
034049,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
034050,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
034051,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
034052,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
034053,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
034054,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
034055,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
034056,000013:                                                                                                  ##              that the reconstruction is correct.
034057,000014:                                                                                                  ## Reference:   pp. 784-821
034058,000015:                                                                                                  ## Assembler:   yaYUL
034059,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
034060,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
034061,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173. Moved STRTP66A up
034062,000019:                                                                                                  ##                              four instructions, per PCR 988. Removed the
034063,000020:                                                                                                  ##                              DEIMUBOB subroutine and its constant RIMUZ.
034064,000021:                                                                                                  ##                              Removed calls to that routine (and replaced
034065,000022:                                                                                                  ##                              the one in RODCOMPA with a CA OLDPIPAX).
034066,000023:                                                                                                  ##                              
034067,000024: 

Page 794

034069,000026: 31,2366  E7,1621                                  EBANK=   E2DPS                                 
034070,000027: 
034071,000028: 31,2366                                           COUNT*   $$/F2DPS                              
034072,000029: 
034073,000030:                                                                                                  #  ****************************************************************************************************************
034074,000031:                                                                                                  #  LUNAR LANDING FLIGHT SEQUENCE TABLES
034075,000032:                                                                                                  #  ****************************************************************************************************************
034076,000033: 
034077,000034:                                                                                                  #  FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.   THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
034078,000035: 
034079,000036:                                                                                                  #                                                      WCHPHASE  =  -1  --->  IGNALG
034080,000037:                                                                                                  #                                                      WCHPHASE  =   0  --->  BRAKQUAD
034081,000038:                                                                                                  #                                                      WCHPHASE  =   1  --->  APPRQUAD
034082,000039:                                                                                                  #                                                      WCHPHASE  =   2  --->  VERTICAL
034083,000040: 
034084,000041:                                                                                                  #  ***************************************************************************************************************
034085,000042: 
034086,000043:                                                                                                  #  ROUTINES FOR STARTING NEW GUIDANCE PHASES:
034087,000044: 
034088,000045: 31,2366           12575                           TCF      TTFINCR                               #  IGNALG
034089,000046: 31,2367           12575        NEWPHASE           TCF      TTFINCR                               #  BRAKQUAD
034090,000047: 31,2370           12556                           TCF      STARTP64                              #  APPRQUAD
034091,000048: 31,2371           12452                           TCF      STARTP66                              #  VERTICAL
034092,000049: 
034093,000050: 
034094,000051:                                                                                                  #  PRE-GUIDANCE COMPUTATIONS:
034095,000052: 
034096,000053: 31,2372           12755                           TCF      CALCRGVG                              #  IGNALG
034097,000054: 31,2373           12765        PREGUIDE           TCF      RGVGCALC                              #  BRAKQUAD
034098,000055: 31,2374           12656                           TCF      REDESIG                               #  APPRQUAD
034099,000056: 
034100,000057: 
034101,000058:                                                                                                  #  GUIDANCE EQUATIONS:
034102,000059: 
034103,000060: 31,2375           13030                           TCF      TTF/8CL                               #  IGNALG
034104,000061: 31,2376           13030        WHATGUID           TCF      TTF/8CL                               #  BRAKQUAD
034105,000062: 31,2377           13030                           TCF      TTF/8CL                               #  APPRQUAD
034106,000063: 
034107,000064: 
034108,000065:                                                                                                  #  POST GUIDANCE EQUATION COMPUTATIONS:
034109,000066: 
034110,000067: 31,2400           13233                           TCF      CGCALC                                #  IGNALG
034111,000068: 31,2401           13220        AFTRGUID           TCF      EXTLOGIC                              #  BRAKQUAD
034112,000069: 31,2402           13220                           TCF      EXTLOGIC                              #  APPRQUAD
034113,000070: 

Page 795

034115,000072:                                                                                                  #  WINDOW VECTOR COMPUTATIONS:
034116,000073: 
034117,000074: 31,2403           13303                           TCF      EXGSUB                                #  IGNALG
034118,000075: 31,2404           13324        WHATEXIT           TCF      EXBRAK                                #  BRAKQUAD
034119,000076: 31,2405           13332                           TCF      EXNORM                                #  APPRQUAD
034120,000077: 
034121,000078: 
034122,000079:                                                                                                  #  DISPLAY ROUTINES:
034123,000080: 
034124,000081: 31,2406           13443        WHATDISP           TCF      P63DISPS                              #  BRAKQUAD
034125,000082: 31,2407           13447                           TCF      P64DISPS                              #  APPRQUAD
034126,000083: 31,2410           13500                           TCF      VERTDISP                              #  VERTICAL
034127,000084: 
034128,000085: 
034129,000086:                                                                                                  #  ALARM ROUTINE FOR TTF COMPUTATION:
034130,000087: 
034131,000088: 31,2411           13727                           TCF      1406POO                               #  IGNALG
034132,000089: 31,2412           13731        WHATALM            TCF      1406ALM                               #  BRAKQUAD
034133,000090: 31,2413           13731                           TCF      1406ALM                               #  APPRQUAD
034134,000091: 
034135,000092: 
034136,000093:                                                                                                  #  INDICES FOR REFERENCING TARGET PARAMETERS:
034137,000094: 
034138,000095: 31,2414           00000                           OCT      0                                     #  IGNALG
034139,000096: 31,2415           00000        TARGTDEX           OCT      0                                     #  BRAKQUAD
034140,000097: 31,2416           00002                           OCT      2                                     #  APPRQUAD
034141,000098: 

Page 796

034143,000100: 
034144,000101:                                                                                                  #  ****************************************************************************************************************
034145,000102:                                                                                                  #  ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
034146,000103:                                                                                                  #  ****************************************************************************************************************
034147,000104: 
034148,000105:                                                                                                  #  IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC QUIDANCE
034149,000106: 
034150,000107: 31,2417           77776        ?GUIDSUB           EXIT                                           
034151,000108: 31,2420           34752                           CAF      TWO                                   #  N = 3
034152,000109: 31,2421           55647                           TS       NGUIDSUB                              
034153,000110: 31,2422           12540                           TCF      GUILDRET   +2                         
034154,000111: 
034155,000112: 31,2423           55647        GUIDSUB            TS       NGUIDSUB                              #  ON SUCEEDING PASSES SKIP TTFINCR
034156,000113: 31,2424           12755                           TCF      CALCRGVG                              
034157,000114: 
034158,000115:                                                                                                  #  NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT
034159,000116: 
034160,000117: 31,2425           05364        LUNLAND            TC       PHASCHNG                              
034161,000118: 31,2426           00035                           OCT      00035                                 #  GROUP 5:  RETAIN ONLY PIPA TASK
034162,000119: 31,2427           30101                           CA       FLAGWRD5                              #  HAS THROTTLE-UP COME YET?
034163,000120: 31,2430           74744                           MASK     ZOOMBIT                               
034164,000121: 31,2431           00006                           EXTEND                                         
034165,000122: 31,2432           13435                           BZF      DISPEXIT   +3                         #  NO:   DO DISPLAYS ONLY
034166,000123: 
034167,000124: 31,2433           05364                           TC       PHASCHNG                              #  YES:  DO GUIDANCE
034168,000125: 31,2434           05023                           OCT      05023                                 
034169,000126: 31,2435           20000                           OCT      20000                                 
034170,000127: 

Page 797

034172,000129:                                                                                                  #  ****************************************************************************************************************
034173,000130:                                                                                                  #  GUILDENSTERN:  AUTO-MODES MONITOR (R13)
034174,000131:                                                                                                  #  ****************************************************************************************************************
034175,000132: 
034176,000133: 31,2436                                           COUNT*   $$/R13                                
034177,000134: 
034178,000135:                                                                                                  #  THE PHILOSOPHY OF GUILDENSTERN:  ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE CHECK TO SEE IF THE ROD SWITCH
034179,000136:                                                                                                  #  HAS BEEN CLICKED.  IF SO, SELECT P66.  IF THE DAP IS IN AUTO AND THE                                     PRESENT
034180,000137:                                                                                                  #  9PROGRAM IN PROGRESS IS P66, CHECK FOR A
034181,000138:                                                                                                  #  RESTART. IF ONE HAS OCCURED RE-INITIALIZE P66 AND CONTINUE OTHERWISE YOUCONTINUE WITH PRESENT DATA IN P66.TO
034182,000139:                                                                                                  #  SELECT P66 THE ATTITUDE-HOLD DISCRETE MUST BE PRESENT AND THE ROD SWITCH MUST HAVE BEEN CLICKED. OTHERWISE THE
034183,000140:                                                                                                  #  AUTOMATIC LANDING WILL CONTINUE.
034184,000141: 
034185,000142: 31,2436           41010        GUILDEN            CS       MODREG                                #  ARE WE IN P66?  (EVEN THO WE ARE IN AUTO
034186,000143: 31,2437           62454                           AD       DEC66                                 #  DAP)
034187,000144: 31,2440           00006                           EXTEND                                         
034188,000145: 31,2441           12531                           BZF      RESTART?                              #  YES:  GO SE IF THERE HAS BEEN A RESTART
034189,000146: 
034190,000147: 31,2442           34737                           CAF      BIT13                                 #  NO:  IS UN-ATTITUDE-HOLD DISCRETE HERE?
034191,000148: 31,2443           00006                           EXTEND                                         
034192,000149: 31,2444           02031                           RAND     CHAN31                                
034193,000150: 31,2445           10000                           CCS      A                                     
034194,000151: 31,2446           12536                           TCF      GUILDRET                              #  YES:  ALL'S WELL, OR AT LEAST AUTOMATIC
034195,000152: 
034196,000153: 31,2447           31746                           CA       RODCOUNT                              #  NO:  HAS ROD SWITCH BEEN CLICKED
034197,000154: 31,2450           00006                           EXTEND                                         
034198,000155: 31,2451           12536                           BZF      GUILDRET                              #  NO:  CONTINUE WITH THE AUTOMATIC LANDING
034199,000156: 
034200,000157: 31,2452           03747        STARTP66           TC       FASTCHNG                              #  YES
034201,000158: 31,2453           05322                           TC       NEWMODEX                              
034202,000159: 31,2454           00102        DEC66              DEC      66         B-14                       
034203,000160: 
034204,000161: 31,2455           00006                           EXTEND                                         
034205,000162: 31,2456           31474                           DCA      HDOTDISP                              #  SET DESIRED ALTITUDE RATE = CURRENT
034206,000163: 31,2457           53645                           DXCH     VDGVERT                               #        ALTITUDE RATE.
034207,000164: 
034208,000165: 31,2460           05515        STRTP66A           TC       UPFLAG                                #  SET FLAG TO CONTINUE P66 HORIZONTAL
034209,000166: 31,2461           00016                           ADRES    P66PROFL                              #     UNTIL 'PROCEED' AFTER TOUCHDOWN
034210,000167: 
034211,000168: 31,2462           41464                           CS       TOOFEW                                #  INITIALIZE CNTTHROT TO -TOOFEW
034212,000169: 31,2463           55623                           TS       CNTTHROT                              
034213,000170: 
034214,000171: 31,2464           06042                           TC       INTPRET                               
034215,000172: 31,2465           47375                           VLOAD    VXV                                   #  COMPUTE HORIZONTAL VELOCITY COMMAND
034216,000173: 31,2466           02273                                    WM                                    #  MOON'S ANGULAR RATE IN 2(-17)RAD/CS
034217,000174: 31,2467           03521                                    R                                     #  LM POSITION IN 2(24)M
034218,000175: 31,2470           03434                           STORE    VHZC                                  
034219,000176: 31,2471           41535                           SLOAD    PUSH                                  #  COMPUTE PIPA BIAS VECTOR FOR USE BY
034220,000177: 31,2472           01457                                    PBIASZ                                #    P66ROD AND LANDING ANALOG DISPLAYS
034221,000178: 31,2473           41535                           SLOAD    PUSH                                  
034222,000179: 31,2474           01455                                    PBIASY                                
034223,000180: 31,2475           55535                           SLOAD    VDEF                                  
034224,000181: 31,2476           01453                                    PBIASX                                
034225,000182: 31,2477           43161                           VXSC     SET                                   
034226,000183: 31,2500           25422                                    BIASFACT                              
034227,000184: 31,2501           00463                                    RODFLAG                               
034228,000185: 31,2502           26616                           STOVL    VBIAS                                 #  ONE SECOND'S BIAS IN UNITS OF 2(7) M/CS
034229,000186: 31,2503           01254                                    TEMX                                  
034230,000187: 31,2504           77676                           VCOMP                                          
034231,000188: 31,2505           27764                           STOVL    OLDPIPAX                              
034232,000189: 31,2506           06520                                    ZEROVECS                              
034233,000190: 31,2507           17767                           STODL    DELVROD                               
034234,000191: 

Page 798

034236,000193: 31,2510           02535                                    RODSCALE                              
034237,000194: 31,2511           17757                           STODL    RODSCAL1                              
034238,000195: 
034239,000196: 31,2512           01234                                    PIPTIME                               
034240,000197: 31,2513           03760                           STORE    LASTTPIP                              
034241,000198: 
034242,000199: 31,2514           77776                           EXIT                                           
034243,000200: 
034244,000201: 31,2515           34755                           CAF      ZERO                                  
034245,000202: 31,2516           55620                           TS       FCOLD                                 
034246,000203: 31,2517           55610                           TS       FWEIGHT                               
034247,000204: 31,2520           55611                           TS       FWEIGHT    +1                         
034248,000205: 
034249,000206: 31,2521           34752                           CAF      TWO                                   #  WCHPHOLD=2 --> VERTICAL  PHASE
034250,000207: 31,2522           55621                           TS       WCHPHOLD                              
034251,000208: 
034252,000209: 31,2523           55346                           TS       WCHPHASE                              
034253,000210: 
034254,000211: 31,2524           05527                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE
034255,000212: 31,2525           00311                           ADRES    XOVINFLG                              #  SHOULD DO INTERPRETIVELY TO SAVE A WORD
034256,000213: 
034257,000214: 31,2526           05515                           TC       UPFLAG                                #  TERMINATE TERRAIN MODEL
034258,000215: 31,2527           00023                           ADRES    NOTERFLG                              #  SHOULD DO INTERPRETIVELY TO SAVE A WORD
034259,000216: 
034260,000217: 31,2530           13515                           TCF      P66                                   
034261,000218: 
034262,000219: 31,2531           30075        RESTART?           CA       FLAGWRD1                              #  HAS THERE BEEN A RESTART?
034263,000220: 31,2532           74740                           MASK     RODFLBIT                              
034264,000221: 31,2533           00006                           EXTEND                                         
034265,000222: 31,2534           12460                           BZF      STRTP66A                              #  Y
034266,000223:                                                                                                  #  N
034267,000224: 31,2535           13515                           TCF      P66                                   
034268,000225: 

Page 799

034270,000227:                                                                                                  #  ****************************************************************************************************************
034271,000228:                                                                                                  #  INITIALIZATION FOR THIS PASS
034272,000229:                                                                                                  #  ****************************************************************************************************************
034273,000230: 
034274,000231: 31,2536                                           COUNT*   $$/F2DPS                              
034275,000232: 
034276,000233: 31,2536           34755        GUILDRET           CAF      ZERO                                  
034277,000234: 31,2537           55746                           TS       RODCOUNT                              
034278,000235: 
034279,000236: 31,2540           00006                           EXTEND                                         
034280,000237: 31,2541           31625                           DCA      TPIP                                  
034281,000238: 31,2542           53574                           DXCH     TPIPOLD                               
034282,000239: 
034283,000240: 31,2543           03747                           TC       FASTCHNG                              
034284,000241: 
034285,000242: 31,2544           00006                           EXTEND                                         
034286,000243: 31,2545           31561                           DCA      PIPTIME1                              
034287,000244: 31,2546           53625                           DXCH     TPIP                                  
034288,000245: 
034289,000246: 31,2547           00006                           EXTEND                                         
034290,000247: 31,2550           31643                           DCA      TTF/8                                 
034291,000248: 31,2551           53553                           DXCH     TTF/8TMP                              
034292,000249: 
034293,000250: 31,2552           11623                           CCS      FLPASS0                               
034294,000251: 31,2553           12575                           TCF      TTFINCR                               
034295,000252: 
034296,000253: 31,2554           51346        BRSPOT1            INDEX    WCHPHASE                              
034297,000254: 31,2555           12367                           TCF      NEWPHASE                              
034298,000255: 
034299,000256:                                                                                                  #  ****************************************************************************************************************
034300,000257:                                                                                                  #  ROUTINES TO START NEW PHASES
034301,000258:                                                                                                  #  ****************************************************************************************************************
034302,000259: 
034303,000260: 31,2556           05322        STARTP64           TC       NEWMODEX                              
034304,000261: 31,2557           00100                           DEC      64         B-14                       
034305,000262: 31,2560           31425                           CA       DELTTFAP                              #  AUGMENT TTF/8
034306,000263: 31,2561           27552                           ADS      TTF/8TMP                              
034307,000264: 31,2562           00004                           INHINT                                         
034308,000265: 31,2563           06022                           TC       C13STALL                              
034309,000266: 31,2564           34740                           CA       BIT12                                 #  ENABLE RUPT10
034310,000267: 31,2565           00006                           EXTEND                                         
034311,000268: 31,2566           05013                           WOR      CHAN13                                
034312,000269: 31,2567           33757                           CAF      P64DB                                 
034313,000270: 31,2570           55343                           TS       DB                                    
034314,000271: 31,2571           05527                           TC       DOWNFLAG                              #  INITIALIZE REDESIGNATION FLAG
034315,000272: 31,2572           00143                           ADRES    REDFLAG                               
034316,000273: 
034317,000274: 31,2573           31756                           CA       LRWH1                                 #  PUT P64 LR WEIGHTING FUNCTION INTO
034318,000275: 31,2574           55421                           TS       LRWH                                  #  LRWH SO LR UPDATES ARE DONE PROPERLY
034319,000276:                                                                                                  #                (CONTINUE TO TTFINCR)
034320,000277: 
034321,000278:                                                                                                  #  ****************************************************************************************************************
034322,000279:                                                                                                  #  INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
034323,000280:                                                                                                  #  ****************************************************************************************************************
034324,000281: 

Page 800

034326,000283: 
034327,000284:                                                                                                  #           TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
034328,000285: 
034329,000286:                                                                                                  #                     TTF/8 UPDATED FOR TIME SINCE LAST PASS:
034330,000287: 
034331,000288:                                                                                                  #                                TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
034332,000289: 
034333,000290:                                                                                                  #                     LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
034334,000291: 
034335,000292:                                                                                                  #                                -                  -      -                      -
034336,000293:                                                                                                  #                                LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
034337,000294: 
034338,000295:                                                                                                  #                     SLANT RANGE TO LANDING SITE, FOR DISPLAY:
034339,000296: 
034340,000297:                                                                                                  #                                                 -      -
034341,000298:                                                                                                  #                                RANGEDSP = ABVAL(LAND - R)
034342,000299: 
034343,000300: 31,2575           06042        TTFINCR            TC       INTPRET                               
034344,000301: 31,2576           45345                           DLOAD    DSU                                   
034345,000302: 31,2577           03625                                    TPIP                                  
034346,000303: 31,2600           03574                                    TPIPOLD                               
034347,000304: 31,2601           41461                           SLR      PUSH                                  #  SHIFT SCALES DELTA TIME TO 2(17) CSECS
034348,000305: 31,2602           21214                                    11D                                   
034349,000306: 31,2603           47361                           VXSC     VXV                                   
034350,000307: 31,2604           03635                                    LAND                                  
034351,000308: 31,2605           02273                                    WM                                    
034352,000309: 31,2606           47045                           BVSU     RTB                                   
034353,000310: 31,2607           03635                                    LAND                                  
034354,000311: 31,2610           21727                                    NORMUNIT                              
034355,000312: 31,2611           76561                           VXSC     VSL1                                  
034356,000313: 31,2612           02301                                    /LAND/                                
034357,000314: 31,2613           17545                           STODL    LANDTEMP                              
034358,000315: 31,2614           77776                           EXIT                                           
034359,000316: 
034360,000317: 31,2615           52155                           DXCH     MPAC                                  
034361,000318: 31,2616           21553                           DAS      TTF/8TMP                              #  NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP
034362,000319: 
034363,000320: 31,2617           03747                           TC       FASTCHNG                              
034364,000321: 
034365,000322: 31,2620           00006                           EXTEND                                         
034366,000323: 31,2621           31553                           DCA      TTF/8TMP                              
034367,000324: 31,2622           53643                           DXCH     TTF/8                                 
034368,000325: 
034369,000326: 31,2623           03700                           TC       TDISPSET                              
034370,000327: 
034371,000328: 31,2624           37721                           CAF      PRIO31                                #  TEMPORARILY OVER-PRIO CHARIN
034372,000329: 31,2625           05146                           TC       PRIOCHNG                              
034373,000330: 
034374,000331: 31,2626           06042                           TC       INTPRET                               
034375,000332: 31,2627           53375                           VLOAD    VAD                                   #  ADD IN CORRECTION FROM NOUN 69
034376,000333: 31,2630           03545                                    LANDTEMP                              
034377,000334: 

Page 801

034379,000336: 31,2631           02632                                    DLAND                                 
034380,000337: 31,2632           03635                           STORE    LAND                                  
034381,000338: 31,2633           77646                           ABVAL                                          #  RECOMPUTE /LAND/
034382,000339: 31,2634           02301                           STORE    /LAND/                                
034383,000340: 31,2635           77776                           EXIT                                           
034384,000341: 
034385,000342: 31,2636           03747                           TC       FASTCHNG                              #  SINCE REDESIG MAY CHANGE LANDTEMP
034386,000343: 
034387,000344: 31,2637           35014                           CAF      EBANK5                                
034388,000345: 31,2640  E5,1631                                  EBANK=   DLAND                                 
034389,000346: 31,2640           54003                           TS       EBANK                                 
034390,000347: 31,2641           34755                           CAF      ZERO                                  #  ZERO N 69 REGISTERS
034391,000348: 31,2642           55631                           TS       DLAND                                 
034392,000349: 31,2643           55632                           TS       DLAND      +1                         
034393,000350: 31,2644           55633                           TS       DLAND      +2                         
034394,000351: 31,2645           55634                           TS       DLAND      +3                         
034395,000352: 31,2646           55635                           TS       DLAND      +4                         
034396,000353: 31,2647           55636                           TS       DLAND      +5                         
034397,000354: 31,2650           35016                           CAF      EBANK7                                
034398,000355: 31,2651  E7,1666                                  EBANK=   TREDES                                
034399,000356: 31,2651           54003                           TS       EBANK                                 
034400,000357: 
034401,000358: 31,2652           34736                           CAF      PRIO20                                
034402,000359: 31,2653           05146                           TC       PRIOCHNG                              
034403,000360: 
034404,000361: 31,2654           51346        BRSPOT2            INDEX    WCHPHASE                              
034405,000362: 31,2655           12373                           TCF      PREGUIDE                              
034406,000363: 
034407,000364:                                                                                                  #  ****************************************************************************************************************
034408,000365:                                                                                                  #  LANDING SITE PERTURBATION EQUATIONS
034409,000366:                                                                                                  #  ****************************************************************************************************************
034410,000367: 
034411,000368: 31,2656           30102        REDESIG            CA       FLAGWRD6                              #  IS REDFLAG SET?
034412,000369: 31,2657           74746                           MASK     REDFLBIT                              
034413,000370: 31,2660           00006                           EXTEND                                         
034414,000371: 31,2661           12765                           BZF      RGVGCALC                              #  NO:   SKIP REDESIGNATION LOGIC
034415,000372: 
034416,000373: 31,2662           31666                           CA       TREDES                                #  YES:  HAS TREDES REACHED ZERO?
034417,000374: 31,2663           00006                           EXTEND                                         
034418,000375: 31,2664           12765                           BZF      RGVGCALC                              #  YES:  SKIP REDESIGNATION LOGIC
034419,000376: 
034420,000377: 31,2665           00004                           INHINT                                         
034421,000378: 31,2666           31645                           CA       ELINCR1                               
034422,000379: 31,2667           55554                           TS       ELINCR                                
034423,000380: 31,2670           31644                           CA       AZINCR1                               
034424,000381: 31,2671           55556                           TS       AZINCR                                
034425,000382: 31,2672           03747                           TC       FASTCHNG                              
034426,000383: 
034427,000384: 31,2673           34755                           CA       ZERO                                  
034428,000385: 31,2674           55645                           TS       ELINCR1                               
034429,000386: 

Page 802

034431,000388: 31,2675           55644                           TS       AZINCR1                               
034432,000389: 31,2676           55555                           TS       ELINCR     +1                         
034433,000390: 31,2677           55557                           TS       AZINCR     +1                         
034434,000391: 
034435,000392: 31,2700           30120                           CA       FIXLOC                                #  SET PD TO 0
034436,000393: 31,2701           54166                           TS       PUSHLOC                               
034437,000394: 
034438,000395: 31,2702           06042                           TC       INTPRET                               
034439,000396: 31,2703           52375                           VLOAD    VSU                                   
034440,000397: 31,2704           03635                                    LAND                                  
034441,000398: 31,2705           03521                                    R                                     #                  -      -
034442,000399: 31,2706           41434                           RTB      PUSH                                  #  PUSH DOWN UNIT (LAND - R)
034443,000400: 31,2707           21727                                    NORMUNIT                              
034444,000401: 31,2710           76435                           VXV      VSL1                                  
034445,000402: 31,2711           02154                                    YNBPIP                                #                     -          -      -
034446,000403: 31,2712           65361                           VXSC     PDDL                                  #  PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
034447,000404: 31,2713           03555                                    ELINCR                                
034448,000405: 31,2714           03557                                    AZINCR                                
034449,000406: 31,2715           52361                           VXSC     VSU                                   
034450,000407: 31,2716           02154                                    YNBPIP                                
034451,000408: 31,2717           41455                           VAD      PUSH                                  #  RESULTING VECTOR IS 1/2 REAL SIZE
034452,000409: 
034453,000410: 31,2720           45345                           DLOAD    DSU                                   #  MAKE SURE REDESIGNATION IS NOT
034454,000411: 31,2721           00001                                    0                                     #    TOO CLOSE TO THE HORIZON
034455,000412: 31,2722           05660                                    DEPRCRIT                              
034456,000413: 31,2723           71240                           BMN      DLOAD                                 
034457,000414: 31,2724           62727                                    REDES1                                
034458,000415: 31,2725           05660                                    DEPRCRIT                              
034459,000416: 31,2726           00001                           STORE    0                                     
034460,000417: 31,2727           45345        REDES1             DLOAD    DSU                                   
034461,000418: 31,2730           03635                                    LAND                                  
034462,000419: 31,2731           03521                                    R                                     
034463,000420: 31,2732           74271                           DDV      VXSC                                  
034464,000421: 31,2733           00001                                    0                                     
034465,000422: 31,2734           53455                           VAD      UNIT                                  
034466,000423: 31,2735           03521                                    R                                     
034467,000424: 31,2736           76561                           VXSC     VSL1                                  
034468,000425: 31,2737           02301                                    /LAND/                                
034469,000426: 31,2740           03545                           STORE    LANDTEMP                              
034470,000427: 31,2741           77776                           EXIT                                           #  LOOKANGL WILL BE COMPUTED AT RGVGCALC
034471,000428: 
034472,000429: 31,2742           03747                           TC       FASTCHNG                              
034473,000430: 
034474,000431: 31,2743           00006                           EXTEND                                         
034475,000432: 31,2744           31545                           DCA      LANDTEMP                              
034476,000433: 31,2745           53635                           DXCH     LAND                                  
034477,000434: 31,2746           00006                           EXTEND                                         
034478,000435: 31,2747           31547                           DCA      LANDTEMP   +2                         
034479,000436: 31,2750           53637                           DXCH     LAND       +2                         
034480,000437: 31,2751           00006                           EXTEND                                         
034481,000438: 

Page 803

034483,000440: 31,2752           31551                           DCA      LANDTEMP   +4                         
034484,000441: 31,2753           53641                           DXCH     LAND       +4                         
034485,000442: 
034486,000443: 31,2754           12765                           TCF      RGVGCALC                              
034487,000444: 
034488,000445:                                                                                                  #  ****************************************************************************************************************
034489,000446:                                                                                                  #  COMPUTE STATE IN GUIDANCE COORDINATES
034490,000447:                                                                                                  #  ****************************************************************************************************************
034491,000448: 
034492,000449:                                                                                                  #             RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
034493,000450: 
034494,000451:                                                                                                  #                      VELOCITY RELATIVE TO THE SURFACE:
034495,000452: 
034496,000453:                                                                                                  #                                  -         -   -   -
034497,000454:                                                                                                  #                                  ANGTERM = V + R * WM
034498,000455: 
034499,000456:                                                                                                  #                      STATE IN GUIDANCE COORDINATES:
034500,000457: 
034501,000458:                                                                                                  #                                  -     *   -   -
034502,000459:                                                                                                  #                                  RGU = CG (R - LAND)
034503,000460: 
034504,000461:                                                                                                  #                                  -     *   -   -    -
034505,000462:                                                                                                  #                                  VGU = CG (V - WM * R)
034506,000463: 
034507,000464:                                                                                                  #                      DEPRESSION ANGLE FOR DISPLAY:
034508,000465: 
034509,000466:                                                                                                  #                                                         -   -     -
034510,000467:                                                                                                  #                                  LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
034511,000468: 
034512,000469: 31,2755           06042        CALCRGVG           TC       INTPRET                               #  IN IGNALG, COMPUTE V FROM INTEGRATION
034513,000470: 31,2756           64375                           VLOAD    MXV                                   #    OUTPUT AND TRIM CORRECTION TERM
034514,000471: 31,2757           00025                                    VATT1                                 #    COMPUTED LAST PASS AND LEFT IN UNFC/2
034515,000472: 31,2760           01732                                    REFSMMAT                              
034516,000473: 31,2761           53362                           VSR1     VAD                                   
034517,000474: 31,2762           03253                                    UNFC/2                                
034518,000475: 31,2763           03527                           STORE    V                                     
034519,000476: 31,2764           77776                           EXIT                                           
034520,000477: 
034521,000478: 31,2765           06042        RGVGCALC           TC       INTPRET                               #  ENTER HERE TO RECOMPUTE RG AND VG
034522,000479: 31,2766           47375                           VLOAD    VXV                                   
034523,000480: 31,2767           03521                                    R                                     
034524,000481: 31,2770           02273                                    WM                                    
034525,000482: 31,2771           70455                           VAD      VSR2                                  #  RESCALE TO UNITS OF 2(9) M/CS
034526,000483: 31,2772           03527                                    V                                     
034527,000484: 31,2773           02231                           STORE    ANGTERM                               
034528,000485: 31,2774           77721                           MXV                                            
034529,000486: 31,2775           02572                                    CG                                    #  NO SHIFT SINCE ANGTERM IS DOUBLE SIZED
034530,000487: 31,2776           27627                           STOVL    VGU                                   
034531,000488: 31,2777           03521                                    R                                     #            -   -
034532,000489: 31,3000           41451                           VSU      PUSH                                  #  PUSH DOWN R - LAND
034533,000490: 

Page 804

034535,000492: 31,3001           03635                                    LAND                                  
034536,000493: 31,3002           76521                           MXV      VSL1                                  
034537,000494: 31,3003           02572                                    CG                                    
034538,000495: 31,3004           02624                           STORE    RGU                                   
034539,000496: 31,3005           77646                           ABVAL                                          
034540,000497: 31,3006           26614                           STOVL    RANGEDSP                              #  SM Z-AXIS RANGE FOR DISPLAY IN N68
034541,000498: 31,3007           50234                           RTB      DOT                                   #  NOW IN MPAC IS SINE(LOOKANGL)/4
034542,000499: 31,3010           21727                                    NORMUNIT                              
034543,000500: 31,3011           02146                                    XNBPIP                                
034544,000501: 31,3012           77776                           EXIT                                           
034545,000502: 
034546,000503: 31,3013           30120                           CA       FIXLOC                                #  RESET PUSH DOWN POINTER
034547,000504: 31,3014           54166                           TS       PUSHLOC                               
034548,000505: 
034549,000506: 31,3015           30154                           CA       MPAC                                  #  COMPUTE LOOKANGL ITSELF
034550,000507: 31,3016           60000                           DOUBLE                                         
034551,000508: 31,3017           04616                           TC       BANKCALL                              
034552,000509: 31,3020           61655                           CADR     SPARCSIN   -1                         
034553,000510: 31,3021           63763                           AD       1/2DEG                                
034554,000511: 31,3022           61353                           AD       ELBIAS                                #  BIAS LPD ANGLE FOR WINDOW BENDING
034555,000512: 31,3023           00006                           EXTEND                                         
034556,000513: 31,3024           73762                           MP       180DEGS                               
034557,000514: 31,3025           55667                           TS       LOOKANGL                              #  LOOKANGL FOR DISPLAY DURING P64
034558,000515: 
034559,000516: 31,3026           51346        BRSPOT3            INDEX    WCHPHASE                              
034560,000517: 31,3027           12376                           TCF      WHATGUID                              
034561,000518: 
034562,000519:                                                                                                  #  ****************************************************************************************************************
034563,000520:                                                                                                  #  TTF/8 COMPUTATION
034564,000521:                                                                                                  #  ****************************************************************************************************************
034565,000522: 
034566,000523: 31,3030           03673        TTF/8CL            TC       INTPRETX                              
034567,000524: 31,3031           77743                           DLOAD*                                         
034568,000525: 31,3032           02443                                    JDG2TTF,1                             
034569,000526: 31,3033           23571                           STODL*   TABLTTF    +6                         #  A(3) = 8 JDG  TO TABLTTF
034570,000527: 31,3034           02437                                    ADG2TTF,1                             #              2
034571,000528: 31,3035           17567                           STODL    TABLTTF    +4                         #  A(2) = 6 ADG  TO TABLTTF
034572,000529: 31,3036           03633                                    VGU        +4                         #              2
034573,000530: 31,3037           42605                           DMP      DAD*                                  
034574,000531: 31,3040           05656                                    3/4DP                                 
034575,000532: 31,3041           02433                                    VDG2TTF,1                             
034576,000533: 31,3042           23565                           STODL*   TABLTTF    +2                         #  A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF
034577,000534: 31,3043           02407                                    RDG        +4,1                       #               2         2
034578,000535: 31,3044           41225                           DSU      DMP                                   
034579,000536: 31,3045           02630                                    RGU        +4                         
034580,000537: 31,3046           05654                                    3/8DP                                 
034581,000538: 31,3047           03563                           STORE    TABLTTF                               #  A(0) = -24 (RGU  - RDG )/64 TO TABLTTF
034582,000539: 31,3050           77776                           EXIT                                           #                 2      2
034583,000540: 

Page 805

034585,000542: 
034586,000543: 31,3051           34744                           CA       BIT8                                  
034587,000544: 31,3052           55572                           TS       TABLTTF    +10                        #  FRACTIONAL PRECISION FOR TTF TO TABLE
034588,000545: 
034589,000546: 31,3053           00006                           EXTEND                                         
034590,000547: 31,3054           31643                           DCA      TTF/8                                 
034591,000548: 31,3055           52155                           DXCH     MPAC                                  #  LOADS TTF/8 (INITIAL GUESS) INTO MPAC
034592,000549: 31,3056           34752                           CAF      TWO                                   #  DEGREE - ONE
034593,000550: 31,3057           54001                           TS       L                                     
034594,000551: 31,3060           33755                           CAF      TABLTTFL                              
034595,000552: 31,3061           03543                           TC       ROOTPSRS                              #  YIELDS TTF/8 IN MPAC
034596,000553: 31,3062           51346                           INDEX    WCHPHASE                              
034597,000554: 31,3063           12412                           TCF      WHATALM                               
034598,000555: 
034599,000556: 31,3064           00006                           EXTEND                                         #  GOOD RETURN
034600,000557: 31,3065           30155                           DCA      MPAC                                  #  FETCH TTF/8 KEEPING IT IN MPAC
034601,000558: 31,3066           53643                           DXCH     TTF/8                                 #  CORRECTED TTF/8
034602,000559: 
034603,000560: 31,3067           03700                           TC       TDISPSET                              
034604,000561: 
034605,000562:                                                                                                  #                (CONTINUE TO QUADGUID)
034606,000563: 
034607,000564:                                                                                                  #  ****************************************************************************************************************
034608,000565:                                                                                                  #  MAIN GUIDANCE EQUATION
034609,000566:                                                                                                  #  ****************************************************************************************************************
034610,000567: 
034611,000568:                                                                                                  #                       AS PUBLISHED:-
034612,000569: 
034613,000570:                                                                                                  #                                                -     -        -     -
034614,000571:                                                                                                  #                                  -     -     6(VDG + VG)   12(RDG - RG)
034615,000572:                                                                                                  #                                  ACG = ADG + ----------- + ------------
034616,000573:                                                                                                  #                                                  TTF        (TTF)(TTF)
034617,000574: 
034618,000575:                                                                                                  #                       AS HERE PROGRAMMED:-
034619,000576: 
034620,000577:                                                                                                  #                                              -     -
034621,000578:                                                                                                  #                                       3 (1/4(RDG - RG)   -     - )
034622,000579:                                                                                                  #                                       - (------------- + VDG + VG)
034623,000580:                                                                                                  #                                 -     4 (    TTF/8               )   -
034624,000581:                                                                                                  #                                 ACG = ---------------------------- + ADG
034625,000582:                                                                                                  #                                                  TTF/8
034626,000583: 
034627,000584: 31,3070           41642        QUADGUID           CS       TTF/8                                 
034628,000585: 31,3071           61426                           AD       LEADTIME                              #  LEADTIME IS A NEGATIVE NUMBER
034629,000586: 31,3072           64733                           AD       POSMAX                                #  SAFEGUARD THE COMPUTATIONS THAT FOLLOW
034630,000587: 31,3073           54001                           TS       L                                     #    BY FORCING -TTF+LEADTIME > OR = ZERO
034631,000588: 31,3074           40001                           CS       L                                     
034632,000589: 31,3075           60001                           AD       L                                     
034633,000590: 31,3076           22007                           ZL                                             
034634,000591: 31,3077           00006                           EXTEND                                         
034635,000592: 

Page 806

034637,000594: 31,3100           11642                           DV       TTF/8                                 
034638,000595: 31,3101           54130                           TS       BUF                                   #  - RATIO OF LAG-DIMINISHED TTF TO TTF
034639,000596: 31,3102           00006                           EXTEND                                         
034640,000597: 31,3103           70000                           SQUARE                                         
034641,000598: 31,3104           54131                           TS       BUF        +1                         
034642,000599: 31,3105           60130                           AD       BUF                                   
034643,000600: 31,3106           56131                           XCH      BUF        +1                         #  RATIO SQUARED - RATIO
034644,000601: 31,3107           60131                           AD       BUF        +1                         
034645,000602: 31,3110           54154                           TS       MPAC                                  #  COEFFICIENT FOR VGU TERM
034646,000603: 31,3111           60131                           AD       BUF        +1                         
034647,000604: 31,3112           50120                           INDEX    FIXLOC                                
034648,000605: 31,3113           54032                           TS       26D                                   #  COEFFICIENT FOR RDG-RGU TERM
034649,000606: 31,3114           60131                           AD       BUF        +1                         
034650,000607: 31,3115           50120                           INDEX    FIXLOC                                
034651,000608: 31,3116           54034                           TS       28D                                   #  COEFFICIENT FOR VDG TERM
034652,000609: 31,3117           60130                           AD       BUF                                   
034653,000610: 31,3120           64733                           AD       POSMAX                                
034654,000611: 31,3121           60131                           AD       BUF        +1                         
034655,000612: 31,3122           60131                           AD       BUF        +1                         
034656,000613: 31,3123           50120                           INDEX    FIXLOC                                
034657,000614: 31,3124           54036                           TS       30D                                   #  COEFFICIENT FOR ADG TERM
034658,000615: 
034659,000616: 31,3125           34755                           CAF      ZERO                                  
034660,000617: 31,3126           54163                           TS       MODE                                  
034661,000618: 
034662,000619: 31,3127           03673                           TC       INTPRETX                              
034663,000620: 31,3130           65361                           VXSC     PDDL                                  
034664,000621: 31,3131           03627                                    VGU                                   
034665,000622: 31,3132           00035                                    28D                                   
034666,000623: 31,3133           47157                           VXSC*    RTB                                   
034667,000624: 31,3134           02413                                    VDG,1                                 
034668,000625: 31,3135           63667                                    ZEROMID                               
034669,000626: 31,3136           47113                           PDVL*    RTB                                   
034670,000627: 31,3137           02403                                    RDG,1                                 
034671,000628: 31,3140           63667                                    ZEROMID                               
034672,000629: 31,3141           70251                           VSU      V/SC                                  
034673,000630: 31,3142           02624                                    RGU                                   
034674,000631: 31,3143           03643                                    TTF/8                                 
034675,000632: 31,3144           74342                           VSR2     VXSC                                  
034676,000633: 31,3145           00033                                    26D                                   
034677,000634: 31,3146           53255                           VAD      VAD                                   
034678,000635: 31,3147           74341                           V/SC     VXSC                                  
034679,000636: 31,3150           03643                                    TTF/8                                 
034680,000637: 31,3151           05656                                    3/4DP                                 
034681,000638: 31,3152           73725                           PDDL     VXSC*                                 
034682,000639: 31,3153           00037                                    30D                                   
034683,000640: 31,3154           02423                                    ADG,1                                 
034684,000641: 31,3155           53234                           RTB      VAD                                   
034685,000642: 31,3156           63667                                    ZEROMID                               
034686,000643: 

Page 807

034688,000645: 31,3157           76505        AFCCALC1           VXM      VSL1                                  #  VERTGUID COMES HERE
034689,000646: 31,3160           02572                                    CG                                    
034690,000647: 31,3161           70315                           PDVL     V/SC                                  
034691,000648: 31,3162           01236                                    GDT/2                                 
034692,000649: 31,3163           05652                                    GSCALE                                
034693,000650: 31,3164           45445                           BVSU     STADR                                 
034694,000651: 31,3165           74524                           STORE    UNFC/2                                #  UNFC/2 NEED NOT BE UNITIZED
034695,000652: 31,3166           77646                           ABVAL                                          
034696,000653: 31,3167           17464        AFCCALC2           STODL    /AFC/                                 #  MAGNITUDE OF AFC FOR THROTTLE
034697,000654: 31,3170           03253                                    UNFC/2                                #  VERTICAL COMPONENT
034698,000655: 31,3171           65316                           DSQ      PDDL                                  
034699,000656: 31,3172           03255                                    UNFC/2     +2                         #  OUT-OF-PLANE
034700,000657: 31,3173           65316                           DSQ      PDDL                                  
034701,000658: 31,3174           05650                                    HIGHESTF                              
034702,000659: 31,3175           63471                           DDV      DSQ                                   
034703,000660: 31,3176           01244                                    MASS                                  #                         2    2     2
034704,000661: 31,3177           45225                           DSU      DSU                                   #  AMAXHORIZ = SQRT(ATOTAL - A  -  A  )
034705,000662: 31,3200           71244                           BPL      DLOAD                                 #                             1     0
034706,000663: 31,3201           63203                                    AFCCALC3                              
034707,000664: 31,3202           06520                                    ZEROVECS                              
034708,000665: 31,3203           43366        AFCCALC3           SQRT     DAD                                   
034709,000666: 31,3204           03257                                    UNFC/2     +4                         
034710,000667: 31,3205           44244                           BPL      BDSU                                  
034711,000668: 31,3206           63211                                    AFCCLEND                              
034712,000669: 31,3207           03257                                    UNFC/2     +4                         
034713,000670: 31,3210           03257                           STORE    UNFC/2     +4                         
034714,000671: 31,3211           77776        AFCCLEND           EXIT                                           
034715,000672: 31,3212           03747                           TC       FASTCHNG                              
034716,000673: 
034717,000674: 31,3213           31346                           CA       WCHPHASE                              #  PREPARE FOR PHASE SWITCHING LOGIC
034718,000675: 31,3214           55621                           TS       WCHPHOLD                              
034719,000676: 31,3215           25623                           INCR     FLPASS0                               #  INCREMENT PASS COUNTER
034720,000677: 
034721,000678: 31,3216           51346        BRSPOT4            INDEX    WCHPHASE                              
034722,000679: 31,3217           12401                           TCF      AFTRGUID                              
034723,000680: 
034724,000681:                                                                                                  #  ****************************************************************************************************************
034725,000682:                                                                                                  #  NEW PHASE NOW?
034726,000683:                                                                                                  #  ****************************************************************************************************************
034727,000684: 
034728,000685: 31,3220           51346        EXTLOGIC           INDEX    WCHPHASE                              #  IS TTF NEARER ZERO THAN CRITERION?
034729,000686: 31,3221           31423                           CA       TENDBRAK                              
034730,000687: 31,3222           61642                           AD       TTF/8                                 
034731,000688: 31,3223           00006                           EXTEND                                         
034732,000689: 31,3224           63233                           BZMF     CGCALC                                #  NO
034733,000690: 
034734,000691: 31,3225           03747                           TC       FASTCHNG                              #  YES:  INCREMENT WCHPHASE, ZERO FLPASS0
034735,000692: 
034736,000693: 31,3226           31621                           CA       WCHPHOLD                              
034737,000694: 31,3227           64753                           AD       ONE                                   
034738,000695: 

Page 808

034740,000697: 31,3230           55346                           TS       WCHPHASE                              
034741,000698: 31,3231           34755                           CAF      ZERO                                  
034742,000699: 31,3232           55623                           TS       FLPASS0                               
034743,000700: 
034744,000701:                                                                                                  #                (CONTINUE TO CGCALC)
034745,000702: 
034746,000703:                                                                                                  #  ***************************************************************************************************************
034747,000704:                                                                                                  #  ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX
034748,000705:                                                                                                  #  ***************************************************************************************************************
034749,000706: 
034750,000707: 31,3233           35014        CGCALC             CAF      EBANK5                                
034751,000708: 31,3234           54003                           TS       EBANK                                 
034752,000709: 31,3235  E5,1453                                  EBANK=   TCGIBRAK                              
034753,000710: 31,3235           00006                           EXTEND                                         
034754,000711: 31,3236           51346                           INDEX    WCHPHASE                              
034755,000712: 31,3237           52415                           INDEX    TARGTDEX                              
034756,000713: 31,3240           31453                           DCA      TCGFBRAK                              
034757,000714: 31,3241           24006                           INCR     BBANK                                 
034758,000715: 31,3242           24006                           INCR     BBANK                                 
034759,000716: 31,3243  E7,1642                                  EBANK=   TTF/8                                 
034760,000717: 31,3243           61642                           AD       TTF/8                                 
034761,000718: 31,3244           56001                           XCH      L                                     
034762,000719: 31,3245           61642                           AD       TTF/8                                 
034763,000720: 31,3246           10000                           CCS      A                                     
034764,000721: 31,3247           10001                           CCS      L                                     
034765,000722: 31,3250           13301                           TCF      EXITSPOT                              
034766,000723: 31,3251           13301                           TCF      EXITSPOT                              
034767,000724: 31,3252           13253                           NOOP                                           
034768,000725: 
034769,000726: 31,3253           03673                           TC       INTPRETX                              
034770,000727: 31,3254           53575                           VLOAD    UNIT                                  
034771,000728: 31,3255           03635                                    LAND                                  
034772,000729: 31,3256           16572                           STODL    CG                                    
034773,000730: 31,3257           03643                                    TTF/8                                 
034774,000731: 31,3260           74203                           DMP*     VXSC                                  
034775,000732: 31,3261           02447                                    GAINBRAK,1                            #  NUMERO MYSTERIOSO
034776,000733: 31,3262           02231                                    ANGTERM                               
034777,000734: 31,3263           77655                           VAD                                            
034778,000735: 31,3264           03635                                    LAND                                  
034779,000736: 31,3265           47051                           VSU      RTB                                   
034780,000737: 31,3266           03521                                    R                                     
034781,000738: 31,3267           21727                                    NORMUNIT                              
034782,000739: 31,3270           47035                           VXV      RTB                                   
034783,000740: 31,3271           03635                                    LAND                                  
034784,000741: 31,3272           21727                                    NORMUNIT                              
034785,000742: 31,3273           26600                           STOVL    CG         +6                         #  SECOND ROW
034786,000743: 31,3274           02572                                    CG                                    
034787,000744: 31,3275           76435                           VXV      VSL1                                  
034788,000745: 31,3276           02600                                    CG         +6                         
034789,000746: 31,3277           02606                           STORE    CG         +14                        
034790,000747: 31,3300           77776                           EXIT                                           
034791,000748: 
034792,000749: 31,3301           51621        EXITSPOT           INDEX    WCHPHOLD                              
034793,000750: 31,3302           12404                           TCF      WHATEXIT                              
034794,000751: 
034795,000752:                                                                                                  #  ****************************************************************************************************************
034796,000753: 

Page 809

034798,000755:                                                                                                  #  ROUTINES FOR EXITING FROM LANDING GUIDANCE
034799,000756:                                                                                                  #  ****************************************************************************************************************
034800,000757: 
034801,000758:                                                                                                  #  1.        EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
034802,000759: 
034803,000760:                                                                                                  #  2.        EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
034804,000761: 
034805,000762:                                                                                                  #  3.        EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
034806,000763: 
034807,000764:                                                                                                  #           (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
034808,000765: 
034809,000766: 31,3303           06042        EXGSUB             TC       INTPRET                               #  COMPUTE TRIM VELOCITY CORRECTION TERM
034810,000767: 31,3304           47175                           VLOAD    RTB                                   
034811,000768: 31,3305           03253                                    UNFC/2                                
034812,000769: 31,3306           21727                                    NORMUNIT                              
034813,000770: 31,3307           74361                           VXSC     VXSC                                  
034814,000771: 31,3310           03423                                    ZOOMTIME                              
034815,000772: 31,3311           22001                                    TRIMACCL                              
034816,000773: 31,3312           03253                           STORE    UNFC/2                                
034817,000774: 31,3313           77776                           EXIT                                           
034818,000775: 
034819,000776: 31,3314           11647                           CCS      NGUIDSUB                              
034820,000777: 31,3315           12423                           TCF      GUIDSUB                               
034821,000778: 31,3316           11646                           CCS      NIGNLOOP                              
034822,000779: 31,3317           13322                           TCF      +3                                    
034823,000780: 31,3320           05600                           TC       ALARM                                 
034824,000781: 31,3321           01412                           OCT      01412                                 
034825,000782: 
034826,000783: 31,3322           04635                 +3        TC       POSTJUMP                              
034827,000784: 31,3323           64672                           CADR     DDUMCALC                              
034828,000785: 
034829,000786: 31,3324           06042        EXBRAK             TC       INTPRET                               
034830,000787: 31,3325           77775                           VLOAD                                          
034831,000788: 31,3326           03537                                    UNIT/R/                               
034832,000789: 31,3327           03261                           STORE    UNWC/2                                
034833,000790: 31,3330           77776                           EXIT                                           
034834,000791: 31,3331           13406                           TCF      STEER?                                
034835,000792: 
034836,000793: 31,3332           06042        EXNORM             TC       INTPRET                               
034837,000794: 31,3333           52375                           VLOAD    VSU                                   
034838,000795: 31,3334           03635                                    LAND                                  
034839,000796: 31,3335           03521                                    R                                     
034840,000797: 31,3336           77634                           RTB                                            
034841,000798: 31,3337           21727                                    NORMUNIT                              
034842,000799: 31,3340           03261                           STORE    UNWC/2                                #  UNIT(LAND - R) IS TENTATIVE CHOICE
034843,000800: 31,3341           50235                           VXV      DOT                                   
034844,000801: 31,3342           02146                                    XNBPIP                                
034845,000802: 31,3343           02600                                    CG         +6                         
034846,000803: 31,3344           77776                           EXIT                                           #  WITH PROJ IN MPAC 1/8 REAL SIZE
034847,000804: 

Page 810

034849,000806: 
034850,000807: 31,3345           40154                           CS       MPAC                                  #  GET COEFFICIENT FOR CG +14
034851,000808: 31,3346           63764                           AD       PROJMAX                               
034852,000809: 31,3347           64733                           AD       POSMAX                                
034853,000810: 31,3350           54130                           TS       BUF                                   
034854,000811: 31,3351           40130                           CS       BUF                                   
034855,000812: 31,3352           26130                           ADS      BUF                                   #  RESULT IS 0 IF PROJMAX - PROJ NEGATIVE
034856,000813: 
034857,000814: 31,3353           43765                           CS       PROJMIN                               #  GET COEFFICIENT FOR UNIT(LAND - R)
034858,000815: 31,3354           60154                           AD       MPAC                                  
034859,000816: 31,3355           64733                           AD       POSMAX                                
034860,000817: 31,3356           54131                           TS       BUF        +1                         
034861,000818: 31,3357           40131                           CS       BUF        +1                         
034862,000819: 31,3360           26131                           ADS      BUF        +1                         #  RESULT IS 0 IF PROJ - PROJMIN NEGATIVE
034863,000820: 
034864,000821: 31,3361           34751                           CAF      FOUR                                  
034865,000822: 31,3362           76245        UNWCLOOP           MASK     SIX                                   
034866,000823: 31,3363           54002                           TS       Q                                     
034867,000824: 31,3364           35014                           CA       EBANK5                                
034868,000825: 31,3365           54003                           TS       EBANK                                 
034869,000826: 31,3366  E5,1571                                  EBANK=   CG                                    
034870,000827: 31,3366           30130                           CA       BUF                                   
034871,000828: 31,3367           00006                           EXTEND                                         
034872,000829: 31,3370           50002                           INDEX    Q                                     
034873,000830: 31,3371           71605                           MP       CG         +14                        
034874,000831: 31,3372           24006                           INCR     BBANK                                 
034875,000832: 31,3373  E6,1660                                  EBANK=   UNWC/2                                
034876,000833: 31,3373           50002                           INDEX    Q                                     
034877,000834: 31,3374           53661                           DXCH     UNWC/2                                
034878,000835: 31,3375           00006                           EXTEND                                         
034879,000836: 31,3376           70131                           MP       BUF        +1                         
034880,000837: 31,3377           50002                           INDEX    Q                                     
034881,000838: 31,3400           21661                           DAS      UNWC/2                                
034882,000839: 31,3401           10002                           CCS      Q                                     
034883,000840: 31,3402           13362                           TCF      UNWCLOOP                              
034884,000841: 
034885,000842: 31,3403           31773                           CA       AZBIAS                                #  SET OUTER GIMBAL
034886,000843: 31,3404           55677                           TS       OGABIAS                               #    ANGLE BIAS FOR WINDOW BENDING
034887,000844: 
034888,000845: 31,3405           24006                           INCR     BBANK                                 
034889,000846: 31,3406  E7,1612                                  EBANK=   PIF                                   
034890,000847: 
034891,000848: 31,3406           30121        STEER?             CA       OVFIND                                #  OVERFLOW?
034892,000849: 31,3407           00006                           EXTEND                                         
034893,000850: 31,3410           13413                           BZF      STEERSW?                              #  N: CHECK STEERSW
034894,000851: 
034895,000852: 31,3411           03734                           TC       OVFDESC                               #  Y: REMEDIAL ACTION AND
034896,000853: 31,3412           13432                           TCF      DISPEXIT                              #     SKIP ISSUANCE OF CMDS. NO STEERSW CHK
034897,000854: 
034898,000855: 31,3413           40076        STEERSW?           CS       FLAGWRD2                              #  IS STEERSW UP?
034899,000856: 31,3414           74741                           MASK     STEERBIT                              
034900,000857: 

Page 811

034902,000859: 31,3415           00006                           EXTEND                                         
034903,000860: 31,3416           13424                           BZF      THRTCALL                              #  Y: ISSUE GUIDANCE CMDS
034904,000861: 
034905,000862: 31,3417           00004        RATESTOP           INHINT                                         #  N: REMEDIAL ACTION
034906,000863: 31,3420           04674                           TC       IBNKCALL                              #     AND
034907,000864: 31,3421           40166                           FCADR    STOPRATE                              #     SKIP ISSUANCE OF CMDS
034908,000865: 31,3422           00003                           RELINT                                         
034909,000866: 31,3423           13432                           TCF      DISPEXIT                              
034910,000867: 
034911,000868: 31,3424  31,3424               GDUMP1             =        THRTCALL                              
034912,000869: 31,3424           02144        THRTCALL           TC       THROTTLE                              
034913,000870: 31,3425           03747                           TC       FASTCHNG                              
034914,000871: 31,3426           06042                           TC       INTPRET                               
034915,000872: 31,3427           77624                           CALL                                           
034916,000873: 31,3430           61072                                    FINDCDUW   -2                         
034917,000874: 31,3431           77776                           EXIT                                           
034918,000875: 
034919,000876:                                                                                                  #                (CONTINUE TO DISPEXIT)
034920,000877: 
034921,000878:                                                                                                  #  ****************************************************************************************************************
034922,000879:                                                                                                  #  GUIDANCE LOOP DISPLAYS
034923,000880:                                                                                                  #  ****************************************************************************************************************
034924,000881: 
034925,000882: 31,3432           00006        DISPEXIT           EXTEND                                         #  KILL GROUP 3:   DISPLAYS WILL BE
034926,000883: 31,3433           34755                           DCA      NEG0                                  #    RESTORED BY NEXT GUIDANCE CYCLE
034927,000884: 31,3434           52756                           DXCH     -PHASE3                               
034928,000885: 
034929,000886: 31,3435  31,3435               ENDLLJOB           =        DISPEXIT   +3                         
034930,000887: 
034931,000888: 31,3435  31,3435               DISPEX66           =        DISPEXIT   +3                         
034932,000889: 31,3435           40104                 +3        CS       FLAGWRD8                              #  IF FLUNDISP IS SET, NO DISPLAY THIS PASS
034933,000890: 31,3436           74742                           MASK     FLUNDBIT                              
034934,000891: 31,3437           00006                           EXTEND                                         
034935,000892: 31,3440           15155                           BZF      ENDOFJOB                              
034936,000893: 
034937,000894: 31,3441           51621                           INDEX    WCHPHOLD                              
034938,000895: 31,3442           12406                           TCF      WHATDISP                              
034939,000896: 
034940,000897: 31,3443           05165        P63DISPS           TC       VACRLEAS                              
034941,000898: 31,3444           33766                           CAF      V06N63                                
034942,000899: 31,3445           04616        DISPCOMN           TC       BANKCALL                              
034943,000900: 31,3446           20466                           CADR     REGODSP                               
034944,000901: 
034945,000902: 31,3447           31666        P64DISPS           CA       TREDES                                #  HAS TREDES REACHED ZERO?
034946,000903: 31,3450           00006                           EXTEND                                         
034947,000904: 31,3451           13473                           BZF      RED-OVER                              #  YES:  CLEAR REDESIGNATION FLAG
034948,000905: 
034949,000906: 31,3452           40102                           CS       FLAGWRD6                              #  NO:   IS REDFLAG SET?
034950,000907: 31,3453           74746                           MASK     REDFLBIT                              
034951,000908: 31,3454           00006                           EXTEND                                         
034952,000909: 31,3455           13475                           BZF      REDES-OK                              #  YES:  DO STATIC DISPLAY
034953,000910: 
034954,000911: 31,3456           05165                           TC       VACRLEAS                              
034955,000912: 31,3457           33767                           CAF      V06N64                                #  OTHERWISE USE FLASHING DISPLAY
034956,000913: 31,3460           04616                           TC       BANKCALL                              
034957,000914: 31,3461           20460                           CADR     REFLASH                               
034958,000915: 31,3462           16001                           TCF      GOTOPOOH                              #  TERMINATE
034959,000916: 31,3463           13465                           TCF      P64CEED                               #  PROCEED     PERMIT REDESIGNATIONS
034960,000917: 31,3464           13447                           TCF      P64DISPS                              #  RECYCLE
034961,000918: 
034962,000919: 31,3465           34755        P64CEED            CAF      ZERO                                  
034963,000920: 31,3466           55645                           TS       ELINCR1                               
034964,000921: 31,3467           55644                           TS       AZINCR1                               
034965,000922: 
034966,000923: 31,3470           05515                           TC       UPFLAG                                #  ENABLE REDESIGNATION LOGIC
034967,000924: 31,3471           00143                           ADRES    REDFLAG                               
034968,000925: 
034969,000926: 31,3472           15155                           TCF      ENDOFJOB                              
034970,000927: 
034971,000928: 31,3473           05527        RED-OVER           TC       DOWNFLAG                              
034972,000929: 31,3474           00143                           ADRES    REDFLAG                               
034973,000930: 31,3475           05165        REDES-OK           TC       VACRLEAS                              
034974,000931: 31,3476           33767                           CAF      V06N64                                
034975,000932: 31,3477           13445                           TCF      DISPCOMN                              
034976,000933: 
034977,000934: 
034978,000935: 31,3500           05165        VERTDISP           TC       VACRLEAS                              
034979,000936: 31,3501           33770                           CAF      V06N60                                
034980,000937: 31,3502           04616                           TC       BANKCALL                              
034981,000938: 31,3503           20460                           CADR     REFLASH                               
034982,000939: 

Page 813

034984,000941: 31,3504           16001                           TCF      GOTOPOOH                              #  TERMINATE
034985,000942: 31,3505           13507                           TCF      STOPFIRE                              #  PROCEED
034986,000943: 31,3506           13507                           TCF      STOPFIRE                              #  V32E
034987,000944: 
034988,000945: 31,3507           05527        STOPFIRE           TC       DOWNFLAG                              
034989,000946: 31,3510           00016                           ADRES    P66PROFL                              #  FLAG TO STOP P66 HORIZONTAL
034990,000947: 31,3511           15155                           TCF      ENDOFJOB                              
034991,000948: 
034992,000949: 31,3512           02147        THROT66            TC       THROTTLE   +3                         
034993,000950: 31,3513           25623                           INCR     CNTTHROT                              #  COUNT ONE THROTTLE COMPLETION
034994,000951: 
034995,000952: 31,3514           13435                           TCF      DISPEX66                              
034996,000953: 

Page 814

034998,000955:                                                                                                  #  ****************************************************************************************************************
034999,000956:                                                                                                  #  GUIDANCE FOR P66
035000,000957:                                                                                                  #  ****************************************************************************************************************
035001,000958: 
035002,000959:                                                                                                  #           THE P66 HORIZONTAL (HZ) EQUATION IS:
035003,000960: 
035004,000961:                                                                                                  #                  UNFC/2X = GHZ
035005,000962: 
035006,000963:                                                                                                  #                  UNFC/2Y = (LIMIT AHZLIM)(-QHZ UNFC/2Y   -(VY-VHZCY)/TAUHZ)
035007,000964:                                                                                                  #                                                       I-1
035008,000965: 
035009,000966:                                                                                                  #                  UNFC/2Z = (LIMIT AHZLIM)(-QHZ UNFC/2Z   -(VZ-VHZCZ)/TAUHZ)
035010,000967:                                                                                                  #                                                       I-1
035011,000968: 
035012,000969:                                                                                                  #           WHERE  GHZ IS LUNAR GRAVITY
035013,000970:                                                                                                  #                  QHZ AND 1/TAUHZ ARE GAIN CONSTANTS
035014,000971:                                                                                                  #                  VHZCY AND VHZCZ ARE THE Y AND Z COMPONENTS OF COMMANDED
035015,000972:                                                                                                  #                     VELOCITY, PLATFORM COORDINATES. THESE ARE INITIALIZED
035016,000973:                                                                                                  #                     TO MOONRATE
035017,000974:                                                                                                  #                  (LIMIT AHZLIM) INDICATES THE CONTENT OF THE SUBSEQUENT
035018,000975:                                                                                                  #                     PARENTHESES IS MAGNITUDE LIMITED TO AHZLIM
035019,000976: 
035020,000977: 31,3515           05364        P66                TC       PHASCHNG                              #  TERMINATE GROUP 3
035021,000978: 31,3516           00003                           OCT      00003                                 
035022,000979: 
035023,000980: 31,3517           06042                           TC       INTPRET                               
035024,000981: 31,3520           45234                           RTB      DSU                                   #  IS THERE TIME FOR P66?
035025,000982: 31,3521           21574                                    LOADTIME                              
035026,000983: 31,3522           01234                                    PIPTIME                               
035027,000984: 31,3523           51021                           BDSU     BPL                                   
035028,000985: 31,3524           02500                                    2LATE466                              
035029,000986: 31,3525           65067                                    P66HZ                                 #  Y: DOIT
035030,000987: 31,3526           77414                           CLEAR    EXIT                                  #  N: OMIT
035031,000988: 31,3527           00663                                    RODFLAG                               
035032,000989: 
035033,000990: 31,3530           41464                           CS       TOOFEW                                #  INITIALIZE CNTTHROT TO TOOFEW AND LOAD
035034,000991: 31,3531           57623                           XCH      CNTTHROT                              #  ACCUMULATOR WITH ITS PREVIOUS CONTENTS
035035,000992: 31,3532           00006                           EXTEND                                         #  TOO FEW THROTTLINGS SINCE LAST OMISSION?
035036,000993: 31,3533           63535                           BZMF     OMITWALM                              
035037,000994: 
035038,000995: 31,3534           13435                           TCF      DISPEX66                              #  N: PERMIT OMISSION SANS ALARM
035039,000996: 
035040,000997: 31,3535           00004        OMITWALM           INHINT                                         
035041,000998: 31,3536           04616                           TC       BANKCALL                              
035042,000999: 31,3537           40166                           CADR     STOPRATE                              
035043,001000: 31,3540           05600                           TC       ALARM                                 #  Y: PERMIT OMISSION WITH ALARM
035044,001001: 31,3541           01466                           OCT      01466                                 
035045,001002: 
035046,001003: 31,3542           13435                           TCF      DISPEX66                              
035047,001004: 

Page 815

035049,001006:                                                                                                  #  ****************************************************************************************************************
035050,001007:                                                                                                  #  GUIDANCE FOR P66
035051,001008:                                                                                                  #  ****************************************************************************************************************
035052,001009: 
035053,001010: 32,2000                                           SETLOC   P66LOC                                
035054,001011: 32,2000                                           BANK                                           
035055,001012: 32,3067                                           COUNT*   $$/F2DPS                              
035056,001013: 
035057,001014: 32,3067           74375        P66HZ              VLOAD    VXSC                                  
035058,001015: 32,3070           03253                                    UNFC/2                                #  P63, P64, & P66 UNITS 2(-4)M/CS/CS
035059,001016: 32,3071           02476                                    QHZ                                   
035060,001017: 32,3072           52315                           PDVL     VSU                                   
035061,001018: 32,3073           03434                                    VHZC                                  #  IN 2(7)M/CS
035062,001019: 32,3074           03527                                    V                                     #  IN 2(7)M/CS
035063,001020: 32,3075           52341                           V/SC     VSU                                   #  YIELDS UNLIM HZ ACCEL CMD, 2(-4)M/CS/CS
035064,001021: 32,3076           02475                                    TAUHZ                                 #  IN 2(1))CS
035065,001022: 32,3077           77776                           EXIT                                           
035066,001023: 
035067,001024: 32,3100           35031                           CA       PRIO21                                #  ASSURE THIS SERVICER JOB ENDS
035068,001025: 32,3101           05146                           TC       PRIOCHNG                              #  BEFORE NEXT SERVICER JOB BEGINS
035069,001026: 
035070,001027: 32,3102           33415                           CA       GHZ                                   
035071,001028: 32,3103           54154                           TS       MPAC                                  #  X COMPONENT = G
035072,001029: 
035073,001030: 32,3104           35014                           CA       EBANK5                                
035074,001031: 32,3105           54003                           TS       EBANK                                 
035075,001032: 32,3106  E5,1774                                  EBANK=   END-E5                                
035076,001033: 
035077,001034: 32,3106           22157                           LXCH     MPAC       +3                         
035078,001035: 32,3107           31476                           CA       AHZLIM                                
035079,001036: 32,3110           04616                           TC       BANKCALL                              
035080,001037: 32,3111           61712                           FCADR    LIMITSUB                              
035081,001038: 32,3112           54157                           TS       MPAC       +3                         #  Y COMPONENT LIMITED TO AHZLIM
035082,001039: 
035083,001040: 32,3113           22161                           LXCH     MPAC       +5                         
035084,001041: 32,3114           31476                           CA       AHZLIM                                
035085,001042: 32,3115           04616                           TC       BANKCALL                              
035086,001043: 32,3116           61712                           FCADR    LIMITSUB                              
035087,001044: 32,3117           54161                           TS       MPAC       +5                         #  Z COMPONENT LIMITED TO AHZLIM
035088,001045: 
035089,001046: 32,3120           35016                           CA       EBANK7                                
035090,001047: 32,3121           54003                           TS       EBANK                                 
035091,001048: 32,3122  E7,1777                                  EBANK=   END-E7                                
035092,001049: 
035093,001050: 32,3122           30121                           CA       OVFIND                                #  OVERFLOW?
035094,001051: 32,3123           00006                           EXTEND                                         
035095,001052: 32,3124           13130                           BZF      ENGARM?                               #  N: KEEP CHECKING
035096,001053: 32,3125           04616                           TC       BANKCALL                              #  Y: TAKE REMEDIAL ACTION
035097,001054: 32,3126           63734                           FCADR    OVFDESC                               #     AND
035098,001055: 32,3127           13157                           TCF      P66VERT                               #     SKIP ISSUANCE OF HZ CMDS
035099,001056: 

Page 816

035101,001058: 32,3130           34751        ENGARM?            CA       BIT3                                  #  IS ENGINE ARM SWITCH STILL ON?
035102,001059: 32,3131           00006                           EXTEND                                         
035103,001060: 32,3132           02030                           RAND     CHAN30                                
035104,001061: 32,3133           00006                           EXTEND                                         
035105,001062: 32,3134           13141                           BZF      CDUWHZ                                #  Y: ISSUE HZ CMDS
035106,001063: 
035107,001064: 32,3135           30074                           CA       FLAGWRD0                              #  N: HAVE WE PROCEEDED AFTER TOUCHDOWN?
035108,001065: 32,3136           74753                           MASK     P66PROBT                              
035109,001066: 32,3137           00006                           EXTEND                                         
035110,001067: 32,3140           13147                           BZF      ASTROPRO                              #  Y: PREVENT RCS FIRINGS
035111,001068: 32,3141           06042        CDUWHZ             TC       INTPRET                               #  N: ISSUE HZ CMDS
035112,001069: 32,3142           03253                           STORE    UNFC/2                                #  MUST STORE FOR SUCCEEDING PASS
035113,001070: 32,3143           77624                           CALL                                           
035114,001071: 32,3144           61074                                    FINDCDUW                              
035115,001072: 32,3145           77776                           EXIT                                           
035116,001073: 
035117,001074: 32,3146           13157                           TCF      P66VERT                               
035118,001075: 
035119,001076: 32,3147           33414        ASTROPRO           CA       IDLADR                                #  Y: PREVENT RCS JET FIRINGS
035120,001077: 32,3150           55263                           TS       T5ADR                                 #     AND
035121,001078: 32,3151           13157                           TCF      P66VERT                               #     SKIP HZ CMDS, BUT CONTINUE DISPLAYS
035122,001079: 
035123,001080:                                                                                                  #  ***************************************************************************************************************
035124,001081:                                                                                                  #  P66 VERTICAL CHANNEL
035125,001082:                                                                                                  #  ***************************************************************************************************************
035126,001083: 
035127,001084: 32,3152           37713        RODTASK            CA       PRIO22                                #  BUMPS ALL OF SERVICER JOB EXCEPT RODCOMP
035128,001085: 32,3153           05105                           TC       FINDVAC                               
035129,001086: 32,3154  E7,1515                                  EBANK=   DVCNTR                                
035130,001087: 32,3154           03162 64067                     2CADR    RODCOMP                               
035131,001088: 32,3156           15272                           TCF      TASKOVER                              
035132,001089: 
035133,001090: 32,3157           34777        P66VERT            CA       1SEC                                  
035134,001091: 32,3160           05204                           TC       TWIDDLE                               
035135,001092: 32,3161           03152                           ADRES    RODTASK                               
035136,001093: 
035137,001094: 32,3162           37714        RODCOMP            CA       PRIO23                                #  LET ONLY ONE JOB THRU RODCOMP AT A TIME
035138,001095: 32,3163           05146                           TC       PRIOCHNG                              
035139,001096: 
035140,001097: 32,3164           00004                           INHINT                                         
035141,001098: 
035142,001099: 32,3165           34755                           CAF      ZERO                                  
035143,001100: 32,3166           57746                           XCH      RODCOUNT                              
035144,001101: 32,3167           00006                           EXTEND                                         
035145,001102: 32,3170           71756                           MP       RODSCAL1                              
035146,001103: 32,3171           21645                           DAS      VDGVERT                               #  UPDATE DESTRED ALTITUDE RATE.
035147,001104: 
035148,001105: 32,3172           34747                           CAF      BIT5                                  #  ARE WE IN AUTO THROTTLE?
035149,001106: 32,3173           00006                           EXTEND                                         
035150,001107: 32,3174           02030                           RAND     CHAN30                                
035151,001108: 32,3175           00006                           EXTEND                                         
035152,001109: 32,3176           13202                           BZF      RODCOMPA                              #  Y: CONTINUE ROD
035153,001110: 
035154,001111: 32,3177           00006                           EXTEND                                         #  N: RESET VDGVERT TO CURRENT HDOT
035155,001112: 32,3200           31474                           DCA      HDOTDISP                              
035156,001113: 32,3201           53645                           DXCH     VDGVERT                               
035157,001114: 
035158,001115:                                                                                                  #  READ THE PIPAS FOR P66
035159,001116: 
035160,001117: 32,3202           00006        RODCOMPA           EXTEND                                         
035161,001118: 32,3203           30040                           DCA      PIPAX                                 
035162,001119: 32,3204           53764                           DXCH     OLDPIPAX                              #  CURRENT PIPA READINGS INTO OLDPIPAX,Y,Z
035163,001120: 32,3205           52071                           DXCH     RUPTREG1                              #  SAVE PRIOR READINGS IN RUPTREG1,2,3
035164,001121: 32,3206           30041                           CA       PIPAZ                                 
035165,001122: 32,3207           57765                           XCH      OLDPIPAZ                              
035166,001123: 32,3210           56072                           XCH      RUPTREG3                              
035167,001124: 
035168,001125: 32,3211           00006                           EXTEND                                         #  SNAPSHOT TIME OF PIPA READING.
035169,001126: 32,3212           30025                           DCA      TIME2                                 
035170,001127: 32,3213           53762                           DXCH     THISTPIP                              
035171,001128: 
035172,001129: 32,3214           31763                           CA       OLDPIPAX                              
035173,001130: 32,3215           61157                           AD       PIPATMPX                              
035174,001131: 32,3216           54154                           TS       MPAC                                  #  MPAC(X) = PIPAX + PIPATMPX
035175,001132: 32,3217           31764                           CA       OLDPIPAY                              
035176,001133: 32,3220           61160                           AD       PIPATMPY                              
035177,001134: 32,3221           54157                           TS       MPAC       +3                         #  MPAC(Y) = PIPAY + PIPATMPY
035178,001135: 32,3222           31765                           CA       OLDPIPAZ                              
035179,001136: 32,3223           61161                           AD       PIPATMPZ                              
035180,001137: 32,3224           54161                           TS       MPAC       +5                         #  MPAC(Z) = PIPAZ + PIPATMPZ
035181,001138: 
035182,001139:                                                                                                  #  COMPUTE DELV SINCE THE LAST P66 PASS
035183,001140: 
035184,001141: 32,3225           41763                           CS       OLDPIPAX                              #  - CURRENT P66 PIPA
035185,001142: 32,3226           61253                           AD       TEMX                                  #  - PIPA BY PIPASR IF INTERVENING, ELSE 0
035186,001143: 32,3227           60070                           AD       RUPTREG1                              #  + PIPA BY P66 ON THE LAST P66 PASS
035187,001144: 32,3230           55766                           TS       DELVROD                               #  = -DELV SINCE LAST P66 PASS, 2(14)CM/SEC
035188,001145: 32,3231           41764                           CS       OLDPIPAY                              
035189,001146: 32,3232           61254                           AD       TEMY                                  
035190,001147: 32,3233           60071                           AD       RUPTREG2                              
035191,001148: 

Page 818

035193,001150: 32,3234           55770                           TS       DELVROD    +2                         
035194,001151: 32,3235           41765                           CS       OLDPIPAZ                              
035195,001152: 32,3236           61255                           AD       TEMZ                                  
035196,001153: 32,3237           60072                           AD       RUPTREG3                              
035197,001154: 32,3240           55772                           TS       DELVROD    +4                         
035198,001155: 
035199,001156: 32,3241           34755                           CAF      ZERO                                  
035200,001157: 32,3242           54155                           TS       MPAC       +1                         #  ZERO LO-ORDER MPAC COMPONENTS
035201,001158: 32,3243           54160                           TS       MPAC       +4                         
035202,001159: 32,3244           54162                           TS       MPAC       +6                         
035203,001160: 32,3245           55253                           TS       TEMX                                  #  ZERO TEMX, TEMY, AND TEMZ SO WE WILL
035204,001161: 32,3246           55254                           TS       TEMY                                  #        KNOW WHEN READACCS CHANGES THEM.
035205,001162: 32,3247           55255                           TS       TEMZ                                  
035206,001163: 32,3250           44753                           CS       ONE                                   
035207,001164: 32,3251           54163                           TS       MODE                                  
035208,001165: 
035209,001166: 32,3252           06042                           TC       INTPRET                               
035210,001167: 32,3253           65361        ITRPNT1            VXSC     PDDL                                  #  SCALE MPAC TO M/CS *2(-7) AND PUSH   (6)
035211,001168: 32,3254           26074                                    KPIP1                                 
035212,001169: 32,3255           03762                                    THISTPIP                              
035213,001170: 32,3256           77625                           DSU                                            
035214,001171: 32,3257           01234                                    PIPTIME                               
035215,001172: 32,3260           00037                           STORE    30D                                   #  30-31D CONTAINS TIME IN CS SINCE PIPTIME
035216,001173: 32,3261           63271                           DDV      PDVL                                  #                                       (8)
035217,001174: 32,3262           27020                                    4SEC(28)                              
035218,001175: 32,3263           01236                                    GDT/2                                 
035219,001176: 32,3264           74251                           VSU      VXSC                                  #                                       (6)
035220,001177: 32,3265           02616                                    VBIAS                                 
035221,001178: 32,3266           53352                           VSL2     VAD                                   
035222,001179: 32,3267           03527                                    V                                     
035223,001180: 32,3270           45455                           VAD      STADR                                 #                                       (0)
035224,001181: 32,3271           53746                           STOVL    24D                                   #  STORE UPDATED VELOCITY IN 24-29D
035225,001182: 32,3272           03521                                    R                                     
035226,001183: 32,3273           77656                           UNIT                                           
035227,001184: 32,3274           00017                           STORE    14D                                   
035228,001185: 32,3275           72441                           DOT      SL1                                   
035229,001186: 32,3276           00031                                    24D                                   
035230,001187: 32,3277           17474                           STODL    HDOTDISP                              #  UPDATE ALTITUDE RATE FOR NOUN 60
035231,001188: 32,3300           00037                                    30D                                   
035232,001189: 32,3301           41261                           SL       DMP                                   
035233,001190: 32,3302           20214                                    11D                                   
035234,001191: 32,3303           03474                                    HDOTDISP                              
035235,001192: 32,3304           45215                           DAD      DSU                                   
035236,001193: 32,3305           00045                                    36D                                   
035237,001194: 32,3306           02301                                    /LAND/                                
035238,001195: 32,3307           17775                           STODL    HCALC1                                #  UPDATE ALTITUDE FOR NOUN 60

Page 819

035240,001197: 32,3310           03474                                    HDOTDISP                              
035241,001198: 32,3311           56221                           BDSU     DDV                                   
035242,001199: 32,3312           03645                                    VDGVERT                               
035243,001200: 32,3313           02536                                    TAUROD                                
035244,001201: 32,3314           51515                           PDVL     ABVAL                                 #                                       (2)
035245,001202: 32,3315           01236                                    GDT/2                                 
035246,001203: 32,3316           60471                           DDV      SR2                                   
035247,001204: 32,3317           05652                                    GSCALE                                
035248,001205: 32,3320           00025                           STORE    20D                                   
035249,001206: 32,3321           43234                           RTB      DAD                                   #                                       (0)
035250,001207: 32,3322           47613                                    QTPROLOG                              #  QUICTRIG PRESERVES MPAC
035251,001208: 32,3323           45115                           PDVL     CALL                                  #                                       (2)
035252,001209: 32,3324           06516                                    UNITX                                 #  X AXIS IN NB COORDS
035253,001210: 32,3325           47700                                    *NBSM*                                #  TRANSFORMS TO SM COORDS
035254,001211: 32,3326           77641                           DOT                                            
035255,001212: 32,3327           00017                                    14D                                   
035256,001213: 32,3330           00027                           STORE    22D                                   
035257,001214: 32,3331           45465                           BDDV     STADR                                 #                                       (0)
035258,001215: 32,3332           50313                           STOVL    /AFC/                                 
035259,001216: 32,3333           03767                                    DELVROD                               
035260,001217: 32,3334           53361                           VXSC     VAD                                   
035261,001218: 32,3335           26074                                    KPIP1                                 
035262,001219: 32,3336           02616                                    VBIAS                                 
035263,001220: 32,3337           65246                           ABVAL    PDDL                                  #                                       (2)
035264,001221: 32,3340           03762                                    THISTPIP                              
035265,001222: 32,3341           65225                           DSU      PDDL                                  #                                       (4)
035266,001223: 32,3342           03760                                    LASTTPIP                              
035267,001224: 32,3343           03762                                    THISTPIP                              
035268,001225: 32,3344           17760                           STODL    LASTTPIP                              #                                        (2)
035269,001226: 32,3345           55271                           DDV      BDDV                                  #                                        (0)
035270,001227: 32,3346           25420                                    SHFTFACT                              
035271,001228: 32,3347           41325                           PDDL     DMP                                   #                                        (2)
035272,001229: 32,3350           03611                                    FWEIGHT                               
035273,001230: 32,3351           25417                                    BIT1H                                 
035274,001231: 32,3352           56271                           DDV      DDV                                   
035275,001232: 32,3353           01244                                    MASS                                  
035276,001233: 32,3354           22006                                    SCALEFAC                              
035277,001234: 32,3355           65215                           DAD      PDDL                                  #                                        (4)
035278,001235: 32,3356           00001                                    0D                                    
035279,001236: 32,3357           00025                                    20D                                   
035280,001237: 32,3360           45271                           DDV      DSU                                   #                                        (2)
035281,001238: 32,3361           00027                                    22D                                   
035282,001239: 

Page 820

035284,001241: 32,3362           43205                           DMP      DAD                                   
035285,001242: 32,3363           02540                                    LAG/TAU                               
035286,001243: 32,3364           03464                                    /AFC/                                 
035287,001244: 32,3365           56325                           PDDL     DDV                                   #                                        (4)
035288,001245: 32,3366           02544                                    MAXFORCE                              
035289,001246: 32,3367           01244                                    MASS                                  
035290,001247: 32,3370           56325                           PDDL     DDV                                   #                                        (6)
035291,001248: 32,3371           02542                                    MINFORCE                              
035292,001249: 32,3372           01244                                    MASS                                  
035293,001250: 32,3373           44206                           PUSH     BDSU                                  #                                        (8)
035294,001251: 32,3374           00003                                    2D                                    
035295,001252: 32,3375           71240                           BMN      DLOAD                                 #                                        (6)
035296,001253: 32,3376           65404                                    AFCSPOT                               
035297,001254: 32,3377           41545                           DLOAD    PUSH                                  #                                        (6)
035298,001255: 32,3400           51021                           BDSU     BPL                                   
035299,001256: 32,3401           00003                                    2D                                    
035300,001257: 32,3402           65404                                    AFCSPOT                               
035301,001258: 32,3403           77745                           DLOAD                                          #                                        (4)
035302,001259: 32,3404           77745        AFCSPOT            DLOAD                                          #                             (2),(4),OR (6)
035303,001260: 32,3405           77601                           SETPD                                          #                                        (2)
035304,001261: 32,3406           00003                                    2D                                    
035305,001262: 32,3407           17464                           STODL    /AFC/                                 #                                        (0)
035306,001263: 32,3410           77776        ITRPNT2            EXIT                                           
035307,001264: 32,3411           52155                           DXCH     MPAC                                  #  MPAC = MEASURED ACCELERATION.
035308,001265: 32,3412           04635                           TC       POSTJUMP                              
035309,001266: 32,3413           63512                           FCADR    THROT66                               
035310,001267: 

Page 821

035312,001269:                                                                                                  #  CONSTANTS FOR P66
035313,001270: 
035314,001271: 32,3414           02024        IDLADR             GENADR   DAPIDLER                              
035315,001272: 32,3415           00053        GHZ                DEC      1.62292    E-4        B+4             #  GRAVITY IN 2(-4)M/CS/CS
035316,001273: 
035317,001274: 32,3416           00001        BIT1H              OCT      00001                                 #  MUST PRECEDE A ZERO
035318,001275: 32,3417           00000 04000  SHFTFACT           2DEC     1          B-17                       #  SCALES P66 PERIOD TO 2(1))CS
035319,001276: 32,3421           00000 05075  BIASFACT           2DEC     655.36     B-26                       
035320,001277: 

Page 822

035322,001279:                                                                                                  #  ****************************************************************************************************************
035323,001280:                                                                                                  #  REDESIGNATOR TRAP
035324,001281:                                                                                                  #  ****************************************************************************************************************
035325,001282: 
035326,001283:                                                                                                  #  END INSERT
035327,001284: 11,2302                                           BANK     11                                    
035328,001285: 11,2000                                           SETLOC   F2DPS*11                              
035329,001286: 11,2000                                           BANK                                           
035330,001287: 
035331,001288: 11,2302                                           COUNT*   $$/F2DPS                              
035332,001289: 
035333,001290: 11,2302           56016        PITFALL            XCH      BANKRUPT                              
035334,001291: 11,2303           00006                           EXTEND                                         
035335,001292: 11,2304           22012                           QXCH     QRUPT                                 
035336,001293: 
035337,001294: 11,2305           05332                           TC       CHECKMM                               #  IF NOT IN P64, NO REASON TO CONTINUE
035338,001295: 11,2306           00100                           DEC      64         B-14                       
035339,001296: 11,2307           15301                           TCF      RESUME                                
035340,001297: 
035341,001298: 11,2310           00006                           EXTEND                                         
035342,001299: 11,2311           00031                           READ     CHAN31                                
035343,001300: 11,2312           40000                           COM                                            
035344,001301: 11,2313           72401                           MASK     ALL4BITS                              
035345,001302: 11,2314           55647                           TS       ELVIRA                                
035346,001303: 11,2315           34752                           CAF      TWO                                   
035347,001304: 11,2316           55646                           TS       ZERLINA                               
035348,001305: 11,2317           34756                           CAF      FIVE                                  
035349,001306: 11,2320           05204                           TC       TWIDDLE                               
035350,001307: 11,2321           02326                           ADRES    REDESMON                              
035351,001308: 11,2322           15301                           TCF      RESUME                                
035352,001309: 
035353,001310: 
035354,001311:                                                                                                  #  REDESIGNATION MONITOR (INITIATED BY PITFALL)
035355,001312: 
035356,001313: 
035357,001314: 11,2323           55646        PREMON1            TS       ZERLINA                               
035358,001315: 11,2324           34757        PREMON2            CAF      SEVEN                                 
035359,001316: 11,2325           05235                           TC       VARDELAY                              
035360,001317: 11,2326           00006        REDESMON           EXTEND                                         
035361,001318: 11,2327           00031                           READ     31                                    
035362,001319: 11,2330           40000                           COM                                            
035363,001320: 11,2331           72401                           MASK     ALL4BITS                              
035364,001321: 11,2332           57647                           XCH      ELVIRA                                
035365,001322: 11,2333           54001                           TS       L                                     
035366,001323: 11,2334           11647                           CCS      ELVIRA                                #  DO ANY BITS APPEAR THIS PASS?
035367,001324: 11,2335           12324                           TCF      PREMON2                               #    Y: CONTINUE MONITOR
035368,001325: 
035369,001326: 11,2336           10001                           CCS      L                                     #    N: ANY LAST PASS?
035370,001327: 11,2337           12347                           TCF      COUNT'EM                              #       Y: COUNT 'EM, RESET RUPT, TERMINATE
035371,001328: 11,2340           11646                           CCS      ZERLINA                               #       N: HAS ZERLINA REACHED ZERO YET?
035372,001329: 

Page 823

035374,001331: 11,2341           12323                           TCF      PREMON1                               #       N: DIMINISH ZERLINA, CONTINUE
035375,001332: 11,2342           06022        RESETRPT           TC       C13STALL                              #       Y: RESET RUPT, TERMINATE
035376,001333: 11,2343           34740                           CAF      BIT12                                 
035377,001334: 11,2344           00006                           EXTEND                                         
035378,001335: 11,2345           05013                           WOR      CHAN13                                
035379,001336: 11,2346           15272                           TCF      TASKOVER                              
035380,001337: 
035381,001338: 11,2347           34737        COUNT'EM           CAF      BIT13                                 #  ARE WE IN ATTITUDE-HOLD?
035382,001339: 11,2350           00006                           EXTEND                                         
035383,001340: 11,2351           02031                           RAND     CHAN31                                
035384,001341: 11,2352           00006                           EXTEND                                         
035385,001342: 11,2353           12342                           BZF      RESETRPT                              #  YES: SKIP REDESIGNATION LOGIC.
035386,001343: 
035387,001344: 11,2354           30001                           CA       L                                     #  NO
035388,001345: 11,2355           74746                           MASK     -AZBIT                                
035389,001346: 11,2356           10000                           CCS      A                                     
035390,001347: 11,2357           42402        -AZ                CS       AZEACH                                
035391,001348: 11,2360           27644                           ADS      AZINCR1                               
035392,001349: 11,2361           30001                           CA       L                                     
035393,001350: 11,2362           74747                           MASK     +AZBIT                                
035394,001351: 11,2363           10000                           CCS      A                                     
035395,001352: 11,2364           32402        +AZ                CA       AZEACH                                
035396,001353: 11,2365           27644                           ADS      AZINCR1                               
035397,001354: 11,2366           30001                           CA       L                                     
035398,001355: 11,2367           74753                           MASK     -ELBIT                                
035399,001356: 11,2370           10000                           CCS      A                                     
035400,001357: 11,2371           42403        -EL                CS       ELEACH                                
035401,001358: 11,2372           27645                           ADS      ELINCR1                               
035402,001359: 11,2373           30001                           CA       L                                     
035403,001360: 11,2374           74752                           MASK     +ELBIT                                
035404,001361: 11,2375           10000                           CCS      A                                     
035405,001362: 11,2376           32403        +EL                CA       ELEACH                                
035406,001363: 11,2377           27645                           ADS      ELINCR1                               
035407,001364: 11,2400           12342                           TCF      RESETRPT                              
035408,001365: 
035409,001366:                                                                                                  #  THESE EQUIVALENCIES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM
035410,001367: 
035411,001368: 11,2401     4752               +ELBIT             =        BIT2                                  #  -PITCH
035412,001369: 
035413,001370: 
035414,001371: 11,2401     4753               -ELBIT             =        BIT1                                  #  +PITCH
035415,001372: 
035416,001373: 
035417,001374: 11,2401     4747               +AZBIT             =        BIT5                                  
035418,001375: 
035419,001376: 
035420,001377: 11,2401     4746               -AZBIT             =        BIT6                                  
035421,001378: 

Page 824

035423,001380: 
035424,001381: 11,2401           00063        ALL4BITS           OCT      00063                                 
035425,001382: 
035426,001383: 
035427,001384: 11,2402           01074        AZEACH             DEC      .03491                                #  2 DEGREES
035428,001385: 
035429,001386: 
035430,001387: 11,2403           00217        ELEACH             DEC      .00873                                #  1/2 DEGREE
035431,001388: 
035432,001389:                                                                                                  #  ****************************************************************************************************************
035433,001390:                                                                                                  #  R.O.D. TRAP
035434,001391:                                                                                                  #  ************************************************************************
035435,001392: 
035436,001393: 23,2000                                           SETLOC   RODTRAP                               
035437,001394: 23,2000                                           BANK                                           
035438,001395: 23,2451                                           COUNT*   $$/F2DPS                              #  ****************************************
035439,001396: 
035440,001397: 23,2451           74745        DESCBITS           MASK     BIT7                                  #  COME HERE FROM MARKRUPT CODING WITH BIT
035441,001398: 23,2452           10000                           CCS      A                                     #    7 OR 6 OF CHANNEL 16 IN A: BIT 7 MEANS
035442,001399: 23,2453           44752                           CS       TWO                                   #    - RATE INCREMENT, BIT 6 + INCREMENT
035443,001400: 23,2454           64753                           AD       ONE                                   
035444,001401: 23,2455           27746                           ADS      RODCOUNT                              
035445,001402: 23,2456           15301                           TCF      RESUME                                #  TRAP IS RESET WHEN SWITCH IS RELEASED
035446,001403: 
035447,001404: 
035448,001405: 31,3543                                           BANK     31                                    
035449,001406: 31,2000                                           SETLOC   F2DPS*31                              
035450,001407: 31,2000                                           BANK                                           
035451,001408: 
035452,001409: 31,3543                                           COUNT*   $$/F2DPS                              
035453,001410: 
035454,001411:                                                                                                  #  ****************************************************************************************************************
035455,001412:                                                                                                  #  DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)
035456,001413:                                                                                                  #  ****************************************************************************************************************
035457,001414: 
035458,001415:                                                                                                  #                                                          N        N-1
035459,001416:                                                                                                  #           ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A
035460,001417:                                                                                                  #                                                        N      N-1              1     0
035461,001418: 
035462,001419:                                                                                                  #  USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:
035463,001420: 
035464,001421:                                                                                                  #                                          A        SP     LOC-3            ADRES FOR REFERENCING PWR COF TABL
035465,001422:                                                                                                  #                                          L        SP     N-1              N IS THE DEGREE OF THE POWER SERIES
035466,001423:                                                                                                  #                                          MPAC     DP     X                INITIAL GUESS FOR ROOT
035467,001424: 
035468,001425:                                                                                                  #                                          LOC-2N   DP     A(0)
035469,001426:                                                                                                  #                                                   ...
035470,001427:                                                                                                  #                                          LOC      DP     A(N)
035471,001428:                                                                                                  #                                          LOC+2    SP     PRECROOT         PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)
035472,001429: 
035473,001430:                                                                                                  #  THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.
035474,001431:                                                                                                  #  RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.   IF ROOTPSRS FAILS TO CONVERGE IN 8 PASSES, RETURN IS TO LOC+1 AND
035475,001432:                                                                                                  #  OUTPUTS ARE NOT TO BE TRUSTED.
035476,001433: 
035477,001434:                                                                                                  #           PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
035478,001435:                                                                                                  #  PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
035479,001436:                                                                                                  #  COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
035480,001437:                                                                                                  #  COEFFICIENT TABLE = 1 OR > 1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
035481,001438:                                                                                                  #  ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
035482,001439: 
035483,001440:                                                                                                  #  1. USER'S RESPONSIBILITY TO ASSURE THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
035484,001441: 
035485,001442:                                                                                                  #  2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
035486,001443:                                                                                                  #     POWER SERIES.   THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
035487,001444:                                                                                                  #     PRECLUDE EVENTUAL CONVERGENCE.
035488,001445: 

Page 825

035490,001447:                                                                                                  #  3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
035491,001448:                                                                                                  #     ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.
035492,001449: 
035493,001450:                                                                                                  #  4. THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.
035494,001451: 
035495,001452:                                                                                                  #  STORE ENTERING DATA, INITLIZE ERASABLES
035496,001453: 
035497,001454: 31,3543           00006        ROOTPSRS           EXTEND                                         
035498,001455: 31,3544           22132                           QXCH     RETROOT                               #  RETURN ADRES
035499,001456: 31,3545           54117                           TS       PWRPTR                                #  PWR TABL POINTER
035500,001457: 31,3546           52160                           DXCH     MPAC       +3                         #  PWR TABL ADRES, N-1
035501,001458: 31,3547           33666                           CA       DERTABLL                              
035502,001459: 31,3550           54141                           TS       DERPTR                                #  DER TABL POINTER
035503,001460: 31,3551           54161                           TS       MPAC       +5                         #  DER TABL ADRES
035504,001461: 31,3552           10160                           CCS      MPAC       +4                         #  NO POWER SERIES OF DEGREE 1 OR LESS
035505,001462: 31,3553           54162                           TS       MPAC       +6                         #  N-2
035506,001463: 31,3554           34755                           CA       ZERO                                  #  MODE USED AS ITERATION COUNTER. MODE
035507,001464: 31,3555           54163                           TS       MODE                                  #  MUST BE POS SO ABS WON'T COMP MPAC+3 ETC
035508,001465: 
035509,001466:                                                                                                  #  COMPUTE CRITERION TO STOP ITERATING
035510,001467: 
035511,001468: 31,3556           00006                           EXTEND                                         
035512,001469: 31,3557           30155                           DCA      MPAC                                  #  FETCH ROOT GUESS, KEEPING IT IN MPAC
035513,001470: 31,3560           52127                           DXCH     ROOTPS                                #  AND IN ROOTPS
035514,001471: 31,3561           50157                           INDEX    MPAC       +3                         #  PWR TABL ADRES
035515,001472: 31,3562           30005                           CA       5                                     #  PRECROOT TO A
035516,001473: 31,3563           07312                           TC       SHORTMP                               #  YIELDS DP PRODUCT IN MPAC
035517,001474: 31,3564           04713                           TC       USPRCADR                              
035518,001475: 31,3565           01226                           CADR     ABS                                   #  YIELDS ABVAL OF CRITERION ON DX IN MPAC
035519,001476: 31,3566           52155                           DXCH     MPAC                                  
035520,001477: 31,3567           52125                           DXCH     DXCRIT                                #  CRITERION
035521,001478: 
035522,001479:                                                                                                  #  SET UP DER COF TABL
035523,001480: 
035524,001481: 31,3570           00006                           EXTEND                                         
035525,001482: 31,3571           50117                           INDEX    PWRPTR                                
035526,001483: 31,3572           30004                           DCA      3                                     
035527,001484: 31,3573           52155                           DXCH     MPAC                                  #  A(N) TO MPAC
035528,001485: 
035529,001486: 31,3574           30160                           CA       MPAC       +4                         #  N-1 TO A
035530,001487: 
035531,001488: 31,3575           54140        DERCLOOP           TS       PWRCNT                                #  LOOP COUNTER
035532,001489: 31,3576           64753                           AD       ONE                                   
035533,001490: 31,3577           07321                           TC       DMPNSUB                               #  YIELDS DERCOF = I X A(I) IN MPAC
035534,001491: 31,3600           00006                           EXTEND                                         
035535,001492: 31,3601           50117                           INDEX    PWRPTR                                
035536,001493: 31,3602           30002                           DCA      1                                     
035537,001494: 31,3603           52155                           DXCH     MPAC                                  #  A(I-1) TO MPAC, FETCHING DERCOF
035538,001495: 31,3604           50141                           INDEX    DERPTR                                
035539,001496: 31,3605           52004                           DXCH     3                                     #  DERCOF TO DER TABL
035540,001497: 

Page 826

035542,001499: 31,3606           44752                           CS       TWO                                   
035543,001500: 31,3607           26117                           ADS      PWRPTR                                #  DECREMENT PWR POINTER
035544,001501: 31,3610           44752                           CS       TWO                                   
035545,001502: 31,3611           26141                           ADS      DERPTR                                #  DECREMENT DER POINTER
035546,001503: 31,3612           10140                           CCS      PWRCNT                                
035547,001504: 31,3613           13575                           TCF      DERCLOOP                              
035548,001505: 
035549,001506:                                                                                                  #  CONVERGE ON ROOT
035550,001507: 
035551,001508: 31,3614           00006        ROOTLOOP           EXTEND                                         
035552,001509: 31,3615           30127                           DCA      ROOTPS                                #  FETCH CURRENT ROOT
035553,001510: 31,3616           52155                           DXCH     MPAC                                  #  LEAVE IN MPAC
035554,001511: 31,3617           00006                           EXTEND                                         
035555,001512: 31,3620           30162                           DCA      MPAC       +5                         #  LOAD A, L WITH DER TABL ADRES, N-2
035556,001513: 31,3621           07220                           TC       POWRSERS                              #  YIELDS DERIVATIVE IN MPAC
035557,001514: 
035558,001515: 31,3622           00006                           EXTEND                                         
035559,001516: 31,3623           30127                           DCA      ROOTPS                                
035560,001517: 31,3624           52155                           DXCH     MPAC                                  #  CURRENT ROOT TO MPAC, FETCHING DERIVTIVE
035561,001518: 31,3625           52131                           DXCH     BUF                                   #  LEAVE DERIVATIVE IN BUF AS DIVISOR
035562,001519: 31,3626           00006                           EXTEND                                         
035563,001520: 31,3627           30160                           DCA      MPAC       +3                         #  LOAD A, L WITH PWR TABL ADRES, N-1
035564,001521: 31,3630           07220                           TC       POWRSERS                              #  YIELDS RESIDUAL IN MPAC
035565,001522: 
035566,001523: 31,3631           04713                           TC       USPRCADR                              
035567,001524: 31,3632           00353                           CADR     DDV/BDDV                              #  YIELDS -DX IN MPAC
035568,001525: 
035569,001526: 31,3633           00006                           EXTEND                                         
035570,001527: 31,3634           40155                           DCS      MPAC                                  #  FETCH DX, LEAVING -DX IN MPAC
035571,001528: 31,3635           20127                           DAS      ROOTPS                                #  CORRECTED ROOT NOW IN ROOTPS
035572,001529: 
035573,001530: 31,3636           04713                           TC       USPRCADR                              
035574,001531: 31,3637           01226                           CADR     ABS                                   #  YIELDS ABS(DX) IN MPAC
035575,001532: 31,3640           00006                           EXTEND                                         
035576,001533: 31,3641           40125                           DCS      DXCRIT                                
035577,001534: 31,3642           20155                           DAS      MPAC                                  #  ABS(DX)-ABS(DXCRIT) IN MPAC
035578,001535: 
035579,001536: 31,3643           30163                           CA       MODE                                  
035580,001537: 31,3644           74750                           MASK     BIT4                                  #  KLUMPP SAYS GIVE UP AFTER EIGHT PASSES
035581,001538: 31,3645           10000                           CCS      A                                     
035582,001539: 31,3646           00132        BADROOT            TC       RETROOT                               
035583,001540: 
035584,001541: 31,3647           24163                           INCR     MODE                                  #  INCREMENT ITERATION COUNTER
035585,001542: 31,3650           10154                           CCS      MPAC                                  #  TEST HI ORDER DX
035586,001543: 31,3651           13614                           TCF      ROOTLOOP                              
035587,001544: 31,3652           13654                           TCF      TESTLODX                              
035588,001545: 31,3653           13660                           TCF      ROOTSTOR                              
035589,001546: 31,3654           10155        TESTLODX           CCS      MPAC       +1                         #  TEST LO ORDER DX
035590,001547: 31,3655           13614                           TCF      ROOTLOOP                              
035591,001548: 31,3656           13660                           TCF      ROOTSTOR                              
035592,001549: 

Page 827

035594,001551: 31,3657           13660                           TCF      ROOTSTOR                              
035595,001552: 31,3660           52127        ROOTSTOR           DXCH     ROOTPS                                
035596,001553: 31,3661           52155                           DXCH     MPAC                                  
035597,001554: 31,3662           30163                           CA       MODE                                  
035598,001555: 31,3663           54156                           TS       MPAC       +2                         #  STORE SP ITERATION COUNT IN MPAC+2
035599,001556: 31,3664           50132                           INDEX    RETROOT                               
035600,001557: 31,3665           10002                           TCF      2                                     
035601,001558: 
035602,001559: 31,3666           00147        DERTABLL           ADRES    DERCOFN    -3                         
035603,001560: 
035604,001561: 
035605,001562:                                                                                                  #  ****************************************************************************************************************
035606,001563:                                                                                                  #  TRASHY LITTLE SUBROUTINES
035607,001564:                                                                                                  #  ****************************************************************************************************************
035608,001565: 
035609,001566: 31,3667           34755        ZEROMID            CAF      ZERO                                  #  ROUTINE TO ZERO THE MIDDLE COMPONENT
035610,001567: 31,3670           54157                           TS       MPAC       +3                         #    OF A VECTOR IN MPAC.   "TCF DANZIG"
035611,001568: 31,3671           54160                           TS       MPAC       +4                         #    COULD BE A "TC Q" AT THE EXPENSE OF
035612,001569: 31,3672           16064                           TCF      DANZIG                                #    A TINY AMOUNT OF TIME.
035613,001570: 
035614,001571: 
035615,001572: 31,3673           51346        INTPRETX           INDEX    WCHPHASE                              #  SET X1 ON THE WAY TO THE INTERPRETER
035616,001573: 31,3674           42415                           CS       TARGTDEX                              
035617,001574: 31,3675           50120                           INDEX    FIXLOC                                
035618,001575: 31,3676           54046                           TS       X1                                    
035619,001576: 31,3677           16042                           TCF      INTPRET                               
035620,001577: 
035621,001578: 31,3700           31642        TDISPSET           CA       TTF/8                                 
035622,001579: 31,3701           00006                           EXTEND                                         
035623,001580: 31,3702           74750                           MP       TSCALINV                              
035624,001581: 31,3703           53476                           DXCH     TTFDISP                               
035625,001582: 
035626,001583: 31,3704           35014                           CA       EBANK5                                #  TREDES BECOMES ZERO TWO PASSES
035627,001584: 31,3705           54003                           TS       EBANK                                 #    BEFORE TCGFAPPR IS REACHED
035628,001585: 31,3706  E5,1454                                  EBANK=   TCGFAPPR                              
035629,001586: 31,3706           31454                           CA       TCGFAPPR                              
035630,001587: 31,3707           24006                           INCR     BBANK                                 
035631,001588: 31,3710           24006                           INCR     BBANK                                 
035632,001589: 31,3711  E7,1642                                  EBANK=   TTF/8                                 
035633,001590: 31,3711           61642                           AD       TTF/8                                 
035634,001591: 31,3712           00006                           EXTEND                                         
035635,001592: 31,3713           73761                           MP       TREDESCL                              
035636,001593: 31,3714           63756                           AD       -DEC103                               
035637,001594: 31,3715           64735                           AD       NEGMAX                                
035638,001595: 31,3716           54001                           TS       L                                     
035639,001596: 31,3717           40001                           CS       L                                     
035640,001597: 31,3720           60001                           AD       L                                     
035641,001598: 31,3721           63760                           AD       +DEC99                                
035642,001599: 31,3722           64733                           AD       POSMAX                                
035643,001600: 

Page 828

035645,001602: 31,3723           55666                           TS       TREDES                                
035646,001603: 31,3724           41666                           CS       TREDES                                
035647,001604: 31,3725           27666                           ADS      TREDES                                
035648,001605: 31,3726           00002                           TC       Q                                     
035649,001606: 
035650,001607: 
035651,001608: 31,3727           05653        1406POO            TC       POODOO                                
035652,001609: 31,3730           21406                           OCT      21406                                 
035653,001610: 31,3731           05600        1406ALM            TC       ALARM                                 
035654,001611: 31,3732           01406                           OCT      01406                                 
035655,001612: 31,3733           13417                           TCF      RATESTOP                              
035656,001613: 
035657,001614:                                                                                                  #  DESCENT OVERFLOW SUBROUTINE
035658,001615: 31,3734           00006        OVFDESC            EXTEND                                         
035659,001616: 31,3735           23456                           QXCH     OVFRET                                
035660,001617: 
035661,001618: 31,3736           05600                           TC       ALARM                                 
035662,001619: 31,3737           01410                           OCT      01410                                 
035663,001620: 
035664,001621: 31,3740           00004                           INHINT                                         #  MUST USE INHINT, IBNKCALL, RELINT
035665,001622: 31,3741           04674                           TC       IBNKCALL                              #  BECAUSE DAP COULD INTERRUPT STOPRATE AND
035666,001623: 31,3742           40166                           FCADR    STOPRATE                              #  BECAUSE WE COME FROM P66HZ VIA BANKCALL
035667,001624: 31,3743           00003                           RELINT                                         
035668,001625: 
035669,001626: 31,3744           34755                           CA       ZERO                                  
035670,001627: 31,3745           54121                           TS       OVFIND                                
035671,001628: 
035672,001629: 31,3746           01456                           TC       OVFRET                                
035673,001630: 

Page 829

035675,001632: 
035676,001633:                                                                                                  #  ****************************************************************************************************************
035677,001634:                                                                                                  #  SPECIALIZED "PHASCHNG" SUBROUTINE
035678,001635:                                                                                                  #  ****************************************************************************************************************
035679,001636: 
035680,001637: 31,3747  E3,1440                                  EBANK=   PHSNAME2                              
035681,001638: 31,3747           35007        FASTCHNG           CA       EBANK3                                #  SPECIALIZED 'PHASCHNG' ROUTINE
035682,001639: 31,3750           56003                           XCH      EBANK                                 
035683,001640: 31,3751           52002                           DXCH     L                                     
035684,001641: 31,3752           55442                           TS       PHSNAME3                              
035685,001642: 31,3753           22003                           LXCH     EBANK                                 
035686,001643: 31,3754  E7,1621                                  EBANK=   E2DPS                                 
035687,001644: 31,3754           00000                           TC       A                                     
035688,001645: 
035689,001646:                                                                                                  #  ****************************************************************************************************************
035690,001647:                                                                                                  #  PARAMETER TABLE INDIRECT ADDRESSES
035691,001648:                                                                                                  #  ****************************************************************************************************************
035692,001649: 
035693,001650: 31,3755  E5,1402               RDG                =        RBRFGX                                
035694,001651: 31,3755  E5,1412               VDG                =        VBRFGX                                
035695,001652: 31,3755  E5,1422               ADG                =        ABRFGX                                
035696,001653: 31,3755  E5,1432               VDG2TTF            =        VBRFG*                                
035697,001654: 31,3755  E5,1436               ADG2TTF            =        ABRFG*                                
035698,001655: 31,3755  E5,1442               JDG2TTF            =        JBRFG*                                
035699,001656: 
035700,001657:                                                                                                  #  ****************************************************************************************************************
035701,001658:                                                                                                  #  LUNAR LANDING CONSTANTS
035702,001659:                                                                                                  #  ***************************************************************************************************************
035703,001660: 
035704,001661: 31,3755           01565        TABLTTFL           ADRES    TABLTTF    +3                         #  ADDRESS FOR REFERENCING TTF TABLE
035705,001662: 
035706,001663: 
035707,001664: 31,3756     4740               TTFSCALE           =        BIT12                                 
035708,001665: 
035709,001666: 
035710,001667: 31,3756     4750               TSCALINV           =        BIT4                                  
035711,001668: 
035712,001669: 
035713,001670: 31,3756           77630        -DEC103            DEC      -103       B-14                       
035714,001671: 
035715,001672: 
035716,001673: 31,3757           00155        P64DB              OCT      00155                                 #  0.3 DEGREES SCALED AT CDU SCALING
035717,001674: 
035718,001675: 
035719,001676: 31,3760           00143        +DEC99             DEC      +99        B-14                       
035720,001677: 
035721,001678: 
035722,001679: 31,3761           75340        TREDESCL           DEC      -.08                                  
035723,001680: 

Page 830

035725,001682: 31,3762           00264        180DEGS            DEC      +180       B-14                       
035726,001683: 
035727,001684: 
035728,001685: 31,3763           00056        1/2DEG             DEC      +.00278                               
035729,001686: 
035730,001687: 
035731,001688: 31,3764           01542        PROJMAX            DEC      .42262     B-3                        #  SIN(25')/8 TO COMPARE WITH PROJ
035732,001689: 
035733,001690: 
035734,001691: 31,3765           01022        PROJMIN            DEC      .25882     B-3                        #  SIN(15')/8 TO COMPARE WITH PROJ
035735,001692: 
035736,001693: 
035737,001694: 31,3766           01477        V06N63             VN       0663                                  #  P63
035738,001695: 
035739,001696: 31,3767           01500        V06N64             VN       0664                                  #  P64
035740,001697: 
035741,001698: 31,3770           01474        V06N60             VN       0660                                  #  P65, P66, P67
035742,001699: 
035743,001700: 
035744,001701: 22,3647                                           BANK     22                                    
035745,001702: 22,2000                                           SETLOC   LANDCNST                              
035746,001703: 22,2000                                           BANK                                           
035747,001704: 22,3647                                           COUNT*   $$/F2DPS                              
035748,001705: 
035749,001706: 22,3647           00021 14161  HIGHESTF           2DEC     4.34546769 B-12                       
035750,001707: 22,3651           01440 00000  GSCALE             2DEC     100        B-11                       
035751,001708: 22,3653           14000 00000  3/8DP              2DEC     .375                                  
035752,001709: 22,3655           30000 00000  3/4DP              2DEC     .750                                  
035753,001710: 22,3657           77534 45074  DEPRCRIT           2DEC     -.02       B-1                        
035754,001711:                                                                                                  #  ****************************************************************************************************************
035755,001712:                                                                                                  #  ****************************************************************************************************************

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