Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

037468,000002:                                                                                                  ## Copyright:   Public domain.
037469,000003:                                                                                                  ## Filename:    REENTRY_CONTROL.agc
037470,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
037471,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
037472,000006:                                                                                                  ##              release of the flight software for the Command Module's
037473,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
037474,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
037475,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
037476,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
037477,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
037478,000012:                                                                                                  ##              that the reconstruction is correct.
037479,000013:                                                                                                  ## Reference:   852
037480,000014:                                                                                                  ## Assembler:   yaYUL
037481,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037482,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037483,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
037484,000018: 

Page 852

037486,000020: 
037487,000021:                                                                                                  #  ENTRY INITIALIZATION ROUTINE
037488,000022:                                                                                                  #   -----------------------------
037489,000023: 
037490,000024: 25,2000                                           SETLOC   REENTRY                               
037491,000025: 25,2000                                           BANK                                           
037492,000026: 
037493,000027: 25,2000                                           COUNT*   $$/ENTRY                              
037494,000028: 25,2000  E7,1451                                  EBANK=   RTINIT                                
037495,000029: 
037496,000030: 25,2000     0102               CM/FLAGS           EQUALS   STATE      +6                         
037497,000031: 
037498,000032: 25,2000           77776        STARTENT           EXIT                                           #  MM = 63
037499,000033:                                                                                                  #  COME HERE FROM CM/POSE. RESTARTED IN CM/POSE.
037500,000034: 
037501,000035: 25,2001           42113                           CS       ENTMASK                               #  INITIALIZE ALL SWITCHES TO ZERO
037502,000036:                                                                                                  #  EXCEPT LATSW, ENTRYDSP AND GONEPAST.
037503,000037:                                                                                                  #  GONEBY 112D BIT8 FLAG7, SELF INITIALIZING
037504,000038: 25,2002           00004                           INHINT                                         
037505,000039: 25,2003           70102                           MASK     CM/FLAGS                              
037506,000040:                                                                                                  #  ENTRYDSP = 92D B13
037507,000041:                                                                                                  #  GONEPAST=95D B10,  RELVELSW=96D B9
037508,000042:                                                                                                  #  EGSW = 97D B8         NOSWITCH = 98D  B7
037509,000043:                                                                                                  #  HIND=99D B6           INRLSW=100D B5
037510,000044:                                                                                                  #  LATSW=101D B4         .05GSW=102D B3
037511,000045: 
037512,000046: 25,2004           62114                           AD       ENTRYSW                               #  SET ENTRYDSP, LATSW, GONEPAST.
037513,000047: 25,2005           54102                           TS       CM/FLAGS                              
037514,000048: 
037515,000049: 25,2006           00003                           RELINT                                         
037516,000050: 
037517,000051: 25,2007           06006                           TC       INTPRET                               
037518,000052: 
037519,000053: 25,2010           77735                           SLOAD                                          
037520,000054: 25,2011           03011                                    LODPAD                                
037521,000055: 25,2012           03626                           STORE    LOD                                   
037522,000056: 
037523,000057: 25,2013           77735                           SLOAD                                          
037524,000058: 25,2014           03010                                    LADPAD                                
037525,000059: 25,2015           03624                           STORE    LAD                                   
037526,000060: 
037527,000061: 25,2016           77605                           DMP                                            #  L/DCMINR = LAD COS(15)
037528,000062: 25,2017           15324                                    COS15                                 
037529,000063: 25,2020           17630                           STODL    L/DCMINR                              
037530,000064: 25,2021           15151                                    LATSLOPE                              
037531,000065: 25,2022           70405                           DMP      SR1                                   #  KLAT = LAD/24
037532,000066: 25,2023           03624                                    LAD                                   
037533,000067: 25,2024           17632                           STODL    KLAT                                  
037534,000068: 25,2025           15200                                    Q7F                                   
037535,000069: 25,2026           17175                           STODL    Q7                                    #  Q7 = Q7F
037536,000070: 25,2027           15344                                    NEARONE                               #  1.0 -1BIT

Page 853

037538,000072: 25,2030           17614                           STODL    FACTOR                                
037539,000073: 25,2031           03624                                    LAD                                   
037540,000074: 25,2032           57565                           SIGN     DCOMP                                 
037541,000075: 25,2033           03327                                    HEADSUP                               #  MAY BE NOISE FOR DISPLAY P61
037542,000076: 25,2034           37634                           STCALL   L/D                                   #  L/D = - LAD SGN(HEADSUP)
037543,000077: 
037544,000078: 25,2035           52063                                    STARTEN1                              #  RETURN VIA GOTOADDR
037545,000079: 25,2036           47375                           VLOAD    VXV                                   
037546,000080: 25,2037           01036                                    VN                                    #  (-7) M/CS
037547,000081: 25,2040           01756                                    UNITR                                 #  .5 UNIT               REF COORDS
037548,000082: 25,2041           50256                           UNIT     DOT                                   
037549,000083: 25,2042           03474                                    RT                                    #  RT/2 TARGET VECTOR    REF COORDS
037550,000084: 25,2043           03676                           STORE    LATANG                                #  LATANG = UNI.RT /4
037551,000085: 25,2044           47076                           DCOMP    RTB                                   
037552,000086: 25,2045           45761                                    SIGNMPAC                              
037553,000087: 25,2046           17644                           STODL    K2ROLL                                #  K2ROLL = -SGN(LATANG)
037554,000088: 
037555,000089: 25,2047           03624                                    LAD                                   
037556,000090: 25,2050           43205                           DMP      DAD                                   
037557,000091: 25,2051           15202                                    Q21                                   
037558,000092: 25,2052           15204                                    Q22                                   
037559,000093: 25,2053           03712                           STORE    Q2                                    #  Q2 = -1992 + 3500 LAD
037560,000094: 
037561,000095: 25,2054           66331                           SSP      SSP                                   
037562,000096: 25,2055           03646                                    GOTOADDR                              #  SET SELECTOR FOR INITIAL PASS
037563,000097: 25,2056           52260                                    INITROLL                              
037564,000098: 25,2057           03325                                    POSEXIT                               
037565,000099: 25,2060           52115                                    SCALEPOP                              #  SET CM/POSE TO CONTINUE AT SCALEPOP
037566,000100: 
037567,000101: 25,2061           77634                           RTB                                            
037568,000102: 25,2062           53607                                    SERVNOUT                              #  OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
037569,000103: 
037570,000104:                                                                                                  #  CALCULATE THE INITIAL TARGET VECTOR:  RTINIT,  ALSO RTEAST, RTNORM  AND  RT.   ALL ARE .5 UNIT AND IN
037571,000105:                                                                                                  #  REFERENCE COORDINATES.
037572,000106: 
037573,000107: 25,2063           77220        STARTEN1           STQ      VLOAD                                 
037574,000108: 25,2064           03645                                    GOTOADDR                              
037575,000109: 25,2065           03401                                    LAT(SPL)                              #  TARGET COORDINATES
037576,000110: 25,2066           43014                           CLEAR    CLEAR                                 #  DO CALL USING PAD RADIUS. WILL UNIT IT.
037577,000111: 25,2067           00662                                    ERADFLAG                              #  ANYWAY.
037578,000112: 25,2070           01663                                    LUNAFLAG                              
037579,000113: 25,2071           14747                           STODL    LAT                                   
037580,000114: 25,2072           15336                                    3ZEROS                                
037581,000115: 
037582,000116: 25,2073           14753                           STODL    LAT        +4                         #  SET ALT=0.
037583,000117: 25,2074           01044                                    PIPTIME                               #  ESTABLISH RTINIT AT TIME OF PRESENT
037584,000118:                                                                                                  #  RN AND VN.
037585,000119: 25,2075           37524                           STCALL   TIME/RTO                              #  SAVE TIME BASE OF RTINIT.
037586,000120: 25,2076           26524                                    LALOTORV                              #  C(MPAC) =TIME  (PIPTIME)
037587,000121: 25,2077           77656                           UNIT                                           #  ANSWER IN ALPHAV ALSO

Page 854

037589,000123: 25,2100           17452                           STODL    RTINIT                                #  .5 UNIT TARGET                REF COORDS
037590,000124: 25,2101           12112                                    500SEC                                #  NOMINAL ENTRY TIME FOR P63
037591,000125:                                                                                                  #  TIME/RTO = PIPTIME, STILL.
037592,000126: 25,2102           37606                           STCALL   DTEAROT                               #  INITIALIZE EARROT
037593,000127: 25,2103           46213                                    EARROT1                               #  GET RT
037594,000128: 25,2104           72441                           DOT      SL1                                   
037595,000129: 25,2105           01756                                    UNITR                                 #  RT/2 IN MPAC
037596,000130: 25,2106           77726                           ACOS                                           
037597,000131: 25,2107           37702                           STCALL   THETAH                                #  RANGE ANGLE /360
037598,000132: 25,2110           03645                                    GOTOADDR                              #  RETURN TO CALLER
037599,000133: 
037600,000134: 25,2111           00003 01520  500SEC             2DEC     50000      B-28                       #  CS
037601,000135: 
037602,000136: 25,2113           11774        ENTMASK            OCT      11774                                 
037603,000137: 25,2114           11010        ENTRYSW            OCT      11010                                 #  ENTRYDSP B13, GONEPAST B10, LATSW B4

Page 855

037605,000139: 
037606,000140: 25,2115           77624        SCALEPOP           CALL                                           
037607,000141: 25,2116           52125                                    TARGETNG                              
037608,000142: 
037609,000143: 25,2117           77776                           EXIT                                           
037610,000144: 
037611,000145: 25,2120           05402        REFAZE10           TC       PHASCHNG                              
037612,000146: 25,2121           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART AT REFAZE10
037613,000147: 
037614,000148: 25,2122  01,2250               5P3SPT14           =        5.3SPOT                               
037615,000149: 25,2122           06006                           TC       INTPRET                               
037616,000150: 
037617,000151:                                                                                                  #  JUMP TO PARTICULAR RE-ENTRY PHASE:
037618,000152: 
037619,000153:                                                                                                  # SEQUENCE
037620,000154: 25,2123           77650                           GOTO                                           
037621,000155: 25,2124           03645                                    GOTOADDR                              
037622,000156: 
037623,000157:                                                                                                  #  GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS APPROPRIATE TO THE CURRENT PHASE OF
037624,000158:                                                                                                  #  RE-ENTRY.  SEQUENCING IS AS FOLLOWS:
037625,000159: 
037626,000160:                                                                                                  #  INITROLL      ADDRESS IS SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT  IS EXCEEDED. THEN HOLDS NEW ROLL
037627,000161:                                                                                                  #                ATTITUDE UNTIL  VRTHRESH  IS EXCEEDED.  THEN BRANCHES TO
037628,000162: 
037629,000163:                                                                                                  #  HUNTEST       THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL   L/D FROM PRESENT CONDITIONS IS LESS
037630,000164:                                                                                                  #                THAN THE DESIRED RANGE.
037631,000165:                                                                                                  #                  IF NOT - A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG CONTROLLER.
037632,000166:                                                                                                  #                  IF SO - CONTROL AND GOTOADDR ARE SET TO  UPCONTRL.
037633,000167:                                                                                                  #                USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUGH
037634,000168:                                                                                                  #                HUNTEST.
037635,000169: 
037636,000170:                                                                                                  #  UPCONTRL      CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE.  UPCONTRL IS TERMINATED EITHER
037637,000171:                                                                                                  #                  (A)  WHEN THE DRAG (AS MEASURED BY THE PIPAS) FALLS BELOW Q7, OR
037638,000172:                                                                                                  #                  (B)  IF RDOT IS NEGATIVE AND REFERENCE VL EXCEEDS V.
037639,000173:                                                                                                  #                IN CASE (A),  GOTOADDR  IS SET TO  KEP2  AND IN CASE (B), TO  PREDICT3  SKIPPING THE KEPLER PHASE OF
037640,000174:                                                                                                  #                ENTRY.
037641,000175: 
037642,000176:                                                                                                  #  KEP2          GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG. THE SPACECRAFT IS INSTANTANEOUSLY
037643,000177:                                                                                                  #                TRIMMED IN PITCH AND YAW TO THE COMPUTED RELATIVE VELOCITY. THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.
037644,000178:                                                                                                  #                WHEN THE MEASURED DRAG EXCEEDS Q7 +0.5,  GOTOADDR  IS SET TO
037645,000179: 
037646,000180:                                                                                                  #  PREDICT3      THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
037647,000181:                                                                                                  #                WHEN  V  IS LESS THAN VQUIT. AN EXIT IS MADE TO
037648,000182: 
037649,000183:                                                                                                  #  P67.1         THE LAST COMPUTED ROLL ANGLE IS MAINTAINED. RATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE
037650,000184:                                                                                                  #                AND LONGITUDE ARE COMPUTED FOR DISPLAY.
037651,000185:                                                                                                  #                ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO TO THIS FINAL FLASHING DISPLAY.
037652,000186: 

Page 856

