Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

037603,000002:                                                                                                  ## Copyright:   Public domain.
037604,000003:                                                                                                  ## Filename:    REENTRY_CONTROL.agc
037605,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
037606,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
037607,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
037608,000007:                                                                                                  ##              Apollo 15-17.
037609,000008:                                                                                                  ## Assembler:   yaYUL
037610,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
037611,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037612,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
037613,000012:                                                                                                  ## Mod history: 2009-08-17 JL   Adapted from corresponding Comanche 055 file.
037614,000013:                                                                                                  ##              2009-09-03 JL   Fix typo in symbol name.
037615,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
037616,000015:                                                                                                  ##              2010-04-11 JL   Add missing comment character.
037617,000016:                                                                                                  ##              2010-07-15 JL   Fixed indentation.
037618,000017:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
037619,000018:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
037620,000019: 

Page 852

037622,000021: 
037623,000022:                                                                                                  #  ENTRY INITIALIZATION ROUTINE
037624,000023:                                                                                                  #   -----------------------------
037625,000024: 
037626,000025: 25,2000                                           SETLOC   REENTRY                               
037627,000026: 25,2000                                           BANK                                           
037628,000027: 
037629,000028: 25,2000                                           COUNT*   $$/ENTRY                              
037630,000029: 25,2000  E7,1451                                  EBANK=   RTINIT                                
037631,000030: 
037632,000031: 25,2000     0102               CM/FLAGS           EQUALS   STATE      +6                         
037633,000032: 
037634,000033: 25,2000           77776        STARTENT           EXIT                                           #  MM = 63
037635,000034:                                                                                                  #  COME HERE FROM CM/POSE. RESTARTED IN CM/POSE.
037636,000035: 
037637,000036: 25,2001           42113                           CS       ENTMASK                               #  INITIALIZE ALL SWITCHES TO ZERO
037638,000037:                                                                                                  #  EXCEPT LATSW, ENTRYDSP AND GONEPAST.
037639,000038:                                                                                                  #  GONEBY 112D BIT8 FLAG7, SELF INITIALIZING
037640,000039: 25,2002           00004                           INHINT                                         
037641,000040: 25,2003           70102                           MASK     CM/FLAGS                              
037642,000041:                                                                                                  #  ENTRYDSP = 92D B13
037643,000042:                                                                                                  #  GONEPAST=95D B10,  RELVELSW=96D B9
037644,000043:                                                                                                  #  EGSW = 97D B8         NOSWITCH = 98D  B7
037645,000044:                                                                                                  #  HIND=99D B6           INRLSW=100D B5
037646,000045:                                                                                                  #  LATSW=101D B4         .05GSW=102D B3
037647,000046: 
037648,000047: 25,2004           62114                           AD       ENTRYSW                               #  SET ENTRYDSP, LATSW, GONEPAST.
037649,000048: 25,2005           54102                           TS       CM/FLAGS                              
037650,000049: 
037651,000050: 25,2006           00003                           RELINT                                         
037652,000051: 
037653,000052: 25,2007           06006                           TC       INTPRET                               
037654,000053: 
037655,000054: 25,2010           77735                           SLOAD                                          
037656,000055: 25,2011           03011                                    LODPAD                                
037657,000056: 25,2012           03626                           STORE    LOD                                   
037658,000057: 
037659,000058: 25,2013           77735                           SLOAD                                          
037660,000059: 25,2014           03010                                    LADPAD                                
037661,000060: 25,2015           03624                           STORE    LAD                                   
037662,000061: 
037663,000062: 25,2016           77605                           DMP                                            #  L/DCMINR = LAD COS(15)
037664,000063: 25,2017           15324                                    COS15                                 
037665,000064: 25,2020           17630                           STODL    L/DCMINR                              
037666,000065: 25,2021           15151                                    LATSLOPE                              
037667,000066: 25,2022           70405                           DMP      SR1                                   #  KLAT = LAD/24
037668,000067: 25,2023           03624                                    LAD                                   
037669,000068: 25,2024           17632                           STODL    KLAT                                  
037670,000069: 25,2025           15200                                    Q7F                                   
037671,000070: 25,2026           17175                           STODL    Q7                                    #  Q7 = Q7F
037672,000071: 25,2027           15344                                    NEARONE                               #  1.0 -1BIT

Page 853

037674,000073: 25,2030           17614                           STODL    FACTOR                                
037675,000074: 25,2031           03624                                    LAD                                   
037676,000075: 25,2032           57565                           SIGN     DCOMP                                 
037677,000076: 25,2033           03327                                    HEADSUP                               #  MAY BE NOISE FOR DISPLAY P61
037678,000077: 25,2034           37634                           STCALL   L/D                                   #  L/D = - LAD SGN(HEADSUP)
037679,000078: 
037680,000079: 25,2035           52063                                    STARTEN1                              #  RETURN VIA GOTOADDR
037681,000080: 25,2036           47375                           VLOAD    VXV                                   
037682,000081: 25,2037           01036                                    VN                                    #  (-7) M/CS
037683,000082: 25,2040           01756                                    UNITR                                 #  .5 UNIT               REF COORDS
037684,000083: 25,2041           50256                           UNIT     DOT                                   
037685,000084: 25,2042           03474                                    RT                                    #  RT/2 TARGET VECTOR    REF COORDS
037686,000085: 25,2043           03676                           STORE    LATANG                                #  LATANG = UNI.RT /4
037687,000086: 25,2044           47076                           DCOMP    RTB                                   
037688,000087: 25,2045           45761                                    SIGNMPAC                              
037689,000088: 25,2046           17644                           STODL    K2ROLL                                #  K2ROLL = -SGN(LATANG)
037690,000089: 
037691,000090: 25,2047           03624                                    LAD                                   
037692,000091: 25,2050           43205                           DMP      DAD                                   
037693,000092: 25,2051           15202                                    Q21                                   
037694,000093: 25,2052           15204                                    Q22                                   
037695,000094: 25,2053           03712                           STORE    Q2                                    #  Q2 = -1992 + 3500 LAD
037696,000095: 
037697,000096: 25,2054           66331                           SSP      SSP                                   
037698,000097: 25,2055           03646                                    GOTOADDR                              #  SET SELECTOR FOR INITIAL PASS
037699,000098: 25,2056           52260                                    INITROLL                              
037700,000099: 25,2057           03325                                    POSEXIT                               
037701,000100: 25,2060           52115                                    SCALEPOP                              #  SET CM/POSE TO CONTINUE AT SCALEPOP
037702,000101: 
037703,000102: 25,2061           77634                           RTB                                            
037704,000103: 25,2062           53607                                    SERVNOUT                              #  OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
037705,000104: 
037706,000105:                                                                                                  #  CALCULATE THE INITIAL TARGET VECTOR:  RTINIT,  ALSO RTEAST, RTNORM  AND  RT.   ALL ARE .5 UNIT AND IN
037707,000106:                                                                                                  #  REFERENCE COORDINATES.
037708,000107: 
037709,000108: 25,2063           77220        STARTEN1           STQ      VLOAD                                 
037710,000109: 25,2064           03645                                    GOTOADDR                              
037711,000110: 25,2065           03401                                    LAT(SPL)                              #  TARGET COORDINATES
037712,000111: 25,2066           43014                           CLEAR    CLEAR                                 #  DO CALL USING PAD RADIUS. WILL UNIT IT.
037713,000112: 25,2067           00662                                    ERADFLAG                              #  ANYWAY.
037714,000113: 25,2070           01663                                    LUNAFLAG                              
037715,000114: 25,2071           14747                           STODL    LAT                                   
037716,000115: 25,2072           15336                                    3ZEROS                                
037717,000116: 
037718,000117: 25,2073           14753                           STODL    LAT        +4                         #  SET ALT=0.
037719,000118: 25,2074           01044                                    PIPTIME                               #  ESTABLISH RTINIT AT TIME OF PRESENT
037720,000119:                                                                                                  #  RN AND VN.
037721,000120: 25,2075           37524                           STCALL   TIME/RTO                              #  SAVE TIME BASE OF RTINIT.
037722,000121: 25,2076           26524                                    LALOTORV                              #  C(MPAC) =TIME  (PIPTIME)
037723,000122: 25,2077           77656                           UNIT                                           #  ANSWER IN ALPHAV ALSO

Page 854

037725,000124: 25,2100           17452                           STODL    RTINIT                                #  .5 UNIT TARGET                REF COORDS
037726,000125: 25,2101           12112                                    500SEC                                #  NOMINAL ENTRY TIME FOR P63
037727,000126:                                                                                                  #  TIME/RTO = PIPTIME, STILL.
037728,000127: 25,2102           37606                           STCALL   DTEAROT                               #  INITIALIZE EARROT
037729,000128: 25,2103           46213                                    EARROT1                               #  GET RT
037730,000129: 25,2104           72441                           DOT      SL1                                   
037731,000130: 25,2105           01756                                    UNITR                                 #  RT/2 IN MPAC
037732,000131: 25,2106           77726                           ACOS                                           
037733,000132: 25,2107           37702                           STCALL   THETAH                                #  RANGE ANGLE /360
037734,000133: 25,2110           03645                                    GOTOADDR                              #  RETURN TO CALLER
037735,000134: 
037736,000135: 25,2111           00003 01520  500SEC             2DEC     50000      B-28                       #  CS
037737,000136: 
037738,000137: 25,2113           11774        ENTMASK            OCT      11774                                 
037739,000138: 25,2114           11010        ENTRYSW            OCT      11010                                 #  ENTRYDSP B13, GONEPAST B10, LATSW B4

Page 855

037741,000140: 
037742,000141: 25,2115           77624        SCALEPOP           CALL                                           
037743,000142: 25,2116           52125                                    TARGETNG                              
037744,000143: 
037745,000144: 25,2117           77776                           EXIT                                           
037746,000145: 
037747,000146: 25,2120           05402        REFAZE10           TC       PHASCHNG                              
037748,000147: 25,2121           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART AT REFAZE10
037749,000148: 
037750,000149: 25,2122  01,2250               5P3SPT14           =        5.3SPOT                               
037751,000150: 25,2122           06006                           TC       INTPRET                               
037752,000151: 
037753,000152:                                                                                                  #  JUMP TO PARTICULAR RE-ENTRY PHASE:
037754,000153: 
037755,000154:                                                                                                  # SEQUENCE
037756,000155: 25,2123           77650                           GOTO                                           
037757,000156: 25,2124           03645                                    GOTOADDR                              
037758,000157: 
037759,000158:                                                                                                  #  GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS APPROPRIATE TO THE CURRENT PHASE OF
037760,000159:                                                                                                  #  RE-ENTRY.  SEQUENCING IS AS FOLLOWS:
037761,000160: 
037762,000161:                                                                                                  #  INITROLL      ADDRESS IS SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT  IS EXCEEDED. THEN HOLDS NEW ROLL
037763,000162:                                                                                                  #                ATTITUDE UNTIL  VRTHRESH  IS EXCEEDED.  THEN BRANCHES TO
037764,000163: 
037765,000164:                                                                                                  #  HUNTEST       THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL   L/D FROM PRESENT CONDITIONS IS LESS
037766,000165:                                                                                                  #                THAN THE DESIRED RANGE.
037767,000166:                                                                                                  #                  IF NOT - A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG CONTROLLER.
037768,000167:                                                                                                  #                  IF SO - CONTROL AND GOTOADDR ARE SET TO  UPCONTRL.
037769,000168:                                                                                                  #                USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUGH
037770,000169:                                                                                                  #                HUNTEST.
037771,000170: 
037772,000171:                                                                                                  #  UPCONTRL      CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE.  UPCONTRL IS TERMINATED EITHER
037773,000172:                                                                                                  #                  (A)  WHEN THE DRAG (AS MEASURED BY THE PIPAS) FALLS BELOW Q7, OR
037774,000173:                                                                                                  #                  (B)  IF RDOT IS NEGATIVE AND REFERENCE VL EXCEEDS V.
037775,000174:                                                                                                  #                IN CASE (A),  GOTOADDR  IS SET TO  KEP2  AND IN CASE (B), TO  PREDICT3  SKIPPING THE KEPLER PHASE OF
037776,000175:                                                                                                  #                ENTRY.
037777,000176: 
037778,000177:                                                                                                  #  KEP2          GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG. THE SPACECRAFT IS INSTANTANEOUSLY
037779,000178:                                                                                                  #                TRIMMED IN PITCH AND YAW TO THE COMPUTED RELATIVE VELOCITY. THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.
037780,000179:                                                                                                  #                WHEN THE MEASURED DRAG EXCEEDS Q7 +0.5,  GOTOADDR  IS SET TO
037781,000180: 
037782,000181:                                                                                                  #  PREDICT3      THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
037783,000182:                                                                                                  #                WHEN  V  IS LESS THAN VQUIT. AN EXIT IS MADE TO
037784,000183: 
037785,000184:                                                                                                  #  P67.1         THE LAST COMPUTED ROLL ANGLE IS MAINTAINED. RATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE
037786,000185:                                                                                                  #                AND LONGITUDE ARE COMPUTED FOR DISPLAY.
037787,000186:                                                                                                  #                ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO TO THIS FINAL FLASHING DISPLAY.
037788,000187: 

Page 856

