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