037654,000188:                                                                                                  #  PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
037655,000189: 
037656,000190: 
037657,000191:                                                                                                  #  * START  TARGETING ...
037658,000192: 
037659,000193: 25,2125  E7,1451                                  EBANK=   RTINIT                                
037660,000194: 
037661,000195:                                                                                                  #  TARGETNG IS CALLED BY P61, FROM GROUP 4.
037662,000196:                                                                                                  #  TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
037663,000197: 
037664,000198:                                                                                                  #  ALL MM COME HERE.             
037665,000199: 25,2125           77214        TARGETNG           BOFF     VLOAD                                 #  ENTER WITH PROPER EB FROM CM/POSE(TEST)
037666,000200: 25,2126           03346                                    RELVELSW                              #  RELVELSW = 96D BIT9
037667,000201: 25,2127           52133                                    GETVEL                                #  WANT INERTIAL VEL. GO GET IT.
037668,000202: 25,2130           03526                                    -VREL                                 #  NEW V   IS RELATIVE, CONTINUE
037669,000203: 
037670,000204: 25,2131           52076                           VCOMP    GOTO                                  #  (VREL) = (V) + KWE UNITR*UNITW
037671,000205: 25,2132           52136                                    GETUNITV   -1                         #  - VREL WAS LEFT BY CM/POSE
037672,000206: 
037673,000207: 25,2133           74375        GETVEL             VLOAD    VXSC                                  #  INERTIAL V WANTED
037674,000208: 25,2134           01036                                    VN                                    #  KVSCALE = (12800 / .3048) / 2VS
037675,000209: 25,2135           15232                                    KVSCALE                               #  KVSCALE = .81491944
037676,000210: 25,2136           03516                 -1        STORE    VEL                                   #  V/2 VS                
037677,000211: 25,2137           44056        GETUNITV           UNIT     STQ                                   
037678,000212: 25,2140           03373                                    60GENRET                              
037679,000213: 25,2141           17510                           STODL    UNITV                                 
037680,000214: 25,2142           00043                                    34D                                   
037681,000215: 25,2143           03622                           STORE    VSQUARE                               #  VSQ/4
037682,000216: 
037683,000217: 25,2144           77625                           DSU                                            #  LEQ = VSQUARE - 1
037684,000218: 25,2145           15326                                    FOURTH                                #  4 G-S FULL SCALE
037685,000219: 25,2146           17654                           STODL    LEQ                                   #  LEQ/4
037686,000220: 
037687,000221: 25,2147           00045                                    36D                                   
037688,000222: 25,2150           27674                           STOVL    V                                     #  V/2 VS = VEL/2 VS
037689,000223: 
037690,000224: 25,2151           03516                                    VEL                                   
037691,000225: 25,2152           72441                           DOT      SL1                                   #  RDOT= V.UNITR
037692,000226: 25,2153           01756                                    UNITR                                 
037693,000227: 25,2154           27700                           STOVL    RDOT                                  #  RDOT / 2 VS
037694,000228: 
037695,000229: 25,2155           01315                                    DELV                                  #  PIPA COUNTS IN PLATFORM COORDS.
037696,000230: 25,2156           41246                           ABVAL    DMP                                   
037697,000231: 25,2157           15234                                    KASCALE                               
037698,000232: 25,2160           53152                           SL1      BZE                                   
037699,000233: 25,2161           55136                                    SETMIND                               
037700,000234: 25,2162           27640        DSTORE             STOVL    D                                     #  ACCELERATION USED TO APPROX DRAG
037701,000235: 25,2163           03516                                    VEL                                   
037702,000236: 25,2164           53435                           VXV      UNIT                                  #  UNI = UNIT(V*R)
037703,000237: 25,2165           01756                                    UNITR                                 

Page 857

037705,000239: 25,2166           03502                           STORE    UNI                                   #  .5 UNI                REF COORDS.
037706,000240: 
037707,000241: 25,2167           71214                           BOFF     DLOAD                                 
037708,000242: 25,2170           03346                                    RELVELSW                              
037709,000243: 25,2171           55077                                    GETETA                                
037710,000244: 25,2172           15336                                    3ZEROS                                
037711,000245: 25,2173           43225        UPDATERT           DSU      DAD                                   #  PIPTIME-TIME/RTO =ELAPSED TIME SINCE
037712,000246:                                                                                                  #  RTINIT  WAS ESTABLISHED.
037713,000247: 25,2174           03524                                    TIME/RTO                              
037714,000248: 25,2175           01044                                    PIPTIME                               
037715,000249: 25,2176           37606                           STCALL   DTEAROT                               #  GET PREDICTED TARGET VECTOR  RT
037716,000250: 
037717,000251: 25,2177           46223                                    EARROT2                               
037718,000252: 25,2200           40241                           DOT      SETPD                                 #  SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
037719,000253: 25,2201           03502                                    UNI                                   #  LATANG = RT.UNI
037720,000254: 25,2202           00001                                    0                                     
037721,000255: 25,2203           27676                           STOVL    LATANG                                #  LATANG = MAC LATANG / 4
037722,000256: 
037723,000257: 25,2204           03474                                    RT                                    
037724,000258: 25,2205           77614                           CLEAR                                          
037725,000259: 25,2206           03667                                    GONEBY                                #  SHOW HAVE NOT GONE PAST TARGET.
037726,000260: 25,2207           50235                           VXV      DOT                                   #  IF RT*UNITR.UNI NEG, GONEBY=1
037727,000261: 25,2210           01756                                    UNITR                                 #  GONEPAST IS CONDITIONAL SW SET IN
037728,000262: 25,2211           03502                                    UNI                                   #  FINAL PHASE.
037729,000263: 25,2212           43044                           BPL      SET                                   
037730,000264: 25,2213           52215                                    +2                                    
037731,000265: 25,2214           03467                                    GONEBY                                #  SHOW HAVE     GONE PAST TARGET.
037732,000266: 
037733,000267: 25,2215           77775                           VLOAD                                          
037734,000268: 25,2216           03474                                    RT                                    
037735,000269: 25,2217           45241        GETANGLE           DOT      DSU                                   #  THETA = ARCCOS(RT.UNITR)
037736,000270: 25,2220           01756                                    UNITR                                 
037737,000271: 25,2221           15164                                    NEAR1/4                               #  TO IMPROVE ACCURACY, CALC RANGE BY
037738,000272: 25,2222           43244                           BPL      DAD                                   #  TINYTHET IF HIGH ORDER PART OF
037739,000273: 25,2223           55141                                    TINYTHET                              #  ARCCOS ARGUMENT IS ZERO
037740,000274: 25,2224           15164                                    NEAR1/4                               
037741,000275: 25,2225           65552                           SL1      ACOS                                  
037742,000276: 25,2226           03702        THETDONE           STORE    THETAH                                #  THETAH/360
037743,000277:                                                                                                  #  HI WORD, LO BIT =1.32 NM=360 60/16384
037744,000278: 
037745,000279: 25,2227           57414                           BON      DCOMP                                 
037746,000280: 25,2230           03707                                    GONEBY                                #  =1 IF HAVE GONE PAST TARGET.
037747,000281:                                                                                                  #  (SIGN MAY BECOME ERRATIC VERY NEAR
037748,000282:                                                                                                  #  TARGET DUE TO LOSS OF PRECISION.)
037749,000283: 25,2231           52232                                    +1                                    
037750,000284: 25,2232           17714                           STODL    RTGON67                               #  RANGE ERROR:  NEG IF WILL FALL SHORT.
037751,000285: 
037752,000286: 25,2233           03640                                    D                                     
037753,000287: 25,2234           50025                           DSU      BMN                                   
037754,000288: 25,2235           15242                                    .05G                                  

Page 858

037756,000290: 25,2236           52255                                    NO.05G                                
037757,000291: 25,2237           77214                           SET      VLOAD                                 
037758,000292: 25,2240           03074                                    .05GSW                                
037759,000293: 25,2241           03432                                    DELVREF                               
037760,000294: 25,2242           50206                           PUSH     DOT                                   
037761,000295: 25,2243           03542                                    UXA/2                                 
037762,000296: 25,2244           63552                           SL1      DSQ                                   
037763,000297: 25,2245           47515                           PDVL     VSQ                                   #  EXCHANGE WITH PDL.
037764,000298: 25,2246           56225                           DSU      DDV                                   
037765,000299: 25,2247           00001                                    0                                     
037766,000300: 25,2250           75400                           BOV      SQRT                                  
037767,000301: 25,2251           52253                                    NOLDCALC                              #  OVFL LAST CLEARED IN EARROT2 ABOVE.
037768,000302: 25,2252           03727                           STORE    L/DCALC                               
037769,000303: 
037770,000304: 25,2253           77650        NOLDCALC           GOTO                                           
037771,000305: 25,2254           03373                                    60GENRET                              
037772,000306: 
037773,000307: 25,2255           52014        NO.05G             CLEAR    GOTO                                  #  THIS WAY FOR DAP.(MAY INTERRUPT)
037774,000308: 25,2256           03274                                    .05GSW                                #  .05GSW = 102D B3
037775,000309: 25,2257           52253                                    NOLDCALC                              #  KEEP SINGLE EXIT FOR TARGETNG
037776,000310: 

Page 859

037778,000312:                                                                                                  #  SUBROUTINES CALLED BY SCALEPOP (TARGETING):
037779,000313: 
037780,000314: 26,2000                                           SETLOC   REENTRY1                              
037781,000315: 26,2000                                           BANK                                           
037782,000316: 
037783,000317: 26,3077                                           COUNT*   $$/ENTRY                              
037784,000318: 
037785,000319: 26,3077           56345        GETETA             DLOAD    DDV                                   #  D = D +D(-RDOT/HS -2D/V)  DT/2
037786,000320:                                                                                                  #  DT/2 = 2/2 =1
037787,000321: 26,3100           03700                                    RDOT                                  
037788,000322: 26,3101           15320                                    -HSCALED                              
037789,000323: 26,3102           41325                           PDDL     DMP                                   
037790,000324: 26,3103           03640                                    D                                     
037791,000325: 26,3104           15322                                    -KSCALE                               
037792,000326: 26,3105           43271                           DDV      DAD                                   
037793,000327: 26,3106           03674                                    V                                     
037794,000328:                                                                                                  #  -RDOT/HS FROM PDL.
037795,000329: 26,3107           43205                           DMP      DAD                                   
037796,000330: 26,3110           03640                                    D                                     
037797,000331: 26,3111           03640                                    D                                     
037798,000332: 26,3112           03640                           STORE    D                                     
037799,000333: 
037800,000334: 26,3113           71214                           BON      DLOAD                                 #  EGSW INDICATES FINAL PHASE.
037801,000335: 26,3114           03307                                    EGSW                                  
037802,000336: 26,3115           55122                                    SUBETA                                
037803,000337: 26,3116           03702                                    THETAH                                
037804,000338: 26,3117           52005                           DMP      GOTO                                  
037805,000339: 26,3120           15236                                    KTETA                                 #  = 1000X2PI/(2)E14 163.84
037806,000340: 26,3121           52173                                    UPDATERT                              
037807,000341: 
037808,000342: 26,3122           45345        SUBETA             DLOAD    DSU                                   #  SWITCH FROM INERTIAL TO RELATIVE VEL.
037809,000343: 26,3123           03674                                    V                                     
037810,000344: 26,3124           15326                                    VMIN                                  
037811,000345: 26,3125           43044                           BPL      SET                                   
037812,000346: 26,3126           55130                                    SUBETA2                               
037813,000347: 26,3127           03066                                    RELVELSW                              
037814,000348: 
037815,000349: 26,3130           41345        SUBETA2            DLOAD    DMP                                   
037816,000350: 
037817,000351: 26,3131           03702                                    THETAH                                
037818,000352: 26,3132           15240                                    KT1                                   #  KT1 = KT
037819,000353: 26,3133           52071                           DDV      GOTO                                  
037820,000354: 26,3134           03674                                    V                                     #  KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
037821,000355: 26,3135           52173                                    UPDATERT                              
037822,000356: 
037823,000357: 26,3136           52145        SETMIND            DLOAD    GOTO                                  
037824,000358: 26,3137           16425                                    1BITDP                                
037825,000359: 26,3140           52162                                    DSTORE                                
037826,000360: 
037827,000361: 26,3141           51425        TINYTHET           DSU      ABS                                   #  ENTER WITH X-.249

Page 860

037829,000363: 26,3142           16426                                    1BITDP     +1                         #  GET 1/4 - MPAC
037830,000364: 26,3143           75461                           SL       SQRT                                  #  SCALE UP BEFORE SQRT
037831,000365: 26,3144           20216                                    13D                                   #  HAS FACTOR FOR UP SCALING
037832,000366: 26,3145           52005                           DMP      GOTO                                  
037833,000367: 26,3146           15250                                    KACOS                                 
037834,000368: 26,3147           52226                                    THETDONE                              
037835,000369: 

Page 861

037837,000371:                                                                                                  #  * START       INITIAL ROLL ...
037838,000372: 
037839,000373: 25,2000                                           SETLOC   REENTRY                               
037840,000374: 25,2000                                           BANK                                           
037841,000375: 
037842,000376: 25,2260                                           COUNT*   $$/ENTRY                              
037843,000377: 
037844,000378:                                                                                                  #  MM = 63 , 64 ..
037845,000379: 25,2260           43014        INITROLL           BON      BOFF                                  #  IF D- .05G NEG, GO TO LIMITL/D
037846,000380: 25,2261           03312                                    INRLSW                                
037847,000381: 25,2262           52362                                    INITRL1                               
037848,000382: 25,2263           03354                                    .05GSW                                
037849,000383: 25,2264           53524                                    LIMITL/D                              
037850,000384: 
037851,000385:                                                                                                  #  MM = 64, NOW
037852,000386: 
037853,000387:                                                                                                  #              3
037854,000388:                                                                                                  #  KA = KA1 LEQ  + KA2
037855,000389: 25,2265           63545                           DLOAD    DSQ                                   
037856,000390: 25,2266           03654                                    LEQ                                   
037857,000391: 25,2267           56205                           DMP      DDV                                   
037858,000392: 25,2270           03654                                    LEQ                                   
037859,000393: 25,2271           15306                                    1/KA1                                 #  = 25 /(64  1.8)
037860,000394: 25,2272           47015                           DAD      RTB                                   
037861,000395: 25,2273           15310                                    KA2                                   #  = .2
037862,000396: 25,2274           54432                                    P64                                   #  ROLLC         VI              RDOT
037863,000397:                                                                                                  #  XXX.XX DEG    XXXXX. FPS      XXXXX. FPS
037864,000398: 25,2275           03720                           STORE    KAT                                   
037865,000399: 
037866,000400: 25,2276           50025                           DSU      BMN                                   
037867,000401: 25,2277           15316                                    KALIM                                 
037868,000402: 25,2300           52304                                    +4                                    
037869,000403: 25,2301           77745                           DLOAD                                          
037870,000404: 25,2302           15316                                    KALIM                                 
037871,000405: 25,2303           03720                           STORE    KAT                                   
037872,000406: 25,2304           45345                           DLOAD    DSU                                   #  IF V-VFINAL1 NEG, GO TO FINAL PHASE.
037873,000407: 25,2305           03674                                    V                                     
037874,000408: 25,2306           15304                                    VFINAL1                               
037875,000409: 25,2307           51014                           CLEAR    BPL                                   #  (CAN'T CLEAR INRLSW AFTER HERE: RESTARTS)
037876,000410: 25,2310           03265                                    GONEPAST                              #  GONEPAST WAS INITIALLY SET=1 TO FORCE
037877,000411:                                                                                                  #  ROLLC TO REMAIN AS DEFINED BY HEADSUP
037878,000412:                                                                                                  #  UNTIL START OF P64. (UNTIL D > .05G)
037879,000413: 25,2311           52316                                    D0EQ                                  
037880,000414: 25,2312           52131                           SSP      GOTO                                  
037881,000415: 25,2313           03646                                    GOTOADDR                              
037882,000416: 25,2314           53316                                    KEP2                                  #  AND IDLE UNTIL D>0.2 G.  (NO P66 HERE)
037883,000417: 25,2315           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037884,000418: 
037885,000419: 25,2316           41345        D0EQ               DLOAD    DMP                                   #  D0 = KA3 LEQ + KA4
037886,000420: 25,2317           03654                                    LEQ                                   

