Source Code

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

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

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

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