037790,000189:                                                                                                  #  PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
037791,000190: 
037792,000191: 
037793,000192:                                                                                                  #  * START  TARGETING ...
037794,000193: 
037795,000194: 25,2125  E7,1451                                  EBANK=   RTINIT                                
037796,000195: 
037797,000196:                                                                                                  #  TARGETNG IS CALLED BY P61, FROM GROUP 4.
037798,000197:                                                                                                  #  TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
037799,000198: 
037800,000199:                                                                                                  #  ALL MM COME HERE.             
037801,000200: 25,2125           77214        TARGETNG           BOFF     VLOAD                                 #  ENTER WITH PROPER EB FROM CM/POSE(TEST)
037802,000201: 25,2126           03346                                    RELVELSW                              #  RELVELSW = 96D BIT9
037803,000202: 25,2127           52133                                    GETVEL                                #  WANT INERTIAL VEL. GO GET IT.
037804,000203: 25,2130           03526                                    -VREL                                 #  NEW V   IS RELATIVE, CONTINUE
037805,000204: 
037806,000205: 25,2131           52076                           VCOMP    GOTO                                  #  (VREL) = (V) + KWE UNITR*UNITW
037807,000206: 25,2132           52136                                    GETUNITV   -1                         #  - VREL WAS LEFT BY CM/POSE
037808,000207: 
037809,000208: 25,2133           74375        GETVEL             VLOAD    VXSC                                  #  INERTIAL V WANTED
037810,000209: 25,2134           01036                                    VN                                    #  KVSCALE = (12800 / .3048) / 2VS
037811,000210: 25,2135           15232                                    KVSCALE                               #  KVSCALE = .81491944
037812,000211: 25,2136           03516                 -1        STORE    VEL                                   #  V/2 VS                
037813,000212: 25,2137           44056        GETUNITV           UNIT     STQ                                   
037814,000213: 25,2140           03373                                    60GENRET                              
037815,000214: 25,2141           17510                           STODL    UNITV                                 
037816,000215: 25,2142           00043                                    34D                                   
037817,000216: 25,2143           03622                           STORE    VSQUARE                               #  VSQ/4
037818,000217: 
037819,000218: 25,2144           77625                           DSU                                            #  LEQ = VSQUARE - 1
037820,000219: 25,2145           15326                                    FOURTH                                #  4 G-S FULL SCALE
037821,000220: 25,2146           17654                           STODL    LEQ                                   #  LEQ/4
037822,000221: 
037823,000222: 25,2147           00045                                    36D                                   
037824,000223: 25,2150           27674                           STOVL    V                                     #  V/2 VS = VEL/2 VS
037825,000224: 
037826,000225: 25,2151           03516                                    VEL                                   
037827,000226: 25,2152           72441                           DOT      SL1                                   #  RDOT= V.UNITR
037828,000227: 25,2153           01756                                    UNITR                                 
037829,000228: 25,2154           27700                           STOVL    RDOT                                  #  RDOT / 2 VS
037830,000229: 
037831,000230: 25,2155           01315                                    DELV                                  #  PIPA COUNTS IN PLATFORM COORDS.
037832,000231: 25,2156           41246                           ABVAL    DMP                                   
037833,000232: 25,2157           15234                                    KASCALE                               
037834,000233: 25,2160           53152                           SL1      BZE                                   
037835,000234: 25,2161           55136                                    SETMIND                               
037836,000235: 25,2162           27640        DSTORE             STOVL    D                                     #  ACCELERATION USED TO APPROX DRAG
037837,000236: 25,2163           03516                                    VEL                                   
037838,000237: 25,2164           53435                           VXV      UNIT                                  #  UNI = UNIT(V*R)
037839,000238: 25,2165           01756                                    UNITR                                 

Page 857

037841,000240: 25,2166           03502                           STORE    UNI                                   #  .5 UNI                REF COORDS.
037842,000241: 
037843,000242: 25,2167           71214                           BOFF     DLOAD                                 
037844,000243: 25,2170           03346                                    RELVELSW                              
037845,000244: 25,2171           55077                                    GETETA                                
037846,000245: 25,2172           15336                                    3ZEROS                                
037847,000246: 25,2173           43225        UPDATERT           DSU      DAD                                   #  PIPTIME-TIME/RTO =ELAPSED TIME SINCE
037848,000247:                                                                                                  #  RTINIT  WAS ESTABLISHED.
037849,000248: 25,2174           03524                                    TIME/RTO                              
037850,000249: 25,2175           01044                                    PIPTIME                               
037851,000250: 25,2176           37606                           STCALL   DTEAROT                               #  GET PREDICTED TARGET VECTOR  RT
037852,000251: 
037853,000252: 25,2177           46223                                    EARROT2                               
037854,000253: 25,2200           40241                           DOT      SETPD                                 #  SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
037855,000254: 25,2201           03502                                    UNI                                   #  LATANG = RT.UNI
037856,000255: 25,2202           00001                                    0                                     
037857,000256: 25,2203           27676                           STOVL    LATANG                                #  LATANG = MAC LATANG / 4
037858,000257: 
037859,000258: 25,2204           03474                                    RT                                    
037860,000259: 25,2205           77614                           CLEAR                                          
037861,000260: 25,2206           03667                                    GONEBY                                #  SHOW HAVE NOT GONE PAST TARGET.
037862,000261: 25,2207           50235                           VXV      DOT                                   #  IF RT*UNITR.UNI NEG, GONEBY=1
037863,000262: 25,2210           01756                                    UNITR                                 #  GONEPAST IS CONDITIONAL SW SET IN
037864,000263: 25,2211           03502                                    UNI                                   #  FINAL PHASE.
037865,000264: 25,2212           43044                           BPL      SET                                   
037866,000265: 25,2213           52215                                    +2                                    
037867,000266: 25,2214           03467                                    GONEBY                                #  SHOW HAVE     GONE PAST TARGET.
037868,000267: 
037869,000268: 25,2215           77775                           VLOAD                                          
037870,000269: 25,2216           03474                                    RT                                    
037871,000270: 25,2217           45241        GETANGLE           DOT      DSU                                   #  THETA = ARCCOS(RT.UNITR)
037872,000271: 25,2220           01756                                    UNITR                                 
037873,000272: 25,2221           15164                                    NEAR1/4                               #  TO IMPROVE ACCURACY, CALC RANGE BY
037874,000273: 25,2222           43244                           BPL      DAD                                   #  TINYTHET IF HIGH ORDER PART OF
037875,000274: 25,2223           55141                                    TINYTHET                              #  ARCCOS ARGUMENT IS ZERO
037876,000275: 25,2224           15164                                    NEAR1/4                               
037877,000276: 25,2225           65552                           SL1      ACOS                                  
037878,000277: 25,2226           03702        THETDONE           STORE    THETAH                                #  THETAH/360
037879,000278:                                                                                                  #  HI WORD, LO BIT =1.32 NM=360 60/16384
037880,000279: 
037881,000280: 25,2227           57414                           BON      DCOMP                                 
037882,000281: 25,2230           03707                                    GONEBY                                #  =1 IF HAVE GONE PAST TARGET.
037883,000282:                                                                                                  #  (SIGN MAY BECOME ERRATIC VERY NEAR
037884,000283:                                                                                                  #  TARGET DUE TO LOSS OF PRECISION.)
037885,000284: 25,2231           52232                                    +1                                    
037886,000285: 25,2232           17714                           STODL    RTGON67                               #  RANGE ERROR:  NEG IF WILL FALL SHORT.
037887,000286: 
037888,000287: 25,2233           03640                                    D                                     
037889,000288: 25,2234           50025                           DSU      BMN                                   
037890,000289: 25,2235           15242                                    .05G                                  

Page 858

037892,000291: 25,2236           52255                                    NO.05G                                
037893,000292: 25,2237           77214                           SET      VLOAD                                 
037894,000293: 25,2240           03074                                    .05GSW                                
037895,000294: 25,2241           03432                                    DELVREF                               
037896,000295: 25,2242           50206                           PUSH     DOT                                   
037897,000296: 25,2243           03542                                    UXA/2                                 
037898,000297: 25,2244           63552                           SL1      DSQ                                   
037899,000298: 25,2245           47515                           PDVL     VSQ                                   #  EXCHANGE WITH PDL.
037900,000299: 25,2246           56225                           DSU      DDV                                   
037901,000300: 25,2247           00001                                    0                                     
037902,000301: 25,2250           75400                           BOV      SQRT                                  
037903,000302: 25,2251           52253                                    NOLDCALC                              #  OVFL LAST CLEARED IN EARROT2 ABOVE.
037904,000303: 25,2252           03727                           STORE    L/DCALC                               
037905,000304: 
037906,000305: 25,2253           77650        NOLDCALC           GOTO                                           
037907,000306: 25,2254           03373                                    60GENRET                              
037908,000307: 
037909,000308: 25,2255           52014        NO.05G             CLEAR    GOTO                                  #  THIS WAY FOR DAP.(MAY INTERRUPT)
037910,000309: 25,2256           03274                                    .05GSW                                #  .05GSW = 102D B3
037911,000310: 25,2257           52253                                    NOLDCALC                              #  KEEP SINGLE EXIT FOR TARGETNG
037912,000311: 

Page 859

037914,000313:                                                                                                  #  SUBROUTINES CALLED BY SCALEPOP (TARGETING):
037915,000314: 
037916,000315: 26,2000                                           SETLOC   REENTRY1                              
037917,000316: 26,2000                                           BANK                                           
037918,000317: 
037919,000318: 26,3077                                           COUNT*   $$/ENTRY                              
037920,000319: 
037921,000320: 26,3077           56345        GETETA             DLOAD    DDV                                   #  D = D +D(-RDOT/HS -2D/V)  DT/2
037922,000321:                                                                                                  #  DT/2 = 2/2 =1
037923,000322: 26,3100           03700                                    RDOT                                  
037924,000323: 26,3101           15320                                    -HSCALED                              
037925,000324: 26,3102           41325                           PDDL     DMP                                   
037926,000325: 26,3103           03640                                    D                                     
037927,000326: 26,3104           15322                                    -KSCALE                               
037928,000327: 26,3105           43271                           DDV      DAD                                   
037929,000328: 26,3106           03674                                    V                                     
037930,000329:                                                                                                  #  -RDOT/HS FROM PDL.
037931,000330: 26,3107           43205                           DMP      DAD                                   
037932,000331: 26,3110           03640                                    D                                     
037933,000332: 26,3111           03640                                    D                                     
037934,000333: 26,3112           03640                           STORE    D                                     
037935,000334: 
037936,000335: 26,3113           71214                           BON      DLOAD                                 #  EGSW INDICATES FINAL PHASE.
037937,000336: 26,3114           03307                                    EGSW                                  
037938,000337: 26,3115           55122                                    SUBETA                                
037939,000338: 26,3116           03702                                    THETAH                                
037940,000339: 26,3117           52005                           DMP      GOTO                                  
037941,000340: 26,3120           15236                                    KTETA                                 #  = 1000X2PI/(2)E14 163.84
037942,000341: 26,3121           52173                                    UPDATERT                              
037943,000342: 
037944,000343: 26,3122           45345        SUBETA             DLOAD    DSU                                   #  SWITCH FROM INERTIAL TO RELATIVE VEL.
037945,000344: 26,3123           03674                                    V                                     
037946,000345: 26,3124           15326                                    VMIN                                  
037947,000346: 26,3125           43044                           BPL      SET                                   
037948,000347: 26,3126           55130                                    SUBETA2                               
037949,000348: 26,3127           03066                                    RELVELSW                              
037950,000349: 
037951,000350: 26,3130           41345        SUBETA2            DLOAD    DMP                                   
037952,000351: 
037953,000352: 26,3131           03702                                    THETAH                                
037954,000353: 26,3132           15240                                    KT1                                   #  KT1 = KT
037955,000354: 26,3133           52071                           DDV      GOTO                                  
037956,000355: 26,3134           03674                                    V                                     #  KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
037957,000356: 26,3135           52173                                    UPDATERT                              
037958,000357: 
037959,000358: 26,3136           52145        SETMIND            DLOAD    GOTO                                  
037960,000359: 26,3137           16425                                    1BITDP                                
037961,000360: 26,3140           52162                                    DSTORE                                
037962,000361: 
037963,000362: 26,3141           51425        TINYTHET           DSU      ABS                                   #  ENTER WITH X-.249

Page 860

037965,000364: 26,3142           16426                                    1BITDP     +1                         #  GET 1/4 - MPAC
037966,000365: 26,3143           75461                           SL       SQRT                                  #  SCALE UP BEFORE SQRT
037967,000366: 26,3144           20216                                    13D                                   #  HAS FACTOR FOR UP SCALING
037968,000367: 26,3145           52005                           DMP      GOTO                                  
037969,000368: 26,3146           15250                                    KACOS                                 
037970,000369: 26,3147           52226                                    THETDONE                              
037971,000370: 

Page 861

037973,000372:                                                                                                  #  * START       INITIAL ROLL ...
037974,000373: 
037975,000374: 25,2000                                           SETLOC   REENTRY                               
037976,000375: 25,2000                                           BANK                                           
037977,000376: 
037978,000377: 25,2260                                           COUNT*   $$/ENTRY                              
037979,000378: 
037980,000379:                                                                                                  #  MM = 63 , 64 ..
037981,000380: 25,2260           43014        INITROLL           BON      BOFF                                  #  IF D- .05G NEG, GO TO LIMITL/D
037982,000381: 25,2261           03312                                    INRLSW                                
037983,000382: 25,2262           52362                                    INITRL1                               
037984,000383: 25,2263           03354                                    .05GSW                                
037985,000384: 25,2264           53524                                    LIMITL/D                              
037986,000385: 
037987,000386:                                                                                                  #  MM = 64, NOW
037988,000387: 
037989,000388:                                                                                                  #              3
037990,000389:                                                                                                  #  KA = KA1 LEQ  + KA2
037991,000390: 25,2265           63545                           DLOAD    DSQ                                   
037992,000391: 25,2266           03654                                    LEQ                                   
037993,000392: 25,2267           56205                           DMP      DDV                                   
037994,000393: 25,2270           03654                                    LEQ                                   
037995,000394: 25,2271           15306                                    1/KA1                                 #  = 25 /(64  1.8)
037996,000395: 25,2272           47015                           DAD      RTB                                   
037997,000396: 25,2273           15310                                    KA2                                   #  = .2
037998,000397: 25,2274           54432                                    P64                                   #  ROLLC         VI              RDOT
037999,000398:                                                                                                  #  XXX.XX DEG    XXXXX. FPS      XXXXX. FPS
038000,000399: 25,2275           03720                           STORE    KAT                                   
038001,000400: 
038002,000401: 25,2276           50025                           DSU      BMN                                   
038003,000402: 25,2277           15316                                    KALIM                                 
038004,000403: 25,2300           52304                                    +4                                    
038005,000404: 25,2301           77745                           DLOAD                                          
038006,000405: 25,2302           15316                                    KALIM                                 
038007,000406: 25,2303           03720                           STORE    KAT                                   
038008,000407: 25,2304           45345                           DLOAD    DSU                                   #  IF V-VFINAL1 NEG, GO TO FINAL PHASE.
038009,000408: 25,2305           03674                                    V                                     
038010,000409: 25,2306           15304                                    VFINAL1                               
038011,000410: 25,2307           51014                           CLEAR    BPL                                   #  (CAN'T CLEAR INRLSW AFTER HERE: RESTARTS)
038012,000411: 25,2310           03265                                    GONEPAST                              #  GONEPAST WAS INITIALLY SET=1 TO FORCE
038013,000412:                                                                                                  #  ROLLC TO REMAIN AS DEFINED BY HEADSUP
038014,000413:                                                                                                  #  UNTIL START OF P64. (UNTIL D > .05G)
038015,000414: 25,2311           52316                                    D0EQ                                  
038016,000415: 25,2312           52131                           SSP      GOTO                                  
038017,000416: 25,2313           03646                                    GOTOADDR                              
038018,000417: 25,2314           53316                                    KEP2                                  #  AND IDLE UNTIL D>0.2 G.  (NO P66 HERE)
038019,000418: 25,2315           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
038020,000419: 
038021,000420: 25,2316           41345        D0EQ               DLOAD    DMP                                   #  D0 = KA3 LEQ + KA4
038022,000421: 25,2317           03654                                    LEQ                                   

