Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

037494,000002:                                                                                                  #  Copyright:    Public domain.
037495,000003:                                                                                                  #  Filename:     REENTRY_CONTROL.agc
037496,000004:                                                                                                  #  Purpose:      Part of the source code for Colossus 2A, AKA Comanche 055.
037497,000005:                                                                                                  #                It is part of the source code for the Command Module's (CM)
037498,000006:                                                                                                  #                Apollo Guidance Computer (AGC), for Apollo 11.
037499,000007:                                                                                                  #  Assembler:    yaYUL
037500,000008:                                                                                                  #  Contact:      Ron Burkey <info@sandroid.org>.
037501,000009:                                                                                                  #  Website:      www.ibiblio.org/apollo.
037502,000010:                                                                                                  #  Pages:        844-882
037503,000011:                                                                                                  #  Mod history:  2009-05-08 RSB  Adapted from the Colossus249/ file of the
037504,000012:                                                                                                  #                                same name, using Comanche055 page images.
037505,000013:                                                                                                  #                2009-05-23 RSB  In a couple of 2OCT statements, removed the
037506,000014:                                                                                                  #                                space between the first and second octal words.
037507,000015:                                                                                                  #                2010-08-28 JL   Added missing comment character. Fixed indentation. 
037508,000016: 
037509,000017:                                                                                                  #  This source code has been transcribed or otherwise adapted from digitized
037510,000018:                                                                                                  #  images of a hardcopy from the MIT Museum.  The digitization was performed
037511,000019:                                                                                                  #  by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
037512,000020:                                                                                                  #  thanks to both.  The images (with suitable reduction in storage size and
037513,000021:                                                                                                  #  consequent reduction in image quality as well) are available online at
037514,000022:                                                                                                  #  www.ibiblio.org/apollo.  If for some reason you find that the images are
037515,000023:                                                                                                  #  illegible, contact me at info@sandroid.org about getting access to the 
037516,000024:                                                                                                  #  (much) higher-quality images which Paul actually created.
037517,000025: 
037518,000026:                                                                                                  #  Notations on the hardcopy document read, in part:
037519,000027: 
037520,000028:                                                                                                  #        Assemble revision 055 of AGC program Comanche by NASA
037521,000029:                                                                                                  #        2021113-051.  10:28 APR. 1, 1969  
037522,000030: 
037523,000031:                                                                                                  #        This AGC program shall also be referred to as
037524,000032:                                                                                                  #                        Colossus 2A
037525,000033: 
037526,000034:                                                                                                  #  Page 844
037527,000035:                                                                                                  #  ENTRY INITIALIZATION ROUTINE
037528,000036:                                                                                                  #  ----------------------------
037529,000037: 
037530,000038: 25,2000                                           BANK     25                                    
037531,000039: 25,2000                                           SETLOC   REENTRY                               
037532,000040: 25,2000                                           BANK                                           
037533,000041: 
037534,000042: 25,2000                                           COUNT*   $$/ENTRY                              
037535,000043: 25,2000  E7,1451                                  EBANK=   RTINIT                                
037536,000044: 
037537,000045: 25,2000     5060               EBENTRY            =        EBANK7                                
037538,000046: 25,2000     5057               EBAOG              EQUALS   EBANK6                                
037539,000047: 25,2000     5002               NTRYPRIO           EQUALS   PRIO20                                #  (SERVICER)
037540,000048: 25,2000     0102               CM/FLAGS           EQUALS   STATE      +6                         
037541,000049: 
037542,000050: 25,2000           77776        STARTENT           EXIT                                           #  MM = 63
037543,000051: 
037544,000052:                                                                                                  #  COME HERE FROM CM/POSE.  RESTARTED IN CM/POSE.
037545,000053: 25,2001           42113                           CS       ENTMASK                               #  INITIALIZE ALL SWITCHES TO ZERO
037546,000054:                                                                                                  #  EXCEPT LATSW, ENTRYDSP, AND GONEPAST.
037547,000055:                                                                                                  #  GONEBY 112D BIT8 FLAG7, SELF-INITIALIZING.
037548,000056: 25,2002           00004                           INHINT                                         
037549,000057: 25,2003           70102                           MASK     CM/FLAGS                              
037550,000058:                                                                                                  #  ENTRYDSP = 92D B13
037551,000059:                                                                                                  #  GONEPAST=95D B10      RELVELSW=96D B9
037552,000060:                                                                                                  #  EGSW = 97D B8
037553,000061:                                                                                                  #  HIND=99D B6           INRLSW=100D B5
037554,000062:                                                                                                  #  LATSW=101D B4         .05GSW=102D B3
037555,000063: 
037556,000064: 25,2004           62114                           AD       ENTRYSW                               
037557,000065: 25,2005           54102                           TS       CM/FLAGS                              
037558,000066: 
037559,000067: 25,2006           00003                           RELINT                                         
037560,000068: 
037561,000069: 25,2007           06006                           TC       INTPRET                               
037562,000070: 
037563,000071: 25,2010           77735                           SLOAD                                          
037564,000072: 25,2011           03011                                    LODPAD                                
037565,000073: 25,2012           03626                           STORE    LOD                                   
037566,000074: 
037567,000075: 25,2013           77735                           SLOAD                                          
037568,000076: 25,2014           03010                                    LADPAD                                
037569,000077: 25,2015           03624                           STORE    LAD                                   
037570,000078: 
037571,000079: 25,2016           77605                           DMP                                            #  L/DCMINR = LAD COS(15)
037572,000080: 25,2017           15323                                    COS15                                 
037573,000081: 25,2020           17630                           STODL    L/DCMINR                              
037574,000082: 25,2021           15146                                    LATSLOPE                              
037575,000083: 25,2022           70405                           DMP      SR1                                   #  KLAT = LAD/24
037576,000084: 25,2023           03624                                    LAD                                   
037577,000085:                                                                                                  #  Page 845
037578,000086: 25,2024           17632                           STODL    KLAT                                  
037579,000087: 25,2025           15177                                    Q7F                                   
037580,000088: 25,2026           17175                           STODL    Q7                                    #  Q7 = Q7F
037581,000089: 25,2027           17372                                    NEARONE                               #  1.0 -1BIT
037582,000090: 25,2030           17614                           STODL    FACTOR                                
037583,000091: 25,2031           03624                                    LAD                                   
037584,000092: 25,2032           57565                           SIGN     DCOMP                                 
037585,000093: 25,2033           03327                                    HEADSUP                               #  MAY BE NOISE FOR DISPLAY P61
037586,000094: 25,2034           37634                           STCALL   L/D                                   #  L/D = - LAD SGN(HEADSUP)
037587,000095: 
037588,000096: 25,2035           52063                                    STARTEN1                              #  RETURN VIA GOTOADDR
037589,000097: 25,2036           47375                           VLOAD    VXV                                   
037590,000098: 25,2037           01177                                    VN                                    #  (-7) M/CS
037591,000099: 25,2040           01760                                    UNITR                                 #  .5 UNIT               REF COORDS
037592,000100: 25,2041           50256                           UNIT     DOT                                   
037593,000101: 25,2042           03474                                    RT                                    #  RT/2 TARGET VECTOR    REF COORDS
037594,000102: 25,2043           03676                           STORE    LATANG                                #  LATANG = UNI.RT /4
037595,000103: 25,2044           47076                           DCOMP    RTB                                   
037596,000104: 25,2045           45712                                    SIGNMPAC                              
037597,000105: 25,2046           17644                           STODL    K2ROLL                                #  K2ROLL = -SGN(LATANG)
037598,000106: 
037599,000107: 25,2047           03624                                    LAD                                   
037600,000108: 25,2050           43205                           DMP      DAD                                   
037601,000109: 25,2051           15201                                    Q21                                   
037602,000110: 25,2052           15203                                    Q22                                   
037603,000111: 25,2053           03712                           STORE    Q2                                    #  Q2 = -1152 + 500 LAD
037604,000112: 
037605,000113: 25,2054           66331                           SSP      SSP                                   
037606,000114: 25,2055           03646                                    GOTOADDR                              #  SET SELECTOR FOR INITIAL PASS
037607,000115: 25,2056           52260                                    INITROLL                              
037608,000116: 25,2057           03325                                    POSEXIT                               
037609,000117: 25,2060           52115                                    SCALEPOP                              #  SET CM/POSE TO CONTINUE AT SCALEPOP
037610,000118: 
037611,000119: 25,2061           77634                           RTB                                            
037612,000120: 25,2062           53611                                    SERVNOUT                              #  OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
037613,000121: 
037614,000122:                                                                                                  #  CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM, AND RT.  ALL ARE .5 UNIT AND IN
037615,000123:                                                                                                  #  REFERENCE COORDINATES.
037616,000124: 
037617,000125: 25,2063           77220        STARTEN1           STQ      VLOAD                                 
037618,000126: 25,2064           03645                                    GOTOADDR                              
037619,000127: 25,2065           03401                                    LAT(SPL)                              #  TARGET COORDINATES
037620,000128: 25,2066           43014                           CLEAR    CLEAR                                 #  DO CALL USING PAD RADIUS.  WILL UNIT IT.
037621,000129: 25,2067           00662                                    ERADFLAG                              #  ANYWAY.
037622,000130: 25,2070           01663                                    LUNAFLAG                              
037623,000131: 25,2071           15104                           STODL    LAT                                   
037624,000132: 25,2072           15335                                    3ZEROS                                
037625,000133: 
037626,000134: 25,2073           15110                           STODL    LAT        +4                         #  SET ALT=0.
037627,000135: 25,2074           01205                                    PIPTIME                               #  ESTABLISH RTINIT AT TIME OF PRESENT
037628,000136:                                                                                                  #  Page 846
037629,000137:                                                                                                  #  RN AND VN.
037630,000138: 25,2075           37524                           STCALL   TIME/RTO                              #  SAVE TIME BASE OF RTINIT.
037631,000139: 25,2076           26441                                    LALOTORV                              #  C(MPAC) =TIME  (PIPTIME)
037632,000140: 25,2077           77656                           UNIT                                           #  ANSWER IN ALPHAV ALSO
037633,000141: 25,2100           17452                           STODL    RTINIT                                #  .5 UNIT TARGET                REF COORDS
037634,000142: 25,2101           12112                                    500SEC                                #  NOMINAL ENTRY TIME FOR P63
037635,000143:                                                                                                  #  TIME/RTO = PIPTIME, STILL.
037636,000144: 25,2102           37606                           STCALL   DTEAROT                               #  INITIALIZE EARROT
037637,000145: 25,2103           46215                                    EARROT1                               #  GET R5
037638,000146: 25,2104           72441                           DOT      SL1                                   
037639,000147: 25,2105           01760                                    UNITR                                 #  RT/2 IN MPAC
037640,000148: 25,2106           77726                           ACOS                                           
037641,000149: 25,2107           37702                           STCALL   THETAH                                #  RANGE ANGLE /360
037642,000150: 25,2110           03645                                    GOTOADDR                              #  RETURN TO CALLER
037643,000151: 
037644,000152: 25,2111           00003 01520  500SEC             2DEC     50000      B-28                       #  CS.
037645,000153: 
037646,000154: 25,2113           11774        ENTMASK            OCT      11774                                 
037647,000155: 25,2114           11010        ENTRYSW            OCT      11010                                 #  ENTRYDSP B13.  GONEPAST B10.  LATSW B4
037648,000156:                                                                                                  #  Page 847
037649,000157: 
037650,000158: 25,2115           77624        SCALEPOP           CALL                                           
037651,000159: 25,2116           52125                                    TARGETNG                              
037652,000160: 
037653,000161: 25,2117           77776                           EXIT                                           
037654,000162: 
037655,000163: 25,2120           05412        REFAZE10           TC       PHASCHNG                              
037656,000164: 25,2121           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART AT REFAZE10
037657,000165: 
037658,000166: 25,2122           06006                           TC       INTPRET                               
037659,000167: 
037660,000168:                                                                                                  #  JUMP TO PARTICULAR RE-ENTRY PHASE:
037661,000169:                                                                                                  #                                SEQUENCE
037662,000170: 25,2123           77650                           GOTO                                           
037663,000171: 25,2124           03645                                    GOTOADDR                              
037664,000172: 
037665,000173:                                                                                                  #  GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS TO THE CURRENT PHASE OF
037666,000174:                                                                                                  #  RE-ENTRY.  SEQUENCING IS AS FOLLOWS:
037667,000175: 
037668,000176:                                                                                                  #  INITROLL      ADDRESS IS SET HERE INITIALLY.  HOLDS INITIAL ROLL ATTITUDE UNTIL  KAT  IS EXCEEDED.  THEN HOLDS NEW ROLL
037669,000177:                                                                                                  #                ATTITUDE UNTIL  VRTHRESH  IS EXCEEDED.  THEN BRANCHES TO
037670,000178: 
037671,000179:                                                                                                  #  HUNTEST       THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL   L/D FROM PRESENT CONDITIONS IS LESS
037672,000180:                                                                                                  #                THAN THE DESIRED RANGE.
037673,000181:                                                                                                  #                        IF NOT --- A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG CONTROLLER.
037674,000182:                                                                                                  #                        IF SO  --- CONTROL AND GOTOADDR ARE SET TO UPCONTRL.
037675,000183:                                                                                                  #                USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUGH
037676,000184:                                                                                                  #                HUNTEST.
037677,000185: 
037678,000186:                                                                                                  #  UPCONTRL      CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE.  UPCONTRL IS TERMINATED EITHER
037679,000187:                                                                                                  #                        (A) WHEN THE DRAG (AS MEASURED BY THE PIPAS) FALLS BELOW Q7, OR
037680,000188:                                                                                                  #                        (B) IF RDOT IS NEGATIVE AND REFERENCE VL EXCEEDS V.
037681,000189:                                                                                                  #                IN CASE (A),  GOTOADDR  IS SET TO  KEP2  AND IN CASE (B), TO  PREDICT3  SKIPPING THE KEPLER PHASE OF
037682,000190:                                                                                                  #                ENTRY.
037683,000191: 
037684,000192:                                                                                                  #  KEP2          GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG.  THE SPACECRAFT IS INSTANTANEOUSLY
037685,000193:                                                                                                  #                TRIMMED IN PITCH AND YAW TO THE COMPUTED RELATIVE VELOCITY.  THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.
037686,000194:                                                                                                  #                WHEN THE MEASURED DRAG EXCEEDS Q7 +0.5,  GOTOADDR  IS SET TO
037687,000195: 
037688,000196:                                                                                                  #  PREDICT3      THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
037689,000197:                                                                                                  #                WHEN  V  IS LESS THAN  VQUIT .  AN EXIT IS MADE TO
037690,000198: 
037691,000199:                                                                                                  #  P67.1         THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.  RATE DAMPING IS DONE IN PITCH AND YAW.  PRESENT LATITUDE
037692,000200:                                                                                                  #                AND LONGITUDE ARE COMPUTED FOR DISPLAY.
037693,000201:                                                                                                  #                ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO THIS FINAL FLASHING DISPLAY.
037694,000202: 
037695,000203:                                                                                                  #  Page 848
037696,000204:                                                                                                  #  PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
037697,000205: 
037698,000206:                                                                                                  #  * START  TARGETING ...
037699,000207: 
037700,000208: 25,2125  E7,1451                                  EBANK=   RTINIT                                
037701,000209: 
037702,000210:                                                                                                  #  TARGETNG IS CALLED BY P61, FROM GROUP 4.
037703,000211:                                                                                                  #  TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
037704,000212: 
037705,000213:                                                                                                  #  ALL MM COME HERE.             
037706,000214: 25,2125           77214        TARGETNG           BOFF     VLOAD                                 #  ENTER WITH PROPER EB FROM CM/POSE(TEST)
037707,000215: 25,2126           03346                                    RELVELSW                              #  RELVELSW = 96D BIT9
037708,000216: 25,2127           52133                                    GETVEL                                #  WANT INERTIAL VEL.  GO GET IT.
037709,000217: 25,2130           03526                                    -VREL                                 #  NEW V IS RELATIVE, CONTINUE
037710,000218: 
037711,000219: 25,2131           52076                           VCOMP    GOTO                                  #  (VREL) = (V) + KWE UNITR*UNITW
037712,000220: 25,2132           52136                                    GETUNITV   -1                         #  - VREL WAS LEFT BY CM/POSE
037713,000221: 
037714,000222: 25,2133           74375        GETVEL             VLOAD    VXSC                                  #  INERTIAL V WANTED
037715,000223: 25,2134           01177                                    VN                                    #  KVSCALE = (12800 / .3048) / 2VS
037716,000224: 25,2135           15231                                    KVSCALE                               #  KVSCALE = .81491944
037717,000225: 25,2136           03516                           STORE    VEL                                   #  V/2 VS
037718,000226: 
037719,000227: 25,2137           44056        GETUNITV           UNIT     STQ                                   
037720,000228: 25,2140           03373                                    60GENRET                              
037721,000229: 25,2141           17510                           STODL    UNITV                                 
037722,000230: 25,2142           00043                                    34D                                   
037723,000231: 25,2143           03622                           STORE    VSQUARE                               #  VSQ/4
037724,000232: 
037725,000233: 25,2144           77625                           DSU                                            #  LEQ = VSQUARE - 1
037726,000234: 25,2145           15325                                    FOURTH                                #  4 G'S FULL SCALE
037727,000235: 25,2146           17654                           STODL    LEQ                                   #  LEQ/4
037728,000236: 
037729,000237: 25,2147           00045                                    36D                                   
037730,000238: 25,2150           27674                           STOVL    V                                     #  V/2 VS = VEL/2 VS
037731,000239: 
037732,000240: 25,2151           03516                                    VEL                                   
037733,000241: 25,2152           72441                           DOT      SL1                                   #  RDOT= V.UNITR
037734,000242: 25,2153           01760                                    UNITR                                 
037735,000243: 25,2154           27700                           STOVL    RDOT                                  #  RDOT /2 VS
037736,000244: 
037737,000245: 25,2155           01163                                    DELV                                  #  PIPA COUNTS IN PLATFORM COORDS.
037738,000246: 25,2156           41246                           ABVAL    DMP                                   
037739,000247: 25,2157           15233                                    KASCALE                               
037740,000248: 25,2160           53152                           SL1      BZE                                   
037741,000249: 25,2161           55133                                    SETMIND                               
037742,000250: 25,2162           27640        DSTORE             STOVL    D                                     #  ACCELERATION USED TO APPROX DRAG
037743,000251: 25,2163           03516                                    VEL                                   
037744,000252: 25,2164           53435                           VXV      UNIT                                  #  UNI = UNIT(V*R)
037745,000253:                                                                                                  #  Page 849
037746,000254: 25,2165           01760                                    UNITR                                 
037747,000255: 25,2166           03502                           STORE    UNI                                   #  .5 UNI                REF COORDS.
037748,000256: 
037749,000257: 25,2167           71214                           BOFF     DLOAD                                 
037750,000258: 25,2170           03346                                    RELVELSW                              
037751,000259: 25,2171           55074                                    GETETA                                
037752,000260: 25,2172           15335                                    3ZEROS                                
037753,000261: 25,2173           43225        UPDATERT           DSU      DAD                                   #  PIPTIME-TIME/RTO =ELAPSED TIME SINCE
037754,000262:                                                                                                  #  RTINIT WAS ESTABLISHED.
037755,000263: 25,2174           03524                                    TIME/RTO                              
037756,000264: 25,2175           01205                                    PIPTIME                               
037757,000265: 25,2176           37606                           STCALL   DTEAROT                               #  GET PREDICTED TARGET VECTOR RT
037758,000266: 
037759,000267: 25,2177           46225                                    EARROT2                               
037760,000268: 25,2200           40241                           DOT      SETPD                                 #  SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
037761,000269: 25,2201           03502                                    UNI                                   #  LATANG = RT.UNI
037762,000270: 25,2202           00001                                    0                                     
037763,000271: 25,2203           27676                           STOVL    LATANG                                #  LATANG = MAC LATANG / 4
037764,000272: 
037765,000273: 25,2204           03474                                    RT                                    
037766,000274: 25,2205           77614                           CLEAR                                          
037767,000275: 25,2206           03667                                    GONEBY                                #  SHOW HAVE NOT GONE PAST TARGET.
037768,000276: 25,2207           50235                           VXV      DOT                                   #  IF RT*UNITR.UNI NEG, GONEBY=1
037769,000277: 25,2210           01760                                    UNITR                                 #  GONEPAST IS CONDITIONAL SW SET IN
037770,000278: 25,2211           03502                                    UNI                                   #  FINAL PHASE.
037771,000279: 25,2212           43044                           BPL      SET                                   
037772,000280: 25,2213           52215                                    +2                                    
037773,000281: 25,2214           03467                                    GONEBY                                #  SHOW HAVE GONE PAST TARGET.
037774,000282: 
037775,000283: 25,2215           77775                           VLOAD                                          
037776,000284: 25,2216           03474                                    RT                                    
037777,000285: 25,2217           45241        GETANGLE           DOT      DSU                                   #  THETA = ARCCOS(RT.UNITR)
037778,000286: 25,2220           01760                                    UNITR                                 
037779,000287: 25,2221           15163                                    NEAR1/4                               #  TO IMPROVE ACCURACY, CALC RANGE BY
037780,000288: 25,2222           43244                           BPL      DAD                                   #  TINYTHET IF HIGH ORDER PART OF
037781,000289: 25,2223           55136                                    TINYTHET                              #  ARCCOS ARGUMENT IS ZERO
037782,000290: 25,2224           15163                                    NEAR1/4                               
037783,000291: 25,2225           65552                           SL1      ACOS                                  
037784,000292: 25,2226           03702        THETDONE           STORE    THETAH                                #  THETAH/360
037785,000293:                                                                                                  #  HI WORD, LO BIT =1.32 NM=360 60/16384
037786,000294: 
037787,000295: 25,2227           57414                           BON      DCOMP                                 
037788,000296: 25,2230           03707                                    GONEBY                                #  =1 IF HAVE GONE PAST TARGET.
037789,000297:                                                                                                  #  (SIGN MAY BECOME ERRATIC VERY NEAR
037790,000298:                                                                                                  #  TARGET DUE TO LOSS OF PRECISION.)
037791,000299: 25,2231           52232                                    +1                                    
037792,000300: 25,2232           17714                           STODL    RTGON67                               #  RANGE ERROR:  NEG IF WILL FALL SHORT.
037793,000301: 
037794,000302: 25,2233           03640                                    D                                     
037795,000303: 25,2234           50025                           DSU      BMN                                   
037796,000304:                                                                                                  #  Page 850
037797,000305: 25,2235           15241                                    .05G                                  
037798,000306: 25,2236           52255                                    NO.05G                                
037799,000307: 25,2237           77214                           SET      VLOAD                                 
037800,000308: 25,2240           03074                                    .05GSW                                
037801,000309: 25,2241           03433                                    DELVREF                               
037802,000310: 25,2242           50206                           PUSH     DOT                                   
037803,000311: 25,2243           03542                                    UXA/2                                 
037804,000312: 25,2244           63552                           SL1      DSQ                                   
037805,000313: 25,2245           47515                           PDVL     VSQ                                   #  EXCHANGE WITH PDL.
037806,000314: 25,2246           56225                           DSU      DDV                                   
037807,000315: 25,2247           00001                                    0                                     
037808,000316: 25,2250           75400                           BOV      SQRT                                  
037809,000317: 25,2251           52253                                    NOLDCALC                              #  OVFL LAST CLEARED IN EARROT2 ABOVE.
037810,000318: 25,2252           03727                           STORE    L/DCALC                               
037811,000319: 
037812,000320: 25,2253           77650        NOLDCALC           GOTO                                           
037813,000321: 25,2254           03373                                    60GENRET                              
037814,000322: 
037815,000323: 25,2255           52014        NO.05G             CLEAR    GOTO                                  #  THIS WAY FOR DAP. (MAY INTERRUPT)
037816,000324: 25,2256           03274                                    .05GSW                                #  .05GSW = 102D B3
037817,000325: 25,2257           52253                                    NOLDCALC                              #  KEEP SINGLE EXIT FOR TARGETING
037818,000326: 
037819,000327:                                                                                                  #  Page 851
037820,000328:                                                                                                  #  SUBROUTINES CALLED BY SCALEPOP (TARGETING):
037821,000329: 
037822,000330: 26,3074                                           BANK     26                                    
037823,000331: 26,2000                                           SETLOC   REENTRY1                              
037824,000332: 26,2000                                           BANK                                           
037825,000333: 
037826,000334: 26,3074                                           COUNT*   $$/ENTRY                              
037827,000335: 
037828,000336: 26,3074           56345        GETETA             DLOAD    DDV                                   #  D = D +D(-RDOT/HS -2D/V)  DT/2
037829,000337:                                                                                                  #  DT/2 = 2/2 =1
037830,000338: 26,3075           03700                                    RDOT                                  
037831,000339: 26,3076           15317                                    -HSCALED                              
037832,000340: 26,3077           41325                           PDDL     DMP                                   
037833,000341: 26,3100           03640                                    D                                     
037834,000342: 26,3101           15321                                    -KSCALE                               
037835,000343: 26,3102           43271                           DDV      DAD                                   
037836,000344: 26,3103           03674                                    V                                     
037837,000345:                                                                                                  #  -RDOT/HS FROM PDL.
037838,000346: 26,3104           43205                           DMP      DAD                                   
037839,000347: 26,3105           03640                                    D                                     
037840,000348: 26,3106           03640                                    D                                     
037841,000349: 26,3107           03640                           STORE    D                                     
037842,000350: 
037843,000351: 26,3110           71214                           BON      DLOAD                                 #  EGSW INDICATES FINAL PHASE
037844,000352: 26,3111           03307                                    EGSW                                  
037845,000353: 26,3112           55117                                    SUBETA                                
037846,000354: 26,3113           03702                                    THETAH                                
037847,000355: 26,3114           52005                           DMP      GOTO                                  
037848,000356: 26,3115           15235                                    KTETA                                 #  = 1000x2PI/(2)E14 163.84
037849,000357: 26,3116           52173                                    UPDATERT                              
037850,000358: 
037851,000359: 26,3117           45345        SUBETA             DLOAD    DSU                                   #  SWITCH FROM INERTIAL TO RELATIVE VEL.
037852,000360: 26,3120           03674                                    V                                     
037853,000361: 26,3121           15325                                    VMIN                                  
037854,000362: 26,3122           43044                           BPL      SET                                   
037855,000363: 26,3123           55125                                    SUBETA2                               
037856,000364: 26,3124           03066                                    RELVELSW                              
037857,000365: 
037858,000366: 26,3125           41345        SUBETA2            DLOAD    DMP                                   
037859,000367: 
037860,000368: 26,3126           03702                                    THETAH                                
037861,000369: 26,3127           15237                                    KT1                                   #  KT1 = KT
037862,000370: 26,3130           52071                           DDV      GOTO                                  
037863,000371: 26,3131           03674                                    V                                     #  KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
037864,000372: 26,3132           52173                                    UPDATERT                              
037865,000373: 
037866,000374: 26,3133           52145        SETMIND            DLOAD    GOTO                                  
037867,000375: 26,3134           16326                                    1BITDP                                
037868,000376: 26,3135           52162                                    DSTORE                                
037869,000377: 
037870,000378:                                                                                                  #  Page 852
037871,000379: 26,3136           51425        TINYTHET           DSU      ABS                                   #  ENTER WITH X-.249
037872,000380: 26,3137           16327                                    1BITDP     +1                         #  GET 1/4 - MPAC
037873,000381: 26,3140           75461                           SL       SQRT                                  #  SCALE UP BEFORE SQRT
037874,000382: 26,3141           20216                                    13D                                   #  HAS FACTOR FOR UP SCALING
037875,000383: 26,3142           52005                           DMP      GOTO                                  
037876,000384: 26,3143           15247                                    KACOS                                 
037877,000385: 26,3144           52226                                    THETDONE                              
037878,000386: 
037879,000387:                                                                                                  #  Page 853
037880,000388:                                                                                                  #  * START       INITIAL ROLL ...
037881,000389: 
037882,000390: 25,2260                                           BANK     25                                    
037883,000391: 25,2000                                           SETLOC   REENTRY                               
037884,000392: 25,2000                                           BANK                                           
037885,000393: 
037886,000394: 25,2260                                           COUNT*   $$/ENTRY                              
037887,000395: 
037888,000396:                                                                                                  #  MM = 63, 64, ...
037889,000397: 25,2260           43014        INITROLL           BON      BOFF                                  #  IF D- .05G NEG, GO TO LIMITL/D
037890,000398: 25,2261           03312                                    INRLSW                                
037891,000399: 25,2262           52362                                    INITRL1                               
037892,000400: 25,2263           03354                                    .05GSW                                
037893,000401: 25,2264           53526                                    LIMITL/D                              
037894,000402: 
037895,000403:                                                                                                  #  MM = 64, NOW
037896,000404:                                                                                                  #              3
037897,000405:                                                                                                  #  KA = KA1 LEG  + KA2
037898,000406: 25,2265           63545                           DLOAD    DSQ                                   
037899,000407: 25,2266           03654                                    LEQ                                   
037900,000408: 25,2267           56205                           DMP      DDV                                   
037901,000409: 25,2270           03654                                    LEQ                                   
037902,000410: 25,2271           15305                                    1/KA1                                 #  = 25 /(64  1.8)
037903,000411: 25,2272           47015                           DAD      RTB                                   
037904,000412: 25,2273           15307                                    KA2                                   #  = .2
037905,000413: 25,2274           54433                                    P64                                   #  ROLLC         VI              RDOT
037906,000414:                                                                                                  #  XXX.XX DEG    XXXXX. FPS      XXXXX. FPS
037907,000415: 25,2275           03720                           STORE    KAT                                   
037908,000416: 
037909,000417: 25,2276           50025                           DSU      BMN                                   
037910,000418: 25,2277           15315                                    KALIM                                 
037911,000419: 25,2300           52304                                    +4                                    
037912,000420: 25,2301           77745                           DLOAD                                          
037913,000421: 25,2302           15315                                    KALIM                                 
037914,000422: 25,2303           03720                           STORE    KAT                                   
037915,000423: 25,2304           45345                           DLOAD    DSU                                   #  IF V-VFINAL1 NEG, GO TO FINAL PHASE.
037916,000424: 25,2305           03674                                    V                                     
037917,000425: 25,2306           15303                                    VFINAL1                               
037918,000426: 25,2307           51014                           CLEAR    BPL                                   #  (CAN'T CLEAR INRLSW AFTER HERE: RESTARTS)
037919,000427: 25,2310           03265                                    GONEPAST                              #  GONEPAST WAS INITIALLY SET=1 TO FORCE
037920,000428:                                                                                                  #  ROLLC TO REMAIN AS DEFINED BY HEADSUP
037921,000429:                                                                                                  #  UNTIL START OF P64.  (UNTIL D > .05G)
037922,000430: 25,2311           52316                                    D0EQ                                  
037923,000431: 25,2312           52131                           SSP      GOTO                                  
037924,000432: 25,2313           03646                                    GOTOADDR                              
037925,000433: 25,2314           53317                                    KEP2                                  #  AND IDLE UNTIL D > 0.2 G.  (NO P66 HERE)
037926,000434: 25,2315           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037927,000435: 
037928,000436: 25,2316           41345        D0EQ               DLOAD    DMP                                   #  D0 = KA3 LEQ + KA4
037929,000437:                                                                                                  #  Page 854
037930,000438: 25,2317           03654                                    LEQ                                   
037931,000439: 25,2320           15311                                    KA3                                   
037932,000440: 25,2321           77615                           DAD                                            
037933,000441: 25,2322           15313                                    KA4                                   
037934,000442: 25,2323           03710                           STORE    D0                                    #  D0/805
037935,000443: 25,2324           40065                           BDDV     BOV                                   
037936,000444: 25,2325           15267                                    C001                                  #  (-4/25 G) B-8
037937,000445: 25,2326           52327                                    +1                                    #  CLEAR OVFIND, IF ON.
037938,000446: 25,2327           17706                           STODL    C/D0                                  #  (-4/D0) B-8
037939,000447: 25,2330           03624                                    LAD                                   #  IF V-VFINAL +K(RDOT/V)CUBED POS,L/D=-LAD
037940,000448: 25,2331           17634                           STODL    L/D                                   
037941,000449: 25,2332           03700                                    RDOT                                  
037942,000450: 25,2333           41471                           DDV      PUSH                                  
037943,000451: 25,2334           03674                                    V                                     
037944,000452: 25,2335           41316                           DSQ      DMP                                   
037945,000453: 25,2336           45271                           DDV      DSU                                   
037946,000454: 25,2337           15277                                    1/K44                                 
037947,000455: 25,2340           15301                                    VFINAL                                
037948,000456:                                                                                                  #                    3
037949,000457:                                                                                                  #  V-VFINAL +(RDOT/V)  / K44     OVFL $
037950,000458: 
037951,000459: 25,2341           40015                           DAD      BOV                                   
037952,000460: 25,2342           03674                                    V                                     
037953,000461: 25,2343           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037954,000462: 25,2344           71240                           BMN      DLOAD                                 
037955,000463: 25,2345           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037956,000464: 25,2346           03624                                    LAD                                   
037957,000465: 25,2347           77676                           DCOMP                                          
037958,000466: 25,2350           03634                           STORE    L/D                                   
037959,000467: 
037960,000468:                                                                                                  #  SET INRLSW AT END FOR RESTART PROTECTION
037961,000469: 25,2351           77614        INROLOUT           BOFSET                                         #  END OF PRE .05G PATH OF INITROLL.
037962,000470: 25,2352           03052                                    INRLSW                                #  SWITCH IS ZERO INITIALLY.
037963,000471: 25,2353           53526                                    LIMITL/D                              #  (GO TO)
037964,000472: 
037965,000473: 25,2354           45345        KATEST             DLOAD    DSU                                   #  IF KAT - D POS, GO TO CONSTD
037966,000474: 25,2355           03720                                    KAT                                   
037967,000475: 25,2356           03640                                    D                                     #  IF POS, OUT WITH COMMAND VIA LIMITL/D
037968,000476: 25,2357           52044                           BPL      GOTO                                  
037969,000477: 25,2360           53526                                    LIMITL/D                              
037970,000478: 25,2361           53232                                    CONSTD                                
037971,000479: 
037972,000480: 25,2362           43345        INITRL1            DLOAD    DAD                                   #  IF RDOT + VRCONT POS, GO TO HUNTEST
037973,000481: 25,2363           03700                                    RDOT                                  
037974,000482: 25,2364           15261                                    VRCONT                                
037975,000483: 25,2365           45040                           BMN      CALL                                  #  IF POSITIVE, FALL INTO HUNTEST.
037976,000484: 25,2366           52354                                    KATEST                                
037977,000485: 
037978,000486: 25,2367           53022                                    FOREHUNT                              #  INITIALIZE HUNTEST.
037979,000487: 
037980,000488:                                                                                                  #  Page 855
037981,000489:                                                                                                  #  * START       HUNT TEST ...
037982,000490:                                                                                                  #  MM = 64
037983,000491: 25,2370           77731                           SSP                                            #  INITIALIZE HUNTEST ON FIRST PASS
037984,000492: 25,2371           03646                                    GOTOADDR                              
037985,000493: 25,2372           52373                                    HUNTEST                               #  MUST GO AFTER FOREHUNT FOR RESTARTS.
037986,000494: 
037987,000495: 25,2373           77745        HUNTEST            DLOAD                                          
037988,000496: 25,2374           03640                                    D                                     
037989,000497: 25,2375           17664                           STODL    A1                                    #  A1/805 = A1/25G
037990,000498: 
037991,000499: 25,2376           03624                                    LAD                                   
037992,000500: 25,2377           17647                           STODL    TEM1B                                 
037993,000501: 25,2400           03700                                    RDOT                                  
037994,000502: 25,2401           71240                           BMN      DLOAD                                 #  IF RDOT NEG,TEM1B=LAD, OTHERWISE = LEWD
037995,000503: 25,2402           52406                                    A0CALC                                
037996,000504: 25,2403           03725                                    LEWD                                  
037997,000505: 25,2404           17647                           STODL    TEM1B                                 
037998,000506: 
037999,000507: 25,2405           03700                                    RDOT                                  
038000,000508: 25,2406           43271        A0CALC             DDV      DAD                                   #  V1 = V + RDOT/TEM1B
038001,000509: 25,2407           03647                                    TEM1B                                 
038002,000510: 25,2410           03674                                    V                                     
038003,000511: 25,2411           14326                           STODL    V1                                    #  V1/2 VS
038004,000512: 
038005,000513: 25,2412           03700                                    RDOT                                  
038006,000514: 25,2413           56316                           DSQ      DDV                                   #  A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS)
038007,000515: 25,2414           03647                                    TEM1B                                 
038008,000516: 25,2415           43271                           DDV      DAD                                   
038009,000517: 25,2416           15273                                    2C1HS                                 
038010,000518: 25,2417           03640                                    D                                     
038011,000519: 25,2420           41205                           DMP      DMP                                   
038012,000520: 25,2421           00326                                    V1                                    
038013,000521: 25,2422           00326                                    V1                                    
038014,000522: 25,2423           77671                           DDV                                            
038015,000523: 25,2424           03622                                    VSQUARE                               
038016,000524: 25,2425           14330                           STODL    A0                                    #  A0/805 = A0/25G
038017,000525: 
038018,000526: 25,2426           03700                                    RDOT                                  
038019,000527: 25,2427           71244                           BPL      DLOAD                                 
038020,000528: 25,2430           52433                                    V1LEAD                                
038021,000529: 25,2431           00330                                    A0                                    
038022,000530: 25,2432           03664                           STORE    A1                                    #  A1/25G
038023,000531: 
038024,000532: 25,2433           51145        V1LEAD             DLOAD    BPL                                   #  IF L/D NEG, V1=V1 - 1000
038025,000533: 25,2434           03634                                    L/D                                   
038026,000534: 25,2435           52442                                    HUNTEST1                              
038027,000535: 
038028,000536: 25,2436           45345                           DLOAD    DSU                                   
038029,000537: 25,2437           00326                                    V1                                    
038030,000538:                                                                                                  #  Page 856
038031,000539: 25,2440           15215                                    VQUIT                                 
038032,000540: 25,2441           00326                           STORE    V1                                    
038033,000541: 
038034,000542: 25,2442           41345        HUNTEST1           DLOAD    DMP                                   #  ALP = 2 C1 HS A0/LEWD V1 V1
038035,000543: 25,2443           00330                                    A0                                    
038036,000544: 25,2444           15273                                    2C1HS                                 
038037,000545: 25,2445           40271                           DDV      SETPD                                 
038038,000546: 25,2446           00326                                    V1                                    
038039,000547: 25,2447           00001                                    0                                     
038040,000548: 25,2450           56271                           DDV      DDV                                   
038041,000549: 25,2451           00326                                    V1                                    
038042,000550: 25,2452           03725                                    LEWD                                  
038043,000551: 25,2453           03704                           STORE    ALP                                   
038044,000552: 
038045,000553: 25,2454           55221                           BDSU     BDDV                                  #  FACT1 = V1 / (1 - ALP)
038046,000554: 25,2455           17372                                    BARELY1                               
038047,000555: 25,2456           00326                                    V1                                    
038048,000556: 25,2457           17616                           STODL    FACT1                                 #  FACT1 / 2VS
038049,000557: 
038050,000558: 25,2460           03704                                    ALP                                   
038051,000559: 25,2461           41225                           DSU      DMP                                   #  FACT2 = ALP(ALP - 1) / A0
038052,000560: 25,2462           17372                                    BARELY1                               
038053,000561: 25,2463           03704                                    ALP                                   
038054,000562: 25,2464           77671                           DDV                                            
038055,000563: 25,2465           00330                                    A0                                    
038056,000564: 25,2466           03620                           STORE    FACT2                                 #  FACT2 (25G)
038057,000565: 
038058,000566: 25,2467           43205                           DMP      DAD                                   
038059,000567: 25,2470           03175                                    Q7                                    #  Q7 / 805 = Q7 / 25G
038060,000568: 25,2471           03704                                    ALP                                   #  VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
038061,000569: 25,2472           44366                           SQRT     BDSU                                  
038062,000570: 25,2473           17372                                    BARELY1                               
038063,000571: 25,2474           77605                           DMP                                            
038064,000572: 25,2475           03616                                    FACT1                                 
038065,000573: 25,2476           03767                           STORE    VL                                    #  VL / 2 VS
038066,000574: 
038067,000575: 25,2477           41221                           BDSU     DMP                                   #  GAMMAL1 = LEWD (V1-VL)/VL
038068,000576: 25,2500           00326                                    V1                                    
038069,000577: 25,2501           03725                                    LEWD                                  
038070,000578: 25,2502           77671                           DDV                                            
038071,000579: 25,2503           03767                                    VL                                    
038072,000580: 25,2504           14027                           STODL    GAMMAL1                               #  GAMMAL1 USED IN UPCONTROL.
038073,000581: 
038074,000582:                                                                                                  #  GAMMAL1 = PDL 22D.
038075,000583: 25,2505           03767                                    VL                                    
038076,000584: 25,2506           50025                           DSU      BMN                                   #  IF VL-VLMIN NEG, GO TO PREFINAL
038077,000585: 25,2507           15205                                    VLMIN                                 
038078,000586: 25,2510           53333                                    PREFINAL                              
038079,000587: 
038080,000588: 25,2511           63545                           DLOAD    DSQ                                   
038081,000589:                                                                                                  #  Page 857
038082,000590: 25,2512           03767                                    VL                                    
038083,000591: 25,2513           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038084,000592: 
038085,000593: 25,2514           15333                                    HALVE                                 #  IF VSAT-VL NEG, GO TO CONSTD
038086,000594: 25,2515           50025                           DSU      BMN                                   
038087,000595: 25,2516           03767                                    VL                                    
038088,000596: 25,2517           53226                                    BECONSTD                              #  SET MODE=HUNTEST, CONTINUE IN CONSTD
038089,000597: 25,2520           17662                           STODL    DVL                                   #  DVL / 2VS
038090,000598: 
038091,000599: 25,2521           15333                                    HALVE                                 
038092,000600: 25,2522           03672                           STORE    VS1                                   #  VS1 = VSAT
038093,000601: 
038094,000602: 25,2523           50025                           DSU      BMN                                   #  IF V1 GREATER THAN VSAT, GO ON
038095,000603: 25,2524           00326                                    V1                                    
038096,000604: 25,2525           52533                                    GETDHOOK                              
038097,000605: 25,2526           77621                           BDSU                                           
038098,000606: 25,2527           03662                                    DVL                                   
038099,000607: 25,2530           17662                           STODL    DVL                                   #  DVL = DVL - (VSAT-V1) = V1 - VL
038100,000608: 25,2531           00326                                    V1                                    
038101,000609: 25,2532           03672                           STORE    VS1                                   #  VS1 = V1, IN THIS CASE
038102,000610: 
038103,000611: 25,2533           45145        GETDHOOK           DLOAD    CALL                                  #  DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
038104,000612: 25,2534           03672                                    VS1                                   #  VS1 / 2 VS
038105,000613: 25,2535           53004                                    DHOOKYQ7                              #  GO CALC DHOOK
038106,000614: 25,2536           03656                           STORE    DHOOK                                 #  DHOOK / 25G
038107,000615: 
038108,000616: 25,2537           56261                           SR       DDV                                   
038109,000617: 25,2540           20607                                    6                                     #  CHOOK
038110,000618: 25,2541           03175                                    Q7                                    
038111,000619: 25,2542           77625                           DSU                                            
038112,000620: 25,2543           15251                                    CHOOK                                 #  = .25/16 = (-6)
038113,000621: 25,2544           03660                           STORE    AHOOKDV                               
038114,000622: 
038115,000623: 25,2545           41215                           DAD      DMP                                   #  GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
038116,000624: 25,2546           17366                                    1/16TH                                
038117,000625: 25,2547           15255                                    CH1                                   
038118,000626: 25,2550           41205                           DMP      DMP                                   
038119,000627: 25,2551           03662                                    DVL                                   
038120,000628: 25,2552           03662                                    DVL                                   
038121,000629: 25,2553           56271                           DDV      DDV                                   
038122,000630: 25,2554           03656                                    DHOOK                                 
038123,000631: 25,2555           03666                                    VBARS                                 
038124,000632: 25,2556           50021                           BDSU     BMN                                   
038125,000633: 25,2557           00027                                    GAMMAL1                               
038126,000634: 25,2560           52751                                    NEGAMA                                
038127,000635: 25,2561           03771        HUNTEST3           STORE    GAMMAL                                
038128,000636: 
038129,000637: 25,2562           77625                           DSU                                            #  GAMMAL1=GAMMAL1 +Q19 (GAMMAL-GAMMAL1)
038130,000638: 25,2563           00027                                    GAMMAL1                               
038131,000639: 25,2564           43205                           DMP      DAD                                   
038132,000640:                                                                                                  #  Page 858
038133,000641: 25,2565           15333                                    Q19                                   
038134,000642: 25,2566           00027                                    GAMMAL1                               
038135,000643: 25,2567           14027                           STODL    GAMMAL1                               
038136,000644: 25,2570           03771                                    GAMMAL                                
038137,000645: 
038138,000646:                                                                                                  #  Page 859
038139,000647:                                                                                                  #  *START        RANGE PREDICTION ...
038140,000648:                                                                                                  #  C(MPAC) = GAMMAL.
038141,000649: 25,2571           60516        RANGER             DSQ      SR2                                   #  COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
038142,000650: 25,2572           77621                           BDSU                                           
038143,000651: 25,2573           15333                                    HALVE                                 
038144,000652: 25,2574           17670                           STODL    COSG/2                                
038145,000653: 25,2575           03666                                    VBARS                                 #  E=SQRT(1+VBARS........
038146,000654: 
038147,000655: 25,2576           41225                           DSU      DMP                                   
038148,000656: 25,2577           15333                                    HALVE                                 
038149,000657: 25,2600           03666                                    VBARS                                 
038150,000658: 25,2601           41205                           DMP      DMP                                   
038151,000659: 25,2602           03670                                    COSG/2                                
038152,000660: 25,2603           03670                                    COSG/2                                
038153,000661: 25,2604           43312                           SL2      DAD                                   
038154,000662: 25,2605           17366                                    C1/16                                 #  C1/16 = 1/16
038155,000663: 25,2606           65366                           SQRT     PDDL                                  #  E/4 INTO PDL
038156,000664: 
038157,000665: 25,2607           03666                                    VBARS                                 
038158,000666: 25,2610           41205                           DMP      DMP                                   #  ASKEP/2 = ARCSIN(VBARS COSG SING/E)
038159,000667: 25,2611           03670                                    COSG/2                                
038160,000668: 25,2612           03771                                    GAMMAL                                
038161,000669: 25,2613           67471                           DDV      ASIN                                  
038162,000670: 25,2614           41552                           SL1      PUSH                                  #  ASKEP TO PDL 0.
038163,000671: 25,2615           17731                           STODL    ASKEP                                 #  BALLISTIC RANGE       ASKEP/2PI
038164,000672: 
038165,000673:                                                                                                  #  FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
038166,000674: 25,2616           03767                                    VL                                    
038167,000675: 25,2617           43205                           DMP      DAD                                   #  ASP1 = Q2 + Q3 VL
038168,000676: 25,2620           15171                                    Q3                                    
038169,000677: 25,2621           03712                                    Q2                                    
038170,000678: 25,2622           03732                           STORE    ASP1                                  #  FINAL PHASE RANGE     ASP1/2 PI
038171,000679: 
038172,000680: 25,2623           63525                           PDDL     DSQ                                   #  ASP1 TO PDL 2.
038173,000681: 25,2624           00326                                    V1                                    
038174,000682:                                                                                                  #                    2
038175,000683:                                                                                                  #  ASPUP= -C12 LOG(V1 Q7/VBARS A0)/GAMMAL1
038176,000684: 25,2625           56205                           DMP      DDV                                   
038177,000685: 25,2626           03175                                    Q7                                    
038178,000686: 25,2627           03666                                    VBARS                                 
038179,000687: 25,2630           45071                           DDV      CALL                                  
038180,000688: 25,2631           00330                                    A0                                    
038181,000689: 25,2632           46155                                    LOG                                   #  RETURN WITH -LOG IN MPAC
038182,000690: 
038183,000691: 25,2633           56205                           DMP      DDV                                   
038184,000692: 25,2634           15207                                    C12                                   
038185,000693: 25,2635           00027                                    GAMMAL1                               
038186,000694: 25,2636           03733                           STORE    ASPUP                                 #  UP PHASE RANGE        ASPUP / 2 PI
038187,000695:                                                                                                  #  Page 860
038188,000696: 25,2637           41325                           PDDL     DMP                                   #  ASPUP TO PDL 4.
038189,000697: 25,2640           15257                                    KC3                                   #  KC3 = -4 VS VS / 2 PI 805 RE
038190,000698:                                                                                                  #  ASPDWN = KC3 RDOT V / A0
038191,000699: 25,2641           03700                                    RDOT                                  
038192,000700: 25,2642           56205                           DMP      DDV                                   
038193,000701: 25,2643           03674                                    V                                     
038194,000702: 25,2644           00330                                    A0                                    
038195,000703: 25,2645           41471                           DDV      PUSH                                  #  ASPDWN TO PDL 6.
038196,000704: 25,2646           03624                                    LAD                                   
038197,000705: 25,2647           17734                           STODL    ASPDWN                                #  RANGE TO PULL OUT     ASPDWN /2 PI
038198,000706: 
038199,000707: 25,2650           15175                                    Q6                                    
038200,000708: 25,2651           41225                           DSU      DMP                                   #  ASP3 = Q5(Q6-GAMMAL)
038201,000709: 25,2652           03771                                    GAMMAL                                
038202,000710: 25,2653           15173                                    Q5                                    
038203,000711: 25,2654           27735                           STOVL    ASP3                                  #  GAMMA CORRECTION      ASP3/2PI
038204,000712: 
038205,000713: 25,2655           03731                                    ASKEP                                 #  GET HI-WD AND
038206,000714: 25,2656           17126                           STODL    ASPS(TM)                              #  SAVE HI-WORD OF ASP'S FOR TM.
038207,000715: 
038208,000716: 25,2657           03735                                    ASP3                                  
038209,000717: 25,2660           43215                           DAD      DAD                                   
038210,000718:                                                                                                  #  ASPDWN FROM PDL 6.
038211,000719:                                                                                                  #  ASPUP FROM PDL 4.
038212,000720: 25,2661           43215                           DAD      DAD                                   
038213,000721:                                                                                                  #  ASP1 FROM PDL 2.
038214,000722:                                                                                                  #  ASKEP FROM PDL 0.
038215,000723: 25,2662           41025                           DSU      BOVB                                  #  CLEAR OVFIND.
038216,000724: 25,2663           03702                                    THETAH                                
038217,000725: 25,2664           57352                                    TCDANZIG                              
038218,000726: 25,2665           03610                           STORE    DIFF                                  #  DIFF = (ASP-THETAH) / 2 PI
038219,000727:                                                                                                  #  ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
038220,000728: 
038221,000729: 25,2666           45246                           ABS      DSU                                   #  IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
038222,000730: 25,2667           15223                                    25NM                                  
038223,000731: 25,2670           43040                           BMN      BON                                   
038224,000732: 25,2671           53033                                    GOTOUPSY                              
038225,000733: 25,2672           03311                                    HIND                                  
038226,000734: 25,2673           52677                                    GETLEWD                               
038227,000735: 
038228,000736: 25,2674           51145                           DLOAD    BPL                                   
038229,000737: 25,2675           03610                                    DIFF                                  
038230,000738: 25,2676           53221                                    DCONSTD                               #  EVENTUALLY SETS MODE = HUNTEST.
038231,000739: 25,2677           41345        GETLEWD            DLOAD    DMP                                   
038232,000740:                                                                                                  #  DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
038233,000741: 25,2700           03642                                    DLEWD                                 
038234,000742: 25,2701           03610                                    DIFF                                  
038235,000743: 25,2702           45325                           PDDL     DSU                                   
038236,000744: 25,2703           03612                                    DIFFOLD                               
038237,000745: 25,2704           03610                                    DIFF                                  
038238,000746:                                                                                                  #  Page 861
038239,000747: 25,2705           77665                           BDDV                                           
038240,000748: 25,2706           77626        LWDSTORE           STADR                                          
038241,000749: 25,2707           74135                           STORE    DLEWD                                 
038242,000750: 25,2710           50015                           DAD      BMN                                   #  IF LEWD+DLEWD NEG, DLEWD=-LEWD/2
038243,000751: 25,2711           03725                                    LEWD                                  
038244,000752: 25,2712           52745                                    LEWDPTR                               
038245,000753: 25,2713           77600                           BOV                                            
038246,000754: 25,2714           52741                                    LEWDOVFL                              
038247,000755: 25,2715           03725                           STORE    LEWD                                  
038248,000756: 
038249,000757: 25,2716           77776        SIDETRAK           EXIT                                           
038250,000758: 
038251,000759: 25,2717           35060                           CA       EBENTRY                               
038252,000760: 25,2720           54003                           TS       EBANK                                 
038253,000761: 
038254,000762: 25,2721           35070                           CA       PRIO16                                #  DROP GRP 5 RESTART PRIO TO 1 LESS THAN
038255,000763: 25,2722           55064                           TS       PHSPRDT5                              #  GRP 4.
038256,000764: 
038257,000765: 25,2723           05412                           TC       PHASCHNG                              
038258,000766: 25,2724           00474                           OCT      00474                                 #  RESTART GRP 4 AT PRE-HUN.
038259,000767:                                                                                                  #  FORCE RESTART TO PICK UP IN GRP 4:
038260,000768:                                                                                                  #  USE PRIO 17 FOR GRP 4 (< SERVICER PRIO)
038261,000769: 25,2725           35070                           CA       PRIO16                                #  CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
038262,000770:                                                                                                  #  GRP 4 OR SERVICER.
038263,000771: 25,2726           05210                           TC       PRIOCHNG                              
038264,000772: 
038265,000773: 25,2727           33032                           CAF      ADENDEXT                              #  SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
038266,000774: 25,2730           55645                           TS       GOTOADDR                              #  ONLY AFTER RESTART IS LEFT AFTER DETOUR.
038267,000775: 
038268,000776: 25,2731           06006                           TC       INTPRET                               
038269,000777: 
038270,000778: 25,2732           43145                           DLOAD    SET                                   
038271,000779: 25,2733           03610                                    DIFF                                  
038272,000780: 25,2734           03071                                    HIND                                  
038273,000781: 25,2735           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038274,000782: 
038275,000783: 25,2736           15177                                    Q7F                                   
038276,000784: 25,2737           37175                           STCALL   Q7                                    #  Q7 / 805 FPSS
038277,000785: 25,2740           52373                                    HUNTEST                               #  (GO TO)
038278,000786: 
038279,000787: 25,2741           77745        LEWDOVFL           DLOAD                                          
038280,000788: 25,2742           17372                                    NEARONE                               
038281,000789: 25,2743           37725                           STCALL   LEWD                                  
038282,000790: 25,2744           53221                                    DCONSTD                               #  (GO TO)  ALSO WILL SET MODE = HUNTEST
038283,000791: 
038284,000792: 25,2745           70545        LEWDPTR            DLOAD    SR1                                   
038285,000793: 25,2746           03725                                    LEWD                                  
038286,000794: 25,2747           52076                           DCOMP    GOTO                                  
038287,000795: 25,2750           52706                                    LWDSTORE                              
038288,000796: 
038289,000797:                                                                                                  #  Page 862
038290,000798: 25,2751           41205        NEGAMA             DMP      DMP                                   #  ENTER WITH GAMMAL IN MPAC
038291,000799: 
038292,000800: 25,2752           03767                                    VL                                    
038293,000801: 25,2753           15147                                    1/3RD                                 
038294,000802: 25,2754           41325                           PDDL     DMP                                   #  PUSH GAMMAL VL/3
038295,000803: 25,2755           03725                                    LEWD                                  
038296,000804: 25,2756           15147                                    1/3RD                                 
038297,000805: 25,2757           43325                           PDDL     DAD                                   #  PUSH LEWD/3
038298,000806: 25,2760           03660                                    AHOOKDV                               
038299,000807: 25,2761           15253                                    1/24TH                                
038300,000808: 25,2762           41205                           DMP      DMP                                   #  DEL VL = (GAMMAL VL/3)/(LEWD/3-DVL
038301,000809: 25,2763           03662                                    DVL                                   #  (2/3 + AHOOKDV)(CH1 GS/DHOOK VL))
038302,000810: 25,2764           15255                                    CH1                                   
038303,000811: 25,2765           56271                           DDV      DDV                                   
038304,000812: 25,2766           03656                                    DHOOK                                 
038305,000813: 25,2767           03767                                    VL                                    
038306,000814: 25,2770           55221                           BDSU     BDDV                                  
038307,000815:                                                                                                  #  LEWD/3
038308,000816:                                                                                                  #  GAMMAL VL /3
038309,000817: 25,2771           77615                           DAD                                            
038310,000818: 25,2772           03767                                    VL                                    
038311,000819: 25,2773           37767                           STCALL   VL                                    #  VL/2 VS
038312,000820: 
038313,000821: 25,2774           53004                                    DHOOKYQ7                              #  GO CALC Q7
038314,000822:                                                                                                  #  Q7=((1-VL/FACT1)SQ - ALP)/FACT2
038315,000823: 25,2775           17175                           STODL    Q7                                    #  Q7 / 25G
038316,000824: 
038317,000825: 25,2776           03767                                    VL                                    
038318,000826: 25,2777           77716                           DSQ                                            
038319,000827: 25,3000           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038320,000828: 
038321,000829: 25,3001           15335                                    3ZEROS                                
038322,000830: 25,3002           77650                           GOTO                                           #  SET GAMMAL = 0
038323,000831: 25,3003           52561                                    HUNTEST3                              
038324,000832: 
038325,000833: 25,3004           56342        DHOOKYQ7           SR1      DDV                                   #  SUBROUTINE TO CALC DHOOK OR Q7
038326,000834: 25,3005           03616                                    FACT1                                 
038327,000835: 25,3006           72421                           BDSU     SL1                                   
038328,000836: 25,3007           15333                                    HALVE                                 
038329,000837: 25,3010           45316                           DSQ      DSU                                   
038330,000838: 25,3011           03704                                    ALP                                   
038331,000839: 25,3012           43471                           DDV      RVQ                                   
038332,000840: 25,3013           03620                                    FACT2                                 
038333,000841: 
038334,000842:                                                                                                  #  Page 863
038335,000843:                                                                                                  #  COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
038336,000844:                                                                                                  #  HUNTEST IS SIDE-TRACKED AT SIDETRAK.
038337,000845:                                                                                                  #  PICK UP IN GROUP 4.
038338,000846: 
038339,000847: 25,3014           06006        PRE-HUNT           TC       INTPRET                               
038340,000848: 25,3015           45014                           CLEAR    CALL                                  
038341,000849: 25,3016           03271                                    HIND                                  #  HIND  99D BIT 6 FLAG 6
038342,000850: 25,3017           53022                                    FOREHUNT                              #  RE-INITIALIZE HUNTEST AFTER RE-START.
038343,000851: 25,3020           77650                           GOTO                                           
038344,000852: 25,3021           52373                                    HUNTEST                               
038345,000853: 
038346,000854: 25,3022           77745        FOREHUNT           DLOAD                                          #  INITIALIZE HUNTEST.
038347,000855: 25,3023           15335                                    3ZEROS                                
038348,000856: 25,3024           17612                           STODL    DIFFOLD                               
038349,000857: 25,3025           15157                                    DLEWD0                                
038350,000858: 25,3026           17642                           STODL    DLEWD                                 
038351,000859: 25,3027           15151                                    LEWD1                                 
038352,000860: 25,3030           03725                           STORE    LEWD                                  
038353,000861: 25,3031           77616                           RVQ                                            
038354,000862: 
038355,000863: 25,3032           53576        ADENDEXT           CADR     ENDEXIT                               
038356,000864: 
038357,000865:                                                                                                  #  Page 864
038358,000866:                                                                                                  #  * START       UP CONTROL ...
038359,000867:                                                                                                  #  MM = 65
038360,000868: 25,3033           77634        GOTOUPSY           RTB                                            #  END OF HUNTEST
038361,000869: 25,3034           54441                                    P65                                   #  HUNTEST USE OF GRP4 IS DISABLED BY P65
038362,000870:                                                                                                  #  USE FOR DISPLAY.
038363,000871:                                                                                                  #  SET MODE = UPCONTRL.
038364,000872:                                                                                                  #  RETURN FROM P65 DIRECTLY TO UPDONTRL
038365,000873:                                                                                                  #  VIA THE GOTOADDR AT REFAZE10.
038366,000874: 
038367,000875: 25,3035           45345        UPCONTRL           DLOAD    DSU                                   #  IF D-140 POS, NOSWITCH =1
038368,000876: 25,3036           03640                                    D                                     #  (SUPPRESS LATERAL SWITCH)
038369,000877: 25,3037           15221                                    C21                                   
038370,000878: 25,3040           43040                           BMN      SET                                   
038371,000879: 25,3041           53043                                    +2                                    
038372,000880: 25,3042           03070                                    NOSWITCH                              
038373,000881: 
038374,000882: 25,3043           45345                           DLOAD    DSU                                   #  IF V-V1 POS, GO TO DOWN CONTROL.
038375,000883: 25,3044           03674                                    V                                     
038376,000884: 25,3045           00326                                    V1                                    
038377,000885: 25,3046           71244                           BPL      DLOAD                                 
038378,000886: 25,3047           53260                                    DOWNCNTL                              
038379,000887: 25,3050           03640                                    D                                     
038380,000888: 25,3051           50025                           DSU      BMN                                   #  IF D- Q7 NEG, GO TO KEP
038381,000889: 25,3052           03175                                    Q7                                    
038382,000890: 25,3053           53313                                    KEP                                   
038383,000891: 25,3054           51145                           DLOAD    BPL                                   #  IF RDOT NEG, DO VLTEST
038384,000892: 25,3055           03700                                    RDOT                                  
038385,000893: 25,3056           53065                                    CONT1                                 
038386,000894: 
038387,000895: 25,3057           45345        VLTEST             DLOAD    DSU                                   #  IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
038388,000896: 25,3060           03674                                    V                                     
038389,000897: 25,3061           03767                                    VL                                    
038390,000898: 25,3062           50025                           DSU      BMN                                   
038391,000899: 25,3063           15165                                    C18                                   
038392,000900: 25,3064           53333                                    PREFINAL                              
038393,000901: 
038394,000902: 25,3065           77745        CONT1              DLOAD                                          #  IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
038395,000903: 25,3066           03640                                    D                                     
038396,000904: 25,3067           50025                           DSU      BMN                                   
038397,000905: 25,3070           00330                                    A0                                    
038398,000906: 25,3071           53075                                    CONT3                                 
038399,000907: 25,3072           52145                           DLOAD    GOTO                                  
038400,000908: 25,3073           03624                                    LAD                                   
038401,000909: 25,3074           53525                                    STOREL/D                              
038402,000910: 
038403,000911: 25,3075           41345        CONT3              DLOAD    DMP                                   #  VREF=FACT1(1-SQRT(FACT2 D + ALP))
038404,000912: 25,3076           03640                                    D                                     
038405,000913: 25,3077           03620                                    FACT2                                 
038406,000914:                                                                                                  #  Page 865
038407,000915: 25,3100           75415                           DAD      SQRT                                  
038408,000916: 25,3101           03704                                    ALP                                   
038409,000917: 25,3102           41221                           BDSU     DMP                                   
038410,000918: 25,3103           17372                                    BARELY1                               
038411,000919: 25,3104           03616                                    FACT1                                 
038412,000920: 25,3105           01160                           STORE    VREF                                  #  VREF / 2VS
038413,000921: 
038414,000922: 25,3106           41221                           BDSU     DMP                                   #  RDOTREF = LEWD(V1-VREF)
038415,000923: 25,3107           00326                                    V1                                    
038416,000924: 25,3110           03725                                    LEWD                                  
038417,000925: 25,3111           15156                           STODL    RDOTREF                               #  RDOTREF / 2VS
038418,000926: 
038419,000927: 25,3112           03672                                    VS1                                   
038420,000928: 25,3113           50025                           DSU      BMN                                   #  IF VSAT-VREF NEG, GO TO CONTINU2
038421,000929: 25,3114           01160                                    VREF                                  
038422,000930: 25,3115           53134                                    CONTINU2                              
038423,000931: 
038424,000932: 25,3116           41406                           PUSH     PUSH                                  #  VS1-VREF  TO PDL TWICE
038425,000933: 25,3117           56205                           DMP      DDV                                   #  RDHOOK=CHI1(1+DV AHOOKDV/DVL) DV DV
038426,000934: 25,3120           03660                                    AHOOKDV                               #        /DHOOK VREF
038427,000935: 25,3121           03662                                    DVL                                   #  WHERE  DV = (VS1-VREF)
038428,000936: 25,3122           41215                           DAD      DMP                                   
038429,000937: 25,3123           17366                                    1/16TH                                
038430,000938: 25,3124           15255                                    CH1                                   
038431,000939: 25,3125           41205                           DMP      DMP                                   
038432,000940:                                                                                                  #  VS1-VREF  FROM PDL TWICE.
038433,000941: 25,3126           77671                           DDV                                            
038434,000942: 25,3127           03656                                    DHOOK                                 
038435,000943: 25,3130           44271                           DDV      BDSU                                  
038436,000944: 25,3131           01160                                    VREF                                  
038437,000945: 25,3132           01156                                    RDOTREF                               #  C(RDOTREF)= LEWD (V1-VREF)
038438,000946: 25,3133           01156                           STORE    RDOTREF                               #  RDOTREF = RDOTREF - RDHOOK
038439,000947: 
038440,000948: 25,3134           45345        CONTINU2           DLOAD    DSU                                   
038441,000949: 25,3135           03640                                    D                                     
038442,000950: 25,3136           15313                                    Q7MIN                                 
038443,000951: 25,3137           50004                           BOVB     BMN                                   
038444,000952: 25,3140           57352                                    TCDANZIG                              #  CLEAR OVFL IND, IF ON.
038445,000953: 25,3141           53152                                    UPCNTRL3                              
038446,000954: 25,3142           45345                           DLOAD    DSU                                   
038447,000955: 25,3143           03664                                    A1                                    
038448,000956: 25,3144           03175                                    Q7                                    
038449,000957: 25,3145           45325                           PDDL     DSU                                   
038450,000958: 25,3146           03640                                    D                                     
038451,000959: 25,3147           03175                                    Q7                                    
038452,000960: 25,3150           45471                           DDV      STADR                                 
038453,000961: 25,3151           74163                           STORE    FACTOR                                #  FACTOR / 25G
038454,000962: 
038455,000963:                                                                                                  #  Page 866
038456,000964:                                                                                                  #  SKIPPER
038457,000965:                                                                                                  #  DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
038458,000966:                                                                                                  #        WHERE F1 = FACTOR
038459,000967: 
038460,000968: 25,3152           77745        UPCNTRL3           DLOAD                                          
038461,000969: 25,3153           03700                                    RDOT                                  
038462,000970: 25,3154           41225                           DSU      DMP                                   #  L/D = LEWD
038463,000971: 25,3155           01156                                    RDOTREF                               #  -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
038464,000972: 25,3156           03614                                    FACTOR                                
038465,000973: 25,3157           43271                           DDV      DAD                                   
038466,000974: 25,3160           15211                                    1/KB1                                 
038467,000975: 25,3161           03674                                    V                                     
038468,000976: 25,3162           41225                           DSU      DMP                                   
038469,000977: 25,3163           01160                                    VREF                                  
038470,000978: 25,3164           03614                                    FACTOR                                
038471,000979: 25,3165           41471                           DDV      PUSH                                  
038472,000980: 
038473,000981: 25,3166           15213                                    -1/KB2                                #  DELTA L/D INTO PDL
038474,000982: 25,3167           51400                           BOV      ABS                                   #  NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
038475,000983: 25,3170           53472                                    GOMAXL/D                              
038476,000984: 25,3171           50025                           DSU      BMN                                   
038477,000985: 25,3172           15275                                    PT1/16                                
038478,000986: 25,3173           53200                                    NEXT1                                 
038479,000987: 25,3174           43205                           DMP      DAD                                   
038480,000988: 25,3175           15153                                    POINT1                                
038481,000989: 25,3176           15275                                    PT1/16                                
038482,000990: 25,3177           41565                           SIGN     PUSH                                  #  ATTACH SIGN OF PUSH TO MPAC THEN PUSH
038483,000991: 
038484,000992: 25,3200           42545        NEXT1              DLOAD    SL4                                   
038485,000993:                                                                                                  #  DELTA L/D FROM PDL.
038486,000994: 
038487,000995: 25,3201           77615                           DAD                                            
038488,000996: 25,3202           03725                                    LEWD                                  
038489,000997: 25,3203           41400        NEGTESTS           BOV      PUSH                                  #  L/D TO PDL FOR USE IN NEGTESTS.
038490,000998: 25,3204           53472                                    GOMAXL/D                              
038491,000999: 25,3205           17634                           STODL    L/D                                   
038492,001000:                                                                                                  #  IF D-C20 POS, LATSW =0
038493,001001:                                                                                                  #  AND IF L/D NEG, L/D = 0.
038494,001002: 25,3206           03640                                    D                                     
038495,001003: 25,3207           50025                           DSU      BMN                                   
038496,001004: 25,3210           15217                                    C20                                   
038497,001005: 25,3211           53526                                    LIMITL/D                              
038498,001006: 25,3212           71214                           CLEAR    DLOAD                                 
038499,001007: 25,3213           03273                                    LATSW                                 #  =21D.  ROLL OVER TOP, REGARDLESS.
038500,001008:                                                                                                  #  L/D FROM PDL.
038501,001009: 25,3214           71244                           BPL      DLOAD                                 
038502,001010: 25,3215           53526                                    LIMITL/D                              
038503,001011: 25,3216           15335                                    3ZEROS                                
038504,001012: 25,3217           37634                           STCALL   L/D                                   
038505,001013: 25,3220           53526                                    LIMITL/D                              #  (GO TO)
038506,001014: 
038507,001015:                                                                                                  #  Page 867
038508,001016: 25,3221           77745        DCONSTD            DLOAD                                          #  TWO RANGER ENTRIES TO CONSTD HERE
038509,001017: 25,3222           03610                                    DIFF                                  
038510,001018:                                                                                                  #  SAVE OLD VALUE OF DIFF FOR NEXT PASS.
038511,001019: 25,3223           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038512,001020: 
038513,001021: 25,3224           15177                                    Q7F                                   
038514,001022: 25,3225           03175                           STORE    Q7                                    
038515,001023: 
038516,001024: 25,3226           47131        BECONSTD           SSP      RTB                                   #  A HUNTEST ENTRY INTO CONSTD.
038517,001025: 25,3227           03646                                    GOTOADDR                              #  RESET MODE TO HUNTEST
038518,001026: 25,3230           52373                                    HUNTEST                               
038519,001027: 25,3231           54506                                    KILLGRP4                              #  DEACTIVATE GRP4 FROM HUNTEST.
038520,001028: 
038521,001029: 25,3232           77604        CONSTD             BOVB                                           
038522,001030: 25,3233           57352                                    TCDANZIG                              #  CLEAR OVF IND IF ON.
038523,001031: 
038524,001032: 25,3234           41345                           DLOAD    DMP                                   
038525,001033: 25,3235           03654                                    LEQ                                   
038526,001034: 25,3236           03706                                    C/D0                                  #  C/D0 = -4/D0 B-8
038527,001035: 25,3237           41325                           PDDL     DMP                                   #  LEQ C/D0 INTO PDL
038528,001036: 25,3240           15263                                    2HS                                   #  2HS / 4 VS VS
038529,001037: 25,3241           03710                                    D0                                    
038530,001038: 25,3242           43271                           DDV      DAD                                   #  RDOTREF = -2 HS D0/V
038531,001039: 25,3243           03674                                    V                                     
038532,001040: 25,3244           03700                                    RDOT                                  
038533,001041: 25,3245           43205                           DMP      DAD                                   
038534,001042: 25,3246           15227                                    K2D                                   #  C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
038535,001043: 25,3247           77725                           PDDL                                           
038536,001044: 25,3250           03710                                    D0                                    #  D0 /805
038537,001045: 
038538,001046: 25,3251           77621        CONSTD1            BDSU                                           #  ENTER WITH DREF IN MPAC
038539,001047: 25,3252           03640                                    D                                     
038540,001048: 25,3253           43205                           DMP      DAD                                   
038541,001049: 25,3254           15225                                    K1D                                   #  K2D TERM FROM PUSH
038542,001050: 25,3255           52061                           SL       GOTO                                  
038543,001051: 25,3256           20211                                    8D                                    
038544,001052: 25,3257           53203                                    NEGTESTS                              #  (GO TO)
038545,001053: 
038546,001054: 25,3260           77604        DOWNCNTL           BOVB                                           #  INITIAL PART OF UPCONTROL.
038547,001055: 25,3261           57352                                    TCDANZIG                              #  CLEAR OVFIND, IF ON.
038548,001056: 
038549,001057: 25,3262           54345                           DLOAD    SR                                    
038550,001058: 25,3263           03624                                    LAD                                   
038551,001059: 25,3264           20611                                    8D                                    
038552,001060: 25,3265           45325                           PDDL     DSU                                   #  RDTR = LAD(V1-V)
038553,001061: 25,3266           03674                                    V                                     
038554,001062: 25,3267           00326                                    V1                                    
038555,001063: 25,3270           43205                           DMP      DAD                                   
038556,001064: 25,3271           03624                                    LAD                                   
038557,001065:                                                                                                  #  Page 868
038558,001066: 25,3272           03700                                    RDOT                                  
038559,001067: 25,3273           43205                           DMP      DAD                                   
038560,001068: 25,3274           15227                                    K2D                                   
038561,001069:                                                                                                  #  PUSH UP LAD.
038562,001070: 25,3275           45325                           PDDL     DSU                                   #  LAD + K2D(RDOT-RDTR) INTO PD
038563,001071: 25,3276           00326                                    V1                                    
038564,001072: 25,3277           03674                                    V                                     
038565,001073: 25,3300           41316                           DSQ      DMP                                   
038566,001074: 25,3301           03624                                    LAD                                   
038567,001075: 25,3302           65271                           DDV      PDDL                                  #  (V1-V)SQ LAD/(2 C1 HS) INTO PD
038568,001076: 25,3303           15273                                    2C1HS                                 
038569,001077: 25,3304           00326                                    V1                                    
038570,001078: 25,3305           56316                           DSQ      DDV                                   
038571,001079: 25,3306           03622                                    VSQUARE                               
038572,001080: 25,3307           45265                           BDDV     DSU                                   #  DREF = (V/V1)SQ A0 - PD
038573,001081: 25,3310           00330                                    A0                                    
038574,001082:                                                                                                  #  PUSH UP HERE
038575,001083: 25,3311           77650                           GOTO                                           #  C(MPAC) = DREF
038576,001084: 25,3312           53251                                    CONSTD1                               
038577,001085: 
038578,001086:                                                                                                  #               2           2
038579,001087:                                                                                                  #  DREF = (V/V1)  A0 -(V-V1)  LAD/2 C1 HS
038580,001088:                                                                                                  #  Page 869
038581,001089:                                                                                                  #  * START       BALLISTIC PHASE ...
038582,001090:                                                                                                  #  MM = 66       UPCONTRL ENTRY INTO KEP2
038583,001091: 25,3313           66234        KEP                RTB      SSP                                   
038584,001092: 25,3314           54474                                    P66                                   #  DISPLAY TRIM GIMBAL ANGLE VALUES.
038585,001093: 25,3315           03646                                    GOTOADDR                              #  SET GOTOADDR TO KEPLER PHASE.
038586,001094: 25,3316           53317                                    KEP2                                  
038587,001095: 
038588,001096:                                                                                                  #  KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
038589,001097:                                                                                                  #  IN P64.  PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
038590,001098:                                                                                                  #  .2 G BEFORE GOING ON TO P67.
038591,001099: 
038592,001100: 25,3317           45345        KEP2               DLOAD    DSU                                   #  IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
038593,001101: 25,3320           15167                                    Q7FKDMIN                              #  (Q7F + KDMIN)/805
038594,001102: 25,3321           03640                                    D                                     
038595,001103: 25,3322           72240                           BMN      TLOAD                                 
038596,001104: 25,3323           53333                                    PREFINAL                              
038597,001105:                                                                                                  #  SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
038598,001106: 25,3324           03316                                    ROLLC                                 #  = +1 EVER ENTERED.
038599,001107: 25,3325           72214                           BON      TLOAD                                 #  IF D > .05G, KEEP PRESENT ROLL COMMAND.
038600,001108: 25,3326           03314                                    .05GSW                                #  IF D < .06G, SET ROLL COMMAND = 0.
038601,001109: 25,3327           53331                                    +2                                    
038602,001110: 25,3330           15335                                    3ZEROS                                #  SET ROLLC & ROLLHOLD =0.
038603,001111: 25,3331           37316                 +2        STCALL   ROLLC                                 #  (SP ROLLHOLD FOLLOWS DP ROLLC)
038604,001112: 25,3332           54401                                    P62.3                                 #  CALC DESIRED GIMBAL ANGLES AT PRESENT
038605,001113:                                                                                                  #  RN, VN TO YIELD TRIM ATTITUDE.
038606,001114:                                                                                                  #  AVAILABLE IN CPHI'S FOR N22.
038607,001115:                                                                                                  #  Page 870
038608,001116:                                                                                                  #  START FINAL PHASE ...
038609,001117:                                                                                                  #  MM = 67
038610,001118: 25,3333           47131        PREFINAL           SSP      RTB                                   
038611,001119: 25,3334           03646                                    GOTOADDR                              #  RESTART PROTECT: RESET GOTOADDR IF CAME
038612,001120: 25,3335           53333                                    PREFINAL                              #  FROM HUNTEST.
038613,001121: 25,3336           54500                                    P67                                   #  DISABLES GRP4.  FINE IF FROM HUNTEST, BUT 
038614,001122:                                                                                                  #  MAY ALSO REMOVE RESTART PROTECTION OF
038615,001123:                                                                                                  #  N69 (P65).
038616,001124:                                                                                                  #  ROLLC         XRNGERR         DNRNGERR
038617,001125:                                                                                                  #  XXX.XX DEG    XXXX.X NM       XXXX.XX NM
038618,001126: 
038619,001127: 25,3337           66214                           SET      SSP                                   
038620,001128: 25,3340           03067                                    EGSW                                  
038621,001129: 25,3341           03646                                    GOTOADDR                              
038622,001130: 25,3342           53343                                    PREDICT3                              
038623,001131: 
038624,001132: 25,3343           45345        PREDICT3           DLOAD    DSU                                   #  IF V-VQUIT NEG, STOP STEERING
038625,001133: 25,3344           03674                                    V                                     
038626,001134: 25,3345           15215                                    VQUIT                                 
038627,001135: 25,3346           77440                           BMN      EXIT                                  
038628,001136: 25,3347           53613                                    STEEROFF                              
038629,001137: 
038630,001138: 25,3350           35060                           CA       EBENTRY                               #  PRECAUTIONARY.
038631,001139: 25,3351           54003                           TS       EBANK                                 
038632,001140: 
038633,001141: 25,3352           35771                           CA       TWELVE                                
038634,001142: 25,3353           55771        BACK               TS       JJ                                    
038635,001143: 
038636,001144: 25,3354           41673                           CS       V                                     
038637,001145: 25,3355           51771                           INDEX    JJ                                    
038638,001146: 25,3356           63637                           AD       VREFER                                #  VREF - V, HIGHEST VREF AT END OF TABLE.
038639,001147: 25,3357           10000                           CCS      A                                     #  IF VREF-V POS LOOP BACK
038640,001148: 25,3360           11771                           CCS      JJ                                    #  DECREMENT JJ, JJ CANNOT BE ZERO
038641,001149: 25,3361           13353                           TCF      BACK                                  
038642,001150: 25,3362           65017                           AD       ONE                                   
038643,001151: 25,3363           55646                           TS       TEM1B                                 #  V-VREF IN TEM1B (MUST BE POSITIVE NUM)
038644,001152: 
038645,001153: 25,3364           51771                           INDEX    JJ                                    
038646,001154: 25,3365           43637                           CS       VREFER                                
038647,001155: 25,3366           51771                           INDEX    JJ                                    
038648,001156: 25,3367           63640                           AD       VREFER     +1                         #  V(K+1) - V(K)                 (POS NUM)
038649,001157: 25,3370           57646                           XCH      TEM1B                                 
038650,001158: 25,3371           22007                           ZL                                             
038651,001159: 25,3372           00006                           EXTEND                                         
038652,001160: 25,3373           11646                           DV       TEM1B                                 
038653,001161: 25,3374           55651                           TS       GRAD                                  #  GRAD = (V-VREF)/(VK+1 - VK)   (POS NUM)
038654,001162: 
038655,001163: 25,3375           35022                           CAF      FIVE                                  
038656,001164: 
038657,001165:                                                                                                  #  Page 871
038658,001166: 25,3376           55650        BACK2              TS       MM                                    
038659,001167: 25,3377           35025                           CAF      THIRTEEN                              
038660,001168: 25,3400           27771                           ADS      JJ                                    
038661,001169: 25,3401           50000                           INDEX    A                                     
038662,001170: 25,3402           43637                           CS       VREFER                                
038663,001171: 25,3403           51771                           INDEX    JJ                                    
038664,001172: 25,3404           63640                           AD       VREFER     +1                         #  X(K+1) - X(K)
038665,001173: 25,3405           00006                           EXTEND                                         
038666,001174: 25,3406           71651                           MP       GRAD                                  
038667,001175: 25,3407           51771                           INDEX    JJ                                    
038668,001176: 25,3410           63637                           AD       VREFER                                
038669,001177: 25,3411           51650                           INDEX    MM                                    
038670,001178: 25,3412           55652                           TS       FX                                    #  FX = AK + GRAD (AK+1 - AK)
038671,001179: 25,3413           11650                           CCS      MM                                    
038672,001180: 25,3414           13376                           TCF      BACK2                                 
038673,001181: 25,3415           57653                           XCH      FX         +1                         #  ZERO FX +1 AND GET DREFR
038674,001182: 25,3416           61637                           AD       D                                     
038675,001183: 25,3417           00006                           EXTEND                                         
038676,001184: 25,3420           71657                           MP       FX         +5                         #  F1
038677,001185: 25,3421           52155                           DXCH     MPAC                                  #  MPAC = F1(D-DREF)
038678,001186: 
038679,001187: 25,3422           00006                           EXTEND                                         
038680,001188: 25,3423           41700                           DCS      RDOT                                  #  FORM RDOTREF - RDOT
038681,001189: 25,3424           20001                           DDOUBL                                         
038682,001190: 25,3425           20001                           DDOUBL                                         
038683,001191: 25,3426           20001                           DDOUBL                                         #  SCALE UP BY 8 FOR THIS PHASE.
038684,001192: 25,3427           61655                           AD       FX         +3                         #  RDOTREF
038685,001193: 25,3430           00006                           EXTEND                                         
038686,001194: 25,3431           71656                           MP       FX         +4                         #  F2
038687,001195: 25,3432           61654                           AD       FX         +2                         #  RTOGO
038688,001196: 25,3433           20155                           DAS      MPAC                                  #  ADD F2(DADV1-DADVR)
038689,001197: 25,3434           30154                           CA       MPAC                                  
038690,001198: 25,3435           55770                           TS       PREDANG                               
038691,001199:                                                                                                  #  L/D = LOD + (THETA- PREDANG)/ Y
038692,001200: 25,3436           06006                           TC       INTPRET                               
038693,001201: 
038694,001202: 25,3437           45242                           SR3      DSU                                   
038695,001203: 25,3440           03702                                    THETAH                                
038696,001204: 25,3441           43014                           BON      BOFF                                  
038697,001205: 25,3442           03305                                    GONEPAST                              
038698,001206: 25,3443           53470                                    GONEGLAD                              
038699,001207: 25,3444           03747                                    GONEBY                                
038700,001208: 25,3445           53453                                    HAVDNRNG                              
038701,001209: 25,3446           43145                           DLOAD    SET                                   #  SET GONEPAST IF GONEBY SET & LATCH IN-PLACE
038702,001210: 25,3447           13773                                    MAXRNG                                #  DISPLAY = 9999.9 IF GONEBY
038703,001211: 25,3450           03065                                    GONEPAST                              
038704,001212: 25,3451           37716                           STCALL   DNRNGERR                              
038705,001213: 25,3452           53470                                    GONEGLAD                              
038706,001214: 
038707,001215: 25,3453           03716        HAVDNRNG           STORE    DNRNGERR                              #  = (PREDANG - THETA) /360
038708,001216:                                                                                                  #  Page 872
038709,001217: 25,3454           77676                           DCOMP                                          #  FALLS SHORT IF NEG, OVERSHOOT IF POS
038710,001218: 25,3455           56204                           BOVB     DDV                                   
038711,001219: 25,3456           57352                                    TCDANZIG                              #  CLEAR OVFIND IF ON.
038712,001220: 25,3457           03653                                    FX                                    #  FX= DRANGE/D L/D = Y
038713,001221: 25,3460           40061                           SL       BOV                                   
038714,001222: 25,3461           20206                                    5                                     
038715,001223: 25,3462           53472                                    GOMAXL/D                              
038716,001224: 25,3463           40015                           DAD      BOV                                   
038717,001225: 25,3464           03626                                    LOD                                   
038718,001226: 25,3465           53472                                    GOMAXL/D                              
038719,001227: 25,3466           37634                           STCALL   L/D                                   
038720,001228: 25,3467           53476                                    GLIMITER                              #  (GO TO)
038721,001229: 
038722,001230:                                                                                                  #  GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
038723,001231: 
038724,001232: 25,3470           77745        GONEGLAD           DLOAD                                          #  SET L/D = -LAD
038725,001233: 25,3471           13471                                    GONEGLAD                              #  (ANY NEGATIVE NUMBER WILL DO)
038726,001234: 
038727,001235: 25,3472           41234        GOMAXL/D           RTB      DMP                                   #  L/D = LAD SIGN(MPAC)
038728,001236: 25,3473           45712                                    SIGNMPAC                              
038729,001237: 25,3474           03624                                    LAD                                   
038730,001238: 25,3475           03634                           STORE    L/D                                   #  AND FALL INTO GLIMITER SECTION
038731,001239: 
038732,001240: 25,3476           45345        GLIMITER           DLOAD    DSU                                   #  IF GMAX/2-D POS, GO TO LIMITL/D
038733,001241: 25,3477           15161                                    GMAX/2                                
038734,001242: 25,3500           03640                                    D                                     
038735,001243: 25,3501           43244                           BPL      DAD                                   #  IF GMAX  -D NEG, GO TO GOPOSLAD
038736,001244: 25,3502           53526                                    LIMITL/D                              
038737,001245: 25,3503           15161                                    GMAX/2                                
038738,001246: 25,3504           41240                           BMN      DMP                                   
038739,001247: 25,3505           53523                                    GOPOSLAD                              
038740,001248: 25,3506           15263                                    2HS                                   
038741,001249: 25,3507           41325                           PDDL     DMP                                   #  2HS(GMAX-D) INTO PD
038742,001250: 25,3510           03654                                    LEQ                                   
038743,001251: 25,3511           15333                                    1/GMAX                                
038744,001252: 25,3512           41215                           DAD      DMP                                   
038745,001253: 25,3513           03624                                    LAD                                   
038746,001254: 25,3514           56325                           PDDL     DDV                                   #  2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
038747,001255: 25,3515           15265                                    2HSGMXSQ                              
038748,001256: 25,3516           03622                                    VSQUARE                               
038749,001257: 25,3517           75415                           DAD      SQRT                                  #  XLIM = SQRT(PD+(2HSGMAX/V)SQ)
038750,001258: 25,3520           51015                           DAD      BPL                                   #  IF RDOT+XLIM POS, GO TO LIMITL/D
038751,001259: 25,3521           03700                                    RDOT                                  
038752,001260: 25,3522           53526                                    LIMITL/D                              
038753,001261: 
038754,001262: 25,3523           77745        GOPOSLAD           DLOAD                                          
038755,001263: 25,3524           03624                                    LAD                                   
038756,001264: 25,3525           03634        STOREL/D           STORE    L/D                                   
038757,001265: 
038758,001266:                                                                                                  #  Page 873
038759,001267: 25,3526           77745        LIMITL/D           DLOAD                                          
038760,001268: 25,3527           03634                                    L/D                                   
038761,001269: 25,3530           17636                           STODL    L/D1                                  
038762,001270: 25,3531           03622                                    VSQUARE                               
038763,001271: 
038764,001272: 25,3532           77614                           BON                                            #  NO LATERAL CONTROL IF PAST TARGET
038765,001273: 25,3533           03305                                    GONEPAST                              
038766,001274: 25,3534           53566                                    L355                                  
038767,001275: 25,3535           43205                           DMP      DAD                                   #  Y= KLAT VSQUARE + LATBIAS
038768,001276: 25,3536           03632                                    KLAT                                  
038769,001277: 25,3537           15243                                    LATBIAS                               #  Y INTO PD
038770,001278: 25,3540           51525        L350               PDDL     ABS                                   #  IF ABS(L/D)-L/DCMINR NEG, GO TO L353
038771,001279: 25,3541           03634                                    L/D                                   
038772,001280: 25,3542           50025                           DSU      BMN                                   
038773,001281: 25,3543           03630                                    L/DCMINR                              
038774,001282: 25,3544           53553                                    L353                                  
038775,001283: 25,3545           75345                           DLOAD    SIGN                                  #  IF K2ROLL LATANG NEG, GO TO L357
038776,001284: 25,3546           03676                                    LATANG                                
038777,001285: 25,3547           03644                                    K2ROLL                                
038778,001286: 25,3550           71240                           BMN      DLOAD                                 
038779,001287: 25,3551           53632                                    L357                                  
038780,001288: 25,3552           41542                           SR1      PUSH                                  #  Y = Y/2
038781,001289: 25,3553           75345        L353               DLOAD    SIGN                                  #  IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
038782,001290: 25,3554           03676                                    LATANG                                
038783,001291: 25,3555           03644                                    K2ROLL                                
038784,001292: 25,3556           77625                           DSU                                            
038785,001293: 25,3557           71240                           BMN      DLOAD                                 
038786,001294: 25,3560           53566                                    L355                                  
038787,001295: 25,3561           03644                                    K2ROLL                                
038788,001296: 25,3562           57414                           BONCLR   DCOMP                                 #  IF NOSWITCH =1, K2ROLL= K2ROLL
038789,001297: 25,3563           03210                                    NOSWITCH                              
038790,001298: 25,3564           53566                                    L355                                  
038791,001299: 25,3565           03644                           STORE    K2ROLL                                #  K2ROLL = -K2ROLL
038792,001300: 
038793,001301: 25,3566           56345        L355               DLOAD    DDV                                   #  ROLLC = ACOS( (L/D1) / LAD)
038794,001302: 25,3567           03636                                    L/D1                                  
038795,001303: 25,3570           03624                                    LAD                                   #  MPAC SET TO +-1 IF OVERFLOW***
038796,001304: 25,3571           65542                           SR1      ACOS                                  
038797,001305: 25,3572           43165                           SIGN     CLEAR                                 
038798,001306: 25,3573           03644                                    K2ROLL                                
038799,001307: 25,3574           03270                                    NOSWITCH                              
038800,001308: 25,3575           03316                           STORE    ROLLC                                 
038801,001309: 
038802,001310: 25,3576           77776        ENDEXIT            EXIT                                           
038803,001311: 
038804,001312: 25,3577           35003        OVERNOUT           CA       BIT13                                 #  ENTRYDSP =92D B13
038805,001313: 25,3600           70102                           MASK     CM/FLAGS                              
038806,001314: 25,3601           00006                           EXTEND                                         
038807,001315: 25,3602           13606                           BZF      NODISKY                               #  OMIT DISPLAY.
038808,001316:                                                                                                  #  Page 874
038809,001317: 25,3603           31263                           CA       ENTRYVN                               #  ALL ENTRY DISPLAYS ARE DONE HERE.
038810,001318: 25,3604           04662                           TC       BANKCALL                              
038811,001319: 25,3605           20712                           CADR     REGODSPR                              #  NO ABORT IF DISKY IN USE
038812,001320: 
038813,001321: 25,3606           00004        NODISKY            INHINT                                         
038814,001322: 25,3607           10067                           CCS      NEWJOB                                #  PROTECT READACCS GRP 5, IF SIDETRACKED.
038815,001323: 25,3610           05164                           TC       CHANG1                                
038816,001324: 25,3611           04701        SERVNOUT           TC       POSTJUMP                              #  ( COME HERE FROM P67.3 )
038817,001325: 25,3612           77227                           CADR     SERVEXIT                              #  AND END AVERAGEG JOB VIA ENDOJOB.
038818,001326: 
038819,001327:                                                                                                  #  Page 875
038820,001328:                                                                                                  #  DISPLAY WHEN V IS LESS THAN VQUIT.
038821,001329: 
038822,001330: 25,3613           77776        STEEROFF           EXIT                                           
038823,001331: 25,3614           35060                           CA       EBENTRY                               #  PRECAUTIONARY.
038824,001332: 25,3615           54003                           TS       EBANK                                 
038825,001333: 
038826,001334: 25,3616           35070                           CA       PRIO16                                #  2 LESS THAN NTRYPRIO.
038827,001335: 25,3617           05134                           TC       NOVAC                                 
038828,001336: 25,3620  E6,1661                                  EBANK=   AOG                                   #  ANY EB HERE
038829,001337: 25,3620           02512 54066                     2CADR    P67.1                                 #  START UP REMAINDER OF P67
038830,001338: 
038831,001339:                                                                                                  #  RTOGO         LAT             LONG
038832,001340:                                                                                                  #  XXXX.X NM     XXX.XX DEG      XXX.XX DEG
038833,001341: 
038834,001342: 25,3622           05372                           TC       2PHSCHNG                              #  INHINT/RELINT DONE.
038835,001343: 25,3623           00414                           OCT      00414                                 #  4.41 RESTART FOR P67.1 DISPLAY JOB.
038836,001344: 25,3624           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART.
038837,001345: 
038838,001346: 25,3625           33631                           CA       P67.2CAD                              #  HEREAFTER, DO LAT, LONG.
038839,001347: 25,3626           55645                           TS       GOTOADDR                              
038840,001348: 
038841,001349: 25,3627           06006                           TC       INTPRET                               
038842,001350: 25,3630           77650                           GOTO                                           
038843,001351: 25,3631           54531        P67.2CAD                    P67.2                                 #  CONTINUE FOR LAT, LONG THIS TIME.
038844,001352: 
038845,001353: 25,3632           75345        L357               DLOAD    SIGN                                  #  L/D = L/DCMINR SIGN(L/D)
038846,001354: 25,3633           03630                                    L/DCMINR                              
038847,001355: 25,3634           03634                                    L/D                                   
038848,001356: 25,3635           37636                           STCALL   L/D1                                  
038849,001357: 25,3636           53566                                    L355                                  #  (GO TO)
038850,001358: 
038851,001359:                                                                                                  #  Page 876
038852,001360:                                                                                                  #  TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
038853,001361: 
038854,001362: 25,3637           00474        VREFER             DEC      .019288                               #  REFERENCE VELOCITY SCALED V/51532.3946
038855,001363: 25,3640           01235                           DEC      .040809                               #  13 POINTS ARE STORED AS THE INDEPENDENT
038856,001364: 25,3641           02337                           DEC      .076107                               #  VARIABLE AND THEN SIX 13-POINT FUNCTIONS
038857,001365: 25,3642           03721                           DEC      .122156                               #  OF V ARE STORED CONSECUTIVELY
038858,001366: 25,3643           05230                           DEC      .165546                               
038859,001367: 25,3644           06213                           DEC      .196012                               
038860,001368: 25,3645           10550                           DEC      .271945                               
038861,001369: 25,3646           11717                           DEC      .309533                               
038862,001370: 25,3647           13314                           DEC      .356222                               
038863,001371: 25,3650           14736                           DEC      .404192                               
038864,001372: 25,3651           16255                           DEC      .448067                               
038865,001373: 25,3652           16457                           DEC      .456023                               
038866,001374: 25,3653           25570                           DEC      .67918                                #  HIGHVELOCITY FOR SAFETY.
038867,001375: 
038868,001376: 25,3654           77526                           DEC      -.010337                              #  DRANGE/DA     SCALED DRDA/(2700/805)
038869,001377: 25,3655           77360                           DEC      -.016550                              
038870,001378: 25,3656           77106                           DEC      -.026935                              
038871,001379: 25,3657           76516                           DEC      -.042039                              
038872,001380: 25,3660           76071                           DEC      -.058974                              
038873,001381: 25,3661           75570                           DEC      -.070721                              
038874,001382: 25,3662           74661                           DEC      -.098538                              
038875,001383: 25,3663           74436                           DEC      -.107482                              
038876,001384: 25,3664           73212                           DEC      -.147762                              
038877,001385: 25,3665           71640                           DEC      -.193289                              
038878,001386: 25,3666           54557                           DEC      -.602557                              
038879,001387: 25,3667           40000                           DEC      -.99999                               
038880,001388: 25,3670           40000                           DEC      -.99999                               
038881,001389: 
038882,001390: 25,3671           77635                           DEC      -.0478599  B-3                        #  -DRANGE/DRDOT
038883,001391: 25,3672           77563                           DEC      -.0683663  B-3                        #  SCALED ((2VS/8 2700) DR/DRDOT)
038884,001392: 25,3673           77354                           DEC      -.1343468  B-3                        
038885,001393: 25,3674           76712                           DEC      -.2759846  B-3                        
038886,001394: 25,3675           76066                           DEC      -.4731437  B-3                        
038887,001395: 25,3676           75322                           DEC      -.6472087  B-3                        
038888,001396: 25,3677           73237                           DEC      -1.171693  B-3                        
038889,001397: 25,3700           72104                           DEC      -1.466382  B-3                        
038890,001398: 25,3701           70301                           DEC      -1.905171  B-3                        
038891,001399: 25,3702           65635                           DEC      -2.547990  B-3                        
038892,001400: 25,3703           57311                           DEC      -4.151220  B-3                        
038893,001401: 25,3704           50575                           DEC      -5.813617  B-3                        
038894,001402: 25,3705           50575                           DEC      -5.813617  B-3                        
038895,001403: 
038896,001404:                                                                                                  #  Page 877
038897,001405: 25,3706           74443                           DEC      -.0134001  B3                         #  RDOTREF       SCALED (8 RDT/2VS)
038898,001406: 25,3707           74333                           DEC      -.013947   B3                         
038899,001407: 25,3710           74433                           DEC      -.013462   B3                         
038900,001408: 25,3711           74763                           DEC      -.011813   B3                         
038901,001409: 25,3712           75432                           DEC      -.0095631  B3                         
038902,001410: 25,3713           75735                           DEC      -.00806946 B3                         
038903,001411: 25,3714           76200                           DEC      -.006828   B3                         
038904,001412: 25,3715           75735                           DEC      -.00806946 B3                         
038905,001413: 25,3716           75140                           DEC      -.0109791  B3                         
038906,001414: 25,3717           74075                           DEC      -.0151498  B3                         
038907,001415: 25,3720           73312                           DEC      -.0179817  B3                         
038908,001416: 25,3721           73732                           DEC      -.0159061  B3                         
038909,001417: 25,3722           73732                           DEC      -.0159061  B3                         
038910,001418: 
038911,001419: 25,3723           00015                           DEC      .0008067                              #  RANGE TO GO SCALED RTOGO/2700
038912,001420: 25,3724           00066                           DEC      .0032963                              #        8.9
038913,001421: 25,3725           00206                           DEC      .0081852                              #        22.1
038914,001422: 25,3726           00431                           DEC      .017148                               
038915,001423: 25,3727           00712                           DEC      .027926                               
038916,001424: 25,3730           01136                           DEC      .037                                  
038917,001425: 25,3731           02015                           DEC      .063298                               
038918,001426: 25,3732           02374                           DEC      .077889                               
038919,001427: 25,3733           03123                           DEC      .098815                               
038920,001428: 25,3734           04051                           DEC      .127519                               
038921,001429: 25,3735           05767                           DEC      .186963                               
038922,001430: 25,3736           07476                           DEC      .238148                               
038923,001431: 25,3737           11324                           DEC      .294185185                            
038924,001432: 
038925,001433: 25,3740           76272                           DEC      -.051099                              #  -AREF/805
038926,001434: 25,3741           75472                           DEC      -.074534                              
038927,001435: 25,3742           74604                           DEC      -.101242                              
038928,001436: 25,3743           74210                           DEC      -.116646                              
038929,001437: 25,3744           74052                           DEC      -.122360                              
038930,001438: 25,3745           73735                           DEC      -.127081                              
038931,001439: 25,3746           73217                           DEC      -.147453                              
038932,001440: 25,3747           73013                           DEC      -.155528                              
038933,001441: 25,3750           73155                           DEC      -.149565                              
038934,001442: 25,3751           74151                           DEC      -.118509                              
038935,001443: 25,3752           76703                           DEC      -.034907                              
038936,001444: 25,3753           77575                           DEC      -.007950                              
038937,001445: 25,3754           77575                           DEC      -.007950                              
038938,001446: 
038939,001447:                                                                                                  #  Page 878
038940,001448: 25,3755           00112                           DEC      .004491                               #  DRANGE/D L/D SCALED Y/2700
038941,001449: 25,3756           00204                           DEC      .008081                               
038942,001450: 25,3757           00407                           DEC      .016030                               
038943,001451: 25,3760           01113                           DEC      .035815                               
038944,001452: 25,3761           02161                           DEC      .069422                               
038945,001453: 25,3762           03260                           DEC      .104519                               
038946,001454: 25,3763           03717                           DEC      .122                                  
038947,001455: 25,3764           05411                           DEC      .172407                               
038948,001456: 25,3765           10057                           DEC      .252852                               
038949,001457: 25,3766           13476                           DEC      .363148                               
038950,001458: 25,3767           20324                           DEC      .512963                               
038951,001459: 25,3770           21677                           DEC      .558519                               
038952,001460: 25,3771           21677                           DEC      .558519                               #  END OF STORED REFERENCE
038953,001461: 
038954,001462:                                                                                                  #  Page 879
038955,001463:                                                                                                  #  REENTRY CONSTANTS.
038956,001464: 
038957,001465:                                                                                                  #  DEFINED BY EQUALS
038958,001466: 
038959,001467: 25,3772     5026               DEC15              =        LOW4                                  
038960,001468:                                                                                                  # GAMMAL1        =       22D
038961,001469: 
038962,001470: 25,3772           16631 06755  MAXRNG             2OCT     1663106755                            #  DNRNGERR = 9999.9 IF GONEPAST=1
038963,001471: 
038964,001472: 26,3145                                           BANK     26                                    
038965,001473: 26,2000                                           SETLOC   REENTRY1                              
038966,001474: 26,2000                                           BANK                                           
038967,001475: 
038968,001476: 26,3145                                           COUNT*   $$/ENTRY                              
038969,001477: 
038970,001478: 26,3145  27,3371               BARELY1            =        NEARONE                               #  COMMON TO BOTH DISK,DANCE, DEFND IN TFF
038971,001479:                                                                                                  # 1BITDP                                 # COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
038972,001480: 
038973,001481: 26,3145           02525        1/12TH             DEC      .083333                               #  DP 1/12 USES HI WORD IN 1/3 BELOW
038974,001482: 26,3146           12525 12525  1/3RD              2DEC     .3333333333                            #  DP 1/3
038975,001483: 
038976,001484: 26,3150  27,3365               1/16TH             =        DP2(-4)                               
038977,001485: 
038978,001486:                                                                                                  #  BELOW:  VS = VSAT = 25766.1973 FT/SEC
038979,001487: 
038980,001488:                                                                                                  #          RE = 21,202,900 FEET
038981,001489: 
038982,001490: 26,3150           04631 23146  LEWD1              2DEC     .15                                   
038983,001491: 
038984,001492: 26,3152           03146 14632  POINT1             2DEC     .1                                    
038985,001493: 
038986,001494: 26,3154           06314 31463  POINT2             2DEC     .2                                    #  .2
038987,001495: 
038988,001496: 26,3156           76314 71462  DLEWD0             2DEC     -.05                                  #  -.05
038989,001497: 
038990,001498: 26,3160           05075 16051  GMAX/2             2DEC     .16                                   #  8 GS / 2
038991,001499: 
038992,001500: 26,3162  26,3334               3ZEROS             EQUALS   HI6ZEROS                              
038993,001501: 26,3162           07777 00000  NEAR1/4            2OCT     0777700000                            #  1/4 LESS 1 BIT IN UPPER PART.
038994,001502: 
038995,001503: 26,3164           00236 36763  C18                2DEC     .0097026346                            #  500/2VS
038996,001504: 
038997,001505: 26,3166           00204 11303  Q7FKDMIN           2DEC     .0080745342                            #  6.5/805  (Q7F +KDMIN) = 6 + .5)
038998,001506: 
038999,001507: 26,3170  27,3365               C1/16              =        DP2(-4)                               
039000,001508: 
039001,001509: 26,3170           05260 05572  Q3                 2DEC     .167003132                            #  .07 2VS/21600
039002,001510:                                                                                                  #  Page 880
039003,001511: 26,3172           12343 21616  Q5                 2DEC     .326388889                            #  .3 23500/21600
039004,001512: 
039005,001513: 26,3174           01073 31515  Q6                 2DEC     .0349                                 #  2 DEG. APPROX 820/23500
039006,001514: 
039007,001515: 26,3176           00172 03571  Q7F                2DEC     .0074534161                            #  6/805  (VALUE OF Q7 IN FIXED MEM.)
039008,001516: 
039009,001517: 26,3200  26,3332               Q19                =        HALVE                                 #  Q19 = .5
039010,001518: 
039011,001519: 26,3200           00573 10230  Q21                2DEC     .0231481481                            #  500/21600
039012,001520: 
039013,001521: 26,3202           76226 45761  Q22                2DEC     -.053333333                            #  -1152/21600
039014,001522: 
039015,001523: 26,3204           13132 33062  VLMIN              2DEC     .34929485                             #  18000/2 VS
039016,001524: 
039017,001525: 26,3206  26,3324               VMIN               =        FOURTH                                #  (VS/2) / 2VS
039018,001526: 26,3206           00160 05104  C12                2DEC     .00684572901                            #  32 28500/(21202900 2 PI)
039019,001527: 
039020,001528: 26,3210           11322 32265  1/KB1              2DEC     .29411765                             #  1 / 3.4
039021,001529: 
039022,001530: 26,3212           75047 72454  -1/KB2             2DEC     -.0057074322 B4                         #  - 1/(.0034 2 VS) EXP +4
039023,001531: 
039024,001532: 26,3214           00475 35746  VQUIT              2DEC     .019405269                            #  1000 /2VS
039025,001533: 
039026,001534: 26,3216           06751 27515  C20                2DEC     .21739130                             #  (175 FPSS) LIFT UP IF ABOVE C20
039027,001535: 
039028,001536: 26,3220           05441 14412  C21                2DEC     .17391304                             #  140/805
039029,001537: 
039030,001538: 26,3222           00022 36641  25NM               2DEC     .0011574074                            #  25/21600      (25 NAUT MILES)
039031,001539: 
039032,001540: 26,3224           01003 06315  K1D                2DEC     .0314453125                            #  =C16 805/256 = .01 805/256
039033,001541: 
039034,001542: 26,3226           71435 75516  K2D                2DEC     -.201298418                            #  -C17 2VS/256 = -.001 2VS/256
039035,001543: 
039036,001544: 26,3230           32047 24367  KVSCALE            2DEC     .81491944                             #  12800/(2 VS .3048)
039037,001545: 
039038,001546: 26,3232           37200 05636  KASCALE            2DEC     .97657358                             #  5.85 16384/(4 .3048 100 805)
039039,001547: 
039040,001548: 26,3234           00046 13137  KTETA              2DEC*    .383495203 E2         B-14*           #  1000 2PI/16384(163.84)
039041,001549: 
039042,001550: 26,3236           00017 30730  KT1                2DEC*    .157788327 E2         B-14*           #  RE(2PI)/2 VS(16384) 163.84
039043,001551: 
039044,001552: 26,3240           00040 30447  .05G               2DEC     .002                                  #  .05/25
039045,001553: 
039046,001554: 26,3242           00000 17565  LATBIAS            2DEC     .00003                                #  APPRX .5 NM/ 4(21600/2 PI)
039047,001555: 
039048,001556: 26,3244           01727 20103  KWE                2DEC     .120056652 B-1                        
039049,001557: 
039050,001558: 26,3246           00121 17460  KACOS              2DEC     .004973592                            #  1/32(2PI)
039051,001559: 
039052,001560: 26,3250           00400 00000  CHOOK              2DEC     1          B-6                        #  .25/16
039053,001561:                                                                                                  #  Page 881
039054,001562: 26,3252           01252 25253  1/24TH             2DEC     .0833333333 B-1                        
039055,001563: 
039056,001564: 26,3254           24365 30244  CH1                2DEC     .32        B1                         #  16 CH1/25 = 16 (1) /25
039057,001565: 
039058,001566: 26,3256           77152 51354  KC3                2DEC     -.0247622232                            #  -(4 VS VS/ 2 PI 805 RE)
039059,001567: 
039060,001568: 26,3260           00336 21610  VRCONT             2DEC     .0135836886                            #  700/2 VSAT
039061,001569: 
039062,001570: 26,3262  26,3332               HALVE              EQUALS   HIDPHALF                              
039063,001571: 26,3262  26,3324               FOURTH             EQUALS   HIDP1/4                               
039064,001572: 
039065,001573: 26,3262  26,3332               1/GMAX             EQUALS   HALVE                                 #  4/GMAX = 4 / 8
039066,001574: 26,3262           00433 02775  2HS                2DEC     .0172786611                            #  2 28500 25 32.2/(4 VS VS)
039067,001575: 
039068,001576: 26,3264           00000 20017  2HSGMXSQ           2DEC     .0000305717                            #  (2 28500 8 32.2/ 4 VS VS)SQ
039069,001577: 
039070,001578: 26,3266           77765 70243  C001               2DEC     -.000625                              #  -(4/25)/256   LEQ/D0 CONST
039071,001579: 
039072,001580: 26,3270           31463 06315  POINT8             2DEC     .8                                    
039073,001581: 
039074,001582: 26,3272           00541 33575  2C1HS              2DEC     .0215983264                            #  2 1.25 28500 805/(2 VS)SQ
039075,001583: 
039076,001584: 26,3274           00146 14632  PT1/16             2DEC     .1         B-4                        
039077,001585: 
039078,001586: 26,3276           00052 30013  1/K44              2DEC     .00260929464                            #  2 VS/19749550
039079,001587: 
039080,001588: 26,3300           20411 03041  VFINAL             2DEC     .51618016                             #  26600/2 VS
039081,001589: 
039082,001590: 26,3302           20610 10513  VFINAL1            2DEC     .523942273                            #  = 27000 / 2 VS
039083,001591: 
039084,001592: 26,3304           11473 02355  1/KA1              2DEC     .30048077                             #  25/(1.3 64)
039085,001593: 
039086,001594: 26,3306           00203 02234  KA2                2DEC     .008                                  #  .2/25
039087,001595: 
039088,001596: 26,3310           16237 00146  KA3                2DEC     .44720497                             #  = 90 4/805
039089,001597: 
039090,001598: 26,3312           01456 03450  KA4                2DEC     .049689441                            #  40/805
039091,001599: 
039092,001600: 26,3314           01727 01217  KALIM              2DEC     .06                                   #  1.5/25
039093,001601: 
039094,001602: 26,3316  26,3312               Q7MIN              =        KA4                                   #  = 40/805 = .049689441
039095,001603: 26,3316           56232 72332  -HSCALED           2DEC     -.55305018                            #  -28500/2 VS
039096,001604: 
039097,001605: 26,3320           77000 43741  -KSCALE            2DEC     -.0312424837                            #  -805/VS 
039098,001606: 
039099,001607: 26,3322           36702 21727  COS15              2DEC     .965                                  
039100,001608: 
039101,001609: 26,3324  26,3145               LATSLOPE           EQUALS   1/12TH                                
039102,001610:                                                                                                  #  ... END OF RE-ENTRY CONSTANTS ...
039103,001611: 

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