Page 862

037888,000422: 25,2320           15312                                    KA3                                   
037889,000423: 25,2321           77615                           DAD                                            
037890,000424: 25,2322           15314                                    KA4                                   
037891,000425: 25,2323           03710                           STORE    D0                                    #  D0/805
037892,000426: 25,2324           40065                           BDDV     BOV                                   
037893,000427: 25,2325           15270                                    C001                                  #  (-4/25 G) B-8
037894,000428: 25,2326           52327                                    +1                                    #  CLEAR OVFIND, IF ON.
037895,000429: 25,2327           17706                           STODL    C/D0                                  #  (-4/D0) B-8
037896,000430: 25,2330           03624                                    LAD                                   #  IF V-VFINAL +K(RDOT/V)CUBED POS,L/D=-LAD
037897,000431: 25,2331           17634                           STODL    L/D                                   
037898,000432: 25,2332           03700                                    RDOT                                  
037899,000433: 25,2333           41471                           DDV      PUSH                                  
037900,000434: 25,2334           03674                                    V                                     
037901,000435: 25,2335           41316                           DSQ      DMP                                   
037902,000436: 25,2336           45271                           DDV      DSU                                   
037903,000437: 25,2337           15300                                    1/K44                                 
037904,000438: 25,2340           15302                                    VFINAL                                
037905,000439:                                                                                                  #                    3
037906,000440:                                                                                                  #  V-VFINAL +(RDOT/V)  / K44     OVFL $
037907,000441: 
037908,000442: 25,2341           40015                           DAD      BOV                                   
037909,000443: 25,2342           03674                                    V                                     
037910,000444: 25,2343           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037911,000445: 25,2344           71240                           BMN      DLOAD                                 
037912,000446: 25,2345           52351                                    INROLOUT                              #  GO TO LIMITL/D AFTER SETTING INRLSW.
037913,000447: 25,2346           03624                                    LAD                                   
037914,000448: 25,2347           77676                           DCOMP                                          
037915,000449: 25,2350           03634                           STORE    L/D                                   
037916,000450: 
037917,000451:                                                                                                  #  SET INRLSW AT END FOR RESTART PROTECTION
037918,000452: 25,2351           77614        INROLOUT           BOFSET                                         #  END OF PRE .05G PATH OF INITROLL.
037919,000453: 25,2352           03052                                    INRLSW                                #  SWITCH IS ZERO INITIALLY.
037920,000454: 25,2353           53524                                    LIMITL/D                              #  (GO TO)
037921,000455: 
037922,000456: 25,2354           45345        KATEST             DLOAD    DSU                                   #  IF KAT - D POS, GO TO CONSTD
037923,000457: 25,2355           03720                                    KAT                                   
037924,000458: 25,2356           03640                                    D                                     #  IF POS, OUT WITH COMMAND VIA LIMITL/D
037925,000459: 25,2357           52044                           BPL      GOTO                                  
037926,000460: 25,2360           53524                                    LIMITL/D                              
037927,000461: 25,2361           53231                                    CONSTD                                
037928,000462: 
037929,000463: 25,2362           43345        INITRL1            DLOAD    DAD                                   #  IF RDOT + VRCONT POS, GO TO HUNTEST
037930,000464: 25,2363           03700                                    RDOT                                  
037931,000465: 25,2364           15262                                    VRCONT                                
037932,000466: 25,2365           45040                           BMN      CALL                                  #  IF POSITIVE, FALL INTO HUNTEST.
037933,000467: 25,2366           52354                                    KATEST                                
037934,000468: 
037935,000469: 25,2367           53021                                    FOREHUNT                              #  INITIALIZE HUNTEST.
037936,000470: 

Page 863

037938,000472: 
037939,000473:                                                                                                  #  * START       HUNT TEST  ..
037940,000474: 
037941,000475:                                                                                                  #  MM = 64
037942,000476: 25,2370           77731                           SSP                                            #  INITIALIZE HUNTEST ON FIRST PASS
037943,000477: 25,2371           03646                                    GOTOADDR                              
037944,000478: 25,2372           52373                                    HUNTEST                               #  MUST GO AFTER FOREHUNT FOR RESTARTS.
037945,000479: 
037946,000480: 25,2373           77745        HUNTEST            DLOAD                                          
037947,000481: 25,2374           03640                                    D                                     
037948,000482: 25,2375           17664                           STODL    A1                                    #  A1/805 = A1/25G
037949,000483: 
037950,000484: 25,2376           03624                                    LAD                                   
037951,000485: 25,2377           17647                           STODL    TEM1B                                 
037952,000486: 25,2400           03700                                    RDOT                                  
037953,000487: 25,2401           71240                           BMN      DLOAD                                 #  IF RDOT NEG,TEM1B=LAD, OTHERWISE = LEWD
037954,000488: 25,2402           52406                                    A0CALC                                
037955,000489: 25,2403           03725                                    LEWD                                  
037956,000490: 25,2404           17647                           STODL    TEM1B                                 
037957,000491: 
037958,000492: 25,2405           03700                                    RDOT                                  
037959,000493: 25,2406           43271        A0CALC             DDV      DAD                                   #  V1 = V + RDOT/TEM1B
037960,000494: 25,2407           03647                                    TEM1B                                 
037961,000495: 25,2410           03674                                    V                                     
037962,000496: 25,2411           14326                           STODL    V1                                    #  V1/2 VS
037963,000497: 
037964,000498: 25,2412           03700                                    RDOT                                  
037965,000499: 25,2413           56316                           DSQ      DDV                                   #  A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS)
037966,000500: 25,2414           03647                                    TEM1B                                 
037967,000501: 25,2415           43271                           DDV      DAD                                   
037968,000502: 25,2416           15274                                    2C1HS                                 
037969,000503: 25,2417           03640                                    D                                     
037970,000504: 25,2420           41205                           DMP      DMP                                   
037971,000505: 25,2421           00326                                    V1                                    
037972,000506: 25,2422           00326                                    V1                                    
037973,000507: 25,2423           77671                           DDV                                            
037974,000508: 25,2424           03622                                    VSQUARE                               
037975,000509: 25,2425           14330                           STODL    A0                                    #  A0/805 = A0/25G
037976,000510: 
037977,000511: 25,2426           03700                                    RDOT                                  
037978,000512: 25,2427           71244                           BPL      DLOAD                                 
037979,000513: 25,2430           52433                                    V1LEAD                                
037980,000514: 25,2431           00330                                    A0                                    
037981,000515: 25,2432           03664                           STORE    A1                                    #  A1/25G
037982,000516: 
037983,000517: 25,2433           51145        V1LEAD             DLOAD    BPL                                   #  IF L/D NEG, V1=V1 - 1000
037984,000518: 25,2434           03634                                    L/D                                   
037985,000519: 25,2435           52442                                    HUNTEST1                              
037986,000520: 
037987,000521: 25,2436           45345                           DLOAD    DSU                                   
037988,000522: 25,2437           00326                                    V1                                    

Page 864

037990,000524: 25,2440           15216                                    VQUIT                                 
037991,000525: 25,2441           00326                           STORE    V1                                    
037992,000526: 
037993,000527: 25,2442           41345        HUNTEST1           DLOAD    DMP                                   #  ALP = 2 C1 HS A0/LEWD V1 V1
037994,000528: 25,2443           00330                                    A0                                    
037995,000529: 25,2444           15274                                    2C1HS                                 
037996,000530: 25,2445           40271                           DDV      SETPD                                 
037997,000531: 25,2446           00326                                    V1                                    
037998,000532: 25,2447           00001                                    0                                     
037999,000533: 25,2450           56271                           DDV      DDV                                   
038000,000534: 25,2451           00326                                    V1                                    
038001,000535: 25,2452           03725                                    LEWD                                  
038002,000536: 25,2453           03704                           STORE    ALP                                   
038003,000537: 
038004,000538: 25,2454           55221                           BDSU     BDDV                                  #  FACT1 = V1 / (1 - ALP)
038005,000539: 25,2455           15344                                    BARELY1                               
038006,000540: 25,2456           00326                                    V1                                    
038007,000541: 25,2457           17616                           STODL    FACT1                                 #  FACT1 / 2VS
038008,000542: 
038009,000543: 25,2460           03704                                    ALP                                   
038010,000544: 25,2461           41225                           DSU      DMP                                   #  FACT2 = ALP(ALP - 1) / A0
038011,000545: 25,2462           15344                                    BARELY1                               
038012,000546: 25,2463           03704                                    ALP                                   
038013,000547: 25,2464           77671                           DDV                                            
038014,000548: 25,2465           00330                                    A0                                    
038015,000549: 25,2466           03620                           STORE    FACT2                                 #  FACT2 (25G)
038016,000550: 
038017,000551: 25,2467           43205                           DMP      DAD                                   
038018,000552: 25,2470           03175                                    Q7                                    #  Q7 /805 = Q7 / 25G
038019,000553: 25,2471           03704                                    ALP                                   #  VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
038020,000554: 25,2472           44366                           SQRT     BDSU                                  
038021,000555: 25,2473           15344                                    BARELY1                               
038022,000556: 25,2474           77605                           DMP                                            
038023,000557: 25,2475           03616                                    FACT1                                 
038024,000558: 25,2476           03757                           STORE    VL                                    #  VL / 2 VS
038025,000559: 
038026,000560: 25,2477           41221                           BDSU     DMP                                   #  GAMMAL1 = LEWD (V1-VL)/VL
038027,000561: 25,2500           00326                                    V1                                    
038028,000562: 25,2501           03725                                    LEWD                                  
038029,000563: 25,2502           77671                           DDV                                            
038030,000564: 25,2503           03757                                    VL                                    
038031,000565: 25,2504           14027                           STODL    GAMMAL1                               #  GAMMAL1 USED IN UPCONTROL
038032,000566: 
038033,000567:                                                                                                  #  GAMMAL1 = PDL 22D.
038034,000568: 25,2505           03757                                    VL                                    
038035,000569: 25,2506           50025                           DSU      BMN                                   #  IF VL-VLMIN NEG, GO TO PREFINAL
038036,000570: 25,2507           15206                                    VLMIN                                 
038037,000571: 25,2510           53332                                    PREFINAL                              
038038,000572: 
038039,000573: 25,2511           63545                           DLOAD    DSQ                                   

Page 865

038041,000575: 25,2512           03757                                    VL                                    
038042,000576: 25,2513           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038043,000577: 
038044,000578: 25,2514           15334                                    HALVE                                 #  IF VSAT-VL NEG, GO TO CONSTD
038045,000579: 25,2515           50025                           DSU      BMN                                   
038046,000580: 25,2516           03757                                    VL                                    
038047,000581: 25,2517           53225                                    BECONSTD                              #  SET MODE=HUNTEST, CONTINUE IN CONSTD
038048,000582: 25,2520           17662                           STODL    DVL                                   #  DVL / 2VS
038049,000583: 
038050,000584: 25,2521           15334                                    HALVE                                 
038051,000585: 25,2522           03672                           STORE    VS1                                   #  VS1 = VSAT
038052,000586: 
038053,000587: 25,2523           50025                           DSU      BMN                                   #  IF V1 GREATER THAN VSAT, GO ON
038054,000588: 25,2524           00326                                    V1                                    
038055,000589: 25,2525           52533                                    GETDHOOK                              
038056,000590: 25,2526           77621                           BDSU                                           
038057,000591: 25,2527           03662                                    DVL                                   
038058,000592: 25,2530           17662                           STODL    DVL                                   #  DVL = DVL - (VSAT-V1) = V1 - VL
038059,000593: 25,2531           00326                                    V1                                    
038060,000594: 25,2532           03672                           STORE    VS1                                   #  VS1 = V1, IN THIS CASE
038061,000595: 
038062,000596: 25,2533           45145        GETDHOOK           DLOAD    CALL                                  #  DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
038063,000597: 25,2534           03672                                    VS1                                   #  VS1 / 2 VS
038064,000598: 25,2535           53003                                    DHOOKYQ7                              #  GO CALC DHOOK
038065,000599: 25,2536           03656                           STORE    DHOOK                                 #  DHOOK / 25G
038066,000600: 
038067,000601: 25,2537           56261                           SR       DDV                                   
038068,000602: 25,2540           20607                                    6                                     #  CHOOK
038069,000603: 25,2541           03175                                    Q7                                    
038070,000604: 25,2542           77625                           DSU                                            
038071,000605: 25,2543           15252                                    CHOOK                                 #  = .25/16 = (-6)
038072,000606: 25,2544           03660                           STORE    AHOOKDV                               
038073,000607: 
038074,000608: 25,2545           41215                           DAD      DMP                                   #  GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
038075,000609: 25,2546           31771                                    1/16TH                                
038076,000610: 25,2547           15256                                    CH1                                   
038077,000611: 25,2550           41205                           DMP      DMP                                   
038078,000612: 25,2551           03662                                    DVL                                   
038079,000613: 25,2552           03662                                    DVL                                   
038080,000614: 25,2553           56271                           DDV      DDV                                   
038081,000615: 25,2554           03656                                    DHOOK                                 
038082,000616: 25,2555           03666                                    VBARS                                 
038083,000617: 25,2556           50021                           BDSU     BMN                                   
038084,000618: 25,2557           00027                                    GAMMAL1                               
038085,000619: 25,2560           52750                                    NEGAMA                                
038086,000620: 25,2561           03761        HUNTEST3           STORE    GAMMAL                                
038087,000621: 
038088,000622: 25,2562           77625                           DSU                                            #  GAMMAL1=GAMMAL1 +Q19 (GAMMAL-GAMMAL1)
038089,000623: 25,2563           00027                                    GAMMAL1                               
038090,000624: 25,2564           43205                           DMP      DAD                                   

