Source Code

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