Page 862

038024,000423: 25,2320           15312                                    KA3                                   
038025,000424: 25,2321           77615                           DAD                                            
038026,000425: 25,2322           15314                                    KA4                                   
038027,000426: 25,2323           03710                           STORE    D0                                    #  D0/805
038028,000427: 25,2324           40065                           BDDV     BOV                                   
038029,000428: 25,2325           15270                                    C001                                  #  (-4/25 G) B-8
038030,000429: 25,2326           52327                                    +1                                    #  CLEAR OVFIND, IF ON.
038031,000430: 25,2327           17706                           STODL    C/D0                                  #  (-4/D0) B-8
038032,000431: 25,2330           03624                                    LAD                                   #  IF V-VFINAL +K(RDOT/V)CUBED POS,L/D=-LAD
038033,000432: 25,2331           17634                           STODL    L/D                                   
038034,000433: 25,2332           03700                                    RDOT                                  
038035,000434: 25,2333           41471                           DDV      PUSH                                  
038036,000435: 25,2334           03674                                    V                                     
038037,000436: 25,2335           41316                           DSQ      DMP                                   
038038,000437: 25,2336           45271                           DDV      DSU                                   
038039,000438: 25,2337           15300                                    1/K44                                 
038040,000439: 25,2340           15302                                    VFINAL                                
038041,000440:                                                                                                  #                    3
038042,000441:                                                                                                  #  V-VFINAL +(RDOT/V)  / K44     OVFL $
038043,000442: 
038044,000443: 25,2341           40015                           DAD      BOV                                   
038045,000444: 25,2342           03674                                    V                                     
038046,000445: 25,2343           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
038047,000446: 25,2344           71240                           BMN      DLOAD                                 
038048,000447: 25,2345           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
038049,000448: 25,2346           03624                                    LAD                                   
038050,000449: 25,2347           77676                           DCOMP                                          
038051,000450: 25,2350           03634                           STORE    L/D                                   
038052,000451: 
038053,000452:                                                                                                  #  SET INRLSW AT END FOR RESTART PROTECTION
038054,000453: 25,2351           77614        INROLOUT           BOFSET                                         #  END OF PRE .05G PATH OF INITROLL.
038055,000454: 25,2352           03052                                    INRLSW                                #  SWITCH IS ZERO INITIALLY.
038056,000455: 25,2353           53524                                    LIMITL/D                              #  (GO TO)
038057,000456: 
038058,000457: 25,2354           45345        KATEST             DLOAD    DSU                                   #  IF KAT - D POS, GO TO CONSTD
038059,000458: 25,2355           03720                                    KAT                                   
038060,000459: 25,2356           03640                                    D                                     #  IF POS, OUT WITH COMMAND VIA LIMITL/D
038061,000460: 25,2357           52044                           BPL      GOTO                                  
038062,000461: 25,2360           53524                                    LIMITL/D                              
038063,000462: 25,2361           53231                                    CONSTD                                
038064,000463: 
038065,000464: 25,2362           43345        INITRL1            DLOAD    DAD                                   #  IF RDOT + VRCONT POS, GO TO HUNTEST
038066,000465: 25,2363           03700                                    RDOT                                  
038067,000466: 25,2364           15262                                    VRCONT                                
038068,000467: 25,2365           45040                           BMN      CALL                                  #  IF POSITIVE, FALL INTO HUNTEST.
038069,000468: 25,2366           52354                                    KATEST                                
038070,000469: 
038071,000470: 25,2367           53021                                    FOREHUNT                              #  INITIALIZE HUNTEST.
038072,000471: 

Page 863

038074,000473: 
038075,000474:                                                                                                  #  * START       HUNT TEST  ..
038076,000475: 
038077,000476:                                                                                                  #  MM = 64
038078,000477: 25,2370           77731                           SSP                                            #  INITIALIZE HUNTEST ON FIRST PASS
038079,000478: 25,2371           03646                                    GOTOADDR                              
038080,000479: 25,2372           52373                                    HUNTEST                               #  MUST GO AFTER FOREHUNT FOR RESTARTS.
038081,000480: 
038082,000481: 25,2373           77745        HUNTEST            DLOAD                                          
038083,000482: 25,2374           03640                                    D                                     
038084,000483: 25,2375           17664                           STODL    A1                                    #  A1/805 = A1/25G
038085,000484: 
038086,000485: 25,2376           03624                                    LAD                                   
038087,000486: 25,2377           17647                           STODL    TEM1B                                 
038088,000487: 25,2400           03700                                    RDOT                                  
038089,000488: 25,2401           71240                           BMN      DLOAD                                 #  IF RDOT NEG,TEM1B=LAD, OTHERWISE = LEWD
038090,000489: 25,2402           52406                                    A0CALC                                
038091,000490: 25,2403           03725                                    LEWD                                  
038092,000491: 25,2404           17647                           STODL    TEM1B                                 
038093,000492: 
038094,000493: 25,2405           03700                                    RDOT                                  
038095,000494: 25,2406           43271        A0CALC             DDV      DAD                                   #  V1 = V + RDOT/TEM1B
038096,000495: 25,2407           03647                                    TEM1B                                 
038097,000496: 25,2410           03674                                    V                                     
038098,000497: 25,2411           14326                           STODL    V1                                    #  V1/2 VS
038099,000498: 
038100,000499: 25,2412           03700                                    RDOT                                  
038101,000500: 25,2413           56316                           DSQ      DDV                                   #  A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS)
038102,000501: 25,2414           03647                                    TEM1B                                 
038103,000502: 25,2415           43271                           DDV      DAD                                   
038104,000503: 25,2416           15274                                    2C1HS                                 
038105,000504: 25,2417           03640                                    D                                     
038106,000505: 25,2420           41205                           DMP      DMP                                   
038107,000506: 25,2421           00326                                    V1                                    
038108,000507: 25,2422           00326                                    V1                                    
038109,000508: 25,2423           77671                           DDV                                            
038110,000509: 25,2424           03622                                    VSQUARE                               
038111,000510: 25,2425           14330                           STODL    A0                                    #  A0/805 = A0/25G
038112,000511: 
038113,000512: 25,2426           03700                                    RDOT                                  
038114,000513: 25,2427           71244                           BPL      DLOAD                                 
038115,000514: 25,2430           52433                                    V1LEAD                                
038116,000515: 25,2431           00330                                    A0                                    
038117,000516: 25,2432           03664                           STORE    A1                                    #  A1/25G
038118,000517: 
038119,000518: 25,2433           51145        V1LEAD             DLOAD    BPL                                   #  IF L/D NEG, V1=V1 - 1000
038120,000519: 25,2434           03634                                    L/D                                   
038121,000520: 25,2435           52442                                    HUNTEST1                              
038122,000521: 
038123,000522: 25,2436           45345                           DLOAD    DSU                                   
038124,000523: 25,2437           00326                                    V1                                    

Page 864

038126,000525: 25,2440           15216                                    VQUIT                                 
038127,000526: 25,2441           00326                           STORE    V1                                    
038128,000527: 
038129,000528: 25,2442           41345        HUNTEST1           DLOAD    DMP                                   #  ALP = 2 C1 HS A0/LEWD V1 V1
038130,000529: 25,2443           00330                                    A0                                    
038131,000530: 25,2444           15274                                    2C1HS                                 
038132,000531: 25,2445           40271                           DDV      SETPD                                 
038133,000532: 25,2446           00326                                    V1                                    
038134,000533: 25,2447           00001                                    0                                     
038135,000534: 25,2450           56271                           DDV      DDV                                   
038136,000535: 25,2451           00326                                    V1                                    
038137,000536: 25,2452           03725                                    LEWD                                  
038138,000537: 25,2453           03704                           STORE    ALP                                   
038139,000538: 
038140,000539: 25,2454           55221                           BDSU     BDDV                                  #  FACT1 = V1 / (1 - ALP)
038141,000540: 25,2455           15344                                    BARELY1                               
038142,000541: 25,2456           00326                                    V1                                    
038143,000542: 25,2457           17616                           STODL    FACT1                                 #  FACT1 / 2VS
038144,000543: 
038145,000544: 25,2460           03704                                    ALP                                   
038146,000545: 25,2461           41225                           DSU      DMP                                   #  FACT2 = ALP(ALP - 1) / A0
038147,000546: 25,2462           15344                                    BARELY1                               
038148,000547: 25,2463           03704                                    ALP                                   
038149,000548: 25,2464           77671                           DDV                                            
038150,000549: 25,2465           00330                                    A0                                    
038151,000550: 25,2466           03620                           STORE    FACT2                                 #  FACT2 (25G)
038152,000551: 
038153,000552: 25,2467           43205                           DMP      DAD                                   
038154,000553: 25,2470           03175                                    Q7                                    #  Q7 /805 = Q7 / 25G
038155,000554: 25,2471           03704                                    ALP                                   #  VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
038156,000555: 25,2472           44366                           SQRT     BDSU                                  
038157,000556: 25,2473           15344                                    BARELY1                               
038158,000557: 25,2474           77605                           DMP                                            
038159,000558: 25,2475           03616                                    FACT1                                 
038160,000559: 25,2476           03757                           STORE    VL                                    #  VL / 2 VS
038161,000560: 
038162,000561: 25,2477           41221                           BDSU     DMP                                   #  GAMMAL1 = LEWD (V1-VL)/VL
038163,000562: 25,2500           00326                                    V1                                    
038164,000563: 25,2501           03725                                    LEWD                                  
038165,000564: 25,2502           77671                           DDV                                            
038166,000565: 25,2503           03757                                    VL                                    
038167,000566: 25,2504           14027                           STODL    GAMMAL1                               #  GAMMAL1 USED IN UPCONTROL
038168,000567: 
038169,000568:                                                                                                  #  GAMMAL1 = PDL 22D.
038170,000569: 25,2505           03757                                    VL                                    
038171,000570: 25,2506           50025                           DSU      BMN                                   #  IF VL-VLMIN NEG, GO TO PREFINAL
038172,000571: 25,2507           15206                                    VLMIN                                 
038173,000572: 25,2510           53332                                    PREFINAL                              
038174,000573: 
038175,000574: 25,2511           63545                           DLOAD    DSQ                                   

Page 865

038177,000576: 25,2512           03757                                    VL                                    
038178,000577: 25,2513           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038179,000578: 
038180,000579: 25,2514           15334                                    HALVE                                 #  IF VSAT-VL NEG, GO TO CONSTD
038181,000580: 25,2515           50025                           DSU      BMN                                   
038182,000581: 25,2516           03757                                    VL                                    
038183,000582: 25,2517           53225                                    BECONSTD                              #  SET MODE=HUNTEST, CONTINUE IN CONSTD
038184,000583: 25,2520           17662                           STODL    DVL                                   #  DVL / 2VS
038185,000584: 
038186,000585: 25,2521           15334                                    HALVE                                 
038187,000586: 25,2522           03672                           STORE    VS1                                   #  VS1 = VSAT
038188,000587: 
038189,000588: 25,2523           50025                           DSU      BMN                                   #  IF V1 GREATER THAN VSAT, GO ON
038190,000589: 25,2524           00326                                    V1                                    
038191,000590: 25,2525           52533                                    GETDHOOK                              
038192,000591: 25,2526           77621                           BDSU                                           
038193,000592: 25,2527           03662                                    DVL                                   
038194,000593: 25,2530           17662                           STODL    DVL                                   #  DVL = DVL - (VSAT-V1) = V1 - VL
038195,000594: 25,2531           00326                                    V1                                    
038196,000595: 25,2532           03672                           STORE    VS1                                   #  VS1 = V1, IN THIS CASE
038197,000596: 
038198,000597: 25,2533           45145        GETDHOOK           DLOAD    CALL                                  #  DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
038199,000598: 25,2534           03672                                    VS1                                   #  VS1 / 2 VS
038200,000599: 25,2535           53003                                    DHOOKYQ7                              #  GO CALC DHOOK
038201,000600: 25,2536           03656                           STORE    DHOOK                                 #  DHOOK / 25G
038202,000601: 
038203,000602: 25,2537           56261                           SR       DDV                                   
038204,000603: 25,2540           20607                                    6                                     #  CHOOK
038205,000604: 25,2541           03175                                    Q7                                    
038206,000605: 25,2542           77625                           DSU                                            
038207,000606: 25,2543           15252                                    CHOOK                                 #  = .25/16 = (-6)
038208,000607: 25,2544           03660                           STORE    AHOOKDV                               
038209,000608: 
038210,000609: 25,2545           41215                           DAD      DMP                                   #  GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
038211,000610: 25,2546           31771                                    1/16TH                                
038212,000611: 25,2547           15256                                    CH1                                   
038213,000612: 25,2550           41205                           DMP      DMP                                   
038214,000613: 25,2551           03662                                    DVL                                   
038215,000614: 25,2552           03662                                    DVL                                   
038216,000615: 25,2553           56271                           DDV      DDV                                   
038217,000616: 25,2554           03656                                    DHOOK                                 
038218,000617: 25,2555           03666                                    VBARS                                 
038219,000618: 25,2556           50021                           BDSU     BMN                                   
038220,000619: 25,2557           00027                                    GAMMAL1                               
038221,000620: 25,2560           52750                                    NEGAMA                                
038222,000621: 25,2561           03761        HUNTEST3           STORE    GAMMAL                                
038223,000622: 
038224,000623: 25,2562           77625                           DSU                                            #  GAMMAL1=GAMMAL1 +Q19 (GAMMAL-GAMMAL1)
038225,000624: 25,2563           00027                                    GAMMAL1                               
038226,000625: 25,2564           43205                           DMP      DAD                                   