Page 866

038092,000626: 25,2565           15334                                    Q19                                   
038093,000627: 25,2566           00027                                    GAMMAL1                               
038094,000628: 25,2567           14027                           STODL    GAMMAL1                               
038095,000629: 25,2570           03761                                    GAMMAL                                
038096,000630: 

Page 867

038098,000632: 
038099,000633:                                                                                                  #  *START        RANGE PREDICTION ...
038100,000634: 
038101,000635:                                                                                                  #  C(MPAC) = GAMMAL
038102,000636: 25,2571           60516        RANGER             DSQ      SR2                                   #  COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
038103,000637: 25,2572           77621                           BDSU                                           
038104,000638: 25,2573           15334                                    HALVE                                 
038105,000639: 25,2574           17670                           STODL    COSG/2                                
038106,000640: 25,2575           03666                                    VBARS                                 #  E=SQRT(1+VBARS........
038107,000641: 
038108,000642: 25,2576           41225                           DSU      DMP                                   
038109,000643: 25,2577           15334                                    HALVE                                 
038110,000644: 25,2600           03666                                    VBARS                                 
038111,000645: 25,2601           41205                           DMP      DMP                                   
038112,000646: 25,2602           03670                                    COSG/2                                
038113,000647: 25,2603           03670                                    COSG/2                                
038114,000648: 25,2604           43312                           SL2      DAD                                   
038115,000649: 25,2605           31771                                    C1/16                                 #  C1/16 = 1/16
038116,000650: 25,2606           65366                           SQRT     PDDL                                  #  E/4 INTO PDL
038117,000651: 
038118,000652: 25,2607           03666                                    VBARS                                 
038119,000653: 25,2610           41205                           DMP      DMP                                   #  ASKEP/2 = ARCSIN(VBARS COSG SING/E)
038120,000654: 25,2611           03670                                    COSG/2                                
038121,000655: 25,2612           03761                                    GAMMAL                                
038122,000656: 25,2613           67471                           DDV      ASIN                                  
038123,000657: 25,2614           41552                           SL1      PUSH                                  #  ASKEP TO PDL 0.
038124,000658: 25,2615           17731                           STODL    ASKEP                                 #  BALLISTIC RANGE       ASKEP/2PI
038125,000659: 
038126,000660:                                                                                                  #  FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
038127,000661: 25,2616           03757                                    VL                                    
038128,000662: 25,2617           43205                           DMP      DAD                                   #  ASP1 = Q2 + Q3 VL
038129,000663: 25,2620           15172                                    Q3                                    
038130,000664: 25,2621           03712                                    Q2                                    
038131,000665: 25,2622           03732                           STORE    ASP1                                  #  FINAL PHASE RANGE     ASP1/2 PI
038132,000666: 
038133,000667: 25,2623           63525                           PDDL     DSQ                                   #  ASP1 TO PDL 2.
038134,000668: 25,2624           00326                                    V1                                    
038135,000669:                                                                                                  #                    2
038136,000670:                                                                                                  #  ASPUP= -C12 LOG(V1 Q7/VBARS A0)/GAMMAL1
038137,000671: 25,2625           56205                           DMP      DDV                                   
038138,000672: 25,2626           03175                                    Q7                                    
038139,000673: 25,2627           03666                                    VBARS                                 
038140,000674: 25,2630           45071                           DDV      CALL                                  
038141,000675: 25,2631           00330                                    A0                                    
038142,000676: 25,2632           46155                                    LOG                                   #  RETURN WITH -LOG IN MPAC
038143,000677: 
038144,000678: 25,2633           56205                           DMP      DDV                                   
038145,000679: 25,2634           15210                                    C12                                   
038146,000680: 25,2635           00027                                    GAMMAL1                               
038147,000681: 25,2636           03733                           STORE    ASPUP                                 #  UP PHASE RANGE        ASPUP / 2 PI

Page 868

038149,000683: 25,2637           41325                           PDDL     DMP                                   #  ASPUP TO PDL 4.
038150,000684: 25,2640           15260                                    KC3                                   #  KC3 =-4 VS VS/ 2 PI 805 RE
038151,000685:                                                                                                  #  ASPDWN = KC3 RDOT V / A0
038152,000686: 25,2641           03700                                    RDOT                                  
038153,000687: 25,2642           56205                           DMP      DDV                                   
038154,000688: 25,2643           03674                                    V                                     
038155,000689: 25,2644           00330                                    A0                                    
038156,000690: 25,2645           41471                           DDV      PUSH                                  #  ASPDWN TO PDL 6.
038157,000691: 25,2646           03624                                    LAD                                   
038158,000692: 25,2647           17734                           STODL    ASPDWN                                #  RANGE TO PULL OUT     ASPDWN /2 PI
038159,000693: 
038160,000694: 25,2650           15176                                    Q6                                    
038161,000695: 25,2651           41225                           DSU      DMP                                   #  ASP3 = Q5(Q6-GAMMAL)
038162,000696: 25,2652           03761                                    GAMMAL                                
038163,000697: 25,2653           15174                                    Q5                                    
038164,000698: 25,2654           27735                           STOVL    ASP3                                  #  GAMMA CORRECTION      ASP3/2PI
038165,000699: 
038166,000700: 25,2655           03731                                    ASKEP                                 #  GET HI-WD AND
038167,000701: 25,2656           17126                           STODL    ASPS(TM)                              #  SAVE HI-WORD OF ASP'S FOR TM.
038168,000702: 
038169,000703: 25,2657           03735                                    ASP3                                  
038170,000704: 25,2660           43215                           DAD      DAD                                   
038171,000705:                                                                                                  #  ASPDWN FROM PDL 6.
038172,000706:                                                                                                  #  ASPUP FROM PDL 4.
038173,000707: 25,2661           43215                           DAD      DAD                                   
038174,000708:                                                                                                  #  ASP1 FROM PDL 2.
038175,000709:                                                                                                  #  ASKEP FROM PDL 0.
038176,000710: 25,2662           41025                           DSU      BOVB                                  #  CLEAR OVFIND.
038177,000711: 25,2663           03702                                    THETAH                                
038178,000712: 25,2664           57544                                    TCDANZIG                              
038179,000713: 25,2665           03610                           STORE    DIFF                                  #  DIFF = (ASP-THETAH) / 2 PI
038180,000714:                                                                                                  #  ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
038181,000715: 
038182,000716: 25,2666           45246                           ABS      DSU                                   #  IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
038183,000717: 25,2667           15224                                    25NM                                  
038184,000718: 25,2670           43040                           BMN      BON                                   
038185,000719: 25,2671           53032                                    GOTOUPSY                              
038186,000720: 25,2672           03311                                    HIND                                  
038187,000721: 25,2673           52677                                    GETDLEWD                              
038188,000722: 
038189,000723: 25,2674           51145                           DLOAD    BPL                                   
038190,000724: 25,2675           03610                                    DIFF                                  
038191,000725: 25,2676           53220                                    DCONSTD                               #  EVENTUALLY SETS MODE = HUNTEST.
038192,000726: 25,2677           41345        GETDLEWD           DLOAD    DMP                                   
038193,000727:                                                                                                  #  DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
038194,000728: 25,2700           03642                                    DLEWD                                 
038195,000729: 25,2701           03610                                    DIFF                                  
038196,000730: 25,2702           45325                           PDDL     DSU                                   
038197,000731: 25,2703           03612                                    DIFFOLD                               
038198,000732: 25,2704           03610                                    DIFF                                  

Page 869

038200,000734: 25,2705           77665                           BDDV                                           
038201,000735: 25,2706           77626        LWDSTORE           STADR                                          
038202,000736: 25,2707           74135                           STORE    DLEWD                                 
038203,000737: 25,2710           50015                           DAD      BMN                                   #  IF LEWD+DLEWD NEG, DLEWD=-LEWD/2
038204,000738: 25,2711           03725                                    LEWD                                  
038205,000739: 25,2712           52744                                    LEWDPTR                               
038206,000740: 25,2713           77600                           BOV                                            
038207,000741: 25,2714           52740                                    LEWDOVFL                              
038208,000742: 25,2715           03725                           STORE    LEWD                                  
038209,000743: 
038210,000744: 25,2716           77776        SIDETRAK           EXIT                                           
038211,000745: 
038212,000746: 25,2717           04606                           TC       E7SETTER                              
038213,000747: 
038214,000748: 25,2720           35055                           CA       PRIO16                                #  DROP GRP 5 RESTART PRIO TO 1 LESS THAN
038215,000749: 25,2721           55270                           TS       PHSPRDT5                              #  GRP 4.
038216,000750: 
038217,000751: 25,2722           05402                           TC       PHASCHNG                              
038218,000752: 25,2723           00474                           OCT      00474                                 #  RESTART GRP 4 AT PRE-HUNT.
038219,000753:                                                                                                  #  FORCE RESTART TO PICK UP IN GRP 4:
038220,000754:                                                                                                  #  USE PRIO 17 FOR GRP 4 (< SERVICER PRIO)
038221,000755: 25,2724  01,2212               4P47SPT1           =        4.47SPOT                              
038222,000756: 25,2724           35055                           CA       PRIO16                                #  CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
038223,000757:                                                                                                  #  GRP 4 OR SERVICER.
038224,000758: 25,2725           05176                           TC       PRIOCHNG                              
038225,000759: 
038226,000760: 25,2726           33031                           CAF      ADENDEXT                              #  SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
038227,000761: 25,2727           55645                           TS       GOTOADDR                              #  ONLY AFTER RESTART IS LEFT AFTER DETOUR.
038228,000762: 
038229,000763: 25,2730           06006                           TC       INTPRET                               
038230,000764: 
038231,000765: 25,2731           43145                           DLOAD    SET                                   
038232,000766: 25,2732           03610                                    DIFF                                  
038233,000767: 25,2733           03071                                    HIND                                  
038234,000768: 25,2734           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038235,000769: 
038236,000770: 25,2735           15200                                    Q7F                                   
038237,000771: 25,2736           37175                           STCALL   Q7                                    #  Q7 / 805 FPSS
038238,000772: 25,2737           52373                                    HUNTEST                               #   (GO TO)
038239,000773: 
038240,000774: 25,2740           77745        LEWDOVFL           DLOAD                                          
038241,000775: 25,2741           15344                                    NEARONE                               
038242,000776: 25,2742           37725                           STCALL   LEWD                                  
038243,000777: 25,2743           53220                                    DCONSTD                               #  (GO TO)  ALSO WILL SET MODE = HUNTEST
038244,000778: 
038245,000779: 25,2744           70545        LEWDPTR            DLOAD    SR1                                   
038246,000780: 25,2745           03725                                    LEWD                                  
038247,000781: 25,2746           52076                           DCOMP    GOTO                                  
038248,000782: 25,2747           52706                                    LWDSTORE                              
038249,000783: 

Page 870

038251,000785:                                                                                                  #  NEGAMA IS PART OF HUNTEST ...
038252,000786: 
038253,000787: 25,2750           41205        NEGAMA             DMP      DMP                                   #  ENTER WITH GAMMAL IN MPAC
038254,000788: 25,2751           03757                                    VL                                    
038255,000789: 25,2752           15152                                    1/3RD                                 
038256,000790: 25,2753           41325                           PDDL     DMP                                   #  PUSH GAMMAL VL/3
038257,000791: 25,2754           03725                                    LEWD                                  
038258,000792: 25,2755           15152                                    1/3RD                                 
038259,000793: 25,2756           43325                           PDDL     DAD                                   #  PUSH LEWD/3
038260,000794: 25,2757           03660                                    AHOOKDV                               
038261,000795: 25,2760           15254                                    1/24TH                                
038262,000796: 25,2761           41205                           DMP      DMP                                   #  DEL VL = (GAMMAL VL/3)/(LEWD/3-DVL
038263,000797: 25,2762           03662                                    DVL                                   #  (2/3 + AHOOKDV)(CH1 GS/DHOOK VL))
038264,000798: 25,2763           15256                                    CH1                                   
038265,000799: 25,2764           56271                           DDV      DDV                                   
038266,000800: 25,2765           03656                                    DHOOK                                 
038267,000801: 25,2766           03757                                    VL                                    
038268,000802: 25,2767           55221                           BDSU     BDDV                                  
038269,000803:                                                                                                  #  LEWD/3
038270,000804:                                                                                                  #  GAMMAL VL /3
038271,000805: 25,2770           77615                           DAD                                            
038272,000806: 25,2771           03757                                    VL                                    
038273,000807: 25,2772           37757                           STCALL   VL                                    #  VL/2 VS
038274,000808: 
038275,000809: 25,2773           53003                                    DHOOKYQ7                              #  GO CALC Q7
038276,000810:                                                                                                  #  Q7=((1-VL/FACT1)SQ - ALP)/FACT2
038277,000811: 25,2774           17175                           STODL    Q7                                    #  Q7 / 25G
038278,000812: 
038279,000813: 25,2775           03757                                    VL                                    
038280,000814: 25,2776           77716                           DSQ                                            
038281,000815: 25,2777           17666                           STODL    VBARS                                 #  VBARS / 4 VS VS
038282,000816: 
038283,000817: 25,3000           15336                                    3ZEROS                                
038284,000818: 25,3001           77650                           GOTO                                           #  SET GAMMAL = 0
038285,000819: 25,3002           52561                                    HUNTEST3                              
038286,000820: 
038287,000821: 25,3003           56342        DHOOKYQ7           SR1      DDV                                   #  SUBROUTINE TO CALC DHOOK OR Q7)
038288,000822: 25,3004           03616                                    FACT1                                 
038289,000823: 25,3005           72421                           BDSU     SL1                                   
038290,000824: 25,3006           15334                                    HALVE                                 
038291,000825: 25,3007           45316                           DSQ      DSU                                   
038292,000826: 25,3010           03704                                    ALP                                   
038293,000827: 25,3011           43471                           DDV      RVQ                                   
038294,000828: 25,3012           03620                                    FACT2                                 
038295,000829: 

