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.

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

Page 852

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

Page 853

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

Page 854

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

Page 855

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

Page 856

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

Page 857

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

Page 858

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

Page 859

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

Page 860

037957,000364: 26,3142           16426                                    1BITDP     +1                         #  GET 1/4 - MPAC
037958,000365: 26,3143           75461                           SL       SQRT                                  #  SCALE UP BEFORE SQRT
037959,000366: 26,3144           20216                                    13D                                   #  HAS FACTOR FOR UP SCALING
037960,000367: 26,3145           52005                           DMP      GOTO                                  
037961,000368: 26,3146           15250                                    KACOS                                 
037962,000369: 26,3147           52226                                    THETDONE                              
037963,000370: 

Page 861

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

Page 862

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

Page 863

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

Page 864

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

Page 865

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

Page 866

038220,000627: 25,2565           15334                                    Q19                                   
038221,000628: 25,2566           00027                                    GAMMAL1                               
038222,000629: 25,2567           14027                           STODL    GAMMAL1                               
038223,000630: 25,2570           03761                                    GAMMAL                                
038224,000631: 

Page 867

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

Page 868

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

Page 869

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

Page 870

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

Page 871

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

Page 872

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

Page 873

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

Page 874

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

Page 875

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

Page 876

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

Page 877

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

Page 878

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

Page 879

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

Page 880

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

Page 881

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

Page 882

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

Page 883

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

Page 884

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

Page 885

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

Page 886

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

Page 887

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

Page 888

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

Page 889

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

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