Page 866

038228,000627: 25,2565           15334                                    Q19                                   
038229,000628: 25,2566           00027                                    GAMMAL1                               
038230,000629: 25,2567           14027                           STODL    GAMMAL1                               
038231,000630: 25,2570           03761                                    GAMMAL                                
038232,000631: 

Page 867

038234,000633: 
038235,000634:                                                                                                  #  *START        RANGE PREDICTION ...
038236,000635: 
038237,000636:                                                                                                  #  C(MPAC) = GAMMAL
038238,000637: 25,2571           60516        RANGER             DSQ      SR2                                   #  COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
038239,000638: 25,2572           77621                           BDSU                                           
038240,000639: 25,2573           15334                                    HALVE                                 
038241,000640: 25,2574           17670                           STODL    COSG/2                                
038242,000641: 25,2575           03666                                    VBARS                                 #  E=SQRT(1+VBARS........
038243,000642: 
038244,000643: 25,2576           41225                           DSU      DMP                                   
038245,000644: 25,2577           15334                                    HALVE                                 
038246,000645: 25,2600           03666                                    VBARS                                 
038247,000646: 25,2601           41205                           DMP      DMP                                   
038248,000647: 25,2602           03670                                    COSG/2                                
038249,000648: 25,2603           03670                                    COSG/2                                
038250,000649: 25,2604           43312                           SL2      DAD                                   
038251,000650: 25,2605           31771                                    C1/16                                 #  C1/16 = 1/16
038252,000651: 25,2606           65366                           SQRT     PDDL                                  #  E/4 INTO PDL
038253,000652: 
038254,000653: 25,2607           03666                                    VBARS                                 
038255,000654: 25,2610           41205                           DMP      DMP                                   #  ASKEP/2 = ARCSIN(VBARS COSG SING/E)
038256,000655: 25,2611           03670                                    COSG/2                                
038257,000656: 25,2612           03761                                    GAMMAL                                
038258,000657: 25,2613           67471                           DDV      ASIN                                  
038259,000658: 25,2614           41552                           SL1      PUSH                                  #  ASKEP TO PDL 0.
038260,000659: 25,2615           17731                           STODL    ASKEP                                 #  BALLISTIC RANGE       ASKEP/2PI
038261,000660: 
038262,000661:                                                                                                  #  FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
038263,000662: 25,2616           03757                                    VL                                    
038264,000663: 25,2617           43205                           DMP      DAD                                   #  ASP1 = Q2 + Q3 VL
038265,000664: 25,2620           15172                                    Q3                                    
038266,000665: 25,2621           03712                                    Q2                                    
038267,000666: 25,2622           03732                           STORE    ASP1                                  #  FINAL PHASE RANGE     ASP1/2 PI
038268,000667: 
038269,000668: 25,2623           63525                           PDDL     DSQ                                   #  ASP1 TO PDL 2.
038270,000669: 25,2624           00326                                    V1                                    
038271,000670:                                                                                                  #                    2
038272,000671:                                                                                                  #  ASPUP= -C12 LOG(V1 Q7/VBARS A0)/GAMMAL1
038273,000672: 25,2625           56205                           DMP      DDV                                   
038274,000673: 25,2626           03175                                    Q7                                    
038275,000674: 25,2627           03666                                    VBARS                                 
038276,000675: 25,2630           45071                           DDV      CALL                                  
038277,000676: 25,2631           00330                                    A0                                    
038278,000677: 25,2632           46155                                    LOG                                   #  RETURN WITH -LOG IN MPAC
038279,000678: 
038280,000679: 25,2633           56205                           DMP      DDV                                   
038281,000680: 25,2634           15210                                    C12                                   
038282,000681: 25,2635           00027                                    GAMMAL1                               
038283,000682: 25,2636           03733                           STORE    ASPUP                                 #  UP PHASE RANGE        ASPUP / 2 PI

Page 868

038285,000684: 25,2637           41325                           PDDL     DMP                                   #  ASPUP TO PDL 4.
038286,000685: 25,2640           15260                                    KC3                                   #  KC3 =-4 VS VS/ 2 PI 805 RE
038287,000686:                                                                                                  #  ASPDWN = KC3 RDOT V / A0
038288,000687: 25,2641           03700                                    RDOT                                  
038289,000688: 25,2642           56205                           DMP      DDV                                   
038290,000689: 25,2643           03674                                    V                                     
038291,000690: 25,2644           00330                                    A0                                    
038292,000691: 25,2645           41471                           DDV      PUSH                                  #  ASPDWN TO PDL 6.
038293,000692: 25,2646           03624                                    LAD                                   
038294,000693: 25,2647           17734                           STODL    ASPDWN                                #  RANGE TO PULL OUT     ASPDWN /2 PI
038295,000694: 
038296,000695: 25,2650           15176                                    Q6                                    
038297,000696: 25,2651           41225                           DSU      DMP                                   #  ASP3 = Q5(Q6-GAMMAL)
038298,000697: 25,2652           03761                                    GAMMAL                                
038299,000698: 25,2653           15174                                    Q5                                    
038300,000699: 25,2654           27735                           STOVL    ASP3                                  #  GAMMA CORRECTION      ASP3/2PI
038301,000700: 
038302,000701: 25,2655           03731                                    ASKEP                                 #  GET HI-WD AND
038303,000702: 25,2656           17126                           STODL    ASPS(TM)                              #  SAVE HI-WORD OF ASP'S FOR TM.
038304,000703: 
038305,000704: 25,2657           03735                                    ASP3                                  
038306,000705: 25,2660           43215                           DAD      DAD                                   
038307,000706:                                                                                                  #  ASPDWN FROM PDL 6.
038308,000707:                                                                                                  #  ASPUP FROM PDL 4.
038309,000708: 25,2661           43215                           DAD      DAD                                   
038310,000709:                                                                                                  #  ASP1 FROM PDL 2.
038311,000710:                                                                                                  #  ASKEP FROM PDL 0.
038312,000711: 25,2662           41025                           DSU      BOVB                                  #  CLEAR OVFIND.
038313,000712: 25,2663           03702                                    THETAH                                
038314,000713: 25,2664           57544                                    TCDANZIG                              
038315,000714: 25,2665           03610                           STORE    DIFF                                  #  DIFF = (ASP-THETAH) / 2 PI
038316,000715:                                                                                                  #  ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
038317,000716: 
038318,000717: 25,2666           45246                           ABS      DSU                                   #  IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
038319,000718: 25,2667           15224                                    25NM                                  
038320,000719: 25,2670           43040                           BMN      BON                                   
038321,000720: 25,2671           53032                                    GOTOUPSY                              
038322,000721: 25,2672           03311                                    HIND                                  
038323,000722: 25,2673           52677                                    GETDLEWD                              
038324,000723: 
038325,000724: 25,2674           51145                           DLOAD    BPL                                   
038326,000725: 25,2675           03610                                    DIFF                                  
038327,000726: 25,2676           53220                                    DCONSTD                               #  EVENTUALLY SETS MODE = HUNTEST.
038328,000727: 25,2677           41345        GETDLEWD           DLOAD    DMP                                   
038329,000728:                                                                                                  #  DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
038330,000729: 25,2700           03642                                    DLEWD                                 
038331,000730: 25,2701           03610                                    DIFF                                  
038332,000731: 25,2702           45325                           PDDL     DSU                                   
038333,000732: 25,2703           03612                                    DIFFOLD                               
038334,000733: 25,2704           03610                                    DIFF                                  

Page 869

038336,000735: 25,2705           77665                           BDDV                                           
038337,000736: 25,2706           77626        LWDSTORE           STADR                                          
038338,000737: 25,2707           74135                           STORE    DLEWD                                 
038339,000738: 25,2710           50015                           DAD      BMN                                   #  IF LEWD+DLEWD NEG, DLEWD=-LEWD/2
038340,000739: 25,2711           03725                                    LEWD                                  
038341,000740: 25,2712           52744                                    LEWDPTR                               
038342,000741: 25,2713           77600                           BOV                                            
038343,000742: 25,2714           52740                                    LEWDOVFL                              
038344,000743: 25,2715           03725                           STORE    LEWD                                  
038345,000744: 
038346,000745: 25,2716           77776        SIDETRAK           EXIT                                           
038347,000746: 
038348,000747: 25,2717           04606                           TC       E7SETTER                              
038349,000748: 
038350,000749: 25,2720           35055                           CA       PRIO16                                #  DROP GRP 5 RESTART PRIO TO 1 LESS THAN
038351,000750: 25,2721           55270                           TS       PHSPRDT5                              #  GRP 4.
038352,000751: 
038353,000752: 25,2722           05402                           TC       PHASCHNG                              
038354,000753: 25,2723           00474                           OCT      00474                                 #  RESTART GRP 4 AT PRE-HUNT.
038355,000754:                                                                                                  #  FORCE RESTART TO PICK UP IN GRP 4:
038356,000755:                                                                                                  #  USE PRIO 17 FOR GRP 4 (< SERVICER PRIO)
038357,000756: 25,2724  01,2212               4P47SPT1           =        4.47SPOT                              
038358,000757: 25,2724           35055                           CA       PRIO16                                #  CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
038359,000758:                                                                                                  #  GRP 4 OR SERVICER.
038360,000759: 25,2725           05176                           TC       PRIOCHNG                              
038361,000760: 
038362,000761: 25,2726           33031                           CAF      ADENDEXT                              #  SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
038363,000762: 25,2727           55645                           TS       GOTOADDR                              #  ONLY AFTER RESTART IS LEFT AFTER DETOUR.
038364,000763: 
038365,000764: 25,2730           06006                           TC       INTPRET                               
038366,000765: 
038367,000766: 25,2731           43145                           DLOAD    SET                                   
038368,000767: 25,2732           03610                                    DIFF                                  
038369,000768: 25,2733           03071                                    HIND                                  
038370,000769: 25,2734           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038371,000770: 
038372,000771: 25,2735           15200                                    Q7F                                   
038373,000772: 25,2736           37175                           STCALL   Q7                                    #  Q7 / 805 FPSS
038374,000773: 25,2737           52373                                    HUNTEST                               #   (GO TO)
038375,000774: 
038376,000775: 25,2740           77745        LEWDOVFL           DLOAD                                          
038377,000776: 25,2741           15344                                    NEARONE                               
038378,000777: 25,2742           37725                           STCALL   LEWD                                  
038379,000778: 25,2743           53220                                    DCONSTD                               #  (GO TO)  ALSO WILL SET MODE = HUNTEST
038380,000779: 
038381,000780: 25,2744           70545        LEWDPTR            DLOAD    SR1                                   
038382,000781: 25,2745           03725                                    LEWD                                  
038383,000782: 25,2746           52076                           DCOMP    GOTO                                  
038384,000783: 25,2747           52706                                    LWDSTORE                              
038385,000784: 

Page 870

038387,000786:                                                                                                  #  NEGAMA IS PART OF HUNTEST ...
038388,000787: 
038389,000788: 25,2750           41205        NEGAMA             DMP      DMP                                   #  ENTER WITH GAMMAL IN MPAC
038390,000789: 25,2751           03757                                    VL                                    
038391,000790: 25,2752           15152                                    1/3RD                                 
038392,000791: 25,2753           41325                           PDDL     DMP                                   #  PUSH GAMMAL VL/3
038393,000792: 25,2754           03725                                    LEWD                                  
038394,000793: 25,2755           15152                                    1/3RD                                 
038395,000794: 25,2756           43325                           PDDL     DAD                                   #  PUSH LEWD/3
038396,000795: 25,2757           03660                                    AHOOKDV                               
038397,000796: 25,2760           15254                                    1/24TH                                
038398,000797: 25,2761           41205                           DMP      DMP                                   #  DEL VL = (GAMMAL VL/3)/(LEWD/3-DVL
038399,000798: 25,2762           03662                                    DVL                                   #  (2/3 + AHOOKDV)(CH1 GS/DHOOK VL))
038400,000799: 25,2763           15256                                    CH1                                   
038401,000800: 25,2764           56271                           DDV      DDV                                   
038402,000801: 25,2765           03656                                    DHOOK                                 
038403,000802: 25,2766           03757                                    VL                                    
038404,000803: 25,2767           55221                           BDSU     BDDV                                  
038405,000804:                                                                                                  #  LEWD/3
038406,000805:                                                                                                  #  GAMMAL VL /3
038407,000806: 25,2770           77615                           DAD                                            
038408,000807: 25,2771           03757                                    VL                                    
038409,000808: 25,2772           37757                           STCALL   VL                                    #  VL/2 VS
038410,000809: 
038411,000810: 25,2773           53003                                    DHOOKYQ7                              #  GO CALC Q7
038412,000811:                                                                                                  #  Q7=((1-VL/FACT1)SQ - ALP)/FACT2
038413,000812: 25,2774           17175                           STODL    Q7                                    #  Q7 / 25G
038414,000813: 
038415,000814: 25,2775           03757                                    VL                                    
038416,000815: 25,2776           77716                           DSQ                                            
038417,000816: 25,2777           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038418,000817: 
038419,000818: 25,3000           15336                                    3ZEROS                                
038420,000819: 25,3001           77650                           GOTO                                           #  SET GAMMAL = 0
038421,000820: 25,3002           52561                                    HUNTEST3                              
038422,000821: 
038423,000822: 25,3003           56342        DHOOKYQ7           SR1      DDV                                   #  SUBROUTINE TO CALC DHOOK OR Q7)
038424,000823: 25,3004           03616                                    FACT1                                 
038425,000824: 25,3005           72421                           BDSU     SL1                                   
038426,000825: 25,3006           15334                                    HALVE                                 
038427,000826: 25,3007           45316                           DSQ      DSU                                   
038428,000827: 25,3010           03704                                    ALP                                   
038429,000828: 25,3011           43471                           DDV      RVQ                                   
038430,000829: 25,3012           03620                                    FACT2                                 
038431,000830: 