Page 871

038297,000831:                                                                                                  #  COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
038298,000832:                                                                                                  #  HUNTEST IS SIDE-TRACKED AT SIDETRAK.
038299,000833:                                                                                                  #  PICK UP IN GROUP 4.
038300,000834: 
038301,000835: 25,3013           06006        PRE-HUNT           TC       INTPRET                               
038302,000836: 25,3014           45014                           CLEAR    CALL                                  
038303,000837: 25,3015           03271                                    HIND                                  #  HIND          99D  BIT 6  FLAG 6
038304,000838: 25,3016           53021                                    FOREHUNT                              #  RE-INITIALIZE HUNTEST AFTER RE-START.
038305,000839: 25,3017           77650                           GOTO                                           
038306,000840: 25,3020           52373                                    HUNTEST                               
038307,000841: 
038308,000842: 25,3021           77745        FOREHUNT           DLOAD                                          #  INITIALIZE HUNTEST.
038309,000843: 25,3022           15336                                    3ZEROS                                
038310,000844: 25,3023           17612                           STODL    DIFFOLD                               
038311,000845: 25,3024           15160                                    DLEWD0                                
038312,000846: 25,3025           17642                           STODL    DLEWD                                 
038313,000847: 25,3026           15154                                    LEWD1                                 
038314,000848: 25,3027           03725                           STORE    LEWD                                  
038315,000849: 25,3030           77616                           RVQ                                            
038316,000850: 
038317,000851: 25,3031           53574        ADENDEXT           CADR     ENDEXIT                               
038318,000852: 

Page 872

038320,000854: 
038321,000855:                                                                                                  #  * START       UP CONTROL ...
038322,000856: 
038323,000857:                                                                                                  #  MM = 65
038324,000858: 25,3032           77634        GOTOUPSY           RTB                                            #  END OF HUNTEST
038325,000859: 25,3033           54440                                    P65                                   #  HUNTEST USE OF GRP4 IS DISABLED BY P65
038326,000860:                                                                                                  #  USE FOR DISPLAY.
038327,000861:                                                                                                  #  SET MODE = UPCONTRL.
038328,000862:                                                                                                  #  RETURN FROM P65 DIRECTLY TO UPCONTRL
038329,000863:                                                                                                  #  VIA THE GOTOADDR AT REFAZE10.
038330,000864: 
038331,000865: 25,3034           45345        UPCONTRL           DLOAD    DSU                                   #  IF D-140 POS, NOSWITCH =1
038332,000866: 25,3035           03640                                    D                                     #  (SUPPRESS LATERAL SWITCH)
038333,000867: 25,3036           15222                                    C21                                   
038334,000868: 25,3037           43040                           BMN      SET                                   
038335,000869: 25,3040           53042                                    +2                                    
038336,000870: 25,3041           03070                                    NOSWITCH                              
038337,000871: 
038338,000872: 25,3042           45345                           DLOAD    DSU                                   #  IF V-V1 POS, GO TO DOWN CONTROL.
038339,000873: 25,3043           03674                                    V                                     
038340,000874: 25,3044           00326                                    V1                                    
038341,000875: 25,3045           71244                           BPL      DLOAD                                 
038342,000876: 25,3046           53257                                    DOWNCNTL                              
038343,000877: 25,3047           03640                                    D                                     
038344,000878: 25,3050           50025                           DSU      BMN                                   #  IF D- Q7 NEG, GO TO KEP
038345,000879: 25,3051           03175                                    Q7                                    
038346,000880: 25,3052           53312                                    KEP                                   
038347,000881: 25,3053           51145                           DLOAD    BPL                                   #  IF RDOT NEG, DO VLTEST
038348,000882: 25,3054           03700                                    RDOT                                  
038349,000883: 25,3055           53064                                    CONT1                                 
038350,000884: 
038351,000885: 25,3056           45345        VLTEST             DLOAD    DSU                                   #  IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
038352,000886: 25,3057           03674                                    V                                     
038353,000887: 25,3060           03757                                    VL                                    
038354,000888: 25,3061           50025                           DSU      BMN                                   
038355,000889: 25,3062           15166                                    C18                                   
038356,000890: 25,3063           53332                                    PREFINAL                              
038357,000891: 
038358,000892: 25,3064           77745        CONT1              DLOAD                                          #  IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
038359,000893: 25,3065           03640                                    D                                     
038360,000894: 25,3066           50025                           DSU      BMN                                   
038361,000895: 25,3067           00330                                    A0                                    
038362,000896: 25,3070           53074                                    CONT3                                 
038363,000897: 25,3071           52145                           DLOAD    GOTO                                  
038364,000898: 25,3072           03624                                    LAD                                   
038365,000899: 25,3073           53523                                    STOREL/D                              
038366,000900: 
038367,000901: 25,3074           41345        CONT3              DLOAD    DMP                                   #  VREF=FACT1(1-SQRT(FACT2 D + ALP))
038368,000902: 25,3075           03640                                    D                                     
038369,000903: 25,3076           03620                                    FACT2                                 

Page 873

038371,000905: 25,3077           75415                           DAD      SQRT                                  
038372,000906: 25,3100           03704                                    ALP                                   
038373,000907: 25,3101           41221                           BDSU     DMP                                   
038374,000908: 25,3102           15344                                    BARELY1                               
038375,000909: 25,3103           03616                                    FACT1                                 
038376,000910: 25,3104           01312                           STORE    VREF                                  #  VREF / 2VS
038377,000911: 
038378,000912: 25,3105           41221                           BDSU     DMP                                   #  RDOTREF = LEWD(V1-VREF)
038379,000913: 25,3106           00326                                    V1                                    
038380,000914: 25,3107           03725                                    LEWD                                  
038381,000915: 25,3110           15310                           STODL    RDOTREF                               #  RDOTREF / 2VS
038382,000916: 
038383,000917: 25,3111           03672                                    VS1                                   
038384,000918: 25,3112           50025                           DSU      BMN                                   #  IF VSAT-VREF NEG, GO TO CONTINU2
038385,000919: 25,3113           01312                                    VREF                                  
038386,000920: 25,3114           53133                                    CONTINU2                              
038387,000921: 
038388,000922: 25,3115           41406                           PUSH     PUSH                                  #  VS1-VREF  TO PDL TWICE
038389,000923: 25,3116           56205                           DMP      DDV                                   #  RDHOOK=CH1(1+DV AHOOKDV/DVL) DV DV
038390,000924: 25,3117           03660                                    AHOOKDV                               #        /DHOOK VREF
038391,000925: 25,3120           03662                                    DVL                                   #  WHERE  DV = (VS1-VREF)
038392,000926: 25,3121           41215                           DAD      DMP                                   
038393,000927: 25,3122           31771                                    1/16TH                                
038394,000928: 25,3123           15256                                    CH1                                   
038395,000929: 25,3124           41205                           DMP      DMP                                   
038396,000930:                                                                                                  #  VS1-VREF  FROM PDL TWICE.
038397,000931: 25,3125           77671                           DDV                                            
038398,000932: 25,3126           03656                                    DHOOK                                 
038399,000933: 25,3127           44271                           DDV      BDSU                                  
038400,000934: 25,3130           01312                                    VREF                                  
038401,000935: 25,3131           01310                                    RDOTREF                               #  C(RDOTREF)= LEWD (V1-VREF)
038402,000936: 25,3132           01310                           STORE    RDOTREF                               #  RDOTREF = RDOTREF - RDHOOK
038403,000937: 
038404,000938: 25,3133           45345        CONTINU2           DLOAD    DSU                                   
038405,000939: 25,3134           03640                                    D                                     
038406,000940: 25,3135           15344                                    Q7MIN                                 
038407,000941: 25,3136           50004                           BOVB     BMN                                   
038408,000942: 25,3137           57544                                    TCDANZIG                              #  CLEAR OVFL IND, IF ON.
038409,000943: 25,3140           53151                                    UPCNTRL3                              
038410,000944: 25,3141           45345                           DLOAD    DSU                                   
038411,000945: 25,3142           03664                                    A1                                    
038412,000946: 25,3143           03175                                    Q7                                    
038413,000947: 25,3144           45325                           PDDL     DSU                                   
038414,000948: 25,3145           03640                                    D                                     
038415,000949: 25,3146           03175                                    Q7                                    
038416,000950: 25,3147           45471                           DDV      STADR                                 
038417,000951: 25,3150           74163                           STORE    FACTOR                                #  FACTOR / 25G
038418,000952: 

Page 874

038420,000954: 
038421,000955:                                                                                                  #  SKIPPER
038422,000956: 
038423,000957:                                                                                                  #  DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
038424,000958:                                                                                                  #        WHERE F1 = FACTOR
038425,000959: 
038426,000960: 25,3151           77745        UPCNTRL3           DLOAD                                          
038427,000961: 25,3152           03700                                    RDOT                                  
038428,000962: 25,3153           41225                           DSU      DMP                                   #  L/D = LEWD
038429,000963: 25,3154           01310                                    RDOTREF                               #  -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
038430,000964: 25,3155           03614                                    FACTOR                                
038431,000965: 25,3156           43271                           DDV      DAD                                   
038432,000966: 25,3157           15212                                    1/KB1                                 
038433,000967: 25,3160           03674                                    V                                     
038434,000968: 25,3161           41225                           DSU      DMP                                   
038435,000969: 25,3162           01312                                    VREF                                  
038436,000970: 25,3163           03614                                    FACTOR                                
038437,000971: 25,3164           41471                           DDV      PUSH                                  
038438,000972: 
038439,000973: 25,3165           15214                                    -1/KB2                                #  DELTA L/D INTO PDL
038440,000974: 25,3166           51400                           BOV      ABS                                   #  NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
038441,000975: 25,3167           53470                                    GOMAXL/D                              
038442,000976: 25,3170           50025                           DSU      BMN                                   
038443,000977: 25,3171           15276                                    PT1/16                                
038444,000978: 25,3172           53177                                    NEXT1                                 
038445,000979: 25,3173           43205                           DMP      DAD                                   
038446,000980: 25,3174           15156                                    POINT1                                
038447,000981: 25,3175           15276                                    PT1/16                                
038448,000982: 25,3176           41565                           SIGN     PUSH                                  #  ATTACH SIGN OF PUSH TO MPAC THEN PUSH
038449,000983: 
038450,000984: 25,3177           42545        NEXT1              DLOAD    SL4                                   
038451,000985:                                                                                                  #  DELTA L/D FROM PDL.
038452,000986: 25,3200           77615                           DAD                                            
038453,000987: 25,3201           03725                                    LEWD                                  
038454,000988: 25,3202           41400        NEGTESTS           BOV      PUSH                                  #  L/D TO PDL FOR USE IN NEGTESTS.
038455,000989: 25,3203           53470                                    GOMAXL/D                              
038456,000990: 25,3204           17634                           STODL    L/D                                   
038457,000991:                                                                                                  #  IF D-C20 POS, LATSW =0
038458,000992:                                                                                                  #  AND IF L/D NEG, L/D = 0.
038459,000993: 25,3205           03640                                    D                                     
038460,000994: 25,3206           50025                           DSU      BMN                                   
038461,000995: 25,3207           15220                                    C20                                   
038462,000996: 25,3210           53524                                    LIMITL/D                              
038463,000997: 25,3211           71214                           CLEAR    DLOAD                                 
038464,000998: 25,3212           03273                                    LATSW                                 #  =21D.  ROLL OVER TOP, REGARDLESS.
038465,000999:                                                                                                  #  L/D FROM PDL.
038466,001000: 25,3213           71244                           BPL      DLOAD                                 
038467,001001: 25,3214           53524                                    LIMITL/D                              
038468,001002: 25,3215           15336                                    3ZEROS                                
038469,001003: 25,3216           37634                           STCALL   L/D                                   
038470,001004: 25,3217           53524                                    LIMITL/D                              #  (GO TO)
038471,001005: 

Page 875

