Source Code

028209,000001: # Copyright: Public domain. 028210,000002: # Filename: Template.agc 028211,000003: # Purpose: Part of the source code for Colossus, build 249. 028212,000004: # It is part of the source code for the Command Module's (CM) 028213,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 028214,000006: # Assembler: yaYUL 028215,000007: # Reference: pp. 644-696 of 1701.pdf. 028216,000008: # Contact: Ron Burkey <info@sandroid.org>. 028217,000009: # Website: www.ibiblio.org/apollo. 028218,000010: # Mod history: 08/15/04 RSB. Began transcribing. Unfortunately, while 028219,000011: # there's a corresponding Luminary131 file, 028220,000012: # there's not too much overlap with it. 028221,000013: # 2010-10-24 JL Indentation fixes. 028222,000014: # 2011-05-07 JL Flag SBANK= workarounds for future removal. 028223,000015: # Fix garbled section on page 671. 028224,000016: 028225,000017: # The contents of the "Colossus249" files, in general, are transcribed 028226,000018: # from a scanned document obtained from MIT's website, 028227,000019: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 028228,000020: # document read, in part: 028229,000021: 028230,000022: # Assemble revision 249 of AGC program Colossus by NASA 028231,000023: # 2021111-041. October 28, 1968. 028232,000024: 028233,000025: # This AGC program shall also be referred to as 028234,000026: # Colossus 1A 028235,000027: 028236,000028: # Prepared by 028237,000029: # Massachusetts Institute of Technology 028238,000030: # 75 Cambridge Parkway 028239,000031: # Cambridge, Massachusetts 028240,000032: # under NASA contract NAS 9-4065. 028241,000033: 028242,000034: # Refer directly to the online document mentioned above for further information. 028243,000035: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 028244,000036: 028245,000037: # In some cases, where the source code for Luminary 131 overlaps that of 028246,000038: # Colossus 249, this code is instead copied from the corresponding Luminary 131 028247,000039: # source file, and then is proofed to incorporate any changes. 028248,000040: 028249,000041: # Page 644 028250,000042: # PROGRAM DESCRIPTION ** P40CSM ** 028251,000043: 028252,000044: 35,3755 E6,1466 EBANK= DAPDATR1 028253,000045: 31,3215 BANK 31 028254,000046: 24,2000 SETLOC P40S 028255,000047: 24,2000 BANK 028256,000048: 028257,000049: 24,2002 COUNT 24/P40 028258,000050: 028259,000051: 24,2002 05447 P40CSM TC DOWNFLAG 028260,000052: 24,2003 00023 ADRES ENG2FLAG 028261,000053: 028262,000054: 24,2004 06006 TC INTPRET 028263,000055: 24,2005 43135 SLOAD BOFF 028264,000056: 24,2006 03425 ECSTEER # IS THIS AN EXTERNAL DELTA V BURN 028265,000057: 24,2007 01347 XDELVFLG 028266,000058: 24,2010 50013 P40S/C # NO CSTEER = ECSTEER 028267,000059: 24,2011 77745 DLOAD # YES CSTEER = ZERO 028268,000060: 24,2012 15332 HI6ZEROS 028269,000061: 24,2013 17703 P40S/C STODL CSTEER 028270,000062: 24,2014 10335 FENG # SET UP THRUST FOR P40 20,000 LBS 028271,000063: 24,2015 17727 P40S/F STODL F # P41 ENTERS HERE 028272,000064: 24,2016 03413 TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV 028273,000065: 24,2017 03450 STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9 028274,000066: 028275,000067: 24,2020 77776 EXIT 028276,000068: 24,2021 04555 TC BANKCALL 028277,000069: 24,2022 17573 CADR R02BOTH # IMU STATUS CHECK 028278,000070: 028279,000071: 24,2023 06006 P40PVA TC INTPRET 028280,000072: 24,2024 77624 CALL 028281,000073: 24,2025 34000 S40.1 # COMPUTE VGTIG,UT 028282,000074: 24,2026 77624 CALL 028283,000075: 24,2027 51512 S40.2,3 # COMPUTE PREFERRED ATTITUDE 028284,000076: 24,2030 77414 SET EXIT 028285,000077: 24,2031 01073 PFRATFLG 028286,000078: 24,2032 02212 P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6) 028287,000079: 24,2033 00003 RELINT 028288,000080: 24,2034 04555 TC BANKCALL 028289,000081: 24,2035 56000 CADR R60CSM # ATTITUDE MANEUVER 028290,000082: 24,2036 44712 CS ONE # FOR UPDATEVG 028291,000083: 24,2037 55746 TS NBRCYCLS 028292,000084: 24,2040 05435 TC UPFLAG 028293,000085: 24,2041 00155 ADRES TIMRFLAG # ALLOW CLOCKTASK 028294,000086: 028295,000087: 24,2042 02252 TC P41/P40 028296,000088: 24,2043 02267 TC P41/DSP # P41 028297,000089: 028298,000090: 24,2044 32351 P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED 028299,000091: # Page 645 028300,000092: 24,2045 55145 TS NVWORD1 # BELOW 028301,000093: 028302,000094: 24,2046 06006 TC INTPRET 028303,000095: 24,2047 51575 VLOAD ABVAL # FOR R2 028304,000096: 24,2050 03721 VGTIG 028305,000097: 24,2051 17654 STODL VGDISP 028306,000098: 24,2052 15332 HI6ZEROS 028307,000099: 24,2053 03426 STORE DVTOTAL 028308,000100: 24,2054 77776 EXIT 028309,000101: 028310,000102: 24,2055 00006 EXTEND 028311,000103: 24,2056 32773 DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING 028312,000104: 24,2057 53223 DXCH AVEGEXIT # AFTER AVERAGE G 028313,000105: 028314,000106: 24,2060 32344 P40GMB CAF P40CKLS2 # (4.1 PROTECTION) 028315,000107: 24,2061 04555 TC BANKCALL 028316,000108: 24,2062 20751 CADR GOPERF1 028317,000109: 24,2063 12204 TCF POST41 # V34 028318,000110: 24,2064 12362 TCF TST,TRIM # V33 028319,000111: 24,2065 44712 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1) 028320,000112: 24,2066 55445 +1 TS MRKRTMP # ENTRY FROM TST,TRIM 028321,000113: 028322,000114: 24,2067 34714 CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6 028323,000115: 24,2070 55447 TS CNTR # +0 SAYS NORMAL ENTRY 028324,000116: # +1 (PRE40.6) SAYS RESTART ENTRY 028325,000117: 028326,000118: 24,2071 34712 CAF ONE 028327,000119: 24,2072 05140 TC WAITLIST 028328,000120: 24,2073 30,2000 SBANK= LOWSUPER 028329,000121: 24,2073 E6,1466 EBANK= DAPDATR1 028330,000122: 24,2073 02051 40066 2CADR S40.6 028331,000123: 028332,000124: 24,2075 11445 CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST 028333,000125: 24,2076 32343 CAF 18SEC # PLUS, DELAY FOR 18 SECONDS 028334,000126: 24,2077 12101 TCF +2 # HOLE 028335,000127: 24,2100 32776 CAF 5SEC # DELAY FOR TRIM ONLY TASK 028336,000128: 24,2101 04555 TC BANKCALL 028337,000129: 24,2102 01732 CADR DELAYJOB 028338,000130: 24,2103 05261 TC 2PHSCHNG 028339,000131: 24,2104 40026 OCT 40026 # 6.2 = PRE40.6(-0CS), CLOKTASK(100CS) 028340,000132: 24,2105 00234 OCT 00234 # 4.23 = P40S/SV (PRIO12) 028341,000133: 24,2106 34712 P40S/RS CAF ONE 028342,000134: 24,2107 05140 TC WAITLIST # P41/SDP 028343,000135: 24,2110 E7,1412 EBANK= TIG 028344,000136: 24,2110 03172 50067 2CADR CLOKTASK 028345,000137: 028346,000138: 24,2112 00003 RELINT 028347,000139: 028348,000140: 24,2113 03304 P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12 028349,000141: 24,2114 E7,1412 EBANK= TIG 028350,000142: # Page 646 028351,000143: 24,2114 06006 TC INTPRET 028352,000144: 24,2115 45345 DLOAD DSU 028353,000145: 24,2116 03413 TIG 028354,000146: 24,2117 10342 SEC29.96 028355,000147: 24,2120 00041 STORE TDEC1 028356,000148: 028357,000149: 24,2121 77624 CALRB # RETURN IN BASIC 028358,000150: 24,2122 27577 MIDTOAV1 028359,000151: 24,2123 12125 TCF +2 028360,000152: 24,2124 02146 TC P40SNEWM # INTEGRATION TIME GREATER THAN ALLOWED 028361,000153: 24,2125 00006 P40SET EXTEND 028362,000154: 24,2126 30155 DCA MPAC # DELTA TIME TO PREREAD (INT.INIT.) 028363,000155: 24,2127 53673 DXCH P40TMP 028364,000156: 24,2130 00006 EXTEND 028365,000157: 24,2131 42776 DCS 5SECDP # FOR TIGBLNK 028366,000158: 24,2132 21673 DAS P40TMP 028367,000159: 24,2133 00006 EXTEND 028368,000160: 24,2134 31673 DCA P40TMP 028369,000161: 24,2135 05231 TC LONGCALL 028370,000162: 24,2136 E7,1412 EBANK= TIG 028371,000163: 24,2136 02364 50067 2CADR TIGBLNK 028372,000164: 028373,000165: 24,2140 05301 TC PHASCHNG 028374,000166: 24,2141 20214 OCT 20214 # 4.21 = TIGBLNK (P40TMP CS) 028375,000167: 028376,000168: 24,2142 15112 TCF ENDOFJOB 028377,000169: 24,2143 04555 P40BLNKR TC BANKCALL 028378,000170: 24,2144 20607 CADR CLEANDSP # REMOVE RESIDUE 028379,000171: 24,2145 15112 TCF ENDOFJOB 028380,000172: 24,2146 E7,1412 EBANK= TIG 028381,000173: 24,2146 00006 P40SNEWM EXTEND 028382,000174: 24,2147 31246 DCA PIPTIME1 028383,000175: 24,2150 53413 DXCH TIG # SET NEW TIG FOR 06 40 028384,000176: 24,2151 00006 EXTEND 028385,000177: 24,2152 32342 DCA SEC29.96 028386,000178: 24,2153 21413 DAS TIG 028387,000179: 24,2154 12125 TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35) 028388,000180: 028389,000181: 24,2155 E6,1466 EBANK= DAPDATR1 028390,000182: 24,2155 32353 POSTBURN CAF V16N40 028391,000183: 24,2156 04555 TC BANKCALL 028392,000184: 24,2157 20610 CADR REFLASH 028393,000185: 24,2160 12204 TCF POST41 # V34 GO FINISH 028394,000186: 24,2161 12163 TCF P40RCS # PROCEED 028395,000187: 24,2162 12155 TCF POSTBURN # RECYCLE 028396,000188: 24,2163 00006 P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS 028397,000189: 24,2164 32407 DCA ACADN85 028398,000190: 24,2165 53223 DXCH AVEGEXIT 028399,000191: 24,2166 34735 CAF 2SECS # WAIT FOR CALCN85 VIA AVEGEXIT 028400,000192: 24,2167 04555 TC BANKCALL 028401,000193: # Page 647 028402,000194: 24,2170 01732 CADR DELAYJOB 028403,000195: 028404,000196: 24,2171 02212 P40MINDB TCR SETMINDB -1 028405,000197: 24,2172 00003 RELINT 028406,000198: 24,2173 05301 TIGNOW TC PHASCHNG 028407,000199: 24,2174 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 85 028408,000200: 24,2175 20000 OCT 20000 # PRIO 20 028409,000201: 24,2176 32350 CAF V16N85B 028410,000202: 24,2177 04555 TC BANKCALL 028411,000203: 24,2200 20610 CADR REFLASH 028412,000204: 24,2201 12204 TCF POST41 # FINISH P40/P41 028413,000205: 24,2202 12204 TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP 028414,000206: 24,2203 12173 TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85 028415,000207: 028416,000208: 24,2204 00006 POST41 EXTEND 028417,000209: 24,2205 32405 DCA SERVCADR 028418,000210: 24,2206 53223 DXCH AVEGEXIT 028419,000211: 24,2207 14106 TCF GOTOP00H 028420,000212: 24,2210 00056 MINDB DEC 46 B-14 028421,000213: 24,2211 00707 MAXDB DEC 455 B-14 028422,000214: 24,2212 E6,1466 EBANK= DAPDATR1 028423,000215: 24,2212 00004 -1 INHINT 028424,000216: 24,2213 30032 SETMINDB CA CDUX # ROUTINE FOR SETTING 028425,000217: 24,2214 55572 TS THETADX # THE MINIMUM DEADBAND 028426,000218: 24,2215 00006 EXTEND # IN AUTOPILOT 028427,000219: 24,2216 30034 DCA CDUY 028428,000220: 24,2217 53574 DXCH THETADY 028429,000221: 24,2220 32210 CA MINDB # SHOULD BE CALLED UNDER 028430,000222: 24,2221 55655 TS ADB # INTERRUPT INHIBITED 028431,000223: 24,2222 44707 CS BIT4 # EBANK = E6 028432,000224: 24,2223 71466 MASK DAPDATR1 028433,000225: 24,2224 55466 TS DAPDATR1 028434,000226: 24,2225 00002 TC Q 028435,000227: 028436,000228: 24,2226 E6,1466 EBANK= DAPDATR1 028437,000229: 24,2226 00004 -1 INHINT 028438,000230: 24,2227 32211 SETMAXDB CA MAXDB # ROUTINE FOR SETTING 028439,000231: 24,2230 55655 TS ADB # THE MAXIMUM DEADBAND IN AUTOPILOT 028440,000232: 24,2231 41466 CS DAPDATR1 028441,000233: 24,2232 74707 MASK BIT4 # SHOULD BE CALLED UNDER 028442,000234: 24,2233 27466 ADS DAPDATR1 # INTERRUPT INHIBITED 028443,000235: 24,2234 00002 TC Q # EBANK = E6 028444,000236: 028445,000237: # Page 648 028446,000238: # PROGRAM DESCRIPTION ** P41CSM ** 028447,000239: 028448,000240: 24,2235 E6,1466 EBANK= DAPDATR1 028449,000241: 24,2235 COUNT 24/P41 028450,000242: 028451,000243: 24,2235 05435 P41CSM TC UPFLAG 028452,000244: 24,2236 00023 ADRES ENG2FLAG # SET FOR RCS 028453,000245: 028454,000246: 24,2237 06006 TC INTPRET 028455,000247: 24,2240 77745 DLOAD 028456,000248: 24,2241 15332 HI6ZEROS # FOR P41 CSTEER =0 028457,000249: 24,2242 03703 STORE CSTEER 028458,000250: 028459,000251: 24,2243 43145 DLOAD BON 028460,000252: 24,2244 10337 FRCS2 # 2JET THRUST FOR S40.1 028461,000253: 24,2245 00700 NJETSFLG 028462,000254: 24,2246 50015 P40S/F # NJETS = 1 2-JET 028463,000255: 24,2247 52015 DAD GOTO # NJETS = 0 4-JET 028464,000256: 24,2250 10337 FRCS2 028465,000257: 24,2251 50015 P40S/F 028466,000258: 028467,000259: 24,2252 41011 P41/P40 CS MODREG 028468,000260: 24,2253 74712 MASK ONE # P41EXITS AT CALL LOC +1 028469,000261: 24,2254 00006 EXTEND 028470,000262: 24,2255 12257 BZF +2 # P41 028471,000263: 24,2256 24002 INCR Q # P40 EXITS AT CALL LOC +2 028472,000264: 24,2257 00002 TC Q 028473,000265: 028474,000266: 24,2260 34675 TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41) 028475,000267: 24,2261 05027 TC NOVAC 028476,000268: 24,2262 E6,1466 EBANK= DAPDATR1 028477,000269: 24,2262 02173 50066 2CADR TIGNOW 028478,000270: 028479,000271: 24,2264 05447 P40CLK TC DOWNFLAG 028480,000272: 24,2265 00155 ADRES TIMRFLAG 028481,000273: 028482,000274: 24,2266 15213 TCF TASKOVER 028483,000275: 028484,000276: 24,2267 32347 P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB 028485,000277: 24,2270 55145 TS NVWORD1 028486,000278: 028487,000279: 24,2271 06006 TC INTPRET 028488,000280: 24,2272 77624 CALL # COMPUTE 028489,000281: 24,2273 50314 P40CNV85 # VGTIG IN CTRL COORDS 028490,000282: 24,2274 77776 EXIT 028491,000283: 24,2275 00006 EXTEND # DO CONTROL COORD CALCULATION AFTER AVEG 028492,000284: 24,2276 32407 DCA ACADN85 028493,000285: 24,2277 53223 DXCH AVEGEXIT 028494,000286: # Page 649 028495,000287: 24,2300 05261 TC 2PHSCHNG 028496,000288: 24,2301 40036 OCT 40036 # 6.3=CLOKTASK(100CS) 028497,000289: 24,2302 00234 OCT 234 # 4.23=P40S/SV(PRIO12) 028498,000290: 028499,000291: 24,2303 12106 TCF P40S/RS 028500,000292: 24,2304 32350 P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG 028501,000293: 24,2305 55145 TS NVWORD1 # REDISPLAY NONFLASHING 028502,000294: 24,2306 32342 CAF SEC29.96 +1 028503,000295: 24,2307 05140 TC WAITLIST 028504,000296: 24,2310 E6,1466 EBANK= DAPDATR1 028505,000297: 24,2310 02260 50066 2CADR TTG/0 028506,000298: 028507,000299: 24,2312 44710 CS BIT3 028508,000300: 24,2313 12513 TCF TTGPHS 028509,000301: 24,2314 40220 P40CNV85 STQ SETPD 028510,000302: 24,2315 03730 QTEMP1 028511,000303: 24,2316 00001 0 028512,000304: 24,2317 41575 VLOAD PUSH 028513,000305: 24,2320 03721 VGPREV # EQUALS VGTIG (TARGETTING INPUT) 028514,000306: 24,2321 77624 CALL 028515,000307: 24,2322 45426 S41.1 028516,000308: 24,2323 37665 STCALL VGBODY 028517,000309: 24,2324 03730 QTEMP1 028518,000310: 028519,000311: 24,2325 E6,1466 EBANK= DAPDATR1 028520,000312: 24,2325 06006 CALCN85 TC INTPRET 028521,000313: 24,2326 77624 CALL 028522,000314: 24,2327 51016 UPDATEVG # NEW VG, S40.8 (+MAYBE S40.9) 028523,000315: 24,2330 77624 CALL 028524,000316: 24,2331 50314 P40CNV85 # COMPUTE VGBODY 028525,000317: 24,2332 77776 EXIT 028526,000318: 24,2333 03127 TC SERVXT 028527,000319: 028528,000320: 24,2334 02217 06650 FENG 2DEC 9.1188544 B-7 # SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4 028529,000321: 24,2336 00013 06112 FRCS2 2DEC .087437837 B-7 # RCS ULLAGE (199.6COS10 LBS), SC.AT 028530,000322: # B+7 NEWTONS/E+4 028531,000323: 24,2340 04700 SEC24.96 DEC 2496 B-14 028532,000324: 24,2341 00000 05664 SEC29.96 2DEC 2996 B-28 028533,000325: 24,2343 03410 18SEC DEC 1800 B-14 028534,000326: 24,2344 00204 P40CKLS2 OCT 204 028535,000327: 24,2345 37730 40CST5 OCT 37730 # 40 CS FOR THE T5 CLOCK 028536,000328: 24,2346 4377 OCT12 = TEN 028537,000329: 24,2346 04123 V1683 VN 1683 028538,000330: 24,2347 01525 V06N85B VN 0685 028539,000331: 24,2350 04125 V16N85B VN 1685 028540,000332: 24,2351 01450 V06N40 VN 0640 028541,000333: 24,2352 24020 P40OK99 OCT 24020 # BITS 14,12, AND 5 FOR LINUS VERB 99 028542,000334: 24,2353 04050 V16N40 VN 1640 028543,000335: # Page 650 028544,000336: 24,2354 00027 OCT27/24 OCT 27 028545,000337: 24,2355 00053 OCT53 OCT 53 028546,000338: 24,2356 00035 OCT35 OCT 35 028547,000339: 24,2357 E6,1466 EBANK= DAPDATR1 028548,000340: 24,2357 03143 12066 T5IDL24 2CADR T5IDLOC 028549,000341: 24,2361 00026 3MDOT DEC 86.6175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT 028550,000342: # B+16 KB/SEC (NOT, EMDOT IS PAD-LOADED, 028551,000343: # BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO 028552,000344: # IT CAN REMAIN IN FIXED MEMORY) 028553,000345: 24,2362 34712 TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1) 028554,000346: 24,2363 12066 TCF TRIMONLY +1 028555,000347: 24,2364 32776 TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30 028556,000348: 24,2365 05140 TC WAITLIST 028557,000349: 24,2366 E7,1412 EBANK= TIG 028558,000350: 24,2366 02502 50067 2CADR TIGAVEG 028559,000351: 028560,000352: 24,2370 34714 CAF ZERO # DISABLE HERE, NOT IN P40BLNKR 028561,000353: 24,2371 55145 TS NVWORD1 028562,000354: 028563,000355: 24,2372 34761 CAF PRIO14 028564,000356: 24,2373 05027 TC NOVAC 028565,000357: 24,2374 E7,1412 EBANK= TIG 028566,000358: 24,2374 02143 50067 2CADR P40BLNKR # DON'T PROTECT -- RESTARTS BLANK DSKY 028567,000359: 028568,000360: 24,2376 44362 CS OCT37 # 4.37 = TIGAVEG (500CS) 028569,000361: 24,2377 04114 P40TSK TC NEWPHASE 028570,000362: 24,2400 00004 OCT 4 028571,000363: 24,2401 05213 TC TASKOVER 028572,000364: 028573,000365: 24,2402 E7,1412 EBANK= TIG 028574,000366: 24,2402 02436 50067 ACADN83 2CADR CALCN83 028575,000367: 028576,000368: 24,2404 E7,1412 EBANK= TIG 028577,000369: 24,2404 03132 76067 SERVCADR 2CADR SERVEXIT 028578,000370: 028579,000371: 24,2406 E6,1466 EBANK= DAPDATR1 028580,000372: 24,2406 02325 50066 ACADN85 2CADR CALCN85 028581,000373: 028582,000374: # Page 651 028583,000375: # PROGRAM DESCRIPTION ** P47CSM ** 028584,000376: 028585,000377: 24,2410 COUNT 24/P47 028586,000378: 028587,000379: 24,2410 E7,1412 EBANK= TIG 028588,000380: 24,2410 04555 P47CSM TC BANKCALL # IMU STATUS CHECK 028589,000381: 24,2411 17573 CADR R02BOTH 028590,000382: 24,2412 06006 TC INTPRET 028591,000383: 24,2413 77624 CALRB 028592,000384: 24,2414 27573 MIDTOAV2 028593,000385: 028594,000386: 24,2415 30155 CA MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 100 028595,000387: 24,2416 55672 TS P40TMP # CS, WITH A TPAGREE, INT.INIT.) 028596,000388: 24,2417 05140 TC WAITLIST 028597,000389: 24,2420 E7,1412 EBANK= TIG 028598,000390: 24,2420 02425 50067 2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG 028599,000391: 028600,000392: 24,2422 05301 TC PHASCHNG 028601,000393: 24,2423 40574 OCT 40574 # A, 4.57 = TIGON (P40TMP CS) 028602,000394: 24,2424 15112 TCF ENDOFJOB 028603,000395: 028604,000396: 24,2425 E7,1672 EBANK= P40TMP 028605,000397: 24,2425 00006 TIGON EXTEND 028606,000398: 24,2426 32403 DCA ACADN83 028607,000399: 24,2427 53223 DXCH AVEGEXIT 028608,000400: 24,2430 34371 CAF PRIO30 # FORCE ZEROING OF N83 BEFORE SERVICER 028609,000401: 24,2431 05027 TC NOVAC 028610,000402: 24,2432 E7,1412 EBANK= TIG 028611,000403: 24,2432 02461 50067 2CADR P47BODY 028612,000404: 028613,000405: 24,2434 44711 CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30) 028614,000406: 24,2435 12513 TCF TTGPHS 028615,000407: 24,2436 E7,1412 EBANK= TIG 028616,000408: 24,2436 06006 CALCN83 TC INTPRET 028617,000409: 24,2437 77601 SETPD # SET UP PUSHLIST FOR S41.1 028618,000410: 24,2440 00001 0 028619,000411: 24,2441 53375 VLOAD VAD 028620,000412: 24,2442 03665 DELVCTL 028621,000413: 24,2443 03433 DELVREF 028622,000414: 24,2444 03460 STORE DV47TEMP # FOR COPYCYCLE BELOW 028623,000415: 24,2445 45006 PUSH CALL 028624,000416: 24,2446 45426 S41.1 028625,000417: 24,2447 37675 STCALL DELVIMU 028626,000418: 24,2450 70436 S11.1 028627,000419: 24,2451 77776 EXIT 028628,000420: 24,2452 05301 TC PHASCHNG 028629,000421: 24,2453 10035 OCT 10035 # REREADAC AND HERE 028630,000422: # Page 652 028631,000423: 24,2454 34715 CAF FIVE 028632,000424: 24,2455 05475 TC GENTRAN 028633,000425: 24,2456 01457 ADRES DV47TEMP 028634,000426: 24,2457 01664 ADRES DELVCTL 028635,000427: 028636,000428: 24,2460 03127 TC SERVXT 028637,000429: 24,2461 06006 P47BODY TC INTPRET 028638,000430: 24,2462 77775 VLOAD 028639,000431: 24,2463 15332 HI6ZEROS 028640,000432: 24,2464 03675 STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE 028641,000433: 24,2465 03665 STORE DELVCTL # UPON INITIATION OR ENTER RESPONSE 028642,000434: 24,2466 77776 EXIT 028643,000435: 24,2467 34762 P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20) 028644,000436: 24,2470 05103 TC PRIOCHNG # TO PREVENT INTERRUPTSION OF CALCN83 028645,000437: 24,2471 05301 TC PHASCHNG 028646,000438: 24,2472 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83 028647,000439: 24,2473 15000 OCT 15000 # PRIO 15 028648,000440: 24,2474 32346 P47/DSP CAF V1683 028649,000441: 24,2475 04555 TC BANKCALL 028650,000442: 24,2476 20624 CADR GOFLASH 028651,000443: 24,2477 04106 TC GOTOP00H 028652,000444: 24,2500 04106 TC GOTOP00H 028653,000445: 24,2501 12461 TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY 028654,000446: 028655,000447: # Page 653 028656,000448: # ROUTINE ** TIG-30 ** DESCRIPTION 028657,000449: 028658,000450: 24,2502 E7,1412 EBANK= TIG 028659,000451: 24,2502 COUNT 24/P40 028660,000452: 028661,000453: 24,2502 02252 TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS) 028662,000454: 24,2503 12304 TCF P41REDSP 028663,000455: 028664,000456: 24,2504 32351 CAF V06N40 # UNBLANK DISPLAY 028665,000457: 24,2505 55145 TS NVWORD1 028666,000458: 028667,000459: 24,2506 32340 CAF SEC24.96 028668,000460: 24,2507 05140 TC WAITLIST 028669,000461: 24,2510 E7,1412 EBANK= TIG 028670,000462: 24,2510 02521 50067 2CADR TIG-5 028671,000463: 028672,000464: 24,2512 46211 CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS) 028673,000465: 24,2513 04114 TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR 028674,000466: 24,2514 00004 OCT 4 # FROM TIGON (P47) WITH A=-1 028675,000467: 028676,000468: 24,2515 10763 PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED 028677,000469: 24,2516 15213 TCF TASKOVER # YES, DON'T START ANOTHER ONE 028678,000470: 24,2517 04574 TC POSTJUMP 028679,000471: 24,2520 76604 CADR PREREAD 028680,000472: 028681,000473: # Page 654 028682,000474: # ROUTINE ** TIG-5 ** DESCRIPTION 028683,000475: 028684,000476: 24,2521 E7,1412 EBANK= TIG 028685,000477: 24,2521 32776 TIG-5 CAF 5SEC 028686,000478: 24,2522 05140 TC WAITLIST 028687,000479: 24,2523 E6,1466 EBANK= DAPDATR1 028688,000480: 24,2523 02537 50066 2CADR TIG-0 028689,000481: 028690,000482: 24,2525 44702 CS BIT9 # WILL CAUSE V99 FLASH 028691,000483: 24,2526 55145 TS NVWORD1 028692,000484: 028693,000485: 24,2527 05261 TC 2PHSCHNG 028694,000486: 24,2530 40074 OCT 40074 # A, 4.7 = TIG-0 (500CS) 028695,000487: 24,2531 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO20) 028696,000488: 028697,000489: 24,2532 34675 CAF PRIO20 028698,000490: 24,2533 05042 TC FINDVAC 028699,000491: 24,2534 E7,1427 EBANK= TGO 028700,000492: 24,2534 02404 34067 2CADR S40.13 028701,000493: 028702,000494: 24,2536 15213 TCF TASKOVER 028703,000495: 028704,000496: # Page 655 028705,000497: # ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION 028706,000498: 028707,000499: 24,2537 E6,1466 EBANK= DAPDATR1 # TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40 028708,000500: 24,2537 40103 TIG-0 CS FLAGWRD7 # SET IGN FLAG 028709,000501: 24,2540 74676 MASK BIT13 028710,000502: 24,2541 26103 ADS FLAGWRD7 028711,000503: 028712,000504: 24,2542 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE 028713,000505: 24,2543 74677 MASK BIT12 028714,000506: 24,2544 00006 EXTEND 028715,000507: 24,2545 15213 BZF TASKOVER # WAIT FOR V99P 028716,000508: 028717,000509: 24,2546 32351 CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART 028718,000510: 24,2547 55145 TS NVWORD1 # DURING THE V99 SEQUENCE) 028719,000511: 028720,000512: 24,2550 05301 TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW 028721,000513: 24,2551 00614 OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD 028722,000514: 028723,000515: 24,2552 30032 IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD 028724,000516: 24,2553 55450 TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION 028725,000517: 24,2554 00006 EXTEND # TASK (4.61 PROTECTION) 028726,000518: 24,2555 30025 DCA TIME2 # FOR RESTARTS 028727,000519: 24,2556 53337 DXCH TEVENT 028728,000520: 24,2557 40101 CS FLAGWRD5 # SET ENGONFLG 028729,000521: 24,2560 74704 MASK BIT7 028730,000522: 24,2561 26101 ADS FLAGWRD5 028731,000523: 24,2562 34676 SPSON CAF BIT13 # TURN ON SPS ENGINE 028732,000524: 24,2563 00006 EXTEND 028733,000525: 24,2564 05011 WOR DSALMOUT 028734,000526: 028735,000527: 24,2565 34702 IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN 028736,000528: 24,2566 70076 MASK FLAGWRD2 028737,000529: 24,2567 10000 CCS A 028738,000530: 24,2570 12655 TCF IMPLBURN # IMPULSIVE 028739,000531: 24,2571 40102 CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL 028740,000532: 24,2572 74676 MASK BIT13 028741,000533: 24,2573 26102 ADS FLAGWRD6 028742,000534: 028743,000535: 24,2574 44105 PREPTVC CS OCT60000 # RESET T5 BITS 028744,000536: 24,2575 70102 MASK FLAGWRD6 028745,000537: 24,2576 54102 TS FLAGWRD6 028746,000538: 028747,000539: 24,2577 00006 EXTEND # KILL RCS 028748,000540: 24,2600 32360 DCA T5IDL24 028749,000541: 24,2601 53313 DXCH T5LOC 028750,000542: 028751,000543: 24,2602 46214 CS THREE # 4.3 = DOTVCON (40CS) 028752,000544: 24,2603 04114 TC NEWPHASE 028753,000545: 24,2604 00004 OCT 4 028754,000546: 028755,000547: # Page 656 028756,000548: 24,2605 05156 TC FIXDELAY 028757,000549: 24,2606 00050 DEC 40 B-14 # 0.4 SECOND DELAY FOR THRUST BUILDUP 028758,000550: 028759,000551: 24,2607 44712 DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP) 028760,000552: 24,2610 55654 TS TVCPHASE 028761,000553: 24,2611 34714 CAF ZERO # SET TVCEXECUTIVE PHASE 028762,000554: 24,2612 55661 TS TVCEXPHS 028763,000555: 24,2613 44105 CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER .... 028764,000556: 24,2614 70102 MASK FLAGWRD6 # BITS 15,14 = 10 028765,000557: 24,2615 64674 AD BIT15 028766,000558: 24,2616 54102 TS FLAGWRD6 028767,000559: 028768,000560: 24,2617 36214 CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6 028769,000561: 24,2620 54001 TS L # WHICH IS HANDLED NOW BY REDOTVC 028770,000562: 24,2621 40000 COM 028771,000563: 24,2622 52765 DXCH -PHASE6 028772,000564: 028773,000565: 24,2623 44715 CS FIVE # 4.5 = DOSTRULL (160 CS) 028774,000566: 24,2624 04114 TC NEWPHASE 028775,000567: 24,2625 00004 OCT 4 028776,000568: 028777,000569: 24,2626 34672 CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY 028778,000570: 24,2627 54030 TS TIME5 028779,000571: 24,2630 00006 EXTEND 028780,000572: 24,2631 33001 DCA TVCON2C # (TVCDAPON) 028781,000573: 24,2632 53313 DXCH T5LOC # (KILLS RCS DAP) 028782,000574: 028783,000575: 24,2633 05156 TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND 028784,000576: 24,2634 00240 DEC 160 B-14 # STEERING (IF NON-IMPULSIVE) 028785,000577: 028786,000578: 24,2635 34676 DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN 028787,000579: 24,2636 70102 MASK FLAGWRD6 028788,000580: 24,2637 10000 CCS A 028789,000581: 24,2640 02646 TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF 028790,000582: 24,2641 02651 TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN) 028791,000583: 028792,000584: 24,2642 00006 EXTEND 028793,000585: 24,2643 34714 DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0) 028794,000586: 24,2644 52761 DXCH -PHASE4 028795,000587: 028796,000588: 24,2645 15213 ENDIGN TCF TASKOVER 028797,000589: 24,2646 40076 STEERULL CS FLAGWRD2 # SET STEERSW 028798,000590: 24,2647 74700 MASK BIT11 028799,000591: 24,2650 26076 ADS FLAGWRD2 028800,000592: 028801,000593: 24,2651 34714 ULAGEOFF CAF ZERO 028802,000594: 24,2652 00006 EXTEND 028803,000595: 24,2653 01005 WRITE CHAN5 # ZERO CHANNEL 5 028804,000596: # Page 657 028805,000597: 24,2654 00002 TC Q 028806,000598: 24,2655 44676 IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE 028807,000599: 24,2656 70102 MASK FLAGWRD6 # ENGINE FAIL) 028808,000600: 24,2657 54102 TS FLAGWRD6 028809,000601: 028810,000602: 24,2660 03304 TCR E7SETTER 028811,000603: 028812,000604: 24,2661 E7,1412 EBANK= TIG 028813,000605: 24,2661 00006 EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK) 028814,000606: 24,2662 31430 DCA TGO 028815,000607: 24,2663 53413 DXCH TIG 028816,000608: 24,2664 00006 EXTEND 028817,000609: 24,2665 30025 DCA TIME2 028818,000610: 24,2666 21413 DAS TIG 028819,000611: 028820,000612: 24,2667 31430 CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS) 028821,000613: 24,2670 05140 TC WAITLIST 028822,000614: 24,2671 E7,1427 EBANK= TGO 028823,000615: 24,2671 02706 50067 2CADR ENGINOFF 028824,000616: 028825,000617: 24,2673 05261 TC 2PHSCHNG # PROTECT .... 028826,000618: 24,2674 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOT GROUP 028827,000619: 24,2675 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN 028828,000620: 24,2676 77777 DEC -0 B-14 # -0 CS 028829,000621: 028830,000622: 24,2677 44702 CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP 028831,000623: 24,2700 70076 MASK FLAGWRD2 028832,000624: 24,2701 54076 TS FLAGWRD2 028833,000625: 028834,000626: 24,2702 03307 TCR E6SETTER 028835,000627: 24,2703 E6,1466 EBANK= DAPDATR1 028836,000628: 028837,000629: 24,2703 34714 CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-= 028838,000630: 24,2704 55444 TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON 028839,000631: 028840,000632: 24,2705 12574 TCF PREPTVC 028841,000633: 24,2706 E7,1427 EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T 028842,000634: 24,2706 03307 ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6 028843,000635: 24,2707 E6,1466 EBANK= DAPDATR1 028844,000636: 24,2707 31474 CAE CSMMASS 028845,000637: 24,2710 55662 TS MASSTMP # COPYCYCLE FOR MASSBACK 028846,000638: 24,2711 05261 TC 2PHSCHNG 028847,000639: 24,2712 00003 OCT 00003 # KILL GROUP 3 PROTECTION OF ENGINOFF, DO 028848,000640: 24,2713 40634 OCT 40634 # A, 4.63 = DOSPSOFF (-0CS) 028849,000641: 24,2714 02737 DOSPSOFF TCR SPSOFF # SHUTDOWN SPS, MASS UPDATES, ETC. 028850,000642: 24,2715 42354 CS OCT27/24 # (OCTAL 27) 028851,000643: # Page 658 028852,000644: 24,2716 04114 TC NEWPHASE 028853,000645: 24,2717 00004 OCT 4 # 4.27 = DOTVCRCS (250 CS) 028854,000646: 028855,000647: 24,2720 05156 TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF 028856,000648: 24,2721 00372 DEC 250 B-14 028857,000649: 028858,000650: 24,2722 02227 DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT 028859,000651: 028860,000652: 24,2723 04633 TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5 028861,000653: 24,2724 42010 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE) 028862,000654: 028863,000655: 24,2725 04633 TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR 028864,000656: 24,2726 13207 CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS 028865,000657: 028866,000658: 24,2727 03003 TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK 028867,000659: 028868,000660: 24,2730 05301 TC PHASCHNG 028869,000661: 24,2731 00354 OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12) 028870,000662: 24,2732 34603 CAF PRIO12 # SET UP POSTBURN V16N40 JOB 028871,000663: 24,2733 05027 TC NOVAC 028872,000664: 24,2734 E6,1466 EBANK= DAPDATR1 # (SET MAXDB IN POST41) 028873,000665: 24,2734 02155 50066 2CADR POSTBURN 028874,000666: 028875,000667: 24,2736 15213 TCF TASKOVER 028876,000668: 028877,000669: 24,2737 E6,1466 EBANK= DAPDATR1 028878,000670: 24,2737 00006 SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT 028879,000671: 24,2740 30025 DCA TIME2 028880,000672: 24,2741 53337 DXCH TEVENT 028881,000673: 24,2742 44704 CS BIT7 # RESET ENGONFLG 028882,000674: 24,2743 70101 MASK FLAGWRD5 028883,000675: 24,2744 54101 TS FLAGWRD5 # (RESTARTS WILL SHUT DOWN SPS NOW) 028884,000676: 24,2745 44676 CS BIT13 028885,000677: 24,2746 00006 EXTEND 028886,000678: 24,2747 03011 WAND DSALMOUT 028887,000679: 028888,000680: 24,2750 31444 MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS 028889,000681: # V97CNTR = VCNTR UNLESS V97 IS 028890,000682: # ACTIVE. ONLY V97CNTR IS THEN RIGHT. 028891,000683: 24,2751 00006 EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC 028892,000684: 24,2752 70110 MP EMDOT # MDOT, SC.AT B+3 KG/CS 028893,000685: 24,2753 22000 LXCH A 028894,000686: 24,2754 00006 EXTEND 028895,000687: 24,2755 74734 MP 1SEC # DEC 100 028896,000688: 24,2756 61662 AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW 028897,000689: 24,2757 55474 TS CSMMASS # (1.44 KG OR 0.4 BITS) 028898,000690: 028899,000691: 24,2760 34674 BESTTRIM CAF BIT15 # CHECK FOR SWITCHOVER, SELECT BEST TRIMS 028900,000692: 24,2761 70105 MASK FLAGWRD9 # FOR NEXT IGNITION (OR REIGNITION) 028901,000693: 24,2762 00006 EXTEND 028902,000694: # Page 659 028903,000695: 24,2763 12765 BZF DBARTRIM # PRE-SWITCHOVER 028904,000696: 24,2764 00002 TC Q # POST-SWITCHOVER, SO LEAVE TRIMS AS ARE 028905,000697: 028906,000698: 24,2765 31621 DBARTRIM CAE DELPBAR # UPDATE TRIMS WITH DELP,YBAR 028907,000699: 24,2766 55425 TS PACTOFF 028908,000700: 24,2767 31623 CAE DELYBAR 028909,000701: 24,2770 55426 TS YACTOFF 028910,000702: 24,2771 00002 TC Q 028911,000703: 028912,000704: 24,2772 E6,1466 EBANK= DAPDATR1 028913,000705: 24,2772 03117 50066 STEERADS 2CADR STEERING 028914,000706: 028915,000707: 24,2774 37703 .6SECT5 OCT 37703 028916,000708: 24,2775 00000 5SECDP DEC 0 B-14 # MAKE DP 5SEC 028917,000709: 24,2776 00764 5SEC DEC 500 B-14 028918,000710: 24,2777 02202 OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS 028919,000711: 24,3000 E6,1466 EBANK= DAPDATR1 028920,000712: 24,3000 02030 36066 TVCON2C 2CADR TVCDAPON 028921,000713: 028922,000714: 24,3002 00004 -1 INHINT 028923,000715: 24,3003 42777 TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRLS, REENGAGE 028924,000716: 24,3004 00006 EXTEND # OPTICS DAC 028925,000717: 24,3005 03012 WAND CHAN12 028926,000718: 24,3006 44712 CS BIT1 # ENABLE T4RUPT OPTICS MONITOR .... PERMIT 028927,000719: 24,3007 55303 TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE 028928,000720: 24,3010 34714 CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING 028929,000721: 24,3011 55145 TS NVWORD1 028930,000722: 24,3012 44700 CS BIT11 # CLEAR TIMRFLAG TO STOP CLOKTASK 028931,000723: 24,3013 70103 MASK FLAGWRD7 028932,000724: 24,3014 54103 TS FLAGWRD7 028933,000725: 24,3015 00002 TC Q 028934,000726: 24,3016 E6,1466 EBANK= DAPDATR1 028935,000727: 24,3016 43020 UPDATEVG STQ BON 028936,000728: 24,3017 03730 QTEMP1 028937,000729: 24,3020 01307 XDELVFLG 028938,000730: 24,3021 51045 CALL40.8 028939,000731: 028940,000732: 24,3022 50135 SLOAD BMN 028941,000733: 24,3023 03347 NBRCYCLS 028942,000734: 24,3024 51051 SETUP.9 028943,000735: 028944,000736: 24,3025 53375 VLOAD VAD 028945,000737: 24,3026 03351 DELVSUM 028946,000738: 24,3027 03433 DELVREF 028947,000739: 24,3030 03357 STORE DELVSUMP 028948,000740: 24,3031 77776 EXIT 028949,000741: 24,3032 34712 CA ONE 028950,000742: 24,3033 61746 AD NBRCYCLS 028951,000743: 24,3034 55747 TS NBRCYCLP 028952,000744: # Page 660 028953,000745: 24,3035 05301 TC PHASCHNG # (?) TYPE A RESTART RESTART BELOW AND 5.3 REREADAC (?) 028954,000746: 24,3036 10035 OCT 10035 028955,000747: 028956,000748: 24,3037 31747 CA NBRCYCLP 028957,000749: 24,3040 55746 TS NBRCYCLS 028958,000750: 24,3041 06006 TC INTPRET 028959,000751: 24,3042 77775 VLOAD 028960,000752: 24,3043 03357 DELVSUMP 028961,000753: 24,3044 03351 STORE DELVSUM 028962,000754: 028963,000755: 24,3045 77624 CALL40.8 CALL 028964,000756: 24,3046 34130 S40.8 028965,000757: 24,3047 77650 GOTO 028966,000758: 24,3050 03730 QTEMP1 028967,000759: 028968,000760: 24,3051 67214 SETUP.9 BON SLOAD 028969,000761: 24,3052 01310 FIRSTFLG 028970,000762: 24,3053 51066 SURELY.9 028971,000763: 24,3054 03350 NBRCYCLP 028972,000764: 24,3055 74301 NORM VXSC # (NORM HANDLES ZERO PROPERLY) 028973,000765: 24,3056 00047 X1 028974,000766: 24,3057 03705 BDT 028975,000767: 24,3060 53257 VSR* VAD 028976,000768: 24,3061 20563 0 -14D,1 028977,000769: 24,3062 03646 VGTEMP 028978,000770: 24,3063 77651 VSU 028979,000771: 24,3064 03351 DELVSUM 028980,000772: 24,3065 03721 STORE VGPREV 028981,000773: 24,3066 77776 SURELY.9 EXIT 028982,000774: 24,3067 34676 CAF PRIO10 028983,000775: 24,3070 05042 TC FINDVAC 028984,000776: 24,3071 E6,1466 EBANK= DAPDATR1 028985,000777: 24,3071 02257 34066 2CADR S40.9 028986,000778: 028987,000779: 24,3073 05261 TC 2PHSCHNG 028988,000780: 24,3074 00051 OCT 00051 # A, 1.5 = REDO40.9, PRIO 10 028989,000781: 24,3075 10035 OCT 10035 028990,000782: 24,3076 06006 TC INTPRET 028991,000783: 24,3077 77775 VLOAD 028992,000784: 24,3100 01171 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1 028993,000785: 24,3101 27570 STOVL RINIT 028994,000786: 24,3102 01177 VN # ACTIVE VEHICLE VELOCITY VECTORY AT T1 028995,000787: 24,3103 17576 STODL VINIT 028996,000788: 24,3104 01205 PIPTIME 028997,000789: 24,3105 03474 STORE TNIT 028998,000790: 24,3106 77621 BDSU 028999,000791: 24,3107 03656 TPASS4 029000,000792: 24,3110 27423 STOVL DELLT4 029001,000793: 24,3111 15332 HI6ZEROS 029002,000794: 24,3112 17351 STODL DELVSUM 029003,000795: # Page 661 029004,000796: 24,3113 15332 HI6ZEROS 029005,000797: 24,3114 03347 STORE NBRCYCLS 029006,000798: 24,3115 77650 GOTO 029007,000799: 24,3116 51045 CALL40.8 029008,000800: 24,3117 E6,1466 EBANK= DAPDATR1 029009,000801: 24,3117 06006 STEERING TC INTPRET 029010,000802: 24,3120 77624 CALL 029011,000803: 24,3121 51016 UPDATEVG 029012,000804: 24,3122 77776 EXIT 029013,000805: 24,3123 34702 CAF BIT9 # CHECK IMPULSW 029014,000806: 24,3124 70076 MASK FLAGWRD2 029015,000807: 24,3125 10000 CCS A 029016,000808: 24,3126 13131 TCF +3 # PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF 029017,000809: 24,3127 04574 SERVXT TC POSTJUMP 029018,000810: 24,3130 77132 CADR SERVEXIT 029019,000811: 24,3131 34676 CAF BIT13 # CHECK ENGINE-ON/-OFF 029020,000812: 24,3132 00006 EXTEND 029021,000813: 24,3133 02011 RAND DSALMOUT 029022,000814: 24,3134 00006 EXTEND 029023,000815: 24,3135 13127 BZF SERVXT # ENGINE-OFF, SO PRE-IGNITE OR POST-OFF 029024,000816: 24,3136 03304 TCR E7SETTER 029025,000817: 24,3137 E7,1412 EBANK= TIG 029026,000818: 24,3137 00004 INHINT 029027,000819: 24,3140 00006 EXTEND 029028,000820: 24,3141 31413 DCA TIG 029029,000821: 24,3142 52155 DXCH MPAC 029030,000822: 24,3143 00006 EXTEND 029031,000823: 24,3144 40025 DCS TIME2 029032,000824: 24,3145 20155 DAS MPAC 029033,000825: 24,3146 07224 TCR DPAGREE 029034,000826: 24,3147 30155 CAE MPAC +1 # (LESS THAN 6 (OR 4) SECONDS TO GO) 029035,000827: 24,3150 10000 CCS A # PROTECT AGAINST NEG/ZRO W.L. CALL 029036,000828: 24,3151 13154 TCF +3 029037,000829: 24,3152 13154 TCF +2 029038,000830: 24,3153 34714 CAF ZERO 029039,000831: 24,3154 64712 AD ONE 029040,000832: 24,3155 56001 XCH L 029041,000833: 24,3156 34714 CA ZERO 029042,000834: 24,3157 53430 DXCH TGO 029043,000835: 24,3160 31430 CA TGO +1 029044,000836: 24,3161 05140 TC WAITLIST 029045,000837: 24,3162 E7,1427 EBANK= TGO 029046,000838: 24,3162 02706 50067 2CADR ENGINOFF 029047,000839: 029048,000840: 24,3164 05261 TC 2PHSCHNG 029049,000841: 24,3165 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP 029050,000842: 24,3166 10035 OCT 10035 # B, 5.3 = REREADAC, AND START BELOW 029051,000843: 24,3167 05447 TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP 029052,000844: 24,3170 00044 ADRES IMPULSW # RESTARTS OK 029053,000845: # Page 662 029054,000846: 24,3171 13127 TCF SERVXT 029055,000847: 029056,000848: # Page 663 029057,000849: # ROUTINE ** CLOKTASK ** DESCRIPTION 029058,000850: 029059,000851: 24,3172 E7,1412 EBANK= TIG 029060,000852: 24,3172 34700 CLOKTASK CAF BIT11 # IS TIMRFLAG SET 029061,000853: 24,3173 70103 MASK FLAGWRD7 029062,000854: 24,3174 10000 CCS A 029063,000855: 24,3175 13201 TCF CLOCKON 029064,000856: 24,3176 05301 TC PHASCHNG 029065,000857: 24,3177 00006 OCT 00006 # KILL RESTART 029066,000858: 24,3200 05213 TC TASKOVER 029067,000859: 029068,000860: 24,3201 00006 CLOCKON EXTEND 029069,000861: 24,3202 30025 DCA TIME2 029070,000862: 24,3203 53661 DXCH TTOGO 029071,000863: 24,3204 00006 EXTEND 029072,000864: 24,3205 41413 DCS TIG 029073,000865: 24,3206 21661 DAS TTOGO 029074,000866: 029075,000867: 24,3207 34734 SETCLOCK CAF 1SEC 029076,000868: 24,3210 05140 TC WAITLIST 029077,000869: 24,3211 E7,1412 EBANK= TIG 029078,000870: 24,3211 03172 50067 2CADR CLOKTASK 029079,000871: 029080,000872: 24,3213 11145 CCS NVWORD1 029081,000873: 24,3214 13217 TCF +3 029082,000874: 24,3215 13227 TCF SETTB6 029083,000875: 029084,000876: 24,3216 13217 TCF +1 029085,000877: 24,3217 42347 CS V06N85B # CHECK FOR V06N85B (P41) 029086,000878: 24,3220 61145 AD NVWORD1 029087,000879: 24,3221 00006 EXTEND 029088,000880: 24,3222 13232 BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP 029089,000881: 029090,000882: 24,3223 37664 CAF PRIO27 029091,000883: 24,3224 05027 TC NOVAC 029092,000884: 24,3225 E6,1466 EBANK= DAPDATR1 029093,000885: 24,3225 03244 50066 2CADR CLOCKJOB 029094,000886: 029095,000887: 24,3227 40025 SETTB6 CS TIME1 # SET GROUP6 TIMEBASE 029096,000888: 24,3230 55065 TS TBASE6 029097,000889: 24,3231 15213 TCF TASKOVER 029098,000890: 029099,000891: 24,3232 37664 SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06) 029100,000892: 24,3233 05042 TC FINDVAC 029101,000893: 24,3234 E6,1466 EBANK= DAPDATR1 029102,000894: 24,3234 03237 50066 2CADR DYNDISP 029103,000895: 029104,000896: 24,3236 13227 TCF SETTB6 # CLOSE OUT CLOCKTASK 029105,000897: # Page 664 029106,000898: 24,3237 06006 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41. 029107,000899: 24,3240 77624 CALL # PRIOR TO BLANKING AND AVEG (V16N85) 029108,000900: 24,3241 50314 P40CNV85 029109,000901: 24,3242 77776 EXIT 029110,000902: 24,3243 13254 TCF CKNVWRD1 029111,000903: 029112,000904: # Page 665 029113,000905: # ROUTINE ** CLOCKJOB ** DESCRIPTION 029114,000906: 029115,000907: 24,3244 E6,1466 EBANK= DAPDATR1 029116,000908: 24,3244 30032 CLOCKJOB CA CDUX 029117,000909: 24,3245 54772 TS CDUSPOTX 029118,000910: 24,3246 30033 CA CDUY 029119,000911: 24,3247 54766 TS CDUSPOTY 029120,000912: 24,3250 30034 CA CDUZ 029121,000913: 24,3251 54770 TS CDUSPOTZ 029122,000914: 24,3252 04555 TC BANKCALL 029123,000915: 24,3253 47510 CADR QUICTRIG 029124,000916: 24,3254 00004 CKNVWRD1 INHINT 029125,000917: 24,3255 11145 CCS NVWORD1 # DETERMINE FUNCTION, INDICATED BY NVWORD1 029126,000918: 24,3256 13301 TCF NOFLASH 029127,000919: 24,3257 15112 TCF ENDOFJOB 029128,000920: 24,3260 13270 TCF ENGREQST # SPS ENGINE-ON-ENABLE V99 FLASH 029129,000921: 24,3261 32351 FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH 029130,000922: 24,3262 04555 TC BANKCALL 029131,000923: 24,3263 20763 CADR GOFLASHR # LINUS MAKES IT A REDO, INHINT OK 029132,000924: 24,3264 13350 TCF V97T # TERMINATE 029133,000925: 24,3265 13403 TCF V97P # PROCEED 029134,000926: 24,3266 13432 TCF V97E # ENTER 029135,000927: 24,3267 13276 TCF PASTERET 029136,000928: 029137,000929: 24,3270 32351 ENGREQST CAF V06N40 029138,000930: 24,3271 04555 TC BANKCALL 029139,000931: 24,3272 20763 CADR GOFLASHR # LINUS MAKES IT A REDO, INHINT OK 029140,000932: 24,3273 13320 TCF V99T # TERMINATE 029141,000933: 24,3274 13326 TCF V99P # PROCEED 029142,000934: 24,3275 13312 TCF V99E # ENTER 029143,000935: 029144,000936: 24,3276 32352 PASTERET CAF P40OK99 # IMMED RETURN -- SET UP V99 OR V97 029145,000937: 24,3277 05415 TCR LINUS 029146,000938: 24,3300 15112 TCF ENDOFJOB 029147,000939: 24,3301 31145 NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY 029148,000940: 24,3302 04555 TC BANKCALL 029149,000941: 24,3303 20616 CADR REGODSP 029150,000942: 24,3304 34753 E7SETTER CAF EBANK7 029151,000943: 24,3305 54003 TS EBANK 029152,000944: 24,3306 E7,1412 EBANK= TIG 029153,000945: 24,3306 00002 TC Q 029154,000946: 029155,000947: 24,3307 34752 E6SETTER CAF EBANK6 # SET UP EBANK6 029156,000948: 24,3310 54003 TS EBANK 029157,000949: 24,3311 E6,1466 EBANK= DAPDATR1 029158,000950: # Page 666 029159,000951: 24,3311 00002 TC Q 029160,000952: 029161,000953: 24,3312 E6,1466 EBANK= DAPDATR1 029162,000954: 24,3312 05261 V99E TC 2PHSCHNG 029163,000955: 24,3313 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION 029164,000956: 24,3314 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW 029165,000957: 24,3315 27000 OCT 27000 029166,000958: 24,3316 03002 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK 029167,000959: 24,3317 12163 TCF P40RCS # V16N85 POST-BURN OPERATIONS 029168,000960: 029169,000961: 24,3320 E6,1466 EBANK= DAPDATR1 029170,000962: 24,3320 05261 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO) 029171,000963: 24,3321 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION 029172,000964: 24,3322 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW 029173,000965: 24,3323 27000 OCT 27000 029174,000966: 24,3324 03002 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK 029175,000967: 24,3325 12204 TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H 029176,000968: 24,3326 00004 V99P INHINT 029177,000969: 24,3327 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P 029178,000970: 24,3330 74677 MASK BIT12 029179,000971: 24,3331 10000 CCS A 029180,000972: 24,3332 13345 TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY 029181,000973: 029182,000974: 24,3333 34677 ASTNV99P CAF BIT12 # SET ASTN FLAG 029183,000975: 24,3334 26103 ADS FLAGWRD7 029184,000976: 24,3335 30103 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL 029185,000977: 24,3336 74676 MASK BIT13 029186,000978: 24,3337 00006 EXTEND 029187,000979: 24,3340 13345 BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0 029188,000980: 029189,000981: 24,3341 34712 ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY 029190,000982: 24,3342 05140 TC WAITLIST # SET UP IGNITION HERE 029191,000983: 24,3343 E6,1466 EBANK= DAPDATR1 029192,000984: 24,3343 02552 50066 2CADR IGNITION 029193,000985: 029194,000986: 24,3345 32351 V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0 029195,000987: 24,3346 55145 TS NVWORD1 029196,000988: 24,3347 15112 ENDV99P TCF ENDOFJOB 029197,000989: 029198,000990: 24,3350 E6,1474 EBANK= CSMMASS 029199,000991: 24,3350 05261 V97T TC 2PHSCHNG 029200,000992: 24,3351 00006 OCT 00006 # KILL GROUP 6 (CLOKTASK) 029201,000993: 24,3352 40674 OCT 40674 # A, 4.67 = V97TTASK (-0 CS), TBASE NOW 029202,000994: 24,3353 34712 CAF BIT1 029203,000995: 24,3354 05130 TC TWIDDLE 029204,000996: 24,3355 03357 ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC. 029205,000997: 24,3356 15112 TCF ENDOFJOB 029206,000998: 029207,000999: # Page 667 029208,001000: 24,3357 E6,1474 EBANK= CSMMASS 029209,001001: 24,3357 34714 V97TTASK CAF ZERO # DISABLE CLOCKJOB 029210,001002: 24,3360 55145 TS NVWORD1 029211,001003: 24,3361 32361 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL 029212,001004: 24,3362 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST 029213,001005: 24,3363 55662 TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK 029214,001006: 24,3364 05301 TC PHASCHNG 029215,001007: 24,3365 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN 029216,001008: 24,3366 77777 DEC -0 B-14 # -0 CS 029217,001009: 029218,001010: 24,3367 02737 TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC. 029219,001011: 24,3370 05301 TC PHASCHNG 029220,001012: 24,3371 00714 OCT 00714 # A, 4.71 = V97TRCS (250 CS), TBASE OLD 029221,001013: 24,3372 05156 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- 029222,001014: 24,3373 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS) 029223,001015: 029224,001016: 24,3374 E6,1466 EBANK= DAPDATR1 029225,001017: 24,3374 04633 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO 029226,001018: 24,3375 42010 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS 029227,001019: 24,3376 37664 CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET- 029228,001020: 24,3377 05027 TC NOVAC # MAXDB AND GOTOP00H) 029229,001021: 24,3400 E6,1466 EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41 029230,001022: 24,3400 03320 50066 2CADR V99T 029231,001023: 029232,001024: 24,3402 15213 ENDV97T TCF TASKOVER 029233,001025: 24,3403 E6,1444 EBANK= V97VCNTR 029234,001026: 24,3403 05301 V97P TC PHASCHNG 029235,001027: 24,3404 40734 OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW 029236,001028: 24,3405 34712 CAF BIT1 029237,001029: 24,3406 05130 TC TWIDDLE 029238,001030: 24,3407 03411 ADRES V97PTASK 029239,001031: 24,3410 15112 TCF ENDOFJOB 029240,001032: 029241,001033: 24,3411 E6,1444 EBANK= V97VCNTR 029242,001034: 24,3411 31444 V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN 029243,001035: 24,3412 55653 TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR 029244,001036: # POOR SYNC OF MANUAL ENGINE-ON AND 029245,001037: # THE VERB 97 PROCEED) 029246,001038: 24,3413 32351 CAF V06N40 # REDISPLAY V06N40 029247,001039: 24,3414 55145 TS NVWORD1 029248,001040: 24,3415 05435 TC UPFLAG # SET IDLEFAIL TO ALLOW R41-BYPASS, IN 029249,001041: 24,3416 00030 ADRES IDLEFAIL # CASE OF UNFAVORABLE S40.8 SYNCH 029250,001042: 24,3417 05435 TC UPFLAG # SET STEERSW TO RE-ENABLE STEERING 029251,001043: 24,3420 00042 ADRES STEERSW 029252,001044: 24,3421 05301 TC PHASCHNG 029253,001045: 24,3422 00134 OCT 00134 # A, 4.13 = R40ENABL (200 CS), TBASE OLD 029254,001046: 24,3423 05156 TC FIXDELAY # WAIT 2 SECONDS, THEN 029255,001047: 24,3424 00310 DEC 200 B-14 029256,001048: # Page 668 029257,001049: 24,3425 0003777 EBANK= WHOCARES 029258,001050: 24,3425 05447 R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL 029259,001051: 24,3426 00030 ADRES IDLEFAIL 029260,001052: 24,3427 05301 TC PHASCHNG 029261,001053: 24,3430 00004 OCT 00004 # KILL GROUP 4 029262,001054: 24,3431 15213 ENDV97P TCF TASKOVER 029263,001055: 24,3432 0003777 EBANK= WHOCARES 029264,001056: 24,3432 05301 V97E TC PHASCHNG 029265,001057: 24,3433 40534 OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW 029266,001058: 24,3434 34712 CAF BIT1 029267,001059: 24,3435 05140 TC WAITLIST 029268,001060: 24,3436 E7,1412 EBANK= TIG 029269,001061: 24,3436 03441 50067 2CADR V97ETASK 029270,001062: 029271,001063: 24,3440 15112 TCF ENDOFJOB 029272,001064: 029273,001065: 24,3441 E7,1412 EBANK= TIG 029274,001066: 24,3441 44112 V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59 029275,001067: 24,3442 55412 TS TIG 029276,001068: 24,3443 32351 CAF V06N40 # REDISPLAY V06N40 029277,001069: 24,3444 55145 TS NVWORD1 029278,001070: 24,3445 03307 TCR E6SETTER # RETURN TO EBANK6 FOR REST OF V97ETASK 029279,001071: 24,3446 E6,1474 EBANK= CSMMASS 029280,001072: 24,3446 32361 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL 029281,001073: 24,3447 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST 029282,001074: 24,3450 55662 TS MASSTMP # FAILD....COPYCYCLE FOR MASSBACK 029283,001075: 24,3451 05301 TC PHASCHNG 029284,001076: 24,3452 00754 OCT 00754 # A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD 029285,001077: 24,3453 02737 SPSOFF97 TCR SPSOFF 029286,001078: 24,3454 05301 TC PHASCHNG 029287,001079: 24,3455 00114 OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD 029288,001080: 24,3456 05156 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- 029289,001081: 24,3457 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS) 029290,001082: 029291,001083: 24,3460 E6,1466 EBANK= DAPDATR1 029292,001084: 24,3460 34712 V97E40.6 CAF BIT1 029293,001085: 24,3461 05140 TC WAITLIST 029294,001086: 24,3462 E6,1447 EBANK= CNTR 029295,001087: 24,3462 02040 40066 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE 029296,001088: 029297,001089: 24,3464 04633 TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO 029298,001090: 24,3465 42010 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS. 029299,001091: # LEAVE NARROW DEADBAND FOR REIGNITE. 029300,001092: 029301,001093: 24,3466 05261 TC 2PHSCHNG 029302,001094: 24,3467 00026 OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC) 029303,001095: 24,3470 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN 029304,001096: 24,3471 77777 DEC -0 B-14 # -0 CS. 029305,001097: # Page 669 029306,001098: 24,3472 44761 QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR 029307,001099: 24,3473 70103 MASK FLAGWRD7 # IMMEDIATE V99 RESPONSE. 029308,001100: 24,3474 64676 AD BIT13 029309,001101: 24,3475 54103 TS FLAGWRD7 029310,001102: 24,3476 05156 TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6 029311,001103: 24,3477 00036 DEC 30 B-14 029312,001104: 029313,001105: 24,3500 44702 V99FLASH CS BIT9 # CAUSE V99 TO FLASH 029314,001106: 24,3501 55145 TS NVWORD1 029315,001107: 24,3502 05261 TC 2PHSCHNG 029316,001108: 24,3503 40774 OCT 40774 # A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC 029317,001109: 24,3504 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO 20) 029318,001110: 24,3505 34675 CAF PRIO20 # SET UP TIMEBURN 029319,001111: 24,3506 05042 TC FINDVAC 029320,001112: 24,3507 E7,1427 EBANK= TGO 029321,001113: 24,3507 02404 34067 2CADR S40.13 029322,001114: 029323,001115: 24,3511 15213 ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION 029324,001116: # TO FLASHING V99 RESPONSE. 029325,001117: 029326,001118: # MOD N02 LOG SECTION P40-P47 029327,001119: # MOD BY ZELDIN 029328,001120: 029329,001121: # FUNCTIONAL DESCRIPTION 029330,001122: # COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG 029331,001123: # VECTOR(VGTIG). 029332,001124: 029333,001125: # CALLING SEQUENCE 029334,001126: # L CALL 029335,001127: # L+1 S40.1 029336,001128: 029337,001129: # NORMAL EXIT MODE 029338,001130: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR 029339,001131: # ERROR RETURN IF NOSOFLAG =1 029340,001132: 029341,001133: # SUBROUTINES CALLED 029342,001134: # CSMPREC 029343,001135: # INITVEL 029344,001136: # CALCGRAV 029345,001137: # MIDGIM 029346,001138: 029347,001139: # ALARM OR ABORT EXIT MODES 029348,001140: # L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1 029349,001141: 029350,001142: # ERASABLE INITIALIZATION REQUIRED 029351,001143: # WEIGHT/G ANTICIPATED VEHICLE MASS SP B16 KGM 029352,001144: # XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER 029353,001145: # IF DELTA-V MANEUVER: 029354,001146: # DELVSIN SPECIFIED DELTA-V REQUIRED IN 029355,001147: # INERTIAL COORDS. OF ACTIVE VEHICLE 029356,001148: # AT TIME OF IGNITION VECTOR B7 M/CS 029357,001149: # DELVSAB MAG. OF DELVSIN DP B7 M/CS 029358,001150: # RTIG POSITION AT TIME OF IGNITION VECTOR B29 M 029359,001151: # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS. 029360,001152: # CSTEER = 0 DP 029361,001153: # Page 670 029362,001154: # IF AIMPOINT STEERING: 029363,001155: # TIG TIME OF IGNITION DP B28 CS 029364,001156: # RTARG POSITION TARGET TIME VECTOR B29 M 029365,001157: # CSTEER = ECSTEER (GR 0) DP B1 029366,001158: # TPASS4 -- TIME OF ARRIVAL AT AIMPOINT 029367,001159: 029368,001160: # OUTPUT 029369,001161: # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR 029370,001162: # VGTIG INITIAL VALUE OF VELOCITY 029371,001163: # TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS 029372,001164: # DELVLVC VGTIG IN LOC. VERT. COORDS. B7 M/CS 029373,001165: # F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT 029374,001166: # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC) 029375,001167: # -GDT FOR S40.13 VECT B7 M/CS 029376,001168: # RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M 029377,001169: # POSITION AT TIME OF IGNITION 029378,001170: 029379,001171: # DEBRIS QTEMP1 029380,001172: # MPAC, QPRET 029381,001173: # PUSHLIST 029382,001174: # RTX2,RTX1 029383,001175: 029384,001176: 14,2002 BANK 14 029385,001177: 16,2000 SETLOC P40S1 029386,001178: 16,2000 BANK 029387,001179: 029388,001180: 16,2000 COUNT 16/S40.1 029389,001181: 029390,001182: 16,2000 77214 S40.1 SET VLOAD 029391,001183: 16,2001 01070 FIRSTFLG 029392,001184: 16,2002 11456 LO6ZEROS 029393,001185: 16,2003 03705 STORE BDT 029394,001186: 16,2004 43020 STQ BOF 029395,001187: 16,2005 03657 QTEMP 029396,001188: 16,2006 01347 XDELVFLG 029397,001189: 16,2007 34073 S40.1B # LAMBERT 029398,001190: 16,2010 77201 SETPD VLOAD # EXTERNAL DELTA V 029399,001191: 16,2011 00001 0 029400,001192: 16,2012 03640 VTIG 029401,001193: 16,2013 03576 STORE VINIT 029402,001194: 16,2014 53435 VXV UNIT 029403,001195: 16,2015 03632 RTIG 029404,001196: 16,2016 27713 STOVL UT # UP IN UT 029405,001197: 16,2017 03632 RTIG 029406,001198: 16,2020 03570 STORE RINIT 029407,001199: 16,2021 65236 VSQ PDDL 029408,001200: 16,2022 00045 36D 029409,001201: 16,2023 56205 DMP DDV 029410,001202: 16,2024 34127 THETACON 029411,001203: 16,2025 41205 DMP DMP 029412,001204: 16,2026 03654 DELVSAB 029413,001205: 16,2027 03076 WEIGHT/G 029414,001206: # Page 671 029415,001207: 16,2030 77671 DDV 029416,001208: 16,2031 03727 F 029417,001209: 16,2032 24017 STOVL 14D 029418,001210: 16,2033 03646 DELVSIN 029419,001211: 029420,001212: 16,2034 74241 DOT VXSC 029421,001213: 16,2035 03713 UT 029422,001214: 16,2036 03713 UT 029423,001215: 16,2037 41552 VSL2 PUSH # (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0 029424,001216: 16,2040 65245 BVSU PDDL # DELTA VP SCALED AT 2(+7) P.D.L. 6 029425,001217: 16,2041 03646 DELVSIN 029426,001218: 16,2042 00017 14D 029427,001219: 16,2043 63356 SIN PDVL 029428,001220: 16,2044 00007 6D 029429,001221: 16,2045 53435 VXV UNIT 029430,001222: 16,2046 03713 UT 029431,001223: 16,2047 45561 VXSC STADR 029432,001224: 16,2050 50056 STOVL VGTIG # UNIT(VP X UP)SIN(THETAT/2) IN VGTIG. 029433,001225: 16,2051 65256 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6 029434,001226: 16,2052 00017 14D 029435,001227: 16,2053 74346 COS VXSC 029436,001228: 16,2054 74255 VAD VXSC 029437,001229: 16,2055 03721 VGTIG 029438,001230: 16,2056 00045 36D 029439,001231: 16,2057 53352 VSL2 VAD 029440,001232: 16,2060 77626 STADR 029441,001233: 16,2061 74056 STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS 029442,001234: 029443,001235: 16,2062 77656 UNIT 029444,001236: 16,2063 27713 STOVL UT # THRUST DIRECTION SCALED AT 2(+1) 029445,001237: 16,2064 03721 VGTIG 029446,001238: 16,2065 43006 PUSH SET 029447,001239: 16,2066 01072 AVFLAG 029448,001240: 16,2067 77624 CALL 029449,001241: 16,2070 10653 MIDGIM # VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC 029450,001242: 16,2071 77650 GOTO 029451,001243: 16,2072 03657 QTEMP 029452,001244: 16,2073 45345 S40.1B DLOAD DSU # LAMBERT 029453,001245: 16,2074 03413 TIG 029454,001246: 16,2075 36001 TWODT 029455,001247: 16,2076 14041 STODL TDEC1 029456,001248: 16,2077 03656 TPASS4 029457,001249: 16,2100 77625 DSU 029458,001250: 16,2101 00041 TDEC1 029459,001251: 16,2102 37423 STCALL DELLT4 029460,001252: 16,2103 61663 AGAIN 029461,001253: 16,2104 77775 VLOAD 029462,001254: 16,2105 03612 VIPRIME 029463,001255: 16,2106 17713 STODL UT 029464,001256: 16,2107 03413 TIG 029465,001257: # Page 672 029466,001258: 16,2110 00041 STORE TDEC1 029467,001259: 16,2111 77621 BDSU 029468,001260: 16,2112 03656 TPASS4 029469,001261: 16,2113 37423 STCALL DELLT4 029470,001262: 16,2114 61663 AGAIN 029471,001263: 16,2115 41575 VLOAD PUSH 029472,001264: 16,2116 03646 DELVEET3 029473,001265: 16,2117 03721 STORE VGTIG 029474,001266: 16,2120 45014 SET CALL 029475,001267: 16,2121 01072 AVFLAG 029476,001268: 16,2122 10653 MIDGIM 029477,001269: 16,2123 52001 SETPD GOTO 029478,001270: 16,2124 00001 0 029479,001271: 16,2125 61716 CALCUT 029480,001272: 029481,001273: 16,2126 00024 13714 THETACON 2DEC .31830989 B-8 029482,001274: 029483,001275: 30,2000 SETLOC P40S3 029484,001276: 30,2000 BANK 029485,001277: 30,3657 COUNT 24/S40.1 029486,001278: 029487,001279: 30,3657 04000 00000 EP4(45)H 2DEC .125 029488,001280: 30,3661 00707 03434 EP4(10)H 2DEC .027777777 029489,001281: 029490,001282: 30,3663 45020 AGAIN STQ CALL 029491,001283: 30,3664 03730 QTEMP1 029492,001284: 30,3665 27022 THISPREC 029493,001285: 30,3666 66134 SXA,2 SXA,1 029494,001286: 30,3667 03746 RTX2 029495,001287: 30,3670 03745 RTX1 029496,001288: 30,3671 77775 VLOAD 029497,001289: 30,3672 00001 RATT 029498,001290: 30,3673 03632 STORE RTIG 029499,001291: 30,3674 27570 STOVL RINIT 029500,001292: 30,3675 00007 VATT 029501,001293: 30,3676 03640 STORE VTIG 029502,001294: 30,3677 03576 STORE VINIT 029503,001295: 30,3700 67201 SETPD SLOAD 029504,001296: 30,3701 00001 0 029505,001297: 30,3702 15332 HI6ZEROS 029506,001298: 30,3703 43125 PDDL BON 029507,001299: 30,3704 21660 EP4(45)H 029508,001300: 30,3705 03705 NORMSW 029509,001301: 30,3706 61711 +3 029510,001302: 30,3707 77745 DLOAD 029511,001303: 30,3710 21662 EP4(10)H 029512,001304: 30,3711 45006 PUSH CALL 029513,001305: 30,3712 22000 INITVEL 029514,001306: # Page 673 029515,001307: 30,3713 52001 SETPD GOTO 029516,001308: 30,3714 00001 0 029517,001309: 30,3715 03730 QTEMP1 029518,001310: 30,3716 45175 CALCUT VLOAD CALL 029519,001311: 30,3717 03632 RTIG 029520,001312: 30,3720 77256 CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS 029521,001313: 30,3721 70372 VSL1 V/SC 029522,001314: 30,3722 21761 200CS # G AT 2(-5) M/CS. CS 029523,001315: 30,3723 52315 PDVL VSU 029524,001316: 30,3724 03612 VIPRIME 029525,001317: 30,3725 03713 UT 029526,001318: 30,3726 52341 V/SC VSU 029527,001319: 30,3727 21761 200CS 029528,001320: 30,3730 72561 VXSC VSL2 029529,001321: 30,3731 03703 CSTEER 029530,001322: 30,3732 24015 STOVL 12D # B.C SCALED AT 2(-15) PDL 12D 029531,001323: 30,3733 03721 VGTIG 029532,001324: 30,3734 41456 UNIT PUSH # UG PDL 0 SCALED AT 2(+1) 029533,001325: 029534,001326: 30,3735 74241 DOT VXSC 029535,001327: 30,3736 00015 12D 029536,001328: 30,3737 00001 0 029537,001329: 30,3740 51352 VSL2 BVSU 029538,001330: 30,3741 00015 12D 029539,001331: 30,3742 14015 STODL 12D # Q PDL SCALED AT 2(-5) 029540,001332: 30,3743 03727 F 029541,001333: 30,3744 56261 SRR DDV 029542,001334: 30,3745 21605 4 029543,001335: 30,3746 03076 WEIGHT/G 029544,001336: 30,3747 63316 DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10M/(CS.CS) 029545,001337: 30,3750 00015 12D 029546,001338: 30,3751 77636 VSQ 029547,001339: 30,3752 75421 BDSU SQRT 029548,001340: 30,3753 76561 VXSC VSL1 029549,001341: 30,3754 53455 VAD UNIT 029550,001342: 30,3755 00015 12D 029551,001343: 30,3756 37713 STCALL UT 029552,001344: 30,3757 03657 QTEMP 029553,001345: 30,3760 01440 00000 200CS 2DEC 200 B-12 029554,001346: 029555,001347: # Page 674 029556,001348: # PROGRAM DESCRIPTION S40.2,3 DATE 15 NOV 66 029557,001349: # MOD NO 2 LOG SECTIONS P40-P47 029558,001350: # MOD BY ZELDIN 029559,001351: 029560,001352: # FUNCTIONAL DESCRIPTION 029561,001353: # 029562,001354: # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU 029563,001355: # ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP 029564,001356: 029565,001357: # COMPUTE X AXIS OF ENGINE BELL 029566,001358: 029567,001359: # COMPUTE PREFERRED IMU ORIENTATION (XSCREF) 029568,001360: # FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY, 029569,001361: # YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT. 029570,001362: # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF. 029571,001363: # COORDS. WILL BE PREFERRED IMU ORIENTATION. 029572,001364: 029573,001365: # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS. 029574,001366: 029575,001367: # CALLING SEQUENCE 029576,001368: # L CALL 029577,001369: # L+1 S40.2,3 029578,001370: 029579,001371: # NORMAL EXIT MODE 029580,001372: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) 029581,001373: 029582,001374: # SUBROUTINES CALLED 029583,001375: # CALCGA 029584,001376: 029585,001377: # ALARM OR ABORT MODES 029586,001378: # NONE 029587,001379: 029588,001380: # ERASABLE INITIALIZATION REQUIRED 029589,001381: # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV. 029590,001382: # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV. 029591,001383: # UT DESIRED THRUST DIRECTION VECT. B2 M/(CS.CS) 029592,001384: # RTIG POSITION AT TIME OF IGNITION VECT. B29 M 029593,001385: # ENG2FLAG ON=RCS OFF=SPS 029594,001386: 029595,001387: # OUTPUT 029596,001388: # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR. B1 029597,001389: # XSCREF UNIT VECTORS ALIGNED WTH PREFERRED IMU B1 029598,001390: # YSCREF 029599,001391: # ZSCREF 029600,001392: # GIMBAL ANGLES IN THETAD 029601,001393: # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1 029602,001394: 029603,001395: # DEBRIS 029604,001396: # PUSHLIST, QPRET, MPAC 029605,001397: # QTEMP TEMP. ERASABLE 029606,001398: 029607,001399: 24,3512 BANK 24 029608,001400: 24,2000 SETLOC P40S 029609,001401: 24,2000 BANK 029610,001402: 24,3512 COUNT* $$/S40.2 029611,001403: 029612,001404: 24,3512 64375 S40.2,3 VLOAD MXV 029613,001405: 24,3513 03713 UT 029614,001406: 24,3514 01736 REFSMMAT 029615,001407: 24,3515 44172 VSL1 STQ 029616,001408: 24,3516 03657 QTEMP 029617,001409: 24,3517 03357 STORE POINTVSM # THRUST IN SM AT 2 029618,001410: 24,3520 43001 SETPD BON 029619,001411: 24,3521 00001 0 029620,001412: # Page 675 029621,001413: 24,3522 00704 ENG2FLAG 029622,001414: 24,3523 51633 S40.2,3B 029623,001415: 24,3524 77745 DLOAD 029624,001416: 24,3525 15332 HI6ZEROS 029625,001417: 24,3526 67206 PUSH SLOAD # ZERO PDL 0 029626,001418: 24,3527 03027 YACTOFF 029627,001419: 24,3530 72405 DMP SL1 029628,001420: 24,3531 11672 TRIMSCAL 029629,001421: 24,3532 41415 DAD PUSH 029630,001422: 24,3533 11674 YBIAS 029631,001423: 24,3534 65346 COS PDDL # COS(Y +Y0) PDL 2 029632,001424: 24,3535 41556 SIN PUSH # CIN(Y +Y0) PDL 4 029633,001425: 24,3536 77735 SLOAD 029634,001426: 24,3537 03026 PACTOFF 029635,001427: 24,3540 72405 DMP SL1 029636,001428: 24,3541 11672 TRIMSCAL 029637,001429: 24,3542 41415 DAD PUSH 029638,001430: 24,3543 11676 PBIAS 029639,001431: 24,3544 65346 COS PDDL # COS(P +P0) PDL 6 029640,001432: 24,3545 41556 SIN PUSH # SIN(P +P0) PDL 8D 029641,001433: 24,3546 14323 STODL ZSCREF # SIN(P +P0) 029642,001434: 24,3547 00007 6 029643,001435: 24,3550 72405 DMP SL1 029644,001436: 24,3551 00005 4 029645,001437: 24,3552 65276 DCOMP PDDL # -SIN(Y+Y0)COS(P+P0) PDL 10 029646,001438: 24,3553 00007 6 029647,001439: 24,3554 72405 DMP SL1 029648,001440: 24,3555 00003 2 029649,001441: 24,3556 77666 VDEF 029650,001442: 029651,001443: 24,3557 14307 STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT 029652,001444: 24,3560 00323 ZSCREF 029653,001445: 24,3561 72405 DMP SL1 029654,001446: 24,3562 00005 4 029655,001447: 24,3563 41325 PDDL DMP 029656,001448: 24,3564 00323 ZSCREF 029657,001449: 24,3565 00003 2 029658,001450: 24,3566 57552 SL1 DCOMP 029659,001451: 24,3567 77666 VDEF 029660,001452: 029661,001453: 24,3570 14323 STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2 029662,001454: 24,3571 77666 VDEF 029663,001455: 029664,001456: 24,3572 14315 STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2 029665,001457: 24,3573 00323 ZSCREF 029666,001458: 24,3574 65325 PDDL PDDL 029667,001459: 24,3575 00315 YSCREF 029668,001460: 24,3576 00307 XSCREF 029669,001461: 24,3577 77666 VDEF 029670,001462: # Page 676 029671,001463: 24,3600 27351 STOVL SCAXIS # ENGINE BELL SCALED AT 2 029672,001464: 24,3601 03713 UT 029673,001465: 24,3602 53515 PDVL UNIT 029674,001466: 24,3603 03632 RTIG 029675,001467: 24,3604 57435 VXV VCOMP 029676,001468: 24,3605 00001 0 029677,001469: 24,3606 41456 UNIT PUSH 029678,001470: 24,3607 77624 CALL 029679,001471: 24,3610 51652 TSTRXUT 029680,001472: 24,3611 57435 VXV VCOMP 029681,001473: 24,3612 00001 0 029682,001474: 24,3613 63372 VSL1 PDVL # 2 RF/SC IN PDL 12D 029683,001475: 24,3614 00307 XSCREF 029684,001476: 24,3615 76505 VXM VSL1 029685,001477: 24,3616 00001 0 029686,001478: 24,3617 24307 STOVL XSCREF # X OF PREF. IMU,X OF SC IN REF COOR. AT 2 029687,001479: 24,3620 00315 YSCREF 029688,001480: 24,3621 76505 VXM VSL1 029689,001481: 24,3622 00001 0 029690,001482: 24,3623 24315 STOVL YSCREF # Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2 029691,001483: 24,3624 00323 ZSCREF 029692,001484: 24,3625 76505 VXM VSL1 029693,001485: 24,3626 00001 0 029694,001486: 24,3627 00323 STORE ZSCREF # Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2 029695,001487: 24,3630 52001 SETPD GOTO 029696,001488: 24,3631 00001 0 029697,001489: 24,3632 03657 QTEMP 029698,001490: 24,3633 77775 S40.2,3B VLOAD 029699,001491: 24,3634 15330 UNITX 029700,001492: 24,3635 27351 STOVL SCAXIS 029701,001493: 24,3636 03713 UT 029702,001494: 24,3637 00307 STORE XSCREF 029703,001495: 24,3640 53435 VXV UNIT 029704,001496: 24,3641 03632 RTIG 029705,001497: 24,3642 34007 STCALL 6D 029706,001498: 24,3643 51652 TSTRXUT 029707,001499: 24,3644 00315 STORE YSCREF 029708,001500: 24,3645 57435 VXV VCOMP 029709,001501: 24,3646 00307 XSCREF 029710,001502: 24,3647 77772 VSL1 029711,001503: 24,3650 34323 STCALL ZSCREF # ZNB AXIS IN REF COOR 029712,001504: 24,3651 03657 QTEMP 029713,001505: 24,3652 46145 TSTRXUT DLOAD BHIZ 029714,001506: 24,3653 00045 36D 029715,001507: 24,3654 51657 BADVCTOR 029716,001508: 24,3655 43575 VLOAD RVQ 029717,001509: 24,3656 00007 6D 029718,001510: 24,3657 53575 BADVCTOR VLOAD UNIT 029719,001511: 24,3660 03632 RTIG 029720,001512: 24,3661 53515 PDVL UNIT 029721,001513: # Page 677 029722,001514: 24,3662 03640 VTIG 029723,001515: 24,3663 53322 VSR3 VAD 029724,001516: 24,3664 53435 VXV UNIT 029725,001517: 24,3665 03713 UT 029726,001518: 24,3666 77676 VCOMP 029727,001519: 24,3667 00007 STORE 6D 029728,001520: 24,3670 77616 RVQ 029729,001521: 24,3671 21215 12215 TRIMSCAL 2DEC 1.07975111 B-1 029730,001522: 24,3673 00053 07423 YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON) 029731,001523: 24,3675 77636 44653 PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) 029732,001524: 029733,001525: # REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968 029734,001526: 029735,001527: # PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66 029736,001528: # MOD NO 1 LOG SECTION P40-P47 029737,001529: # MOD BY ZELDIN 029738,001530: 029739,001531: # FUNCTIONAL DESCRIPTION 029740,001532: 029741,001533: # COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS. 029742,001534: # TO CONTROL COORDS. 029743,001535: 029744,001536: # CALLING SEQUENCE 029745,001537: 029746,001538: # L CALL 029747,001539: # L+1 SR1.1 029748,001540: 029749,001541: # NORMAL EXIT MODE 029750,001542: # 029751,001543: # AT L +2 OF CALLING SEQUENCE 029752,001544: 029753,001545: # SUBROUTINES CALLED: 029754,001546: 029755,001547: # CALCSMSC 029756,001548: # CDUTRIG 029757,001549: 029758,001550: # ALARM OR ABORT MODES 029759,001551: 029760,001552: # NONE 029761,001553: 029762,001554: # ERASABLE INITIALIZATION REQUIRED 029763,001555: 029764,001556: # VG IN REF. COORD. PDL L POINTER AT L+5. S41.1 WILL RETURN WITH 029765,001557: # POINTER AT L (L MUST BE LESS THAN OR = TO 14D) 029766,001558: 029767,001559: # OUTPUT 029768,001560: 029769,001561: # MPAC CONTAINS VG IN CONTROL COORDS VECT. B7 M/CS 029770,001562: 029771,001563: # DEBRIS: 029772,001564: 029773,001565: # QTEMP TEMP ERASABLE 029774,001566: # QPRET 029775,001567: 029776,001568: 24,3677 COUNT 22/S41.1 029777,001569: 029778,001570: 22,2000 SETLOC P40S5 029779,001571: 22,2000 BANK 029780,001572: 029781,001573: 22,3426 45020 S41.1 STQ CALL 029782,001574: 22,3427 03657 QTEMP 029783,001575: 22,3430 47432 CDUTRIG 029784,001576: 22,3431 77775 VLOAD 029785,001577: 22,3432 45121 MXV CALL 029786,001578: 22,3433 01736 REFSMMAT 029787,001579: 22,3434 47577 *SMNB* 029788,001580: # Page 678 029789,001581: 22,3435 74321 MXV VXSC 029790,001582: 22,3436 05004 QUADROT 029791,001583: 22,3437 05443 TENBNK14 # VG IN CONTROL COORD IN MPAC SCALED AT 029792,001584: 22,3440 52072 VSL5 GOTO # VG IN CONTROL COORDS. IN MPAC AT 2(+7) 029793,001585: 22,3441 03657 QTEMP 029794,001586: 22,3442 24000 00000 TENBNK14 2DEC 10. B-4 029795,001587: 029796,001588: # Page 679 029797,001589: # NAME S40.8 -- CROSS PRODUCT STEERING 029798,001590: # FUNCTION (1) UPDATES TEH VELOCITY-TO-BE-GAINED VECTOR. 029799,001591: # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT. 029800,001592: # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES. 029801,001593: # (4) INITIATES THRUST-FAIL ROUTINE, R40 029802,001594: # CALLING SEQ CALL S40.6 029803,001595: # INPUT VGPREV LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR 029804,001596: # PRIOR TO UPDATING IN METERS/CS AT +7. 029805,001597: # DELVREF CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT 029806,001598: # IN METERS/CS AT +7. 029807,001599: # BDT EFFECT OF RATE OF CHANGE OF REQURIRED VELOCITY AND 029808,001600: # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN 029809,001601: # METERS/CS AT +7. 029810,001602: # CSTEER A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR 029811,001603: # SPS AIMPOINT STEERING MANEUVERS. 029812,001604: # IDLEFAIL A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE. 029813,001605: # STEERSW A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING. 029814,001606: # REFSMMAT, DAPDATR1, PIPTIME 029815,001607: # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC. 029816,001608: # OUTPUT TTOGO TIME REMAINING FOR ENGINE BURN IN CS AT +28. 029817,001609: # OMEGAC DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC. 029818,001610: # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING 029819,001611: # STEERSW, IMPULSW, NVWORD1 029820,001612: # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING) 029821,001613: # DEBRIS OMEGAXC, +1 029822,001614: # SUBROUTINES USED: *SMNB*, ALARM 029823,001615: 029824,001616: 16,2000 SETLOC P40S1 029825,001617: 16,2000 BANK 029826,001618: 16,2130 E6,1466 EBANK= DAPDATR1 029827,001619: 16,2130 COUNT 16/S40.8 029828,001620: 029829,001621: 16,2130 44001 S40.8 SETPD STQ 029830,001622: 16,2131 00001 SPBIT1 00D 029831,001623: 16,2132 03657 QTEMP 029832,001624: 16,2133 51375 VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS 029833,001625: 16,2134 03433 DELVREF 029834,001626: 16,2135 03705 BDT 029835,001627: 16,2136 77655 VAD 029836,001628: 16,2137 03721 VGPREV 029837,001629: 16,2140 03460 STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS 029838,001630: 029839,001631: 16,2141 77646 ABVAL 029840,001632: 16,2142 03654 STORE VGDISP # FOR DISPLAY PURPOSES 029841,001633: 16,2143 77776 EXIT 029842,001634: 16,2144 05301 TC PHASCHNG 029843,001635: 16,2145 10035 OCT 10035 # TYPE B RESTART RESTART BELOW AND 5.3 REREADAC 029844,001636: 029845,001637: 16,2146 06006 TC INTPRET 029846,001638: 16,2147 77775 VLOAD 029847,001639: # Page 680 029848,001640: 16,2150 03460 VG 029849,001641: 16,2151 03721 STORE VGPREV 029850,001642: 16,2152 77214 BOFF VLOAD 029851,001643: 16,2153 01344 STEERSW # SKIP TGO AND CROSS-PRODUCT 029852,001644: 16,2154 03657 QTEMP 029853,001645: 16,2155 03433 DELVREF 029854,001646: 16,2156 41446 ABVAL PUSH # CHECK FOR LOTHRUST 029855,001647: 16,2157 41335 SLOAD DMP 029856,001648: 16,2160 01354 DVTHRESH # SC.AT B-2 M/CS 029857,001649: 16,2161 36011 DPB-9 029858,001650: 16,2162 77621 BDSU 029859,001651: 16,2163 77440 BMN EXIT 029860,001652: 16,2164 40021 LOTHRUST 029861,001653: 16,2165 31466 CAE DAPDATR1 # ENABLE TVCDAP CG TRACKING 029862,001654: 16,2166 74675 MASK BIT14 029863,001655: 16,2167 10000 CCS A 029864,001656: 16,2170 34712 CAF BIT1 029865,001657: 16,2171 50000 INDEX A # LM-OFF, LM-ON VALUE 029866,001658: 16,2172 31423 CAE EREPFRAC 029867,001659: 16,2173 55652 TS REPFRAC 029868,001660: 029869,001661: 16,2174 06006 TC INTPRET 029870,001662: 16,2175 51375 TGOCALC VLOAD BVSU # GET DELVG 029871,001663: 16,2176 03433 DELVREF 029872,001664: 16,2177 03705 BDT 029873,001665: 16,2200 77656 UNIT 029874,001666: 16,2201 41441 DOT PUSH # (00D) 029875,001667: 16,2202 03460 VG 029876,001668: 16,2203 56244 BPL DDV # ANGLE SHOULD BE GREATER THAN PI/2 029877,001669: 16,2204 40013 INCRSVG # DISPLAY ALARM IF NOT 029878,001670: 16,2205 36005 2VEXHUST 029879,001671: 16,2206 41215 DAD DMP # (DOT PRODUCT UP FROM 00D) 029880,001672: 16,2207 11454 LODPHALF 029881,001673: 16,2210 70501 NORM SR1 029882,001674: 16,2211 00047 X1 029883,001675: 16,2212 60325 PDDL NORM 029884,001676: 16,2213 00045 36D # (MAG DELVG) 029885,001677: 16,2214 00050 X2 029886,001678: 16,2215 77665 BDDV 029887,001679: 16,2216 53664 XSU,2 SL* 029888,001680: 16,2217 00046 X1 029889,001681: 16,2220 57607 0 -9D,2 029890,001682: 16,2221 41405 DMP PUSH # (00D) 029891,001683: 16,2222 36003 -FOURDT 029892,001684: 16,2223 54335 SLOAD SR 029893,001685: 16,2224 03016 ETDECAY # ETDECAY SC.AT B+14 CS 029894,001686: 16,2225 20617 14D 029895,001687: 16,2226 45421 BDSU STADR 029896,001688: 16,2227 74347 STORE TGO # TIME TO GO IN CS. AT +28 029897,001689: 16,2230 77615 DAD 029898,001690: # Page 681 029899,001691: 16,2231 01205 PIPTIME 029900,001692: 16,2232 17413 STODL TIG 029901,001693: 16,2233 03430 TGO 029902,001694: 16,2234 50025 DSU BMN 029903,001695: 16,2235 36007 FOURSEC 029904,001696: 16,2236 40000 S40.81 029905,001697: 029906,001698: 16,2237 74375 XPRODUCT VLOAD VXSC 029907,001699: 16,2240 03705 BDT 029908,001700: 16,2241 03703 CSTEER 029909,001701: 16,2242 52352 VSL2 VSU 029910,001702: 16,2243 03433 DELVREF 029911,001703: 16,2244 63256 UNIT PDVL 029912,001704: 16,2245 03460 VG 029913,001705: 16,2246 47256 UNIT VXV 029914,001706: 16,2247 45121 MXV CALL 029915,001707: 16,2250 01736 REFSMMAT # (REFSMMAT/2) 029916,001708: 16,2251 47577 *SMNB* 029917,001709: 16,2252 77761 VXSC 029918,001710: 16,2253 03245 KPRIMEDT # (KPRIMEDT SCIAT PI/8 RAD) 029919,001711: 16,2254 03126 OMEGACLC STORE OMEGAC 029920,001712: 16,2255 77650 GOTO 029921,001713: 16,2256 03657 QTEMP 029922,001714: 029923,001715: 17,2000 SETLOC DAPS7 029924,001716: 17,2000 BANK 029925,001717: 17,2000 COUNT 17/S40.8 029926,001718: 029927,001719: 17,2000 00000 00310 TWODT 2DEC 200.0 B-28 # 2 SEC 029928,001720: 17,2002 77715 77777 -FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING) 029929,001721: 17,2004 17602 25124 2VEXHUST 2DEC 63.020792 B-7 # 2(10338.0564 FPS), SC.AT B+7 M/CS 029930,001722: 17,2006 00000 00620 FOURSEC 2DEC 400.0 B-28 # 4 SEC 029931,001723: 17,2010 00040 00000 DPB-9 2DEC 1 B-9 029932,001724: 029933,001725: 20,2000 SETLOC DAPS6 029934,001726: 20,2000 BANK 029935,001727: 029936,001728: 20,2000 COUNT 20/S40.8 029937,001729: 029938,001730: 20,2000 77214 S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS 029939,001731: 20,2001 01066 IMPULSW # FOR ENGINE-OFF CALL 029940,001732: 20,2002 15332 HI6ZEROS 029941,001733: 20,2003 03126 RATEZRO STORE OMEGAC # TVC TO ATTITUDE HOLD 029942,001734: 20,2004 77776 EXIT 029943,001735: 20,2005 34672 CAF POSMAX # INHIBIT SWITCHOVER/TVC EG TRACKING 029944,001736: 20,2006 55447 TS CNTR 029945,001737: # Page 682 029946,001738: 20,2007 06006 TC INTPRET 029947,001739: 20,2010 52014 CLEAR GOTO 029948,001740: 20,2011 01264 STEERSW # RESTARTS OK 029949,001741: 20,2012 03657 QTEMP 029950,001742: 20,2013 77776 INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING 029951,001743: 20,2014 05537 TC ALARM # IN WRONG DIRECTION. 029952,001744: 20,2015 01407 OCT 01407 029953,001745: 20,2016 06006 TC INTPRET 029954,001746: 20,2017 77650 GOTO 029955,001747: 20,2020 03657 QTEMP 029956,001748: 029957,001749: 20,2021 77214 LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED 029958,001750: 20,2022 00711 IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF 029959,001751: 20,2023 03657 QTEMP # UNFAVORABLE S40.8 SYNCH. 029960,001752: 20,2024 15332 HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS 029961,001753: 20,2025 03126 STORE OMEGAC # PUT TVC IN ATTITUDE HOLD 029962,001754: 20,2026 77776 EXIT 029963,001755: 029964,001756: 20,2027 44714 CS ZERO 029965,001757: 20,2030 55653 TS VCNTR # KILL CSMMASS UPDATING 029966,001758: 20,2031 55663 TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO) 029967,001759: 20,2032 55652 TS REPFRAC # KILL TVCDAP CG TRIM TRACKING 029968,001760: 20,2033 55145 TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB) 029969,001761: 029970,001762: 20,2034 06006 TC INTPRET 029971,001763: 20,2035 52014 CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL 029972,001764: 20,2036 01264 STEERSW # SHUTDOWN IF NOT SET UP AGAIN) 029973,001765: 20,2037 03657 QTEMP # RESTARTS OK 029974,001766: 029975,001767: # Page 683 029976,001768: # NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY) 029977,001769: # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED 029978,001770: # VECTORS FOR USE DURING AIMPOINT MANEUVERS. 029979,001771: # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 029980,001772: # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED. 029981,001773: # CALLING SEQ VIA FINDVEC AS NEW JOB. 029982,001774: # INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29. 029983,001775: # VNIT ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7. 029984,001776: # VRPREV LAST COMPUTED VELOCITY REQUIRED VECTOR IN 029985,001777: # METERS/CS AT +7. 029986,001778: # NONTIG TIME OF IGN. USED IN TARGETTING ROUTINES B+28 029987,001779: # DELLT4 TRANSFER TIME FROM PIPTIME TO TARGET B+28 029988,001780: # TNIT TIME OF RNIT AND VNIT IN CS AT +28 029989,001781: # GDT/2 HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO 029990,001782: # ACCELERATION OF GRAVITY IN METERS/CS AT +7. 029991,001783: # DELVREF CHANGE IN VELOCITY DURING LAST 2 SEC IN 029992,001784: # METERS/CS AT +7. 029993,001785: # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN 029994,001786: # 165 TO 195 DEGREES. 029995,001787: # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE. 029996,001788: # OUTPUT VGTEMP VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7. 029997,001789: # COGA INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 029998,001790: # OR PREVIOUS PASS THRU S40.9. 029999,001791: # GOBL/2 OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU 030000,001792: # VRPREV/ VELOCITY REQUIRED VECTOR IN METERS/CS AT +7. 030001,001793: # BDT B VECTOR IN METERS/CS AT +7. 030002,001794: # SUBROUTINES USED -- INITVEL 030003,001795: 030004,001796: 16,2000 SETLOC P40S1 030005,001797: 16,2000 BANK 030006,001798: 030007,001799: 16,2257 E6,1746 EBANK= NBRCYCLS 030008,001800: 16,2257 COUNT 16/S40.9 030009,001801: 030010,001802: 16,2257 06006 S40.9 TC INTPRET 030011,001803: 16,2260 71201 SETPD DLOAD 030012,001804: 16,2261 00001 00D 030013,001805: 16,2262 11456 LO6ZEROS 030014,001806: 16,2263 77725 PDDL 030015,001807: 16,2264 34401 EP4(45)L 030016,001808: 16,2265 71214 BON DLOAD 030017,001809: 16,2266 03705 NORMSW 030018,001810: 16,2267 34271 +2 030019,001811: 16,2270 34403 EP4(10)L 030020,001812: 16,2271 77606 PUSH 030021,001813: 16,2272 45014 CLEAR CALL 030022,001814: 16,2273 00675 GUESSW 030023,001815: 16,2274 22002 HAVEGUES 030024,001816: 16,2275 77776 EXIT 030025,001817: 16,2276 05301 TC PHASCHNG # SAVE TIME BY NOT REDOING LAMBERT CALCS 030026,001818: 16,2277 05021 OCT 05021 # C, PRIORITY NEXT, JOB BELOW 030027,001819: # Page 684 030028,001820: 16,2300 10000 OCT 10000 030029,001821: 16,2301 06006 TC INTPRET 030030,001822: 16,2302 77614 ENDLAMB BON 030031,001823: 16,2303 01310 FIRSTFLG 030032,001824: 16,2304 34322 FIRSTTME 030033,001825: 16,2305 52375 VLOAD VSU 030034,001826: 16,2306 03612 VIPRIME 030035,001827: 16,2307 03466 VRPREV 030036,001828: 16,2310 45325 PDDL DSU 030037,001829: 16,2311 03474 TNIT 030038,001830: 16,2312 03476 TNITPREV 030039,001831: 16,2313 55261 SL BDDV 030040,001832: 16,2314 20222 17D 030041,001833: 16,2315 34375 200CSHI 030042,001834: 16,2316 77761 VXSC 030043,001835: 16,2317 76451 VSU VSL1 030044,001836: 16,2320 01207 GDT/2 030045,001837: 16,2321 03705 STORE BDT 030046,001838: 16,2322 57535 FIRSTTME SLOAD DCOMP 030047,001839: 16,2323 03747 RTX2 030048,001840: 16,2324 77640 BMN 030049,001841: 16,2325 34342 MOONCASE 030050,001842: 16,2326 53575 VLOAD UNIT 030051,001843: 16,2327 01171 RN 030052,001844: 16,2330 45345 DLOAD DSU 030053,001845: 16,2331 01205 PIPTIME 030054,001846: 16,2332 03450 NOMTIG 030055,001847: 16,2333 56205 DMP DDV 030056,001848: 16,2334 34377 EARTHMU 030057,001849: 16,2335 00043 34D 030058,001850: 16,2336 53361 VXSC VAD 030059,001851: 16,2337 01215 GOBL/2 030060,001852: 16,2340 03646 VGTEMP # NOTE: NO TEST IS MADE TO SUBTRACT GOBL 030061,001853: 16,2341 03646 STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA. 030062,001854: 16,2342 77776 MOONCASE EXIT 030063,001855: 16,2343 05301 TC PHASCHNG 030064,001856: 16,2344 04021 OCT 04021 # C, JOB BELOW 030065,001857: 030066,001858: 16,2345 06006 COPY40.9 TC INTPRET 030067,001859: 16,2346 77745 DLOAD 030068,001860: 16,2347 03474 TNIT 030069,001861: 16,2350 27476 STOVL TNITPREV 030070,001862: 16,2351 03612 VIPRIME 030071,001863: 16,2352 03466 STORE VRPREV 030072,001864: 16,2353 77414 CLEAR EXIT 030073,001865: 16,2354 01270 FIRSTFLG 030074,001866: 16,2355 44712 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9 030075,001867: 16,2356 55746 TS NBRCYCLS 030076,001868: 16,2357 05301 ENDS40.9 TC PHASCHNG 030077,001869: 16,2360 00001 OCT 00001 030078,001870: # Page 685 030079,001871: 16,2361 15112 TCF ENDOFJOB 030080,001872: 030081,001873: 16,2362 06006 REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY 030082,001874: 16,2363 77775 VLOAD # TERMINATE S40.9 SO THAT IT CAN BE 030083,001875: 16,2364 11456 LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS 030084,001876: 16,2365 17351 STODL DELVSUM # (TYPE C PHASE POINTS '04021' WILL 030085,001877: 16,2366 11456 LO6ZEROS # FORCE NORMAL S40.9 TERMINATIONS, 030086,001878: 16,2367 27347 STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW 030087,001879: 16,2370 03721 VGPREV # PASS -- QUICK OLD DATA BETTER THAN 030088,001880: 16,2371 03646 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9 030089,001881: 16,2372 77776 EXIT # WITHOUT DISTURBING VGPREV. 030090,001882: 16,2373 12355 TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S 030091,001883: 030092,001884: 16,2374 01440 00000 200CSHI 2DEC 200 B-12 030093,001885: 16,2376 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* 030094,001886: 16,2400 04000 00000 EP4(45)L 2DEC .125 030095,001887: 16,2402 00707 03434 EP4(10)L 2DEC .027777777 030096,001888: 030097,001889: # Page 686 030098,001890: # NAME: S40.13 -- TIMEBURN 030099,001891: 030100,001892: # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY TO 030101,001893: # BE GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 030102,001894: # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND 030103,001895: # (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT -- 030104,001896: # AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL. 030105,001897: 030106,001898: # CALLING SEQUENCE VIA FINDVAC AS A NEW JOB 030107,001899: 030108,001900: # INPUT VGTIG -- VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7 030109,001901: # WEIGHT/G -- MASS OF VEHICLE IN KGM AT TIG 030110,001902: # F -- ENGINE THRUST IN M.NEWTONS AT +7 030111,001903: # MDOT -- RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN 030112,001904: # IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY 030113,001905: # REQUIRE MODIFICATION FOR SATURN BURNS. 030114,001906: 030115,001907: # OUTPUT IMPULSW ZERO FOR STEERING 030116,001908: # ONE FOR ATTITUDE HOLD 030117,001909: # TGO TIME TO BURN IN CENTISECONDS AT +14 030118,001910: # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF 030119,001911: # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND) 030120,001912: # (1) M.NEWTON = (10000) NEWTONS. 030121,001913: 030122,001914: 16,2404 E7,1427 EBANK= TGO 030123,001915: 16,2404 COUNT 16/40.13 030124,001916: 030125,001917: 16,2404 06006 S40.13 TC INTPRET 030126,001918: 16,2405 43001 SETPD SET 030127,001919: 16,2406 00001 00D 030128,001920: 16,2407 01066 IMPULSW # ASSUME NO STEERING UNTIL FOUND OTHERWISE 030129,001921: 16,2410 51575 VLOAD ABVAL 030130,001922: 16,2411 03721 VGTIG # VELOCITY TO BE GAINED AT +7 030131,001923: 16,2412 77776 EXIT 030132,001924: 16,2413 34704 CAF BIT7 # TEST +X TRANSLATION 030133,001925: 16,2414 00006 EXTEND 030134,001926: 16,2415 06031 RXOR CHAN31 030135,001927: 16,2416 74704 MASK BIT7 030136,001928: 16,2417 00006 EXTEND 030137,001929: 16,2420 12502 BZF NOTADDUL 030138,001930: 16,2421 06006 TC INTPRET 030139,001931: 16,2422 56325 PDDL DDV # 00D = MAG OF VGTIG AT +7 030140,001932: 16,2423 36027 S40.135 # COMPENSATION FOR 2 JET ULLAGE AT +24 030141,001933: 16,2424 03076 WEIGHT/G # MASS IN KGMS AT +16 030142,001934: 16,2425 72414 BON SL1 # DOUBLE CORRECTION IF FOUR JETS 030143,001935: 16,2426 00700 NJETSFLG 030144,001936: 16,2427 34430 S40.130 030145,001937: 16,2430 77621 S40.130 BDSU 030146,001938: 16,2431 56325 PDDL DDV # 00D = MAG OF VGTIG CORRECTED FOR ULLAGE 030147,001939: 16,2432 36013 K1VAL # M.NEWTON-CS AT +24 030148,001940: 16,2433 03076 WEIGHT/G 030149,001941: 16,2434 50021 BDSU BMN 030150,001942: 16,2435 00001 00D 030151,001943: 16,2436 34461 S40.131 # TGO LESS THAN 100 CS 030152,001944: 16,2437 41325 PDDL DMP # 02D = TEMP1 AT +7 030153,001945: # Page 687 030154,001946: 16,2440 00111 EMDOT # SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE) 030155,001947: 16,2441 36023 3.5SEC # 350 CS AT +14 030156,001948: 16,2442 65221 BDSU PDDL 030157,001949: 16,2443 03076 WEIGHT/G 030158,001950: 16,2444 03727 F # F AT +7 030159,001951: 16,2445 60405 DMP SR2 030160,001952: 16,2446 36025 5SECOND # 500 CS AT +14 030161,001953: 16,2447 41471 DDV PUSH # 04D = TEMP2 030162,001954: 16,2450 51021 BDSU BPL 030163,001955: 16,2451 00003 02D 030164,001956: 16,2452 34475 S40.133 # TGO GREATER THAN 600 CS 030165,001957: 16,2453 55345 DLOAD BDDV 030166,001958: 16,2454 43205 DMP DAD 030167,001959: 16,2455 36025 5SECOND # 500 CS AT +14 030168,001960: 16,2456 36021 1SEC2D # 100 CS AT +14 030169,001961: 16,2457 77650 GOTO 030170,001962: 16,2460 34466 S40.132 030171,001963: 16,2461 41345 S40.131 DLOAD DMP # TGO LESS THAN 100 CS 030172,001964: 16,2462 03076 WEIGHT/G 030173,001965: 16,2463 56215 DAD DDV 030174,001966: 16,2464 36015 K2VAL # M.NEWTON CS AT +24 030175,001967: 16,2465 36017 K3VAL # M.NEWTON AT +10 030176,001968: 16,2466 77776 S40.132 EXIT 030177,001969: 16,2467 E7,1427 EBANK= TGO 030178,001970: 16,2467 07226 TC TPAGREE 030179,001971: 16,2470 30154 CA MPAC 030180,001972: 16,2471 56001 XCH L 030181,001973: 16,2472 34714 CA ZERO 030182,001974: 16,2473 53430 DXCH TGO # TGO IN CS AT +28 030183,001975: 16,2474 02477 TC S40.134 030184,001976: 030185,001977: 16,2475 77414 S40.133 CLEAR EXIT # WILL STEER VEHICLE 030186,001978: 16,2476 01266 IMPULSW 030187,001979: 16,2477 05301 S40.134 TC PHASCHNG # KILL GROUP 3 030188,001980: 16,2500 00003 OCT 3 030189,001981: 030190,001982: 16,2501 15112 TCF ENDOFJOB 030191,001983: 16,2502 06006 NOTADDUL TC INTPRET 030192,001984: 16,2503 77650 GOTO 030193,001985: 16,2504 34431 S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE 030194,001986: 17,2000 SETLOC DAPS7 030195,001987: 17,2000 BANK 030196,001988: 030197,001989: 17,2012 COUNT 17/40.13 030198,001990: 030199,001991: 17,2012 00001 27221 K1VAL 2DEC 884.52887 B-23 # 19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2 030200,001992: 17,2014 00000 22244 K2VAL 2DEC 293.137805 B-23 # 6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2 030201,001993: # Page 688 030202,001994: 17,2016 00570 33235 K3VAL 2DEC 11.7766668 B-9 # 25475 LBS, SC.AT B+9 NEWTONS/E+4 030203,001995: 17,2020 00144 00000 1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14 030204,001996: 17,2022 01274 00000 3.5SEC 2DEC 350.0 B-13 # 350 CS AT +13 030205,001997: 17,2024 00764 00000 5SECOND 2DEC 500.0 B-14 # 500.0 CS AT +14 030206,001998: 17,2026 00000 04263 S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING 030207,001999: # 7.96 (199.6)COS(10) LB-SEC, SC.AT 030208,002000: # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE 030209,002001: # TO GO, PLUS 0.96 SEC FROM PIPTIME) 030210,002002: # Page 689 030211,002003: # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM 030212,002004: # MOD NO 5 DATE 9 MARCH, 1967 030213,002005: # MOD BY ENGEL LOG SECTION P40-P47 030214,002006: 030215,002007: # FUNCTIONAL DESCRIPTION 030216,002008: # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND 030217,002009: # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION 030218,002010: # OF GIMBAL MOTION ON GPI 030219,002011: # GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO 030220,002012: # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI. 030221,002013: # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON --- IF TVC 030222,002014: # IS NOT ON --- PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION. 030223,002015: # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION. 030224,002016: # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE 030225,002017: # OF RESTARTING ACTUATORS. 030226,002018: 030227,002019: # CALLING SEQUENCE.... 030228,002020: # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR 030229,002021: 030230,002022: # NORMAL EXIT MODE -- FIXDELAY, TASKOVER 030231,002023: 030232,002024: # SUBROUTINES CALLED.... 030233,002025: # OUTPUT (INTERNAL) 030234,002026: # FIXDELAY 030235,002027: 030236,002028: # ALARM OR ABORT EXIT MODES --- NONE 030237,002029: 030238,002030: # ERASABLE INITIALIZATION REQUIRED 030239,002031: # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM. 030240,002032: # MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH) 030241,002033: # NEGATIVE FOR GIMBAL TRIM ONLY 030242,002034: # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM) 030243,002035: # "SC CONT" SWITCH AT "CMC" (A/P CONTROL SWITCH AT "GNC") 030244,002036: # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW 030245,002037: 030246,002038: # OUTPUT 030247,002039: # TVCYAW, TVCPITCH (BITS RELEASED) 030248,002040: # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE 030249,002041: 030250,002042: # DEBRIS 030251,002043: # TBMPR60, CNTR 030252,002044: 030253,002045: 17,2030 BANK 17 030254,002046: 20,2000 SETLOC DAPS6 030255,002047: 20,2000 BANK 030256,002048: 030257,002049: 20,2040 E6,1447 EBANK= CNTR 030258,002050: 20,2040 COUNT 20/S40.6 030259,002051: 030260,002052: 20,2040 40102 PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT 030261,002053: 20,2041 74105 MASK OCT60000 # IF TVC, BITS 15,(?)4 = 1,0) 030262,002054: 20,2042 00006 EXTEND 030263,002055: 20,2043 62045 BZMF +2 030264,002056: 20,2044 15213 TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE 030265,002057: 030266,002058: 20,2045 44712 CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY 030267,002059: # Page 690 030268,002060: 20,2046 55445 TS MRKRTMP 030269,002061: 20,2047 34712 CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS... 030270,002062: 20,2050 55447 TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 15 030271,002063: # NORMALLY +0, BY S40.6) 030272,002064: 20,2051 E6,1447 EBANK= CNTR 030273,002065: 20,2051 44714 S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY 030274,002066: 20,2052 55303 TS OPTIND 030275,002067: 030276,002068: 20,2053 44711 CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO, 030277,002069: 20,2054 00006 EXTEND # AND INHIBIT PULSE TRANSMISSION -- 030278,002070: 20,2055 03012 WAND CHAN12 # NORMAL STATE) 030279,002071: 030280,002072: 20,2056 32143 CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC 030281,002073: 20,2057 00006 EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC 030282,002074: 20,2060 05012 WOR CHAN12 030283,002075: 030284,002076: 20,2061 05156 TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR 030285,002077: 20,2062 00006 DEC 6 B-14 # RELAY LATCHING 030286,002078: 030287,002079: 20,2063 34711 CAF BIT2 # ENABLE OPTICS ERROR COUNTERS 030288,002080: 20,2064 00006 EXTEND 030289,002081: 20,2065 05012 WOR CHAN12 030290,002082: 030291,002083: 20,2066 05156 TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR 030292,002084: 20,2067 00002 DEC 2 B-14 # RELAY LATCHING 030293,002085: 030294,002086: 20,2070 11447 RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6) 030295,002087: 20,2071 12131 TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY 030296,002088: # TST,TRIM SETS +0 ON NORMAL ENTRY 030297,002089: 030298,002090: 20,2072 31445 CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY 030299,002091: 20,2073 55447 TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS 030300,002092: 20,2074 00006 EXTEND 030301,002093: 20,2075 62127 BZMF GIMTRIM # (TRIM ONLY) 030302,002094: 030303,002095: 20,2076 44714 GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH 030304,002096: 20,2077 55447 TS CNTR 030305,002097: 030306,002098: 20,2100 32145 GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT 030307,002099: 20,2101 02114 TC OUTPUT # (LEAVES GIMBAL AT +2 DEG) 030308,002100: 20,2102 32144 CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2) 030309,002101: 20,2103 02114 TC OUTPUT 030310,002102: 20,2104 32145 CAF +2ACTDEG # 34D INCREMENT (LEAVES GIMBAL AT -0) 030311,002103: 20,2105 02114 TC OUTPUT 030312,002104: 030313,002105: 20,2106 41447 CS CNTR # CHECK FOR COMPLETION OF YAW TEST. 030314,002106: # Page 691 030315,002107: 20,2107 10000 CCS A 030316,002108: 20,2110 12127 TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE 030317,002109: 20,2111 44712 CS BIT1 # SET UP YAW TEST 030318,002110: 20,2112 55447 TS CNTR 030319,002111: 20,2113 12100 TCF GIMDTEST # FOR YAW TEST 030320,002112: 20,2114 00006 OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q 030321,002113: 20,2115 23146 QXCH TEMPR60 030322,002114: 030323,002115: 20,2116 51447 INDEX CNTR 030324,002116: 20,2117 54054 TS TVCPITCH 030325,002117: 030326,002118: 20,2120 51447 INDEX CNTR 030327,002119: 20,2121 34700 CAF BIT11 030328,002120: 20,2122 00006 EXTEND 030329,002121: 20,2123 05014 WOR CHAN14 030330,002122: 030331,002123: 20,2124 05156 TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES 030332,002124: 20,2125 00310 DEC 200 B-14 # GIMBAL MOTION ON GPI 030333,002125: 20,2126 01146 TC TEMPR60 030334,002126: 20,2127 05156 GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM 030335,002127: 20,2130 00620 DEC 400 B-14 030336,002128: 030337,002129: 20,2131 44714 +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM 030338,002130: 20,2132 61425 AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST 030339,002131: 20,2133 54054 TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY 030340,002132: 20,2134 44714 CS ZERO 030341,002133: 20,2135 61426 AD YACTOFF 030342,002134: 20,2136 54053 TS TVCYAW 030343,002135: 030344,002136: 20,2137 34755 CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12 030345,002137: 20,2140 00006 EXTEND 030346,002138: 20,2141 05014 WOR CHAN14 030347,002139: 030348,002140: 20,2142 15213 ENDS40.6 TCF TASKOVER 030349,002141: 20,2143 02200 OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS 030350,002142: 20,2144 77527 -4ACTDEG DEC -168 B-14 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP 030351,002143: 20,2145 00124 +2ACTDEG DEC +84 B-14 # +2 DEG, SC.AT 65.41 ARCSEC/BIT (+84D) 030352,002144: 030353,002145: # CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL 030354,002146: 030355,002147: 20,2146 COUNT 20/S41.2 030356,002148: 20,2146 31466 S41.2 CA DAPDATR1 030357,002149: # Page 692 030358,002150: 20,2147 76214 MASK THREE 030359,002151: 20,2150 60000 AD A 030360,002152: 20,2151 55130 TS RATEINDX 030361,002153: 030362,002154: 20,2152 00004 INHINT 030363,002155: 20,2153 31466 CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1 030364,002156: 20,2154 74371 MASK PRIO30 # =10) 030365,002157: 20,2155 67705 AD -BIT14 # (OCT57777) 030366,002158: 20,2156 00006 EXTEND 030367,002159: 20,2157 12164 BZF TOGETHER # YES 030368,002160: 030369,002161: 20,2160 44711 CS BIT2 # NO, UNSET FLAG 030370,002162: 20,2161 70103 MASK FLAGWRD7 030371,002163: 20,2162 54103 TS FLAGWRD7 030372,002164: 030373,002165: 20,2163 12167 TCF +4 030374,002166: 030375,002167: 20,2164 40103 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION 030376,002168: 20,2165 74711 MASK BIT2 030377,002169: 20,2166 26103 ADS FLAGWRD7 030378,002170: 030379,002171: 20,2167 00003 RELINT 030380,002172: 030381,002173: 20,2170 31466 CA DAPDATR1 030382,002174: 20,2171 74707 MASK BIT4 030383,002175: 20,2172 00006 EXTEND 030384,002176: 20,2173 62175 BZMF +2 # DEC 46 MEANS NARROW DB 030385,002177: 20,2174 32275 CA DEC409 030386,002178: 20,2175 62276 AD DEC46 # DEC 455 MEANS WIDE DB 030387,002179: 20,2176 55655 TS ADB 030388,002180: 030389,002181: 20,2177 31466 CA DAPDATR1 030390,002182: 20,2200 74704 MASK BIT7 # QUAD BD 030391,002183: 20,2201 00006 EXTEND 030392,002184: 20,2202 62204 BZMF +2 030393,002185: 20,2203 34712 CA ONE 030394,002186: 20,2204 55631 TS XTRANS 030395,002187: 20,2205 31466 CA DAPDATR1 030396,002188: 20,2206 74701 MASK BIT10 # QUAD AC 030397,002189: 20,2207 00006 EXTEND 030398,002190: 20,2210 62212 BZMF +2 030399,002191: 20,2211 44712 CS ONE 030400,002192: 20,2212 27631 ADS XTRANS 030401,002193: 030402,002194: 20,2213 00004 INHINT 030403,002195: 20,2214 00006 EXTEND 030404,002196: 20,2215 12222 BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS) 030405,002197: 20,2216 40075 CS FLAGWRD1 # SET NJETSFLG (2 JETS, AC OR BD QUADS) 030406,002198: 20,2217 74674 MASK BIT15 # NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD) 030407,002199: 20,2220 26075 ADS FLAGWRD1 030408,002200: # Page 693 030409,002201: 20,2221 12225 TCF +4 030410,002202: 20,2222 44674 CS BIT15 # KJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE 030411,002203: 20,2223 70075 MASK FLAGWRD1 030412,002204: 20,2224 54075 TS FLAGWRD1 030413,002205: 20,2225 00003 RELINT 030414,002206: 20,2226 31467 CA DAPDATR2 030415,002207: 20,2227 74676 MASK BIT13 030416,002208: 20,2230 00006 EXTEND 030417,002209: 20,2231 62233 BZMF +2 030418,002210: 20,2232 12234 TCF +2 030419,002211: 20,2233 44712 CS ONE 030420,002212: 20,2234 40000 COM 030421,002213: 20,2235 55630 TS ACORBD # MINUS FOR A-C, PLUS FOR B-D 030422,002214: 030423,002215: 20,2236 31467 CA DAPDATR2 030424,002216: 20,2237 74701 MASK BIT10 030425,002217: 20,2240 10000 CCS A 030426,002218: 20,2241 12245 TCF +4 030427,002219: 20,2242 34712 CA ONE 030428,002220: 20,2243 55626 TS RACFAIL 030429,002221: 20,2244 12255 TCF BDFAIL 030430,002222: 20,2245 34714 CA ZERO 030431,002223: 20,2246 55626 TS RACFAIL 030432,002224: 20,2247 31467 CA DAPDATR2 030433,002225: 20,2250 74707 MASK BIT4 030434,002226: 20,2251 10000 CCS A 030435,002227: 20,2252 12255 TCF BDFAIL 030436,002228: 20,2253 44712 CS ONE 030437,002229: 20,2254 55626 TS RACFAIL 030438,002230: 20,2255 31467 BDFAIL CA DAPDATR2 030439,002231: 20,2256 74704 MASK BIT7 030440,002232: 20,2257 10000 CCS A 030441,002233: 20,2260 12264 TCF +4 030442,002234: 20,2261 34712 CA ONE 030443,002235: 20,2262 55627 TS RBDFAIL 030444,002236: 20,2263 00002 TC Q 030445,002237: 20,2264 34714 CA ZERO 030446,002238: 20,2265 55627 TS RBDFAIL 030447,002239: 20,2266 31467 CA DAPDATR2 030448,002240: 20,2267 74712 MASK BIT1 030449,002241: 20,2270 10000 CCS A 030450,002242: 20,2271 00002 TC Q 030451,002243: 20,2272 44712 CS ONE 030452,002244: 20,2273 55627 TS RBDFAIL 030453,002245: 20,2274 00002 TC Q 030454,002246: 030455,002247: # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46) 030456,002248: 030457,002249: 42,3521 BANK 42 030458,002250: 42,2000 SETLOC EXTVBS 030459,002251: # Page 694 030460,002252: 42,2000 BANK 030461,002253: 030462,002254: 42,3521 44702 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER 030463,002255: 42,3522 00006 EXTEND 030464,002256: 42,3523 03012 WAND CHAN12 030465,002257: 42,3524 31466 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION 030466,002258: 42,3525 00006 EXTEND 030467,002259: 42,3526 74710 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS 030468,002260: 42,3527 76214 MASK THREE # (IN CASE BIT 15 IS USED) 030469,002261: 42,3530 50000 INDEX A 030470,002262: 42,3531 13532 TCF +1 # BRANCH BASED ON CONFIG.... 030471,002263: 030472,002264: 42,3532 13544 TCF NODAPUP # CM.......ACTIVATE NODAP 030473,002265: 42,3533 13537 TCF RCSDAPUP # CSM......ACTIVATE RCSDAP 030474,002266: 42,3534 13537 TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP 030475,002267: 42,3535 04574 TC POSTJUMP 030476,002268: 42,3536 67211 CADR SATSTKON 030477,002269: 42,3537 00004 RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN 030478,002270: 42,3540 04633 TCR IBNKCALL 030479,002271: 42,3541 42010 CADR RCSDAPON 030480,002272: 42,3542 00003 RELINT 030481,002273: 42,3543 13561 TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN 030482,002274: 42,3544 00006 NODAPUP EXTEND # T5 IDLE FOR NODAP (DON'T WORRY ABOUT T) 030483,002275: 42,3545 33564 DCA T5IDLDAP 030484,002276: 42,3546 53313 DXCH T5LOC 030485,002277: 42,3547 05447 TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP 030486,002278: 42,3550 00132 ADRES DAPBIT1 # BIT 15 FLAG 6 = 0 030487,002279: 42,3551 05447 TC DOWNFLAG 030488,002280: 42,3552 00133 ADRES DAPBIT2 # BIT 14 FLAG 6 = 0 030489,002281: 42,3553 00004 INHINT 030490,002282: 42,3554 04633 TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN 030491,002283: 42,3555 42616 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED. 030492,002284: 42,3556 00003 RELINT 030493,002285: 42,3557 34712 CAF BIT1 # KILL KALCMANU JOB 030494,002286: 42,3560 55332 TS HOLDFLAG 030495,002287: 42,3561 04574 ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN 030496,002288: 42,3562 66121 CADR GOPIN

