Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
035713,000002: ## Copyright: Public domain.
035714,000003: ## Filename: REENTRY_CONTROL.agc
035715,000004: ## Purpose: A section of Skylark revision 048.
035716,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
035717,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
035718,000007: ## this software are available; instead, this file was created via
035719,000008: ## disassembly of dumps of the core rope modules actually flown on
035720,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
035721,000010: ## Museum of Space History.
035722,000011: ## Assembler: yaYUL
035723,000012: ## Contact: Ron Burkey <info@sandroid.org>.
035724,000013: ## Website: www.ibiblio.org/apollo/index.html
035725,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
035726,000015: ## 2024-03-05 MAS Updated for Skylark 48.
035727,000016:
035728,000017:
035729,000018: # ENTRY INITIALIZATION ROUTINE
035730,000019: # -----------------------------
035731,000020:
035732,000021: 25,2000 SETLOC REENTRY
035733,000022: 25,2000 BANK
035734,000023:
035735,000024: 25,2000 COUNT* $$/ENTRY
035736,000025: 25,2000 E7,1451 EBANK= RTINIT
035737,000026:
035738,000027: 25,2000 0102 CM/FLAGS EQUALS STATE +6
035739,000028:
035740,000029: 25,2000 77776 STARTENT EXIT # MM = 63
035741,000030: # COME HERE FROM CM/POSE. RESTARTED IN CM/POSE.
035742,000031:
035743,000032: 25,2001 42112 CS ENTMASK # INITIALIZE ALL SWITCHES TO ZERO
035744,000033: # EXCEPT LATSW, ENTRYDSP AND GONEPAST.
035745,000034: # GONEBY 112D BIT8 FLAG7, SELF INITIALIZING
035746,000035: 25,2002 00004 INHINT
035747,000036: 25,2003 70102 MASK CM/FLAGS
035748,000037: # ENTRYDSP = 92D B13
035749,000038: # GONEPAST=95D B10, RELVELSW=96D B9
035750,000039: # EGSW = 97D B8 NOSWITCH = 98D B7
035751,000040: # HIND=99D B6 INRLSW=100D B5
035752,000041: # LATSW=101D B4 .05GSW=102D B3
035753,000042:
035754,000043: 25,2004 62113 AD ENTRYSW # SET ENTRYDSP, LATSW, GONEPAST.
035755,000044: 25,2005 54102 TS CM/FLAGS
035756,000045:
035757,000046: 25,2006 00003 RELINT
035758,000047:
035759,000048: 25,2007 06006 TC INTPRET
035760,000049:
035761,000050: 25,2010 77735 SLOAD
035762,000051: 25,2011 01754 LODPAD
035763,000052: 25,2012 03626 STORE LOD
035764,000053:
035765,000054: 25,2013 77735 SLOAD
035766,000055: 25,2014 01753 LADPAD
035767,000056: 25,2015 03624 STORE LAD
035768,000057:
035769,000058: 25,2016 77605 DMP # L/DCMINR = LAD COS(15)
035770,000059: 25,2017 15172 COS15
035771,000060: 25,2020 17630 STODL L/DCMINR
035772,000061: 25,2021 15017 LATSLOPE
035773,000062: 25,2022 70405 DMP SR1 # KLAT = LAD/24
035774,000063: 25,2023 03624 LAD
035775,000064: 25,2024 17632 STODL KLAT
035776,000065: 25,2025 15046 Q7F
035777,000066: 25,2026 17226 STODL Q7 # Q7 = Q7F
035778,000067: 25,2027 15212 NEARONE # 1.0 -1BIT
035779,000068: 25,2030 17614 STODL FACTOR
035780,000069: 25,2031 03624 LAD
035781,000070: 25,2032 57565 SIGN DCOMP
035782,000071: 25,2033 03360 HEADSUP # MAY BE NOISE FOR DISPLAY P61
035783,000072: 25,2034 37634 STCALL L/D # L/D = - LAD SGN(HEADSUP)
035784,000073:
035785,000074: 25,2035 52063 STARTEN1 # RETURN VIA GOTOADDR
035786,000075: 25,2036 47375 VLOAD VXV
035787,000076: 25,2037 01030 VN # (-7) M/CS
035788,000077: 25,2040 02250 UNITR # .5 UNIT REF COORDS
035789,000078: 25,2041 50256 UNIT DOT
035790,000079: 25,2042 03474 RT # RT/2 TARGET VECTOR REF COORDS
035791,000080: 25,2043 03676 STORE LATANG # LATANG = UNI.RT /4
035792,000081: 25,2044 47076 DCOMP RTB
035793,000082: 25,2045 45742 SIGNMPAC
035794,000083: 25,2046 17644 STODL K2ROLL # K2ROLL = -SGN(LATANG)
035795,000084:
035796,000085: 25,2047 03624 LAD
035797,000086: 25,2050 43205 DMP DAD
035798,000087: 25,2051 15050 Q21
035799,000088: 25,2052 15052 Q22
035800,000089: 25,2053 03712 STORE Q2 # Q2 = -1992 + 3500 LAD
035801,000090:
035802,000091: 25,2054 66331 SSP SSP
035803,000092: 25,2055 03646 GOTOADDR # SET SELECTOR FOR INITIAL PASS
035804,000093: 25,2056 52257 INITROLL
035805,000094: 25,2057 03356 POSEXIT
035806,000095: 25,2060 52114 SCALEPOP # SET CM/POSE TO CONTINUE AT SCALEPOP
035807,000096:
035808,000097: 25,2061 77634 RTB
035809,000098: 25,2062 53606 SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
035810,000099:
035811,000100: # CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM AND RT. ALL ARE .5 UNIT AND IN
035812,000101: # REFERENCE COORDINATES.
035813,000102:
035814,000103: 25,2063 77220 STARTEN1 STQ VLOAD
035815,000104: 25,2064 03645 GOTOADDR
035816,000105: 25,2065 03401 LAT(SPL) # TARGET COORDINATES
035817,000106: 25,2066 77614 CLEAR # DO CALL USING PAD RADIUS. WILL UNIT IT.
035818,000107: 25,2067 00662 ERADFLAG # ANYWAY.
035819,000108: 25,2070 14742 STODL LAT
035820,000109: 25,2071 15204 3ZEROS
035821,000110:
035822,000111: 25,2072 14746 STODL LAT +4 # SET ALT=0.
035823,000112: 25,2073 01036 PIPTIME # ESTABLISH RTINIT AT TIME OF PRESENT
035824,000113: # RN AND VN.
035825,000114: 25,2074 37524 STCALL TIME/RTO # SAVE TIME BASE OF RTINIT.
035826,000115: 25,2075 22523 LALOTORV # C(MPAC) =TIME (PIPTIME)
035827,000116: 25,2076 77656 UNIT # ANSWER IN ALPHAV ALSO
035828,000117: 25,2077 17452 STODL RTINIT # .5 UNIT TARGET REF COORDS
035829,000118: 25,2100 12111 500SEC # NOMINAL ENTRY TIME FOR P63
035830,000119: # TIME/RTO = PIPTIME, STILL.
035831,000120: 25,2101 37606 STCALL DTEAROT # INITIALIZE EARROT
035832,000121: 25,2102 46213 EARROT1 # GET RT
035833,000122: 25,2103 72441 DOT SL1
035834,000123: 25,2104 02250 UNITR # RT/2 IN MPAC
035835,000124: 25,2105 77726 ACOS
035836,000125: 25,2106 37702 STCALL THETAH # RANGE ANGLE /360
035837,000126: 25,2107 03645 GOTOADDR # RETURN TO CALLER
035838,000127:
035839,000128: 25,2110 00003 01520 500SEC 2DEC 50000 B-28 # CS
035840,000129:
035841,000130: 25,2112 11774 ENTMASK OCT 11774
035842,000131: 25,2113 11010 ENTRYSW OCT 11010 # ENTRYDSP B13, GONEPAST B10, LATSW B4
035843,000132:
035844,000133: 25,2114 77624 SCALEPOP CALL
035845,000134: 25,2115 52124 TARGETNG
035846,000135:
035847,000136: 25,2116 77776 EXIT
035848,000137:
035849,000138: 25,2117 05415 REFAZE10 TC PHASCHNG
035850,000139: 25,2120 10035 OCT 10035 # SERVICER 5.3 RESTART AT REFAZE10
035851,000140:
035852,000141: 25,2121 01,2253 5P3SPT14 = 5.3SPOT
035853,000142: 25,2121 06006 TC INTPRET
035854,000143:
035855,000144: # JUMP TO PARTICULAR RE-ENTRY PHASE:
035856,000145:
035857,000146: # SEQUENCE
035858,000147: 25,2122 77650 GOTO
035859,000148: 25,2123 03645 GOTOADDR
035860,000149:
035861,000150: # GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS APPROPRIATE TO THE CURRENT PHASE OF
035862,000151: # RE-ENTRY. SEQUENCING IS AS FOLLOWS:
035863,000152:
035864,000153: # INITROLL ADDRESS IS SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT IS EXCEEDED. THEN HOLDS NEW ROLL
035865,000154: # ATTITUDE UNTIL VRTHRESH IS EXCEEDED. THEN BRANCHES TO
035866,000155:
035867,000156: # HUNTEST THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL L/D FROM PRESENT CONDITIONS IS LESS
035868,000157: # THAN THE DESIRED RANGE.
035869,000158: # IF NOT - A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG CONTROLLER.
035870,000159: # IF SO - CONTROL AND GOTOADDR ARE SET TO UPCONTRL.
035871,000160: # USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUGH
035872,000161: # HUNTEST.
035873,000162:
035874,000163: # UPCONTRL CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE. UPCONTRL IS TERMINATED EITHER
035875,000164: # (A) WHEN THE DRAG (AS MEASURED BY THE PIPAS) FALLS BELOW Q7, OR
035876,000165: # (B) IF RDOT IS NEGATIVE AND REFERENCE VL EXCEEDS V.
035877,000166: # IN CASE (A), GOTOADDR IS SET TO KEP2 AND IN CASE (B), TO PREDICT3 SKIPPING THE KEPLER PHASE OF
035878,000167: # ENTRY.
035879,000168:
035880,000169: # KEP2 GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG. THE SPACECRAFT IS INSTANTANEOUSLY
035881,000170: # TRIMMED IN PITCH AND YAW TO THE COMPUTED RELATIVE VELOCITY. THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.
035882,000171: # WHEN THE MEASURED DRAG EXCEEDS Q7 +0.5, GOTOADDR IS SET TO
035883,000172:
035884,000173: # PREDICT3 THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
035885,000174: # WHEN V IS LESS THAN VQUIT. AN EXIT IS MADE TO
035886,000175:
035887,000176: # P67.1 THE LAST COMPUTED ROLL ANGLE IS MAINTAINED. RATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE
035888,000177: # AND LONGITUDE ARE COMPUTED FOR DISPLAY.
035889,000178: # ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO TO THIS FINAL FLASHING DISPLAY.
035890,000179:
035891,000180: # PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
035892,000181:
035893,000182:
035894,000183: # * START TARGETING ...
035895,000184:
035896,000185: 25,2124 E7,1451 EBANK= RTINIT
035897,000186:
035898,000187: # TARGETNG IS CALLED BY P61, FROM GROUP 4.
035899,000188: # TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
035900,000189:
035901,000190: # ALL MM COME HERE.
035902,000191: 25,2124 77214 TARGETNG BOFF VLOAD # ENTER WITH PROPER EB FROM CM/POSE(TEST)
035903,000192: 25,2125 03346 RELVELSW # RELVELSW = 96D BIT9
035904,000193: 25,2126 52132 GETVEL # WANT INERTIAL VEL. GO GET IT.
035905,000194: 25,2127 03526 -VREL # NEW V IS RELATIVE, CONTINUE
035906,000195:
035907,000196: 25,2130 52076 VCOMP GOTO # (VREL) = (V) + KWE UNITR*UNITW
035908,000197: 25,2131 52135 GETUNITV -1 # - VREL WAS LEFT BY CM/POSE
035909,000198:
035910,000199: 25,2132 74375 GETVEL VLOAD VXSC # INERTIAL V WANTED
035911,000200: 25,2133 01030 VN # KVSCALE = (12800 / .3048) / 2VS
035912,000201: 25,2134 15100 KVSCALE # KVSCALE = .81491944
035913,000202: 25,2135 03516 -1 STORE VEL # V/2 VS
035914,000203: 25,2136 44056 GETUNITV UNIT STQ
035915,000204: 25,2137 03375 60GENRET
035916,000205: 25,2140 17510 STODL UNITV
035917,000206: 25,2141 00043 34D
035918,000207: 25,2142 03622 STORE VSQUARE # VSQ/4
035919,000208:
035920,000209: 25,2143 77625 DSU # LEQ = VSQUARE - 1
035921,000210: 25,2144 15174 FOURTH # 4 G-S FULL SCALE
035922,000211: 25,2145 17654 STODL LEQ # LEQ/4
035923,000212:
035924,000213: 25,2146 00045 36D
035925,000214: 25,2147 27674 STOVL V # V/2 VS = VEL/2 VS
035926,000215:
035927,000216: 25,2150 03516 VEL
035928,000217: 25,2151 72441 DOT SL1 # RDOT= V.UNITR
035929,000218: 25,2152 02250 UNITR
035930,000219: 25,2153 27700 STOVL RDOT # RDOT / 2 VS
035931,000220:
035932,000221: 25,2154 01305 DELV # PIPA COUNTS IN PLATFORM COORDS.
035933,000222: 25,2155 41246 ABVAL DMP
035934,000223: 25,2156 15102 KASCALE
035935,000224: 25,2157 53152 SL1 BZE
035936,000225: 25,2160 55004 SETMIND
035937,000226: 25,2161 27640 DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG
035938,000227: 25,2162 03516 VEL
035939,000228: 25,2163 53435 VXV UNIT # UNI = UNIT(V*R)
035940,000229: 25,2164 02250 UNITR
035941,000230: 25,2165 03502 STORE UNI # .5 UNI REF COORDS.
035942,000231:
035943,000232: 25,2166 71214 BOFF DLOAD
035944,000233: 25,2167 03346 RELVELSW
035945,000234: 25,2170 54745 GETETA
035946,000235: 25,2171 15204 3ZEROS
035947,000236: 25,2172 43225 UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE
035948,000237: # RTINIT WAS ESTABLISHED.
035949,000238: 25,2173 03524 TIME/RTO
035950,000239: 25,2174 01036 PIPTIME
035951,000240: 25,2175 37606 STCALL DTEAROT # GET PREDICTED TARGET VECTOR RT
035952,000241:
035953,000242: 25,2176 46223 EARROT2
035954,000243: 25,2177 40241 DOT SETPD # SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
035955,000244: 25,2200 03502 UNI # LATANG = RT.UNI
035956,000245: 25,2201 00001 0
035957,000246: 25,2202 27676 STOVL LATANG # LATANG = MAC LATANG / 4
035958,000247:
035959,000248: 25,2203 03474 RT
035960,000249: 25,2204 77614 CLEAR
035961,000250: 25,2205 03667 GONEBY # SHOW HAVE NOT GONE PAST TARGET.
035962,000251: 25,2206 50235 VXV DOT # IF RT*UNITR.UNI NEG, GONEBY=1
035963,000252: 25,2207 02250 UNITR # GONEPAST IS CONDITIONAL SW SET IN
035964,000253: 25,2210 03502 UNI # FINAL PHASE.
035965,000254: 25,2211 43044 BPL SET
035966,000255: 25,2212 52214 +2
035967,000256: 25,2213 03467 GONEBY # SHOW HAVE GONE PAST TARGET.
035968,000257:
035969,000258: 25,2214 77775 VLOAD
035970,000259: 25,2215 03474 RT
035971,000260: 25,2216 45241 GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR)
035972,000261: 25,2217 02250 UNITR
035973,000262: 25,2220 15032 NEAR1/4 # TO IMPROVE ACCURACY, CALC RANGE BY
035974,000263: 25,2221 43244 BPL DAD # TINYTHET IF HIGH ORDER PART OF
035975,000264: 25,2222 55007 TINYTHET # ARCCOS ARGUMENT IS ZERO
035976,000265: 25,2223 15032 NEAR1/4
035977,000266: 25,2224 65552 SL1 ACOS
035978,000267: 25,2225 03702 THETDONE STORE THETAH # THETAH/360
035979,000268: # HI WORD, LO BIT =1.32 NM=360 60/16384
035980,000269:
035981,000270: 25,2226 57414 BON DCOMP
035982,000271: 25,2227 03707 GONEBY # =1 IF HAVE GONE PAST TARGET.
035983,000272: # (SIGN MAY BECOME ERRATIC VERY NEAR
035984,000273: # TARGET DUE TO LOSS OF PRECISION.)
035985,000274: 25,2230 52231 +1
035986,000275: 25,2231 17714 STODL RTGON67 # RANGE ERROR: NEG IF WILL FALL SHORT.
035987,000276:
035988,000277: 25,2232 03640 D
035989,000278: 25,2233 50025 DSU BMN
035990,000279: 25,2234 15110 .05G
035991,000280: 25,2235 52254 NO.05G
035992,000281: 25,2236 77214 SET VLOAD
035993,000282: 25,2237 03074 .05GSW
035994,000283: 25,2240 03432 DELVREF
035995,000284: 25,2241 50206 PUSH DOT
035996,000285: 25,2242 03542 UXA/2
035997,000286: 25,2243 63552 SL1 DSQ
035998,000287: 25,2244 47515 PDVL VSQ # EXCHANGE WITH PDL.
035999,000288: 25,2245 56225 DSU DDV
036000,000289: 25,2246 00001 0
036001,000290: 25,2247 75400 BOV SQRT
036002,000291: 25,2250 52252 NOLDCALC # OVFL LAST CLEARED IN EARROT2 ABOVE.
036003,000292: 25,2251 03727 STORE L/DCALC
036004,000293:
036005,000294: 25,2252 77650 NOLDCALC GOTO
036006,000295: 25,2253 03375 60GENRET
036007,000296:
036008,000297: 25,2254 52014 NO.05G CLEAR GOTO # THIS WAY FOR DAP.(MAY INTERRUPT)
036009,000298: 25,2255 03274 .05GSW # .05GSW = 102D B3
036010,000299: 25,2256 52252 NOLDCALC # KEEP SINGLE EXIT FOR TARGETNG
036011,000300:
036012,000301: # SUBROUTINES CALLED BY SCALEPOP (TARGETING):
036013,000302:
036014,000303: 26,2000 SETLOC REENTRY1
036015,000304: 26,2000 BANK
036016,000305:
036017,000306: 26,2745 COUNT* $$/ENTRY
036018,000307:
036019,000308: 26,2745 56345 GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
036020,000309: # DT/2 = 2/2 =1
036021,000310: 26,2746 03700 RDOT
036022,000311: 26,2747 15166 -HSCALED
036023,000312: 26,2750 41325 PDDL DMP
036024,000313: 26,2751 03640 D
036025,000314: 26,2752 15170 -KSCALE
036026,000315: 26,2753 43271 DDV DAD
036027,000316: 26,2754 03674 V
036028,000317: # -RDOT/HS FROM PDL.
036029,000318: 26,2755 43205 DMP DAD
036030,000319: 26,2756 03640 D
036031,000320: 26,2757 03640 D
036032,000321: 26,2760 03640 STORE D
036033,000322:
036034,000323: 26,2761 71214 BON DLOAD # EGSW INDICATES FINAL PHASE.
036035,000324: 26,2762 03307 EGSW
036036,000325: 26,2763 54770 SUBETA
036037,000326: 26,2764 03702 THETAH
036038,000327: 26,2765 52005 DMP GOTO
036039,000328: 26,2766 15104 KTETA # = 1000X2PI/(2)E14 163.84
036040,000329: 26,2767 52172 UPDATERT
036041,000330:
036042,000331: 26,2770 45345 SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL.
036043,000332: 26,2771 03674 V
036044,000333: 26,2772 15174 VMIN
036045,000334: 26,2773 43044 BPL SET
036046,000335: 26,2774 54776 SUBETA2
036047,000336: 26,2775 03066 RELVELSW
036048,000337:
036049,000338: 26,2776 41345 SUBETA2 DLOAD DMP
036050,000339:
036051,000340: 26,2777 03702 THETAH
036052,000341: 26,3000 15106 KT1 # KT1 = KT
036053,000342: 26,3001 52071 DDV GOTO
036054,000343: 26,3002 03674 V # KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
036055,000344: 26,3003 52172 UPDATERT
036056,000345:
036057,000346: 26,3004 52145 SETMIND DLOAD GOTO
036058,000347: 26,3005 16335 1BITDP
036059,000348: 26,3006 52161 DSTORE
036060,000349:
036061,000350: 26,3007 51425 TINYTHET DSU ABS # ENTER WITH X-.249
036062,000351: 26,3010 16336 1BITDP +1 # GET 1/4 - MPAC
036063,000352: 26,3011 75461 SL SQRT # SCALE UP BEFORE SQRT
036064,000353: 26,3012 20216 13D # HAS FACTOR FOR UP SCALING
036065,000354: 26,3013 52005 DMP GOTO
036066,000355: 26,3014 15116 KACOS
036067,000356: 26,3015 52225 THETDONE
036068,000357:
036069,000358: # * START INITIAL ROLL ...
036070,000359:
036071,000360: 25,2000 SETLOC REENTRY
036072,000361: 25,2000 BANK
036073,000362:
036074,000363: 25,2257 COUNT* $$/ENTRY
036075,000364:
036076,000365: # MM = 63 , 64 ..
036077,000366: 25,2257 43014 INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
036078,000367: 25,2260 03312 INRLSW
036079,000368: 25,2261 52361 INITRL1
036080,000369: 25,2262 03354 .05GSW
036081,000370: 25,2263 53523 LIMITL/D
036082,000371:
036083,000372: # MM = 64, NOW
036084,000373:
036085,000374: # 3
036086,000375: # KA = KA1 LEQ + KA2
036087,000376: 25,2264 63545 DLOAD DSQ
036088,000377: 25,2265 03654 LEQ
036089,000378: 25,2266 56205 DMP DDV
036090,000379: 25,2267 03654 LEQ
036091,000380: 25,2270 15154 1/KA1 # = 25 /(64 1.8)
036092,000381: 25,2271 47015 DAD RTB
036093,000382: 25,2272 15156 KA2 # = .2
036094,000383: 25,2273 54301 P64 # ROLLC VI RDOT
036095,000384: # XXX.XX DEG XXXXX. FPS XXXXX. FPS
036096,000385: 25,2274 03720 STORE KAT
036097,000386:
036098,000387: 25,2275 50025 DSU BMN
036099,000388: 25,2276 15164 KALIM
036100,000389: 25,2277 52303 +4
036101,000390: 25,2300 77745 DLOAD
036102,000391: 25,2301 15164 KALIM
036103,000392: 25,2302 03720 STORE KAT
036104,000393: 25,2303 45345 DLOAD DSU # IF V-VFINAL1 NEG, GO TO FINAL PHASE.
036105,000394: 25,2304 03674 V
036106,000395: 25,2305 15152 VFINAL1
036107,000396: 25,2306 51014 CLEAR BPL # (CAN'T CLEAR INRLSW AFTER HERE: RESTARTS)
036108,000397: 25,2307 03265 GONEPAST # GONEPAST WAS INITIALLY SET=1 TO FORCE
036109,000398: # ROLLC TO REMAIN AS DEFINED BY HEADSUP
036110,000399: # UNTIL START OF P64. (UNTIL D > .05G)
036111,000400: 25,2310 52315 D0EQ
036112,000401: 25,2311 52131 SSP GOTO
036113,000402: 25,2312 03646 GOTOADDR
036114,000403: 25,2313 53315 KEP2 # AND IDLE UNTIL D>0.2 G. (NO P66 HERE)
036115,000404: 25,2314 52350 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
036116,000405:
036117,000406: 25,2315 41345 D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4
036118,000407: 25,2316 03654 LEQ
036119,000408: 25,2317 15160 KA3
036120,000409: 25,2320 77615 DAD
036121,000410: 25,2321 15162 KA4
036122,000411: 25,2322 03710 STORE D0 # D0/805
036123,000412: 25,2323 40065 BDDV BOV
036124,000413: 25,2324 15136 C001 # (-4/25 G) B-8
036125,000414: 25,2325 52326 +1 # CLEAR OVFIND, IF ON.
036126,000415: 25,2326 17706 STODL C/D0 # (-4/D0) B-8
036127,000416: 25,2327 03624 LAD # IF V-VFINAL +K(RDOT/V)CUBED POS,L/D=-LAD
036128,000417: 25,2330 17634 STODL L/D
036129,000418: 25,2331 03700 RDOT
036130,000419: 25,2332 41471 DDV PUSH
036131,000420: 25,2333 03674 V
036132,000421: 25,2334 41316 DSQ DMP
036133,000422: 25,2335 45271 DDV DSU
036134,000423: 25,2336 15146 1/K44
036135,000424: 25,2337 15150 VFINAL
036136,000425: # 3
036137,000426: # V-VFINAL +(RDOT/V) / K44 OVFL $
036138,000427:
036139,000428: 25,2340 40015 DAD BOV
036140,000429: 25,2341 03674 V
036141,000430: 25,2342 52350 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
036142,000431: 25,2343 71240 BMN DLOAD
036143,000432: 25,2344 52350 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
036144,000433: 25,2345 03624 LAD
036145,000434: 25,2346 77676 DCOMP
036146,000435: 25,2347 03634 STORE L/D
036147,000436:
036148,000437: # SET INRLSW AT END FOR RESTART PROTECTION
036149,000438: 25,2350 77614 INROLOUT BOFSET # END OF PRE .05G PATH OF INITROLL.
036150,000439: 25,2351 03052 INRLSW # SWITCH IS ZERO INITIALLY.
036151,000440: 25,2352 53523 LIMITL/D # (GO TO)
036152,000441:
036153,000442: 25,2353 45345 KATEST DLOAD DSU # IF KAT - D POS, GO TO CONSTD
036154,000443: 25,2354 03720 KAT
036155,000444: 25,2355 03640 D # IF POS, OUT WITH COMMAND VIA LIMITL/D
036156,000445: 25,2356 52044 BPL GOTO
036157,000446: 25,2357 53523 LIMITL/D
036158,000447: 25,2360 53230 CONSTD
036159,000448:
036160,000449: 25,2361 43345 INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST
036161,000450: 25,2362 03700 RDOT
036162,000451: 25,2363 15130 VRCONT
036163,000452: 25,2364 45040 BMN CALL # IF POSITIVE, FALL INTO HUNTEST.
036164,000453: 25,2365 52353 KATEST
036165,000454:
036166,000455: 25,2366 53020 FOREHUNT # INITIALIZE HUNTEST.
036167,000456:
036168,000457:
036169,000458: # * START HUNT TEST ..
036170,000459:
036171,000460: # MM = 64
036172,000461: 25,2367 77731 SSP # INITIALIZE HUNTEST ON FIRST PASS
036173,000462: 25,2370 03646 GOTOADDR
036174,000463: 25,2371 52372 HUNTEST # MUST GO AFTER FOREHUNT FOR RESTARTS.
036175,000464:
036176,000465: 25,2372 77745 HUNTEST DLOAD
036177,000466: 25,2373 03640 D
036178,000467: 25,2374 17664 STODL A1 # A1/805 = A1/25G
036179,000468:
036180,000469: 25,2375 03624 LAD
036181,000470: 25,2376 17647 STODL TEM1B
036182,000471: 25,2377 03700 RDOT
036183,000472: 25,2400 71240 BMN DLOAD # IF RDOT NEG,TEM1B=LAD, OTHERWISE = LEWD
036184,000473: 25,2401 52405 A0CALC
036185,000474: 25,2402 03725 LEWD
036186,000475: 25,2403 17647 STODL TEM1B
036187,000476:
036188,000477: 25,2404 03700 RDOT
036189,000478: 25,2405 43271 A0CALC DDV DAD # V1 = V + RDOT/TEM1B
036190,000479: 25,2406 03647 TEM1B
036191,000480: 25,2407 03674 V
036192,000481: 25,2410 14326 STODL V1 # V1/2 VS
036193,000482:
036194,000483: 25,2411 03700 RDOT
036195,000484: 25,2412 56316 DSQ DDV # A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS)
036196,000485: 25,2413 03647 TEM1B
036197,000486: 25,2414 43271 DDV DAD
036198,000487: 25,2415 15142 2C1HS
036199,000488: 25,2416 03640 D
036200,000489: 25,2417 41205 DMP DMP
036201,000490: 25,2420 00326 V1
036202,000491: 25,2421 00326 V1
036203,000492: 25,2422 77671 DDV
036204,000493: 25,2423 03622 VSQUARE
036205,000494: 25,2424 14330 STODL A0 # A0/805 = A0/25G
036206,000495:
036207,000496: 25,2425 03700 RDOT
036208,000497: 25,2426 71244 BPL DLOAD
036209,000498: 25,2427 52432 V1LEAD
036210,000499: 25,2430 00330 A0
036211,000500: 25,2431 03664 STORE A1 # A1/25G
036212,000501:
036213,000502: 25,2432 51145 V1LEAD DLOAD BPL # IF L/D NEG, V1=V1 - 1000
036214,000503: 25,2433 03634 L/D
036215,000504: 25,2434 52441 HUNTEST1
036216,000505:
036217,000506: 25,2435 45345 DLOAD DSU
036218,000507: 25,2436 00326 V1
036219,000508: 25,2437 15064 VQUIT
036220,000509: 25,2440 00326 STORE V1
036221,000510:
036222,000511: 25,2441 41345 HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
036223,000512: 25,2442 00330 A0
036224,000513: 25,2443 15142 2C1HS
036225,000514: 25,2444 40271 DDV SETPD
036226,000515: 25,2445 00326 V1
036227,000516: 25,2446 00001 0
036228,000517: 25,2447 56271 DDV DDV
036229,000518: 25,2450 00326 V1
036230,000519: 25,2451 03725 LEWD
036231,000520: 25,2452 03704 STORE ALP
036232,000521:
036233,000522: 25,2453 55221 BDSU BDDV # FACT1 = V1 / (1 - ALP)
036234,000523: 25,2454 15212 BARELY1
036235,000524: 25,2455 00326 V1
036236,000525: 25,2456 17616 STODL FACT1 # FACT1 / 2VS
036237,000526:
036238,000527: 25,2457 03704 ALP
036239,000528: 25,2460 41225 DSU DMP # FACT2 = ALP(ALP - 1) / A0
036240,000529: 25,2461 15212 BARELY1
036241,000530: 25,2462 03704 ALP
036242,000531: 25,2463 77671 DDV
036243,000532: 25,2464 00330 A0
036244,000533: 25,2465 03620 STORE FACT2 # FACT2 (25G)
036245,000534:
036246,000535: 25,2466 43205 DMP DAD
036247,000536: 25,2467 03226 Q7 # Q7 /805 = Q7 / 25G
036248,000537: 25,2470 03704 ALP # VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
036249,000538: 25,2471 44366 SQRT BDSU
036250,000539: 25,2472 15212 BARELY1
036251,000540: 25,2473 77605 DMP
036252,000541: 25,2474 03616 FACT1
036253,000542: 25,2475 03737 STORE VL # VL / 2 VS
036254,000543:
036255,000544: 25,2476 41221 BDSU DMP # GAMMAL1 = LEWD (V1-VL)/VL
036256,000545: 25,2477 00326 V1
036257,000546: 25,2500 03725 LEWD
036258,000547: 25,2501 77671 DDV
036259,000548: 25,2502 03737 VL
036260,000549: 25,2503 14027 STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL
036261,000550:
036262,000551: # GAMMAL1 = PDL 22D.
036263,000552: 25,2504 03737 VL
036264,000553: 25,2505 50025 DSU BMN # IF VL-VLMIN NEG, GO TO PREFINAL
036265,000554: 25,2506 15054 VLMIN
036266,000555: 25,2507 53331 PREFINAL
036267,000556:
036268,000557: 25,2510 63545 DLOAD DSQ
036269,000558: 25,2511 03737 VL
036270,000559: 25,2512 17666 STODL VBARS # VBARS / 4 VS VS
036271,000560:
036272,000561: 25,2513 15202 HALVE # IF VSAT-VL NEG, GO TO CONSTD
036273,000562: 25,2514 50025 DSU BMN
036274,000563: 25,2515 03737 VL
036275,000564: 25,2516 53224 BECONSTD # SET MODE=HUNTEST, CONTINUE IN CONSTD
036276,000565: 25,2517 17662 STODL DVL # DVL / 2VS
036277,000566:
036278,000567: 25,2520 15202 HALVE
036279,000568: 25,2521 03672 STORE VS1 # VS1 = VSAT
036280,000569:
036281,000570: 25,2522 50025 DSU BMN # IF V1 GREATER THAN VSAT, GO ON
036282,000571: 25,2523 00326 V1
036283,000572: 25,2524 52532 GETDHOOK
036284,000573: 25,2525 77621 BDSU
036285,000574: 25,2526 03662 DVL
036286,000575: 25,2527 17662 STODL DVL # DVL = DVL - (VSAT-V1) = V1 - VL
036287,000576: 25,2530 00326 V1
036288,000577: 25,2531 03672 STORE VS1 # VS1 = V1, IN THIS CASE
036289,000578:
036290,000579: 25,2532 45145 GETDHOOK DLOAD CALL # DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
036291,000580: 25,2533 03672 VS1 # VS1 / 2 VS
036292,000581: 25,2534 53002 DHOOKYQ7 # GO CALC DHOOK
036293,000582: 25,2535 03656 STORE DHOOK # DHOOK / 25G
036294,000583:
036295,000584: 25,2536 56261 SR DDV
036296,000585: 25,2537 20607 6 # CHOOK
036297,000586: 25,2540 03226 Q7
036298,000587: 25,2541 77625 DSU
036299,000588: 25,2542 15120 CHOOK # = .25/16 = (-6)
036300,000589: 25,2543 03660 STORE AHOOKDV
036301,000590:
036302,000591: 25,2544 41215 DAD DMP # GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
036303,000592: 25,2545 17464 1/16TH
036304,000593: 25,2546 15124 CH1
036305,000594: 25,2547 41205 DMP DMP
036306,000595: 25,2550 03662 DVL
036307,000596: 25,2551 03662 DVL
036308,000597: 25,2552 56271 DDV DDV
036309,000598: 25,2553 03656 DHOOK
036310,000599: 25,2554 03666 VBARS
036311,000600: 25,2555 50021 BDSU BMN
036312,000601: 25,2556 00027 GAMMAL1
036313,000602: 25,2557 52747 NEGAMA
036314,000603: 25,2560 03741 HUNTEST3 STORE GAMMAL
036315,000604:
036316,000605: 25,2561 77625 DSU # GAMMAL1=GAMMAL1 +Q19 (GAMMAL-GAMMAL1)
036317,000606: 25,2562 00027 GAMMAL1
036318,000607: 25,2563 43205 DMP DAD
036319,000608: 25,2564 15202 Q19
036320,000609: 25,2565 00027 GAMMAL1
036321,000610: 25,2566 14027 STODL GAMMAL1
036322,000611: 25,2567 03741 GAMMAL
036323,000612:
036324,000613:
036325,000614: # *START RANGE PREDICTION ...
036326,000615:
036327,000616: # C(MPAC) = GAMMAL
036328,000617: 25,2570 60516 RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
036329,000618: 25,2571 77621 BDSU
036330,000619: 25,2572 15202 HALVE
036331,000620: 25,2573 17670 STODL COSG/2
036332,000621: 25,2574 03666 VBARS # E=SQRT(1+VBARS........
036333,000622:
036334,000623: 25,2575 41225 DSU DMP
036335,000624: 25,2576 15202 HALVE
036336,000625: 25,2577 03666 VBARS
036337,000626: 25,2600 41205 DMP DMP
036338,000627: 25,2601 03670 COSG/2
036339,000628: 25,2602 03670 COSG/2
036340,000629: 25,2603 43312 SL2 DAD
036341,000630: 25,2604 17464 C1/16 # C1/16 = 1/16
036342,000631: 25,2605 65366 SQRT PDDL # E/4 INTO PDL
036343,000632:
036344,000633: 25,2606 03666 VBARS
036345,000634: 25,2607 41205 DMP DMP # ASKEP/2 = ARCSIN(VBARS COSG SING/E)
036346,000635: 25,2610 03670 COSG/2
036347,000636: 25,2611 03741 GAMMAL
036348,000637: 25,2612 67471 DDV ASIN
036349,000638: 25,2613 41552 SL1 PUSH # ASKEP TO PDL 0.
036350,000639: 25,2614 17731 STODL ASKEP # BALLISTIC RANGE ASKEP/2PI
036351,000640:
036352,000641: # FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
036353,000642: 25,2615 03737 VL
036354,000643: 25,2616 43205 DMP DAD # ASP1 = Q2 + Q3 VL
036355,000644: 25,2617 15040 Q3
036356,000645: 25,2620 03712 Q2
036357,000646: 25,2621 03732 STORE ASP1 # FINAL PHASE RANGE ASP1/2 PI
036358,000647:
036359,000648: 25,2622 63525 PDDL DSQ # ASP1 TO PDL 2.
036360,000649: 25,2623 00326 V1
036361,000650: # 2
036362,000651: # ASPUP= -C12 LOG(V1 Q7/VBARS A0)/GAMMAL1
036363,000652: 25,2624 56205 DMP DDV
036364,000653: 25,2625 03226 Q7
036365,000654: 25,2626 03666 VBARS
036366,000655: 25,2627 45071 DDV CALL
036367,000656: 25,2630 00330 A0
036368,000657: 25,2631 46155 LOG # RETURN WITH -LOG IN MPAC
036369,000658:
036370,000659: 25,2632 56205 DMP DDV
036371,000660: 25,2633 15056 C12
036372,000661: 25,2634 00027 GAMMAL1
036373,000662: 25,2635 03733 STORE ASPUP # UP PHASE RANGE ASPUP / 2 PI
036374,000663: 25,2636 41325 PDDL DMP # ASPUP TO PDL 4.
036375,000664: 25,2637 15126 KC3 # KC3 =-4 VS VS/ 2 PI 805 RE
036376,000665: # ASPDWN = KC3 RDOT V / A0
036377,000666: 25,2640 03700 RDOT
036378,000667: 25,2641 56205 DMP DDV
036379,000668: 25,2642 03674 V
036380,000669: 25,2643 00330 A0
036381,000670: 25,2644 41471 DDV PUSH # ASPDWN TO PDL 6.
036382,000671: 25,2645 03624 LAD
036383,000672: 25,2646 17734 STODL ASPDWN # RANGE TO PULL OUT ASPDWN /2 PI
036384,000673:
036385,000674: 25,2647 15044 Q6
036386,000675: 25,2650 41225 DSU DMP # ASP3 = Q5(Q6-GAMMAL)
036387,000676: 25,2651 03741 GAMMAL
036388,000677: 25,2652 15042 Q5
036389,000678: 25,2653 27735 STOVL ASP3 # GAMMA CORRECTION ASP3/2PI
036390,000679:
036391,000680: 25,2654 03731 ASKEP # GET HI-WD AND
036392,000681: 25,2655 17155 STODL ASPS(TM) # SAVE HI-WORD OF ASP'S FOR TM.
036393,000682:
036394,000683: 25,2656 03735 ASP3
036395,000684: 25,2657 43215 DAD DAD
036396,000685: # ASPDWN FROM PDL 6.
036397,000686: # ASPUP FROM PDL 4.
036398,000687: 25,2660 43215 DAD DAD
036399,000688: # ASP1 FROM PDL 2.
036400,000689: # ASKEP FROM PDL 0.
036401,000690: 25,2661 41025 DSU BOVB # CLEAR OVFIND.
036402,000691: 25,2662 03702 THETAH
036403,000692: 25,2663 57450 TCDANZIG
036404,000693: 25,2664 03610 STORE DIFF # DIFF = (ASP-THETAH) / 2 PI
036405,000694: # ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
036406,000695:
036407,000696: 25,2665 45246 ABS DSU # IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
036408,000697: 25,2666 15072 25NM
036409,000698: 25,2667 43040 BMN BON
036410,000699: 25,2670 53031 GOTOUPSY
036411,000700: 25,2671 03311 HIND
036412,000701: 25,2672 52676 GETDLEWD
036413,000702:
036414,000703: 25,2673 51145 DLOAD BPL
036415,000704: 25,2674 03610 DIFF
036416,000705: 25,2675 53217 DCONSTD # EVENTUALLY SETS MODE = HUNTEST.
036417,000706: 25,2676 41345 GETDLEWD DLOAD DMP
036418,000707: # DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
036419,000708: 25,2677 03642 DLEWD
036420,000709: 25,2700 03610 DIFF
036421,000710: 25,2701 45325 PDDL DSU
036422,000711: 25,2702 03612 DIFFOLD
036423,000712: 25,2703 03610 DIFF
036424,000713: 25,2704 77665 BDDV
036425,000714: 25,2705 77626 LWDSTORE STADR
036426,000715: 25,2706 74135 STORE DLEWD
036427,000716: 25,2707 50015 DAD BMN # IF LEWD+DLEWD NEG, DLEWD=-LEWD/2
036428,000717: 25,2710 03725 LEWD
036429,000718: 25,2711 52743 LEWDPTR
036430,000719: 25,2712 77600 BOV
036431,000720: 25,2713 52737 LEWDOVFL
036432,000721: 25,2714 03725 STORE LEWD
036433,000722:
036434,000723: 25,2715 77776 SIDETRAK EXIT
036435,000724:
036436,000725: 25,2716 04606 TC E7SETTER
036437,000726:
036438,000727: 25,2717 35067 CA PRIO16 # DROP GRP 5 RESTART PRIO TO 1 LESS THAN
036439,000728: 25,2720 55260 TS PHSPRDT5 # GRP 4.
036440,000729:
036441,000730: 25,2721 05415 TC PHASCHNG
036442,000731: 25,2722 00474 OCT 00474 # RESTART GRP 4 AT PRE-HUNT.
036443,000732: # FORCE RESTART TO PICK UP IN GRP 4:
036444,000733: # USE PRIO 17 FOR GRP 4 (< SERVICER PRIO)
036445,000734: 25,2723 01,2220 4P47SPT1 = 4.47SPOT
036446,000735: 25,2723 35067 CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
036447,000736: # GRP 4 OR SERVICER.
036448,000737: 25,2724 05211 TC PRIOCHNG
036449,000738:
036450,000739: 25,2725 33030 CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
036451,000740: 25,2726 55645 TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR.
036452,000741:
036453,000742: 25,2727 06006 TC INTPRET
036454,000743:
036455,000744: 25,2730 43145 DLOAD SET
036456,000745: 25,2731 03610 DIFF
036457,000746: 25,2732 03071 HIND
036458,000747: 25,2733 17612 STODL DIFFOLD # DIFFOLD / 2 PI
036459,000748:
036460,000749: 25,2734 15046 Q7F
036461,000750: 25,2735 37226 STCALL Q7 # Q7 / 805 FPSS
036462,000751: 25,2736 52372 HUNTEST # (GO TO)
036463,000752:
036464,000753: 25,2737 77745 LEWDOVFL DLOAD
036465,000754: 25,2740 15212 NEARONE
036466,000755: 25,2741 37725 STCALL LEWD
036467,000756: 25,2742 53217 DCONSTD # (GO TO) ALSO WILL SET MODE = HUNTEST
036468,000757:
036469,000758: 25,2743 70545 LEWDPTR DLOAD SR1
036470,000759: 25,2744 03725 LEWD
036471,000760: 25,2745 52076 DCOMP GOTO
036472,000761: 25,2746 52705 LWDSTORE
036473,000762:
036474,000763: # NEGAMA IS PART OF HUNTEST ...
036475,000764:
036476,000765: 25,2747 41205 NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC
036477,000766: 25,2750 03737 VL
036478,000767: 25,2751 15020 1/3RD
036479,000768: 25,2752 41325 PDDL DMP # PUSH GAMMAL VL/3
036480,000769: 25,2753 03725 LEWD
036481,000770: 25,2754 15020 1/3RD
036482,000771: 25,2755 43325 PDDL DAD # PUSH LEWD/3
036483,000772: 25,2756 03660 AHOOKDV
036484,000773: 25,2757 15122 1/24TH
036485,000774: 25,2760 41205 DMP DMP # DEL VL = (GAMMAL VL/3)/(LEWD/3-DVL
036486,000775: 25,2761 03662 DVL # (2/3 + AHOOKDV)(CH1 GS/DHOOK VL))
036487,000776: 25,2762 15124 CH1
036488,000777: 25,2763 56271 DDV DDV
036489,000778: 25,2764 03656 DHOOK
036490,000779: 25,2765 03737 VL
036491,000780: 25,2766 55221 BDSU BDDV
036492,000781: # LEWD/3
036493,000782: # GAMMAL VL /3
036494,000783: 25,2767 77615 DAD
036495,000784: 25,2770 03737 VL
036496,000785: 25,2771 37737 STCALL VL # VL/2 VS
036497,000786:
036498,000787: 25,2772 53002 DHOOKYQ7 # GO CALC Q7
036499,000788: # Q7=((1-VL/FACT1)SQ - ALP)/FACT2
036500,000789: 25,2773 17226 STODL Q7 # Q7 / 25G
036501,000790:
036502,000791: 25,2774 03737 VL
036503,000792: 25,2775 77716 DSQ
036504,000793: 25,2776 17666 STODL VBARS # VBARS / 4 VS VS
036505,000794:
036506,000795: 25,2777 15204 3ZEROS
036507,000796: 25,3000 77650 GOTO # SET GAMMAL = 0
036508,000797: 25,3001 52560 HUNTEST3
036509,000798:
036510,000799: 25,3002 56342 DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7)
036511,000800: 25,3003 03616 FACT1
036512,000801: 25,3004 72421 BDSU SL1
036513,000802: 25,3005 15202 HALVE
036514,000803: 25,3006 45316 DSQ DSU
036515,000804: 25,3007 03704 ALP
036516,000805: 25,3010 43471 DDV RVQ
036517,000806: 25,3011 03620 FACT2
036518,000807:
036519,000808: # COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
036520,000809: # HUNTEST IS SIDE-TRACKED AT SIDETRAK.
036521,000810: # PICK UP IN GROUP 4.
036522,000811:
036523,000812: 25,3012 06006 PRE-HUNT TC INTPRET
036524,000813: 25,3013 45014 CLEAR CALL
036525,000814: 25,3014 03271 HIND # HIND 99D BIT 6 FLAG 6
036526,000815: 25,3015 53020 FOREHUNT # RE-INITIALIZE HUNTEST AFTER RE-START.
036527,000816: 25,3016 77650 GOTO
036528,000817: 25,3017 52372 HUNTEST
036529,000818:
036530,000819: 25,3020 77745 FOREHUNT DLOAD # INITIALIZE HUNTEST.
036531,000820: 25,3021 15204 3ZEROS
036532,000821: 25,3022 17612 STODL DIFFOLD
036533,000822: 25,3023 15026 DLEWD0
036534,000823: 25,3024 17642 STODL DLEWD
036535,000824: 25,3025 15022 LEWD1
036536,000825: 25,3026 03725 STORE LEWD
036537,000826: 25,3027 77616 RVQ
036538,000827:
036539,000828: 25,3030 53573 ADENDEXT CADR ENDEXIT
036540,000829:
036541,000830:
036542,000831: # * START UP CONTROL ...
036543,000832:
036544,000833: # MM = 65
036545,000834: 25,3031 77634 GOTOUPSY RTB # END OF HUNTEST
036546,000835: 25,3032 54307 P65 # HUNTEST USE OF GRP4 IS DISABLED BY P65
036547,000836: # USE FOR DISPLAY.
036548,000837: # SET MODE = UPCONTRL.
036549,000838: # RETURN FROM P65 DIRECTLY TO UPCONTRL
036550,000839: # VIA THE GOTOADDR AT REFAZE10.
036551,000840:
036552,000841: 25,3033 45345 UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
036553,000842: 25,3034 03640 D # (SUPPRESS LATERAL SWITCH)
036554,000843: 25,3035 15070 C21
036555,000844: 25,3036 43040 BMN SET
036556,000845: 25,3037 53041 +2
036557,000846: 25,3040 03070 NOSWITCH
036558,000847:
036559,000848: 25,3041 45345 DLOAD DSU # IF V-V1 POS, GO TO DOWN CONTROL.
036560,000849: 25,3042 03674 V
036561,000850: 25,3043 00326 V1
036562,000851: 25,3044 71244 BPL DLOAD
036563,000852: 25,3045 53256 DOWNCNTL
036564,000853: 25,3046 03640 D
036565,000854: 25,3047 50025 DSU BMN # IF D- Q7 NEG, GO TO KEP
036566,000855: 25,3050 03226 Q7
036567,000856: 25,3051 53311 KEP
036568,000857: 25,3052 51145 DLOAD BPL # IF RDOT NEG, DO VLTEST
036569,000858: 25,3053 03700 RDOT
036570,000859: 25,3054 53063 CONT1
036571,000860:
036572,000861: 25,3055 45345 VLTEST DLOAD DSU # IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
036573,000862: 25,3056 03674 V
036574,000863: 25,3057 03737 VL
036575,000864: 25,3060 50025 DSU BMN
036576,000865: 25,3061 15034 C18
036577,000866: 25,3062 53331 PREFINAL
036578,000867:
036579,000868: 25,3063 77745 CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
036580,000869: 25,3064 03640 D
036581,000870: 25,3065 50025 DSU BMN
036582,000871: 25,3066 00330 A0
036583,000872: 25,3067 53073 CONT3
036584,000873: 25,3070 52145 DLOAD GOTO
036585,000874: 25,3071 03624 LAD
036586,000875: 25,3072 53522 STOREL/D
036587,000876:
036588,000877: 25,3073 41345 CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
036589,000878: 25,3074 03640 D
036590,000879: 25,3075 03620 FACT2
036591,000880: 25,3076 75415 DAD SQRT
036592,000881: 25,3077 03704 ALP
036593,000882: 25,3100 41221 BDSU DMP
036594,000883: 25,3101 15212 BARELY1
036595,000884: 25,3102 03616 FACT1
036596,000885: 25,3103 01302 STORE VREF # VREF / 2VS
036597,000886:
036598,000887: 25,3104 41221 BDSU DMP # RDOTREF = LEWD(V1-VREF)
036599,000888: 25,3105 00326 V1
036600,000889: 25,3106 03725 LEWD
036601,000890: 25,3107 15300 STODL RDOTREF # RDOTREF / 2VS
036602,000891:
036603,000892: 25,3110 03672 VS1
036604,000893: 25,3111 50025 DSU BMN # IF VSAT-VREF NEG, GO TO CONTINU2
036605,000894: 25,3112 01302 VREF
036606,000895: 25,3113 53132 CONTINU2
036607,000896:
036608,000897: 25,3114 41406 PUSH PUSH # VS1-VREF TO PDL TWICE
036609,000898: 25,3115 56205 DMP DDV # RDHOOK=CH1(1+DV AHOOKDV/DVL) DV DV
036610,000899: 25,3116 03660 AHOOKDV # /DHOOK VREF
036611,000900: 25,3117 03662 DVL # WHERE DV = (VS1-VREF)
036612,000901: 25,3120 41215 DAD DMP
036613,000902: 25,3121 17464 1/16TH
036614,000903: 25,3122 15124 CH1
036615,000904: 25,3123 41205 DMP DMP
036616,000905: # VS1-VREF FROM PDL TWICE.
036617,000906: 25,3124 77671 DDV
036618,000907: 25,3125 03656 DHOOK
036619,000908: 25,3126 44271 DDV BDSU
036620,000909: 25,3127 01302 VREF
036621,000910: 25,3130 01300 RDOTREF # C(RDOTREF)= LEWD (V1-VREF)
036622,000911: 25,3131 01300 STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK
036623,000912:
036624,000913: 25,3132 45345 CONTINU2 DLOAD DSU
036625,000914: 25,3133 03640 D
036626,000915: 25,3134 15212 Q7MIN
036627,000916: 25,3135 50004 BOVB BMN
036628,000917: 25,3136 57450 TCDANZIG # CLEAR OVFL IND, IF ON.
036629,000918: 25,3137 53150 UPCNTRL3
036630,000919: 25,3140 45345 DLOAD DSU
036631,000920: 25,3141 03664 A1
036632,000921: 25,3142 03226 Q7
036633,000922: 25,3143 45325 PDDL DSU
036634,000923: 25,3144 03640 D
036635,000924: 25,3145 03226 Q7
036636,000925: 25,3146 45471 DDV STADR
036637,000926: 25,3147 74163 STORE FACTOR # FACTOR / 25G
036638,000927:
036639,000928:
036640,000929: # SKIPPER
036641,000930:
036642,000931: # DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
036643,000932: # WHERE F1 = FACTOR
036644,000933:
036645,000934: 25,3150 77745 UPCNTRL3 DLOAD
036646,000935: 25,3151 03700 RDOT
036647,000936: 25,3152 41225 DSU DMP # L/D = LEWD
036648,000937: 25,3153 01300 RDOTREF # -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
036649,000938: 25,3154 03614 FACTOR
036650,000939: 25,3155 43271 DDV DAD
036651,000940: 25,3156 15060 1/KB1
036652,000941: 25,3157 03674 V
036653,000942: 25,3160 41225 DSU DMP
036654,000943: 25,3161 01302 VREF
036655,000944: 25,3162 03614 FACTOR
036656,000945: 25,3163 41471 DDV PUSH
036657,000946:
036658,000947: 25,3164 15062 -1/KB2 # DELTA L/D INTO PDL
036659,000948: 25,3165 51400 BOV ABS # NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
036660,000949: 25,3166 53467 GOMAXL/D
036661,000950: 25,3167 50025 DSU BMN
036662,000951: 25,3170 15144 PT1/16
036663,000952: 25,3171 53176 NEXT1
036664,000953: 25,3172 43205 DMP DAD
036665,000954: 25,3173 15024 POINT1
036666,000955: 25,3174 15144 PT1/16
036667,000956: 25,3175 41565 SIGN PUSH # ATTACH SIGN OF PUSH TO MPAC THEN PUSH
036668,000957:
036669,000958: 25,3176 42545 NEXT1 DLOAD SL4
036670,000959: # DELTA L/D FROM PDL.
036671,000960: 25,3177 77615 DAD
036672,000961: 25,3200 03725 LEWD
036673,000962: 25,3201 41400 NEGTESTS BOV PUSH # L/D TO PDL FOR USE IN NEGTESTS.
036674,000963: 25,3202 53467 GOMAXL/D
036675,000964: 25,3203 17634 STODL L/D
036676,000965: # IF D-C20 POS, LATSW =0
036677,000966: # AND IF L/D NEG, L/D = 0.
036678,000967: 25,3204 03640 D
036679,000968: 25,3205 50025 DSU BMN
036680,000969: 25,3206 15066 C20
036681,000970: 25,3207 53523 LIMITL/D
036682,000971: 25,3210 71214 CLEAR DLOAD
036683,000972: 25,3211 03273 LATSW # =21D. ROLL OVER TOP, REGARDLESS.
036684,000973: # L/D FROM PDL.
036685,000974: 25,3212 71244 BPL DLOAD
036686,000975: 25,3213 53523 LIMITL/D
036687,000976: 25,3214 15204 3ZEROS
036688,000977: 25,3215 37634 STCALL L/D
036689,000978: 25,3216 53523 LIMITL/D # (GO TO)
036690,000979:
036691,000980: 25,3217 77745 DCONSTD DLOAD # TWO RANGER ENTRIES TO CONSTD HERE
036692,000981: 25,3220 03610 DIFF
036693,000982: # SAVE OLD VALUE OF DIFF FOR NEXT PASS.
036694,000983: 25,3221 17612 STODL DIFFOLD # DIFFOLD / 2 PI
036695,000984:
036696,000985: 25,3222 15046 Q7F
036697,000986: 25,3223 03226 STORE Q7
036698,000987:
036699,000988: 25,3224 47131 BECONSTD SSP RTB # A HUNTEST ENTRY INTO CONSTD.
036700,000989: 25,3225 03646 GOTOADDR # RESET MODE TO HUNTEST
036701,000990: 25,3226 52372 HUNTEST
036702,000991: 25,3227 54354 KILLGRP4 # DEACTIVATE GRP4 FROM HUNTEST.
036703,000992:
036704,000993: 25,3230 77604 CONSTD BOVB
036705,000994: 25,3231 57450 TCDANZIG # CLEAR OVF IND IF ON.
036706,000995:
036707,000996: 25,3232 41345 DLOAD DMP
036708,000997: 25,3233 03654 LEQ
036709,000998: 25,3234 03706 C/D0 # C/D0 = -4/D0 B-8
036710,000999: 25,3235 41325 PDDL DMP # LEQ C/D0 INTO PDL
036711,001000: 25,3236 15132 2HS # 2HS / 4 VS VS
036712,001001: 25,3237 03710 D0
036713,001002: 25,3240 43271 DDV DAD # RDOTREF = -2 HS D0/V
036714,001003: 25,3241 03674 V
036715,001004: 25,3242 03700 RDOT
036716,001005: 25,3243 43205 DMP DAD
036717,001006: 25,3244 15076 K2D # C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
036718,001007: 25,3245 77725 PDDL
036719,001008: 25,3246 03710 D0 # D0 /805
036720,001009:
036721,001010: 25,3247 77621 CONSTD1 BDSU # ENTER WITH DREF IN MPAC
036722,001011: 25,3250 03640 D
036723,001012: 25,3251 43205 DMP DAD
036724,001013: 25,3252 15074 K1D # K2D TERM FROM PUSH
036725,001014: 25,3253 52061 SL GOTO
036726,001015: 25,3254 20211 8D
036727,001016: 25,3255 53201 NEGTESTS # (GO TO)
036728,001017:
036729,001018:
036730,001019: 25,3256 77604 DOWNCNTL BOVB # INITIAL PART OF UPCONTROL.
036731,001020: 25,3257 57450 TCDANZIG # CLEAR OVFIND, IF ON.
036732,001021:
036733,001022: 25,3260 54345 DLOAD SR
036734,001023: 25,3261 03624 LAD
036735,001024: 25,3262 20611 8D
036736,001025: 25,3263 45325 PDDL DSU # RDTR = LAD(V1-V)
036737,001026: 25,3264 03674 V
036738,001027: 25,3265 00326 V1
036739,001028: 25,3266 43205 DMP DAD
036740,001029: 25,3267 03624 LAD
036741,001030: 25,3270 03700 RDOT
036742,001031: 25,3271 43205 DMP DAD
036743,001032: 25,3272 15076 K2D
036744,001033: # PUSH UP LAD.
036745,001034: 25,3273 45325 PDDL DSU # LAD + K2D(RDOT-RDTR) INTO PD
036746,001035: 25,3274 00326 V1
036747,001036: 25,3275 03674 V
036748,001037: 25,3276 41316 DSQ DMP
036749,001038: 25,3277 03624 LAD
036750,001039: 25,3300 65271 DDV PDDL # (V1-V)SQ LAD/(2 C1 HS) INTO PD
036751,001040: 25,3301 15142 2C1HS
036752,001041: 25,3302 00326 V1
036753,001042: 25,3303 56316 DSQ DDV
036754,001043: 25,3304 03622 VSQUARE
036755,001044: 25,3305 45265 BDDV DSU # DREF = (V/V1)SQ A0 - PD
036756,001045: 25,3306 00330 A0
036757,001046: # PUSH UP HERE
036758,001047: 25,3307 77650 GOTO # C(MPAC) = DREF
036759,001048: 25,3310 53247 CONSTD1
036760,001049:
036761,001050: # 2 2
036762,001051: # DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS
036763,001052:
036764,001053: # * START BALLISTIC PHASE ...
036765,001054:
036766,001055: # MM = 66 UPCONTRL ENTRY INTO KEP2.
036767,001056: 25,3311 66234 KEP RTB SSP
036768,001057: 25,3312 54342 P66 # DISPLAY TRIM GIMBAL ANGLE VALUES.
036769,001058: 25,3313 03646 GOTOADDR # SET GOTOADDR TO KEPLER PHASE.
036770,001059: 25,3314 53315 KEP2
036771,001060:
036772,001061: # KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
036773,001062: # IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
036774,001063: # .2 G BEFORE GOING ON TO P67.
036775,001064:
036776,001065: 25,3315 45345 KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
036777,001066: 25,3316 15036 Q7FKDMIN # (Q7F + KDMIN)/805
036778,001067: 25,3317 03640 D
036779,001068: 25,3320 72240 BMN TLOAD
036780,001069: 25,3321 53331 PREFINAL
036781,001070:
036782,001071:
036783,001072: # SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
036784,001073: 25,3322 03347 ROLLC # = +1 EVER ENTERED.
036785,001074: 25,3323 72214 BON TLOAD # IF D > .05G, KEEP PRESENT ROLL COMMAND.
036786,001075: 25,3324 03314 .05GSW # IF D < .05G, SET ROLL COMMAND = 0.
036787,001076: 25,3325 53327 +2
036788,001077: 25,3326 15204 3ZEROS # SET ROLLC & ROLLHOLD =0.
036789,001078: 25,3327 37347 +2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC)
036790,001079: 25,3330 54251 P62.3 # CALC DESIRED GIMBAL ANGLES AT PRESENT
036791,001080: # RN, VN TO YIELD TRIM ATTITUDE.
036792,001081: # AVAILABLE IN CPHI'S FOR N22.
036793,001082:
036794,001083: # START FINAL PHASE ..
036795,001084:
036796,001085: # MM = 67
036797,001086: 25,3331 47131 PREFINAL SSP RTB
036798,001087: 25,3332 03646 GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME
036799,001088: 25,3333 53331 PREFINAL # FROM HUNTEST.
036800,001089: 25,3334 54346 P67 # DISABLES GRP4. FINE IF FROM HUNTEST. BUT
036801,001090: # MAY ALSO REMOVE RESTART PROTECTION OF
036802,001091: # N69 (P65).
036803,001092: # ROLLC XRNGERR DNRNGERR
036804,001093: # XXX.XX DEG XXXX.X NM XXXX.X NM
036805,001094:
036806,001095: 25,3335 66214 SET SSP
036807,001096: 25,3336 03067 EGSW
036808,001097: 25,3337 03646 GOTOADDR
036809,001098: 25,3340 53341 PREDICT3
036810,001099:
036811,001100:
036812,001101: 25,3341 45345 PREDICT3 DLOAD DSU # IF V-VQUIT NEG, STOP STEERING
036813,001102: 25,3342 03674 V
036814,001103: 25,3343 15064 VQUIT
036815,001104: 25,3344 77440 BMN EXIT
036816,001105: 25,3345 53610 STEEROFF
036817,001106:
036818,001107: 25,3346 04606 TC E7SETTER # PRECAUTIONARY
036819,001108:
036820,001109: 25,3347 35750 CA TWELVE
036821,001110: 25,3350 55741 BACK TS JJ
036822,001111:
036823,001112: 25,3351 41673 CS V
036824,001113: 25,3352 51741 INDEX JJ
036825,001114: 25,3353 63633 AD VREFER # VREF - V, HIGHEST VREF AT END OF TABLE.
036826,001115: 25,3354 10000 CCS A # IF VREF-V POS LOOP BACK
036827,001116: 25,3355 11741 CCS JJ # DECREMENT JJ, JJ CANNOT BE ZERO
036828,001117: 25,3356 13350 TCF BACK
036829,001118: 25,3357 65001 AD ONE
036830,001119: 25,3360 55646 TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM)
036831,001120:
036832,001121: 25,3361 51741 INDEX JJ
036833,001122: 25,3362 43633 CS VREFER
036834,001123: 25,3363 51741 INDEX JJ
036835,001124: 25,3364 63634 AD VREFER +1 # V(K+1) - V(K) (POS NUM)
036836,001125: 25,3365 57646 XCH TEM1B
036837,001126: 25,3366 22007 ZL
036838,001127: 25,3367 00006 EXTEND
036839,001128: 25,3370 11646 DV TEM1B
036840,001129: 25,3371 55651 TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM
036841,001130:
036842,001131: 25,3372 35004 CAF FIVE
036843,001132: 25,3373 55650 BACK2 TS MM
036844,001133: 25,3374 35007 CAF THIRTEEN
036845,001134: 25,3375 27741 ADS JJ
036846,001135: 25,3376 50000 INDEX A
036847,001136: 25,3377 43633 CS VREFER
036848,001137: 25,3400 51741 INDEX JJ
036849,001138: 25,3401 63634 AD VREFER +1 # X(K+1) - X(K)
036850,001139: 25,3402 00006 EXTEND
036851,001140: 25,3403 71651 MP GRAD
036852,001141: 25,3404 51741 INDEX JJ
036853,001142: 25,3405 63633 AD VREFER
036854,001143: 25,3406 51650 INDEX MM
036855,001144: 25,3407 55652 TS FX # FX = AK + GRAD (AK+1 - AK)
036856,001145: 25,3410 11650 CCS MM
036857,001146: 25,3411 13373 TCF BACK2
036858,001147: 25,3412 57653 XCH FX +1 # ZERO FX +1 AND GET DREFR
036859,001148: 25,3413 61637 AD D
036860,001149: 25,3414 00006 EXTEND
036861,001150: 25,3415 71657 MP FX +5 # F1
036862,001151: 25,3416 52155 DXCH MPAC # MPAC = F1(D-DREF)
036863,001152:
036864,001153: 25,3417 00006 EXTEND
036865,001154: 25,3420 41700 DCS RDOT # FORM RDOTREF - RDOT
036866,001155: 25,3421 20001 DDOUBL
036867,001156: 25,3422 20001 DDOUBL
036868,001157: 25,3423 20001 DDOUBL # SCALE UP BY 8 FOR THIS PHASE.
036869,001158: 25,3424 61655 AD FX +3 # RDOTREF
036870,001159: 25,3425 00006 EXTEND
036871,001160: 25,3426 71656 MP FX +4 # F2
036872,001161: 25,3427 61654 AD FX +2 # RTOGO
036873,001162: 25,3430 20155 DAS MPAC # ADD F2(DADV1-DADVR)
036874,001163: 25,3431 30154 CA MPAC
036875,001164: 25,3432 55740 TS PREDANG
036876,001165: # L/D = LOD + (THETA- PREDANG)/ Y
036877,001166: 25,3433 06006 TC INTPRET
036878,001167:
036879,001168: 25,3434 45242 SR3 DSU
036880,001169: 25,3435 03702 THETAH
036881,001170: 25,3436 43014 BON BOFF
036882,001171: 25,3437 03305 GONEPAST
036883,001172: 25,3440 53465 GONEGLAD
036884,001173: 25,3441 03747 GONEBY
036885,001174: 25,3442 53450 HAVDNRNG
036886,001175: 25,3443 43145 DLOAD SET # SET GONEPAST IF GONEBY SET & LATCH IN -
036887,001176: 25,3444 13767 MAXRNG # DISPLAY = 9999.9 IF GONEBY PLACE
036888,001177: 25,3445 03065 GONEPAST
036889,001178: 25,3446 37716 STCALL DNRNGERR
036890,001179: 25,3447 53465 GONEGLAD
036891,001180:
036892,001181: 25,3450 03716 HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
036893,001182: 25,3451 77676 DCOMP # FALL SHORT IF NEG, OVERSHOOT IF POS
036894,001183: 25,3452 56204 BOVB DDV
036895,001184: 25,3453 57450 TCDANZIG # CLEAR OVFIND IF ON.
036896,001185: 25,3454 03653 FX # FX= DRANGE/D L/D = Y
036897,001186: 25,3455 40061 SL BOV
036898,001187: 25,3456 20206 5
036899,001188: 25,3457 53467 GOMAXL/D
036900,001189: 25,3460 40015 DAD BOV
036901,001190: 25,3461 03626 LOD
036902,001191: 25,3462 53467 GOMAXL/D
036903,001192: 25,3463 37634 STCALL L/D
036904,001193: 25,3464 53473 GLIMITER # (GO TO)
036905,001194:
036906,001195:
036907,001196: # GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
036908,001197:
036909,001198: 25,3465 77745 GONEGLAD DLOAD # SET L/D = -LAD
036910,001199: 25,3466 13466 GONEGLAD # (ANY NEGATIVE NUMBER WILL DO)
036911,001200:
036912,001201: 25,3467 41234 GOMAXL/D RTB DMP # L/D = LAD SIGN(MPAC)
036913,001202: 25,3470 45742 SIGNMPAC
036914,001203: 25,3471 03624 LAD
036915,001204: 25,3472 03634 STORE L/D # AND FALL INTO GLIMITER SECTION
036916,001205:
036917,001206: 25,3473 45345 GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D
036918,001207: 25,3474 15030 GMAX/2
036919,001208: 25,3475 03640 D
036920,001209: 25,3476 43244 BPL DAD # IF GMAX -D NEG, GO TO GOPOSLAD
036921,001210: 25,3477 53523 LIMITL/D
036922,001211: 25,3500 15030 GMAX/2
036923,001212: 25,3501 41240 BMN DMP
036924,001213: 25,3502 53520 GOPOSLAD
036925,001214: 25,3503 15132 2HS
036926,001215: 25,3504 41325 PDDL DMP # 2HS(GMAX-D) INTO PD
036927,001216: 25,3505 03654 LEQ
036928,001217: 25,3506 15202 1/GMAX
036929,001218: 25,3507 41215 DAD DMP
036930,001219: 25,3510 03624 LAD
036931,001220: 25,3511 56325 PDDL DDV # 2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
036932,001221: 25,3512 15134 2HSGMXSQ
036933,001222: 25,3513 03622 VSQUARE
036934,001223: 25,3514 75415 DAD SQRT # XLIM = SQRT(PD+(2HSGMAX/V)SQ)
036935,001224: 25,3515 51015 DAD BPL # IF RDOT+XLIM POS, GO TO LIMITL/D
036936,001225: 25,3516 03700 RDOT
036937,001226: 25,3517 53523 LIMITL/D
036938,001227:
036939,001228: 25,3520 77745 GOPOSLAD DLOAD
036940,001229: 25,3521 03624 LAD
036941,001230: 25,3522 03634 STOREL/D STORE L/D
036942,001231:
036943,001232: 25,3523 77745 LIMITL/D DLOAD
036944,001233: 25,3524 03634 L/D
036945,001234: 25,3525 17636 STODL L/D1
036946,001235: 25,3526 03622 VSQUARE
036947,001236:
036948,001237: 25,3527 77614 BON # NO LATERAL CONTROL IF PAST TARGET
036949,001238: 25,3530 03305 GONEPAST
036950,001239: 25,3531 53563 L355
036951,001240: 25,3532 43205 DMP DAD # Y= KLAT VSQUARE + LATBIAS
036952,001241: 25,3533 03632 KLAT
036953,001242: 25,3534 15112 LATBIAS # Y INTO PD
036954,001243: 25,3535 51525 L350 PDDL ABS # IF ABS(L/D)-L/DCMINR NEG, GO TO L353
036955,001244: 25,3536 03634 L/D
036956,001245: 25,3537 50025 DSU BMN
036957,001246: 25,3540 03630 L/DCMINR
036958,001247: 25,3541 53550 L353
036959,001248: 25,3542 75345 DLOAD SIGN # IF K2ROLL LATANG NEG, GO TO L357
036960,001249: 25,3543 03676 LATANG
036961,001250: 25,3544 03644 K2ROLL
036962,001251: 25,3545 71240 BMN DLOAD
036963,001252: 25,3546 53626 L357
036964,001253: 25,3547 41542 SR1 PUSH # Y = Y/2
036965,001254: 25,3550 75345 L353 DLOAD SIGN # IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
036966,001255: 25,3551 03676 LATANG
036967,001256: 25,3552 03644 K2ROLL
036968,001257: 25,3553 77625 DSU
036969,001258: 25,3554 71240 BMN DLOAD
036970,001259: 25,3555 53563 L355
036971,001260: 25,3556 03644 K2ROLL
036972,001261: 25,3557 57414 BONCLR DCOMP # IF NOSWITCH =1, K2ROLL= K2ROLL
036973,001262: 25,3560 03210 NOSWITCH
036974,001263: 25,3561 53563 L355
036975,001264: 25,3562 03644 STORE K2ROLL # K2ROLL = -K2ROLL
036976,001265:
036977,001266: 25,3563 56345 L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD)
036978,001267: 25,3564 03636 L/D1
036979,001268: 25,3565 03624 LAD # MPAC SET TO +-1 IF OVERFLOW***
036980,001269: 25,3566 65542 SR1 ACOS
036981,001270: 25,3567 43165 SIGN CLEAR
036982,001271: 25,3570 03644 K2ROLL
036983,001272: 25,3571 03270 NOSWITCH
036984,001273: 25,3572 03347 STORE ROLLC
036985,001274:
036986,001275: 25,3573 77776 ENDEXIT EXIT
036987,001276:
036988,001277: 25,3574 34765 OVERNOUT CAF ENDSPBIT # ENTRYDSP = 92D BIT13
036989,001278: 25,3575 70102 MASK CM/FLAGS
036990,001279: 25,3576 00006 EXTEND
036991,001280: 25,3577 13603 BZF NODISKY # OMIT DISPLAY.
036992,001281: 25,3600 31114 CA ENTRYVN # ALL ENTRY DISPLAYS ARE DONE HERE.
036993,001282: 25,3601 04647 TC BANKCALL
036994,001283: 25,3602 20604 CADR REGODSPR # NO ABORT IF DISKY IN USE
036995,001284:
036996,001285: 25,3603 00004 NODISKY INHINT
036997,001286: 25,3604 10067 CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED.
036998,001287: 25,3605 05165 TC CHANG1
036999,001288: 25,3606 04666 SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3)
037000,001289: 25,3607 77033 CADR SERVEXIT # AND END AVERAGEG JOB VIA ENDOFJOB.
037001,001290:
037002,001291:
037003,001292: # DISPLAY WHEN V IS LESS THAN VQUIT.
037004,001293:
037005,001294: 25,3610 77776 STEEROFF EXIT
037006,001295: 25,3611 04606 TC E7SETTER
037007,001296:
037008,001297: 25,3612 35067 CA PRIO16 # 2 LESS THAN NTRYPRIO.
037009,001298: 25,3613 05134 TC NOVAC
037010,001299: 25,3614 E6,1712 EBANK= AOG # ANY EB HERE
037011,001300: 25,3614 02360 54066 2CADR P67.1 # START UP REMAINDER OF P67
037012,001301:
037013,001302: # RTOGO LAT LONG
037014,001303: # XXXX.X NM XXX.XX DEG XXX.XX DEG
037015,001304:
037016,001305: 25,3616 05375 TC 2PHSCHNG # INHINT/RELINT DONE.
037017,001306: 25,3617 00414 OCT 00414 # 4.41 RESTART FOR P67.1 DISPLAY JOB.
037018,001307: 25,3620 10035 OCT 10035 # SERVICER 5.3 RESTART.
037019,001308:
037020,001309: 25,3621 01,2207 4P41SPT1 = 4.41SPOT
037021,001310: 25,3621 01,2253 5P3SPT15 = 5.3SPOT
037022,001311: 25,3621 33625 CA P67.2CAD # HEREAFTER, DO LAT, LONG.
037023,001312: 25,3622 55645 TS GOTOADDR
037024,001313:
037025,001314: 25,3623 06006 TC INTPRET
037026,001315: 25,3624 77650 GOTO
037027,001316: 25,3625 54401 P67.2CAD P67.2 # CONTINUE FOR LAT, LONG THIS TIME.
037028,001317:
037029,001318: 25,3626 75345 L357 DLOAD SIGN # L/D = L/DCMINR SIGN(L/D)
037030,001319: 25,3627 03630 L/DCMINR
037031,001320: 25,3630 03634 L/D
037032,001321: 25,3631 37636 STCALL L/D1
037033,001322: 25,3632 53563 L355 # (GO TO)
037034,001323:
037035,001324:
037036,001325: # TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
037037,001326:
037038,001327: 25,3633 00474 VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
037039,001328: 25,3634 01235 DEC .040809 # 13 POINTS ARE STORED AS THE INDEPENDENT
037040,001329: 25,3635 02337 DEC .076107 # VARIABLE AND THEN SIX 13 POINT FUNCTIONS
037041,001330: 25,3636 03721 DEC .122156 # OF V ARE STORED CONSECUTIVELY
037042,001331: 25,3637 05230 DEC .165546
037043,001332: 25,3640 06213 DEC .196012
037044,001333: 25,3641 10550 DEC .271945
037045,001334: 25,3642 11717 DEC .309533
037046,001335: 25,3643 13314 DEC .356222
037047,001336: 25,3644 14736 DEC .404192
037048,001337: 25,3645 16255 DEC .448067
037049,001338: 25,3646 16457 DEC .456023
037050,001339: 25,3647 25570 DEC .67918 # HIGH VELOCITY FOR SAFETY
037051,001340:
037052,001341: 25,3650 77526 DEC -.010337 # DRANGE/DA SCALED DRDA/(2700/805)
037053,001342: 25,3651 77360 DEC -.016550
037054,001343: 25,3652 77106 DEC -.026935
037055,001344: 25,3653 76516 DEC -.042039
037056,001345: 25,3654 76071 DEC -.058974
037057,001346: 25,3655 75570 DEC -.070721
037058,001347: 25,3656 74661 DEC -.098538
037059,001348: 25,3657 74436 DEC -.107482
037060,001349: 25,3660 73212 DEC -.147762
037061,001350: 25,3661 71640 DEC -.193289
037062,001351: 25,3662 54557 DEC -.602557
037063,001352: 25,3663 40000 DEC -.99999
037064,001353: 25,3664 40000 DEC -.99999
037065,001354:
037066,001355: 25,3665 77635 DEC -.0478599 B-3 # -DRANGE/DRDOT
037067,001356: 25,3666 77563 DEC -.0683663 B-3 # SCALED ((2VS/8 2700) DR/DRDOT)
037068,001357: 25,3667 77354 DEC -.1343468 B-3
037069,001358: 25,3670 76712 DEC -.2759846 B-3
037070,001359: 25,3671 76066 DEC -.4731437 B-3
037071,001360: 25,3672 75322 DEC -.6472087 B-3
037072,001361: 25,3673 73237 DEC -1.171693 B-3
037073,001362: 25,3674 72104 DEC -1.466382 B-3
037074,001363: 25,3675 70301 DEC -1.905171 B-3
037075,001364: 25,3676 65635 DEC -2.547990 B-3
037076,001365: 25,3677 57311 DEC -4.151220 B-3
037077,001366: 25,3700 50575 DEC -5.813617 B-3
037078,001367: 25,3701 50575 DEC -5.813617 B-3
037079,001368:
037080,001369: 25,3702 74443 DEC -.0134001 B3 # RDOTREF SCALED (8 RDT/2VS)
037081,001370: 25,3703 74333 DEC -.013947 B3
037082,001371: 25,3704 74433 DEC -.013462 B3
037083,001372: 25,3705 74763 DEC -.011813 B3
037084,001373: 25,3706 75432 DEC -.0095631 B3
037085,001374: 25,3707 75735 DEC -.00806946 B3
037086,001375: 25,3710 76200 DEC -.006828 B3
037087,001376: 25,3711 75735 DEC -.00806946 B3
037088,001377: 25,3712 75140 DEC -.0109791 B3
037089,001378: 25,3713 74075 DEC -.0151496 B3
037090,001379: 25,3714 73312 DEC -.0179817 B3
037091,001380: 25,3715 73732 DEC -.0159061 B3
037092,001381: 25,3716 73732 DEC -.0159061 B3
037093,001382:
037094,001383: 25,3717 00026 DEC .00137037 # 3.7 RTOGO SCALED RTOGO/2700
037095,001384: 25,3720 00077 DEC .00385185 # 10.4
037096,001385: 25,3721 00217 DEC .00874074 # 23.6
037097,001386: 25,3722 00431 DEC .017148
037098,001387: 25,3723 00712 DEC .027926
037099,001388: 25,3724 01136 DEC .037
037100,001389: 25,3725 02015 DEC .063296
037101,001390: 25,3726 02374 DEC .077889
037102,001391: 25,3727 03123 DEC .098815
037103,001392: 25,3730 04051 DEC .127519
037104,001393: 25,3731 05767 DEC .186963
037105,001394: 25,3732 07476 DEC .238148
037106,001395: 25,3733 11324 DEC .294185185
037107,001396:
037108,001397: 25,3734 76272 DEC -.051099 # -AREF/805
037109,001398: 25,3735 75472 DEC -.074534
037110,001399: 25,3736 74604 DEC -.101242
037111,001400: 25,3737 74210 DEC -.116646
037112,001401: 25,3740 74052 DEC -.122360
037113,001402: 25,3741 73735 DEC -.127081
037114,001403: 25,3742 73217 DEC -.147453
037115,001404: 25,3743 73013 DEC -.155528
037116,001405: 25,3744 73155 DEC -.149565
037117,001406: 25,3745 74151 DEC -.118509
037118,001407: 25,3746 76703 DEC -.034907
037119,001408: 25,3747 77575 DEC -.007950
037120,001409: 25,3750 77575 DEC -.007950
037121,001410:
037122,001411: 25,3751 00112 DEC .004491 # DRANGE/D L/D SCALED Y/2700
037123,001412: 25,3752 00204 DEC .008081
037124,001413: 25,3753 00407 DEC .016030
037125,001414: 25,3754 01113 DEC .035815
037126,001415: 25,3755 02161 DEC .069422
037127,001416: 25,3756 03260 DEC .104519
037128,001417: 25,3757 03717 DEC .122
037129,001418: 25,3760 05411 DEC .172407
037130,001419: 25,3761 10057 DEC .252852
037131,001420: 25,3762 13476 DEC .363148
037132,001421: 25,3763 20324 DEC .512963
037133,001422: 25,3764 21677 DEC .558519
037134,001423: 25,3765 21677 DEC .558519 # END OF STORED REFERENCE
037135,001424:
037136,001425:
037137,001426: # REENTRY CONSTANTS.
037138,001427:
037139,001428: # DEFINED BY EQUALS
037140,001429:
037141,001430: 25,3766 5010 DEC15 = LOW4
037142,001431: # GAMMAL1 = 22D
037143,001432:
037144,001433: 25,3766 16631 06755 MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1
037145,001434:
037146,001435: 26,2000 SETLOC REENTRY1
037147,001436: 26,2000 BANK
037148,001437:
037149,001438: 26,3016 COUNT* $$/ENTRY
037150,001439:
037151,001440: 26,3016 26,3211 BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE.DEFND IN TFF
037152,001441: # 1BITDP COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
037153,001442:
037154,001443: 26,3016 02525 1/12TH DEC .083333 # DP 1/12 USES HI WORD IN 1/3 BELOW
037155,001444:
037156,001445: 26,3017 12525 12525 1/3RD 2DEC .3333333333 # DP 1/3
037157,001446:
037158,001447: 26,3021 27,3463 1/16TH = DP2(-4)
037159,001448:
037160,001449: # BELOW: VS = VSAT = 25766.1973 FT/SEC
037161,001450:
037162,001451: # RE = 21,202,900 FEET
037163,001452:
037164,001453: 26,3021 04631 23146 LEWD1 2DEC .15
037165,001454:
037166,001455: 26,3023 03146 14632 POINT1 2DEC .1
037167,001456:
037168,001457: 26,3025 76314 71462 DLEWD0 2DEC -.05 # -.05
037169,001458:
037170,001459: 26,3027 05075 16051 GMAX/2 2DEC .16 # 8 GS / 2
037171,001460:
037172,001461: 26,3031 26,3203 3ZEROS EQUALS HI6ZEROS
037173,001462:
037174,001463: 26,3031 07777 00000 NEAR1/4 2OCT 0777700000 # 1/4 LESS 1 BIT IN UPPER PART.
037175,001464:
037176,001465: 26,3033 00236 36763 C18 2DEC .0097026346 # 500/2VS
037177,001466:
037178,001467: 26,3035 00204 11303 Q7FKDMIN 2DEC .0080745342 # 6.5/805 (Q7F +KDMIN) = 6 + .5)
037179,001468:
037180,001469: 26,3037 27,3463 C1/16 = DP2(-4)
037181,001470:
037182,001471: 26,3037 05260 05572 Q3 2DEC .167003132 # .07 2VS/21600
037183,001472:
037184,001473: 26,3041 12343 21616 Q5 2DEC .326388889 # .3 23500/21600
037185,001474:
037186,001475:
037187,001476: 26,3043 01073 31515 Q6 2DEC .0349 # 2 DEG, APPROX 820/23500
037188,001477:
037189,001478: 26,3045 00172 03571 Q7F 2DEC .0074534161 # 6/805 (VALUE OF Q7 IN FIXED MEM.)
037190,001479:
037191,001480: 26,3047 26,3201 Q19 = HALVE # Q19 = .5
037192,001481:
037193,001482: 26,3047 05136 32046 Q21 2DEC .1620370370 # 3500/21600
037194,001483:
037195,001484: 26,3051 75031 40775 Q22 2DEC -.092222222 # -1992/21600
037196,001485:
037197,001486: 26,3053 13132 33062 VLMIN 2DEC .34929485 # 18000/2 VS
037198,001487:
037199,001488: 26,3055 26,3173 VMIN = FOURTH # (VS/2) / 2VS
037200,001489:
037201,001490: 26,3055 00160 05104 C12 2DEC .00684572901 # 32 28500/(21202900 2 PI)
037202,001491:
037203,001492: 26,3057 14631 23146 1/KB1 2DEC .4 # 1 / 2.5
037204,001493:
037205,001494: 26,3061 74015 46560 -1/KB2 2DEC -.0077621078 B4 # - 1/(.0025 2 VS) EXP +4
037206,001495:
037207,001496: 26,3063 00475 35746 VQUIT 2DEC .019405269 # 1000 /2VS
037208,001497:
037209,001498: 26,3065 10262 02622 C20 2DEC .26086957 # 210/805 90 DEG MAX ROLL IF ABOVE C20
037210,001499:
037211,001500: 26,3067 05441 14412 C21 2DEC .17391304 # 140/805
037212,001501:
037213,001502: 26,3071 00022 36641 25NM 2DEC .0011574074 # 25/21600 (25 NAUT MILES)
037214,001503:
037215,001504: 26,3073 01003 06315 K1D 2DEC .0314453125 # =C16 805/256 = .01 805/256
037216,001505:
037217,001506: 26,3075 63073 73236 K2D 2DEC -.402596836 # -C17 2VS/256 = -.002 2VS/256
037218,001507:
037219,001508: 26,3077 32047 24367 KVSCALE 2DEC .81491944 # 12800/(2 VS .3048)
037220,001509:
037221,001510: 26,3101 37200 05636 KASCALE 2DEC .97657358 # 5.85 16384/(4 .3048 100 805)
037222,001511:
037223,001512: 26,3103 00046 13137 KTETA 2DEC* .383495203 E2 B-14* # 1000 2PI/16384(163.84)
037224,001513:
037225,001514: 26,3105 00017 30730 KT1 2DEC* .157788327 E2 B-14* # RE(2PI)/2 VS(16384) 163.84
037226,001515:
037227,001516: 26,3107 00040 30447 .05G 2DEC .002 # .05/25
037228,001517:
037229,001518: 26,3111 00000 17565 LATBIAS 2DEC .00003 # APPRX .5 NM/ 4(21600/2 PI)
037230,001519:
037231,001520: 26,3113 01727 20103 KWE 2DEC .120056652 B-1
037232,001521:
037233,001522: 26,3115 00121 17460 KACOS 2DEC .004973592 # 1/32(2PI)
037234,001523:
037235,001524: 26,3117 00400 00000 CHOOK 2DEC 1 B-6 # .25/16
037236,001525: 26,3121 01252 25253 1/24TH 2DEC .0833333333 B-1
037237,001526:
037238,001527: 26,3123 24365 30244 CH1 2DEC .32 B1 # 16 CH1/25 = 16 (1) /25
037239,001528:
037240,001529: 26,3125 77152 51354 KC3 2DEC -.0247622232 # -(4 VS VS/ 2 PI 805 RE)
037241,001530:
037242,001531: 26,3127 00336 21610 VRCONT 2DEC .0135836886 # 700/2 VSAT
037243,001532:
037244,001533: 26,3131 26,3201 HALVE EQUALS HIDPHALF
037245,001534: 26,3131 26,3173 FOURTH EQUALS HIDP1/4
037246,001535:
037247,001536: 26,3131 26,3201 1/GMAX EQUALS HALVE # 4/GMAX = 4 / 8
037248,001537: 26,3131 00433 02775 2HS 2DEC .0172786611 # 2 28500 25 32.2/(4 VS VS)
037249,001538:
037250,001539: 26,3133 00000 20017 2HSGMXSQ 2DEC .0000305717 # (2 28500 8 32.2/ 4 VS VS)SQ
037251,001540:
037252,001541: 26,3135 77765 70243 C001 2DEC -.000625 # -(4/25)/256 LEQ/D0 CONST
037253,001542:
037254,001543: 26,3137 31463 06315 POINT8 2DEC .8
037255,001544:
037256,001545: 26,3141 00541 33575 2C1HS 2DEC .0215983264 # 2 1.25 28500 805/(2 VS)SQ
037257,001546:
037258,001547: 26,3143 00146 14632 PT1/16 2DEC .1 B-4
037259,001548:
037260,001549: 26,3145 00052 30013 1/K44 2DEC .00260929464 # 2 VS/19749550
037261,001550:
037262,001551: 26,3147 20411 03041 VFINAL 2DEC .51618016 # 26600/2 VS
037263,001552:
037264,001553: 26,3151 20610 10513 VFINAL1 2DEC .523942273 # = 27000 / 2 VS
037265,001554:
037266,001555: 26,3153 11473 02355 1/KA1 2DEC .30048077 # 25/(1.3 64)
037267,001556:
037268,001557: 26,3155 00203 02234 KA2 2DEC .008 # .2/25
037269,001558:
037270,001559: 26,3157 16237 00146 KA3 2DEC .44720497 # = 90 4/805
037271,001560:
037272,001561: 26,3161 01456 03450 KA4 2DEC .049689441 # 40/805
037273,001562:
037274,001563: 26,3163 01727 01217 KALIM 2DEC .06 # 1.5/25
037275,001564:
037276,001565: 26,3165 26,3211 Q7MIN = NEARONE # 805/805 (DISABLE FACTOR CALC)
037277,001566: 26,3165 56232 72332 -HSCALED 2DEC -.55305018 # -28500/2 VS
037278,001567:
037279,001568: 26,3167 77000 43741 -KSCALE 2DEC -.0312424837 # -805/VS
037280,001569:
037281,001570: 26,3171 36702 21727 COS15 2DEC .965
037282,001571:
037283,001572: 26,3173 26,3016 LATSLOPE EQUALS 1/12TH
037284,001573:
037285,001574: # ... END OF RE-ENTRY CONSTANTS ...
037286,001575:
End of include-file REENTRY_CONTROL.agc. Parent file is MAIN.agc