038473,001007: 25,3220           77745        DCONSTD            DLOAD                                          #  TWO RANGER ENTRIES TO CONSTD HERE
038474,001008: 25,3221           03610                                    DIFF                                  
038475,001009:                                                                                                  #  SAVE OLD VALUE OF DIFF FOR NEXT PASS.
038476,001010: 25,3222           17612                           STODL    DIFFOLD                               #  DIFFOLD / 2 PI
038477,001011: 
038478,001012: 25,3223           15200                                    Q7F                                   
038479,001013: 25,3224           03175                           STORE    Q7                                    
038480,001014: 
038481,001015: 25,3225           47131        BECONSTD           SSP      RTB                                   #  A HUNTEST ENTRY INTO CONSTD.
038482,001016: 25,3226           03646                                    GOTOADDR                              #  RESET MODE TO HUNTEST
038483,001017: 25,3227           52373                                    HUNTEST                               
038484,001018: 25,3230           54505                                    KILLGRP4                              #  DEACTIVATE GRP4 FROM HUNTEST.
038485,001019: 
038486,001020: 25,3231           77604        CONSTD             BOVB                                           
038487,001021: 25,3232           57544                                    TCDANZIG                              #  CLEAR OVF IND IF ON.
038488,001022: 
038489,001023: 25,3233           41345                           DLOAD    DMP                                   
038490,001024: 25,3234           03654                                    LEQ                                   
038491,001025: 25,3235           03706                                    C/D0                                  #  C/D0 = -4/D0  B-8
038492,001026: 25,3236           41325                           PDDL     DMP                                   #  LEQ C/D0  INTO PDL
038493,001027: 25,3237           15264                                    2HS                                   #  2HS / 4 VS VS
038494,001028: 25,3240           03710                                    D0                                    
038495,001029: 25,3241           43271                           DDV      DAD                                   #  RDOTREF = -2 HS D0/V
038496,001030: 25,3242           03674                                    V                                     
038497,001031: 25,3243           03700                                    RDOT                                  
038498,001032: 25,3244           43205                           DMP      DAD                                   
038499,001033: 25,3245           15230                                    K2D                                   #  C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
038500,001034: 25,3246           77725                           PDDL                                           
038501,001035: 25,3247           03710                                    D0                                    #  D0 /805
038502,001036: 
038503,001037: 25,3250           77621        CONSTD1            BDSU                                           #  ENTER WITH  DREF  IN MPAC
038504,001038: 25,3251           03640                                    D                                     
038505,001039: 25,3252           43205                           DMP      DAD                                   
038506,001040: 25,3253           15226                                    K1D                                   #  K2D TERM FROM PUSH
038507,001041: 25,3254           52061                           SL       GOTO                                  
038508,001042: 25,3255           20211                                    8D                                    
038509,001043: 25,3256           53202                                    NEGTESTS                              #  (GO TO)
038510,001044: 
038511,001045: 
038512,001046: 25,3257           77604        DOWNCNTL           BOVB                                           #  INITIAL PART OF UPCONTROL.
038513,001047: 25,3260           57544                                    TCDANZIG                              #  CLEAR OVFIND, IF ON.
038514,001048: 
038515,001049: 25,3261           54345                           DLOAD    SR                                    
038516,001050: 25,3262           03624                                    LAD                                   
038517,001051: 25,3263           20611                                    8D                                    
038518,001052: 25,3264           45325                           PDDL     DSU                                   #  RDTR = LAD(V1-V)
038519,001053: 25,3265           03674                                    V                                     
038520,001054: 25,3266           00326                                    V1                                    
038521,001055: 25,3267           43205                           DMP      DAD                                   
038522,001056: 25,3270           03624                                    LAD                                   

Page 876

038524,001058: 25,3271           03700                                    RDOT                                  
038525,001059: 25,3272           43205                           DMP      DAD                                   
038526,001060: 25,3273           15230                                    K2D                                   
038527,001061:                                                                                                  #  PUSH UP LAD.
038528,001062: 25,3274           45325                           PDDL     DSU                                   #  LAD + K2D(RDOT-RDTR) INTO PD
038529,001063: 25,3275           00326                                    V1                                    
038530,001064: 25,3276           03674                                    V                                     
038531,001065: 25,3277           41316                           DSQ      DMP                                   
038532,001066: 25,3300           03624                                    LAD                                   
038533,001067: 25,3301           65271                           DDV      PDDL                                  #  (V1-V)SQ LAD/(2 C1 HS) INTO PD
038534,001068: 25,3302           15274                                    2C1HS                                 
038535,001069: 25,3303           00326                                    V1                                    
038536,001070: 25,3304           56316                           DSQ      DDV                                   
038537,001071: 25,3305           03622                                    VSQUARE                               
038538,001072: 25,3306           45265                           BDDV     DSU                                   #  DREF = (V/V1)SQ A0 - PD
038539,001073: 25,3307           00330                                    A0                                    
038540,001074:                                                                                                  #  PUSH UP HERE
038541,001075: 25,3310           77650                           GOTO                                           #  C(MPAC) = DREF
038542,001076: 25,3311           53250                                    CONSTD1                               
038543,001077: 
038544,001078:                                                                                                  #               2           2
038545,001079:                                                                                                  #  DREF = (V/V1)  A0 -(V-V1)  LAD/2 C1 HS

Page 877

038547,001081: 
038548,001082:                                                                                                  #  * START       BALLISTIC PHASE ...
038549,001083: 
038550,001084:                                                                                                  #  MM = 66       UPCONTRL ENTRY INTO KEP2.
038551,001085: 25,3312           66234        KEP                RTB      SSP                                   
038552,001086: 25,3313           54473                                    P66                                   #  DISPLAY TRIM GIMBAL ANGLE VALUES.
038553,001087: 25,3314           03646                                    GOTOADDR                              #  SET GOTOADDR TO KEPLER PHASE.
038554,001088: 25,3315           53316                                    KEP2                                  
038555,001089: 
038556,001090:                                                                                                  #  KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
038557,001091:                                                                                                  #  IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
038558,001092:                                                                                                  #  .2 G BEFORE GOING ON TO P67.
038559,001093: 
038560,001094: 25,3316           45345        KEP2               DLOAD    DSU                                   #  IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
038561,001095: 25,3317           15170                                    Q7FKDMIN                              #  (Q7F + KDMIN)/805
038562,001096: 25,3320           03640                                    D                                     
038563,001097: 25,3321           72240                           BMN      TLOAD                                 
038564,001098: 25,3322           53332                                    PREFINAL                              
038565,001099: 
038566,001100: 
038567,001101:                                                                                                  #  SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
038568,001102: 25,3323           03316                                    ROLLC                                 #  = +1 EVER ENTERED.
038569,001103: 25,3324           72214                           BON      TLOAD                                 #  IF D > .05G, KEEP PRESENT ROLL COMMAND.
038570,001104: 25,3325           03314                                    .05GSW                                #  IF D < .05G, SET ROLL COMMAND = 0.
038571,001105: 25,3326           53330                                    +2                                    
038572,001106: 25,3327           15336                                    3ZEROS                                #  SET ROLLC & ROLLHOLD =0.
038573,001107: 25,3330           37316                 +2        STCALL   ROLLC                                 #  (SP ROLLHOLD FOLLOWS DP ROLLC)
038574,001108: 25,3331           54402                                    P62.3                                 #  CALC DESIRED GIMBAL ANGLES AT PRESENT
038575,001109:                                                                                                  #  RN, VN TO YIELD TRIM ATTITUDE.
038576,001110:                                                                                                  #  AVAILABLE IN CPHI'S FOR N22.

Page 878

038578,001112: 
038579,001113:                                                                                                  #  START         FINAL PHASE  ..
038580,001114: 
038581,001115:                                                                                                  #  MM = 67
038582,001116: 25,3332           47131        PREFINAL           SSP      RTB                                   
038583,001117: 25,3333           03646                                    GOTOADDR                              #  RESTART PROTECT: RESET GOTOADDR IF CAME
038584,001118: 25,3334           53332                                    PREFINAL                              #  FROM HUNTEST.
038585,001119: 25,3335           54477                                    P67                                   #  DISABLES GRP4. FINE IF FROM HUNTEST. BUT 
038586,001120:                                                                                                  #  MAY ALSO REMOVE RESTART PROTECTION OF
038587,001121:                                                                                                  #  N69 (P65).
038588,001122:                                                                                                  #  ROLLC         XRNGERR         DNRNGERR
038589,001123:                                                                                                  #  XXX.XX DEG    XXXX.X NM       XXXX.X NM
038590,001124: 
038591,001125: 25,3336           66214                           SET      SSP                                   
038592,001126: 25,3337           03067                                    EGSW                                  
038593,001127: 25,3340           03646                                    GOTOADDR                              
038594,001128: 25,3341           53342                                    PREDICT3                              
038595,001129: 
038596,001130: 
038597,001131: 25,3342           45345        PREDICT3           DLOAD    DSU                                   #  IF V-VQUIT NEG, STOP STEERING
038598,001132: 25,3343           03674                                    V                                     
038599,001133: 25,3344           15216                                    VQUIT                                 
038600,001134: 25,3345           77440                           BMN      EXIT                                  
038601,001135: 25,3346           53611                                    STEEROFF                              
038602,001136: 
038603,001137: 25,3347           04606                           TC       E7SETTER                              #  PRECAUTIONARY
038604,001138: 
038605,001139: 25,3350           35775                           CA       TWELVE                                
038606,001140: 25,3351           55761        BACK               TS       JJ                                    
038607,001141: 
038608,001142: 25,3352           41673                           CS       V                                     
038609,001143: 25,3353           51761                           INDEX    JJ                                    
038610,001144: 25,3354           63634                           AD       VREFER                                #  VREF - V, HIGHEST VREF AT END OF TABLE.
038611,001145: 25,3355           10000                           CCS      A                                     #  IF VREF-V POS LOOP BACK
038612,001146: 25,3356           11761                           CCS      JJ                                    #  DECREMENT JJ, JJ CANNOT BE ZERO
038613,001147: 25,3357           13351                           TCF      BACK                                  
038614,001148: 25,3360           64770                           AD       ONE                                   
038615,001149: 25,3361           55646                           TS       TEM1B                                 #  V-VREF IN TEM1B (MUST BE POSITIVE NUM)
038616,001150: 
038617,001151: 25,3362           51761                           INDEX    JJ                                    
038618,001152: 25,3363           43634                           CS       VREFER                                
038619,001153: 25,3364           51761                           INDEX    JJ                                    
038620,001154: 25,3365           63635                           AD       VREFER     +1                         #  V(K+1) - V(K)                 (POS NUM)
038621,001155: 25,3366           57646                           XCH      TEM1B                                 
038622,001156: 25,3367           22007                           ZL                                             
038623,001157: 25,3370           00006                           EXTEND                                         
038624,001158: 25,3371           11646                           DV       TEM1B                                 
038625,001159: 25,3372           55651                           TS       GRAD                                  #  GRAD = (V-VREF)/(VK+1 - VK)   (POS NUM
038626,001160: 
038627,001161: 25,3373           34773                           CAF      FIVE                                  
038628,001162: 25,3374           55650        BACK2              TS       MM                                    

Page 879

038630,001164: 25,3375           34776                           CAF      THIRTEEN                              
038631,001165: 25,3376           27761                           ADS      JJ                                    
038632,001166: 25,3377           50000                           INDEX    A                                     
038633,001167: 25,3400           43634                           CS       VREFER                                
038634,001168: 25,3401           51761                           INDEX    JJ                                    
038635,001169: 25,3402           63635                           AD       VREFER     +1                         #  X(K+1) - X(K)
038636,001170: 25,3403           00006                           EXTEND                                         
038637,001171: 25,3404           71651                           MP       GRAD                                  
038638,001172: 25,3405           51761                           INDEX    JJ                                    
038639,001173: 25,3406           63634                           AD       VREFER                                
038640,001174: 25,3407           51650                           INDEX    MM                                    
038641,001175: 25,3410           55652                           TS       FX                                    #  FX = AK + GRAD (AK+1 - AK)
038642,001176: 25,3411           11650                           CCS      MM                                    
038643,001177: 25,3412           13374                           TCF      BACK2                                 
038644,001178: 25,3413           57653                           XCH      FX         +1                         #  ZERO FX +1 AND GET DREFR
038645,001179: 25,3414           61637                           AD       D                                     
038646,001180: 25,3415           00006                           EXTEND                                         
038647,001181: 25,3416           71657                           MP       FX         +5                         #  F1
038648,001182: 25,3417           52155                           DXCH     MPAC                                  #  MPAC = F1(D-DREF)
038649,001183: 
038650,001184: 25,3420           00006                           EXTEND                                         
038651,001185: 25,3421           41700                           DCS      RDOT                                  #  FORM RDOTREF - RDOT
038652,001186: 25,3422           20001                           DDOUBL                                         
038653,001187: 25,3423           20001                           DDOUBL                                         
038654,001188: 25,3424           20001                           DDOUBL                                         #  SCALE UP BY 8 FOR THIS PHASE.
038655,001189: 25,3425           61655                           AD       FX         +3                         #  RDOTREF
038656,001190: 25,3426           00006                           EXTEND                                         
038657,001191: 25,3427           71656                           MP       FX         +4                         #  F2
038658,001192: 25,3430           61654                           AD       FX         +2                         #  RTOGO
038659,001193: 25,3431           20155                           DAS      MPAC                                  #  ADD F2(DADV1-DADVR)
038660,001194: 25,3432           30154                           CA       MPAC                                  
038661,001195: 25,3433           55760                           TS       PREDANG                               
038662,001196:                                                                                                  #  L/D = LOD + (THETA- PREDANG)/ Y
038663,001197: 25,3434           06006                           TC       INTPRET                               
038664,001198: 
038665,001199: 25,3435           45242                           SR3      DSU                                   
038666,001200: 25,3436           03702                                    THETAH                                
038667,001201: 25,3437           43014                           BON      BOFF                                  
038668,001202: 25,3440           03305                                    GONEPAST                              
038669,001203: 25,3441           53466                                    GONEGLAD                              
038670,001204: 25,3442           03747                                    GONEBY                                
038671,001205: 25,3443           53451                                    HAVDNRNG                              
038672,001206: 25,3444           43145                           DLOAD    SET                                   #  SET GONEPAST IF GONEBY SET & LATCH IN -
038673,001207: 25,3445           13770                                    MAXRNG                                #  DISPLAY = 9999.9 IF GONEBY         PLACE
038674,001208: 25,3446           03065                                    GONEPAST                              
038675,001209: 25,3447           37716                           STCALL   DNRNGERR                              
038676,001210: 25,3450           53466                                    GONEGLAD                              
038677,001211: 
038678,001212: 25,3451           03716        HAVDNRNG           STORE    DNRNGERR                              #  = (PREDANG - THETA) /360

Page 880

