Source Code

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