Page 871

038433,000832:                                                                                                  #  COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
038434,000833:                                                                                                  #  HUNTEST IS SIDE-TRACKED AT SIDETRAK.
038435,000834:                                                                                                  #  PICK UP IN GROUP 4.
038436,000835: 
038437,000836: 25,3013           06006        PRE-HUNT           TC       INTPRET                               
038438,000837: 25,3014           45014                           CLEAR    CALL                                  
038439,000838: 25,3015           03271                                    HIND                                  #  HIND          99D  BIT 6  FLAG 6
038440,000839: 25,3016           53021                                    FOREHUNT                              #  RE-INITIALIZE HUNTEST AFTER RE-START.
038441,000840: 25,3017           77650                           GOTO                                           
038442,000841: 25,3020           52373                                    HUNTEST                               
038443,000842: 
038444,000843: 25,3021           77745        FOREHUNT           DLOAD                                          #  INITIALIZE HUNTEST.
038445,000844: 25,3022           15336                                    3ZEROS                                
038446,000845: 25,3023           17612                           STODL    DIFFOLD                               
038447,000846: 25,3024           15160                                    DLEWD0                                
038448,000847: 25,3025           17642                           STODL    DLEWD                                 
038449,000848: 25,3026           15154                                    LEWD1                                 
038450,000849: 25,3027           03725                           STORE    LEWD                                  
038451,000850: 25,3030           77616                           RVQ                                            
038452,000851: 
038453,000852: 25,3031           53574        ADENDEXT           CADR     ENDEXIT                               
038454,000853: 

Page 872

038456,000855: 
038457,000856:                                                                                                  #  * START       UP CONTROL ...
038458,000857: 
038459,000858:                                                                                                  #  MM = 65
038460,000859: 25,3032           77634        GOTOUPSY           RTB                                            #  END OF HUNTEST
038461,000860: 25,3033           54440                                    P65                                   #  HUNTEST USE OF GRP4 IS DISABLED BY P65
038462,000861:                                                                                                  #  USE FOR DISPLAY.
038463,000862:                                                                                                  #  SET MODE = UPCONTRL.
038464,000863:                                                                                                  #  RETURN FROM P65 DIRECTLY TO UPCONTRL
038465,000864:                                                                                                  #  VIA THE GOTOADDR AT REFAZE10.
038466,000865: 
038467,000866: 25,3034           45345        UPCONTRL           DLOAD    DSU                                   #  IF D-140 POS, NOSWITCH =1
038468,000867: 25,3035           03640                                    D                                     #  (SUPPRESS LATERAL SWITCH)
038469,000868: 25,3036           15222                                    C21                                   
038470,000869: 25,3037           43040                           BMN      SET                                   
038471,000870: 25,3040           53042                                    +2                                    
038472,000871: 25,3041           03070                                    NOSWITCH                              
038473,000872: 
038474,000873: 25,3042           45345                           DLOAD    DSU                                   #  IF V-V1 POS, GO TO DOWN CONTROL.
038475,000874: 25,3043           03674                                    V                                     
038476,000875: 25,3044           00326                                    V1                                    
038477,000876: 25,3045           71244                           BPL      DLOAD                                 
038478,000877: 25,3046           53257                                    DOWNCNTL                              
038479,000878: 25,3047           03640                                    D                                     
038480,000879: 25,3050           50025                           DSU      BMN                                   #  IF D- Q7 NEG, GO TO KEP
038481,000880: 25,3051           03175                                    Q7                                    
038482,000881: 25,3052           53312                                    KEP                                   
038483,000882: 25,3053           51145                           DLOAD    BPL                                   #  IF RDOT NEG, DO VLTEST
038484,000883: 25,3054           03700                                    RDOT                                  
038485,000884: 25,3055           53064                                    CONT1                                 
038486,000885: 
038487,000886: 25,3056           45345        VLTEST             DLOAD    DSU                                   #  IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
038488,000887: 25,3057           03674                                    V                                     
038489,000888: 25,3060           03757                                    VL                                    
038490,000889: 25,3061           50025                           DSU      BMN                                   
038491,000890: 25,3062           15166                                    C18                                   
038492,000891: 25,3063           53332                                    PREFINAL                              
038493,000892: 
038494,000893: 25,3064           77745        CONT1              DLOAD                                          #  IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
038495,000894: 25,3065           03640                                    D                                     
038496,000895: 25,3066           50025                           DSU      BMN                                   
038497,000896: 25,3067           00330                                    A0                                    
038498,000897: 25,3070           53074                                    CONT3                                 
038499,000898: 25,3071           52145                           DLOAD    GOTO                                  
038500,000899: 25,3072           03624                                    LAD                                   
038501,000900: 25,3073           53523                                    STOREL/D                              
038502,000901: 
038503,000902: 25,3074           41345        CONT3              DLOAD    DMP                                   #  VREF=FACT1(1-SQRT(FACT2 D + ALP))
038504,000903: 25,3075           03640                                    D                                     
038505,000904: 25,3076           03620                                    FACT2                                 

Page 873

038507,000906: 25,3077           75415                           DAD      SQRT                                  
038508,000907: 25,3100           03704                                    ALP                                   
038509,000908: 25,3101           41221                           BDSU     DMP                                   
038510,000909: 25,3102           15344                                    BARELY1                               
038511,000910: 25,3103           03616                                    FACT1                                 
038512,000911: 25,3104           01312                           STORE    VREF                                  #  VREF / 2VS
038513,000912: 
038514,000913: 25,3105           41221                           BDSU     DMP                                   #  RDOTREF = LEWD(V1-VREF)
038515,000914: 25,3106           00326                                    V1                                    
038516,000915: 25,3107           03725                                    LEWD                                  
038517,000916: 25,3110           15310                           STODL    RDOTREF                               #  RDOTREF / 2VS
038518,000917: 
038519,000918: 25,3111           03672                                    VS1                                   
038520,000919: 25,3112           50025                           DSU      BMN                                   #  IF VSAT-VREF NEG, GO TO CONTINU2
038521,000920: 25,3113           01312                                    VREF                                  
038522,000921: 25,3114           53133                                    CONTINU2                              
038523,000922: 
038524,000923: 25,3115           41406                           PUSH     PUSH                                  #  VS1-VREF  TO PDL TWICE
038525,000924: 25,3116           56205                           DMP      DDV                                   #  RDHOOK=CH1(1+DV AHOOKDV/DVL) DV DV
038526,000925: 25,3117           03660                                    AHOOKDV                               #        /DHOOK VREF
038527,000926: 25,3120           03662                                    DVL                                   #  WHERE  DV = (VS1-VREF)
038528,000927: 25,3121           41215                           DAD      DMP                                   
038529,000928: 25,3122           31771                                    1/16TH                                
038530,000929: 25,3123           15256                                    CH1                                   
038531,000930: 25,3124           41205                           DMP      DMP                                   
038532,000931:                                                                                                  #  VS1-VREF  FROM PDL TWICE.
038533,000932: 25,3125           77671                           DDV                                            
038534,000933: 25,3126           03656                                    DHOOK                                 
038535,000934: 25,3127           44271                           DDV      BDSU                                  
038536,000935: 25,3130           01312                                    VREF                                  
038537,000936: 25,3131           01310                                    RDOTREF                               #  C(RDOTREF)= LEWD (V1-VREF)
038538,000937: 25,3132           01310                           STORE    RDOTREF                               #  RDOTREF = RDOTREF - RDHOOK
038539,000938: 
038540,000939: 25,3133           45345        CONTINU2           DLOAD    DSU                                   
038541,000940: 25,3134           03640                                    D                                     
038542,000941: 25,3135           15344                                    Q7MIN                                 
038543,000942: 25,3136           50004                           BOVB     BMN                                   
038544,000943: 25,3137           57544                                    TCDANZIG                              #  CLEAR OVFL IND, IF ON.
038545,000944: 25,3140           53151                                    UPCNTRL3                              
038546,000945: 25,3141           45345                           DLOAD    DSU                                   
038547,000946: 25,3142           03664                                    A1                                    
038548,000947: 25,3143           03175                                    Q7                                    
038549,000948: 25,3144           45325                           PDDL     DSU                                   
038550,000949: 25,3145           03640                                    D                                     
038551,000950: 25,3146           03175                                    Q7                                    
038552,000951: 25,3147           45471                           DDV      STADR                                 
038553,000952: 25,3150           74163                           STORE    FACTOR                                #  FACTOR / 25G
038554,000953: 

Page 874

038556,000955: 
038557,000956:                                                                                                  #  SKIPPER
038558,000957: 
038559,000958:                                                                                                  #  DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
038560,000959:                                                                                                  #        WHERE F1 = FACTOR
038561,000960: 
038562,000961: 25,3151           77745        UPCNTRL3           DLOAD                                          
038563,000962: 25,3152           03700                                    RDOT                                  
038564,000963: 25,3153           41225                           DSU      DMP                                   #  L/D = LEWD
038565,000964: 25,3154           01310                                    RDOTREF                               #  -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
038566,000965: 25,3155           03614                                    FACTOR                                
038567,000966: 25,3156           43271                           DDV      DAD                                   
038568,000967: 25,3157           15212                                    1/KB1                                 
038569,000968: 25,3160           03674                                    V                                     
038570,000969: 25,3161           41225                           DSU      DMP                                   
038571,000970: 25,3162           01312                                    VREF                                  
038572,000971: 25,3163           03614                                    FACTOR                                
038573,000972: 25,3164           41471                           DDV      PUSH                                  
038574,000973: 
038575,000974: 25,3165           15214                                    -1/KB2                                #  DELTA L/D INTO PDL
038576,000975: 25,3166           51400                           BOV      ABS                                   #  NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
038577,000976: 25,3167           53470                                    GOMAXL/D                              
038578,000977: 25,3170           50025                           DSU      BMN                                   
038579,000978: 25,3171           15276                                    PT1/16                                
038580,000979: 25,3172           53177                                    NEXT1                                 
038581,000980: 25,3173           43205                           DMP      DAD                                   
038582,000981: 25,3174           15156                                    POINT1                                
038583,000982: 25,3175           15276                                    PT1/16                                
038584,000983: 25,3176           41565                           SIGN     PUSH                                  #  ATTACH SIGN OF PUSH TO MPAC THEN PUSH
038585,000984: 
038586,000985: 25,3177           42545        NEXT1              DLOAD    SL4                                   
038587,000986:                                                                                                  #  DELTA L/D FROM PDL.
038588,000987: 25,3200           77615                           DAD                                            
038589,000988: 25,3201           03725                                    LEWD                                  
038590,000989: 25,3202           41400        NEGTESTS           BOV      PUSH                                  #  L/D TO PDL FOR USE IN NEGTESTS.
038591,000990: 25,3203           53470                                    GOMAXL/D                              
038592,000991: 25,3204           17634                           STODL    L/D                                   
038593,000992:                                                                                                  #  IF D-C20 POS, LATSW =0
038594,000993:                                                                                                  #  AND IF L/D NEG, L/D = 0.
038595,000994: 25,3205           03640                                    D                                     
038596,000995: 25,3206           50025                           DSU      BMN                                   
038597,000996: 25,3207           15220                                    C20                                   
038598,000997: 25,3210           53524                                    LIMITL/D                              
038599,000998: 25,3211           71214                           CLEAR    DLOAD                                 
038600,000999: 25,3212           03273                                    LATSW                                 #  =21D.  ROLL OVER TOP, REGARDLESS.
038601,001000:                                                                                                  #  L/D FROM PDL.
038602,001001: 25,3213           71244                           BPL      DLOAD                                 
038603,001002: 25,3214           53524                                    LIMITL/D                              
038604,001003: 25,3215           15336                                    3ZEROS                                
038605,001004: 25,3216           37634                           STCALL   L/D                                   
038606,001005: 25,3217           53524                                    LIMITL/D                              #  (GO TO)
038607,001006: 

Page 875

