Source Code

030190,000001: # Copyright: Public domain. 030191,000002: # Filename: P40-P47.agc 030192,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 030193,000004: # It is part of the source code for the Command Module's (CM) 030194,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 030195,000006: # Assembler: yaYUL 030196,000007: # Contact: Ron Burkey <info@sandroid.org>. 030197,000008: # Website: www.ibiblio.org/apollo. 030198,000009: # Pages: 684-736 030199,000010: # Mod history: 2009-05-11 RSB Adapted from the Colossus249/ file 030200,000011: # of the same name, using Comanche055 page 030201,000012: # images. 030202,000013: # 2009-05-20 RSB In S20.1, a DMP DDV was corrected to DMPR DDV. 030203,000014: # 2009-05-22 RSB In BESTTRIM, TC PACTOFF corrected to 030204,000015: # TS PACTOFF. 030205,000016: # 2009-05-23 RSB Prior to the 2CADR at T5IDLDAP, added an 030206,000017: # SBANK. 030207,000018: # 2010-08-28 JL Fixed indentation. 030208,000019: 030209,000020: # This source code has been transcribed or otherwise adapted from digitized 030210,000021: # images of a hardcopy from the MIT Museum. The digitization was performed 030211,000022: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 030212,000023: # thanks to both. The images (with suitable reduction in storage size and 030213,000024: # consequent reduction in image quality as well) are available online at 030214,000025: # www.ibiblio.org/apollo. If for some reason you find that the images are 030215,000026: # illegible, contact me at info@sandroid.org about getting access to the 030216,000027: # (much) higher-quality images which Paul actually created. 030217,000028: 030218,000029: # Notations on the hardcopy document read, in part: 030219,000030: 030220,000031: # Assemble revision 055 of AGC program Comanche by NASA 030221,000032: # 2021113-051. 10:28 APR. 1, 1969 030222,000033: 030223,000034: # This AGC program shall also be referred to as 030224,000035: # Colossus 2A 030225,000036: 030226,000037: # Page 684 030227,000038: # PROGRAM DESCRIPTION ** P40CSM ** 030228,000039: 030229,000040: 35,3477 E6,1466 EBANK= DAPDATR1 030230,000041: 31,3700 BANK 31 030231,000042: 24,2000 SETLOC P40S 030232,000043: 24,2000 BANK 030233,000044: 030234,000045: 24,2073 COUNT 24/P40 030235,000046: 030236,000047: 24,2073 05560 P40CSM TC DOWNFLAG 030237,000048: 24,2074 00023 ADRES ENG2FLAG 030238,000049: 030239,000050: 24,2075 06006 TC INTPRET 030240,000051: 24,2076 43135 SLOAD BOFF 030241,000052: 24,2077 03425 ECSTEER # IS THIS AN EXTERNAL DELTA V BURN 030242,000053: 24,2100 01347 XDELVFLG 030243,000054: 24,2101 50104 P40S/C # NO CSTEER = ECSTEER 030244,000055: 24,2102 77745 DLOAD # YES CSTEER = ZERO 030245,000056: 24,2103 15335 HI6ZEROS 030246,000057: 24,2104 17703 P40S/C STODL CSTEER 030247,000058: 24,2105 10411 FENG # SET UP THRUST FOR P40 20,000 LBS 030248,000059: 24,2106 17727 P40S/F STODL F # P41 ENTERS HERE 030249,000060: 24,2107 03413 TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV 030250,000061: 24,2110 03450 STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9 030251,000062: 030252,000063: 24,2111 77776 EXIT 030253,000064: 24,2112 04662 TC BANKCALL 030254,000065: 24,2113 17653 CADR R02BOTH # IMU STATUS CHECK 030255,000066: 030256,000067: 24,2114 06006 P40PVA TC INTPRET 030257,000068: 24,2115 77624 CALL 030258,000069: 24,2116 34020 S40.1 # COMPUTE VGTIG,UT 030259,000070: 24,2117 77624 CALL 030260,000071: 24,2120 51574 S40.2,3 # COMPUTE PREFERRED ATTITUDE 030261,000072: 24,2121 77414 SET EXIT 030262,000073: 24,2122 01073 PFRATFLG 030263,000074: 24,2123 02303 P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6) 030264,000075: 24,2124 00003 RELINT 030265,000076: 24,2125 04662 TC BANKCALL 030266,000077: 24,2126 56000 CADR R60CSM # ATTITUDE MANEUVER 030267,000078: 24,2127 45017 CS ONE # FOR UPDATEVG 030268,000079: 24,2130 55742 TS NBRCYCLS 030269,000080: 24,2131 05546 TC UPFLAG 030270,000081: 24,2132 00155 ADRES TIMRFLAG # ALLOW CLOCKTASK 030271,000082: 030272,000083: 24,2133 02326 TC P41/P40 030273,000084: 24,2134 02343 TC P41/DSP # P41 030274,000085: 030275,000086: 24,2135 32425 P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED 030276,000087: # Page 685 030277,000088: 24,2136 55145 TS NVWORD1 # BELOW 030278,000089: 030279,000090: 24,2137 06006 TC INTPRET 030280,000091: 24,2140 51575 VLOAD ABVAL # FOR R2 030281,000092: 24,2141 03721 VGTIG 030282,000093: 24,2142 17773 STODL VGDISP 030283,000094: 24,2143 15335 HI6ZEROS 030284,000095: 24,2144 03426 STORE DVTOTAL 030285,000096: 24,2145 77776 EXIT 030286,000097: 030287,000098: 24,2146 00006 EXTEND 030288,000099: 24,2147 33061 DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING 030289,000100: 24,2150 53223 DXCH AVEGEXIT # AFTER AVERAGE G 030290,000101: 030291,000102: 24,2151 32420 P40GMB CAF P40CKLS2 # (4.1 PROTECTION) 030292,000103: 24,2152 04662 TC BANKCALL 030293,000104: 24,2153 21045 CADR GOPERF1 030294,000105: 24,2154 12275 TCF POST41 # V34 030295,000106: 24,2155 12435 TCF TST,TRIM # V33 030296,000107: 24,2156 45017 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1) 030297,000108: 24,2157 55445 +1 TS MRKRTMP # ENTRY FROM TST,TRIM 030298,000109: 030299,000110: 24,2160 35021 CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6 030300,000111: 24,2161 55447 TS CNTR # +0 SAYS NORMAL ENTRY 030301,000112: # +1 (PRE40.6) SAYS RESTART ENTRY 030302,000113: 030303,000114: 24,2162 35017 CAF ONE 030304,000115: 24,2163 05245 TC WAITLIST 030305,000116: 24,2164 E6,1466 EBANK= DAPDATR1 030306,000117: 24,2164 02252 40066 2CADR S40.6 030307,000118: 030308,000119: 24,2166 11445 CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST 030309,000120: 24,2167 32417 CAF 18SEC # PLUS, DELAY FOR 18 SECONDS 030310,000121: 24,2170 12172 TCF +2 # HOLE 030311,000122: 24,2171 33064 CAF 5SEC # DELAY FOR TRIM ONLY TASK 030312,000123: 24,2172 04662 TC BANKCALL 030313,000124: 24,2173 01732 CADR DELAYJOB 030314,000125: 24,2174 05372 TC 2PHSCHNG 030315,000126: 24,2175 40026 OCT 40026 # 6.2 = PRE40.6(-0CS), CLOKTASK(100CS) 030316,000127: 24,2176 00234 OCT 00234 # 4.23 = P40S/SV (PRIO12) 030317,000128: 24,2177 35017 P40S/RS CAF ONE 030318,000129: 24,2200 05245 TC WAITLIST # P41/SDP 030319,000130: 24,2201 E7,1412 EBANK= TIG 030320,000131: 24,2201 03260 50067 2CADR CLOKTASK 030321,000132: 030322,000133: 24,2203 00003 RELINT 030323,000134: 030324,000135: 24,2204 03366 P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12 030325,000136: 24,2205 E7,1412 EBANK= TIG 030326,000137: # Page 686 030327,000138: 24,2205 06006 TC INTPRET 030328,000139: 24,2206 45345 DLOAD DSU 030329,000140: 24,2207 03413 TIG 030330,000141: 24,2210 10416 SEC29.96 030331,000142: 24,2211 00041 STORE TDEC1 030332,000143: 030333,000144: 24,2212 77624 CALRB # RETURN IN BASIC 030334,000145: 24,2213 27553 MIDTOAV1 030335,000146: 24,2214 12216 TCF +2 030336,000147: 24,2215 02237 TC P40SNEWM # INTEGRATION TIME GREATER THAN ALLOWED 030337,000148: 24,2216 00006 P40SET EXTEND 030338,000149: 24,2217 30155 DCA MPAC # DELTA TIME TO PREREAD (INT.INIT.) 030339,000150: 24,2220 53673 DXCH P40TMP 030340,000151: 24,2221 00006 EXTEND 030341,000152: 24,2222 43064 DCS 5SECDP # FOR TIGBLNK 030342,000153: 24,2223 21673 DAS P40TMP 030343,000154: 24,2224 00006 EXTEND 030344,000155: 24,2225 31673 DCA P40TMP 030345,000156: 24,2226 05342 TC LONGCALL 030346,000157: 24,2227 E7,1412 EBANK= TIG 030347,000158: 24,2227 02437 50067 2CADR TIGBLNK 030348,000159: 030349,000160: 24,2231 05412 TC PHASCHNG 030350,000161: 24,2232 20214 OCT 20214 # 4.21 = TIGBLNK (P40TMP CS) 030351,000162: 030352,000163: 24,2233 15217 TCF ENDOFJOB 030353,000164: 24,2234 04662 P40BLNKR TC BANKCALL 030354,000165: 24,2235 20703 CADR CLEANDSP # REMOVE RESIDUE 030355,000166: 24,2236 15217 TCF ENDOFJOB 030356,000167: 24,2237 E7,1412 EBANK= TIG 030357,000168: 24,2237 00006 P40SNEWM EXTEND 030358,000169: 24,2240 31246 DCA PIPTIME1 030359,000170: 24,2241 53413 DXCH TIG # SET NEW TIG FOR 06 40 030360,000171: 24,2242 00006 EXTEND 030361,000172: 24,2243 32416 DCA SEC29.96 030362,000173: 24,2244 21413 DAS TIG 030363,000174: 24,2245 12216 TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35) 030364,000175: 030365,000176: 24,2246 E6,1466 EBANK= DAPDATR1 030366,000177: 24,2246 32426 POSTBURN CAF V16N40 030367,000178: 24,2247 04662 TC BANKCALL 030368,000179: 24,2250 20704 CADR REFLASH 030369,000180: 24,2251 12275 TCF POST41 # V34 GO FINISH 030370,000181: 24,2252 12254 TCF P40RCS # PROCEED 030371,000182: 24,2253 12246 TCF POSTBURN # RECYCLE 030372,000183: 24,2254 00006 P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS 030373,000184: 24,2255 32462 DCA ACADN85 030374,000185: 24,2256 53223 DXCH AVEGEXIT 030375,000186: 24,2257 35042 CAF 2SECS # WAIT FOR CALCN85 VIA AVEGEXIT 030376,000187: 24,2260 04662 TC BANKCALL 030377,000188: # Page 687 030378,000189: 24,2261 01732 CADR DELAYJOB 030379,000190: 030380,000191: 24,2262 02303 P40MINDB TCR SETMINDB -1 030381,000192: 24,2263 00003 RELINT 030382,000193: 24,2264 05412 TIGNOW TC PHASCHNG 030383,000194: 24,2265 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 85 030384,000195: 24,2266 20000 OCT 20000 # PRIO 20 030385,000196: 24,2267 32424 CAF V16N85B 030386,000197: 24,2270 04662 TC BANKCALL 030387,000198: 24,2271 20704 CADR REFLASH 030388,000199: 24,2272 12275 TCF POST41 # FINISH P40/P41 030389,000200: 24,2273 12275 TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP 030390,000201: 24,2274 12264 TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85 030391,000202: 030392,000203: 24,2275 00006 POST41 EXTEND 030393,000204: 24,2276 32460 DCA SERVCADR 030394,000205: 24,2277 53223 DXCH AVEGEXIT 030395,000206: 24,2300 14106 TCF GOTOP00H 030396,000207: 030397,000208: 24,2301 00056 MINDB DEC 46 B-14 030398,000209: 24,2302 00707 MAXDB DEC 455 B-14 030399,000210: 24,2303 E6,1466 EBANK= DAPDATR1 030400,000211: 24,2303 00004 -1 INHINT 030401,000212: 24,2304 30032 SETMINDB CA CDUX # ROUTINE FOR SETTING 030402,000213: 24,2305 55572 TS THETADX # THE MINIMUM DEADBAND 030403,000214: 24,2306 00006 EXTEND # IN AUTOPILOT 030404,000215: 24,2307 30034 DCA CDUY 030405,000216: 24,2310 53574 DXCH THETADY 030406,000217: 24,2311 32301 CA MINDB # SHOULD BE CALLED UNDER 030407,000218: 24,2312 55655 TS ADB # INTERRUPT INHIBITED 030408,000219: 24,2313 45014 CS BIT4 # EBANK = E6 030409,000220: 24,2314 71466 MASK DAPDATR1 030410,000221: 24,2315 55466 TS DAPDATR1 030411,000222: 24,2316 00002 TC Q 030412,000223: 030413,000224: 24,2317 E6,1466 EBANK= DAPDATR1 030414,000225: 24,2317 00004 -1 INHINT 030415,000226: 24,2320 32302 SETMAXDB CA MAXDB # ROUTINE FOR SETTING 030416,000227: 24,2321 55655 TS ADB # THE MAXIMUM DEADBAND IN AUTOPILOT 030417,000228: 24,2322 41466 CS DAPDATR1 030418,000229: 24,2323 75014 MASK BIT4 # SHOULD BE CALLED UNDER 030419,000230: 24,2324 27466 ADS DAPDATR1 # INTERRUPT INHIBITED 030420,000231: 24,2325 00002 TC Q # EBANK = E6 030421,000232: 030422,000233: # Page 688 030423,000234: # PROGRAM DESCRIPTION ** P41CSM ** 030424,000235: 030425,000236: 27,2000 SETLOC P40S2 030426,000237: 27,2000 BANK 030427,000238: 030428,000239: 27,2614 E6,1466 EBANK= DAPDATR1 030429,000240: 27,2614 COUNT 24/P41 030430,000241: 030431,000242: 27,2614 05546 P41CSM TC UPFLAG 030432,000243: 27,2615 00023 ADRES ENG2FLAG # SET FOR RCS 030433,000244: 030434,000245: 27,2616 06006 TC INTPRET 030435,000246: 27,2617 77745 DLOAD 030436,000247: 27,2620 15335 HI6ZEROS # FOR P41 CSTEER =0 030437,000248: 27,2621 03703 STORE CSTEER 030438,000249: 030439,000250: 27,2622 43145 DLOAD BON 030440,000251: 27,2623 10413 FRCS2 # 2JET THRUST FOR S40.1 030441,000252: 27,2624 00700 NJETSFLG 030442,000253: 27,2625 50106 P40S/F # NJETS = 1 2-JET 030443,000254: 27,2626 52015 DAD GOTO # NJETS = 0 4-JET 030444,000255: 27,2627 10413 FRCS2 030445,000256: 27,2630 50106 P40S/F 030446,000257: 030447,000258: 24,2000 SETLOC P40S 030448,000259: 24,2000 BANK 030449,000260: 030450,000261: 24,2326 41011 P41/P40 CS MODREG 030451,000262: 24,2327 75017 MASK ONE # P41EXITS AT CALL LOC +1 030452,000263: 24,2330 00006 EXTEND 030453,000264: 24,2331 12333 BZF +2 # P41 030454,000265: 24,2332 24002 INCR Q # P40 EXITS AT CALL LOC +2 030455,000266: 24,2333 00002 TC Q 030456,000267: 030457,000268: 24,2334 35002 TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41) 030458,000269: 24,2335 05134 TC NOVAC 030459,000270: 24,2336 E6,1466 EBANK= DAPDATR1 030460,000271: 24,2336 02264 50066 2CADR TIGNOW 030461,000272: 030462,000273: 24,2340 05560 P40CLK TC DOWNFLAG 030463,000274: 24,2341 00155 ADRES TIMRFLAG 030464,000275: 030465,000276: 24,2342 15324 TCF TASKOVER 030466,000277: 030467,000278: 24,2343 32423 P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB 030468,000279: 24,2344 55145 TS NVWORD1 030469,000280: 030470,000281: 24,2345 06006 TC INTPRET 030471,000282: # Page 689 030472,000283: 24,2346 77624 CALL # COMPUTE 030473,000284: 24,2347 50370 P40CNV85 # VGTIG IN CTRL COORDS 030474,000285: 24,2350 77776 EXIT 030475,000286: 24,2351 00006 EXTEND # DO CONTROL COORD CALCULATION AFTER AVEG 030476,000287: 24,2352 32462 DCA ACADN85 030477,000288: 24,2353 53223 DXCH AVEGEXIT 030478,000289: 24,2354 05372 TC 2PHSCHNG 030479,000290: 24,2355 40036 OCT 40036 # 6.3=CLOKTASK(100CS) 030480,000291: 24,2356 00234 OCT 234 # 4.23=P40S/SV(PRIO12) 030481,000292: 030482,000293: 24,2357 12177 TCF P40S/RS 030483,000294: 24,2360 32424 P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG 030484,000295: 24,2361 55145 TS NVWORD1 # REDISPLAY NONFLASHING 030485,000296: 24,2362 32416 CAF SEC29.96 +1 030486,000297: 24,2363 05245 TC WAITLIST 030487,000298: 24,2364 E6,1466 EBANK= DAPDATR1 030488,000299: 24,2364 02334 50066 2CADR TTG/0 030489,000300: 030490,000301: 24,2366 45015 CS BIT3 030491,000302: 24,2367 12566 TCF TTGPHS 030492,000303: 24,2370 40220 P40CNV85 STQ SETPD 030493,000304: 24,2371 03730 QTEMP1 030494,000305: 24,2372 00001 0 030495,000306: 24,2373 41575 VLOAD PUSH 030496,000307: 24,2374 03721 VGPREV # EQUALS VGTIG (TARGETTING INPUT) 030497,000308: 24,2375 77624 CALL 030498,000309: 24,2376 45431 S41.1 030499,000310: 24,2377 37665 STCALL VGBODY 030500,000311: 24,2400 03730 QTEMP1 030501,000312: 030502,000313: 24,2401 E6,1466 EBANK= DAPDATR1 030503,000314: 24,2401 06006 CALCN85 TC INTPRET 030504,000315: 24,2402 77624 CALL 030505,000316: 24,2403 51104 UPDATEVG # NEW VG, S40.8 (+MAYBE S40.9) 030506,000317: 24,2404 77624 CALL 030507,000318: 24,2405 50370 P40CNV85 # COMPUTE VGBODY 030508,000319: 24,2406 77776 EXIT 030509,000320: 24,2407 03215 TC SERVXT 030510,000321: 24,2410 02217 06650 FENG 2DEC 9.1188544 B-7 # SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4 030511,000322: 030512,000323: 24,2412 00013 06112 FRCS2 2DEC .087437837 B-7 # RCS ULLAGE (199.6COS10 LBS), SC.AT 030513,000324: 030514,000325: # B+7 NEWTONS/E+4 030515,000326: 24,2414 04700 SEC24.96 DEC 2496 B-14 030516,000327: 24,2415 00000 05664 SEC29.96 2DEC 2996 B-28 030517,000328: 030518,000329: 24,2417 03410 18SEC DEC 1800 B-14 030519,000330: 24,2420 00204 P40CKLS2 OCT 204 030520,000331: 24,2421 37730 40CST5 OCT 37730 # 40 CS FOR THE T5 CLOCK 030521,000332: 24,2422 4377 OCT12 = TEN 030522,000333: # Page 690 030523,000334: 24,2422 04123 V1683 VN 1683 030524,000335: 24,2423 01525 V06N85B VN 0685 030525,000336: 24,2424 04125 V16N85B VN 1685 030526,000337: 24,2425 01450 V06N40 VN 0640 030527,000338: 24,2426 04050 V16N40 VN 1640 030528,000339: 24,2427 00027 OCT27/24 OCT 27 030529,000340: 24,2430 00053 OCT53 OCT 53 030530,000341: 24,2431 00035 OCT35 OCT 35 030531,000342: 24,2432 E6,1466 EBANK= DAPDATR1 030532,000343: 24,2432 03153 12066 T5IDL24 2CADR T5IDLOC 030533,000344: 030534,000345: 24,2434 00026 3MDOT DEC 86.6175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT 030535,000346: # B+16 KB/SEC (NOT, EMDOT IS PAD-LOADED, 030536,000347: # BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO 030537,000348: # IT CAN REMAIN IN FIXED MEMORY) 030538,000349: 24,2435 35017 TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1) 030539,000350: 24,2436 12157 TCF TRIMONLY +1 030540,000351: 24,2437 33064 TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30 030541,000352: 24,2440 05245 TC WAITLIST 030542,000353: 24,2441 E7,1412 EBANK= TIG 030543,000354: 24,2441 02555 50067 2CADR TIGAVEG 030544,000355: 030545,000356: 24,2443 35021 CAF ZERO # DISABLE HERE, NOT IN P40BLNKR 030546,000357: 24,2444 55145 TS NVWORD1 030547,000358: 030548,000359: 24,2445 35066 CAF PRIO14 030549,000360: 24,2446 05134 TC NOVAC 030550,000361: 24,2447 E7,1412 EBANK= TIG 030551,000362: 24,2447 02234 50067 2CADR P40BLNKR # DON'T PROTECT -- RESTARTS BLANK DSKY 030552,000363: 030553,000364: 24,2451 44362 CS OCT37 # 4.37 = TIGAVEG (500CS) 030554,000365: 24,2452 04114 P40TSK TC NEWPHASE 030555,000366: 24,2453 00004 OCT 4 030556,000367: 24,2454 05324 TC TASKOVER 030557,000368: 030558,000369: 24,2455 E7,1412 EBANK= TIG 030559,000370: 24,2455 02511 50067 ACADN83 2CADR CALCN83 030560,000371: 030561,000372: 24,2457 E7,1412 EBANK= TIG 030562,000373: 24,2457 03227 76067 SERVCADR 2CADR SERVEXIT 030563,000374: 030564,000375: 24,2461 E6,1466 EBANK= DAPDATR1 030565,000376: 24,2461 02401 50066 ACADN85 2CADR CALCN85 030566,000377: 030567,000378: # Page 691 030568,000379: # PROGRAM DESCRIPTION ** P47CSM ** 030569,000380: 030570,000381: 24,2463 COUNT 24/P47 030571,000382: 030572,000383: 24,2463 E7,1412 EBANK= TIG 030573,000384: 24,2463 04662 P47CSM TC BANKCALL # IMU STATUS CHECK 030574,000385: 24,2464 17653 CADR R02BOTH 030575,000386: 24,2465 06006 TC INTPRET 030576,000387: 24,2466 77624 CALRB 030577,000388: 24,2467 27543 MIDTOAV2 030578,000389: 24,2470 30155 CA MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 100 030579,000390: 24,2471 55672 TS P40TMP # CS, WITH A TPAGREE, INT.INIT.) 030580,000391: 24,2472 05245 TC WAITLIST 030581,000392: 24,2473 E7,1412 EBANK= TIG 030582,000393: 24,2473 02500 50067 2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG 030583,000394: 030584,000395: 24,2475 05412 TC PHASCHNG 030585,000396: 24,2476 40574 OCT 40574 # A, 4.57 = TIGON (P40TMP CS) 030586,000397: 24,2477 15217 TCF ENDOFJOB 030587,000398: 030588,000399: 24,2500 E7,1672 EBANK= P40TMP 030589,000400: 24,2500 00006 TIGON EXTEND 030590,000401: 24,2501 32456 DCA ACADN83 030591,000402: 24,2502 53223 DXCH AVEGEXIT 030592,000403: 24,2503 34371 CAF PRIO30 # FORCE ZEROING OF N83 BEFORE SERVICER 030593,000404: 24,2504 05134 TC NOVAC 030594,000405: 24,2505 E7,1412 EBANK= TIG 030595,000406: 24,2505 02534 50067 2CADR P47BODY 030596,000407: 030597,000408: 24,2507 45016 CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30) 030598,000409: 24,2510 12566 TCF TTGPHS 030599,000410: 030600,000411: 24,2511 E7,1412 EBANK= TIG 030601,000412: 24,2511 06006 CALCN83 TC INTPRET 030602,000413: 24,2512 77601 SETPD # SET UP PUSHLIST FOR S41.1 030603,000414: 24,2513 00001 0 030604,000415: 24,2514 53375 VLOAD VAD 030605,000416: 24,2515 03665 DELVCTL 030606,000417: 24,2516 03433 DELVREF 030607,000418: 24,2517 03460 STORE DV47TEMP # FOR COPYCYCLE BELOW 030608,000419: 24,2520 45006 PUSH CALL 030609,000420: 24,2521 45431 S41.1 030610,000421: 24,2522 37675 STCALL DELVIMU 030611,000422: 24,2523 70542 S11.1 # CALC. VI, H, HDOT FOR NOUN 62 030612,000423: 24,2524 77776 EXIT 030613,000424: 24,2525 05412 TC PHASCHNG 030614,000425: 24,2526 10035 OCT 10035 030615,000426: # Page 692 030616,000427: 24,2527 35022 CAF FIVE 030617,000428: 24,2530 05606 TC GENTRAN 030618,000429: 24,2531 01457 ADRES DV47TEMP 030619,000430: 24,2532 01664 ADRES DELVCTL 030620,000431: 030621,000432: 24,2533 03215 TC SERVXT 030622,000433: 24,2534 06006 P47BODY TC INTPRET 030623,000434: 24,2535 77775 VLOAD 030624,000435: 24,2536 15335 HI6ZEROS 030625,000436: 24,2537 03675 STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE 030626,000437: 24,2540 03665 STORE DELVCTL # UPON INITIATION OR ENTER RESPONSE 030627,000438: 24,2541 77776 EXIT 030628,000439: 24,2542 35067 P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20) 030629,000440: 24,2543 05210 TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83 030630,000441: 24,2544 05412 TC PHASCHNG 030631,000442: 24,2545 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83 030632,000443: 24,2546 15000 OCT 15000 # PRIO 15 030633,000444: 24,2547 32422 P47/DSP CAF V1683 030634,000445: 24,2550 04662 TC BANKCALL 030635,000446: 24,2551 20720 CADR GOFLASH 030636,000447: 24,2552 04106 TC GOTOP00H 030637,000448: 24,2553 04106 TC GOTOP00H 030638,000449: 24,2554 12534 TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY 030639,000450: 030640,000451: # Page 693 030641,000452: # ROUTINE ** TIG-30 ** DESCRIPTION 030642,000453: 030643,000454: 24,2555 E7,1412 EBANK= TIG 030644,000455: 24,2555 COUNT 24/P40 030645,000456: 030646,000457: 24,2555 02326 TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS) 030647,000458: 24,2556 12360 TCF P41REDSP 030648,000459: 030649,000460: 24,2557 32425 CAF V06N40 # UNBLANK DISPLAY 030650,000461: 24,2560 55145 TS NVWORD1 030651,000462: 030652,000463: 24,2561 32414 CAF SEC24.96 030653,000464: 24,2562 05245 TC WAITLIST 030654,000465: 24,2563 E7,1412 EBANK= TIG 030655,000466: 24,2563 02574 50067 2CADR TIG-5 030656,000467: 030657,000468: 24,2565 46211 CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS) 030658,000469: 24,2566 04114 TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR 030659,000470: 24,2567 00004 OCT 4 # FROM TIGON (P47) WITH A=-1 030660,000471: 030661,000472: 24,2570 10763 PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED 030662,000473: 24,2571 15324 TCF TASKOVER # YES, DON'T START ANOTHER ONE 030663,000474: 24,2572 04701 TC POSTJUMP 030664,000475: 24,2573 76701 CADR PREREAD 030665,000476: 030666,000477: # Page 694 030667,000478: # ROUTINE ** TIG-5 ** DESCRIPTION 030668,000479: 030669,000480: 24,2574 E7,1412 EBANK= TIG 030670,000481: 24,2574 33064 TIG-5 CAF 5SEC 030671,000482: 24,2575 05245 TC WAITLIST 030672,000483: 24,2576 E6,1466 EBANK= DAPDATR1 030673,000484: 24,2576 02612 50066 2CADR TIG-0 030674,000485: 030675,000486: 24,2600 45007 CS BIT9 # WILL CAUSE V99 FLASH 030676,000487: 24,2601 55145 TS NVWORD1 030677,000488: 030678,000489: 24,2602 05372 TC 2PHSCHNG 030679,000490: 24,2603 40074 OCT 40074 # A, 4.7 = TIG-0 (500CS) 030680,000491: 24,2604 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO20) 030681,000492: 030682,000493: 24,2605 35002 CAF PRIO20 030683,000494: 24,2606 05147 TC FINDVAC 030684,000495: 24,2607 E7,1427 EBANK= TGO 030685,000496: 24,2607 02427 34067 2CADR S40.13 030686,000497: 030687,000498: 24,2611 15324 TCF TASKOVER 030688,000499: 030689,000500: # Page 695 030690,000501: # ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION 030691,000502: 030692,000503: 24,2612 E6,1466 EBANK= DAPDATR1 # TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40 030693,000504: 24,2612 40103 TIG-0 CS FLAGWRD7 # SET IGN FLAG 030694,000505: 24,2613 75003 MASK BIT13 030695,000506: 24,2614 26103 ADS FLAGWRD7 030696,000507: 030697,000508: 24,2615 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE 030698,000509: 24,2616 75004 MASK BIT12 030699,000510: 24,2617 00006 EXTEND 030700,000511: 24,2620 15324 BZF TASKOVER # WAIT FOR V99P 030701,000512: 030702,000513: 24,2621 32425 CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART 030703,000514: 24,2622 55145 TS NVWORD1 # DURING THE V99 SEQUENCE) 030704,000515: 030705,000516: 24,2623 05412 TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW 030706,000517: 24,2624 00614 OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD 030707,000518: 030708,000519: 24,2625 30032 IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD 030709,000520: 24,2626 55450 TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION 030710,000521: 24,2627 00006 EXTEND # TASK (4.61 PROTECTION) 030711,000522: 24,2630 30025 DCA TIME2 # FOR RESTARTS 030712,000523: 24,2631 53337 DXCH TEVENT 030713,000524: 24,2632 40101 CS FLAGWRD5 # SET ENGONFLG 030714,000525: 24,2633 75011 MASK BIT7 030715,000526: 24,2634 26101 ADS FLAGWRD5 030716,000527: 24,2635 35003 SPSON CAF BIT13 # TURN ON SPS ENGINE 030717,000528: 24,2636 00006 EXTEND 030718,000529: 24,2637 05011 WOR DSALMOUT 030719,000530: 030720,000531: 24,2640 35007 IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN 030721,000532: 24,2641 70076 MASK FLAGWRD2 030722,000533: 24,2642 10000 CCS A 030723,000534: 24,2643 12733 TCF IMPLBURN # IMPULSIVE 030724,000535: 24,2644 40102 CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL 030725,000536: 24,2645 75003 MASK BIT13 030726,000537: 24,2646 26102 ADS FLAGWRD6 030727,000538: 030728,000539: 24,2647 44105 PREPTVC CS OCT60000 # RESET T5 BITS 030729,000540: 24,2650 70102 MASK FLAGWRD6 030730,000541: 24,2651 54102 TS FLAGWRD6 030731,000542: 030732,000543: 24,2652 00006 EXTEND # KILL RCS 030733,000544: 24,2653 32433 DCA T5IDL24 030734,000545: 24,2654 53313 DXCH T5LOC 030735,000546: 030736,000547: 24,2655 46214 CS THREE # 4.3 = DOTVCON (40CS) 030737,000548: 24,2656 04114 TC NEWPHASE 030738,000549: 24,2657 00004 OCT 4 030739,000550: 030740,000551: # Page 696 030741,000552: 24,2660 05267 TC FIXDELAY 030742,000553: 24,2661 00050 DEC 40 B-14 # 0.4 SECOND DELAY FOR THRUST BUILDUP 030743,000554: 030744,000555: 24,2662 45017 DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP) 030745,000556: 24,2663 55644 TS TVCPHASE 030746,000557: 24,2664 35021 CAF ZERO # SET TVCEXECUTIVE PHASE 030747,000558: 24,2665 55651 TS TVCEXPHS 030748,000559: 24,2666 44105 CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER .... 030749,000560: 24,2667 70102 MASK FLAGWRD6 # BITS 15,14 = 10 030750,000561: 24,2670 65001 AD BIT15 030751,000562: 24,2671 54102 TS FLAGWRD6 030752,000563: 030753,000564: 24,2672 36214 CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6 030754,000565: 24,2673 54001 TS L # WHICH IS HANDLED NOW BY REDOTVC 030755,000566: 24,2674 40000 COM 030756,000567: 24,2675 52765 DXCH -PHASE6 030757,000568: 030758,000569: 24,2676 00006 EXTEND # STORE RCS ATTITUDE ERRORS FOR USE IN 030759,000570: 24,2677 41571 DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS 030760,000571: 24,2700 53703 DXCH ERRBTMP 030761,000572: 030762,000573: 24,2701 45022 CS FIVE # 4.5 = DOSTRULL (160 CS) 030763,000574: 24,2702 04114 TC NEWPHASE 030764,000575: 24,2703 00004 OCT 4 030765,000576: 030766,000577: 24,2704 34777 CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY 030767,000578: 24,2705 54030 TS TIME5 030768,000579: 24,2706 00006 EXTEND 030769,000580: 24,2707 33067 DCA TVCON2C # (TVCDAPON) 030770,000581: 24,2710 53313 DXCH T5LOC # (KILLS RCS DAP) 030771,000582: 030772,000583: 24,2711 05267 TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND 030773,000584: 24,2712 00240 DEC 160 B-14 # STEERING (IF NON-IMPULSIVE) 030774,000585: 030775,000586: 24,2713 35003 DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN 030776,000587: 24,2714 70102 MASK FLAGWRD6 030777,000588: 24,2715 10000 CCS A 030778,000589: 24,2716 02724 TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF 030779,000590: 24,2717 02727 TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN) 030780,000591: 030781,000592: 24,2720 00006 EXTEND 030782,000593: 24,2721 35021 DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0) 030783,000594: 24,2722 52761 DXCH -PHASE4 030784,000595: 030785,000596: 24,2723 15324 ENDIGN TCF TASKOVER 030786,000597: 030787,000598: 24,2724 40076 STEERULL CS FLAGWRD2 # SET STEERSW 030788,000599: 24,2725 75005 MASK BIT11 030789,000600: 24,2726 26076 ADS FLAGWRD2 030790,000601: 030791,000602: # Page 697 030792,000603: 030793,000604: 24,2727 35021 ULAGEOFF CAF ZERO 030794,000605: 24,2730 00006 EXTEND 030795,000606: 24,2731 01005 WRITE CHAN5 # ZERO CHANNEL 5 030796,000607: 24,2732 00002 TC Q 030797,000608: 030798,000609: 24,2733 45003 IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE 030799,000610: 24,2734 70102 MASK FLAGWRD6 # ENGINE FAIL) 030800,000611: 24,2735 54102 TS FLAGWRD6 030801,000612: 030802,000613: 24,2736 03366 TCR E7SETTER 030803,000614: 030804,000615: 24,2737 E7,1412 EBANK= TIG 030805,000616: 24,2737 00006 EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK) 030806,000617: 24,2740 31430 DCA TGO 030807,000618: 24,2741 53413 DXCH TIG 030808,000619: 24,2742 00006 EXTEND 030809,000620: 24,2743 30025 DCA TIME2 030810,000621: 24,2744 21413 DAS TIG 030811,000622: 030812,000623: 24,2745 05372 TC 2PHSCHNG 030813,000624: 24,2746 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOT GROUP 030814,000625: 24,2747 07014 OCT 07014 # C, DELTAT NEXT, TASK BELOW, IN 030815,000626: 24,2750 77777 DEC -0 B-14 # -0 CS 030816,000627: 24,2751 E6,1466 EBANK= DAPDATR1 030817,000628: 24,2751 02757 50066 2CADR IMPLCONT 030818,000629: 030819,000630: 24,2753 31430 CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS) 030820,000631: 24,2754 05245 TC WAITLIST 030821,000632: 24,2755 E7,1427 EBANK= TGO 030822,000633: 24,2755 02766 50067 2CADR ENGINOFF 030823,000634: 030824,000635: 24,2757 45007 IMPLCONT CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP 030825,000636: 24,2760 70076 MASK FLAGWRD2 030826,000637: 24,2761 54076 TS FLAGWRD2 030827,000638: 030828,000639: 24,2762 03371 TCR E6SETTER 030829,000640: 24,2763 E6,1466 EBANK= DAPDATR1 030830,000641: 030831,000642: 24,2763 35021 CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-= 030832,000643: 24,2764 55444 TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON 030833,000644: 030834,000645: 24,2765 12647 TCF PREPTVC 030835,000646: 030836,000647: 24,2766 E7,1427 EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T 030837,000648: 24,2766 03371 ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6 030838,000649: 24,2767 E6,1466 EBANK= DAPDATR1 030839,000650: 24,2767 31474 CAE CSMMASS 030840,000651: 24,2770 55652 TS MASSTMP # COPYCYCLE FOR MASSBACK 030841,000652: # Page 698 030842,000653: 24,2771 05372 TC 2PHSCHNG 030843,000654: 24,2772 00003 OCT 00003 # KILL GROUP 3 PROTECTION OF ENGINOFF, DO 030844,000655: 24,2773 40634 OCT 40634 # A, 4.63 = DOSPSOFF (-0CS) 030845,000656: 24,2774 03017 DOSPSOFF TCR SPSOFF # SHUTDOWN SPS, MASS UPDATES, ETC. 030846,000657: 24,2775 42427 CS OCT27/24 # (OCTAL 27) 030847,000658: 24,2776 04114 TC NEWPHASE 030848,000659: 24,2777 00004 OCT 4 # 4.27 = DOTVCRCS (250 CS) 030849,000660: 030850,000661: 24,3000 05267 TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF 030851,000662: 24,3001 00372 DEC 250 B-14 030852,000663: 030853,000664: 24,3002 02320 DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT 030854,000665: 030855,000666: 24,3003 04740 TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5 030856,000667: 24,3004 42024 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE) 030857,000668: 030858,000669: 24,3005 04740 TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR 030859,000670: 24,3006 13366 CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS 030860,000671: 030861,000672: 24,3007 03071 TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK 030862,000673: 030863,000674: 24,3010 05412 TC PHASCHNG 030864,000675: 24,3011 00354 OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12) 030865,000676: 24,3012 34710 CAF PRIO12 # SET UP POSTBURN V16N40 JOB 030866,000677: 24,3013 05134 TC NOVAC 030867,000678: 24,3014 E6,1466 EBANK= DAPDATR1 # (SET MAXDB IN POST41) 030868,000679: 24,3014 02246 50066 2CADR POSTBURN 030869,000680: 030870,000681: 24,3016 15324 TCF TASKOVER 030871,000682: 030872,000683: 24,3017 E6,1466 EBANK= DAPDATR1 030873,000684: 24,3017 00006 SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT 030874,000685: 24,3020 30025 DCA TIME2 030875,000686: 24,3021 53337 DXCH TEVENT 030876,000687: 24,3022 45011 CS BIT7 # RESET ENGONFLG 030877,000688: 24,3023 70101 MASK FLAGWRD5 030878,000689: 24,3024 54101 TS FLAGWRD5 # (RESTARTS WILL SHUT DOWN SPS NOW) 030879,000690: 24,3025 45003 CS BIT13 # SHUT DOWN SPS ENGINE 030880,000691: 24,3026 00006 EXTEND 030881,000692: 24,3027 03011 WAND DSALMOUT 030882,000693: 030883,000694: 24,3030 35002 CAF BIT14 # ISSUE SIV CUTOFF COMMAND 030884,000695: 24,3031 00006 EXTEND # FOR POSSIBLE BACK-UP USE 030885,000696: 24,3032 05012 WOR CHAN12 030886,000697: 24,3033 31444 MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS 030887,000698: # V97CNTR = VCNTR UNLESS V97 IS 030888,000699: # ACTIVE. ONLY V97CNTR IS THEN RIGHT. 030889,000700: 24,3034 00006 EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC 030890,000701: 24,3035 70110 MP EMDOT # MDOT, SC.AT B+3 KG/CS 030891,000702: 24,3036 22000 LXCH A 030892,000703: # Page 699 030893,000704: 24,3037 00006 EXTEND 030894,000705: 24,3040 75041 MP 1SEC # DEC 100 030895,000706: 24,3041 61652 AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW 030896,000707: 24,3042 55474 TS CSMMASS # (1.44 KG OR 0.4 BITS) 030897,000708: 030898,000709: 24,3043 31644 CA TVCPHASE # CHECK IF OK FOR TRIM UPDATE 030899,000710: 24,3044 65017 AD ONE # THESE CHECKS ARE ONLY NEEDED 030900,000711: 24,3045 00006 EXTEND # FOR A LESS THAN 0.4 SEC BURN 030901,000712: 24,3046 13057 BZF BTRIMR # NO. INITIALIZATION NOT COMPLETE 030902,000713: 24,3047 40102 CS FLAGWRD6 # YES, CHECK IF TVC 030903,000714: 24,3050 74105 MASK OCT60000 030904,000715: 24,3051 00006 EXTEND 030905,000716: 24,3052 63057 BZMF BTRIMR # NO, NOT TVC YET 030906,000717: 24,3053 31601 BESTTRIM CAE DELPBAR # UPDATE TRIMS WITH DELFILTER VALUES 030907,000718: 24,3054 55423 TS PACTOFF 030908,000719: 24,3055 31603 CAE DELYBAR 030909,000720: 24,3056 55424 TS YACTOFF 030910,000721: 24,3057 00002 BTRIMR TC Q 030911,000722: 24,3060 E6,1466 EBANK= DAPDATR1 030912,000723: 24,3060 03205 50066 STEERADS 2CADR STEERING 030913,000724: 030914,000725: 24,3062 37703 .6SECT5 OCT 37703 030915,000726: 24,3063 00000 5SECDP DEC 0 B-14 # MAKE DP 5SEC 030916,000727: 24,3064 00764 5SEC DEC 500 B-14 030917,000728: 24,3065 02202 OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS 030918,000729: 24,3066 E6,1466 EBANK= DAPDATR1 030919,000730: 24,3066 02147 36066 TVCON2C 2CADR TVCDAPON 030920,000731: 030921,000732: 24,3070 00004 -1 INHINT 030922,000733: 24,3071 43065 TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRLS, REENGAGE 030923,000734: 24,3072 00006 EXTEND # OPTICS DAC 030924,000735: 24,3073 03012 WAND CHAN12 030925,000736: 24,3074 45017 CS BIT1 # ENABLE T4RUPT OPTICS MONITOR .... PERMIT 030926,000737: 24,3075 55303 TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE 030927,000738: 24,3076 35021 CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING 030928,000739: 24,3077 55145 TS NVWORD1 030929,000740: 24,3100 45005 CS BIT11 # CLEAR TIMRFLAG TO STOP CLOKTASK 030930,000741: 24,3101 70103 MASK FLAGWRD7 030931,000742: 24,3102 54103 TS FLAGWRD7 030932,000743: 24,3103 00002 TC Q 030933,000744: 24,3104 E6,1466 EBANK= DAPDATR1 030934,000745: 24,3104 43020 UPDATEVG STQ BON 030935,000746: 24,3105 03730 QTEMP1 030936,000747: 24,3106 01307 XDELVFLG 030937,000748: 24,3107 51133 CALL40.8 030938,000749: 030939,000750: 24,3110 50135 SLOAD BMN 030940,000751: 24,3111 03343 NBRCYCLS 030941,000752: 24,3112 51137 SETUP.9 030942,000753: # Page 700 030943,000754: 030944,000755: 24,3113 53375 VLOAD VAD 030945,000756: 24,3114 03345 DELVSUM 030946,000757: 24,3115 03433 DELVREF 030947,000758: 24,3116 03353 STORE DELVSUMP 030948,000759: 24,3117 77776 EXIT 030949,000760: 24,3120 35017 CA ONE 030950,000761: 24,3121 61742 AD NBRCYCLS 030951,000762: 24,3122 55743 TS NBRCYCLP 030952,000763: 030953,000764: 24,3123 05412 TC PHASCHNG # TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS 030954,000765: 24,3124 10035 OCT 10035 030955,000766: 030956,000767: 24,3125 31743 CA NBRCYCLP 030957,000768: 24,3126 55742 TS NBRCYCLS 030958,000769: 24,3127 06006 TC INTPRET 030959,000770: 24,3130 77775 VLOAD 030960,000771: 24,3131 03353 DELVSUMP 030961,000772: 24,3132 03345 STORE DELVSUM 030962,000773: 030963,000774: 24,3133 77624 CALL40.8 CALL 030964,000775: 24,3134 34153 S40.8 030965,000776: 24,3135 77650 GOTO 030966,000777: 24,3136 03730 QTEMP1 030967,000778: 030968,000779: 24,3137 67214 SETUP.9 BON SLOAD 030969,000780: 24,3140 01310 FIRSTFLG 030970,000781: 24,3141 51154 SURELY.9 030971,000782: 24,3142 03344 NBRCYCLP 030972,000783: 24,3143 74301 NORM VXSC # (NORM HANDLES ZERO PROPERLY) 030973,000784: 24,3144 00047 X1 030974,000785: 24,3145 03705 BDT 030975,000786: 24,3146 53257 VSR* VAD 030976,000787: 24,3147 20563 0 -14D,1 030977,000788: 24,3150 03646 VGTEMP 030978,000789: 24,3151 77651 VSU 030979,000790: 24,3152 03345 DELVSUM 030980,000791: 24,3153 03721 STORE VGPREV 030981,000792: 24,3154 77776 SURELY.9 EXIT 030982,000793: 24,3155 35003 CAF PRIO10 030983,000794: 24,3156 05147 TC FINDVAC 030984,000795: 24,3157 E6,1466 EBANK= DAPDATR1 030985,000796: 24,3157 02302 34066 2CADR S40.9 030986,000797: 030987,000798: 24,3161 05372 TC 2PHSCHNG 030988,000799: 24,3162 00051 OCT 00051 # A, 1.5 = REDO40.9, PRIO 10 030989,000800: 24,3163 10035 OCT 10035 030990,000801: 24,3164 06006 TC INTPRET 030991,000802: 24,3165 77775 VLOAD 030992,000803: 24,3166 01171 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1 030993,000804: 24,3167 27570 STOVL RINIT 030994,000805: # Page 701 030995,000806: 24,3170 01177 VN # ACTIVE VEHICLE VELOCITY VECTORY AT T1 030996,000807: 24,3171 17576 STODL VINIT 030997,000808: 24,3172 01205 PIPTIME 030998,000809: 24,3173 03474 STORE TNIT 030999,000810: 24,3174 77621 BDSU 031000,000811: 24,3175 03656 TPASS4 031001,000812: 24,3176 27423 STOVL DELLT4 031002,000813: 24,3177 15335 HI6ZEROS 031003,000814: 24,3200 17345 STODL DELVSUM 031004,000815: 24,3201 15335 HI6ZEROS 031005,000816: 24,3202 03343 STORE NBRCYCLS 031006,000817: 24,3203 77650 GOTO 031007,000818: 24,3204 51133 CALL40.8 031008,000819: 24,3205 E6,1466 EBANK= DAPDATR1 031009,000820: 24,3205 06006 STEERING TC INTPRET 031010,000821: 24,3206 77624 CALL 031011,000822: 24,3207 51104 UPDATEVG 031012,000823: 24,3210 77776 EXIT 031013,000824: 24,3211 35007 CAF BIT9 # CHECK IMPULSW 031014,000825: 24,3212 70076 MASK FLAGWRD2 031015,000826: 24,3213 10000 CCS A 031016,000827: 24,3214 13217 TCF +3 # PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF 031017,000828: 24,3215 04701 SERVXT TC POSTJUMP 031018,000829: 24,3216 77227 CADR SERVEXIT 031019,000830: 24,3217 35003 CAF BIT13 # CHECK ENGINE-ON/-OFF 031020,000831: 24,3220 00006 EXTEND 031021,000832: 24,3221 02011 RAND DSALMOUT 031022,000833: 24,3222 00006 EXTEND 031023,000834: 24,3223 13215 BZF SERVXT # ENGINE-OFF, SO PRE-IGNITE OR POST-OFF 031024,000835: 24,3224 03366 TCR E7SETTER 031025,000836: 24,3225 E7,1412 EBANK= TIG 031026,000837: 24,3225 00004 INHINT 031027,000838: 24,3226 00006 EXTEND 031028,000839: 24,3227 31413 DCA TIG 031029,000840: 24,3230 52155 DXCH MPAC 031030,000841: 24,3231 00006 EXTEND 031031,000842: 24,3232 40025 DCS TIME2 031032,000843: 24,3233 20155 DAS MPAC 031033,000844: 24,3234 07224 TCR DPAGREE 031034,000845: 24,3235 30155 CAE MPAC +1 # (LESS THAN 6 (OR 4) SECONDS TO GO) 031035,000846: 24,3236 10000 CCS A # PROTECT AGAINST NEG/ZRO W.L. CALL 031036,000847: 24,3237 13242 TCF +3 031037,000848: 24,3240 13242 TCF +2 031038,000849: 24,3241 35021 CAF ZERO 031039,000850: 24,3242 65017 AD ONE 031040,000851: 24,3243 56001 XCH L 031041,000852: 24,3244 35021 CA ZERO 031042,000853: 24,3245 53430 DXCH TGO 031043,000854: 24,3246 31430 CA TGO +1 031044,000855: 24,3247 05245 TC WAITLIST 031045,000856: # Page 702 031046,000857: 24,3250 E7,1427 EBANK= TGO 031047,000858: 24,3250 02766 50067 2CADR ENGINOFF 031048,000859: 031049,000860: 24,3252 05372 TC 2PHSCHNG 031050,000861: 24,3253 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP 031051,000862: 24,3254 10035 OCT 10035 # B, 5.3 = REREADAC, AND START BELOW 031052,000863: 24,3255 05560 TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP 031053,000864: 24,3256 00044 ADRES IMPULSW # RESTARTS OK 031054,000865: 24,3257 13215 TCF SERVXT 031055,000866: 031056,000867: # Page 703 031057,000868: # ROUTINE ** CLOKTASK ** DESCRIPTION 031058,000869: 031059,000870: 24,3260 E7,1412 EBANK= TIG 031060,000871: 24,3260 35005 CLOKTASK CAF BIT11 # IS TIMRFLAG SET 031061,000872: 24,3261 70103 MASK FLAGWRD7 031062,000873: 24,3262 10000 CCS A 031063,000874: 24,3263 13267 TCF CLOCKON 031064,000875: 24,3264 05412 TC PHASCHNG 031065,000876: 24,3265 00006 OCT 00006 # KILL RESTART 031066,000877: 24,3266 05324 TC TASKOVER 031067,000878: 031068,000879: 24,3267 00006 CLOCKON EXTEND 031069,000880: 24,3270 30025 DCA TIME2 031070,000881: 24,3271 53661 DXCH TTOGO 031071,000882: 24,3272 00006 EXTEND 031072,000883: 24,3273 41413 DCS TIG 031073,000884: 24,3274 21661 DAS TTOGO 031074,000885: 031075,000886: 24,3275 35041 SETCLOCK CAF 1SEC 031076,000887: 24,3276 05245 TC WAITLIST 031077,000888: 24,3277 E7,1412 EBANK= TIG 031078,000889: 24,3277 03260 50067 2CADR CLOKTASK 031079,000890: 031080,000891: 24,3301 11145 CCS NVWORD1 031081,000892: 24,3302 13305 TCF +3 031082,000893: 24,3303 13315 TCF SETTB6 031083,000894: 031084,000895: 24,3304 13305 TCF +1 031085,000896: 24,3305 42423 CS V06N85B # CHECK FOR V06N85B (P41) 031086,000897: 24,3306 61145 AD NVWORD1 031087,000898: 24,3307 00006 EXTEND 031088,000899: 24,3310 13320 BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP 031089,000900: 031090,000901: 24,3311 37664 CAF PRIO27 031091,000902: 24,3312 05134 TC NOVAC 031092,000903: 24,3313 E6,1466 EBANK= DAPDATR1 031093,000904: 24,3313 03332 50066 2CADR CLOCKJOB 031094,000905: 031095,000906: 24,3315 40025 SETTB6 CS TIME1 # SET GROUP6 TIMEBASE 031096,000907: 24,3316 55065 TS TBASE6 031097,000908: 24,3317 15324 TCF TASKOVER 031098,000909: 031099,000910: 24,3320 37664 SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06) 031100,000911: 24,3321 05147 TC FINDVAC 031101,000912: 24,3322 E6,1466 EBANK= DAPDATR1 031102,000913: 24,3322 03325 50066 2CADR DYNDISP 031103,000914: 031104,000915: 24,3324 13315 TCF SETTB6 # CLOSE OUT CLOCKTASK 031105,000916: # Page 704 031106,000917: 24,3325 06006 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41. 031107,000918: 24,3326 77624 CALL # PRIOR TO BLANKING AND AVEG (V16N85) 031108,000919: 24,3327 50370 P40CNV85 031109,000920: 24,3330 77776 EXIT 031110,000921: 24,3331 13342 TCF CKNVWRD1 031111,000922: 031112,000923: # Page 705 031113,000924: # ROUTINE ** CLOCKJOB ** DESCRIPTION 031114,000925: 031115,000926: 24,3332 E6,1466 EBANK= DAPDATR1 031116,000927: 24,3332 30032 CLOCKJOB CA CDUX 031117,000928: 24,3333 54772 TS CDUSPOTX 031118,000929: 24,3334 30033 CA CDUY 031119,000930: 24,3335 54766 TS CDUSPOTY 031120,000931: 24,3336 30034 CA CDUZ 031121,000932: 24,3337 54770 TS CDUSPOTZ 031122,000933: 24,3340 04662 TC BANKCALL 031123,000934: 24,3341 47555 CADR QUICTRIG 031124,000935: 24,3342 00004 CKNVWRD1 INHINT 031125,000936: 24,3343 11145 CCS NVWORD1 # DETERMINE FUNCTION, INDICATED BY NVWORD1 031126,000937: 24,3344 13363 TCF NOFLASH 031127,000938: 24,3345 15217 TCF ENDOFJOB 031128,000939: 24,3346 13355 TCF ENGREQST # SPS ENGINE-ON-ENABLE V99 FLASH 031129,000940: 24,3347 32425 FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH 031130,000941: 24,3350 04662 TC BANKCALL 031131,000942: 24,3351 20715 CADR CLOCPLAY 031132,000943: 24,3352 13432 TCF V97T # TERMINATE 031133,000944: 24,3353 13465 TCF V97P # PROCEED 031134,000945: 24,3354 13514 TCF V97E # ENTER 031135,000946: 031136,000947: 24,3355 32425 ENGREQST CAF V06N40 031137,000948: 24,3356 04662 TC BANKCALL 031138,000949: 24,3357 20715 CADR CLOCPLAY # LINUS MAKES IT A REDO, INHINT OK 031139,000950: 24,3360 13402 TCF V99T # TERMINATE 031140,000951: 24,3361 13410 TCF V99P # PROCEED 031141,000952: 24,3362 13374 TCF V99E # ENTER 031142,000953: 031143,000954: 24,3363 31145 NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY 031144,000955: 24,3364 04662 TC BANKCALL 031145,000956: 24,3365 20707 CADR REGODSP 031146,000957: 031147,000958: 24,3366 35060 E7SETTER CAF EBANK7 031148,000959: 24,3367 54003 TS EBANK 031149,000960: 24,3370 E7,1412 EBANK= TIG 031150,000961: 24,3370 00002 TC Q 031151,000962: 031152,000963: 24,3371 35057 E6SETTER CAF EBANK6 # SET UP EBANK6 031153,000964: 24,3372 54003 TS EBANK 031154,000965: 24,3373 E6,1466 EBANK= DAPDATR1 031155,000966: 24,3373 00002 TC Q 031156,000967: 031157,000968: 24,3374 E6,1466 EBANK= DAPDATR1 031158,000969: 24,3374 05372 V99E TC 2PHSCHNG 031159,000970: 24,3375 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION 031160,000971: 24,3376 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW 031161,000972: # Page 706 031162,000973: 24,3377 27000 OCT 27000 031163,000974: 24,3400 03070 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK 031164,000975: 24,3401 12254 TCF P40RCS # V16N85 POST-BURN OPERATIONS 031165,000976: 031166,000977: 24,3402 E6,1466 EBANK= DAPDATR1 031167,000978: 24,3402 05372 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO) 031168,000979: 24,3403 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION 031169,000980: 24,3404 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW 031170,000981: 24,3405 27000 OCT 27000 031171,000982: 24,3406 03070 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK 031172,000983: 24,3407 12275 TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H 031173,000984: 031174,000985: 24,3410 00004 V99P INHINT 031175,000986: 24,3411 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P 031176,000987: 24,3412 75004 MASK BIT12 031177,000988: 24,3413 10000 CCS A 031178,000989: 24,3414 13427 TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY 031179,000990: 031180,000991: 24,3415 35004 ASTNV99P CAF BIT12 # SET ASTN FLAG 031181,000992: 24,3416 26103 ADS FLAGWRD7 031182,000993: 24,3417 30103 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL 031183,000994: 24,3420 75003 MASK BIT13 031184,000995: 24,3421 00006 EXTEND 031185,000996: 24,3422 13427 BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0 031186,000997: 031187,000998: 24,3423 35017 ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY 031188,000999: 24,3424 05245 TC WAITLIST # SET UP IGNITION HERE 031189,001000: 24,3425 E6,1466 EBANK= DAPDATR1 031190,001001: 24,3425 02625 50066 2CADR IGNITION 031191,001002: 031192,001003: 24,3427 32425 V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0 031193,001004: 24,3430 55145 TS NVWORD1 031194,001005: 24,3431 15217 ENDV99P TCF ENDOFJOB 031195,001006: 031196,001007: 24,3432 E6,1474 EBANK= CSMMASS 031197,001008: 24,3432 05372 V97T TC 2PHSCHNG 031198,001009: 24,3433 00006 OCT 00006 # KILL GROUP 6 (CLOKTASK) 031199,001010: 24,3434 40674 OCT 40674 # A, 4.67 = V97TTASK (-0 CS), TBASE NOW 031200,001011: 24,3435 35017 CAF BIT1 031201,001012: 24,3436 05235 TC TWIDDLE 031202,001013: 24,3437 03441 ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC. 031203,001014: 24,3440 15217 TCF ENDOFJOB 031204,001015: 031205,001016: 24,3441 E6,1474 EBANK= CSMMASS 031206,001017: 24,3441 35021 V97TTASK CAF ZERO # DISABLE CLOCKJOB 031207,001018: 24,3442 55145 TS NVWORD1 031208,001019: 24,3443 32434 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL 031209,001020: 24,3444 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST 031210,001021: 24,3445 55652 TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK 031211,001022: # Page 707 031212,001023: 24,3446 05412 TC PHASCHNG 031213,001024: 24,3447 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN 031214,001025: 24,3450 77777 DEC -0 B-14 # -0 CS 031215,001026: 031216,001027: 24,3451 03017 TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC. 031217,001028: 24,3452 05412 TC PHASCHNG 031218,001029: 24,3453 00714 OCT 00714 # A, 4.71 = V97TRCS (250 CS), TBASE OLD 031219,001030: 24,3454 05267 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- 031220,001031: 24,3455 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS) 031221,001032: 031222,001033: 24,3456 E6,1466 EBANK= DAPDATR1 031223,001034: 24,3456 04740 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO 031224,001035: 24,3457 42024 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS 031225,001036: 24,3460 37664 CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET- 031226,001037: 24,3461 05134 TC NOVAC # MAXDB AND GOTOP00H) 031227,001038: 24,3462 E6,1466 EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41 031228,001039: 24,3462 03402 50066 2CADR V99T 031229,001040: 031230,001041: 24,3464 15324 ENDV97T TCF TASKOVER 031231,001042: 031232,001043: 24,3465 E6,1444 EBANK= V97VCNTR 031233,001044: 24,3465 05412 V97P TC PHASCHNG 031234,001045: 24,3466 40734 OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW 031235,001046: 24,3467 35017 CAF BIT1 031236,001047: 24,3470 05235 TC TWIDDLE 031237,001048: 24,3471 03473 ADRES V97PTASK 031238,001049: 24,3472 15217 TCF ENDOFJOB 031239,001050: 031240,001051: 24,3473 E6,1444 EBANK= V97VCNTR 031241,001052: 24,3473 31444 V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN 031242,001053: 24,3474 55643 TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR 031243,001054: # POOR SYNC OF MANUAL ENGINE-ON AND 031244,001055: # THE VERB 97 PROCEED) 031245,001056: 24,3475 32425 CAF V06N40 # REDISPLAY V06N40 031246,001057: 24,3476 55145 TS NVWORD1 031247,001058: 24,3477 05546 TC UPFLAG # SET IDLEFAIL TO ALLOW R41-BYPASS, IN 031248,001059: 24,3500 00030 ADRES IDLEFAIL # CASE OF UNFAVORABLE S40.8 SYNCH 031249,001060: 24,3501 05546 TC UPFLAG # SET STEERSW TO RE-ENABLE STEERING 031250,001061: 24,3502 00042 ADRES STEERSW 031251,001062: 24,3503 05412 TC PHASCHNG 031252,001063: 24,3504 00134 OCT 00134 # A, 4.13 = R40ENABL (200 CS), TBASE OLD 031253,001064: 24,3505 05267 TC FIXDELAY # WAIT 2 SECONDS, THEN 031254,001065: 24,3506 00310 DEC 200 B-14 031255,001066: 031256,001067: 24,3507 0003777 EBANK= WHOCARES 031257,001068: 24,3507 05560 R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL 031258,001069: 24,3510 00030 ADRES IDLEFAIL 031259,001070: 24,3511 05412 TC PHASCHNG 031260,001071: 24,3512 00004 OCT 00004 # KILL GROUP 4 031261,001072: # Page 708 031262,001073: 24,3513 15324 ENDV97P TCF TASKOVER 031263,001074: 031264,001075: 24,3514 0003777 EBANK= WHOCARES 031265,001076: 24,3514 05412 V97E TC PHASCHNG 031266,001077: 24,3515 40534 OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW 031267,001078: 24,3516 35017 CAF BIT1 031268,001079: 24,3517 05245 TC WAITLIST 031269,001080: 24,3520 E7,1412 EBANK= TIG 031270,001081: 24,3520 03523 50067 2CADR V97ETASK 031271,001082: 031272,001083: 24,3522 15217 TCF ENDOFJOB 031273,001084: 031274,001085: 24,3523 E7,1412 EBANK= TIG 031275,001086: 24,3523 44112 V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59 031276,001087: 24,3524 55412 TS TIG 031277,001088: 24,3525 32425 CAF V06N40 # REDISPLAY V06N40 031278,001089: 24,3526 55145 TS NVWORD1 031279,001090: 24,3527 03371 TCR E6SETTER # RETURN TO EBANK6 FOR REST OF V97ETASK 031280,001091: 24,3530 E6,1474 EBANK= CSMMASS 031281,001092: 24,3530 32434 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL 031282,001093: 24,3531 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST 031283,001094: 24,3532 55652 TS MASSTMP # FAILED....COPYCYCLE FOR MASSBACK 031284,001095: 24,3533 05412 TC PHASCHNG 031285,001096: 24,3534 00754 OCT 00754 # A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD 031286,001097: 24,3535 03017 SPSOFF97 TCR SPSOFF 031287,001098: 24,3536 05412 TC PHASCHNG 031288,001099: 24,3537 00114 OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD 031289,001100: 24,3540 05267 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- 031290,001101: 24,3541 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS) 031291,001102: 031292,001103: 24,3542 E6,1466 EBANK= DAPDATR1 031293,001104: 24,3542 35017 V97E40.6 CAF BIT1 031294,001105: 24,3543 05245 TC WAITLIST 031295,001106: 24,3544 E6,1447 EBANK= CNTR 031296,001107: 24,3544 02241 40066 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE 031297,001108: 031298,001109: 24,3546 04740 TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO 031299,001110: 24,3547 42024 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS. 031300,001111: # LEAVE NARROW DEADBAND FOR REIGNITE. 031301,001112: 031302,001113: 24,3550 05372 TC 2PHSCHNG 031303,001114: 24,3551 00026 OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC) 031304,001115: 24,3552 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN 031305,001116: 24,3553 77777 DEC -0 B-14 # -0 CS. 031306,001117: 031307,001118: 24,3554 45066 QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR 031308,001119: 24,3555 70103 MASK FLAGWRD7 # IMMEDIATE V99 RESPONSE. 031309,001120: 24,3556 65003 AD BIT13 031310,001121: 24,3557 54103 TS FLAGWRD7 031311,001122: 24,3560 05267 TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6 031312,001123: # Page 709 031313,001124: 24,3561 00036 DEC 30 B-14 031314,001125: 031315,001126: 24,3562 45007 V99FLASH CS BIT9 # CAUSE V99 TO FLASH 031316,001127: 24,3563 55145 TS NVWORD1 031317,001128: 24,3564 05372 TC 2PHSCHNG 031318,001129: 24,3565 40774 OCT 40774 # A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC 031319,001130: 24,3566 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO 20) 031320,001131: 24,3567 35002 CAF PRIO20 # SET UP TIMEBURN 031321,001132: 24,3570 05147 TC FINDVAC 031322,001133: 24,3571 E7,1427 EBANK= TGO 031323,001134: 24,3571 02427 34067 2CADR S40.13 031324,001135: 031325,001136: 24,3573 15324 ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION 031326,001137: # TO FLASHING V99 RESPONSE. 031327,001138: 031328,001139: # MOD N02 LOG SECTION P40-P47 031329,001140: # MOD BY ZELDIN 031330,001141: 031331,001142: # FUNCTIONAL DESCRIPTION 031332,001143: # COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG 031333,001144: # VECTOR(VGTIG). 031334,001145: 031335,001146: # CALLING SEQUENCE 031336,001147: # L CALL 031337,001148: # L+1 S40.1 031338,001149: 031339,001150: # NORMAL EXIT MODE 031340,001151: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR 031341,001152: # ERROR RETURN IF NOSOFLAG =1 031342,001153: 031343,001154: # SUBROUTINES CALLED 031344,001155: # CSMPREC 031345,001156: # INITVEL 031346,001157: # CALCGRAV 031347,001158: # MIDGIM 031348,001159: 031349,001160: # ALARM OR ABORT EXIT MODES 031350,001161: # L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1 031351,001162: 031352,001163: # ERASABLE INITIALIZATION REQUIRED 031353,001164: # WEIGHT/G ANTICIPATED VEHICLE MASS SP B16 KGM 031354,001165: # XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER 031355,001166: # IF DELTA-V MANEUVER: 031356,001167: # DELVSIN SPECIFIED DELTA-V REQUIRED IN 031357,001168: # INERTIAL COORDS. OF ACTIVE VEHICLE 031358,001169: # AT TIME OF IGNITION VECTOR B7 M/CS 031359,001170: # DELVSAB MAG. OF DELVSIN DP B7 M/CS 031360,001171: # RTIG POSITION AT TIME OF IGNITION VECTOR B29 M 031361,001172: # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS. 031362,001173: # CSTEER = 0 DP 031363,001174: # IF AIMPOINT STEERING: 031364,001175: # IF AIMPT STEER 031365,001176: # TIG TIME OF IGNITION DP B28 CS 031366,001177: # RTARG POSITION TARGET TIME VECTOR B29 M 031367,001178: # CSTEER = ECSTEER (GR 0) DP B1 031368,001179: # Page 710 031369,001180: # TPASS4 -- TIME OF ARRIVAL AT AIMPOINT 031370,001181: 031371,001182: # OUTPUT 031372,001183: # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR 031373,001184: # VGTIG INITIAL VALUE OF VELOCITY 031374,001185: # TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS 031375,001186: # DELVLVC VGTIG IN LOC. VERT. COORDS. B7 M/CS 031376,001187: # F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT 031377,001188: # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC) 031378,001189: # -GDT FOR S40.13 VECT B7 M/CS 031379,001190: # RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M 031380,001191: # POSITION AT TIME OF IGNITION 031381,001192: 031382,001193: # DEBRIS QTEMP1 031383,001194: # MPAC, QPRET 031384,001195: # PUSHLIST 031385,001196: # RTX2,RTX1 031386,001197: 031387,001198: 14,2011 BANK 14 031388,001199: 16,2000 SETLOC P40S1 031389,001200: 16,2000 BANK 031390,001201: 031391,001202: 16,2020 COUNT 16/S40.1 031392,001203: 031393,001204: 16,2020 77214 S40.1 SET VLOAD 031394,001205: 16,2021 01070 FIRSTFLG 031395,001206: 16,2022 11566 LO6ZEROS 031396,001207: 16,2023 03705 STORE BDT 031397,001208: 16,2024 43020 STQ BOF 031398,001209: 16,2025 03657 QTEMP 031399,001210: 16,2026 01347 XDELVFLG 031400,001211: 16,2027 34116 S40.1B # LAMBERT 031401,001212: 16,2030 51575 VLOAD ABVAL # EXTERNAL DELTA-V 031402,001213: 16,2031 03646 DELVSIN 031403,001214: 16,2032 03654 STORE DELVSAB # COMPUTE FOR P30/P40 INTERFACE 031404,001215: # THUS PERMITTING MODULE-ONLY CHANGE 031405,001216: 16,2033 77201 SETPD VLOAD 031406,001217: 16,2034 00001 0 031407,001218: 16,2035 03640 VTIG 031408,001219: 16,2036 03576 STORE VINIT 031409,001220: 16,2037 53435 VXV UNIT 031410,001221: 16,2040 03632 RTIG 031411,001222: 16,2041 27713 STOVL UT # UP IN UT 031412,001223: 16,2042 03632 RTIG 031413,001224: 16,2043 03570 STORE RINIT 031414,001225: 16,2044 65236 VSQ PDDL 031415,001226: 16,2045 00045 36D 031416,001227: 16,2046 56275 DMPR DDV 031417,001228: 16,2047 34152 THETACON 031418,001229: 16,2050 41205 DMP DMP 031419,001230: 16,2051 03654 DELVSAB 031420,001231: 16,2052 03076 WEIGHT/G 031421,001232: 16,2053 77671 DDV 031422,001233: # Page 711 031423,001234: 16,2054 03727 F 031424,001235: 16,2055 24017 STOVL 14D 031425,001236: 16,2056 03646 DELVSIN 031426,001237: 031427,001238: 16,2057 74241 DOT VXSC 031428,001239: 16,2060 03713 UT 031429,001240: 16,2061 03713 UT 031430,001241: 16,2062 41552 VSL2 PUSH # (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0 031431,001242: 16,2063 65245 BVSU PDDL # DELTA VP SCALED AT 2(+7) P.D.L. 6 031432,001243: 16,2064 03646 DELVSIN 031433,001244: 16,2065 00017 14D 031434,001245: 16,2066 63356 SIN PDVL 031435,001246: 16,2067 00007 6D 031436,001247: 16,2070 53435 VXV UNIT 031437,001248: 16,2071 03713 UT 031438,001249: 16,2072 45561 VXSC STADR 031439,001250: 16,2073 50056 STOVL VGTIG # UNIT(VP X UP)SIN(THETAT/2) IN VGTIG. 031440,001251: 16,2074 65256 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6 031441,001252: 16,2075 00017 14D 031442,001253: 16,2076 74346 COS VXSC 031443,001254: 16,2077 74255 VAD VXSC 031444,001255: 16,2100 03721 VGTIG 031445,001256: 16,2101 00045 36D 031446,001257: 16,2102 53352 VSL2 VAD 031447,001258: 16,2103 77626 STADR 031448,001259: 16,2104 74056 STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS 031449,001260: 031450,001261: 16,2105 77656 UNIT 031451,001262: 16,2106 27713 STOVL UT # THRUST DIRECTION SCALED AT 2(+1) 031452,001263: 16,2107 03721 VGTIG 031453,001264: 16,2110 43006 PUSH SET 031454,001265: 16,2111 01072 AVFLAG 031455,001266: 16,2112 77624 CALL 031456,001267: 16,2113 10647 MIDGIM # VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC 031457,001268: 16,2114 77650 GOTO 031458,001269: 16,2115 03657 QTEMP 031459,001270: 16,2116 45345 S40.1B DLOAD DSU # LAMBERT 031460,001271: 16,2117 03413 TIG 031461,001272: 16,2120 36001 TWODT 031462,001273: 16,2121 14041 STODL TDEC1 031463,001274: 16,2122 03656 TPASS4 031464,001275: 16,2123 77625 DSU 031465,001276: 16,2124 00041 TDEC1 031466,001277: 16,2125 37423 STCALL DELLT4 031467,001278: 16,2126 61651 AGAIN 031468,001279: 16,2127 77775 VLOAD 031469,001280: 16,2130 03612 VIPRIME 031470,001281: 16,2131 17713 STODL UT 031471,001282: 16,2132 03413 TIG 031472,001283: 16,2133 00041 STORE TDEC1 031473,001284: # Page 712 031474,001285: 16,2134 77621 BDSU 031475,001286: 16,2135 03656 TPASS4 031476,001287: 16,2136 37423 STCALL DELLT4 031477,001288: 16,2137 61651 AGAIN 031478,001289: 16,2140 41575 VLOAD PUSH 031479,001290: 16,2141 03646 DELVEET3 031480,001291: 16,2142 03721 STORE VGTIG 031481,001292: 16,2143 45014 SET CALL 031482,001293: 16,2144 01072 AVFLAG 031483,001294: 16,2145 10647 MIDGIM 031484,001295: 16,2146 52001 SETPD GOTO 031485,001296: 16,2147 00001 0 031486,001297: 16,2150 61704 CALCUT 031487,001298: 031488,001299: 16,2151 00024 13714 THETACON 2DEC .31830989 B-8 031489,001300: 031490,001301: 30,2000 SETLOC P40S3 031491,001302: 30,2000 BANK 031492,001303: 031493,001304: 30,3645 COUNT 24/S40.1 031494,001305: 031495,001306: 30,3645 04000 00000 EP4(45)H 2DEC .125 031496,001307: 031497,001308: 30,3647 00707 03434 EP4(10)H 2DEC .027777777 031498,001309: 031499,001310: 30,3651 45020 AGAIN STQ CALL 031500,001311: 30,3652 03730 QTEMP1 031501,001312: 30,3653 27071 THISPREC 031502,001313: 30,3654 66134 SXA,2 SXA,1 031503,001314: 30,3655 03746 RTX2 031504,001315: 30,3656 03745 RTX1 031505,001316: 30,3657 77775 VLOAD 031506,001317: 30,3660 00001 RATT 031507,001318: 30,3661 03632 STORE RTIG 031508,001319: 30,3662 27570 STOVL RINIT 031509,001320: 30,3663 00007 VATT 031510,001321: 30,3664 03640 STORE VTIG 031511,001322: 30,3665 03576 STORE VINIT 031512,001323: 30,3666 67201 SETPD SLOAD 031513,001324: 30,3667 00001 0 031514,001325: 30,3670 15335 HI6ZEROS 031515,001326: 30,3671 43125 PDDL BON 031516,001327: 30,3672 21646 EP4(45)H 031517,001328: 30,3673 03705 NORMSW 031518,001329: 30,3674 61677 +3 031519,001330: 30,3675 77745 DLOAD 031520,001331: 30,3676 21650 EP4(10)H 031521,001332: 30,3677 45006 PUSH CALL 031522,001333: 30,3700 22000 INITVEL 031523,001334: 30,3701 52001 SETPD GOTO 031524,001335: # Page 713 031525,001336: 30,3702 00001 0 031526,001337: 30,3703 03730 QTEMP1 031527,001338: 30,3704 45175 CALCUT VLOAD CALL 031528,001339: 30,3705 03632 RTIG 031529,001340: 30,3706 77353 CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS 031530,001341: 30,3707 70372 VSL1 V/SC 031531,001342: 30,3710 21747 200CS # G AT 2(-5) M/CS. CS 031532,001343: 30,3711 52315 PDVL VSU 031533,001344: 30,3712 03612 VIPRIME 031534,001345: 30,3713 03713 UT 031535,001346: 30,3714 52341 V/SC VSU 031536,001347: 30,3715 21747 200CS 031537,001348: 30,3716 72561 VXSC VSL2 031538,001349: 30,3717 03703 CSTEER 031539,001350: 30,3720 24015 STOVL 12D # B.C SCALED AT 2(-15) PDL 12D 031540,001351: 30,3721 03721 VGTIG 031541,001352: 30,3722 41456 UNIT PUSH # UG PDL 0 SCALED AT 2(+1) 031542,001353: 031543,001354: 30,3723 74241 DOT VXSC 031544,001355: 30,3724 00015 12D 031545,001356: 30,3725 00001 0 031546,001357: 30,3726 51352 VSL2 BVSU 031547,001358: 30,3727 00015 12D 031548,001359: 30,3730 14015 STODL 12D # Q PDL SCALED AT 2(-5) 031549,001360: 30,3731 03727 F 031550,001361: 30,3732 56261 SRR DDV 031551,001362: 30,3733 21605 4 031552,001363: 30,3734 03076 WEIGHT/G 031553,001364: 30,3735 63316 DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10M/(CS.CS) 031554,001365: 30,3736 00015 12D 031555,001366: 30,3737 77636 VSQ 031556,001367: 30,3740 75421 BDSU SQRT 031557,001368: 30,3741 76561 VXSC VSL1 031558,001369: 30,3742 53455 VAD UNIT 031559,001370: 30,3743 00015 12D 031560,001371: 30,3744 37713 STCALL UT 031561,001372: 30,3745 03657 QTEMP 031562,001373: 30,3746 01440 00000 200CS 2DEC 200 B-12 031563,001374: 031564,001375: # Page 714 031565,001376: # PROGRAM DESCRIPTION S40.2,3 DATE 15 NOV 66 031566,001377: # MOD NO 2 LOG SECTIONS P40-P47 031567,001378: # MOD BY ZELDIN 031568,001379: 031569,001380: # FUNCTIONAL DESCRIPTION 031570,001381: # 031571,001382: # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU 031572,001383: # ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP 031573,001384: # COMPUTE X AXIS OF ENGINE BELL 031574,001385: # COMPUTE PREFERRED IMU ORIENTATION (XSCREF) 031575,001386: # FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY, 031576,001387: # YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT. 031577,001388: # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF. 031578,001389: # COORDS. WILL BE PREFERRED IMU ORIENTATION. 031579,001390: # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS. 031580,001391: 031581,001392: # CALLING SEQUENCE 031582,001393: # L CALL 031583,001394: # L+1 S40.2,3 031584,001395: 031585,001396: # NORMAL EXIT MODE 031586,001397: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) 031587,001398: 031588,001399: # SUBROUTINES CALLED 031589,001400: # CALCGA 031590,001401: 031591,001402: # ALARM OR ABORT MODES 031592,001403: # NONE 031593,001404: 031594,001405: # ERASABLE INITIALIZATION REQUIRED 031595,001406: # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV. 031596,001407: # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV. 031597,001408: # UT DESIRED THRUST DIRECTION VECT. B2 M/(CS.CS) 031598,001409: # RTIG POSITION AT TIME OF IGNITION VECT. B29 M 031599,001410: # ENG2FLAG ON=RCS OFF=SPS 031600,001411: 031601,001412: # OUTPUT 031602,001413: # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR. B1 031603,001414: # XSCREF UNIT VECTORS ALIGNED WTH PREFERRED IMU B1 031604,001415: # YSCREF 031605,001416: # ZSCREF 031606,001417: # GIMBAL ANGLES IN THETAD 031607,001418: # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1 031608,001419: 031609,001420: # DEBRIS 031610,001421: # PUSHLIST, QPRET, MPAC 031611,001422: # QTEMP TEMP. ERASABLE 031612,001423: 031613,001424: 24,3574 BANK 24 031614,001425: 24,2000 SETLOC P40S 031615,001426: 24,2000 BANK 031616,001427: 24,3574 COUNT* $$/S40.2 031617,001428: 24,3574 64375 S40.2,3 VLOAD MXV 031618,001429: 24,3575 03713 UT 031619,001430: 24,3576 01736 REFSMMAT 031620,001431: 24,3577 44172 VSL1 STQ 031621,001432: 24,3600 03657 QTEMP 031622,001433: 24,3601 03357 STORE POINTVSM # THRUST IN SM AT 2 031623,001434: 24,3602 43001 SETPD BON 031624,001435: 24,3603 00001 0 031625,001436: # Page 715 031626,001437: 24,3604 00704 ENG2FLAG 031627,001438: 24,3605 51715 S40.2,3B 031628,001439: 24,3606 77745 DLOAD 031629,001440: 24,3607 15335 HI6ZEROS 031630,001441: 24,3610 67206 PUSH SLOAD # ZERO PDL 0 031631,001442: 24,3611 03025 YACTOFF 031632,001443: 24,3612 72405 DMP SL1 031633,001444: 24,3613 11754 TRIMSCAL 031634,001445: 24,3614 41415 DAD PUSH 031635,001446: 24,3615 11756 YBIAS 031636,001447: 24,3616 65346 COS PDDL # COS(Y +Y0) PDL 2 031637,001448: 24,3617 41556 SIN PUSH # SIN(Y +Y0) PDL 4 031638,001449: 24,3620 77735 SLOAD 031639,001450: 24,3621 03024 PACTOFF 031640,001451: 24,3622 72405 DMP SL1 031641,001452: 24,3623 11754 TRIMSCAL 031642,001453: 24,3624 41415 DAD PUSH 031643,001454: 24,3625 11760 PBIAS 031644,001455: 24,3626 65346 COS PDDL # COS(P +P0) PDL 6 031645,001456: 24,3627 41556 SIN PUSH # SIN(P +P0) PDL 8D 031646,001457: 24,3630 14323 STODL ZSCREF # SIN(P +P0) 031647,001458: 24,3631 00007 6 031648,001459: 24,3632 72405 DMP SL1 031649,001460: 24,3633 00005 4 031650,001461: 24,3634 65276 DCOMP PDDL # -SIN(Y+Y0)COS(P+P0) PDL 10 031651,001462: 24,3635 00007 6 031652,001463: 24,3636 72405 DMP SL1 031653,001464: 24,3637 00003 2 031654,001465: 24,3640 77666 VDEF 031655,001466: 031656,001467: 24,3641 14307 STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT 031657,001468: 24,3642 00323 ZSCREF 031658,001469: 24,3643 72405 DMP SL1 031659,001470: 24,3644 00005 4 031660,001471: 24,3645 41325 PDDL DMP 031661,001472: 24,3646 00323 ZSCREF 031662,001473: 24,3647 00003 2 031663,001474: 24,3650 57552 SL1 DCOMP 031664,001475: 24,3651 77666 VDEF 031665,001476: 031666,001477: 24,3652 14323 STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2 031667,001478: 24,3653 77666 VDEF 031668,001479: 031669,001480: 24,3654 14315 STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2 031670,001481: 24,3655 00323 ZSCREF 031671,001482: 24,3656 65325 PDDL PDDL 031672,001483: 24,3657 00315 YSCREF 031673,001484: 24,3660 00307 XSCREF 031674,001485: 24,3661 77666 VDEF 031675,001486: # Page 716 031676,001487: 24,3662 27351 STOVL SCAXIS # ENGINE BELL SCALED AT 2 031677,001488: 24,3663 03713 UT 031678,001489: 24,3664 53515 PDVL UNIT 031679,001490: 24,3665 03632 RTIG 031680,001491: 24,3666 57435 VXV VCOMP 031681,001492: 24,3667 00001 0 031682,001493: 24,3670 41456 UNIT PUSH 031683,001494: 24,3671 77624 CALL 031684,001495: 24,3672 51734 TSTRXUT 031685,001496: 24,3673 57435 VXV VCOMP 031686,001497: 24,3674 00001 0 031687,001498: 24,3675 63372 VSL1 PDVL # 2 RF/SC IN PDL 12D 031688,001499: 24,3676 00307 XSCREF 031689,001500: 24,3677 76505 VXM VSL1 031690,001501: 24,3700 00001 0 031691,001502: 24,3701 24307 STOVL XSCREF # X OF PREF. IMU,X OF SC IN REF COOR. AT 2 031692,001503: 24,3702 00315 YSCREF 031693,001504: 24,3703 76505 VXM VSL1 031694,001505: 24,3704 00001 0 031695,001506: 24,3705 24315 STOVL YSCREF # Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2 031696,001507: 24,3706 00323 ZSCREF 031697,001508: 24,3707 76505 VXM VSL1 031698,001509: 24,3710 00001 0 031699,001510: 24,3711 00323 STORE ZSCREF # Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2 031700,001511: 24,3712 52001 SETPD GOTO 031701,001512: 24,3713 00001 0 031702,001513: 24,3714 03657 QTEMP 031703,001514: 24,3715 77775 S40.2,3B VLOAD 031704,001515: 24,3716 15333 UNITX 031705,001516: 24,3717 27351 STOVL SCAXIS 031706,001517: 24,3720 03713 UT 031707,001518: 24,3721 00307 STORE XSCREF 031708,001519: 24,3722 53435 VXV UNIT 031709,001520: 24,3723 03632 RTIG 031710,001521: 24,3724 34007 STCALL 6D 031711,001522: 24,3725 51734 TSTRXUT 031712,001523: 24,3726 00315 STORE YSCREF 031713,001524: 24,3727 57435 VXV VCOMP 031714,001525: 24,3730 00307 XSCREF 031715,001526: 24,3731 77772 VSL1 031716,001527: 24,3732 34323 STCALL ZSCREF # ZNB AXIS IN REF COOR 031717,001528: 24,3733 03657 QTEMP 031718,001529: 24,3734 46145 TSTRXUT DLOAD BHIZ 031719,001530: 24,3735 00045 36D 031720,001531: 24,3736 51741 BADVCTOR 031721,001532: 24,3737 43575 VLOAD RVQ 031722,001533: 24,3740 00007 6D 031723,001534: 24,3741 53575 BADVCTOR VLOAD UNIT 031724,001535: 24,3742 03632 RTIG 031725,001536: 24,3743 53515 PDVL UNIT 031726,001537: # Page 717 031727,001538: 24,3744 03640 VTIG 031728,001539: 24,3745 53322 VSR3 VAD 031729,001540: 24,3746 53435 VXV UNIT 031730,001541: 24,3747 03713 UT 031731,001542: 24,3750 77676 VCOMP 031732,001543: 24,3751 00007 STORE 6D 031733,001544: 24,3752 77616 RVQ 031734,001545: 24,3753 21215 12215 TRIMSCAL 2DEC 1.07975111 B-1 031735,001546: 031736,001547: 24,3755 00053 07423 YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON) 031737,001548: 031738,001549: 24,3757 77636 44653 PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) 031739,001550: 031740,001551: # REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968 031741,001552: 031742,001553: # PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66 031743,001554: # MOD NO 1 LOG SECTION P40-P47 031744,001555: # MOD BY ZELDIN 031745,001556: 031746,001557: # FUNCTIONAL DESCRIPTION 031747,001558: 031748,001559: # COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS. 031749,001560: # TO CONTROL COORDS. 031750,001561: 031751,001562: # CALLING SEQUENCE 031752,001563: 031753,001564: # L CALL 031754,001565: # L+1 S41.1 031755,001566: 031756,001567: # NORMAL EXIT MODE 031757,001568: # 031758,001569: # AT L +2 OF CALLING SEQUENCE 031759,001570: 031760,001571: # SUBROUTINES CALLED: 031761,001572: 031762,001573: # CALCSMSC 031763,001574: # CDUTRIG 031764,001575: 031765,001576: # ALARM OR ABORT MODES 031766,001577: 031767,001578: # NONE 031768,001579: 031769,001580: # ERASABLE INITIALIZATION REQUIRED 031770,001581: 031771,001582: # VG IN REF. COORD. PDL L POINTER AT L+5. S41.1 WILL RETURN WITH 031772,001583: # POINTER AT L (L MUST BE LESS THAN OR = TO 14D) 031773,001584: 031774,001585: # OUTPUT 031775,001586: 031776,001587: # MPAC CONTAINS VG IN CONTROL COORDS VECT. B7 M/CS 031777,001588: 031778,001589: # DEBRIS: 031779,001590: 031780,001591: # QTEMP TEMP ERASABLE 031781,001592: # QPRET 031782,001593: 031783,001594: 24,3761 COUNT 22/S41.1 031784,001595: 031785,001596: 22,2000 SETLOC P40S5 031786,001597: 22,2000 BANK 031787,001598: 031788,001599: 22,3431 45020 S41.1 STQ CALL 031789,001600: 22,3432 03657 QTEMP 031790,001601: 22,3433 47477 CDUTRIG 031791,001602: 22,3434 77775 VLOAD 031792,001603: 22,3435 45121 MXV CALL 031793,001604: 22,3436 01736 REFSMMAT 031794,001605: 22,3437 47644 *SMNB* 031795,001606: # Page 718 031796,001607: 22,3440 74321 MXV VXSC 031797,001608: 22,3441 05003 QUADROT 031798,001609: 22,3442 05446 TENBNK14 # VG IN CONTROL COORD IN MPAC SCALED AT 031799,001610: 22,3443 52072 VSL5 GOTO # VG IN CONTROL COORDS. IN MPAC AT 2(+7) 031800,001611: 22,3444 03657 QTEMP 031801,001612: 22,3445 24000 00000 TENBNK14 2DEC 10. B-4 031802,001613: 031803,001614: # Page 719 031804,001615: # NAME S40.8 -- CROSS PRODUCT STEERING 031805,001616: # FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR. 031806,001617: # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT. 031807,001618: # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES. 031808,001619: # (4) INITIATES THRUST-FAIL ROUTINE, R40 031809,001620: # CALLING SEQ CALL S40.6 031810,001621: # INPUT VGPREV LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR 031811,001622: # PRIOR TO UPDATING IN METERS/CS AT +7. 031812,001623: # DELVREF CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT 031813,001624: # IN METERS/CS AT +7. 031814,001625: # BDT EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND 031815,001626: # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN 031816,001627: # METERS/CS AT +7. 031817,001628: # CSTEER A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR 031818,001629: # SPS AIMPOINT STEERING MANEUVERS. 031819,001630: # IDLEFAIL A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE. 031820,001631: # STEERSW A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING. 031821,001632: # REFSMMAT, DAPDATR1, PIPTIME 031822,001633: # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC. 031823,001634: # OUTPUT TTOGO TIME REMAINING FOR ENGINE BURN IN CS AT +28. 031824,001635: # OMEGAC DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC. 031825,001636: # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING 031826,001637: # STEERSW, IMPULSW, NVWORD1 031827,001638: # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING) 031828,001639: # DEBRIS OMEGAXC, +1 031829,001640: # SUBROUTINES USED: *SMNB*, ALARM 031830,001641: 031831,001642: 16,2000 SETLOC P40S1 031832,001643: 16,2000 BANK 031833,001644: 16,2153 E6,1466 EBANK= DAPDATR1 031834,001645: 16,2153 COUNT 16/S40.8 031835,001646: 031836,001647: 16,2153 44001 S40.8 SETPD STQ 031837,001648: 16,2154 00001 SPBIT1 00D 031838,001649: 16,2155 03657 QTEMP 031839,001650: 16,2156 51375 VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS 031840,001651: 16,2157 03433 DELVREF 031841,001652: 16,2160 03705 BDT 031842,001653: 16,2161 77655 VAD 031843,001654: 16,2162 03721 VGPREV 031844,001655: 16,2163 03460 STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS 031845,001656: 031846,001657: 16,2164 77646 ABVAL 031847,001658: 16,2165 03773 STORE VGDISP # FOR DISPLAY PURPOSES 031848,001659: 16,2166 77776 EXIT 031849,001660: 16,2167 05412 TC PHASCHNG 031850,001661: 16,2170 10035 OCT 10035 # TYPE B RESTART RESTART BELOW AND 5.3 REREADAC 031851,001662: 031852,001663: 16,2171 06006 TC INTPRET 031853,001664: 16,2172 77775 VLOAD 031854,001665: # Page 720 031855,001666: 16,2173 03460 VG 031856,001667: 16,2174 03721 STORE VGPREV 031857,001668: 16,2175 77214 BOFF VLOAD 031858,001669: 16,2176 01344 STEERSW # SKIP TGO AND CROSS-PRODUCT 031859,001670: 16,2177 03657 QTEMP 031860,001671: 16,2200 03433 DELVREF 031861,001672: 16,2201 41446 ABVAL PUSH # CHECK FOR LOTHRUST 031862,001673: 16,2202 41335 SLOAD DMP 031863,001674: 16,2203 01354 DVTHRESH # SC.AT B-2 M/CS 031864,001675: 16,2204 36011 DPB-9 031865,001676: 16,2205 77621 BDSU 031866,001677: 16,2206 77440 BMN EXIT 031867,001678: 16,2207 40222 LOTHRUST 031868,001679: 16,2210 31466 CAE DAPDATR1 # ENABLE TVCDAP CG TRACKING 031869,001680: 16,2211 75002 MASK BIT14 031870,001681: 16,2212 10000 CCS A 031871,001682: 16,2213 35017 CAF BIT1 031872,001683: 16,2214 50000 INDEX A # LM-OFF, LM-ON VALUE 031873,001684: 16,2215 31421 CAE EREPFRAC 031874,001685: 16,2216 55642 TS REPFRAC 031875,001686: 031876,001687: 16,2217 06006 TC INTPRET 031877,001688: 16,2220 51375 TGOCALC VLOAD BVSU # GET DELVG 031878,001689: 16,2221 03433 DELVREF 031879,001690: 16,2222 03705 BDT 031880,001691: 16,2223 77656 UNIT 031881,001692: 16,2224 41441 DOT PUSH # (00D) 031882,001693: 16,2225 03460 VG 031883,001694: 16,2226 56244 BPL DDV # ANGLE SHOULD BE GREATER THAN PI/2 031884,001695: 16,2227 40214 INCRSVG # DISPLAY ALARM IF NOT 031885,001696: 16,2230 36005 2VEXHUST 031886,001697: 16,2231 41215 DAD DMP # (DOT PRODUCT UP FROM 00D) 031887,001698: 16,2232 11564 LODPHALF 031888,001699: 16,2233 70501 NORM SR1 031889,001700: 16,2234 00047 X1 031890,001701: 16,2235 60325 PDDL NORM 031891,001702: 16,2236 00045 36D # (MAG DELVG) 031892,001703: 16,2237 00050 X2 031893,001704: 16,2240 77665 BDDV 031894,001705: 16,2241 53664 XSU,2 SL* 031895,001706: 16,2242 00046 X1 031896,001707: 16,2243 57607 0 -9D,2 031897,001708: 16,2244 41405 DMP PUSH # (00D) 031898,001709: 16,2245 36003 -FOURDT 031899,001710: 16,2246 54335 SLOAD SR 031900,001711: 16,2247 03013 ETDECAY # ETDECAY SC.AT B+14 CS 031901,001712: 16,2250 20617 14D 031902,001713: 16,2251 45421 BDSU STADR 031903,001714: 16,2252 74347 STORE TGO # TIME TO GO IN CS. AT +28 031904,001715: 16,2253 77615 DAD 031905,001716: # Page 721 031906,001717: 16,2254 01205 PIPTIME 031907,001718: 16,2255 17413 STODL TIG 031908,001719: 16,2256 03430 TGO 031909,001720: 16,2257 50025 DSU BMN 031910,001721: 16,2260 36007 FOURSEC 031911,001722: 16,2261 40201 S40.81 031912,001723: 031913,001724: 16,2262 74375 XPRODUCT VLOAD VXSC 031914,001725: 16,2263 03705 BDT 031915,001726: 16,2264 03703 CSTEER 031916,001727: 16,2265 52352 VSL2 VSU 031917,001728: 16,2266 03433 DELVREF 031918,001729: 16,2267 63256 UNIT PDVL 031919,001730: 16,2270 03460 VG 031920,001731: 16,2271 47256 UNIT VXV 031921,001732: 16,2272 45121 MXV CALL 031922,001733: 16,2273 01736 REFSMMAT # (REFSMMAT/2) 031923,001734: 16,2274 47644 *SMNB* 031924,001735: 16,2275 77761 VXSC 031925,001736: 16,2276 03235 KPRIMEDT # (KPRIMEDT SCIAT PI/8 RAD) 031926,001737: 16,2277 03126 OMEGACLC STORE OMEGAC 031927,001738: 16,2300 77650 GOTO 031928,001739: 16,2301 03657 QTEMP 031929,001740: 031930,001741: 17,2000 SETLOC DAPS7 031931,001742: 17,2000 BANK 031932,001743: 17,2000 COUNT 17/S40.8 031933,001744: 031934,001745: 17,2000 00000 00310 TWODT 2DEC 200.0 B-28 # 2 SEC 031935,001746: 031936,001747: 17,2002 77715 77777 -FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING) 031937,001748: 031938,001749: 17,2004 17602 25124 2VEXHUST 2DEC 63.020792 B-7 # 2(10338.0564 FPS), SC.AT B+7 M/CS 031939,001750: 031940,001751: 17,2006 00000 00620 FOURSEC 2DEC 400.0 B-28 # 4 SEC 031941,001752: 031942,001753: 17,2010 00040 00000 DPB-9 2DEC 1 B-9 031943,001754: 031944,001755: 20,2000 SETLOC DAPS6 031945,001756: 20,2000 BANK 031946,001757: 031947,001758: 20,2201 COUNT 20/S40.8 031948,001759: 031949,001760: 20,2201 77214 S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS 031950,001761: 20,2202 01066 IMPULSW # FOR ENGINE-OFF CALL 031951,001762: 20,2203 15335 HI6ZEROS 031952,001763: 20,2204 03126 RATEZRO STORE OMEGAC # TVC TO ATTITUDE HOLD 031953,001764: 20,2205 77776 EXIT 031954,001765: 20,2206 34777 CAF POSMAX # INHIBIT SWITCHOVER/TVC EG TRACKING 031955,001766: 20,2207 55447 TS CNTR 031956,001767: # Page 722 031957,001768: 20,2210 06006 TC INTPRET 031958,001769: 20,2211 52014 CLEAR GOTO 031959,001770: 20,2212 01264 STEERSW # RESTARTS OK 031960,001771: 20,2213 03657 QTEMP 031961,001772: 20,2214 77776 INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING 031962,001773: 20,2215 05650 TC ALARM # IN WRONG DIRECTION. 031963,001774: 20,2216 01407 OCT 01407 031964,001775: 20,2217 06006 TC INTPRET 031965,001776: 20,2220 77650 GOTO 031966,001777: 20,2221 03657 QTEMP 031967,001778: 031968,001779: 20,2222 77214 LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED 031969,001780: 20,2223 00711 IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF 031970,001781: 20,2224 03657 QTEMP # UNFAVORABLE S40.8 SYNCH. 031971,001782: 20,2225 15335 HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS 031972,001783: 20,2226 03126 STORE OMEGAC # PUT TVC IN ATTITUDE HOLD 031973,001784: 20,2227 77776 EXIT 031974,001785: 031975,001786: 20,2230 45021 CS ZERO 031976,001787: 20,2231 55643 TS VCNTR # KILL CSMMASS UPDATING 031977,001788: 20,2232 55653 TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO) 031978,001789: 20,2233 55642 TS REPFRAC # KILL TVCDAP CG TRIM TRACKING 031979,001790: 20,2234 55145 TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB) 031980,001791: 031981,001792: 20,2235 06006 TC INTPRET 031982,001793: 20,2236 52014 CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL 031983,001794: 20,2237 01264 STEERSW # SHUTDOWN IF NOT SET UP AGAIN) 031984,001795: 20,2240 03657 QTEMP # RESTARTS OK 031985,001796: 031986,001797: # Page 723 031987,001798: # NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY) 031988,001799: # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED 031989,001800: # VECTORS FOR USE DURING AIMPOINT MANEUVERS. 031990,001801: # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 031991,001802: # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED. 031992,001803: # CALLING SEQ VIA FINDVEC AS NEW JOB. 031993,001804: # INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29. 031994,001805: # VNIT ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7. 031995,001806: # VRPREV LAST COMPUTED VELOCITY REQUIRED VECTOR IN 031996,001807: # METERS/CS AT +7. 031997,001808: # NONTIG TIME OF IGN. USED IN TARGETTING ROUTINES B+28 031998,001809: # DELLT4 TRANSFER TIME FROM PIPTIME TO TARGET B+28 031999,001810: # TNIT TIME OF RNIT AND VNIT IN CS AT +28 032000,001811: # GDT/2 HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO 032001,001812: # ACCELERATION OF GRAVITY IN METERS/CS AT +7. 032002,001813: # DELVREF CHANGE IN VELOCITY DURING LAST 2 SEC IN 032003,001814: # METERS/CS AT +7. 032004,001815: # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN 032005,001816: # 165 TO 195 DEGREES. 032006,001817: # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE. 032007,001818: # OUTPUT VGTEMP VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7. 032008,001819: # COGA INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 032009,001820: # OR PREVIOUS PASS THRU S40.9. 032010,001821: # GOBL/2 OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU 032011,001822: # VRPREV/ VELOCITY REQUIRED VECTOR IN METERS/CS AT +7. 032012,001823: # BDT B VECTOR IN METERS/CS AT +7. 032013,001824: # SUBROUTINES USED -- INITVEL 032014,001825: 032015,001826: 16,2000 SETLOC P40S1 032016,001827: 16,2000 BANK 032017,001828: 032018,001829: 16,2302 E6,1742 EBANK= NBRCYCLS 032019,001830: 16,2302 COUNT 16/S40.9 032020,001831: 032021,001832: 16,2302 06006 S40.9 TC INTPRET 032022,001833: 16,2303 71201 SETPD DLOAD 032023,001834: 16,2304 00001 00D 032024,001835: 16,2305 11566 LO6ZEROS 032025,001836: 16,2306 77725 PDDL 032026,001837: 16,2307 34424 EP4(45)L 032027,001838: 16,2310 71214 BON DLOAD 032028,001839: 16,2311 03705 NORMSW 032029,001840: 16,2312 34314 +2 032030,001841: 16,2313 34426 EP4(10)L 032031,001842: 16,2314 77606 PUSH 032032,001843: 16,2315 45014 CLEAR CALL 032033,001844: 16,2316 00675 GUESSW 032034,001845: 16,2317 22002 HAVEGUES 032035,001846: 16,2320 77776 EXIT 032036,001847: 16,2321 05412 TC PHASCHNG # SAVE TIME BY NOT REDOING LAMBERT CALCS 032037,001848: 16,2322 05021 OCT 05021 # C, PRIORITY NEXT, JOB BELOW 032038,001849: # Page 724 032039,001850: 16,2323 10000 OCT 10000 032040,001851: 16,2324 06006 TC INTPRET 032041,001852: 16,2325 77614 ENDLAMB BON 032042,001853: 16,2326 01310 FIRSTFLG 032043,001854: 16,2327 34345 FIRSTTME 032044,001855: 16,2330 52375 VLOAD VSU 032045,001856: 16,2331 03612 VIPRIME 032046,001857: 16,2332 03466 VRPREV 032047,001858: 16,2333 45325 PDDL DSU 032048,001859: 16,2334 03474 TNIT 032049,001860: 16,2335 03476 TNITPREV 032050,001861: 16,2336 55261 SL BDDV 032051,001862: 16,2337 20222 17D 032052,001863: 16,2340 34420 200CSHI 032053,001864: 16,2341 77761 VXSC 032054,001865: 16,2342 76451 VSU VSL1 032055,001866: 16,2343 01207 GDT/2 032056,001867: 16,2344 03705 STORE BDT 032057,001868: 16,2345 57535 FIRSTTME SLOAD DCOMP 032058,001869: 16,2346 03747 RTX2 032059,001870: 16,2347 77640 BMN 032060,001871: 16,2350 34365 MOONCASE 032061,001872: 16,2351 53575 VLOAD UNIT 032062,001873: 16,2352 01171 RN 032063,001874: 16,2353 45345 DLOAD DSU 032064,001875: 16,2354 01205 PIPTIME 032065,001876: 16,2355 03450 NOMTIG 032066,001877: 16,2356 56205 DMP DDV 032067,001878: 16,2357 34422 EARTHMU 032068,001879: 16,2360 00043 34D 032069,001880: 16,2361 53361 VXSC VAD 032070,001881: 16,2362 01215 GOBL/2 032071,001882: 16,2363 03646 VGTEMP # NOTE: NO TEST IS MADE TO SUBTRACT GOBL 032072,001883: 16,2364 03646 STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA. 032073,001884: 16,2365 77776 MOONCASE EXIT 032074,001885: 16,2366 05412 TC PHASCHNG 032075,001886: 16,2367 04021 OCT 04021 # C, JOB BELOW 032076,001887: 032077,001888: 16,2370 06006 COPY40.9 TC INTPRET 032078,001889: 16,2371 77745 DLOAD 032079,001890: 16,2372 03474 TNIT 032080,001891: 16,2373 27476 STOVL TNITPREV 032081,001892: 16,2374 03612 VIPRIME 032082,001893: 16,2375 03466 STORE VRPREV 032083,001894: 16,2376 77414 CLEAR EXIT 032084,001895: 16,2377 01270 FIRSTFLG 032085,001896: 16,2400 45017 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9 032086,001897: 16,2401 55742 TS NBRCYCLS 032087,001898: 16,2402 05412 ENDS40.9 TC PHASCHNG 032088,001899: 16,2403 00001 OCT 00001 032089,001900: # Page 725 032090,001901: 16,2404 15217 TCF ENDOFJOB 032091,001902: 032092,001903: 16,2405 06006 REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY 032093,001904: 16,2406 77775 VLOAD # TERMINATE S40.9 SO THAT IT CAN BE 032094,001905: 16,2407 11566 LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS 032095,001906: 16,2410 17345 STODL DELVSUM # (TYPE C PHASE POINTS '04021' WILL 032096,001907: 16,2411 11566 LO6ZEROS # FORCE NORMAL S40.9 TERMINATIONS, 032097,001908: 16,2412 27343 STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW 032098,001909: 16,2413 03721 VGPREV # PASS -- QUICK OLD DATA BETTER THAN 032099,001910: 16,2414 03646 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9 032100,001911: 16,2415 77776 EXIT # WITHOUT DISTURBING VGPREV. 032101,001912: 16,2416 12400 TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S 032102,001913: 032103,001914: 16,2417 01440 00000 200CSHI 2DEC 200 B-12 032104,001915: 032105,001916: 16,2421 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36* 032106,001917: 032107,001918: 16,2423 04000 00000 EP4(45)L 2DEC .125 032108,001919: 032109,001920: 16,2425 00707 03434 EP4(10)L 2DEC .027777777 032110,001921: 032111,001922: # Page 726 032112,001923: # NAME: S40.13 -- TIMEBURN 032113,001924: 032114,001925: # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO- 032115,001926: # BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 032116,001927: # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND 032117,001928: # (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT -- 032118,001929: # AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL. 032119,001930: 032120,001931: # CALLING SEQUENCE VIA FINDVAC AS A NEW JOB 032121,001932: 032122,001933: # INPUT VGTIG -- VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7 032123,001934: # WEIGHT/G -- MASS OF VEHICLE IN KGM AT TIG 032124,001935: # F -- ENGINE THRUST IN M.NEWTONS AT +7 032125,001936: # MDOT -- RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN 032126,001937: # IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY 032127,001938: # REQUIRE MODIFICATION FOR SATURN BURNS. 032128,001939: 032129,001940: # OUTPUT IMPULSW ZERO FOR STEERING 032130,001941: # ONE FOR ATTITUDE HOLD 032131,001942: # TGO TIME TO BURN IN CENTISECONDS AT +14 032132,001943: # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF 032133,001944: # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND) 032134,001945: # (1) M.NEWTON = (10000) NEWTONS. 032135,001946: 032136,001947: 16,2427 E7,1427 EBANK= TGO 032137,001948: 16,2427 COUNT 16/40.13 032138,001949: 032139,001950: 16,2427 06006 S40.13 TC INTPRET 032140,001951: 16,2430 43001 SETPD SET 032141,001952: 16,2431 00001 00D 032142,001953: 16,2432 01066 IMPULSW # ASSUME NO STEERING UNTIL FOUND OTHERWISE 032143,001954: 16,2433 51575 VLOAD ABVAL 032144,001955: 16,2434 03721 VGTIG # VELOCITY TO BE GAINED AT +7 032145,001956: 16,2435 77776 EXIT 032146,001957: 16,2436 35011 CAF BIT7 # TEST +X TRANSLATION 032147,001958: 16,2437 00006 EXTEND 032148,001959: 16,2440 06031 RXOR CHAN31 032149,001960: 16,2441 75011 MASK BIT7 032150,001961: 16,2442 00006 EXTEND 032151,001962: 16,2443 12525 BZF NOTADDUL 032152,001963: 16,2444 06006 TC INTPRET 032153,001964: 16,2445 56325 PDDL DDV # 00D = MAG OF VGTIG AT +7 032154,001965: 16,2446 36021 S40.135 # COMPENSATION FOR 2 JET ULLAGE AT +24 032155,001966: 16,2447 03076 WEIGHT/G # MASS IN KGMS AT +16 032156,001967: 16,2450 72414 BON SL1 # DOUBLE CORRECTION IF FOUR JETS 032157,001968: 16,2451 00700 NJETSFLG 032158,001969: 16,2452 34453 S40.130 032159,001970: 16,2453 77621 S40.130 BDSU 032160,001971: 16,2454 56325 PDDL DDV # 00D = MAG OF VGTIG CORRECTED FOR ULLAGE 032161,001972: 16,2455 01770 K1VAL # M.NEWTON-CS AT +24 032162,001973: 16,2456 03076 WEIGHT/G 032163,001974: 16,2457 50021 BDSU BMN 032164,001975: 16,2460 00001 00D 032165,001976: 16,2461 34504 S40.131 # TGO LESS THAN 100 CS 032166,001977: 16,2462 41325 PDDL DMP # 02D = TEMP1 AT +7 032167,001978: # Page 727 032168,001979: 16,2463 00111 EMDOT # SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE) 032169,001980: 16,2464 36015 3.5SEC # 350 CS AT +14 032170,001981: 16,2465 65221 BDSU PDDL 032171,001982: 16,2466 03076 WEIGHT/G 032172,001983: 16,2467 01775 FANG 032173,001984: 16,2470 60405 DMP SR2 032174,001985: 16,2471 36017 5SECOND # 500 CS AT +14 032175,001986: 16,2472 41471 DDV PUSH # 04D = TEMP2 032176,001987: 16,2473 51021 BDSU BPL 032177,001988: 16,2474 00003 02D 032178,001989: 16,2475 34520 S40.133 # TGO GREATER THAN 600 CS 032179,001990: 16,2476 55345 DLOAD BDDV 032180,001991: 16,2477 43205 DMP DAD 032181,001992: 16,2500 36017 5SECOND # 500 CS AT +14 032182,001993: 16,2501 36013 1SEC2D # 100 CS AT +14 032183,001994: 16,2502 77650 GOTO 032184,001995: 16,2503 34511 S40.132 032185,001996: 16,2504 41345 S40.131 DLOAD DMP # TGO LESS THAN 100 CS 032186,001997: 16,2505 03076 WEIGHT/G 032187,001998: 16,2506 56215 DAD DDV 032188,001999: 16,2507 01772 K2VAL # M.NEWTON CS AT +24 032189,002000: 16,2510 01774 K3VAL # M.NEWTON AT +10 032190,002001: 16,2511 77776 S40.132 EXIT 032191,002002: 16,2512 E7,1427 EBANK= TGO 032192,002003: 16,2512 07226 TC TPAGREE 032193,002004: 16,2513 30154 CA MPAC 032194,002005: 16,2514 56001 XCH L 032195,002006: 16,2515 35021 CA ZERO 032196,002007: 16,2516 53430 DXCH TGO # TGO IN CS AT +28 032197,002008: 16,2517 02522 TC S40.134 032198,002009: 16,2520 77414 S40.133 CLEAR EXIT # WILL STEER VEHICLE 032199,002010: 16,2521 01266 IMPULSW 032200,002011: 16,2522 05412 S40.134 TC PHASCHNG # KILL GROUP 3 032201,002012: 16,2523 00003 OCT 3 032202,002013: 032203,002014: 16,2524 15217 TCF ENDOFJOB 032204,002015: 032205,002016: 16,2525 06006 NOTADDUL TC INTPRET 032206,002017: 16,2526 77650 GOTO 032207,002018: 16,2527 34454 S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE 032208,002019: 17,2000 SETLOC DAPS7 032209,002020: 17,2000 BANK 032210,002021: 032211,002022: 17,2012 COUNT 17/40.13 032212,002023: 032213,002024: 17,2012 E3,1767 K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 032214,002025: 17,2012 E3,1771 K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 032215,002026: 17,2012 E3,1773 K3VAL = EK3VAL # DP PAD LOAD B+09 NEWTONS/E+4 032216,002027: 17,2012 00144 00000 1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14 032217,002028: # Page 728 032218,002029: 17,2014 01274 00000 3.5SEC 2DEC 350.0 B-13 # 350 CS AT +13 032219,002030: 032220,002031: 17,2016 00764 00000 5SECOND 2DEC 500.0 B-14 # 500.0 CS AT +14 032221,002032: 032222,002033: 17,2020 00000 04263 S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING 032223,002034: # 7.96 (199.6)COS(10) LB-SEC, SC.AT 032224,002035: # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE 032225,002036: # TO GO, PLUS 0.96 SEC FROM PIPTIME) 032226,002037: 032227,002038: # Page 729 032228,002039: # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM 032229,002040: # MOD NO 5 DATE 9 MARCH, 1967 032230,002041: # MOD BY ENGEL LOG SECTION P40-P47 032231,002042: 032232,002043: # FUNCTIONAL DESCRIPTION 032233,002044: # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND 032234,002045: # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION 032235,002046: # OF GIMBAL MOTION ON GPI 032236,002047: # GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO 032237,002048: # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI. 032238,002049: # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON --- IF TVC 032239,002050: # IS NOT ON --- PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION. 032240,002051: # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION. 032241,002052: # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE 032242,002053: # OF RESTARTING ACTUATORS. 032243,002054: 032244,002055: # CALLING SEQUENCE.... 032245,002056: # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR 032246,002057: 032247,002058: # NORMAL EXIT MODE -- FIXDELAY, TASKOVER 032248,002059: 032249,002060: # SUBROUTINES CALLED.... 032250,002061: # OUTPUT (INTERNAL) 032251,002062: # FIXDELAY 032252,002063: 032253,002064: # ALARM OR ABORT EXIT MODES --- NONE 032254,002065: 032255,002066: # ERASABLE INITIALIZATION REQUIRED 032256,002067: # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM. 032257,002068: # MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH) 032258,002069: # NEGATIVE FOR GIMBAL TRIM ONLY 032259,002070: # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM) 032260,002071: # "SC CONT" SWITCH AT "CMC" (A/P CONTROL SWITCH AT "GNC") 032261,002072: # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW 032262,002073: 032263,002074: # OUTPUT 032264,002075: # TVCYAW, TVCPITCH (BITS RELEASED) 032265,002076: # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE 032266,002077: 032267,002078: # DEBRIS 032268,002079: # TBMPR60, CNTR 032269,002080: 032270,002081: 17,2022 BANK 17 032271,002082: 20,2000 SETLOC DAPS6 032272,002083: 20,2000 BANK 032273,002084: 032274,002085: 20,2241 E6,1447 EBANK= CNTR 032275,002086: 20,2241 COUNT 20/S40.6 032276,002087: 032277,002088: 20,2241 40102 PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT 032278,002089: 20,2242 74105 MASK OCT60000 # IF TVC, BITS 15,14 = 1,0) 032279,002090: 20,2243 00006 EXTEND 032280,002091: 20,2244 62246 BZMF +2 032281,002092: 20,2245 15324 TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE 032282,002093: 032283,002094: 20,2246 45017 CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY 032284,002095: # Page 730 032285,002096: 20,2247 55445 TS MRKRTMP 032286,002097: 032287,002098: 20,2250 35017 CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS... 032288,002099: 20,2251 55447 TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S 032289,002100: # NORMALLY +0, BY S40.6) 032290,002101: 032291,002102: 20,2252 E6,1447 EBANK= CNTR 032292,002103: 20,2252 45021 S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY 032293,002104: 20,2253 55303 TS OPTIND 032294,002105: 032295,002106: 20,2254 45016 CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO, 032296,002107: 20,2255 00006 EXTEND # AND INHIBIT PULSE TRANSMISSION -- 032297,002108: 20,2256 03012 WAND CHAN12 # NORMAL STATE) 032298,002109: 032299,002110: 20,2257 32344 CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC 032300,002111: 20,2260 00006 EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC 032301,002112: 20,2261 05012 WOR CHAN12 032302,002113: 032303,002114: 20,2262 05267 TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR 032304,002115: 20,2263 00006 DEC 6 B-14 # RELAY LATCHING 032305,002116: 032306,002117: 20,2264 35016 CAF BIT2 # ENABLE OPTICS ERROR COUNTERS 032307,002118: 20,2265 00006 EXTEND 032308,002119: 20,2266 05012 WOR CHAN12 032309,002120: 032310,002121: 20,2267 05267 TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR 032311,002122: 20,2270 00002 DEC 2 B-14 # RELAY LATCHING 032312,002123: 032313,002124: 20,2271 11447 RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6) 032314,002125: 20,2272 12332 TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY 032315,002126: # TST,TRIM SETS +0 ON NORMAL ENTRY 032316,002127: 032317,002128: 20,2273 31445 CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY 032318,002129: 20,2274 55447 TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS 032319,002130: 20,2275 00006 EXTEND 032320,002131: 20,2276 62330 BZMF GIMTRIM # (TRIM ONLY) 032321,002132: 032322,002133: 20,2277 45021 GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH 032323,002134: 20,2300 55447 TS CNTR 032324,002135: 032325,002136: 20,2301 32346 GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT 032326,002137: 20,2302 02315 TC OUTPUT # (LEAVES GIMBAL AT +2 DEG) 032327,002138: 20,2303 32345 CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2) 032328,002139: 20,2304 02315 TC OUTPUT 032329,002140: 20,2305 32346 CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0) 032330,002141: 20,2306 02315 TC OUTPUT 032331,002142: 032332,002143: 20,2307 41447 CS CNTR # CHECK FOR COMPLETION OF YAW TEST. 032333,002144: # Page 731 032334,002145: 20,2310 10000 CCS A 032335,002146: 20,2311 12330 TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE 032336,002147: 20,2312 45017 CS BIT1 # SET UP YAW TEST 032337,002148: 20,2313 55447 TS CNTR 032338,002149: 20,2314 12301 TCF GIMDTEST # FOR YAW TEST 032339,002150: 032340,002151: 20,2315 00006 OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q 032341,002152: 20,2316 23146 QXCH TEMPR60 032342,002153: 032343,002154: 20,2317 51447 INDEX CNTR 032344,002155: 20,2320 54054 TS TVCPITCH 032345,002156: 032346,002157: 20,2321 51447 INDEX CNTR 032347,002158: 20,2322 35005 CAF BIT11 032348,002159: 20,2323 00006 EXTEND 032349,002160: 20,2324 05014 WOR CHAN14 032350,002161: 032351,002162: 20,2325 05267 TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES 032352,002163: 20,2326 00310 DEC 200 B-14 # GIMBAL MOTION ON GPI 032353,002164: 20,2327 01146 TC TEMPR60 032354,002165: 032355,002166: 20,2330 05267 GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM 032356,002167: 20,2331 00620 DEC 400 B-14 032357,002168: 032358,002169: 20,2332 45021 +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM 032359,002170: 20,2333 61423 AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST 032360,002171: 20,2334 54054 TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY 032361,002172: 20,2335 45021 CS ZERO 032362,002173: 20,2336 61424 AD YACTOFF 032363,002174: 20,2337 54053 TS TVCYAW 032364,002175: 032365,002176: 20,2340 35062 CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12 032366,002177: 20,2341 00006 EXTEND 032367,002178: 20,2342 05014 WOR CHAN14 032368,002179: 032369,002180: 20,2343 15324 ENDS40.6 TCF TASKOVER 032370,002181: 032371,002182: 20,2344 02200 OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS 032372,002183: 20,2345 77527 -4ACTDEG DEC -168 B-14 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP 032373,002184: 20,2346 00124 +2ACTDEG DEC +84 B-14 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D) 032374,002185: 032375,002186: # CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL 032376,002187: 032377,002188: 20,2347 COUNT 20/S41.2 032378,002189: 032379,002190: 20,2347 31466 S41.2 CA DAPDATR1 032380,002191: # Page 732 032381,002192: 20,2350 76214 MASK THREE 032382,002193: 20,2351 60000 AD A 032383,002194: 20,2352 55130 TS RATEINDX 032384,002195: 032385,002196: 20,2353 00004 INHINT 032386,002197: 20,2354 31466 CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1 032387,002198: 20,2355 74371 MASK PRIO30 # =10) 032388,002199: 20,2356 67705 AD -BIT14 # (OCT57777) 032389,002200: 20,2357 00006 EXTEND 032390,002201: 20,2360 12365 BZF TOGETHER # YES 032391,002202: 032392,002203: 20,2361 45016 CS BIT2 # NO, UNSET FLAG 032393,002204: 20,2362 70103 MASK FLAGWRD7 032394,002205: 20,2363 54103 TS FLAGWRD7 032395,002206: 032396,002207: 20,2364 12370 TCF +4 032397,002208: 032398,002209: 20,2365 40103 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION 032399,002210: 20,2366 75016 MASK BIT2 032400,002211: 20,2367 26103 ADS FLAGWRD7 032401,002212: 032402,002213: 20,2370 00003 RELINT 032403,002214: 032404,002215: 20,2371 31466 CA DAPDATR1 032405,002216: 20,2372 75014 MASK BIT4 032406,002217: 20,2373 00006 EXTEND 032407,002218: 20,2374 62376 BZMF +2 # DEC 46 MEANS NARROW DB 032408,002219: 20,2375 32476 CA DEC409 032409,002220: 20,2376 62477 AD DEC46 # DEC 455 MEANS WIDE DB 032410,002221: 20,2377 55655 TS ADB 032411,002222: 032412,002223: 20,2400 31466 CA DAPDATR1 032413,002224: 20,2401 75011 MASK BIT7 # QUAD BD 032414,002225: 20,2402 00006 EXTEND 032415,002226: 20,2403 62405 BZMF +2 032416,002227: 20,2404 35017 CA ONE 032417,002228: 20,2405 55631 TS XTRANS 032418,002229: 20,2406 31466 CA DAPDATR1 032419,002230: 20,2407 75006 MASK BIT10 # QUAD AC 032420,002231: 20,2410 00006 EXTEND 032421,002232: 20,2411 62413 BZMF +2 032422,002233: 20,2412 45017 CS ONE 032423,002234: 20,2413 27631 ADS XTRANS 032424,002235: 032425,002236: 20,2414 00004 INHINT 032426,002237: 20,2415 00006 EXTEND 032427,002238: 20,2416 12423 BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS) 032428,002239: 20,2417 40075 CS FLAGWRD1 # SET NJETSFLG (2 JETS, AC OR BD QUADS) 032429,002240: 20,2420 75001 MASK BIT15 # NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD) 032430,002241: 20,2421 26075 ADS FLAGWRD1 032431,002242: # Page 733 032432,002243: 20,2422 12426 TCF +4 032433,002244: 20,2423 45001 CS BIT15 # KJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE 032434,002245: 20,2424 70075 MASK FLAGWRD1 032435,002246: 20,2425 54075 TS FLAGWRD1 032436,002247: 20,2426 00003 RELINT 032437,002248: 20,2427 31467 CA DAPDATR2 032438,002249: 20,2430 75003 MASK BIT13 032439,002250: 20,2431 00006 EXTEND 032440,002251: 20,2432 62434 BZMF +2 032441,002252: 20,2433 12435 TCF +2 032442,002253: 20,2434 45017 CS ONE 032443,002254: 20,2435 40000 COM 032444,002255: 20,2436 55630 TS ACORBD # MINUS FOR A-C, PLUS FOR B-D 032445,002256: 032446,002257: 20,2437 31467 CA DAPDATR2 032447,002258: 20,2440 75006 MASK BIT10 032448,002259: 20,2441 10000 CCS A 032449,002260: 20,2442 12446 TCF +4 032450,002261: 20,2443 35017 CA ONE 032451,002262: 20,2444 55626 TS RACFAIL 032452,002263: 20,2445 12456 TCF BDFAIL 032453,002264: 20,2446 35021 CA ZERO 032454,002265: 20,2447 55626 TS RACFAIL 032455,002266: 20,2450 31467 CA DAPDATR2 032456,002267: 20,2451 75014 MASK BIT4 032457,002268: 20,2452 10000 CCS A 032458,002269: 20,2453 12456 TCF BDFAIL 032459,002270: 20,2454 45017 CS ONE 032460,002271: 20,2455 55626 TS RACFAIL 032461,002272: 20,2456 31467 BDFAIL CA DAPDATR2 032462,002273: 20,2457 75011 MASK BIT7 032463,002274: 20,2460 10000 CCS A 032464,002275: 20,2461 12465 TCF +4 032465,002276: 20,2462 35017 CA ONE 032466,002277: 20,2463 55627 TS RBDFAIL 032467,002278: 20,2464 00002 TC Q 032468,002279: 20,2465 35021 CA ZERO 032469,002280: 20,2466 55627 TS RBDFAIL 032470,002281: 20,2467 31467 CA DAPDATR2 032471,002282: 20,2470 75017 MASK BIT1 032472,002283: 20,2471 10000 CCS A 032473,002284: 20,2472 00002 TC Q 032474,002285: 20,2473 45017 CS ONE 032475,002286: 20,2474 55627 TS RBDFAIL 032476,002287: 20,2475 00002 TC Q 032477,002288: 032478,002289: # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46) 032479,002290: 032480,002291: 42,3606 BANK 42 032481,002292: 42,2000 SETLOC EXTVBS 032482,002293: # Page 734 032483,002294: 42,2000 BANK 032484,002295: 032485,002296: 42,3606 45007 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER 032486,002297: 42,3607 00006 EXTEND 032487,002298: 42,3610 03012 WAND CHAN12 032488,002299: 42,3611 31466 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION 032489,002300: 42,3612 00006 EXTEND 032490,002301: 42,3613 75015 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS 032491,002302: 42,3614 76214 MASK THREE # (IN CASE BIT 15 IS USED) 032492,002303: 42,3615 50000 INDEX A 032493,002304: 42,3616 13617 TCF +1 # BRANCH BASED ON CONFIG.... 032494,002305: 032495,002306: 42,3617 13631 TCF NODAPUP # CM.......ACTIVATE NODAP 032496,002307: 42,3620 13624 TCF RCSDAPUP # CSM......ACTIVATE RCSDAP 032497,002308: 42,3621 13624 TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP 032498,002309: 42,3622 04701 TC POSTJUMP 032499,002310: 42,3623 67215 CADR SATSTKON 032500,002311: 42,3624 00004 RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN 032501,002312: 42,3625 04740 TCR IBNKCALL 032502,002313: 42,3626 42024 CADR RCSDAPON 032503,002314: 42,3627 00003 RELINT 032504,002315: 42,3630 13646 TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN 032505,002316: 42,3631 00006 NODAPUP EXTEND # T5 IDLE FOR NODAP (DON'T WORRY ABOUT T) 032506,002317: 42,3632 33651 DCA T5IDLDAP 032507,002318: 42,3633 53313 DXCH T5LOC 032508,002319: 42,3634 05560 TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP 032509,002320: 42,3635 00132 ADRES DAPBIT1 # BIT 15 FLAG 6 = 0 032510,002321: 42,3636 05560 TC DOWNFLAG 032511,002322: 42,3637 00133 ADRES DAPBIT2 # BIT 14 FLAG 6 = 0 032512,002323: 42,3640 00004 INHINT 032513,002324: 42,3641 04740 TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN 032514,002325: 42,3642 42632 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED. 032515,002326: 42,3643 00003 RELINT 032516,002327: 42,3644 35017 CAF BIT1 # KILL KALCMANU JOB 032517,002328: 42,3645 55332 TS HOLDFLAG 032518,002329: 42,3646 04701 ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN 032519,002330: 42,3647 66121 CADR GOPIN 032520,002331: 42,3650 40,2000 SBANK= PINSUPER # Added by RSB 2009 032521,002332: 42,3650 E6,1423 EBANK= PACTOFF 032522,002333: 42,3650 03153 12106 T5IDLDAP 2CADR T5IDLOC 032523,002334: 032524,002335: 42,3652 30,2000 SBANK= LOWSUPER 032525,002336: 17,2022 BANK 17 032526,002337: 20,2000 SETLOC DAPS6 032527,002338: 20,2000 BANK 032528,002339: 032529,002340: 20,2476 00631 DEC409 DEC 409 B-14 032530,002341: 20,2477 00056 DEC46 DEC 46 B-14 032531,002342: 032532,002343: # Page 735 032533,002344: 032534,002345: # CALLED BY "DONOUN47" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) 032535,002346: 20,2500 31470 S40.14 CAE IXX # RCS ENTRY 032536,002347: 20,2501 00006 EXTEND 032537,002348: 20,2502 72525 MP CONTONE 032538,002349: 20,2503 55623 TS J/M 032539,002350: 032540,002351: 20,2504 31471 CA IAVG 032541,002352: 20,2505 00006 EXTEND 032542,002353: 20,2506 72525 MP CONTONE 032543,002354: 20,2507 55624 TS J/M1 032544,002355: 032545,002356: 20,2510 55625 TS J/M2 032546,002357: 032547,002358: 20,2511 00006 EXTEND 032548,002359: 20,2512 32527 DCA CONTTWO 032549,002360: 20,2513 00006 EXTEND 032550,002361: 20,2514 11470 DV IXX 032551,002362: 20,2515 55620 TS KMJ 032552,002363: 032553,002364: 20,2516 00006 EXTEND 032554,002365: 20,2517 32527 DCA CONTTWO 032555,002366: 20,2520 00006 EXTEND 032556,002367: 20,2521 11471 DV IAVG 032557,002368: 20,2522 55621 TS KMJ1 032558,002369: 032559,002370: 20,2523 55622 TS KMJ2 032560,002371: 032561,002372: 20,2524 00002 TC Q 032562,002373: 032563,002374: 20,2525 25137 CONTONE DEC .662034 # 2PI/M 032564,002375: 20,2526 00023 12522 CONTTWO 2DEC .00118 032565,002376: 032566,002377: 20,2530 COUNT 24/TVNG 032567,002378: 032568,002379: 31,3700 BANK 31 032569,002380: 24,2000 SETLOC P40S 032570,002381: 24,2000 BANK 032571,002382: 032572,002383: 24,3761 37405 POS-2.5 OCT 37405 032573,002384: 24,3762 E6,1466 EBANK= DAPDATR1 032574,002385: 24,3762 02014 42066 RCSCADR 2CADR RCSUP 032575,002386: 032576,002387: 24,3764 37704 6SECT5 OCT 37704 032577,002388: 24,3765 COUNT 21/RCSUP 032578,002389: 032579,002390: 20,2530 BANK 20 032580,002391: 032581,002392: 21,2000 SETLOC DAPS3 032582,002393: 21,2000 BANK 032583,002394: 032584,002395: # Page 736 032585,002396: 032586,002397: 21,2014 22016 RCSUP LXCH BANKRUPT 032587,002398: 21,2015 00006 EXTEND 032588,002399: 21,2016 22012 QXCH QRUPT 032589,002400: 032590,002401: 21,2017 02024 TCR RCSDAPON # ACTIVATE RCS DAP 032591,002402: 032592,002403: 21,2020 15333 TCF RESUME 032593,002404: 032594,002405: 21,2021 E6,1466 EBANK= DAPDATR1 032595,002406: 21,2021 02122 42066 RCSADDR 2CADR RCSATT 032596,002407: 032597,002408: 21,2023 37704 0.6SECT5 OCT 37704 032598,002409: 032599,002410: # RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT 032600,002411: 21,2024 32023 RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE 032601,002412: 21,2025 54030 +1 TS TIME5 # ENTRY FROM R00TOP00 032602,002413: 21,2026 55465 TS T5PHASE # WILL CAUSE FRESHDAP (+1) 032603,002414: 032604,002415: 21,2027 41501 CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR 032605,002416: 21,2030 75015 MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH 032606,002417: 21,2031 27501 ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY) 032607,002418: 032608,002419: 21,2032 00006 EXTEND 032609,002420: 21,2033 32022 DCA RCSADDR # (RCSATT) 032610,002421: 21,2034 53313 DXCH T5LOC 032611,002422: 032612,002423: 21,2035 44105 CS OCT60000 # SEE BITS 15,14 TO 01 TO INDICATE 032613,002424: 21,2036 70102 MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP 032614,002425: 21,2037 65002 AD BIT14 032615,002426: 21,2040 54102 TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS 032616,002427: 032617,002428: 21,2041 00002 TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP) 032618,002429: 032619,002430: End of include-file P40-P47.agc. Parent file is MAIN.agc