Source Code

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