038609,001008: 25,3220           77745        DCONSTD            DLOAD                                          #  TWO RANGER ENTRIES TO CONSTD HERE
038610,001009: 25,3221           03610                                    DIFF                                  
038611,001010:                                                                                                  #  SAVE OLD VALUE OF DIFF FOR NEXT PASS.
038612,001011: 25,3222           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038613,001012: 
038614,001013: 25,3223           15200                                    Q7F                                   
038615,001014: 25,3224           03175                           STORE    Q7                                    
038616,001015: 
038617,001016: 25,3225           47131        BECONSTD           SSP      RTB                                   #  A HUNTEST ENTRY INTO CONSTD.
038618,001017: 25,3226           03646                                    GOTOADDR                              #  RESET MODE TO HUNTEST
038619,001018: 25,3227           52373                                    HUNTEST                               
038620,001019: 25,3230           54505                                    KILLGRP4                              #  DEACTIVATE GRP4 FROM HUNTEST.
038621,001020: 
038622,001021: 25,3231           77604        CONSTD             BOVB                                           
038623,001022: 25,3232           57544                                    TCDANZIG                              #  CLEAR OVF IND IF ON.
038624,001023: 
038625,001024: 25,3233           41345                           DLOAD    DMP                                   
038626,001025: 25,3234           03654                                    LEQ                                   
038627,001026: 25,3235           03706                                    C/D0                                  #  C/D0 = -4/D0  B-8
038628,001027: 25,3236           41325                           PDDL     DMP                                   #  LEQ C/D0  INTO PDL
038629,001028: 25,3237           15264                                    2HS                                   #  2HS / 4 VS VS
038630,001029: 25,3240           03710                                    D0                                    
038631,001030: 25,3241           43271                           DDV      DAD                                   #  RDOTREF = -2 HS D0/V
038632,001031: 25,3242           03674                                    V                                     
038633,001032: 25,3243           03700                                    RDOT                                  
038634,001033: 25,3244           43205                           DMP      DAD                                   
038635,001034: 25,3245           15230                                    K2D                                   #  C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
038636,001035: 25,3246           77725                           PDDL                                           
038637,001036: 25,3247           03710                                    D0                                    #  D0 /805
038638,001037: 
038639,001038: 25,3250           77621        CONSTD1            BDSU                                           #  ENTER WITH  DREF  IN MPAC
038640,001039: 25,3251           03640                                    D                                     
038641,001040: 25,3252           43205                           DMP      DAD                                   
038642,001041: 25,3253           15226                                    K1D                                   #  K2D TERM FROM PUSH
038643,001042: 25,3254           52061                           SL       GOTO                                  
038644,001043: 25,3255           20211                                    8D                                    
038645,001044: 25,3256           53202                                    NEGTESTS                              #  (GO TO)
038646,001045: 
038647,001046: 
038648,001047: 25,3257           77604        DOWNCNTL           BOVB                                           #  INITIAL PART OF UPCONTROL.
038649,001048: 25,3260           57544                                    TCDANZIG                              #  CLEAR OVFIND, IF ON.
038650,001049: 
038651,001050: 25,3261           54345                           DLOAD    SR                                    
038652,001051: 25,3262           03624                                    LAD                                   
038653,001052: 25,3263           20611                                    8D                                    
038654,001053: 25,3264           45325                           PDDL     DSU                                   #  RDTR = LAD(V1-V)
038655,001054: 25,3265           03674                                    V                                     
038656,001055: 25,3266           00326                                    V1                                    
038657,001056: 25,3267           43205                           DMP      DAD                                   
038658,001057: 25,3270           03624                                    LAD                                   

Page 876

038660,001059: 25,3271           03700                                    RDOT                                  
038661,001060: 25,3272           43205                           DMP      DAD                                   
038662,001061: 25,3273           15230                                    K2D                                   
038663,001062:                                                                                                  #  PUSH UP LAD.
038664,001063: 25,3274           45325                           PDDL     DSU                                   #  LAD + K2D(RDOT-RDTR) INTO PD
038665,001064: 25,3275           00326                                    V1                                    
038666,001065: 25,3276           03674                                    V                                     
038667,001066: 25,3277           41316                           DSQ      DMP                                   
038668,001067: 25,3300           03624                                    LAD                                   
038669,001068: 25,3301           65271                           DDV      PDDL                                  #  (V1-V)SQ LAD/(2 C1 HS) INTO PD
038670,001069: 25,3302           15274                                    2C1HS                                 
038671,001070: 25,3303           00326                                    V1                                    
038672,001071: 25,3304           56316                           DSQ      DDV                                   
038673,001072: 25,3305           03622                                    VSQUARE                               
038674,001073: 25,3306           45265                           BDDV     DSU                                   #  DREF = (V/V1)SQ A0 - PD
038675,001074: 25,3307           00330                                    A0                                    
038676,001075:                                                                                                  #  PUSH UP HERE
038677,001076: 25,3310           77650                           GOTO                                           #  C(MPAC) = DREF
038678,001077: 25,3311           53250                                    CONSTD1                               
038679,001078: 
038680,001079:                                                                                                  #               2           2
038681,001080:                                                                                                  #  DREF = (V/V1)  A0 -(V-V1)  LAD/2 C1 HS

Page 877

038683,001082: 
038684,001083:                                                                                                  #  * START       BALLISTIC PHASE ...
038685,001084: 
038686,001085:                                                                                                  #  MM = 66       UPCONTRL ENTRY INTO KEP2.
038687,001086: 25,3312           66234        KEP                RTB      SSP                                   
038688,001087: 25,3313           54473                                    P66                                   #  DISPLAY TRIM GIMBAL ANGLE VALUES.
038689,001088: 25,3314           03646                                    GOTOADDR                              #  SET GOTOADDR TO KEPLER PHASE.
038690,001089: 25,3315           53316                                    KEP2                                  
038691,001090: 
038692,001091:                                                                                                  #  KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
038693,001092:                                                                                                  #  IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
038694,001093:                                                                                                  #  .2 G BEFORE GOING ON TO P67.
038695,001094: 
038696,001095: 25,3316           45345        KEP2               DLOAD    DSU                                   #  IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
038697,001096: 25,3317           15170                                    Q7FKDMIN                              #  (Q7F + KDMIN)/805
038698,001097: 25,3320           03640                                    D                                     
038699,001098: 25,3321           72240                           BMN      TLOAD                                 
038700,001099: 25,3322           53332                                    PREFINAL                              
038701,001100: 
038702,001101: 
038703,001102:                                                                                                  #  SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
038704,001103: 25,3323           03316                                    ROLLC                                 #  = +1 EVER ENTERED.
038705,001104: 25,3324           72214                           BON      TLOAD                                 #  IF D > .05G, KEEP PRESENT ROLL COMMAND.
038706,001105: 25,3325           03314                                    .05GSW                                #  IF D < .05G, SET ROLL COMMAND = 0.
038707,001106: 25,3326           53330                                    +2                                    
038708,001107: 25,3327           15336                                    3ZEROS                                #  SET ROLLC & ROLLHOLD =0.
038709,001108: 25,3330           37316                 +2        STCALL   ROLLC                                 #  (SP ROLLHOLD FOLLOWS DP ROLLC)
038710,001109: 25,3331           54402                                    P62.3                                 #  CALC DESIRED GIMBAL ANGLES AT PRESENT
038711,001110:                                                                                                  #  RN, VN TO YIELD TRIM ATTITUDE.
038712,001111:                                                                                                  #  AVAILABLE IN CPHI'S FOR N22.

Page 878

038714,001113: 
038715,001114:                                                                                                  #  START         FINAL PHASE  ..
038716,001115: 
038717,001116:                                                                                                  #  MM = 67
038718,001117: 25,3332           47131        PREFINAL           SSP      RTB                                   
038719,001118: 25,3333           03646                                    GOTOADDR                              #  RESTART PROTECT: RESET GOTOADDR IF CAME
038720,001119: 25,3334           53332                                    PREFINAL                              #  FROM HUNTEST.
038721,001120: 25,3335           54477                                    P67                                   #  DISABLES GRP4. FINE IF FROM HUNTEST. BUT 
038722,001121:                                                                                                  #  MAY ALSO REMOVE RESTART PROTECTION OF
038723,001122:                                                                                                  #  N69 (P65).
038724,001123:                                                                                                  #  ROLLC         XRNGERR         DNRNGERR
038725,001124:                                                                                                  #  XXX.XX DEG    XXXX.X NM       XXXX.X NM
038726,001125: 
038727,001126: 25,3336           66214                           SET      SSP                                   
038728,001127: 25,3337           03067                                    EGSW                                  
038729,001128: 25,3340           03646                                    GOTOADDR                              
038730,001129: 25,3341           53342                                    PREDICT3                              
038731,001130: 
038732,001131: 
038733,001132: 25,3342           45345        PREDICT3           DLOAD    DSU                                   #  IF V-VQUIT NEG, STOP STEERING
038734,001133: 25,3343           03674                                    V                                     
038735,001134: 25,3344           15216                                    VQUIT                                 
038736,001135: 25,3345           77440                           BMN      EXIT                                  
038737,001136: 25,3346           53611                                    STEEROFF                              
038738,001137: 
038739,001138: 25,3347           04606                           TC       E7SETTER                              #  PRECAUTIONARY
038740,001139: 
038741,001140: 25,3350           35775                           CA       TWELVE                                
038742,001141: 25,3351           55761        BACK               TS       JJ                                    
038743,001142: 
038744,001143: 25,3352           41673                           CS       V                                     
038745,001144: 25,3353           51761                           INDEX    JJ                                    
038746,001145: 25,3354           63634                           AD       VREFER                                #  VREF - V, HIGHEST VREF AT END OF TABLE.
038747,001146: 25,3355           10000                           CCS      A                                     #  IF VREF-V POS LOOP BACK
038748,001147: 25,3356           11761                           CCS      JJ                                    #  DECREMENT JJ, JJ CANNOT BE ZERO
038749,001148: 25,3357           13351                           TCF      BACK                                  
038750,001149: 25,3360           64770                           AD       ONE                                   
038751,001150: 25,3361           55646                           TS       TEM1B                                 #  V-VREF IN TEM1B (MUST BE POSITIVE NUM)
038752,001151: 
038753,001152: 25,3362           51761                           INDEX    JJ                                    
038754,001153: 25,3363           43634                           CS       VREFER                                
038755,001154: 25,3364           51761                           INDEX    JJ                                    
038756,001155: 25,3365           63635                           AD       VREFER     +1                         #  V(K+1) - V(K)                 (POS NUM)
038757,001156: 25,3366           57646                           XCH      TEM1B                                 
038758,001157: 25,3367           22007                           ZL                                             
038759,001158: 25,3370           00006                           EXTEND                                         
038760,001159: 25,3371           11646                           DV       TEM1B                                 
038761,001160: 25,3372           55651                           TS       GRAD                                  #  GRAD = (V-VREF)/(VK+1 - VK)   (POS NUM
038762,001161: 
038763,001162: 25,3373           34773                           CAF      FIVE                                  
038764,001163: 25,3374           55650        BACK2              TS       MM                                    

Page 879

038766,001165: 25,3375           34776                           CAF      THIRTEEN                              
038767,001166: 25,3376           27761                           ADS      JJ                                    
038768,001167: 25,3377           50000                           INDEX    A                                     
038769,001168: 25,3400           43634                           CS       VREFER                                
038770,001169: 25,3401           51761                           INDEX    JJ                                    
038771,001170: 25,3402           63635                           AD       VREFER     +1                         #  X(K+1) - X(K)
038772,001171: 25,3403           00006                           EXTEND                                         
038773,001172: 25,3404           71651                           MP       GRAD                                  
038774,001173: 25,3405           51761                           INDEX    JJ                                    
038775,001174: 25,3406           63634                           AD       VREFER                                
038776,001175: 25,3407           51650                           INDEX    MM                                    
038777,001176: 25,3410           55652                           TS       FX                                    #  FX = AK + GRAD (AK+1 - AK)
038778,001177: 25,3411           11650                           CCS      MM                                    
038779,001178: 25,3412           13374                           TCF      BACK2                                 
038780,001179: 25,3413           57653                           XCH      FX         +1                         #  ZERO FX +1 AND GET DREFR
038781,001180: 25,3414           61637                           AD       D                                     
038782,001181: 25,3415           00006                           EXTEND                                         
038783,001182: 25,3416           71657                           MP       FX         +5                         #  F1
038784,001183: 25,3417           52155                           DXCH     MPAC                                  #  MPAC = F1(D-DREF)
038785,001184: 
038786,001185: 25,3420           00006                           EXTEND                                         
038787,001186: 25,3421           41700                           DCS      RDOT                                  #  FORM RDOTREF - RDOT
038788,001187: 25,3422           20001                           DDOUBL                                         
038789,001188: 25,3423           20001                           DDOUBL                                         
038790,001189: 25,3424           20001                           DDOUBL                                         #  SCALE UP BY 8 FOR THIS PHASE.
038791,001190: 25,3425           61655                           AD       FX         +3                         #  RDOTREF
038792,001191: 25,3426           00006                           EXTEND                                         
038793,001192: 25,3427           71656                           MP       FX         +4                         #  F2
038794,001193: 25,3430           61654                           AD       FX         +2                         #  RTOGO
038795,001194: 25,3431           20155                           DAS      MPAC                                  #  ADD F2(DADV1-DADVR)
038796,001195: 25,3432           30154                           CA       MPAC                                  
038797,001196: 25,3433           55760                           TS       PREDANG                               
038798,001197:                                                                                                  #  L/D = LOD + (THETA- PREDANG)/ Y
038799,001198: 25,3434           06006                           TC       INTPRET                               
038800,001199: 
038801,001200: 25,3435           45242                           SR3      DSU                                   
038802,001201: 25,3436           03702                                    THETAH                                
038803,001202: 25,3437           43014                           BON      BOFF                                  
038804,001203: 25,3440           03305                                    GONEPAST                              
038805,001204: 25,3441           53466                                    GONEGLAD                              
038806,001205: 25,3442           03747                                    GONEBY                                
038807,001206: 25,3443           53451                                    HAVDNRNG                              
038808,001207: 25,3444           43145                           DLOAD    SET                                   #  SET GONEPAST IF GONEBY SET & LATCH IN -
038809,001208: 25,3445           13770                                    MAXRNG                                #  DISPLAY = 9999.9 IF GONEBY         PLACE
038810,001209: 25,3446           03065                                    GONEPAST                              
038811,001210: 25,3447           37716                           STCALL   DNRNGERR                              
038812,001211: 25,3450           53466                                    GONEGLAD                              
038813,001212: 
038814,001213: 25,3451           03716        HAVDNRNG           STORE    DNRNGERR                              #  = (PREDANG - THETA) /360

Page 880

