Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
034633,000002: # Copyright: Public domain.
034634,000003: # Filename: REENTRY_CONTROL.agc
034635,000004: # Purpose: Part of the source code for Colossus build 237.
034636,000005: # This is for the Command Module's (CM) Apollo Guidance
034637,000006: # Computer (AGC), we believe for Apollo 8.
034638,000007: # Assembler: yaYUL
034639,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
034640,000009: # Website: www.ibiblio.org/apollo/index.html
034641,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
034642,000011: # Mod history: 2011-03-03 JL Adapted from corresponding Colossus 249 file.
034643,000012: # 2011-04-27 JL Fixed symbol name.
034644,000013: # 2012-10-08 JL Fixed incorrect value on p808.
034645,000014:
034646,000015: # # Page 795
034647,000016: # ENTRY INITIALIZATION ROUTINE
034648,000017: # -----------------------------
034649,000018:
034650,000019: 25,2000 BANK 25
034651,000020: 25,2000 SETLOC REENTRY
034652,000021: 25,2000 BANK
034653,000022:
034654,000023: 25,2000 COUNT* $$/ENTRY
034655,000024: 25,2000 E7,1451 EBANK= RTINIT
034656,000025:
034657,000026: 25,2000 4753 EBENTRY = EBANK7
034658,000027: 25,2000 4752 EBAOG EQUALS EBANK6
034659,000028: 25,2000 4675 NTRYPRIO EQUALS PRIO20 # (SERVICER)
034660,000029: 25,2000 0102 CM/FLAGS EQUALS STATE +6
034661,000030:
034662,000031: 25,2000 77776 STARTENT EXIT # MM = 63
034663,000032: # COME HERE FROM CM/POSE . RESTARTED IN CM/POSE.
034664,000033:
034665,000034: 25,2001 42113 CS ENTMASK # INITIALIZE ALL SWITCHES TO ZERO
034666,000035: # EXCEPT LATSW, ENTRYDSP AND GONEPAST.
034667,000036: # GONEBY 112D BIT8 FLAG7,SELF INITIALIZING.
034668,000037: 25,2002 00004 INHINT
034669,000038: 25,2003 70102 MASK CM/FLAGS
034670,000039: # ENTRYDSP = 92D B13
034671,000040: # GONEPAST=95D B10, RELVELSW=96D B9
034672,000041: # EGSW = 97D B8
034673,000042: # HIND=99D B6 INRLSW=100D B5
034674,000043: # LATSW=101D B4 .05GSW=102D B3
034675,000044:
034676,000045: 25,2004 62114 AD ENTRYSW # SET ENTRYDSP, LATSW, GONEPAST.
034677,000046: 25,2005 54102 TS CM/FLAGS
034678,000047:
034679,000048: 25,2006 00003 RELINT
034680,000049:
034681,000050: 25,2007 06006 TC INTPRET
034682,000051:
034683,000052: 25,2010 77735 SLOAD
034684,000053: 25,2011 03011 LODPAD
034685,000054: 25,2012 03626 STORE LOD
034686,000055:
034687,000056: 25,2013 77735 SLOAD
034688,000057: 25,2014 03010 LADPAD
034689,000058: 25,2015 03624 STORE LAD
034690,000059:
034691,000060: 25,2016 77605 DMP # L/DCMINR = LAD COS(15)
034692,000061: 25,2017 15320 COS15
034693,000062: 25,2020 17630 STODL L/DCMINR
034694,000063: 25,2021 15145 LATSLOPE
034695,000064: 25,2022 70405 DMP SR1 # KLAT = LAD/24
034696,000065: 25,2023 03624 LAD
034697,000066: # # Page 796
034698,000067: 25,2024 17632 STODL KLAT
034699,000068: 25,2025 15176 Q7F
034700,000069: 25,2026 17175 STODL Q7 # Q7 = Q7F
034701,000070: 25,2027 17334 NEARONE # 1.0 -1BIT
034702,000071: 25,2030 17614 STODL FACTOR
034703,000072: 25,2031 03624 LAD
034704,000073: 25,2032 57565 SIGN DCOMP
034705,000074: 25,2033 03327 HEADSUP # MAY BE NOISE FOR DISPLAY P61
034706,000075: 25,2034 37634 STCALL L/D # L/D = - LAD SGN(HEADSUP)
034707,000076:
034708,000077: 25,2035 52063 STARTEN1 # RETURN VIA GOTOADDR
034709,000078: 25,2036 47375 VLOAD VXV
034710,000079: 25,2037 01177 VN # (-7) M/CS
034711,000080: 25,2040 01760 UNITR # .5 UNIT REF COORDS
034712,000081: 25,2041 50256 UNIT DOT
034713,000082: 25,2042 03474 RT # RT/2 TARGET VECTOR REF COORDS
034714,000083: 25,2043 03676 STORE LATANG # LATANG = UNI.RT /4
034715,000084: 25,2044 47076 DCOMP RTB
034716,000085: 25,2045 45707 SIGNMPAC
034717,000086: 25,2046 17644 STODL K2ROLL # K2ROLL = -SGN(LATANG)
034718,000087:
034719,000088: 25,2047 03624 LAD
034720,000089: 25,2050 43205 DMP DAD
034721,000090: 25,2051 15200 Q21
034722,000091: 25,2052 15202 Q22
034723,000092: 25,2053 03712 STORE Q2 # Q2 = -1152 + 500 LAD
034724,000093:
034725,000094: 25,2054 66331 SSP SSP
034726,000095: 25,2055 03646 GOTOADDR # SET SELECTOR FOR INITIAL PASS
034727,000096: 25,2056 52260 INITROLL
034728,000097: 25,2057 03325 POSEXIT
034729,000098: 25,2060 52115 SCALEPOP # SET CM/POSE TO CONTINUE AT SCALEPOP
034730,000099:
034731,000100: 25,2061 77634 RTB
034732,000101: 25,2062 53603 SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
034733,000102:
034734,000103: # CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM AND RT. ALL ARE .5 UNIT AND IN
034735,000104: # REFERENCE COORDINATES.
034736,000105:
034737,000106: 25,2063 77220 STARTEN1 STQ VLOAD
034738,000107: 25,2064 03645 GOTOADDR
034739,000108: 25,2065 03401 LAT(SPL) # TARGET COORDINATES
034740,000109: 25,2066 43014 CLEAR CLEAR # DO CALL USING PAD RADIUS. WILL UNIT IT.
034741,000110: 25,2067 00662 ERADFLAG # ANYWAY.
034742,000111: 25,2070 01663 LUNAFLAG
034743,000112: 25,2071 15104 STODL LAT
034744,000113: 25,2072 15332 3ZEROS
034745,000114:
034746,000115: 25,2073 15110 STODL LAT +4 # SET ALT=0.
034747,000116: 25,2074 01205 PIPTIME # ESTABLISH RTINIT AT TIME OF PRESENT
034748,000117: # # Page 797
034749,000118: # RN AND VN.
034750,000119: 25,2075 37524 STCALL TIME/RTO # SAVE TIME BASE OF RTINIT.
034751,000120: 25,2076 26373 LALOTORV # C(MPAC) =TIME (PIPTIME)
034752,000121: 25,2077 77656 UNIT # ANSWER IN ALPHAV ALSO
034753,000122: 25,2100 17452 STODL RTINIT # .5 UNIT TARGET REF COORDS
034754,000123: 25,2101 12112 500SEC # NOMINAL ENTRY TIME FOR P63
034755,000124: # TIME/RTO = PIPTIME, STILL.
034756,000125: 25,2102 37606 STCALL DTEAROT # INITIALIZE EARROT
034757,000126: 25,2103 46215 EARROT1 # GET R5
034758,000127: 25,2104 72441 DOT SL1
034759,000128: 25,2105 01760 UNITR # RT/2 IN MPAC
034760,000129: 25,2106 77726 ACOS
034761,000130: 25,2107 37702 STCALL THETAH # RANGE ANGLE /360
034762,000131: 25,2110 03645 GOTOADDR # RETURN TO CALLER
034763,000132:
034764,000133: 25,2111 00003 01520 500SEC 2DEC 50000 B-28 # CS
034765,000134:
034766,000135: 25,2113 11774 ENTMASK OCT 11774
034767,000136: 25,2114 11010 ENTRYSW OCT 11010 # ENTRYDSP B13, GONEPAST B10, LATSW B4
034768,000137:
034769,000138: # # Page 798
034770,000139: 25,2115 77624 SCALEPOP CALL
034771,000140: 25,2116 52125 TARGETNG
034772,000141:
034773,000142: 25,2117 77776 EXIT
034774,000143:
034775,000144: 25,2120 05301 REFAZE10 TC PHASCHNG
034776,000145: 25,2121 10035 OCT 10035 # SERVICER 5.3 RESTART AT REFAZE10
034777,000146:
034778,000147: 25,2122 06006 TC INTPRET
034779,000148:
034780,000149: # JUMP TO PARTICULAR RE-ENTRY PHASE:
034781,000150:
034782,000151: # SEQUENCE
034783,000152: 25,2123 77650 GOTO
034784,000153: 25,2124 03645 GOTOADDR
034785,000154:
034786,000155:
034787,000156:
034788,000157: # GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS APPROPRIATE TO THE CURRENT PHASE OF
034789,000158: # RE-ENTRY. SEQUENCING IS AS FOLLOWS:
034790,000159:
034791,000160: # INITROLL ADDRESS IS SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT IS EXCEEDED. THEN HOLDS NEW ROLL
034792,000161: # ATTITUDE UNTIL VRTHRESH IS EXCEEDED. THEN BRANCHES TO
034793,000162:
034794,000163: # HUNTEST THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL L/D FROM PRESENT CONDITIONS IS LESS
034795,000164: # THAN THE DESIRED RANGE.
034796,000165: # IF NOT - A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG CONTROLLER.
034797,000166: # IF SO - CONTROL AND GOTOADDR ARE SET TO UPCONTRL.
034798,000167: # USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUGH
034799,000168: # HUNTEST.
034800,000169:
034801,000170: # UPCONTRL CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE. UPCONTRL IS TERMINATED EITHER
034802,000171: # (A) WHEN THE DRAG (AS MEASURED BY THE PIPAS) FALLS BELOW Q7 , OR
034803,000172: # (B) IF RDOT IS NEGATIVE AND REFERENCE VL EXCEEDS V.
034804,000173: # IN CASE (A), GOTOADDR IS SET TO KEP2 AND IN CASE (B), TO PREDICT3 SKIPPING THE KEPLER PHASE OF
034805,000174: # ENTRY.
034806,000175:
034807,000176: # KEP2 GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG. THE SPACECRAFT IS INSTANTANEOUSLY
034808,000177: # TRIMMED IN PITCH AND YAW TO THE COMPUTED RELATIVE VELOCITY. THE LAST COMPUTED ROLL ANGLE IS MAINTAINED.
034809,000178: # WHEN THE MEASURED DRAG EXCEEDS Q7 +0.5, GOTOADDR IS SET TO
034810,000179:
034811,000180: # PREDICT3 THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
034812,000181: # WHEN V IS LESS THAN VQUIT. AN EXIT IS MADE TO
034813,000182:
034814,000183: # P67.1 THE LAST COMPUTED ROLL ANGLE IS MAINTAINED. RATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE
034815,000184: # AND LONGITUDE ARE COMPUTED FOR DISPLAY.
034816,000185: # ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO TO THIS FINAL FLASHING DISPLAY.
034817,000186:
034818,000187: # # Page 799
034819,000188: # PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
034820,000189:
034821,000190:
034822,000191: # * START TARGETING ...
034823,000192:
034824,000193: 25,2125 E7,1451 EBANK= RTINIT
034825,000194:
034826,000195: # TARGETNG IS CALLED BY P61, FROM GROUP 4.
034827,000196: # TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
034828,000197:
034829,000198: # ALL MM COME HERE.
034830,000199: 25,2125 77214 TARGETNG BOFF VLOAD # ENTER WITH PROPER EB FROM CM/POSE(TEST)
034831,000200: 25,2126 03346 RELVELSW # RELVELSW = 96D BIT9
034832,000201: 25,2127 52133 GETVEL # WANT INERTIAL VEL. GO GET IT.
034833,000202: 25,2130 03526 -VREL # NEW V IS RELATIVE, CONTINUE
034834,000203:
034835,000204: 25,2131 52076 VCOMP GOTO # (VREL) = (V) + KWE UNITR*UNITW
034836,000205: 25,2132 52136 GETUNITV -1 # - VREL WAS LEFT BY CM/POSE
034837,000206:
034838,000207: 25,2133 74375 GETVEL VLOAD VXSC # INERTIAL V WANTED
034839,000208: 25,2134 01177 VN # KVSCALE = (12800 / .3048) / 2VS
034840,000209: 25,2135 15230 KVSCALE # KVSCALE = .81491944
034841,000210: 25,2136 03516 STORE VEL # V/2 VS
034842,000211:
034843,000212: 25,2137 44056 GETUNITV UNIT STQ
034844,000213: 25,2140 03373 60GENRET
034845,000214: 25,2141 17510 STODL UNITV
034846,000215: 25,2142 00043 34D
034847,000216: 25,2143 03622 STORE VSQUARE # VSQ/4
034848,000217:
034849,000218: 25,2144 77625 DSU # LEQ = VSQUARE - 1
034850,000219: 25,2145 15322 FOURTH # 4 G-S FULL SCALE
034851,000220: 25,2146 17654 STODL LEQ # LEQ/4
034852,000221:
034853,000222: 25,2147 00045 36D
034854,000223: 25,2150 27674 STOVL V # V/2 VS = VEL/2 VS
034855,000224:
034856,000225: 25,2151 03516 VEL
034857,000226: 25,2152 72441 DOT SL1 # RDOT= V.UNITR
034858,000227: 25,2153 01760 UNITR
034859,000228: 25,2154 27700 STOVL RDOT # RDOT / 2 VS
034860,000229:
034861,000230: 25,2155 01163 DELV # PIPA COUNTS IN PLATFORM COORDS.
034862,000231: 25,2156 41246 ABVAL DMP
034863,000232: 25,2157 15232 KASCALE
034864,000233: 25,2160 53152 SL1 BZE
034865,000234: 25,2161 55132 SETMIND
034866,000235: 25,2162 27640 DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG
034867,000236: 25,2163 03516 VEL
034868,000237: 25,2164 53435 VXV UNIT # UNI = UNIT(V*R)
034869,000238: # # Page 800
034870,000239: 25,2165 01760 UNITR
034871,000240: 25,2166 03502 STORE UNI # .5 UNI REF COORDS.
034872,000241:
034873,000242: 25,2167 71214 BOFF DLOAD
034874,000243: 25,2170 03346 RELVELSW
034875,000244: 25,2171 55073 GETETA
034876,000245: 25,2172 15332 3ZEROS
034877,000246: 25,2173 43225 UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE
034878,000247: # RTINIT WAS ESTABLISHED.
034879,000248: 25,2174 03524 TIME/RTO
034880,000249: 25,2175 01205 PIPTIME
034881,000250: 25,2176 37606 STCALL DTEAROT # GET PREDICTED TARGET VECTOR RT
034882,000251:
034883,000252: 25,2177 46225 EARROT2
034884,000253: 25,2200 40241 DOT SETPD # SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
034885,000254: 25,2201 03502 UNI # LATANG = RT.UNI
034886,000255: 25,2202 00001 0
034887,000256: 25,2203 27676 STOVL LATANG # LATANG = MAC LATANG / 4
034888,000257:
034889,000258: 25,2204 03474 RT
034890,000259: 25,2205 77614 CLEAR
034891,000260: 25,2206 03667 GONEBY # SHOW HAVE NOT GONE PAST TARGET.
034892,000261: 25,2207 50235 VXV DOT # IF RT*UNITR.UNI NEG, GONEBY=1
034893,000262: 25,2210 01760 UNITR # GONEPAST IS CONDITIONAL SW SET IN
034894,000263: 25,2211 03502 UNI # FINAL PHASE.
034895,000264: 25,2212 43044 BPL SET
034896,000265: 25,2213 52215 +2
034897,000266: 25,2214 03467 GONEBY # SHOW HAVE GONE PAST TARGET.
034898,000267:
034899,000268: 25,2215 77775 VLOAD
034900,000269: 25,2216 03474 RT
034901,000270: 25,2217 45241 GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR)
034902,000271: 25,2220 01760 UNITR
034903,000272: 25,2221 15162 NEAR1/4 # TO IMPROVE ACCURACY, CALC RANGE BY
034904,000273: 25,2222 43244 BPL DAD # TINYTHET IF HIGH ORDER PART OF
034905,000274: 25,2223 55135 TINYTHET # ARCCOS ARGUMENT IS ZERO
034906,000275: 25,2224 15162 NEAR1/4
034907,000276: 25,2225 65552 SL1 ACOS
034908,000277: 25,2226 03702 THETDONE STORE THETAH # THETAH/360
034909,000278: # HI WORD, LO BIT =1.32 NM=360 60/16384
034910,000279:
034911,000280: 25,2227 57414 BON DCOMP
034912,000281: 25,2230 03707 GONEBY # =1 IF HAVE GONE PAST TARGET.
034913,000282: # (SIGN MAY BECOME ERRATIC VERY NEAR
034914,000283: # TARGET DUE TO LOSS OF PRECISION.)
034915,000284: 25,2231 52232 +1
034916,000285: 25,2232 17714 STODL RTGON67 # RANGE ERROR: NEG IF WILL FALL SHORT.
034917,000286:
034918,000287: 25,2233 03640 D
034919,000288: 25,2234 50025 DSU BMN
034920,000289: # # Page 801
034921,000290: 25,2235 15240 .05G
034922,000291: 25,2236 52255 NO.05G
034923,000292: 25,2237 77214 SET VLOAD
034924,000293: 25,2240 03074 .05GSW
034925,000294: 25,2241 03433 DELVREF
034926,000295: 25,2242 50206 PUSH DOT
034927,000296: 25,2243 03542 UXA/2
034928,000297: 25,2244 63552 SL1 DSQ
034929,000298: 25,2245 47515 PDVL VSQ # EXCHANGE WITH PDL.
034930,000299: 25,2246 56225 DSU DDV
034931,000300: 25,2247 00001 0
034932,000301: 25,2250 75400 BOV SQRT
034933,000302: 25,2251 52253 NOLDCALC # OVFL LAST CLEARED IN EARROT2 ABOVE.
034934,000303: 25,2252 03727 STORE L/DCALC
034935,000304:
034936,000305: 25,2253 77650 NOLDCALC GOTO
034937,000306: 25,2254 03373 60GENRET
034938,000307:
034939,000308: 25,2255 52014 NO.05G CLEAR GOTO # THIS WAY FOR DAP.(MAY INTERRUPT)
034940,000309: 25,2256 03274 .05GSW # .05GSW = 102D B3
034941,000310: 25,2257 52253 NOLDCALC # KEEP SINGLE EXIT FOR TARGETING
034942,000311:
034943,000312: # # Page 802
034944,000313: # SUBROUTINES CALLED BY SCALEPOP (TARGETING):
034945,000314:
034946,000315: 26,3073 BANK 26
034947,000316: 26,2000 SETLOC REENTRY1
034948,000317: 26,2000 BANK
034949,000318:
034950,000319: 26,3073 COUNT* $$/ENTRY
034951,000320:
034952,000321: 26,3073 56345 GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
034953,000322: # DT/2 = 2/2 = 1
034954,000323: 26,3074 03700 RDOT
034955,000324: 26,3075 15314 -HSCALED
034956,000325: 26,3076 41325 PDDL DMP
034957,000326: 26,3077 03640 D
034958,000327: 26,3100 15316 -KSCALE
034959,000328: 26,3101 43271 DDV DAD
034960,000329: 26,3102 03674 V
034961,000330: # -RDOT/HS FROM PDL.
034962,000331: 26,3103 43205 DMP DAD
034963,000332: 26,3104 03640 D
034964,000333: 26,3105 03640 D
034965,000334: 26,3106 03640 STORE D
034966,000335:
034967,000336: 26,3107 71214 BON DLOAD # EGSW INDICATES FINAL PHASE.
034968,000337: 26,3110 03307 EGSW
034969,000338: 26,3111 55116 SUBETA
034970,000339: 26,3112 03702 THETAH
034971,000340: 26,3113 52005 DMP GOTO
034972,000341: 26,3114 15234 KTETA # = 1000x2PI/(2)E14 163.84
034973,000342: 26,3115 52173 UPDATERT
034974,000343:
034975,000344: 26,3116 45345 SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL.
034976,000345: 26,3117 03674 V
034977,000346: 26,3120 15322 VMIN
034978,000347: 26,3121 43044 BPL SET
034979,000348: 26,3122 55124 SUBETA2
034980,000349: 26,3123 03066 RELVELSW
034981,000350:
034982,000351: 26,3124 41345 SUBETA2 DLOAD DMP
034983,000352:
034984,000353: 26,3125 03702 THETAH
034985,000354: 26,3126 15236 KT1 # KT1 = KT
034986,000355: 26,3127 52071 DDV GOTO
034987,000356: 26,3130 03674 V # KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
034988,000357: 26,3131 52173 UPDATERT
034989,000358:
034990,000359: 26,3132 52145 SETMIND DLOAD GOTO
034991,000360: 26,3133 16326 1BITDP
034992,000361: 26,3134 52162 DSTORE
034993,000362:
034994,000363: # # Page 803
034995,000364: 26,3135 51425 TINYTHET DSU ABS # ENTER WITH X-.249
034996,000365: 26,3136 16327 1BITDP + 1 # GET 1/4 - MPAC
034997,000366: 26,3137 75461 SL SQRT # SCALE UP BEFORE SQRT
034998,000367: 26,3140 20216 13D # HAS FACTOR FOR UP SCALING
034999,000368: 26,3141 52005 DMP GOTO
035000,000369: 26,3142 15246 KACOS
035001,000370: 26,3143 52226 THETDONE
035002,000371:
035003,000372: # # Page 804
035004,000373: # * START INITIAL ROLL ...
035005,000374:
035006,000375: 25,2260 BANK 25
035007,000376: 25,2000 SETLOC REENTRY
035008,000377: 25,2000 BANK
035009,000378:
035010,000379: 25,2260 COUNT* $$/ENTRY
035011,000380:
035012,000381: # MM = 63 , 64 ...
035013,000382: 25,2260 43014 INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
035014,000383: 25,2261 03312 INRLSW
035015,000384: 25,2262 52354 INITRL1
035016,000385: 25,2263 03354 .05GSW
035017,000386: 25,2264 53521 LIMITL/D
035018,000387:
035019,000388: # MM = 64, NOW
035020,000389:
035021,000390: # 3
035022,000391: # KA = KA1 LEQ + KA2
035023,000392: 25,2265 63545 DLOAD DSQ
035024,000393: 25,2266 03654 LEQ
035025,000394: 25,2267 56205 DMP DDV
035026,000395: 25,2270 03654 LEQ
035027,000396: 25,2271 15304 1/KA1 # = 25 /(64 1.8)
035028,000397: 25,2272 47015 DAD RTB
035029,000398: 25,2273 15306 KA2 # = .2
035030,000399: 25,2274 54432 P64 # ROLLC VI RDOT
035031,000400: # XXX.XX DEG XXXXX. FPS XXXXX. FPS
035032,000401: 25,2275 03720 STORE KAT
035033,000402:
035034,000403: 25,2276 45345 DLOAD DSU # IF V-VFINAL1 NEG, GO TO FINAL PHASE.
035035,000404: 25,2277 03674 V
035036,000405: 25,2300 15302 VFINAL1
035037,000406: 25,2301 51014 CLEAR BPL # (CAN'T CLEAR INRLSW AFTER HERE:RESTARTS)
035038,000407: 25,2302 03265 GONEPAST # GONEPAST WAS INITIALLY SET=1 TO FORCE
035039,000408: # ROLLC TO REMAIN AS DEFINED BY HEADSUP
035040,000409: # UNTIL START OF P64. (UNTIL D > .05G)
035041,000410: 25,2303 52310 D0EQ
035042,000411: 25,2304 52131 SSP GOTO
035043,000412: 25,2305 03646 GOTOADDR
035044,000413: 25,2306 53311 KEP2 # AND IDLE UNTIL D>0.2G. (NO P66 HERE)
035045,000414: 25,2307 52343 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
035046,000415:
035047,000416: 25,2310 41345 D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4
035048,000417: 25,2311 03654 LEQ
035049,000418: 25,2312 15310 KA3
035050,000419: 25,2313 77615 DAD
035051,000420: 25,2314 15312 KA4
035052,000421: 25,2315 03710 STORE D0 # D0/805
035053,000422: 25,2316 40065 BDDV BOV
035054,000423: # # Page 805
035055,000424: 25,2317 15266 C001 # (-4/25 G) B-8
035056,000425: 25,2320 52321 +1 # CLEAR OVFIND, IF ON.
035057,000426: 25,2321 17706 STODL C/D0 # (-4/D0) B-8
035058,000427: 25,2322 03624 LAD # IF V-VFINAL +K(RDOT/V)CUBED POS,L/D=-LAD
035059,000428: 25,2323 17634 STODL L/D
035060,000429: 25,2324 03700 RDOT
035061,000430: 25,2325 41471 DDV PUSH
035062,000431: 25,2326 03674 V
035063,000432: 25,2327 41316 DSQ DMP
035064,000433: 25,2330 45271 DDV DSU
035065,000434: 25,2331 15276 1/K44
035066,000435: 25,2332 15300 VFINAL
035067,000436: # 3
035068,000437: # V-VFINAL +(RDOT/V) / K44 OVFL $
035069,000438:
035070,000439: 25,2333 40015 DAD BOV
035071,000440: 25,2334 03674 V
035072,000441: 25,2335 52343 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
035073,000442: 25,2336 71240 BMN DLOAD
035074,000443: 25,2337 52343 INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
035075,000444: 25,2340 03624 LAD
035076,000445: 25,2341 77676 DCOMP
035077,000446: 25,2342 03634 STORE L/D
035078,000447:
035079,000448: # SET INRLSW AT END FOR RESTART PROTECTION
035080,000449: 25,2343 77614 INROLOUT BOFSET # END OF PRE .05G PATH OF INITROLL.
035081,000450: 25,2344 03052 INRLSW # SWITCH IS ZERO INITIALLY.
035082,000451: 25,2345 53521 LIMITL/D # (GO TO)
035083,000452:
035084,000453: 25,2346 45345 KATEST DLOAD DSU # IF KAT - D POS, GO TO CONSTD
035085,000454: 25,2347 03720 KAT
035086,000455: 25,2350 03640 D # IF POS, OUT WITH COMMAND VIA LIMITL/D
035087,000456: 25,2351 52044 BPL GOTO
035088,000457: 25,2352 53521 LIMITL/D
035089,000458: 25,2353 53224 CONSTD
035090,000459:
035091,000460: 25,2354 43345 INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST
035092,000461: 25,2355 03700 RDOT
035093,000462: 25,2356 15260 VRCONT
035094,000463: 25,2357 45040 BMN CALL # IF POSITIVE, FALL INTO HUNTEST.
035095,000464: 25,2360 52346 KATEST
035096,000465:
035097,000466: 25,2361 53014 FOREHUNT # INITIALIZE HUNTEST.
035098,000467:
035099,000468: # # Page 806
035100,000469: # * START HUNT TEST ..
035101,000470:
035102,000471: # MM = 64
035103,000472: 25,2362 77731 SSP # INITIALIZE HUNTEST ON FIRST PASS
035104,000473: 25,2363 03646 GOTOADDR
035105,000474: 25,2364 52365 HUNTEST # MUST GO AFTER FOREHUNT FOR RESTARTS.
035106,000475:
035107,000476: 25,2365 77745 HUNTEST DLOAD
035108,000477: 25,2366 03640 D
035109,000478: 25,2367 17664 STODL A1 # A1/805 = A1/ 25G
035110,000479:
035111,000480: 25,2370 03624 LAD
035112,000481: 25,2371 17647 STODL TEM1B
035113,000482: 25,2372 03700 RDOT
035114,000483: 25,2373 71240 BMN DLOAD # IF RDOT NEG,TEM1B=LAD, OTHERWISE = LEWD
035115,000484: 25,2374 52400 A0CALC
035116,000485: 25,2375 03725 LEWD
035117,000486: 25,2376 17647 STODL TEM1B
035118,000487:
035119,000488: 25,2377 03700 RDOT
035120,000489: 25,2400 43271 A0CALC DDV DAD # V1 = V + RDOT/TEM1B
035121,000490: 25,2401 03647 TEM1B
035122,000491: 25,2402 03674 V
035123,000492: 25,2403 14326 STODL V1 # V1/2 VS
035124,000493:
035125,000494: 25,2404 03700 RDOT
035126,000495: 25,2405 56316 DSQ DDV # A0=(V1/V)SQ(D+RDOT SQ/(TEM1D 2 C1 HS)
035127,000496: 25,2406 03647 TEM1B
035128,000497: 25,2407 43271 DDV DAD
035129,000498: 25,2410 15272 2C1HS
035130,000499: 25,2411 03640 D
035131,000500: 25,2412 41205 DMP DMP
035132,000501: 25,2413 00326 V1
035133,000502: 25,2414 00326 V1
035134,000503: 25,2415 77671 DDV
035135,000504: 25,2416 03622 VSQUARE
035136,000505: 25,2417 14330 STODL A0 # A0/805 = A0/ 25G
035137,000506:
035138,000507: 25,2420 03700 RDOT
035139,000508: 25,2421 71244 BPL DLOAD
035140,000509: 25,2422 52425 V1LEAD
035141,000510: 25,2423 00330 A0
035142,000511: 25,2424 03664 STORE A1 # A1/25G
035143,000512:
035144,000513: 25,2425 51145 V1LEAD DLOAD BPL # IF L/D NEG, V1=V1 - 1000
035145,000514: 25,2426 03634 L/D
035146,000515: 25,2427 52434 HUNTEST1
035147,000516:
035148,000517: 25,2430 45345 DLOAD DSU
035149,000518: 25,2431 00326 V1
035150,000519: # # Page 807
035151,000520: 25,2432 15214 VQUIT
035152,000521: 25,2433 00326 STORE V1
035153,000522:
035154,000523: 25,2434 41345 HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
035155,000524: 25,2435 00330 A0
035156,000525: 25,2436 15272 2C1HS
035157,000526: 25,2437 40271 DDV SETPD
035158,000527: 25,2440 00326 V1
035159,000528: 25,2441 00001 0
035160,000529: 25,2442 56271 DDV DDV
035161,000530: 25,2443 00326 V1
035162,000531: 25,2444 03725 LEWD
035163,000532: 25,2445 03704 STORE ALP
035164,000533:
035165,000534: 25,2446 55221 BDSU BDDV # FACT1 = V1 / (1 - ALP)
035166,000535: 25,2447 17334 BARELY1
035167,000536: 25,2450 00326 V1
035168,000537: 25,2451 17616 STODL FACT1 # FACT1 / 2VS
035169,000538:
035170,000539: 25,2452 03704 ALP
035171,000540: 25,2453 41225 DSU DMP # FACT2 = ALP(ALP - 1) / A0
035172,000541: 25,2454 17334 BARELY1
035173,000542: 25,2455 03704 ALP
035174,000543: 25,2456 77671 DDV
035175,000544: 25,2457 00330 A0
035176,000545: 25,2460 03620 STORE FACT2 # FACT2 (25G)
035177,000546:
035178,000547: 25,2461 43205 DMP DAD
035179,000548: 25,2462 03175 Q7 # Q7 /805 = Q7 / 25G
035180,000549: 25,2463 03704 ALP # VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
035181,000550: 25,2464 44366 SQRT BDSU
035182,000551: 25,2465 17334 BARELY1
035183,000552: 25,2466 77605 DMP
035184,000553: 25,2467 03616 FACT1
035185,000554: 25,2470 03767 STORE VL # VL / 2 VS
035186,000555:
035187,000556: 25,2471 41221 BDSU DMP # GAMMAL1 = LEWD (V1-VL)/VL
035188,000557: 25,2472 00326 V1
035189,000558: 25,2473 03725 LEWD
035190,000559: 25,2474 77671 DDV
035191,000560: 25,2475 03767 VL
035192,000561: 25,2476 14027 STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL
035193,000562:
035194,000563: # GAMMAL1 = PDL 22D.
035195,000564: 25,2477 03767 VL
035196,000565: 25,2500 50025 DSU BMN # IF VL-VLMIN NEG, GO TO PREFINAL
035197,000566: 25,2501 15204 VLMIN
035198,000567: 25,2502 53326 PREFINAL
035199,000568:
035200,000569: 25,2503 63545 DLOAD DSQ
035201,000570: # # Page 808
035202,000571: 25,2504 03767 VL
035203,000572: 25,2505 17666 STODL VBARS # VBARS / 4 VS VS
035204,000573:
035205,000574: 25,2506 15330 HALVE # IF VSAT-VL NEG, GO TO CONSTD
035206,000575: 25,2507 50025 DSU BMN
035207,000576: 25,2510 03767 VL
035208,000577: 25,2511 53220 BECONSTD # SET MODE=HUNTEST, CONTINUE IN CONSTD
035209,000578: 25,2512 17662 STODL DVL # DVL / 2VS
035210,000579:
035211,000580: 25,2513 15330 HALVE
035212,000581: 25,2514 03672 STORE VS1 # VS1 = VSAT
035213,000582:
035214,000583: 25,2515 50025 DSU BMN # IF V1 GREATER THAN VSAT , GO ON
035215,000584: 25,2516 00326 V1
035216,000585: 25,2517 52525 GETDHOOK
035217,000586: 25,2520 77621 BDSU
035218,000587: 25,2521 03662 DVL
035219,000588: 25,2522 17662 STODL DVL # DVL = DVL - (VSAT-V1) = V1 - VL
035220,000589: 25,2523 00326 V1
035221,000590: 25,2524 03672 STORE VS1 # VS1 = V1, IN THIS CASE
035222,000591:
035223,000592: 25,2525 45145 GETDHOOK DLOAD CALL # DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
035224,000593: 25,2526 03672 VS1 # VS1 /2 VS
035225,000594: 25,2527 52776 DHOOKYQ7 # GO CALC DHOOK
035226,000595: 25,2530 03656 STORE DHOOK # DHOOK /25G
035227,000596:
035228,000597: 25,2531 56261 SR DDV
035229,000598: 25,2532 20606 5 # CHOOK
035230,000599: 25,2533 03175 Q7
035231,000600: 25,2534 77625 DSU
035232,000601: 25,2535 15250 CHOOK # 1 (-5) = .25 /8
035233,000602: 25,2536 03660 STORE AHOOKDV
035234,000603:
035235,000604: 25,2537 41215 DAD DMP # GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
035236,000605: 25,2540 15252 1/8TH # /DHOOK VBARS
035237,000606: 25,2541 15254 CH1
035238,000607: 25,2542 41205 DMP DMP
035239,000608: 25,2543 03662 DVL
035240,000609: 25,2544 03662 DVL
035241,000610: 25,2545 56271 DDV DDV
035242,000611: 25,2546 03656 DHOOK
035243,000612: 25,2547 03666 VBARS
035244,000613: 25,2550 50021 BDSU BMN
035245,000614: 25,2551 00027 GAMMAL1
035246,000615: 25,2552 52743 NEGAMA
035247,000616: 25,2553 03771 HUNTEST3 STORE GAMMAL
035248,000617:
035249,000618: 25,2554 77625 DSU # GAMMAL1=GAMMAL1 +Q19 (GAMMAL-GAMMAL1)
035250,000619: 25,2555 00027 GAMMAL1
035251,000620: 25,2556 43205 DMP DAD
035252,000621: # # Page 809
035253,000622: 25,2557 15330 Q19
035254,000623: 25,2560 00027 GAMMAL1
035255,000624: 25,2561 14027 STODL GAMMAL1
035256,000625: 25,2562 03771 GAMMAL
035257,000626:
035258,000627: # # Page 810
035259,000628: # *START RANGE PREDICTION ...
035260,000629:
035261,000630: # C(MPAC) = GAMMAL
035262,000631: 25,2563 60516 RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
035263,000632: 25,2564 77621 BDSU
035264,000633: 25,2565 15330 HALVE
035265,000634: 25,2566 17670 STODL COSG/2
035266,000635: 25,2567 03666 VBARS # E=SQRT(1+VBARS........
035267,000636:
035268,000637: 25,2570 41225 DSU DMP
035269,000638: 25,2571 15330 HALVE
035270,000639: 25,2572 03666 VBARS
035271,000640: 25,2573 41205 DMP DMP
035272,000641: 25,2574 03670 COSG/2
035273,000642: 25,2575 03670 COSG/2
035274,000643: 25,2576 43312 SL2 DAD
035275,000644: 25,2577 17330 C1/16 # C1/16 = 1/16
035276,000645: 25,2600 65366 SQRT PDDL # E/4 INTO PDL
035277,000646:
035278,000647: 25,2601 03666 VBARS
035279,000648: 25,2602 41205 DMP DMP # ASKEP/2 = ARCSIN(VBARS COSG SING/E)
035280,000649: 25,2603 03670 COSG/2
035281,000650: 25,2604 03771 GAMMAL
035282,000651: 25,2605 67471 DDV ASIN
035283,000652: 25,2606 41552 SL1 PUSH # ASKEP TO PDL 0.
035284,000653: 25,2607 17731 STODL ASKEP # BALLISTIC RANGE ASKEP/2PI
035285,000654:
035286,000655: # FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
035287,000656: 25,2610 03767 VL
035288,000657: 25,2611 43205 DMP DAD # ASP1 = Q2 + Q3 VL
035289,000658: 25,2612 15170 Q3
035290,000659: 25,2613 03712 Q2
035291,000660: 25,2614 03732 STORE ASP1 # FINAL PHASE RANGE ASP1/2 PI
035292,000661:
035293,000662: 25,2615 63525 PDDL DSQ # ASP1 TO PDL 2.
035294,000663: 25,2616 00326 V1
035295,000664: # 2
035296,000665: # ASPUP= -C12 LOG(V1 Q7/VBARS A0)/GAMMAL1
035297,000666: 25,2617 56205 DMP DDV
035298,000667: 25,2620 03175 Q7
035299,000668: 25,2621 03666 VBARS
035300,000669: 25,2622 45071 DDV CALL
035301,000670: 25,2623 00330 A0
035302,000671: 25,2624 46155 LOG # RETURN WITH -LOG IN MPAC
035303,000672:
035304,000673: 25,2625 56205 DMP DDV
035305,000674: 25,2626 15206 C12
035306,000675: 25,2627 00027 GAMMAL1
035307,000676: 25,2630 03733 STORE ASPUP # UP PHASE RANGE ASPUP / 2 PI
035308,000677: # # Page 811
035309,000678: 25,2631 41325 PDDL DMP # ASPUP TO PDL 4.
035310,000679: 25,2632 15256 KC3 # KC3 =-4 VS VS/ 2 PI 805 RE
035311,000680: # ASPDWN = KC3 RDOT V / A0
035312,000681: 25,2633 03700 RDOT
035313,000682: 25,2634 56205 DMP DDV
035314,000683: 25,2635 03674 V
035315,000684: 25,2636 00330 A0
035316,000685: 25,2637 41471 DDV PUSH # ASPDWN TO PDL 6.
035317,000686: 25,2640 03624 LAD
035318,000687: 25,2641 17734 STODL ASPDWN # RANGE TO PULL OUT ASPDWN /2 PI
035319,000688:
035320,000689: 25,2642 15174 Q6
035321,000690: 25,2643 41225 DSU DMP # ASP3 = Q5(Q6-GAMMAL)
035322,000691: 25,2644 03771 GAMMAL
035323,000692: 25,2645 15172 Q5
035324,000693: 25,2646 27735 STOVL ASP3 # GAMMA CORRECTION ASP3/2PI
035325,000694:
035326,000695: 25,2647 03731 ASKEP # GET HI-WD AND
035327,000696: 25,2650 17126 STODL ASPS(TM) # SAVE HI-WORD OF ASP'S FOR TM.
035328,000697:
035329,000698: 25,2651 03735 ASP3
035330,000699: 25,2652 43215 DAD DAD
035331,000700: # ASPDWN FROM PDL 6.
035332,000701: # ASPUP FROM PDL 4.
035333,000702: 25,2653 43215 DAD DAD
035334,000703: # ASP1 FROM PDL 2.
035335,000704: # ASKEP FROM PDL 0.
035336,000705: 25,2654 41025 DSU BOVB # CLEAR OVFIND.
035337,000706: 25,2655 03702 THETAH
035338,000707: 25,2656 57314 TCDANZIG
035339,000708: 25,2657 03610 STORE DIFF # DIFF = (ASP-THETAH) /2 PI
035340,000709: # ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
035341,000710:
035342,000711: 25,2660 45246 ABS DSU # IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
035343,000712: 25,2661 15222 25NM
035344,000713: 25,2662 43040 BMN BON
035345,000714: 25,2663 53025 GOTOUPSY
035346,000715: 25,2664 03311 HIND
035347,000716: 25,2665 52671 GETLEWD
035348,000717:
035349,000718: 25,2666 51145 DLOAD BPL
035350,000719: 25,2667 03610 DIFF
035351,000720: 25,2670 53213 DCONSTD # EVENTUALLY SETS MODE = HUNTEST.
035352,000721: 25,2671 41345 GETLEWD DLOAD DMP
035353,000722: # DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
035354,000723: 25,2672 03642 DLEWD
035355,000724: 25,2673 03610 DIFF
035356,000725: 25,2674 45325 PDDL DSU
035357,000726: 25,2675 03612 DIFFOLD
035358,000727: 25,2676 03610 DIFF
035359,000728: # # Page 812
035360,000729: 25,2677 77665 BDDV
035361,000730: 25,2700 77626 LWDSTORE STADR
035362,000731: 25,2701 74135 STORE DLEWD
035363,000732: 25,2702 50015 DAD BMN # IF LEWD+DLEWD NEG,DLEWD=-LEWD/2
035364,000733: 25,2703 03725 LEWD
035365,000734: 25,2704 52737 LEWDPTR
035366,000735: 25,2705 77600 BOV
035367,000736: 25,2706 52733 LEWDOVFL
035368,000737: 25,2707 03725 STORE LEWD
035369,000738:
035370,000739: 25,2710 77776 SIDETRAK EXIT
035371,000740:
035372,000741: 25,2711 34753 CA EBENTRY
035373,000742: 25,2712 54003 TS EBANK
035374,000743:
035375,000744: 25,2713 34763 CA PRIO16 # DROP GRP 5 RESTART PRIO TO 1 LESS THAN
035376,000745: 25,2714 55064 TS PHSPRDT5 # GRP 4.
035377,000746:
035378,000747: 25,2715 05301 TC PHASCHNG
035379,000748: 25,2716 00474 OCT 00474 # RESTART GRP 4 AT PRE-HUN.
035380,000749: # FORCE RESTART TO PICK UP IN GRP 4:
035381,000750: # USE PRIO 17 FOR GRP 4( < SERVICER PRIO)
035382,000751: 25,2717 34763 CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
035383,000752: # GRP 4 OR SERVICER.
035384,000753: 25,2720 05103 TC PRIOCHNG
035385,000754:
035386,000755: 25,2721 33024 CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
035387,000756: 25,2722 55645 TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR.
035388,000757:
035389,000758: 25,2723 06006 TC INTPRET
035390,000759:
035391,000760: 25,2724 43145 DLOAD SET
035392,000761: 25,2725 03610 DIFF
035393,000762: 25,2726 03071 HIND
035394,000763: 25,2727 17612 STODL DIFFOLD # DIFFOLD / 2 PI
035395,000764:
035396,000765: 25,2730 15176 Q7F
035397,000766: 25,2731 37175 STCALL Q7 # Q7 / 805 FPSS
035398,000767: 25,2732 52365 HUNTEST # (GO TO )
035399,000768:
035400,000769: 25,2733 77745 LEWDOVFL DLOAD
035401,000770: 25,2734 17334 NEARONE
035402,000771: 25,2735 37725 STCALL LEWD
035403,000772: 25,2736 53213 DCONSTD # (GO TO) ALSO WILL SET MODE = HUNTEST
035404,000773:
035405,000774: 25,2737 70545 LEWDPTR DLOAD SR1
035406,000775: 25,2740 03725 LEWD
035407,000776: 25,2741 52076 DCOMP GOTO
035408,000777: 25,2742 52700 LWDSTORE
035409,000778:
035410,000779: # # Page 813
035411,000780: # NEGAMA IS PART OF HUNTEST ...
035412,000781:
035413,000782: 25,2743 41205 NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC
035414,000783: 25,2744 03767 VL
035415,000784: 25,2745 15146 1/3RD
035416,000785: 25,2746 41325 PDDL DMP # PUSH GAMMAL VL/3
035417,000786: 25,2747 03725 LEWD
035418,000787: 25,2750 15146 1/3RD
035419,000788: 25,2751 43325 PDDL DAD # PUSH LEWD/3
035420,000789: 25,2752 03660 AHOOKDV
035421,000790: 25,2753 15145 1/12TH
035422,000791: 25,2754 41205 DMP DMP # DEL VL =(GAMMAL VL/3)/(LEWD/3-DVL
035423,000792: 25,2755 03662 DVL # (2/3 + AHOOKDV)(CH1 GS/DHOOK VL))
035424,000793: 25,2756 15254 CH1
035425,000794: 25,2757 56271 DDV DDV
035426,000795: 25,2760 03656 DHOOK
035427,000796: 25,2761 03767 VL
035428,000797: 25,2762 55221 BDSU BDDV
035429,000798: # LEWD/3
035430,000799: # GAMMAL VL /3
035431,000800: 25,2763 77615 DAD
035432,000801: 25,2764 03767 VL
035433,000802: 25,2765 37767 STCALL VL # VL/2 VS
035434,000803:
035435,000804: 25,2766 52776 DHOOKYQ7 # GO CALC Q7
035436,000805: # Q7=((1-VL/FACT1)SQ - ALP)/FACT2
035437,000806: 25,2767 17175 STODL Q7 # Q7 / 25G
035438,000807:
035439,000808: 25,2770 03767 VL
035440,000809: 25,2771 77716 DSQ
035441,000810: 25,2772 17666 STODL VBARS # VBARS / 4 VS VS
035442,000811:
035443,000812: 25,2773 15332 3ZEROS
035444,000813: 25,2774 77650 GOTO # SET GAMMAL = 0
035445,000814: 25,2775 52553 HUNTEST3
035446,000815:
035447,000816: 25,2776 56342 DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7)
035448,000817: 25,2777 03616 FACT1
035449,000818: 25,3000 72421 BDSU SL1
035450,000819: 25,3001 15330 HALVE
035451,000820: 25,3002 45316 DSQ DSU
035452,000821: 25,3003 03704 ALP
035453,000822: 25,3004 43471 DDV RVQ
035454,000823: 25,3005 03620 FACT2
035455,000824:
035456,000825: # # Page 814
035457,000826:
035458,000827:
035459,000828:
035460,000829: # COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
035461,000830: # HUNTEST IS SIDE-TRACKED AT SIDETRAK.
035462,000831: # PICK UP IN GROUP 4.
035463,000832:
035464,000833: 25,3006 06006 PRE-HUNT TC INTPRET
035465,000834: 25,3007 45014 CLEAR CALL
035466,000835: 25,3010 03271 HIND # HIND 99D BIT 6 FLAG 6
035467,000836: 25,3011 53014 FOREHUNT # RE-INITIALIZE HUNTEST AFTER RE-START.
035468,000837: 25,3012 77650 GOTO
035469,000838: 25,3013 52365 HUNTEST
035470,000839:
035471,000840:
035472,000841: 25,3014 77745 FOREHUNT DLOAD # INITIALIZE HUNTEST.
035473,000842: 25,3015 15332 3ZEROS
035474,000843: 25,3016 17612 STODL DIFFOLD
035475,000844: 25,3017 15156 DLEWD0
035476,000845: 25,3020 17642 STODL DLEWD
035477,000846: 25,3021 15150 LEWD1
035478,000847: 25,3022 03725 STORE LEWD
035479,000848: 25,3023 77616 RVQ
035480,000849:
035481,000850:
035482,000851:
035483,000852: 25,3024 53570 ADENDEXT CADR ENDEXIT
035484,000853:
035485,000854: # # Page 815
035486,000855: # * START UP CONTROL ...
035487,000856:
035488,000857: # MM = 65
035489,000858: 25,3025 77634 GOTOUPSY RTB # END OF HUNTEST
035490,000859: 25,3026 54440 P65 # HUNTEST USE OF GRP4 IS DISABLED BY P65
035491,000860: # USE FOR DISPLAY.
035492,000861: # SET MODE = UPCONTRL.
035493,000862: # RETURN FROM P65 DIRECTLY TO UPDONTRL
035494,000863: # VIA THE GOTOADDR AT REFAZE10.
035495,000864:
035496,000865: 25,3027 45345 UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
035497,000866: 25,3030 03640 D # (SUPPRESS LATERAL SWITCH)
035498,000867: 25,3031 15220 C21
035499,000868: 25,3032 43040 BMN SET
035500,000869: 25,3033 53035 +2
035501,000870: 25,3034 03070 NOSWITCH
035502,000871:
035503,000872: 25,3035 45345 DLOAD DSU # IF V-V1 POS, GO TO DOWN CONTROL.
035504,000873: 25,3036 03674 V
035505,000874: 25,3037 00326 V1
035506,000875: 25,3040 71244 BPL DLOAD
035507,000876: 25,3041 53252 DOWNCNTL
035508,000877: 25,3042 03640 D
035509,000878: 25,3043 50025 DSU BMN # IF D- Q7 NEG, GO TO KEP
035510,000879: 25,3044 03175 Q7
035511,000880: 25,3045 53305 KEP
035512,000881: 25,3046 51145 DLOAD BPL # IF RDOT NEG, DO VLTEST
035513,000882: 25,3047 03700 RDOT
035514,000883: 25,3050 53057 CONT1
035515,000884:
035516,000885: 25,3051 45345 VLTEST DLOAD DSU # IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
035517,000886: 25,3052 03674 V
035518,000887: 25,3053 03767 VL
035519,000888: 25,3054 50025 DSU BMN
035520,000889: 25,3055 15164 C18
035521,000890: 25,3056 53326 PREFINAL
035522,000891:
035523,000892: 25,3057 77745 CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
035524,000893: 25,3060 03640 D
035525,000894: 25,3061 50025 DSU BMN
035526,000895: 25,3062 00330 A0
035527,000896: 25,3063 53067 CONT3
035528,000897: 25,3064 52145 DLOAD GOTO
035529,000898: 25,3065 03624 LAD
035530,000899: 25,3066 53520 STOREL/D
035531,000900:
035532,000901: 25,3067 41345 CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
035533,000902: 25,3070 03640 D
035534,000903: 25,3071 03620 FACT2
035535,000904: # # Page 816
035536,000905: 25,3072 75415 DAD SQRT
035537,000906: 25,3073 03704 ALP
035538,000907: 25,3074 41221 BDSU DMP
035539,000908: 25,3075 17334 BARELY1
035540,000909: 25,3076 03616 FACT1
035541,000910: 25,3077 01160 STORE VREF # VREF / 2VS
035542,000911:
035543,000912: 25,3100 41221 BDSU DMP # RDOTREF = LEWD(V1-VREF)
035544,000913: 25,3101 00326 V1
035545,000914: 25,3102 03725 LEWD
035546,000915: 25,3103 15156 STODL RDOTREF # RDOTREF / 2VS
035547,000916:
035548,000917: 25,3104 03672 VS1
035549,000918: 25,3105 50025 DSU BMN # IF VSAT-VREF NEG, GO TO CONTINU2
035550,000919: 25,3106 01160 VREF
035551,000920: 25,3107 53126 CONTINU2
035552,000921:
035553,000922: 25,3110 41406 PUSH PUSH # VS1-VREF TO PDL TWICE
035554,000923: 25,3111 56205 DMP DDV # RDHOOK=CH1(1+DV AHOOKDV/DVL) DV DV
035555,000924: 25,3112 03660 AHOOKDV # /DHOOK VREF
035556,000925: 25,3113 03662 DVL # WHERE DV = (VS1-VREF)
035557,000926: 25,3114 41215 DAD DMP
035558,000927: 25,3115 15252 1/8TH
035559,000928: 25,3116 15254 CH1
035560,000929: 25,3117 41205 DMP DMP
035561,000930: # VS1-VREF FROM PDL TWICE.
035562,000931: 25,3120 77671 DDV
035563,000932: 25,3121 03656 DHOOK
035564,000933: 25,3122 44271 DDV BDSU
035565,000934: 25,3123 01160 VREF
035566,000935: 25,3124 01156 RDOTREF # C(RDOTREF)= LEWD (V1-VREF)
035567,000936: 25,3125 01156 STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK
035568,000937:
035569,000938: 25,3126 45345 CONTINU2 DLOAD DSU
035570,000939: 25,3127 03640 D
035571,000940: 25,3130 15312 Q7MIN
035572,000941: 25,3131 50004 BOVB BMN
035573,000942: 25,3132 57314 TCDANZIG # CLEAR OVFL IND, IF ON.
035574,000943: 25,3133 53144 UPCNTRL3
035575,000944: 25,3134 45345 DLOAD DSU
035576,000945: 25,3135 03664 A1
035577,000946: 25,3136 03175 Q7
035578,000947: 25,3137 45325 PDDL DSU
035579,000948: 25,3140 03640 D
035580,000949: 25,3141 03175 Q7
035581,000950: 25,3142 45471 DDV STADR
035582,000951: 25,3143 74163 STORE FACTOR # FACTOR / 25G
035583,000952:
035584,000953: # # Page 817
035585,000954: # SKIPPER
035586,000955:
035587,000956: # DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
035588,000957: # WHERE F1 = FACTOR
035589,000958:
035590,000959: 25,3144 77745 UPCNTRL3 DLOAD
035591,000960: 25,3145 03700 RDOT
035592,000961: 25,3146 41225 DSU DMP # L/D = LEWD
035593,000962: 25,3147 01156 RDOTREF # -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
035594,000963: 25,3150 03614 FACTOR
035595,000964: 25,3151 43271 DDV DAD
035596,000965: 25,3152 15210 1/KB1
035597,000966: 25,3153 03674 V
035598,000967: 25,3154 41225 DSU DMP
035599,000968: 25,3155 01160 VREF
035600,000969: 25,3156 03614 FACTOR
035601,000970: 25,3157 41471 DDV PUSH
035602,000971:
035603,000972: 25,3160 15212 -1/KB2 # DELTA L/D INTO PDL
035604,000973: 25,3161 51400 BOV ABS # NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
035605,000974: 25,3162 53465 GOMAXL/D
035606,000975: 25,3163 50025 DSU BMN
035607,000976: 25,3164 15274 PT1/16
035608,000977: 25,3165 53172 NEXT1
035609,000978: 25,3166 43205 DMP DAD
035610,000979: 25,3167 15152 POINT1
035611,000980: 25,3170 15274 PT1/16
035612,000981: 25,3171 41565 SIGN PUSH # ATTACH SIGN OF PUSH TO MPAC THEN PUSH
035613,000982:
035614,000983: 25,3172 42545 NEXT1 DLOAD SL4
035615,000984: # DELTA L/D FROM PDL.
035616,000985:
035617,000986: 25,3173 77615 DAD
035618,000987: 25,3174 03725 LEWD
035619,000988: 25,3175 41400 NEGTESTS BOV PUSH # L/D TO PDL FOR USE IN NEGTESTS.
035620,000989: 25,3176 53465 GOMAXL/D
035621,000990: 25,3177 17634 STODL L/D
035622,000991: # IF D-C20 POS, LATSW =0
035623,000992: # AND IF L/D NEG, L/D = 0.
035624,000993: 25,3200 03640 D
035625,000994: 25,3201 50025 DSU BMN
035626,000995: 25,3202 15216 C20
035627,000996: 25,3203 53521 LIMITL/D
035628,000997: 25,3204 71214 CLEAR DLOAD
035629,000998: 25,3205 03273 LATSW # =21D. ROLL OVER TOP, REGARDLESS.
035630,000999: # L/D FROM PDL.
035631,001000: 25,3206 71244 BPL DLOAD
035632,001001: 25,3207 53521 LIMITL/D
035633,001002: 25,3210 15332 3ZEROS
035634,001003: 25,3211 37634 STCALL L/D
035635,001004: 25,3212 53521 LIMITL/D # (GO TO)
035636,001005: # # Page 818
035637,001006: 25,3213 77745 DCONSTD DLOAD # TWO RANGER ENTRIES TO CONSTD HERE
035638,001007: 25,3214 03610 DIFF
035639,001008: # SAVE OLD VALUE OF DIFF FOR NEXT PASS.
035640,001009: 25,3215 17612 STODL DIFFOLD # DIFFOLD / 2 PI
035641,001010:
035642,001011: 25,3216 15176 Q7F
035643,001012: 25,3217 03175 STORE Q7
035644,001013:
035645,001014: 25,3220 47131 BECONSTD SSP RTB # A HUNTEST ENTRY INTO CONSTD.
035646,001015: 25,3221 03646 GOTOADDR # RESET MODE TO HUNTEST
035647,001016: 25,3222 52365 HUNTEST
035648,001017: 25,3223 54505 KILLGRP4 # DEACTIVATE GRP4 FROM HUNTEST.
035649,001018:
035650,001019: 25,3224 77604 CONSTD BOVB
035651,001020: 25,3225 57314 TCDANZIG # CLEAR OVF IND IF ON.
035652,001021:
035653,001022: 25,3226 41345 DLOAD DMP
035654,001023: 25,3227 03654 LEQ
035655,001024: 25,3230 03706 C/D0 # C/D0 = -4/D0 B-8
035656,001025: 25,3231 41325 PDDL DMP # LEQ C/D0 INTO PDL
035657,001026: 25,3232 15262 2HS # 2HS / 4 VS VS
035658,001027: 25,3233 03710 D0
035659,001028: 25,3234 43271 DDV DAD # RDOTREF = - 2 HS D0/V
035660,001029: 25,3235 03674 V
035661,001030: 25,3236 03700 RDOT
035662,001031: 25,3237 43205 DMP DAD
035663,001032: 25,3240 15226 K2D # C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
035664,001033: 25,3241 77725 PDDL
035665,001034: 25,3242 03710 D0 # D0 /805
035666,001035:
035667,001036: 25,3243 77621 CONSTD1 BDSU # ENTER WITH DREF IN MPAC
035668,001037: 25,3244 03640 D
035669,001038: 25,3245 43205 DMP DAD
035670,001039: 25,3246 15224 K1D # K2D TERM FROM PUSH
035671,001040: 25,3247 52061 SL GOTO
035672,001041: 25,3250 20211 8D
035673,001042: 25,3251 53175 NEGTESTS # (GO TO)
035674,001043:
035675,001044:
035676,001045: 25,3252 77604 DOWNCNTL BOVB # INITIAL PART OF UPCONTROL.
035677,001046: 25,3253 57314 TCDANZIG # CLEAR OVFIND , IF ON.
035678,001047:
035679,001048: 25,3254 54345 DLOAD SR
035680,001049: 25,3255 03624 LAD
035681,001050: 25,3256 20611 8D
035682,001051: 25,3257 45325 PDDL DSU # RDTR = LAD(V1-V)
035683,001052: 25,3260 03674 V
035684,001053: 25,3261 00326 V1
035685,001054: 25,3262 43205 DMP DAD
035686,001055: 25,3263 03624 LAD
035687,001056: # # Page 819
035688,001057: 25,3264 03700 RDOT
035689,001058: 25,3265 43205 DMP DAD
035690,001059: 25,3266 15226 K2D
035691,001060: # PUSH UP LAD.
035692,001061: 25,3267 45325 PDDL DSU # LAD + K2D(RDOT-RDTR) INTO PD
035693,001062: 25,3270 00326 V1
035694,001063: 25,3271 03674 V
035695,001064: 25,3272 41316 DSQ DMP
035696,001065: 25,3273 03624 LAD
035697,001066: 25,3274 65271 DDV PDDL # (V1-V)SQ LAD/(2 C1 HS) INTO PD
035698,001067: 25,3275 15272 2C1HS
035699,001068: 25,3276 00326 V1
035700,001069: 25,3277 56316 DSQ DDV
035701,001070: 25,3300 03622 VSQUARE
035702,001071: 25,3301 45265 BDDV DSU # DREF = (V/V1)SQ A0 - PD
035703,001072: 25,3302 00330 A0
035704,001073: # PUSH UP HERE
035705,001074: 25,3303 77650 GOTO # C(MPAC) = DREF
035706,001075: 25,3304 53243 CONSTD1
035707,001076:
035708,001077: # 2 2
035709,001078: # DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS
035710,001079:
035711,001080: # # Page 820
035712,001081: # * START BALLISTIC PHASE ...
035713,001082:
035714,001083: # MM = 66 UPCONTRL ENTRY INTO KEP2.
035715,001084: 25,3305 66234 KEP RTB SSP
035716,001085: 25,3306 54473 P66 # DISPLAY TRIM GIMBAL ANGLE VALUES.
035717,001086: 25,3307 03646 GOTOADDR # SET GOTOADDR TO KEPLER PHASE.
035718,001087: 25,3310 53311 KEP2
035719,001088:
035720,001089: # KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
035721,001090: # IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
035722,001091: # .2 G BEFORE GOING ON TO P67.
035723,001092:
035724,001093: 25,3311 45345 KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG,GO TO FINAL PHASE.
035725,001094: 25,3312 15166 Q7FKDMIN # (Q7F + KDMIN)/805
035726,001095: 25,3313 03640 D
035727,001096: 25,3314 72240 BMN TLOAD
035728,001097: 25,3315 53326 PREFINAL
035729,001098:
035730,001099:
035731,001100: # SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
035732,001101: 25,3316 03316 ROLLC # = +1 EVER ENTERED.
035733,001102: 25,3317 00157 STORE MPAC +2
035734,001103:
035735,001104: 25,3320 72214 BON TLOAD # IF D > .05G, KEEP PRESENT ROLL COMMAND.
035736,001105: 25,3321 03314 .05GSW # IF D < .06G, SET ROLL COMMAND = 0.
035737,001106: 25,3322 53324 +2
035738,001107: 25,3323 15332 3ZEROS # SET ROLLC & ROLLHOLD =0.
035739,001108: 25,3324 37316 +2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC)
035740,001109: 25,3325 54402 P62.3 # CALC DESIRED GIMBAL ANGLES AT PRESENT
035741,001110: # RN, VN TO YIELD TRIM ATTITUDE.
035742,001111: # AVAILABLE IN CPHI'S FOR N22.
035743,001112:
035744,001113: # # Page 821
035745,001114: # START FINAL PHASE ...
035746,001115:
035747,001116: # MM = 67
035748,001117: 25,3326 47131 PREFINAL SSP RTB
035749,001118: 25,3327 03646 GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME
035750,001119: 25,3330 53326 PREFINAL # FROM HUNTEST.
035751,001120: 25,3331 54477 P67 # DISABLES GRP4. FINE IF FROM HUNTEST.BUT
035752,001121: # MAY ALSO REMOVE RESTART PROTECTION OF
035753,001122: # M69 (P65).
035754,001123: # ROLLC XRNGERR DNRNGERR
035755,001124: # XXX.XX DEG XXXX.X NM XXXX.XX NM
035756,001125:
035757,001126: 25,3332 66214 SET SSP
035758,001127: 25,3333 03067 EGSW
035759,001128: 25,3334 03646 GOTOADDR
035760,001129: 25,3335 53336 PREDICT3
035761,001130:
035762,001131:
035763,001132: 25,3336 45345 PREDICT3 DLOAD DSU # IF V-VQUIT NEG, STOP STEERING
035764,001133: 25,3337 03674 V
035765,001134: 25,3340 15214 VQUIT
035766,001135: 25,3341 77440 BMN EXIT
035767,001136: 25,3342 53605 STEEROFF
035768,001137:
035769,001138: 25,3343 34753 CA EBENTRY # PRECAUTIONARY.
035770,001139: 25,3344 54003 TS EBANK
035771,001140:
035772,001141: 25,3345 35660 CA TWELVE
035773,001142: 25,3346 55771 BACK TS JJ
035774,001143:
035775,001144: 25,3347 41673 CS V
035776,001145: 25,3350 51771 INDEX JJ
035777,001146: 25,3351 63631 AD VREFER # VREF - V, HIGHEST VREF AT END OF TABLE.
035778,001147: 25,3352 10000 CCS A # IF VREF-V POS LOOP BACK
035779,001148: 25,3353 11771 CCS JJ # DECREMENT JJ , JJ CANNOT BE ZERO
035780,001149: 25,3354 13346 TCF BACK
035781,001150: 25,3355 64712 AD ONE
035782,001151: 25,3356 55646 TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM)
035783,001152:
035784,001153: 25,3357 51771 INDEX JJ
035785,001154: 25,3360 43631 CS VREFER
035786,001155: 25,3361 51771 INDEX JJ
035787,001156: 25,3362 63632 AD VREFER + 1 # V(K+1) - V(K) (POS NUM)
035788,001157: 25,3363 57646 XCH TEM1B
035789,001158: 25,3364 22007 ZL
035790,001159: 25,3365 00006 EXTEND
035791,001160: 25,3366 11646 DV TEM1B
035792,001161: 25,3367 55651 TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM)
035793,001162:
035794,001163: 25,3370 34715 CAF FIVE
035795,001164:
035796,001165: # # Page 822
035797,001166: 25,3371 55650 BACK2 TS MM
035798,001167: 25,3372 34720 CAF THIRTEEN
035799,001168: 25,3373 27771 ADS JJ
035800,001169: 25,3374 50000 INDEX A
035801,001170: 25,3375 43631 CS VREFER
035802,001171: 25,3376 51771 INDEX JJ
035803,001172: 25,3377 63632 AD VREFER + 1 # X(K+1) - X(K)
035804,001173: 25,3400 00006 EXTEND
035805,001174: 25,3401 71651 MP GRAD
035806,001175: 25,3402 51771 INDEX JJ
035807,001176: 25,3403 63631 AD VREFER
035808,001177: 25,3404 51650 INDEX MM
035809,001178: 25,3405 55652 TS FX # FX = AK + GRAD (AK+1 - AK)
035810,001179: 25,3406 11650 CCS MM
035811,001180: 25,3407 13371 TCF BACK2
035812,001181: 25,3410 57653 XCH FX +1 # ZERO FX +1 AND GET DREFR
035813,001182: 25,3411 61637 AD D
035814,001183: 25,3412 00006 EXTEND
035815,001184: 25,3413 71657 MP FX + 5 # F1
035816,001185: 25,3414 52155 DXCH MPAC # MPAC = F1(D-DREF)
035817,001186:
035818,001187: 25,3415 00006 EXTEND
035819,001188: 25,3416 41700 DCS RDOT # FORM RDOTREF - RDOT
035820,001189: 25,3417 20001 DDOUBL
035821,001190: 25,3420 20001 DDOUBL
035822,001191: 25,3421 20001 DDOUBL # SCALE UP BY 8 FOR THIS PHASE.
035823,001192: 25,3422 61655 AD FX + 3 # RDOTREF
035824,001193: 25,3423 00006 EXTEND
035825,001194: 25,3424 71656 MP FX + 4 # F2
035826,001195: 25,3425 61654 AD FX +2 # RTOGO
035827,001196: 25,3426 20155 DAS MPAC # ADD F2(DADV1-DADVR)
035828,001197: 25,3427 30154 CA MPAC
035829,001198: 25,3430 55770 TS PREDANG
035830,001199: # L/D = LOD +(THETA- PREDANG)/ Y
035831,001200: 25,3431 06006 TC INTPRET
035832,001201:
035833,001202: 25,3432 45242 SR3 DSU
035834,001203: 25,3433 03702 THETAH
035835,001204: 25,3434 43014 BON BOFF
035836,001205: 25,3435 03305 GONEPAST
035837,001206: 25,3436 53463 GONEGLAD
035838,001207: 25,3437 03747 GONEBY
035839,001208: 25,3440 53446 HAVDNRNG
035840,001209: 25,3441 43145 DLOAD SET # SET GONEPAST IF GONEBY SET & LATCH IN -
035841,001210: 25,3442 13765 MAXRNG # DISPLAY = 9999.9 IF GONEBY PLACE
035842,001211: 25,3443 03065 GONEPAST
035843,001212: 25,3444 37716 STCALL DNRNGERR
035844,001213: 25,3445 53463 GONEGLAD
035845,001214:
035846,001215: 25,3446 03716 HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
035847,001216: # # Page 823
035848,001217: 25,3447 77676 DCOMP # FALL SHORT IF NEG, OVERSHOOT IF POS
035849,001218: 25,3450 56204 BOVB DDV
035850,001219: 25,3451 57314 TCDANZIG # CLEAR OVFIND IF ON.
035851,001220: 25,3452 03653 FX # FX= DRANGE/D L/D = Y
035852,001221: 25,3453 40061 SL BOV
035853,001222: 25,3454 20206 5
035854,001223: 25,3455 53465 GOMAXL/D
035855,001224: 25,3456 40015 DAD BOV
035856,001225: 25,3457 03626 LOD
035857,001226: 25,3460 53465 GOMAXL/D
035858,001227: 25,3461 37634 STCALL L/D
035859,001228: 25,3462 53471 GLIMITER # (GO TO)
035860,001229:
035861,001230: # GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
035862,001231:
035863,001232: 25,3463 77745 GONEGLAD DLOAD # SET L/D = -LAD
035864,001233: 25,3464 13464 GONEGLAD # (ANY NEGATIVE NUMBER WILL DO)
035865,001234:
035866,001235: 25,3465 41234 GOMAXL/D RTB DMP # L/D = LAD SIGN(MPAC)
035867,001236: 25,3466 45707 SIGNMPAC
035868,001237: 25,3467 03624 LAD
035869,001238: 25,3470 03634 STORE L/D # AND FALL INTO GLIMITER SECTION
035870,001239:
035871,001240: 25,3471 45345 GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D
035872,001241: 25,3472 15160 GMAX/2
035873,001242: 25,3473 03640 D
035874,001243: 25,3474 43244 BPL DAD # IF GMAX -D NEG, GO TO GOPOSLAD
035875,001244: 25,3475 53521 LIMITL/D
035876,001245: 25,3476 15160 GMAX/2
035877,001246: 25,3477 41240 BMN DMP
035878,001247: 25,3500 53516 GOPOSLAD
035879,001248: 25,3501 15262 2HS
035880,001249: 25,3502 41325 PDDL DMP # 2HS(GMAX-D) INTO PD
035881,001250: 25,3503 03654 LEQ
035882,001251: 25,3504 15330 1/GMAX
035883,001252: 25,3505 41215 DAD DMP
035884,001253: 25,3506 03624 LAD
035885,001254: 25,3507 56325 PDDL DDV # 2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
035886,001255: 25,3510 15264 2HSGMXSQ
035887,001256: 25,3511 03622 VSQUARE
035888,001257: 25,3512 75415 DAD SQRT # XLIM = SQRT(PD+(2HSGMAX/V)SQ)
035889,001258: 25,3513 51015 DAD BPL # IF RDOT+XLIM POS, GO TO LIMITL/D
035890,001259: 25,3514 03700 RDOT
035891,001260: 25,3515 53521 LIMITL/D
035892,001261:
035893,001262: 25,3516 77745 GOPOSLAD DLOAD
035894,001263: 25,3517 03624 LAD
035895,001264: 25,3520 03634 STOREL/D STORE L/D
035896,001265:
035897,001266: # # Page 824
035898,001267: 25,3521 77745 LIMITL/D DLOAD
035899,001268: 25,3522 03634 L/D
035900,001269: 25,3523 17636 STODL L/D1
035901,001270: 25,3524 03622 VSQUARE
035902,001271:
035903,001272: 25,3525 77614 BON # NO LATERAL CONTROL IF PAST TARGET
035904,001273: 25,3526 03305 GONEPAST
035905,001274: 25,3527 53561 L355
035906,001275: 25,3530 43205 DMP DAD # Y= KLAT VSQUARE + LATBIAS
035907,001276: 25,3531 03632 KLAT
035908,001277: 25,3532 15242 LATBIAS # Y INTO PD
035909,001278: 25,3533 51525 L350 PDDL ABS # IF ABS(L/D)-L/DCMINR NEG, GO TO L353
035910,001279: 25,3534 03634 L/D
035911,001280: 25,3535 50025 DSU BMN
035912,001281: 25,3536 03630 L/DCMINR
035913,001282: 25,3537 53546 L353
035914,001283: 25,3540 75345 DLOAD SIGN # IF K2ROLL LATANG NEG, GO TO L357
035915,001284: 25,3541 03676 LATANG
035916,001285: 25,3542 03644 K2ROLL
035917,001286: 25,3543 71240 BMN DLOAD
035918,001287: 25,3544 53624 L357
035919,001288: 25,3545 41542 SR1 PUSH # Y = Y/2
035920,001289: 25,3546 75345 L353 DLOAD SIGN # IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
035921,001290: 25,3547 03676 LATANG
035922,001291: 25,3550 03644 K2ROLL
035923,001292: 25,3551 77625 DSU
035924,001293: 25,3552 71240 BMN DLOAD
035925,001294: 25,3553 53561 L355
035926,001295: 25,3554 03644 K2ROLL
035927,001296: 25,3555 57414 BONCLR DCOMP # IF NOSWITCH =1, K2ROLL= K2ROLL
035928,001297: 25,3556 03210 NOSWITCH
035929,001298: 25,3557 53561 L355
035930,001299: 25,3560 03644 STORE K2ROLL # K2ROLL = -K2ROLL
035931,001300:
035932,001301: 25,3561 56345 L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD)
035933,001302: 25,3562 03636 L/D1
035934,001303: 25,3563 03624 LAD # MPAC SET TO +-1 IF OVERFLOW***
035935,001304: 25,3564 65542 SR1 ACOS
035936,001305: 25,3565 77765 SIGN
035937,001306: 25,3566 03644 K2ROLL
035938,001307: 25,3567 03316 STORE ROLLC
035939,001308:
035940,001309: 25,3570 77776 ENDEXIT EXIT
035941,001310:
035942,001311: 25,3571 34676 OVERNOUT CA BIT13 # ENTRYDSP =92D B13
035943,001312: 25,3572 70102 MASK CM/FLAGS
035944,001313: 25,3573 00006 EXTEND
035945,001314: 25,3574 13600 BZF NODISKY # OMIT DISPLAY.
035946,001315:
035947,001316: 25,3575 31263 CA ENTRYVN # ALL ENTRY DISPLAYS ARE DONE HERE.
035948,001317: # # Page 825
035949,001318: 25,3576 04555 TC BANKCALL
035950,001319: 25,3577 20621 CADR REGODSPR # NO ABORT IF DISKY IN USE
035951,001320:
035952,001321: 25,3600 00004 NODISKY INHINT
035953,001322: 25,3601 10067 CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED.
035954,001323: 25,3602 05057 TC CHANG1
035955,001324: 25,3603 04574 SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3)
035956,001325: 25,3604 77136 CADR SERVEXIT # AND END AVERAGEG JOB VIA ENDOJOB.
035957,001326:
035958,001327: # # Page 826
035959,001328: # DISPLAY WHEN V IS LESS THAN VQUIT.
035960,001329:
035961,001330: 25,3605 77776 STEEROFF EXIT
035962,001331: 25,3606 34753 CA EBENTRY # PRECAUTIONARY.
035963,001332: 25,3607 54003 TS EBANK
035964,001333:
035965,001334: 25,3610 34763 CA PRIO16 # 2 LESS THAN NTRYPRIO.
035966,001335: 25,3611 05027 TC NOVAC
035967,001336: 25,3612 E6,1661 EBANK= AOG # ANY EB HERE
035968,001337: 25,3612 02511 54066 2CADR P67.1 # START UP REMAINDER OF P67
035969,001338: # RTOGO LAT LONG
035970,001339: # XXXX.X NM XXX.XX DEG XXX.XX DEG
035971,001340:
035972,001341: 25,3614 05261 TC 2PHSCHNG # INHINT/RELINT DONE.
035973,001342: 25,3615 00414 OCT 00414 # 4.41 RESTART FOR P67.1 DISPLAY JOB.
035974,001343: 25,3616 10035 OCT 10035 # SERVICER 5.3 RESTART.
035975,001344:
035976,001345: 25,3617 33623 CA P67.2CAD # HEREAFTER, DO LAT, LONG.
035977,001346: 25,3620 55645 TS GOTOADDR
035978,001347:
035979,001348: 25,3621 06006 TC INTPRET
035980,001349: 25,3622 77650 GOTO
035981,001350: 25,3623 54530 P67.2CAD P67.2 # CONTINUE FOR LAT, LONG THIS TIME.
035982,001351:
035983,001352: 25,3624 75345 L357 DLOAD SIGN # L/D = L/DCMINR SIGN(L/D)
035984,001353: 25,3625 03630 L/DCMINR
035985,001354: 25,3626 03634 L/D
035986,001355: 25,3627 37636 STCALL L/D1
035987,001356: 25,3630 53561 L355 # (GO TO )
035988,001357:
035989,001358: # # Page 827
035990,001359: # TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
035991,001360:
035992,001361:
035993,001362: 25,3631 00474 VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
035994,001363: 25,3632 01235 DEC .040809 # 13 POINTS ARE STORED AS THE INDEPENDENT
035995,001364: 25,3633 02337 DEC .076107 # VARIABLE AND THEN SIX 13 POINT FUNCTIONS
035996,001365: 25,3634 03721 DEC .122156 # OF V ARE STORED CONSECUTIVELY
035997,001366: 25,3635 05230 DEC .165546
035998,001367: 25,3636 06213 DEC .196012
035999,001368: 25,3637 10550 DEC .271945
036000,001369: 25,3640 11717 DEC .309533
036001,001370: 25,3641 13314 DEC .356222
036002,001371: 25,3642 14736 DEC .404192
036003,001372: 25,3643 16255 DEC .448067
036004,001373: 25,3644 16457 DEC .456023
036005,001374: 25,3645 25570 DEC .67918 # HIGHVELOCITY FOR SAFETY
036006,001375:
036007,001376: 25,3646 77526 DEC -.010337 # DRANGE/DA SCALED DRDA/(2700/805)
036008,001377: 25,3647 77360 DEC -.016550
036009,001378: 25,3650 77106 DEC -.026935
036010,001379: 25,3651 76516 DEC -.042039
036011,001380: 25,3652 76071 DEC -.058974
036012,001381: 25,3653 75570 DEC -.070721
036013,001382: 25,3654 74661 DEC -.098538
036014,001383: 25,3655 74436 DEC -.107482
036015,001384: 25,3656 73212 DEC -.147762
036016,001385: 25,3657 71640 DEC -.193289
036017,001386: 25,3660 54557 DEC -.602557
036018,001387: 25,3661 40000 DEC -.99999
036019,001388: 25,3662 40000 DEC -.99999
036020,001389:
036021,001390: 25,3663 77635 DEC -.0478599 B-3 # -DRANGE/DRDOT
036022,001391: 25,3664 77563 DEC -.0683663 B-3 # SCALED((2VS/8 2700) DR/DRDOT)
036023,001392: 25,3665 77354 DEC -.1343468 B-3
036024,001393: 25,3666 76712 DEC -.2759846 B-3
036025,001394: 25,3667 76066 DEC -.4731437 B-3
036026,001395: 25,3670 75322 DEC -.6472087 B-3
036027,001396: 25,3671 73237 DEC -1.171693 B-3
036028,001397: 25,3672 72104 DEC -1.466382 B-3
036029,001398: 25,3673 70301 DEC -1.905171 B-3
036030,001399: 25,3674 65635 DEC -2.547990 B-3
036031,001400: 25,3675 57311 DEC -4.151220 B-3
036032,001401: 25,3676 50575 DEC -5.813617 B-3
036033,001402: 25,3677 50575 DEC -5.813617 B-3
036034,001403:
036035,001404: # # Page 828
036036,001405:
036037,001406:
036038,001407:
036039,001408: 25,3700 74443 DEC -.0134001 B3 # RDOTREF SCALED (8 RDT/2VS)
036040,001409: 25,3701 74333 DEC -.013947 B3
036041,001410: 25,3702 74433 DEC -.013462 B3
036042,001411: 25,3703 74763 DEC -.011813 B3
036043,001412: 25,3704 75432 DEC -.0095631 B3
036044,001413: 25,3705 75735 DEC -.00806946 B3
036045,001414: 25,3706 76200 DEC -.006828 B3
036046,001415: 25,3707 75735 DEC -.00806946 B3
036047,001416: 25,3710 75140 DEC -.0109791 B3
036048,001417: 25,3711 74075 DEC -.0151498 B3
036049,001418: 25,3712 73312 DEC -.0179817 B3
036050,001419: 25,3713 73732 DEC -.0159061 B3
036051,001420: 25,3714 73732 DEC -.0159061 B3
036052,001421:
036053,001422: 25,3715 00015 DEC .0008067 # RANGE TO GO SCALED RTOGO/2700
036054,001423: 25,3716 00066 DEC .0032963 # 8.9
036055,001424: 25,3717 00206 DEC .0081852 # 22.1
036056,001425: 25,3720 00431 DEC .017148
036057,001426: 25,3721 00712 DEC .027926
036058,001427: 25,3722 01136 DEC .037
036059,001428: 25,3723 02015 DEC .063296
036060,001429: 25,3724 02374 DEC .077889
036061,001430: 25,3725 03123 DEC .098815
036062,001431: 25,3726 04051 DEC .127519
036063,001432: 25,3727 05767 DEC .186963
036064,001433: 25,3730 07476 DEC .238148
036065,001434: 25,3731 11324 DEC .294185185
036066,001435:
036067,001436: 25,3732 76272 DEC -.051099 # -AREF/805
036068,001437: 25,3733 75472 DEC -.074534
036069,001438: 25,3734 74604 DEC -.101242
036070,001439: 25,3735 74210 DEC -.116646
036071,001440: 25,3736 74052 DEC -.122360
036072,001441: 25,3737 73735 DEC -.127081
036073,001442: 25,3740 73217 DEC -.147453
036074,001443: 25,3741 73013 DEC -.155528
036075,001444: 25,3742 73155 DEC -.149565
036076,001445: 25,3743 74151 DEC -.118509
036077,001446: 25,3744 76703 DEC -.034907
036078,001447: 25,3745 77575 DEC -.007950
036079,001448: 25,3746 77575 DEC -.007950
036080,001449:
036081,001450: # # Page 829
036082,001451:
036083,001452:
036084,001453:
036085,001454: 25,3747 00112 DEC .004491 # DRANGE/D L/D SCALED Y/2700
036086,001455: 25,3750 00204 DEC .008081
036087,001456: 25,3751 00407 DEC .016030
036088,001457: 25,3752 01113 DEC .035815
036089,001458: 25,3753 02161 DEC .069422
036090,001459: 25,3754 03260 DEC .104519
036091,001460: 25,3755 03717 DEC .122
036092,001461: 25,3756 05411 DEC .172407
036093,001462: 25,3757 10057 DEC .252852
036094,001463: 25,3760 13476 DEC .363148
036095,001464: 25,3761 20324 DEC .512963
036096,001465: 25,3762 21677 DEC .558519
036097,001466: 25,3763 21677 DEC .558519 # END OF STORED REFERENCE
036098,001467:
036099,001468: # # Page 830
036100,001469: # REENTRY CONSTANTS.
036101,001470:
036102,001471: # DEFINED BY EQUALS
036103,001472:
036104,001473: 25,3764 4721 DEC15 = LOW4
036105,001474: # GAMMAL1 = 22D
036106,001475:
036107,001476: 25,3764 16631 06755 MAXRNG 2OCT 16631 06755 # DNRNGERR = 9999.9 IF GONEPAST=1
036108,001477:
036109,001478: 26,3144 BANK 26
036110,001479: 26,2000 SETLOC REENTRY1
036111,001480: 26,2000 BANK
036112,001481:
036113,001482: 26,3144 COUNT* $$/ENTRY
036114,001483:
036115,001484: 26,3144 27,3333 BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE.DEFND IN TFF
036116,001485: # 1BITDP COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
036117,001486:
036118,001487: 26,3144 02525 1/12TH DEC .083333 # DP 1/12 USES HI WORD IN 1/3 BELOW
036119,001488: 26,3145 12525 12525 1/3RD 2DEC .3333333333 # DP 1/3
036120,001489:
036121,001490:
036122,001491: # BELOW: VS = VSAT = 25766.1973 FT/SEC
036123,001492:
036124,001493: # RE = 21,202,900 FEET
036125,001494:
036126,001495: 26,3147 04631 23146 LEWD1 2DEC .15
036127,001496: 26,3151 03146 14632 POINT1 2DEC .1
036128,001497: 26,3153 06314 31463 POINT2 2DEC .2 # .2
036129,001498: 26,3155 76314 71462 DLEWD0 2DEC -.05 # -.05
036130,001499: 26,3157 05075 16051 GMAX/2 2DEC .16 # 8 GS / 2
036131,001500: 26,3161 26,3331 3ZEROS EQUALS HI6ZEROS
036132,001501: 26,3161 07777 00000 NEAR1/4 2OCT 07777 00000 # 1/4 LESS 1 BIT IN UPPER PART.
036133,001502: 26,3163 00236 36763 C18 2DEC .0097026346 # 500/2VS
036134,001503: 26,3165 00204 11303 Q7FKDMIN 2DEC .0080745342 # 6.5/805 (Q7F +KDMIN) = 6 + .5)
036135,001504: 26,3167 27,3327 C1/16 = DP2(-4)
036136,001505:
036137,001506: 26,3167 05260 05572 Q3 2DEC .167003132 # .07 2VS/21600
036138,001507: 26,3171 12343 21616 Q5 2DEC .326388889 # .3 23500/21600
036139,001508: # # Page 831
036140,001509: 26,3173 01073 31515 Q6 2DEC .0349 # 2 DEG, APPROX 820/23500
036141,001510: 26,3175 00172 03571 Q7F 2DEC .0074534161 # 6/805 (VALUE OF Q7 IN FIXED MEM.)
036142,001511: 26,3177 26,3327 Q19 = HALVE # Q19 = .5
036143,001512: 26,3177 00573 10230 Q21 2DEC .0231481481 # 500/21600
036144,001513: 26,3201 76226 45761 Q22 2DEC -.053333333 # -1152/21600
036145,001514: 26,3203 13132 33062 VLMIN 2DEC .34929485 # 18000/2 VS
036146,001515: 26,3205 26,3321 VMIN = FOURTH # (VS/2) / 2VS
036147,001516: 26,3205 00160 05104 C12 2DEC .00684572901 # 32 28500/(21202900 2 PI)
036148,001517: 26,3207 11322 32265 1/KB1 2DEC .29411765 # 1 / 3.4
036149,001518: 26,3211 75047 72454 -1/KB2 2DEC -.0057074322 B4 # - 1/( .0034 2 VS) EXP +4
036150,001519: 26,3213 00475 35746 VQUIT 2DEC .019405269 # 1000 /2VS
036151,001520: 26,3215 06751 27515 C20 2DEC .21739130 # (175 FPSS) LIFT UP IF ABOVE C20
036152,001521: 26,3217 05441 14412 C21 2DEC .17391304 # 140/805
036153,001522: 26,3221 00022 36641 25NM 2DEC .0011574074 # 25/21600 (25 NAUT MILES)
036154,001523: 26,3223 01003 06315 K1D 2DEC .0314453125 # =C16 805/256 = .01 805/256
036155,001524: 26,3225 71435 75516 K2D 2DEC -.201298418 # -C17 2VS/256 = -.001 2VS/256
036156,001525: 26,3227 32047 24367 KVSCALE 2DEC .81491944 # 12800/(2 VS .3048)
036157,001526: 26,3231 37200 05636 KASCALE 2DEC .97657358 # 5.85 16384/(4 .3048 100 805)
036158,001527: 26,3233 00046 13137 KTETA 2DEC* .383495203 E2 B-14* # 1000 2PI/16384(163.84)
036159,001528: 26,3235 00017 30730 KT1 2DEC* .157788327 E 2 # RE(2PI)/2 VS(16384) 163.84
036160,001529: 26,3237 00040 30447 .05G 2DEC .002 # .05/25
036161,001530: 26,3241 00000 17565 LATBIAS 2DEC .00003 # APPRX .5 NM/ 4(21600/2 PI)
036162,001531: 26,3243 01727 20103 KWE 2DEC .120056652 B-1
036163,001532: 26,3245 00121 17460 KACOS 2DEC .004973592 # 1/32(2PI)
036164,001533: 26,3247 01000 00000 CHOOK 2DEC 1 B-5 # .25/8
036165,001534: 26,3251 04000 00000 1/8TH 2DEC .125
036166,001535: # # Page 832
036167,001536: 26,3253 12172 34122 CH1 2DEC .32 # 8 CH1/25 = 8 (1) /25
036168,001537: 26,3255 77152 51354 KC3 2DEC -.0247622232 # -(4 VS VS/ 2 PI 805 RE)
036169,001538: 26,3257 00336 21610 VRCONT 2DEC .0135836886 # 700/2 VSAT
036170,001539: 26,3261 26,3327 HALVE EQUALS HIDPHALF
036171,001540: 26,3261 26,3321 FOURTH EQUALS HIDP1/4
036172,001541:
036173,001542: 26,3261 26,3327 1/GMAX EQUALS HALVE # 4/GMAX = 4 / 8
036174,001543: 26,3261 00433 02775 2HS 2DEC .0172786611 # 2 28500 25 32.2/(4 VS VS)
036175,001544: 26,3263 00000 20017 2HSGMXSQ 2DEC .0000305717 # (2 28500 8 32.2/ 4 VS VS)SQ
036176,001545: 26,3265 77765 70243 C001 2DEC -.000625 # -(4/25)/256 LEQ/D0 CONST
036177,001546: 26,3267 31463 06315 POINT8 2DEC .8
036178,001547: 26,3271 00541 33575 2C1HS 2DEC .0215983264 # 2 1.25 28500 805/(2 VS)SQ
036179,001548: 26,3273 00146 14632 PT1/16 2DEC .1 B-4
036180,001549: 26,3275 00052 30013 1/K44 2DEC .00260929464 # 2 VS/19749550
036181,001550: 26,3277 20411 03041 VFINAL 2DEC .51618016 # 26600/2 VS
036182,001551: 26,3301 20610 10513 VFINAL1 2DEC .523942273 # = 27000 / 2 VS
036183,001552: 26,3303 11473 02355 1/KA1 2DEC .30048077 # 25/(1.3 64)
036184,001553: 26,3305 00203 02234 KA2 2DEC .008 # .2 / 25
036185,001554: 26,3307 16237 00146 KA3 2DEC .44720497 # = 90 4/805
036186,001555: 26,3311 01456 03450 KA4 2DEC .049689441 # 40/805
036187,001556: 26,3313 26,3311 Q7MIN = KA4 # = 40/805 = .049689441
036188,001557: 26,3313 56232 72332 -HSCALED 2DEC -.55305018 # -28500/2 VS
036189,001558: 26,3315 77000 43741 -KSCALE 2DEC -.0312424837 # -805/VS
036190,001559: 26,3317 36702 21727 COS15 2DEC .965
036191,001560: 26,3321 26,3144 LATSLOPE EQUALS 1/12TH
036192,001561: # ... END OF RE-ENTRY CONSTANTS ...
End of include-file REENTRY_CONTROL.agc. Parent file is MAIN.agc