[WORKAROUND] RSB 2004

030498,002290: 42,3563  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

030500,002292: 42,3563  E6,1425                                 EBANK=   PACTOFF                               
030501,002293: 42,3563           03143 12106  T5IDLDAP          2CADR    T5IDLOC                               
030502,002294: 
030503,002295: 17,2030                                          BANK     17                                    
030504,002296: 20,2000                                          SETLOC   DAPS6                                 
030505,002297: 20,2000                                          BANK                                           
030506,002298: 
030507,002299: 20,2275           00631        DEC409            DEC      409        B-14                       
030508,002300: 20,2276           00056        DEC46             DEC      46         B-14                       
030509,002301: 
030510,002302:                                                                                                 #  CALLED BY "DONOUN47" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP)
030511,002303:                                                                                                 #  Page 695
030512,002304: 20,2277           31470        S40.14            CAE      IXX                                   #  RCS ENTRY
030513,002305: 20,2300           00006                          EXTEND                                         
030514,002306: 20,2301           72324                          MP       CONTONE                               
030515,002307: 20,2302           55623                          TS       J/M                                   
030516,002308: 
030517,002309: 20,2303           31471                          CA       IAVG                                  
030518,002310: 20,2304           00006                          EXTEND                                         
030519,002311: 20,2305           72324                          MP       CONTONE                               
030520,002312: 20,2306           55624                          TS       J/M1                                  
030521,002313: 
030522,002314: 20,2307           55625                          TS       J/M2                                  
030523,002315: 
030524,002316: 20,2310           00006                          EXTEND                                         
030525,002317: 20,2311           32326                          DCA      CONTTWO                               
030526,002318: 20,2312           00006                          EXTEND                                         
030527,002319: 20,2313           11470                          DV       IXX                                   
030528,002320: 20,2314           55620                          TS       KMJ                                   
030529,002321: 
030530,002322: 20,2315           00006                          EXTEND                                         
030531,002323: 20,2316           32326                          DCA      CONTTWO                               
030532,002324: 20,2317           00006                          EXTEND                                         
030533,002325: 20,2320           11471                          DV       IAVG                                  
030534,002326: 20,2321           55621                          TS       KMJ1                                  
030535,002327: 
030536,002328: 20,2322           55622                          TS       KMJ2                                  
030537,002329: 
030538,002330: 20,2323           00002                          TC       Q                                     
030539,002331: 
030540,002332: 20,2324           25137        CONTONE           DEC      .662034                               #  2PI/M
030541,002333: 20,2325           00023 12522  CONTTWO           2DEC     .00118                                
030542,002334: 
030543,002335: 20,2327                                          COUNT    24/TVNG                               
030544,002336: 
030545,002337: 31,3215                                          BANK     31                                    
030546,002338: 24,2000                                          SETLOC   P40S                                  
030547,002339: 24,2000                                          BANK                                           
030548,002340: 
030549,002341: 24,3677           37405        POS-2.5           OCT      37405                                 