038816,001215: 25,3452           77676                           DCOMP                                          #    FALL SHORT IF NEG, OVERSHOOT IF POS
038817,001216: 25,3453           56204                           BOVB     DDV                                   
038818,001217: 25,3454           57544                                    TCDANZIG                              #  CLEAR OVFIND IF ON.
038819,001218: 25,3455           03653                                    FX                                    #  FX= DRANGE/D L/D = Y
038820,001219: 25,3456           40061                           SL       BOV                                   
038821,001220: 25,3457           20206                                    5                                     
038822,001221: 25,3460           53470                                    GOMAXL/D                              
038823,001222: 25,3461           40015                           DAD      BOV                                   
038824,001223: 25,3462           03626                                    LOD                                   
038825,001224: 25,3463           53470                                    GOMAXL/D                              
038826,001225: 25,3464           37634                           STCALL   L/D                                   
038827,001226: 25,3465           53474                                    GLIMITER                              #  (GO TO)
038828,001227: 
038829,001228: 
038830,001229:                                                                                                  #  GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
038831,001230: 
038832,001231: 25,3466           77745        GONEGLAD           DLOAD                                          #  SET L/D = -LAD
038833,001232: 25,3467           13467                                    GONEGLAD                              #  (ANY NEGATIVE NUMBER WILL DO)
038834,001233: 
038835,001234: 25,3470           41234        GOMAXL/D           RTB      DMP                                   #  L/D = LAD SIGN(MPAC)
038836,001235: 25,3471           45761                                    SIGNMPAC                              
038837,001236: 25,3472           03624                                    LAD                                   
038838,001237: 25,3473           03634                           STORE    L/D                                   #  AND FALL INTO GLIMITER SECTION
038839,001238: 
038840,001239: 25,3474           45345        GLIMITER           DLOAD    DSU                                   #  IF GMAX/2-D POS, GO TO LIMITL/D
038841,001240: 25,3475           15162                                    GMAX/2                                
038842,001241: 25,3476           03640                                    D                                     
038843,001242: 25,3477           43244                           BPL      DAD                                   #  IF GMAX  -D NEG, GO TO GOPOSLAD
038844,001243: 25,3500           53524                                    LIMITL/D                              
038845,001244: 25,3501           15162                                    GMAX/2                                
038846,001245: 25,3502           41240                           BMN      DMP                                   
038847,001246: 25,3503           53521                                    GOPOSLAD                              
038848,001247: 25,3504           15264                                    2HS                                   
038849,001248: 25,3505           41325                           PDDL     DMP                                   #  2HS(GMAX-D) INTO PD
038850,001249: 25,3506           03654                                    LEQ                                   
038851,001250: 25,3507           15334                                    1/GMAX                                
038852,001251: 25,3510           41215                           DAD      DMP                                   
038853,001252: 25,3511           03624                                    LAD                                   
038854,001253: 25,3512           56325                           PDDL     DDV                                   #  2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
038855,001254: 25,3513           15266                                    2HSGMXSQ                              
038856,001255: 25,3514           03622                                    VSQUARE                               
038857,001256: 25,3515           75415                           DAD      SQRT                                  #  XLIM = SQRT(PD+(2HSGMAX/V)SQ)
038858,001257: 25,3516           51015                           DAD      BPL                                   #  IF RDOT+XLIM POS, GO TO LIMITL/D
038859,001258: 25,3517           03700                                    RDOT                                  
038860,001259: 25,3520           53524                                    LIMITL/D                              
038861,001260: 
038862,001261: 25,3521           77745        GOPOSLAD           DLOAD                                          
038863,001262: 25,3522           03624                                    LAD                                   
038864,001263: 25,3523           03634        STOREL/D           STORE    L/D                                   
038865,001264: 

Page 881

038867,001266: 25,3524           77745        LIMITL/D           DLOAD                                          
038868,001267: 25,3525           03634                                    L/D                                   
038869,001268: 25,3526           17636                           STODL    L/D1                                  
038870,001269: 25,3527           03622                                    VSQUARE                               
038871,001270: 
038872,001271: 25,3530           77614                           BON                                            #  NO LATERAL CONTROL IF PAST TARGET
038873,001272: 25,3531           03305                                    GONEPAST                              
038874,001273: 25,3532           53564                                    L355                                  
038875,001274: 25,3533           43205                           DMP      DAD                                   #  Y= KLAT VSQUARE + LATBIAS
038876,001275: 25,3534           03632                                    KLAT                                  
038877,001276: 25,3535           15244                                    LATBIAS                               #  Y INTO PD
038878,001277: 25,3536           51525        L350               PDDL     ABS                                   #  IF ABS(L/D)-L/DCMINR NEG, GO TO L353
038879,001278: 25,3537           03634                                    L/D                                   
038880,001279: 25,3540           50025                           DSU      BMN                                   
038881,001280: 25,3541           03630                                    L/DCMINR                              
038882,001281: 25,3542           53551                                    L353                                  
038883,001282: 25,3543           75345                           DLOAD    SIGN                                  #  IF K2ROLL LATANG NEG, GO TO L357
038884,001283: 25,3544           03676                                    LATANG                                
038885,001284: 25,3545           03644                                    K2ROLL                                
038886,001285: 25,3546           71240                           BMN      DLOAD                                 
038887,001286: 25,3547           53627                                    L357                                  
038888,001287: 25,3550           41542                           SR1      PUSH                                  #  Y = Y/2
038889,001288: 25,3551           75345        L353               DLOAD    SIGN                                  #  IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
038890,001289: 25,3552           03676                                    LATANG                                
038891,001290: 25,3553           03644                                    K2ROLL                                
038892,001291: 25,3554           77625                           DSU                                            
038893,001292: 25,3555           71240                           BMN      DLOAD                                 
038894,001293: 25,3556           53564                                    L355                                  
038895,001294: 25,3557           03644                                    K2ROLL                                
038896,001295: 25,3560           57414                           BONCLR   DCOMP                                 #  IF NOSWITCH =1, K2ROLL= K2ROLL
038897,001296: 25,3561           03210                                    NOSWITCH                              
038898,001297: 25,3562           53564                                    L355                                  
038899,001298: 25,3563           03644                           STORE    K2ROLL                                #  K2ROLL = -K2ROLL
038900,001299: 
038901,001300: 25,3564           56345        L355               DLOAD    DDV                                   #  ROLLC = ACOS( (L/D1) / LAD)
038902,001301: 25,3565           03636                                    L/D1                                  
038903,001302: 25,3566           03624                                    LAD                                   #  MPAC SET TO +-1 IF OVERFLOW***
038904,001303: 25,3567           65542                           SR1      ACOS                                  
038905,001304: 25,3570           43165                           SIGN     CLEAR                                 
038906,001305: 25,3571           03644                                    K2ROLL                                
038907,001306: 25,3572           03270                                    NOSWITCH                              
038908,001307: 25,3573           03316                           STORE    ROLLC                                 
038909,001308: 
038910,001309: 25,3574           77776        ENDEXIT            EXIT                                           
038911,001310: 
038912,001311: 25,3575           34754        OVERNOUT           CAF      ENDSPBIT                              #  ENTRYDSP = 92D BIT13
038913,001312: 25,3576           70102                           MASK     CM/FLAGS                              
038914,001313: 25,3577           00006                           EXTEND                                         
038915,001314: 25,3600           13604                           BZF      NODISKY                               #  OMIT DISPLAY.

Page 882

038917,001316: 25,3601           31122                           CA       ENTRYVN                               #  ALL ENTRY DISPLAYS ARE DONE HERE.
038918,001317: 25,3602           04636                           TC       BANKCALL                              
038919,001318: 25,3603           20724                           CADR     REGODSPR                              #  NO ABORT IF DISKY IN USE
038920,001319: 
038921,001320: 25,3604           00004        NODISKY            INHINT                                         
038922,001321: 25,3605           10067                           CCS      NEWJOB                                #  PROTECT READACCS GRP 5, IF SIDETRACKED.
038923,001322: 25,3606           05152                           TC       CHANG1                                
038924,001323: 25,3607           04655        SERVNOUT           TC       POSTJUMP                              #  ( COME HERE FROM P67.3)
038925,001324: 25,3610           77143                           CADR     SERVEXIT                              #  AND END AVERAGEG JOB VIA  ENDOFJOB.
038926,001325: 

Page 883

038928,001327: 
038929,001328:                                                                                                  #  DISPLAY WHEN V IS LESS THAN VQUIT.
038930,001329: 
038931,001330: 25,3611           77776        STEEROFF           EXIT                                           
038932,001331: 25,3612           04606                           TC       E7SETTER                              
038933,001332: 
038934,001333: 25,3613           35055                           CA       PRIO16                                #  2 LESS THAN NTRYPRIO.
038935,001334: 25,3614           05121                           TC       NOVAC                                 
038936,001335: 25,3615  E6,1661                                  EBANK=   AOG                                   #  ANY EB HERE
038937,001336: 25,3615           02511 54066                     2CADR    P67.1                                 #  START UP REMAINDER OF P67
038938,001337: 
038939,001338:                                                                                                  #  RTOGO         LAT             LONG
038940,001339:                                                                                                  #  XXXX.X NM     XXX.XX DEG      XXX.XX DEG
038941,001340: 
038942,001341: 25,3617           05362                           TC       2PHSCHNG                              #  INHINT/RELINT DONE.
038943,001342: 25,3620           00414                           OCT      00414                                 #  4.41 RESTART FOR P67.1 DISPLAY JOB.
038944,001343: 25,3621           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART.
038945,001344: 
038946,001345: 25,3622  01,2201               4P41SPT1           =        4.41SPOT                              
038947,001346: 25,3622  01,2250               5P3SPT15           =        5.3SPOT                               
038948,001347: 25,3622           33626                           CA       P67.2CAD                              #  HEREAFTER, DO LAT, LONG.
038949,001348: 25,3623           55645                           TS       GOTOADDR                              
038950,001349: 
038951,001350: 25,3624           06006                           TC       INTPRET                               
038952,001351: 25,3625           77650                           GOTO                                           
038953,001352: 25,3626           54532        P67.2CAD                    P67.2                                 #  CONTINUE FOR LAT, LONG THIS TIME.
038954,001353: 
038955,001354: 25,3627           75345        L357               DLOAD    SIGN                                  #  L/D = L/DCMINR SIGN(L/D)
038956,001355: 25,3630           03630                                    L/DCMINR                              
038957,001356: 25,3631           03634                                    L/D                                   
038958,001357: 25,3632           37636                           STCALL   L/D1                                  
038959,001358: 25,3633           53564                                    L355                                  #  (GO TO)
038960,001359: 

Page 884

038962,001361: 
038963,001362:                                                                                                  #  TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
038964,001363: 
038965,001364: 25,3634           00474        VREFER             DEC      .019288                               #  REFERENCE VELOCITY SCALED V/51532.3946
038966,001365: 25,3635           01235                           DEC      .040809                               #  13 POINTS ARE STORED AS THE INDEPENDENT
038967,001366: 25,3636           02337                           DEC      .076107                               #  VARIABLE AND THEN SIX 13 POINT FUNCTIONS
038968,001367: 25,3637           03721                           DEC      .122156                               #  OF V ARE STORED CONSECUTIVELY
038969,001368: 25,3640           05230                           DEC      .165546                               
038970,001369: 25,3641           06213                           DEC      .196012                               
038971,001370: 25,3642           10550                           DEC      .271945                               
038972,001371: 25,3643           11717                           DEC      .309533                               
038973,001372: 25,3644           13314                           DEC      .356222                               
038974,001373: 25,3645           14736                           DEC      .404192                               
038975,001374: 25,3646           16255                           DEC      .448067                               
038976,001375: 25,3647           16457                           DEC      .456023                               
038977,001376: 25,3650           25570                           DEC      .67918                                #  HIGH VELOCITY FOR SAFETY
038978,001377: 
038979,001378: 25,3651           77526                           DEC      -.010337                              #  DRANGE/DA     SCALED DRDA/(2700/805)
038980,001379: 25,3652           77360                           DEC      -.016550                              
038981,001380: 25,3653           77106                           DEC      -.026935                              
038982,001381: 25,3654           76516                           DEC      -.042039                              
038983,001382: 25,3655           76071                           DEC      -.058974                              
038984,001383: 25,3656           75570                           DEC      -.070721                              
038985,001384: 25,3657           74661                           DEC      -.098538                              
038986,001385: 25,3660           70657                           DEC      -.223611                              
038987,001386: 25,3661           66352                           DEC      -.298148                              
038988,001387: 25,3662           66352                           DEC      -.298148                              
038989,001388: 25,3663           54557                           DEC      -.602557                              
038990,001389: 25,3664           40000                           DEC      -.99999                               
038991,001390: 25,3665           40000                           DEC      -.99999                               
038992,001391: 
038993,001392: 25,3666           77635                           DEC      -.0478599  B-3                        #  -DRANGE/DRDOT
038994,001393: 25,3667           77563                           DEC      -.0683663  B-3                        #  SCALED ((2VS/8 2700) DR/DRDOT)
038995,001394: 25,3670           77354                           DEC      -.1343468  B-3                        
038996,001395: 25,3671           76712                           DEC      -.2759846  B-3                        
038997,001396: 25,3672           76066                           DEC      -.4731437  B-3                        
038998,001397: 25,3673           75322                           DEC      -.6472087  B-3                        
038999,001398: 25,3674           73237                           DEC      -1.171693  B-3                        
039000,001399: 25,3675           72104                           DEC      -1.466382  B-3                        
039001,001400: 25,3676           70301                           DEC      -1.905171  B-3                        
039002,001401: 25,3677           65635                           DEC      -2.547990  B-3                        
039003,001402: 25,3700           57311                           DEC      -4.151220  B-3                        
039004,001403: 25,3701           50575                           DEC      -5.813617  B-3                        
039005,001404: 25,3702           50575                           DEC      -5.813617  B-3                        
039006,001405: 

Page 885