038680,001214: 25,3452           77676                           DCOMP                                          #    FALL SHORT IF NEG, OVERSHOOT IF POS
038681,001215: 25,3453           56204                           BOVB     DDV                                   
038682,001216: 25,3454           57544                                    TCDANZIG                              #  CLEAR OVFIND IF ON.
038683,001217: 25,3455           03653                                    FX                                    #  FX= DRANGE/D L/D = Y
038684,001218: 25,3456           40061                           SL       BOV                                   
038685,001219: 25,3457           20206                                    5                                     
038686,001220: 25,3460           53470                                    GOMAXL/D                              
038687,001221: 25,3461           40015                           DAD      BOV                                   
038688,001222: 25,3462           03626                                    LOD                                   
038689,001223: 25,3463           53470                                    GOMAXL/D                              
038690,001224: 25,3464           37634                           STCALL   L/D                                   
038691,001225: 25,3465           53474                                    GLIMITER                              #  (GO TO)
038692,001226: 
038693,001227: 
038694,001228:                                                                                                  #  GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
038695,001229: 
038696,001230: 25,3466           77745        GONEGLAD           DLOAD                                          #  SET L/D = -LAD
038697,001231: 25,3467           13467                                    GONEGLAD                              #  (ANY NEGATIVE NUMBER WILL DO)
038698,001232: 
038699,001233: 25,3470           41234        GOMAXL/D           RTB      DMP                                   #  L/D = LAD SIGN(MPAC)
038700,001234: 25,3471           45761                                    SIGNMPAC                              
038701,001235: 25,3472           03624                                    LAD                                   
038702,001236: 25,3473           03634                           STORE    L/D                                   #  AND FALL INTO GLIMITER SECTION
038703,001237: 
038704,001238: 25,3474           45345        GLIMITER           DLOAD    DSU                                   #  IF GMAX/2-D POS, GO TO LIMITL/D
038705,001239: 25,3475           15162                                    GMAX/2                                
038706,001240: 25,3476           03640                                    D                                     
038707,001241: 25,3477           43244                           BPL      DAD                                   #  IF GMAX  -D NEG, GO TO GOPOSLAD
038708,001242: 25,3500           53524                                    LIMITL/D                              
038709,001243: 25,3501           15162                                    GMAX/2                                
038710,001244: 25,3502           41240                           BMN      DMP                                   
038711,001245: 25,3503           53521                                    GOPOSLAD                              
038712,001246: 25,3504           15264                                    2HS                                   
038713,001247: 25,3505           41325                           PDDL     DMP                                   #  2HS(GMAX-D) INTO PD
038714,001248: 25,3506           03654                                    LEQ                                   
038715,001249: 25,3507           15334                                    1/GMAX                                
038716,001250: 25,3510           41215                           DAD      DMP                                   
038717,001251: 25,3511           03624                                    LAD                                   
038718,001252: 25,3512           56325                           PDDL     DDV                                   #  2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
038719,001253: 25,3513           15266                                    2HSGMXSQ                              
038720,001254: 25,3514           03622                                    VSQUARE                               
038721,001255: 25,3515           75415                           DAD      SQRT                                  #  XLIM = SQRT(PD+(2HSGMAX/V)SQ)
038722,001256: 25,3516           51015                           DAD      BPL                                   #  IF RDOT+XLIM POS, GO TO LIMITL/D
038723,001257: 25,3517           03700                                    RDOT                                  
038724,001258: 25,3520           53524                                    LIMITL/D                              
038725,001259: 
038726,001260: 25,3521           77745        GOPOSLAD           DLOAD                                          
038727,001261: 25,3522           03624                                    LAD                                   
038728,001262: 25,3523           03634        STOREL/D           STORE    L/D                                   
038729,001263: 

Page 881

038731,001265: 25,3524           77745        LIMITL/D           DLOAD                                          
038732,001266: 25,3525           03634                                    L/D                                   
038733,001267: 25,3526           17636                           STODL    L/D1                                  
038734,001268: 25,3527           03622                                    VSQUARE                               
038735,001269: 
038736,001270: 25,3530           77614                           BON                                            #  NO LATERAL CONTROL IF PAST TARGET
038737,001271: 25,3531           03305                                    GONEPAST                              
038738,001272: 25,3532           53564                                    L355                                  
038739,001273: 25,3533           43205                           DMP      DAD                                   #  Y= KLAT VSQUARE + LATBIAS
038740,001274: 25,3534           03632                                    KLAT                                  
038741,001275: 25,3535           15244                                    LATBIAS                               #  Y INTO PD
038742,001276: 25,3536           51525        L350               PDDL     ABS                                   #  IF ABS(L/D)-L/DCMINR NEG, GO TO L353
038743,001277: 25,3537           03634                                    L/D                                   
038744,001278: 25,3540           50025                           DSU      BMN                                   
038745,001279: 25,3541           03630                                    L/DCMINR                              
038746,001280: 25,3542           53551                                    L353                                  
038747,001281: 25,3543           75345                           DLOAD    SIGN                                  #  IF K2ROLL LATANG NEG, GO TO L357
038748,001282: 25,3544           03676                                    LATANG                                
038749,001283: 25,3545           03644                                    K2ROLL                                
038750,001284: 25,3546           71240                           BMN      DLOAD                                 
038751,001285: 25,3547           53627                                    L357                                  
038752,001286: 25,3550           41542                           SR1      PUSH                                  #  Y = Y/2
038753,001287: 25,3551           75345        L353               DLOAD    SIGN                                  #  IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
038754,001288: 25,3552           03676                                    LATANG                                
038755,001289: 25,3553           03644                                    K2ROLL                                
038756,001290: 25,3554           77625                           DSU                                            
038757,001291: 25,3555           71240                           BMN      DLOAD                                 
038758,001292: 25,3556           53564                                    L355                                  
038759,001293: 25,3557           03644                                    K2ROLL                                
038760,001294: 25,3560           57414                           BONCLR   DCOMP                                 #  IF NOSWITCH =1, K2ROLL= K2ROLL
038761,001295: 25,3561           03210                                    NOSWITCH                              
038762,001296: 25,3562           53564                                    L355                                  
038763,001297: 25,3563           03644                           STORE    K2ROLL                                #  K2ROLL = -K2ROLL
038764,001298: 
038765,001299: 25,3564           56345        L355               DLOAD    DDV                                   #  ROLLC = ACOS( (L/D1) / LAD)
038766,001300: 25,3565           03636                                    L/D1                                  
038767,001301: 25,3566           03624                                    LAD                                   #  MPAC SET TO +-1 IF OVERFLOW***
038768,001302: 25,3567           65542                           SR1      ACOS                                  
038769,001303: 25,3570           43165                           SIGN     CLEAR                                 
038770,001304: 25,3571           03644                                    K2ROLL                                
038771,001305: 25,3572           03270                                    NOSWITCH                              
038772,001306: 25,3573           03316                           STORE    ROLLC                                 
038773,001307: 
038774,001308: 25,3574           77776        ENDEXIT            EXIT                                           
038775,001309: 
038776,001310: 25,3575           34754        OVERNOUT           CAF      ENDSPBIT                              #  ENTRYDSP = 92D BIT13
038777,001311: 25,3576           70102                           MASK     CM/FLAGS                              
038778,001312: 25,3577           00006                           EXTEND                                         
038779,001313: 25,3600           13604                           BZF      NODISKY                               #  OMIT DISPLAY.

Page 882

038781,001315: 25,3601           31122                           CA       ENTRYVN                               #  ALL ENTRY DISPLAYS ARE DONE HERE.
038782,001316: 25,3602           04636                           TC       BANKCALL                              
038783,001317: 25,3603           20724                           CADR     REGODSPR                              #  NO ABORT IF DISKY IN USE
038784,001318: 
038785,001319: 25,3604           00004        NODISKY            INHINT                                         
038786,001320: 25,3605           10067                           CCS      NEWJOB                                #  PROTECT READACCS GRP 5, IF SIDETRACKED.
038787,001321: 25,3606           05152                           TC       CHANG1                                
038788,001322: 25,3607           04655        SERVNOUT           TC       POSTJUMP                              #  ( COME HERE FROM P67.3)
038789,001323: 25,3610           77143                           CADR     SERVEXIT                              #  AND END AVERAGEG JOB VIA  ENDOFJOB.
038790,001324: 

Page 883

038792,001326: 
038793,001327:                                                                                                  #  DISPLAY WHEN V IS LESS THAN VQUIT.
038794,001328: 
038795,001329: 25,3611           77776        STEEROFF           EXIT                                           
038796,001330: 25,3612           04606                           TC       E7SETTER                              
038797,001331: 
038798,001332: 25,3613           35055                           CA       PRIO16                                #  2 LESS THAN NTRYPRIO.
038799,001333: 25,3614           05121                           TC       NOVAC                                 
038800,001334: 25,3615  E6,1661                                  EBANK=   AOG                                   #  ANY EB HERE
038801,001335: 25,3615           02511 54066                     2CADR    P67.1                                 #  START UP REMAINDER OF P67
038802,001336: 
038803,001337:                                                                                                  #  RTOGO         LAT             LONG
038804,001338:                                                                                                  #  XXXX.X NM     XXX.XX DEG      XXX.XX DEG
038805,001339: 
038806,001340: 25,3617           05362                           TC       2PHSCHNG                              #  INHINT/RELINT DONE.
038807,001341: 25,3620           00414                           OCT      00414                                 #  4.41 RESTART FOR P67.1 DISPLAY JOB.
038808,001342: 25,3621           10035                           OCT      10035                                 #  SERVICER 5.3 RESTART.
038809,001343: 
038810,001344: 25,3622  01,2201               4P41SPT1           =        4.41SPOT                              
038811,001345: 25,3622  01,2250               5P3SPT15           =        5.3SPOT                               
038812,001346: 25,3622           33626                           CA       P67.2CAD                              #  HEREAFTER, DO LAT, LONG.
038813,001347: 25,3623           55645                           TS       GOTOADDR                              
038814,001348: 
038815,001349: 25,3624           06006                           TC       INTPRET                               
038816,001350: 25,3625           77650                           GOTO                                           
038817,001351: 25,3626           54532        P67.2CAD                    P67.2                                 #  CONTINUE FOR LAT, LONG THIS TIME.
038818,001352: 
038819,001353: 25,3627           75345        L357               DLOAD    SIGN                                  #  L/D = L/DCMINR SIGN(L/D)
038820,001354: 25,3630           03630                                    L/DCMINR                              
038821,001355: 25,3631           03634                                    L/D                                   
038822,001356: 25,3632           37636                           STCALL   L/D1                                  
038823,001357: 25,3633           53564                                    L355                                  #  (GO TO)
038824,001358: 

Page 884

038826,001360: 
038827,001361:                                                                                                  #  TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
038828,001362: 
038829,001363: 25,3634           00474        VREFER             DEC      .019288                               #  REFERENCE VELOCITY SCALED V/51532.3946
038830,001364: 25,3635           01235                           DEC      .040809                               #  13 POINTS ARE STORED AS THE INDEPENDENT
038831,001365: 25,3636           02337                           DEC      .076107                               #  VARIABLE AND THEN SIX 13 POINT FUNCTIONS
038832,001366: 25,3637           03721                           DEC      .122156                               #  OF V ARE STORED CONSECUTIVELY
038833,001367: 25,3640           05230                           DEC      .165546                               
038834,001368: 25,3641           06213                           DEC      .196012                               
038835,001369: 25,3642           10550                           DEC      .271945                               
038836,001370: 25,3643           11717                           DEC      .309533                               
038837,001371: 25,3644           13314                           DEC      .356222                               
038838,001372: 25,3645           14736                           DEC      .404192                               
038839,001373: 25,3646           16255                           DEC      .448067                               
038840,001374: 25,3647           16457                           DEC      .456023                               
038841,001375: 25,3650           25570                           DEC      .67918                                #  HIGH VELOCITY FOR SAFETY
038842,001376: 
038843,001377: 25,3651           77526                           DEC      -.010337                              #  DRANGE/DA     SCALED DRDA/(2700/805)
038844,001378: 25,3652           77360                           DEC      -.016550                              
038845,001379: 25,3653           77106                           DEC      -.026935                              
038846,001380: 25,3654           76516                           DEC      -.042039                              
038847,001381: 25,3655           76071                           DEC      -.058974                              
038848,001382: 25,3656           75570                           DEC      -.070721                              
038849,001383: 25,3657           74661                           DEC      -.098538                              
038850,001384: 25,3660           70657                           DEC      -.223611                              
038851,001385: 25,3661           66352                           DEC      -.298148                              
038852,001386: 25,3662           66352                           DEC      -.298148                              
038853,001387: 25,3663           54557                           DEC      -.602557                              
038854,001388: 25,3664           40000                           DEC      -.99999                               
038855,001389: 25,3665           40000                           DEC      -.99999                               
038856,001390: 
038857,001391: 25,3666           77635                           DEC      -.0478599  B-3                        #  -DRANGE/DRDOT
038858,001392: 25,3667           77563                           DEC      -.0683663  B-3                        #  SCALED ((2VS/8 2700) DR/DRDOT)
038859,001393: 25,3670           77354                           DEC      -.1343468  B-3                        
038860,001394: 25,3671           76712                           DEC      -.2759846  B-3                        
038861,001395: 25,3672           76066                           DEC      -.4731437  B-3                        
038862,001396: 25,3673           75322                           DEC      -.6472087  B-3                        
038863,001397: 25,3674           73237                           DEC      -1.171693  B-3                        
038864,001398: 25,3675           72104                           DEC      -1.466382  B-3                        
038865,001399: 25,3676           70301                           DEC      -1.905171  B-3                        
038866,001400: 25,3677           65635                           DEC      -2.547990  B-3                        
038867,001401: 25,3700           57311                           DEC      -4.151220  B-3                        
038868,001402: 25,3701           50575                           DEC      -5.813617  B-3                        
038869,001403: 25,3702           50575                           DEC      -5.813617  B-3                        
038870,001404: 

Page 885