[WORKAROUND] RSB 2004

030551,002343: 24,3700  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

030553,002345: 24,3700  E6,1466                                 EBANK=   DAPDATR1                              
030554,002346: 24,3700           02000 42106  RCSCADR           2CADR    RCSUP                                 
030555,002347: 
030556,002348: 24,3702           37704        6SECT5            OCT      37704                                 
030557,002349: 24,3703                                          COUNT    21/RCSUP                              
030558,002350: 
030559,002351: 20,2327                                          BANK     20                                    
030560,002352: 
030561,002353: 21,2000                                          SETLOC   DAPS3                                 
030562,002354: 21,2000                                          BANK                                           
030563,002355: 
030564,002356: 21,2000           22016        RCSUP             LXCH     BANKRUPT                              
030565,002357:                                                                                                 #  Page 696
030566,002358: 21,2001           00006                          EXTEND                                         
030567,002359: 21,2002           22012                          QXCH     QRUPT                                 
030568,002360: 
030569,002361: 21,2003           02010                          TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030570,002362: 
030571,002363: 21,2004           15222                          TCF      RESUME                                
030572,002364: 
030573,002365: 21,2005  E6,1466                                 EBANK=   DAPDATR1                              
030574,002366: 21,2005           02106 42106  RCSADDR           2CADR    RCSATT                                
030575,002367: 
030576,002368: 21,2007           37704        0.6SECT5          OCT      37704                                 
030577,002369: 
030578,002370:                                                                                                 #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030579,002371: 21,2010           32007        RCSDAPON          CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030580,002372: 21,2011           54030                 +1       TS       TIME5                                 #  ENTRY FROM R00TOP00
030581,002373: 21,2012           55465                          TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030582,002374: 
030583,002375: 21,2013           41501                          CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030584,002376: 21,2014           74710                          MASK     BIT3                                  #         DISPLAY, IN CASE SC CONT SWITCH
030585,002377: 21,2015           27501                          ADS      RCSFLAGS                              #         IN SCS NOT GNC (GUIDEMODE PRIMARY)
030586,002378: 
030587,002379: 21,2016           00006                          EXTEND                                         
030588,002380: 21,2017           32006                          DCA      RCSADDR                               #  (RCSATT)
030589,002381: 21,2020           53313                          DXCH     T5LOC                                 
030590,002382: 
030591,002383: 21,2021           44105                          CS       OCT60000                              #  SEE BITS 15,14 TO 01 TO INDICATE
030592,002384: 21,2022           70102                          MASK     FLAGWRD6                              #         T5 TAKEOVER BY RCSDAP
030593,002385: 21,2023           64675                          AD       BIT14                                 
030594,002386: 21,2024           54102                          TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030595,002387: 
030596,002388: 21,2025           00002                          TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

End of include-file P40-P47.agc.  Parent file is MAIN.agc