039008,001407: 25,3703           74443                           DEC      -.0134001  B3                         #  RDOTREF       SCALED (8 RDT/2VS)
039009,001408: 25,3704           74333                           DEC      -.013947   B3                         
039010,001409: 25,3705           74433                           DEC      -.013462   B3                         
039011,001410: 25,3706           74763                           DEC      -.011813   B3                         
039012,001411: 25,3707           75432                           DEC      -.0095631  B3                         
039013,001412: 25,3710           75735                           DEC      -.00806946 B3                         
039014,001413: 25,3711           76200                           DEC      -.006828   B3                         
039015,001414: 25,3712           75735                           DEC      -.00806946 B3                         
039016,001415: 25,3713           75140                           DEC      -.0109791  B3                         
039017,001416: 25,3714           74075                           DEC      -.0151496  B3                         
039018,001417: 25,3715           73312                           DEC      -.0179817  B3                         
039019,001418: 25,3716           73732                           DEC      -.0159061  B3                         
039020,001419: 25,3717           73732                           DEC      -.0159061  B3                         
039021,001420: 
039022,001421: 25,3720           00026                           DEC      .00137037                             #   3.7  RTOGO SCALED RTOGO/2700
039023,001422: 25,3721           00077                           DEC      .00385185                             #  10.4
039024,001423: 25,3722           00217                           DEC      .00874074                             #  23.6
039025,001424: 25,3723           00431                           DEC      .017148                               
039026,001425: 25,3724           00712                           DEC      .027926                               
039027,001426: 25,3725           01136                           DEC      .037                                  
039028,001427: 25,3726           02015                           DEC      .063296                               
039029,001428: 25,3727           02374                           DEC      .077889                               
039030,001429: 25,3730           03123                           DEC      .098815                               
039031,001430: 25,3731           04051                           DEC      .127519                               
039032,001431: 25,3732           05767                           DEC      .186963                               
039033,001432: 25,3733           07476                           DEC      .238148                               
039034,001433: 25,3734           11324                           DEC      .294185185                            
039035,001434: 
039036,001435: 25,3735           76272                           DEC      -.051099                              #  -AREF/805
039037,001436: 25,3736           75472                           DEC      -.074534                              
039038,001437: 25,3737           74604                           DEC      -.101242                              
039039,001438: 25,3740           74210                           DEC      -.116646                              
039040,001439: 25,3741           74052                           DEC      -.122360                              
039041,001440: 25,3742           73735                           DEC      -.127081                              
039042,001441: 25,3743           73217                           DEC      -.147453                              
039043,001442: 25,3744           73013                           DEC      -.155528                              
039044,001443: 25,3745           73155                           DEC      -.149565                              
039045,001444: 25,3746           74151                           DEC      -.118509                              
039046,001445: 25,3747           76703                           DEC      -.034907                              
039047,001446: 25,3750           77575                           DEC      -.007950                              
039048,001447: 25,3751           77575                           DEC      -.007950                              
039049,001448: 

Page 886

039051,001450: 25,3752           00112                           DEC      .004491                               #  DRANGE/D L/D SCALED Y/2700
039052,001451: 25,3753           00204                           DEC      .008081                               
039053,001452: 25,3754           00407                           DEC      .016030                               
039054,001453: 25,3755           01113                           DEC      .035815                               
039055,001454: 25,3756           02161                           DEC      .069422                               
039056,001455: 25,3757           03260                           DEC      .104519                               
039057,001456: 25,3760           03717                           DEC      .122                                  
039058,001457: 25,3761           05411                           DEC      .172407                               
039059,001458: 25,3762           10057                           DEC      .252852                               
039060,001459: 25,3763           13476                           DEC      .363148                               
039061,001460: 25,3764           20324                           DEC      .512963                               
039062,001461: 25,3765           21677                           DEC      .558519                               
039063,001462: 25,3766           21677                           DEC      .558519                               #  END OF STORED REFERENCE
039064,001463: 

Page 887

039066,001465: 
039067,001466:                                                                                                  #  REENTRY CONSTANTS.
039068,001467: 
039069,001468:                                                                                                  #  DEFINED BY EQUALS
039070,001469: 
039071,001470: 25,3767     4777               DEC15              =        LOW4                                  
039072,001471:                                                                                                  # GAMMAL1        =       22D
039073,001472: 
039074,001473: 25,3767           16631 06755  MAXRNG             2OCT     1663106755                            #  DNRNGERR = 9999.9 IF GONEPAST=1
039075,001474: 
039076,001475: 26,2000                                           SETLOC   REENTRY1                              
039077,001476: 26,2000                                           BANK                                           
039078,001477: 
039079,001478: 26,3150                                           COUNT*   $$/ENTRY                              
039080,001479: 
039081,001480: 26,3150  26,3343               BARELY1            =        NEARONE                               #  COMMON TO BOTH DISK,DANCE.DEFND IN TFF
039082,001481:                                                                                                  # 1BITDP                                 COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
039083,001482: 
039084,001483: 26,3150           02525        1/12TH             DEC      .083333                               #  DP 1/12 USES HI WORD IN 1/3 BELOW
039085,001484: 
039086,001485: 26,3151           12525 12525  1/3RD              2DEC     .3333333333                            #  DP 1/3
039087,001486: 
039088,001487: 26,3153  34,3770               1/16TH             =        DP2(-4)                               
039089,001488: 
039090,001489:                                                                                                  #  BELOW:  VS = VSAT = 25766.1973 FT/SEC
039091,001490: 
039092,001491:                                                                                                  #          RE = 21,202,900 FEET
039093,001492: 
039094,001493: 26,3153           04631 23146  LEWD1              2DEC     .15                                   
039095,001494: 
039096,001495: 26,3155           03146 14632  POINT1             2DEC     .1                                    
039097,001496: 
039098,001497: 26,3157           76314 71462  DLEWD0             2DEC     -.05                                  #  -.05
039099,001498: 
039100,001499: 26,3161           05075 16051  GMAX/2             2DEC     .16                                   #  8 GS / 2
039101,001500: 
039102,001501: 26,3163  26,3335               3ZEROS             EQUALS   HI6ZEROS                              
039103,001502: 
039104,001503: 26,3163           07777 00000  NEAR1/4            2OCT     0777700000                            #  1/4 LESS 1 BIT IN UPPER PART.
039105,001504: 
039106,001505: 26,3165           00236 36763  C18                2DEC     .0097026346                            #  500/2VS
039107,001506: 
039108,001507: 26,3167           00204 11303  Q7FKDMIN           2DEC     .0080745342                            #  6.5/805  (Q7F +KDMIN) = 6 + .5)
039109,001508: 
039110,001509: 26,3171  34,3770               C1/16              =        DP2(-4)                               
039111,001510: 
039112,001511: 26,3171           05260 05572  Q3                 2DEC     .167003132                            #  .07 2VS/21600
039113,001512: 
039114,001513: 26,3173           12343 21616  Q5                 2DEC     .326388889                            #  .3 23500/21600
039115,001514: 

Page 888

039117,001516: 
039118,001517: 26,3175           01073 31515  Q6                 2DEC     .0349                                 #  2 DEG, APPROX 820/23500
039119,001518: 
039120,001519: 26,3177           00172 03571  Q7F                2DEC     .0074534161                            #  6/805    (VALUE OF Q7 IN FIXED MEM.)
039121,001520: 
039122,001521: 26,3201  26,3333               Q19                =        HALVE                                 #  Q19 = .5
039123,001522: 
039124,001523: 26,3201           05136 32046  Q21                2DEC     .1620370370                            #  3500/21600
039125,001524: 
039126,001525: 26,3203           75031 40775  Q22                2DEC     -.092222222                            #  -1992/21600
039127,001526: 
039128,001527: 26,3205           13132 33062  VLMIN              2DEC     .34929485                             #  18000/2 VS
039129,001528: 
039130,001529: 26,3207  26,3325               VMIN               =        FOURTH                                #  (VS/2) / 2VS
039131,001530: 
039132,001531: 26,3207           00160 05104  C12                2DEC     .00684572901                            #  32 28500/(21202900 2 PI)
039133,001532: 
039134,001533: 26,3211           14631 23146  1/KB1              2DEC     .4                                    #  1 / 2.5
039135,001534: 
039136,001535: 26,3213           74015 46560  -1/KB2             2DEC     -.0077621078 B4                         #  - 1/(.0025 2 VS) EXP +4
039137,001536: 
039138,001537: 26,3215           00475 35746  VQUIT              2DEC     .019405269                            #  1000 /2VS
039139,001538: 
039140,001539: 26,3217           10262 02622  C20                2DEC     .26086957                             #  210/805  90 DEG MAX ROLL IF ABOVE C20
039141,001540: 
039142,001541: 26,3221           05441 14412  C21                2DEC     .17391304                             #  140/805
039143,001542: 
039144,001543: 26,3223           00022 36641  25NM               2DEC     .0011574074                            #  25/21600      (25 NAUT MILES)
039145,001544: 
039146,001545: 26,3225           01003 06315  K1D                2DEC     .0314453125                            #  =C16 805/256 = .01 805/256
039147,001546: 
039148,001547: 26,3227           63073 73236  K2D                2DEC     -.402596836                            #  -C17 2VS/256 = -.002 2VS/256
039149,001548: 
039150,001549: 26,3231           32047 24367  KVSCALE            2DEC     .81491944                             #  12800/(2 VS .3048)
039151,001550: 
039152,001551: 26,3233           37200 05636  KASCALE            2DEC     .97657358                             #  5.85 16384/(4 .3048 100 805)
039153,001552: 
039154,001553: 26,3235           00046 13137  KTETA              2DEC*    .383495203 E2         B-14*           #  1000 2PI/16384(163.84)
039155,001554: 
039156,001555: 26,3237           00017 30730  KT1                2DEC*    .157788327 E2         B-14*           #  RE(2PI)/2 VS(16384) 163.84
039157,001556: 
039158,001557: 26,3241           00040 30447  .05G               2DEC     .002                                  #  .05/25
039159,001558: 
039160,001559: 26,3243           00000 17565  LATBIAS            2DEC     .00003                                #  APPRX .5 NM/ 4(21600/2 PI)
039161,001560: 
039162,001561: 26,3245           01727 20103  KWE                2DEC     .120056652 B-1                        
039163,001562: 
039164,001563: 26,3247           00121 17460  KACOS              2DEC     .004973592                            #  1/32(2PI)
039165,001564: 
039166,001565: 26,3251           00400 00000  CHOOK              2DEC     1          B-6                        #  .25/16
039167,001566: 26,3253           01252 25253  1/24TH             2DEC     .0833333333 B-1                        
039168,001567: 

Page 889

039170,001569: 26,3255           24365 30244  CH1                2DEC     .32        B1                         #  16 CH1/25 = 16 (1) /25
039171,001570: 
039172,001571: 26,3257           77152 51354  KC3                2DEC     -.0247622232                            #  -(4 VS VS/ 2 PI 805 RE)
039173,001572: 
039174,001573: 26,3261           00336 21610  VRCONT             2DEC     .0135836886                            #  700/2 VSAT
039175,001574: 
039176,001575: 26,3263  26,3333               HALVE              EQUALS   HIDPHALF                              
039177,001576: 26,3263  26,3325               FOURTH             EQUALS   HIDP1/4                               
039178,001577: 
039179,001578: 26,3263  26,3333               1/GMAX             EQUALS   HALVE                                 #  4/GMAX = 4 / 8
039180,001579: 26,3263           00433 02775  2HS                2DEC     .0172786611                            #   2 28500 25 32.2/(4 VS VS)
039181,001580: 
039182,001581: 26,3265           00000 20017  2HSGMXSQ           2DEC     .0000305717                            #  (2 28500 8 32.2/ 4 VS VS)SQ
039183,001582: 
039184,001583: 26,3267           77765 70243  C001               2DEC     -.000625                              #  -(4/25)/256    LEQ/D0 CONST
039185,001584: 
039186,001585: 26,3271           31463 06315  POINT8             2DEC     .8                                    
039187,001586: 
039188,001587: 26,3273           00541 33575  2C1HS              2DEC     .0215983264                            #  2 1.25 28500 805/(2 VS)SQ
039189,001588: 
039190,001589: 26,3275           00146 14632  PT1/16             2DEC     .1         B-4                        
039191,001590: 
039192,001591: 26,3277           00052 30013  1/K44              2DEC     .00260929464                            #  2 VS/19749550
039193,001592: 
039194,001593: 26,3301           20411 03041  VFINAL             2DEC     .51618016                             #  26600/2 VS
039195,001594: 
039196,001595: 26,3303           20610 10513  VFINAL1            2DEC     .523942273                            #  = 27000 / 2 VS
039197,001596: 
039198,001597: 26,3305           11473 02355  1/KA1              2DEC     .30048077                             #  25/(1.3 64)
039199,001598: 
039200,001599: 26,3307           00203 02234  KA2                2DEC     .008                                  #  .2/25
039201,001600: 
039202,001601: 26,3311           16237 00146  KA3                2DEC     .44720497                             #  = 90 4/805
039203,001602: 
039204,001603: 26,3313           01456 03450  KA4                2DEC     .049689441                            #  40/805
039205,001604: 
039206,001605: 26,3315           01727 01217  KALIM              2DEC     .06                                   #  1.5/25
039207,001606: 
039208,001607: 26,3317  26,3343               Q7MIN              =        NEARONE                               #  805/805       (DISABLE FACTOR CALC)
039209,001608: 26,3317           56232 72332  -HSCALED           2DEC     -.55305018                            #  -28500/2 VS
039210,001609: 
039211,001610: 26,3321           77000 43741  -KSCALE            2DEC     -.0312424837                            #  -805/VS 
039212,001611: 
039213,001612: 26,3323           36702 21727  COS15              2DEC     .965                                  
039214,001613: 
039215,001614: 26,3325  26,3150               LATSLOPE           EQUALS   1/12TH                                
039216,001615: 
039217,001616:                                                                                                  #        ... END OF RE-ENTRY CONSTANTS ...
039218,001617: 

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