038872,001406: 25,3703           74443                           DEC      -.0134001  B3                         #  RDOTREF       SCALED (8 RDT/2VS)
038873,001407: 25,3704           74333                           DEC      -.013947   B3                         
038874,001408: 25,3705           74433                           DEC      -.013462   B3                         
038875,001409: 25,3706           74763                           DEC      -.011813   B3                         
038876,001410: 25,3707           75432                           DEC      -.0095631  B3                         
038877,001411: 25,3710           75735                           DEC      -.00806946 B3                         
038878,001412: 25,3711           76200                           DEC      -.006828   B3                         
038879,001413: 25,3712           75735                           DEC      -.00806946 B3                         
038880,001414: 25,3713           75140                           DEC      -.0109791  B3                         
038881,001415: 25,3714           74075                           DEC      -.0151496  B3                         
038882,001416: 25,3715           73312                           DEC      -.0179817  B3                         
038883,001417: 25,3716           73732                           DEC      -.0159061  B3                         
038884,001418: 25,3717           73732                           DEC      -.0159061  B3                         
038885,001419: 
038886,001420: 25,3720           00026                           DEC      .00137037                             #   3.7  RTOGO SCALED RTOGO/2700
038887,001421: 25,3721           00077                           DEC      .00385185                             #  10.4
038888,001422: 25,3722           00217                           DEC      .00874074                             #  23.6
038889,001423: 25,3723           00431                           DEC      .017148                               
038890,001424: 25,3724           00712                           DEC      .027926                               
038891,001425: 25,3725           01136                           DEC      .037                                  
038892,001426: 25,3726           02015                           DEC      .063296                               
038893,001427: 25,3727           02374                           DEC      .077889                               
038894,001428: 25,3730           03123                           DEC      .098815                               
038895,001429: 25,3731           04051                           DEC      .127519                               
038896,001430: 25,3732           05767                           DEC      .186963                               
038897,001431: 25,3733           07476                           DEC      .238148                               
038898,001432: 25,3734           11324                           DEC      .294185185                            
038899,001433: 
038900,001434: 25,3735           76272                           DEC      -.051099                              #  -AREF/805
038901,001435: 25,3736           75472                           DEC      -.074534                              
038902,001436: 25,3737           74604                           DEC      -.101242                              
038903,001437: 25,3740           74210                           DEC      -.116646                              
038904,001438: 25,3741           74052                           DEC      -.122360                              
038905,001439: 25,3742           73735                           DEC      -.127081                              
038906,001440: 25,3743           73217                           DEC      -.147453                              
038907,001441: 25,3744           73013                           DEC      -.155528                              
038908,001442: 25,3745           73155                           DEC      -.149565                              
038909,001443: 25,3746           74151                           DEC      -.118509                              
038910,001444: 25,3747           76703                           DEC      -.034907                              
038911,001445: 25,3750           77575                           DEC      -.007950                              
038912,001446: 25,3751           77575                           DEC      -.007950                              
038913,001447: 

Page 886

038915,001449: 25,3752           00112                           DEC      .004491                               #  DRANGE/D L/D SCALED Y/2700
038916,001450: 25,3753           00204                           DEC      .008081                               
038917,001451: 25,3754           00407                           DEC      .016030                               
038918,001452: 25,3755           01113                           DEC      .035815                               
038919,001453: 25,3756           02161                           DEC      .069422                               
038920,001454: 25,3757           03260                           DEC      .104519                               
038921,001455: 25,3760           03717                           DEC      .122                                  
038922,001456: 25,3761           05411                           DEC      .172407                               
038923,001457: 25,3762           10057                           DEC      .252852                               
038924,001458: 25,3763           13476                           DEC      .363148                               
038925,001459: 25,3764           20324                           DEC      .512963                               
038926,001460: 25,3765           21677                           DEC      .558519                               
038927,001461: 25,3766           21677                           DEC      .558519                               #  END OF STORED REFERENCE
038928,001462: 

Page 887

038930,001464: 
038931,001465:                                                                                                  #  REENTRY CONSTANTS.
038932,001466: 
038933,001467:                                                                                                  #  DEFINED BY EQUALS
038934,001468: 
038935,001469: 25,3767     4777               DEC15              =        LOW4                                  
038936,001470:                                                                                                  # GAMMAL1        =       22D
038937,001471: 
038938,001472: 25,3767           16631 06755  MAXRNG             2OCT     1663106755                            #  DNRNGERR = 9999.9 IF GONEPAST=1
038939,001473: 
038940,001474: 26,2000                                           SETLOC   REENTRY1                              
038941,001475: 26,2000                                           BANK                                           
038942,001476: 
038943,001477: 26,3150                                           COUNT*   $$/ENTRY                              
038944,001478: 
038945,001479: 26,3150  26,3343               BARELY1            =        NEARONE                               #  COMMON TO BOTH DISK,DANCE.DEFND IN TFF
038946,001480:                                                                                                  # 1BITDP                                 COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
038947,001481: 
038948,001482: 26,3150           02525        1/12TH             DEC      .083333                               #  DP 1/12 USES HI WORD IN 1/3 BELOW
038949,001483: 
038950,001484: 26,3151           12525 12525  1/3RD              2DEC     .3333333333                            #  DP 1/3
038951,001485: 
038952,001486: 26,3153  34,3770               1/16TH             =        DP2(-4)                               
038953,001487: 
038954,001488:                                                                                                  #  BELOW:  VS = VSAT = 25766.1973 FT/SEC
038955,001489: 
038956,001490:                                                                                                  #          RE = 21,202,900 FEET
038957,001491: 
038958,001492: 26,3153           04631 23146  LEWD1              2DEC     .15                                   
038959,001493: 
038960,001494: 26,3155           03146 14632  POINT1             2DEC     .1                                    
038961,001495: 
038962,001496: 26,3157           76314 71462  DLEWD0             2DEC     -.05                                  #  -.05
038963,001497: 
038964,001498: 26,3161           05075 16051  GMAX/2             2DEC     .16                                   #  8 GS / 2
038965,001499: 
038966,001500: 26,3163  26,3335               3ZEROS             EQUALS   HI6ZEROS                              
038967,001501: 
038968,001502: 26,3163           07777 00000  NEAR1/4            2OCT     0777700000                            #  1/4 LESS 1 BIT IN UPPER PART.
038969,001503: 
038970,001504: 26,3165           00236 36763  C18                2DEC     .0097026346                            #  500/2VS
038971,001505: 
038972,001506: 26,3167           00204 11303  Q7FKDMIN           2DEC     .0080745342                            #  6.5/805  (Q7F +KDMIN) = 6 + .5)
038973,001507: 
038974,001508: 26,3171  34,3770               C1/16              =        DP2(-4)                               
038975,001509: 
038976,001510: 26,3171           05260 05572  Q3                 2DEC     .167003132                            #  .07 2VS/21600
038977,001511: 
038978,001512: 26,3173           12343 21616  Q5                 2DEC     .326388889                            #  .3 23500/21600
038979,001513: 

Page 888

038981,001515: 
038982,001516: 26,3175           01073 31515  Q6                 2DEC     .0349                                 #  2 DEG, APPROX 820/23500
038983,001517: 
038984,001518: 26,3177           00172 03571  Q7F                2DEC     .0074534161                            #  6/805    (VALUE OF Q7 IN FIXED MEM.)
038985,001519: 
038986,001520: 26,3201  26,3333               Q19                =        HALVE                                 #  Q19 = .5
038987,001521: 
038988,001522: 26,3201           05136 32046  Q21                2DEC     .1620370370                            #  3500/21600
038989,001523: 
038990,001524: 26,3203           75031 40775  Q22                2DEC     -.092222222                            #  -1992/21600
038991,001525: 
038992,001526: 26,3205           13132 33062  VLMIN              2DEC     .34929485                             #  18000/2 VS
038993,001527: 
038994,001528: 26,3207  26,3325               VMIN               =        FOURTH                                #  (VS/2) / 2VS
038995,001529: 
038996,001530: 26,3207           00160 05104  C12                2DEC     .00684572901                            #  32 28500/(21202900 2 PI)
038997,001531: 
038998,001532: 26,3211           14631 23146  1/KB1              2DEC     .4                                    #  1 / 2.5
038999,001533: 
039000,001534: 26,3213           74015 46560  -1/KB2             2DEC     -.0077621078 B4                         #  - 1/(.0025 2 VS) EXP +4
039001,001535: 
039002,001536: 26,3215           00475 35746  VQUIT              2DEC     .019405269                            #  1000 /2VS
039003,001537: 
039004,001538: 26,3217           10262 02622  C20                2DEC     .26086957                             #  210/805  90 DEG MAX ROLL IF ABOVE C20
039005,001539: 
039006,001540: 26,3221           05441 14412  C21                2DEC     .17391304                             #  140/805
039007,001541: 
039008,001542: 26,3223           00022 36641  25NM               2DEC     .0011574074                            #  25/21600      (25 NAUT MILES)
039009,001543: 
039010,001544: 26,3225           01003 06315  K1D                2DEC     .0314453125                            #  =C16 805/256 = .01 805/256
039011,001545: 
039012,001546: 26,3227           63073 73236  K2D                2DEC     -.402596836                            #  -C17 2VS/256 = -.002 2VS/256
039013,001547: 
039014,001548: 26,3231           32047 24367  KVSCALE            2DEC     .81491944                             #  12800/(2 VS .3048)
039015,001549: 
039016,001550: 26,3233           37200 05636  KASCALE            2DEC     .97657358                             #  5.85 16384/(4 .3048 100 805)
039017,001551: 
039018,001552: 26,3235           00046 13137  KTETA              2DEC*    .383495203 E2         B-14*           #  1000 2PI/16384(163.84)
039019,001553: 
039020,001554: 26,3237           00017 30730  KT1                2DEC*    .157788327 E2         B-14*           #  RE(2PI)/2 VS(16384) 163.84
039021,001555: 
039022,001556: 26,3241           00040 30447  .05G               2DEC     .002                                  #  .05/25
039023,001557: 
039024,001558: 26,3243           00000 17565  LATBIAS            2DEC     .00003                                #  APPRX .5 NM/ 4(21600/2 PI)
039025,001559: 
039026,001560: 26,3245           01727 20103  KWE                2DEC     .120056652 B-1                        
039027,001561: 
039028,001562: 26,3247           00121 17460  KACOS              2DEC     .004973592                            #  1/32(2PI)
039029,001563: 
039030,001564: 26,3251           00400 00000  CHOOK              2DEC     1          B-6                        #  .25/16
039031,001565: 26,3253           01252 25253  1/24TH             2DEC     .0833333333 B-1                        
039032,001566: 

Page 889

039034,001568: 26,3255           24365 30244  CH1                2DEC     .32        B1                         #  16 CH1/25 = 16 (1) /25
039035,001569: 
039036,001570: 26,3257           77152 51354  KC3                2DEC     -.0247622232                            #  -(4 VS VS/ 2 PI 805 RE)
039037,001571: 
039038,001572: 26,3261           00336 21610  VRCONT             2DEC     .0135836886                            #  700/2 VSAT
039039,001573: 
039040,001574: 26,3263  26,3333               HALVE              EQUALS   HIDPHALF                              
039041,001575: 26,3263  26,3325               FOURTH             EQUALS   HIDP1/4                               
039042,001576: 
039043,001577: 26,3263  26,3333               1/GMAX             EQUALS   HALVE                                 #  4/GMAX = 4 / 8
039044,001578: 26,3263           00433 02775  2HS                2DEC     .0172786611                            #   2 28500 25 32.2/(4 VS VS)
039045,001579: 
039046,001580: 26,3265           00000 20017  2HSGMXSQ           2DEC     .0000305717                            #  (2 28500 8 32.2/ 4 VS VS)SQ
039047,001581: 
039048,001582: 26,3267           77765 70243  C001               2DEC     -.000625                              #  -(4/25)/256    LEQ/D0 CONST
039049,001583: 
039050,001584: 26,3271           31463 06315  POINT8             2DEC     .8                                    
039051,001585: 
039052,001586: 26,3273           00541 33575  2C1HS              2DEC     .0215983264                            #  2 1.25 28500 805/(2 VS)SQ
039053,001587: 
039054,001588: 26,3275           00146 14632  PT1/16             2DEC     .1         B-4                        
039055,001589: 
039056,001590: 26,3277           00052 30013  1/K44              2DEC     .00260929464                            #  2 VS/19749550
039057,001591: 
039058,001592: 26,3301           20411 03041  VFINAL             2DEC     .51618016                             #  26600/2 VS
039059,001593: 
039060,001594: 26,3303           20610 10513  VFINAL1            2DEC     .523942273                            #  = 27000 / 2 VS
039061,001595: 
039062,001596: 26,3305           11473 02355  1/KA1              2DEC     .30048077                             #  25/(1.3 64)
039063,001597: 
039064,001598: 26,3307           00203 02234  KA2                2DEC     .008                                  #  .2/25
039065,001599: 
039066,001600: 26,3311           16237 00146  KA3                2DEC     .44720497                             #  = 90 4/805
039067,001601: 
039068,001602: 26,3313           01456 03450  KA4                2DEC     .049689441                            #  40/805
039069,001603: 
039070,001604: 26,3315           01727 01217  KALIM              2DEC     .06                                   #  1.5/25
039071,001605: 
039072,001606: 26,3317  26,3343               Q7MIN              =        NEARONE                               #  805/805       (DISABLE FACTOR CALC)
039073,001607: 26,3317           56232 72332  -HSCALED           2DEC     -.55305018                            #  -28500/2 VS
039074,001608: 
039075,001609: 26,3321           77000 43741  -KSCALE            2DEC     -.0312424837                            #  -805/VS 
039076,001610: 
039077,001611: 26,3323           36702 21727  COS15              2DEC     .965                                  
039078,001612: 
039079,001613: 26,3325  26,3150               LATSLOPE           EQUALS   1/12TH                                
039080,001614: 
039081,001615:                                                                                                  #        ... END OF RE-ENTRY CONSTANTS ...
039082,001616: 

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