Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
029027,000002: ## Copyright: Public domain.
029028,000003: ## Filename: P40-P47.agc
029029,000004: ## Purpose: A section of Comanche revision 067.
029030,000005: ## It is part of the reconstructed source code for the flight
029031,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
029032,000007: ## (AGC) for Apollo 12. No original listings of this program are
029033,000008: ## available; instead, this file was created via dissassembly of
029034,000009: ## dumps of Comanche 067 core rope modules and comparison with
029035,000010: ## other AGC programs.
029036,000011: ## Assembler: yaYUL
029037,000012: ## Contact: Ron Burkey <info@sandroid.org>.
029038,000013: ## Website: www.ibiblio.org/apollo/index.html
029039,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
029040,000015: ## 2024-05-13 MAS Updated for Comanche 067.
029041,000016:
029042,000017: # PROGRAM DESCRIPTION ** P40CSM **
029043,000018:
029044,000019: 35,3477 E6,1466 EBANK= DAPDATR1
029045,000020: 31,3700 BANK 31
029046,000021: 24,2000 SETLOC P40S
029047,000022: 24,2000 BANK
029048,000023:
029049,000024: 24,2073 COUNT 24/P40
029050,000025:
029051,000026: 24,2073 05574 P40CSM TC DOWNFLAG
029052,000027: 24,2074 00023 ADRES ENG2FLAG
029053,000028:
029054,000029: 24,2075 06006 TC INTPRET
029055,000030: 24,2076 43135 SLOAD BOFF
029056,000031: 24,2077 03425 ECSTEER # IS THIS AN EXTERNAL DELTA V BURN
029057,000032: 24,2100 01347 XDELVFLG
029058,000033: 24,2101 50104 P40S/C # NO CSTEER = ECSTEER
029059,000034: 24,2102 77745 DLOAD # YES CSTEER = ZERO
029060,000035: 24,2103 15334 HI6ZEROS
029061,000036: 24,2104 17703 P40S/C STODL CSTEER
029062,000037: 24,2105 10411 FENG # SET UP THRUST FOR P40 20,000 LBS
029063,000038: 24,2106 17727 P40S/F STODL F # P41 ENTERS HERE
029064,000039: 24,2107 03413 TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
029065,000040: 24,2110 03450 STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9
029066,000041:
029067,000042: 24,2111 77776 EXIT
029068,000043: 24,2112 04676 TC BANKCALL
029069,000044: 24,2113 17653 CADR R02BOTH # IMU STATUS CHECK
029070,000045:
029071,000046: 24,2114 06006 P40PVA TC INTPRET
029072,000047: 24,2115 77624 CALL
029073,000048: 24,2116 34073 S40.1 # COMPUTE VGTIG,UT
029074,000049: 24,2117 77624 CALL
029075,000050: 24,2120 51574 S40.2,3 # COMPUTE PREFERRED ATTITUDE
029076,000051: 24,2121 77414 SET EXIT
029077,000052: 24,2122 01073 PFRATFLG
029078,000053: 24,2123 02303 P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6)
029079,000054: 24,2124 00003 RELINT
029080,000055: 24,2125 04676 TC BANKCALL
029081,000056: 24,2126 56000 CADR R60CSM # ATTITUDE MANEUVER
029082,000057: 24,2127 45033 CS ONE # FOR UPDATEVG
029083,000058: 24,2130 55744 TS NBRCYCLS
029084,000059: 24,2131 05562 TC UPFLAG
029085,000060: 24,2132 00155 ADRES TIMRFLAG # ALLOW CLOCKTASK
029086,000061:
029087,000062: 24,2133 02326 TC P41/P40
029088,000063: 24,2134 02343 TC P41/DSP # P41
029089,000064:
029090,000065: 24,2135 32425 P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED
029091,000066: 24,2136 55145 TS NVWORD1 # BELOW
029092,000067:
029093,000068: 24,2137 06006 TC INTPRET
029094,000069: 24,2140 51575 VLOAD ABVAL # FOR R2
029095,000070: 24,2141 03721 VGTIG
029096,000071: 24,2142 17773 STODL VGDISP
029097,000072: 24,2143 15334 HI6ZEROS
029098,000073: 24,2144 03426 STORE DVTOTAL
029099,000074: 24,2145 77776 EXIT
029100,000075:
029101,000076: 24,2146 00006 EXTEND
029102,000077: 24,2147 33061 DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING
029103,000078: 24,2150 53223 DXCH AVEGEXIT # AFTER AVERAGE G
029104,000079:
029105,000080: 24,2151 32420 P40GMB CAF P40CKLS2 # (4.1 PROTECTION)
029106,000081: 24,2152 04676 TC BANKCALL
029107,000082: 24,2153 21045 CADR GOPERF1
029108,000083: 24,2154 12275 TCF POST41 # V34
029109,000084: 24,2155 12435 TCF TST,TRIM # V33
029110,000085: 24,2156 45033 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
029111,000086: 24,2157 55445 +1 TS MRKRTMP # ENTRY FROM TST,TRIM
029112,000087:
029113,000088: 24,2160 35035 CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6
029114,000089: 24,2161 55447 TS CNTR # +0 SAYS NORMAL ENTRY.
029115,000090: # +1 (PRE40.6) SAYS RESTART ENTRY
029116,000091:
029117,000092: 24,2162 35033 CAF ONE
029118,000093: 24,2163 05261 TC WAITLIST
029119,000094: 24,2164 E6,1466 EBANK= DAPDATR1
029120,000095: 24,2164 02271 40066 2CADR S40.6
029121,000096:
029122,000097: 24,2166 11445 CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
029123,000098: 24,2167 32417 CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
029124,000099: 24,2170 12172 TCF +2 # HOLE
029125,000100: 24,2171 33064 CAF 5SEC # DELAY FOR TRIM ONLY TASK
029126,000101: 24,2172 04676 TC BANKCALL
029127,000102: 24,2173 01732 CADR DELAYJOB
029128,000103: 24,2174 05406 TC 2PHSCHNG
029129,000104: 24,2175 40026 OCT 40026 # 6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
029130,000105: 24,2176 00234 OCT 00234 # 4.23 = P40S/SV (PRIO12)
029131,000106: 24,2177 35033 P40S/RS CAF ONE
029132,000107: 24,2200 05261 TC WAITLIST # P41/SDP
029133,000108: 24,2201 E7,1412 EBANK= TIG
029134,000109: 24,2201 03260 50067 2CADR CLOKTASK
029135,000110:
029136,000111: 24,2203 00003 RELINT
029137,000112:
029138,000113: 24,2204 03366 P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PRIO12
029139,000114: 24,2205 E7,1412 EBANK= TIG
029140,000115: 24,2205 06006 TC INTPRET
029141,000116: 24,2206 45345 DLOAD DSU
029142,000117: 24,2207 03413 TIG
029143,000118: 24,2210 10416 SEC29.96
029144,000119: 24,2211 00041 STORE TDEC1
029145,000120:
029146,000121: 24,2212 77624 CALRB # RETURN IN BASIC
029147,000122: 24,2213 27563 MIDTOAV1
029148,000123: 24,2214 12216 TCF +2
029149,000124: 24,2215 02237 TC P40SNEWM # INTEGRATION TIME GREATER THAN ALLOWED
029150,000125: 24,2216 00006 P40SET EXTEND
029151,000126: 24,2217 30155 DCA MPAC # DELTA TIME TO PREREAD (INT.INIT.)
029152,000127: 24,2220 53673 DXCH P40TMP
029153,000128: 24,2221 00006 EXTEND
029154,000129: 24,2222 43064 DCS 5SECDP # FOR TTGBLNK
029155,000130: 24,2223 21673 DAS P40TMP
029156,000131: 24,2224 00006 EXTEND
029157,000132: 24,2225 31673 DCA P40TMP
029158,000133: 24,2226 05356 TC LONGCALL
029159,000134: 24,2227 E7,1412 EBANK= TIG
029160,000135: 24,2227 02437 50067 2CADR TIGBLNK
029161,000136:
029162,000137: 24,2231 05426 TC PHASCHNG
029163,000138: 24,2232 20214 OCT 20214 # 4.21 = TIGBLNK (P40TMP CS)
029164,000139:
029165,000140: 24,2233 15233 TCF ENDOFJOB
029166,000141: 24,2234 04676 P40BLNKR TC BANKCALL
029167,000142: 24,2235 20703 CADR CLEANDSP # REMOVE RESIDUE
029168,000143: 24,2236 15233 TCF ENDOFJOB
029169,000144: 24,2237 E7,1412 EBANK= TIG
029170,000145: 24,2237 00006 P40SNEWM EXTEND
029171,000146: 24,2240 31246 DCA PIPTIME1
029172,000147: 24,2241 53413 DXCH TIG # SET NEW TIG FOR 06 40
029173,000148: 24,2242 00006 EXTEND
029174,000149: 24,2243 32416 DCA SEC29.96
029175,000150: 24,2244 21413 DAS TIG
029176,000151: 24,2245 12216 TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35)
029177,000152:
029178,000153: 24,2246 E6,1466 EBANK= DAPDATR1
029179,000154: 24,2246 32426 POSTBURN CAF V16N40
029180,000155: 24,2247 04676 TC BANKCALL
029181,000156: 24,2250 20704 CADR REFLASH
029182,000157: 24,2251 12275 TCF POST41 # V34 GO FINISH
029183,000158: 24,2252 12254 TCF P40RCS # PROCEED
029184,000159: 24,2253 12246 TCF POSTBURN # RECYCLE
029185,000160: 24,2254 00006 P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS
029186,000161: 24,2255 32462 DCA ACADN85
029187,000162: 24,2256 53223 DXCH AVEGEXIT
029188,000163: 24,2257 35056 CAF 2SECS # WAIT FOR CALCN85 VIA AVEGEXIT
029189,000164: 24,2260 04676 TC BANKCALL
029190,000165: 24,2261 01732 CADR DELAYJOB
029191,000166:
029192,000167: 24,2262 02303 P40MINDB TCR SETMINDB -1
029193,000168: 24,2263 00003 RELINT
029194,000169: 24,2264 05426 TIGNOW TC PHASCHNG
029195,000170: 24,2265 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 85
029196,000171: 24,2266 57777 OCT 57777 # PRIO 20 NOVAC
029197,000172: 24,2267 32424 CAF V16N85B
029198,000173: 24,2270 04676 TC BANKCALL
029199,000174: 24,2271 20704 CADR REFLASH
029200,000175: 24,2272 12275 TCF POST41 # FINISH P40/P41
029201,000176: 24,2273 12275 TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP
029202,000177: 24,2274 12264 TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85
029203,000178:
029204,000179: 24,2275 00006 POST41 EXTEND
029205,000180: 24,2276 32460 DCA SERVCADR
029206,000181: 24,2277 53223 DXCH AVEGEXIT
029207,000182: 24,2300 14106 TCF GOTOPOOH
029208,000183:
029209,000184: 24,2301 00056 MINDB DEC 46 B-14
029210,000185: 24,2302 00707 MAXDB DEC 455 B-14
029211,000186: 24,2303 E6,1466 EBANK= DAPDATR1
029212,000187: 24,2303 00004 -1 INHINT
029213,000188: 24,2304 30032 SETMINDB CA CDUX # ROUTINE FOR SETTING
029214,000189: 24,2305 55572 TS THETADX # THE MINIMUM DEADBAND
029215,000190: 24,2306 00006 EXTEND # IN AUTOPILOT
029216,000191: 24,2307 30034 DCA CDUY
029217,000192: 24,2310 53574 DXCH THETADY
029218,000193: 24,2311 32301 CA MINDB # SHOULD BE CALLED UNDER
029219,000194: 24,2312 55655 TS ADB # INTERRUPT INHIBITED
029220,000195: 24,2313 45030 CS BIT4 # EBANK = E6
029221,000196: 24,2314 71466 MASK DAPDATR1
029222,000197: 24,2315 55466 TS DAPDATR1
029223,000198: 24,2316 00002 TC Q
029224,000199:
029225,000200: 24,2317 E6,1466 EBANK= DAPDATR1
029226,000201: 24,2317 00004 -1 INHINT
029227,000202: 24,2320 32302 SETMAXDB CA MAXDB # ROUTINE FOR SETTING
029228,000203: 24,2321 55655 TS ADB # THE MAXIMUM DEADBAND IN AUTOPILOT
029229,000204: 24,2322 41466 CS DAPDATR1
029230,000205: 24,2323 75030 MASK BIT4 # SHOULD BE CALLED UNDER
029231,000206: 24,2324 27466 ADS DAPDATR1 # INTERRUPT INHIBITED
029232,000207: 24,2325 00002 TC Q # EBANK = E6
029233,000208:
029234,000209: # PROGRAM DESCRIPTION ** P41CSM **
029235,000210:
029236,000211: 27,2000 SETLOC P40S2
029237,000212: 27,2000 BANK
029238,000213:
029239,000214: 27,2615 E6,1466 EBANK= DAPDATR1
029240,000215: 27,2615 COUNT 24/P41
029241,000216:
029242,000217: 27,2615 05562 P41CSM TC UPFLAG
029243,000218: 27,2616 00023 ADRES ENG2FLAG # SET FOR RCS
029244,000219:
029245,000220: 27,2617 06006 TC INTPRET
029246,000221: 27,2620 77745 DLOAD
029247,000222: 27,2621 15334 HI6ZEROS # FOR P41 CSTEER =0
029248,000223: 27,2622 03703 STORE CSTEER
029249,000224:
029250,000225: 27,2623 43145 DLOAD BON
029251,000226: 27,2624 10413 FRCS2 # 2JET THRUST FOR S40.1
029252,000227: 27,2625 00700 NJETSFLG
029253,000228: 27,2626 50106 P40S/F # NJETS = 1 2-JET
029254,000229: 27,2627 52015 DAD GOTO # NJETS = 0 4-JET
029255,000230: 27,2630 10413 FRCS2
029256,000231: 27,2631 50106 P40S/F
029257,000232:
029258,000233: 24,2000 SETLOC P40S
029259,000234: 24,2000 BANK
029260,000235:
029261,000236: 24,2326 41011 P41/P40 CS MODREG
029262,000237: 24,2327 75033 MASK ONE # P41EXITS AT CALL LOC +1
029263,000238: 24,2330 00006 EXTEND
029264,000239: 24,2331 12333 BZF +2 # P41
029265,000240: 24,2332 24002 INCR Q # P40 EXITS AT CALL LOC +2
029266,000241: 24,2333 00002 TC Q
029267,000242:
029268,000243: 24,2334 35016 TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41)
029269,000244: 24,2335 05150 TC NOVAC
029270,000245: 24,2336 E6,1466 EBANK= DAPDATR1
029271,000246: 24,2336 02264 50066 2CADR TIGNOW
029272,000247:
029273,000248: 24,2340 05574 P40CLK TC DOWNFLAG
029274,000249: 24,2341 00155 ADRES TIMRFLAG
029275,000250:
029276,000251: 24,2342 15340 TCF TASKOVER
029277,000252:
029278,000253: 24,2343 32423 P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
029279,000254: 24,2344 55145 TS NVWORD1
029280,000255:
029281,000256: 24,2345 06006 TC INTPRET
029282,000257: 24,2346 77624 CALL # COMPUTE
029283,000258: 24,2347 50370 P40CNV85 # VGTIG IN CTRL COORDS
029284,000259: 24,2350 77776 EXIT
029285,000260: 24,2351 00006 EXTEND # DO CONTROL COORD CALCULATION AFTER AVEG
029286,000261: 24,2352 32462 DCA ACADN85
029287,000262: 24,2353 53223 DXCH AVEGEXIT
029288,000263: 24,2354 05406 TC 2PHSCHNG
029289,000264: 24,2355 40036 OCT 40036 # 6.3=CLOKTASK(100CS)
029290,000265: 24,2356 00234 OCT 234 # 4.23=P40S/SV(PRIO12)
029291,000266:
029292,000267: 24,2357 12177 TCF P40S/RS
029293,000268: 24,2360 32424 P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
029294,000269: 24,2361 55145 TS NVWORD1 # REDISPLAY NONFLASHING
029295,000270: 24,2362 32416 CAF SEC29.96 +1
029296,000271: 24,2363 05261 TC WAITLIST
029297,000272: 24,2364 E6,1466 EBANK= DAPDATR1
029298,000273: 24,2364 02334 50066 2CADR TTG/0
029299,000274:
029300,000275: 24,2366 45031 CS BIT3 # 4.4 = TTG/0(2996CS), PRECHECK(-0CS)
029301,000276: 24,2367 12566 TCF TTGPHS
029302,000277: 24,2370 40220 P40CNV85 STQ SETPD
029303,000278: 24,2371 03730 QTEMP1
029304,000279: 24,2372 00001 0
029305,000280: 24,2373 41575 VLOAD PUSH
029306,000281: 24,2374 03721 VGPREV # EQUALS VGTIG (TARGETTING INPUT)
029307,000282: 24,2375 77624 CALL
029308,000283: 24,2376 45431 S41.1
029309,000284: 24,2377 37665 STCALL VGBODY
029310,000285: 24,2400 03730 QTEMP1
029311,000286:
029312,000287: 24,2401 E6,1466 EBANK= DAPDATR1
029313,000288: 24,2401 06006 CALCN85 TC INTPRET
029314,000289: 24,2402 77624 CALL
029315,000290: 24,2403 51104 UPDATEVG # NEW VG, S40.8 (+MAYBE S40.9)
029316,000291: 24,2404 77624 CALL
029317,000292: 24,2405 50370 P40CNV85 # COMPUTE VGBODY
029318,000293: 24,2406 77776 EXIT
029319,000294: 24,2407 03215 TC SERVXT
029320,000295: 24,2410 02217 06650 FENG 2DEC 9.1188544 B-7 # SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
029321,000296:
029322,000297: 24,2412 00013 06112 FRCS2 2DEC .087437837 B-7 # RCS ULLAGE (199.6COS10 LBS), SC.AT
029323,000298:
029324,000299: # B+7 NEWTONS/E+4
029325,000300: 24,2414 04700 SEC24.96 DEC 2496 B-14
029326,000301: 24,2415 00000 05664 SEC29.96 2DEC 2996 B-28
029327,000302:
029328,000303: 24,2417 03410 18SEC DEC 1800 B-14
029329,000304: 24,2420 00204 P40CKLS2 OCT 204
029330,000305: 24,2421 37730 40CST5 OCT 37730 # 40 CS FOR THE T5 CLOCK
029331,000306: 24,2422 4377 OCT12 = TEN
029332,000307: 24,2422 04123 V1683 VN 1683
029333,000308: 24,2423 01525 V06N85B VN 0685
029334,000309: 24,2424 04125 V16N85B VN 1685
029335,000310: 24,2425 01450 V06N40 VN 0640
029336,000311: 24,2426 04050 V16N40 VN 1640
029337,000312: 24,2427 00027 OCT27/24 OCT 27
029338,000313: 24,2430 00053 OCT53 OCT 53
029339,000314: 24,2431 00035 OCT35 OCT 35
029340,000315: 24,2432 E6,1466 EBANK= DAPDATR1
029341,000316: 24,2432 03155 12066 T5IDL24 2CADR T5IDLOC
029342,000317:
029343,000318: 24,2434 00026 3MDOT DEC 86.6175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
029344,000319: # B+16 KG/SEC (NOTE, EMDOT IS PAD-LOADED,
029345,000320: # BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
029346,000321: # IT CAN REMAIN IN FIXED MEMORY)
029347,000322: 24,2435 35033 TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
029348,000323: 24,2436 12157 TCF TRIMONLY +1
029349,000324: 24,2437 33064 TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30
029350,000325: 24,2440 05261 TC WAITLIST
029351,000326: 24,2441 E7,1412 EBANK= TIG
029352,000327: 24,2441 02555 50067 2CADR TIGAVEG
029353,000328:
029354,000329: 24,2443 35035 CAF ZERO # DISABLE HERE, NOT IN P40BLNKR
029355,000330: 24,2444 55145 TS NVWORD1
029356,000331:
029357,000332: 24,2445 35102 CAF PRIO14
029358,000333: 24,2446 05150 TC NOVAC
029359,000334: 24,2447 E7,1412 EBANK= TIG
029360,000335: 24,2447 02234 50067 2CADR P40BLNKR # DONT PROTECT-RESTARTS BLANK DSKY
029361,000336:
029362,000337: 24,2451 44362 CS OCT37 # 4.37 = TIGAVEG (500CS)
029363,000338: 24,2452 04114 P40TSK TC NEWPHASE
029364,000339: 24,2453 00004 OCT 4
029365,000340: 24,2454 05340 TC TASKOVER
029366,000341:
029367,000342: 24,2455 E7,1412 EBANK= TIG
029368,000343: 24,2455 02511 50067 ACADN83 2CADR CALCN83
029369,000344:
029370,000345: 24,2457 E7,1412 EBANK= TIG
029371,000346: 24,2457 03231 76067 SERVCADR 2CADR SERVEXIT
029372,000347:
029373,000348: 24,2461 E6,1466 EBANK= DAPDATR1
029374,000349: 24,2461 02401 50066 ACADN85 2CADR CALCN85
029375,000350:
029376,000351: # PROGRAM DESCRIPTION ** P47CSM **
029377,000352:
029378,000353: 24,2463 COUNT 24/P47
029379,000354:
029380,000355: 24,2463 E7,1412 EBANK= TIG
029381,000356: 24,2463 04676 P47CSM TC BANKCALL # IMU STATUS CHECK
029382,000357: 24,2464 17653 CADR R02BOTH
029383,000358: 24,2465 06006 TC INTPRET
029384,000359: 24,2466 77624 CALRB
029385,000360: 24,2467 27553 MIDTOAV2
029386,000361: 24,2470 30155 CA MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 1000
029387,000362: 24,2471 55672 TS P40TMP # CS, WITH A TPAGREE, INT.INIT.)
029388,000363: 24,2472 05261 TC WAITLIST
029389,000364: 24,2473 E7,1412 EBANK= TIG
029390,000365: 24,2473 02500 50067 2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG
029391,000366:
029392,000367: 24,2475 05426 TC PHASCHNG
029393,000368: 24,2476 40574 OCT 40574 # A, 4.57 = TIGON (P40TMP CS)
029394,000369: 24,2477 15233 TCF ENDOFJOB
029395,000370:
029396,000371: 24,2500 E7,1672 EBANK= P40TMP
029397,000372: 24,2500 00006 TIGON EXTEND
029398,000373: 24,2501 32456 DCA ACADN83
029399,000374: 24,2502 53223 DXCH AVEGEXIT
029400,000375: 24,2503 34371 CAF PRIO30 # FORCE ZEROING OF N83 BEFORE SERVICER
029401,000376: 24,2504 05150 TC NOVAC
029402,000377: 24,2505 E7,1412 EBANK= TIG
029403,000378: 24,2505 02534 50067 2CADR P47BODY
029404,000379:
029405,000380: 24,2507 45032 CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
029406,000381: 24,2510 12566 TCF TTGPHS
029407,000382:
029408,000383: 24,2511 E7,1412 EBANK= TIG
029409,000384: 24,2511 06006 CALCN83 TC INTPRET
029410,000385: 24,2512 77601 SETPD # SET UP PUSHLIST FOR S41.1
029411,000386: 24,2513 00001 0
029412,000387: 24,2514 53375 VLOAD VAD
029413,000388: 24,2515 03665 DELVCTL
029414,000389: 24,2516 03433 DELVREF
029415,000390: 24,2517 03460 STORE DV47TEMP # FOR COPYCYCLE BELOW
029416,000391: 24,2520 45006 PUSH CALL
029417,000392: 24,2521 45431 S41.1
029418,000393: 24,2522 37675 STCALL DELVIMU
029419,000394: 24,2523 70542 S11.1 # CALC. VI, H, HDOT FOR NOUN 62
029420,000395: 24,2524 77776 EXIT
029421,000396: 24,2525 05426 TC PHASCHNG
029422,000397: 24,2526 10035 OCT 10035
029423,000398: 24,2527 35036 CAF FIVE
029424,000399: 24,2530 05622 TC GENTRAN
029425,000400: 24,2531 01457 ADRES DV47TEMP
029426,000401: 24,2532 01664 ADRES DELVCTL
029427,000402:
029428,000403: 24,2533 03215 TC SERVXT
029429,000404: 24,2534 06006 P47BODY TC INTPRET
029430,000405: 24,2535 77775 VLOAD
029431,000406: 24,2536 15334 HI6ZEROS
029432,000407: 24,2537 03675 STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE
029433,000408: 24,2540 03665 STORE DELVCTL # UPON INITIATION OR-ENTER-RESPONSE
029434,000409: 24,2541 77776 EXIT
029435,000410: 24,2542 35103 P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20)
029436,000411: 24,2543 05224 TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83
029437,000412: 24,2544 05426 TC PHASCHNG
029438,000413: 24,2545 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83
029439,000414: 24,2546 62777 OCT 62777 # PRIO 15 NOVAC
029440,000415: 24,2547 32422 P47/DSP CAF V1683
029441,000416: 24,2550 04676 TC BANKCALL
029442,000417: 24,2551 20720 CADR GOFLASH
029443,000418: 24,2552 04106 TC GOTOPOOH
029444,000419: 24,2553 04106 TC GOTOPOOH
029445,000420: 24,2554 12534 TCF P47BODY # RECYCLE - CLEAR ACCUMULATED VELOCITY
029446,000421:
029447,000422: # ROUTINE ** TIG-30 ** DESCRIPTION
029448,000423:
029449,000424: 24,2555 E7,1412 EBANK= TIG
029450,000425: 24,2555 COUNT 24/P40
029451,000426:
029452,000427: 24,2555 02326 TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS)
029453,000428: 24,2556 12360 TCF P41REDSP # P41
029454,000429:
029455,000430: 24,2557 32425 CAF V06N40 # UNBLANK DISPLAY
029456,000431: 24,2560 55145 TS NVWORD1
029457,000432:
029458,000433: 24,2561 32414 CAF SEC24.96
029459,000434: 24,2562 05261 TC WAITLIST
029460,000435: 24,2563 E7,1412 EBANK= TIG
029461,000436: 24,2563 02574 50067 2CADR TIG-5
029462,000437:
029463,000438: 24,2565 46211 CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
029464,000439: 24,2566 04114 TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR
029465,000440: 24,2567 00004 OCT 4 # FROM TIGON (P47) WITH A=-2
029466,000441:
029467,000442: 24,2570 10763 PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
029468,000443: 24,2571 15340 TCF TASKOVER # YES, DONT START ANOTHER ONE
029469,000444: 24,2572 04715 TC POSTJUMP
029470,000445: 24,2573 76714 CADR PREREAD
029471,000446:
029472,000447: # ROUTINE ** TIG-5 ** DESCRIPTION
029473,000448:
029474,000449: 24,2574 E7,1412 EBANK= TIG
029475,000450: 24,2574 33064 TIG-5 CAF 5SEC
029476,000451: 24,2575 05261 TC WAITLIST
029477,000452: 24,2576 E6,1466 EBANK= DAPDATR1
029478,000453: 24,2576 02612 50066 2CADR TIG-0
029479,000454:
029480,000455: 24,2600 45023 CS BIT9 # WILL CAUSE V99 FLASH
029481,000456: 24,2601 55145 TS NVWORD1
029482,000457:
029483,000458: 24,2602 05406 TC 2PHSCHNG
029484,000459: 24,2603 40074 OCT 40074 # A, 4.7 = TIG-0 (500CS)
029485,000460: 24,2604 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO20)
029486,000461:
029487,000462: 24,2605 35016 CAF PRIO20
029488,000463: 24,2606 05163 TC FINDVAC
029489,000464: 24,2607 E7,1427 EBANK= TGO
029490,000465: 24,2607 02501 34067 2CADR S40.13
029491,000466:
029492,000467: 24,2611 15340 TCF TASKOVER
029493,000468:
029494,000469: # ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
029495,000470:
029496,000471: 24,2612 E6,1466 EBANK= DAPDATR1 # TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
029497,000472: 24,2612 40103 TIG-0 CS FLAGWRD7 # SET IGN FLAG
029498,000473: 24,2613 75017 MASK BIT13
029499,000474: 24,2614 26103 ADS FLAGWRD7
029500,000475:
029501,000476: 24,2615 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE
029502,000477: 24,2616 75020 MASK BIT12
029503,000478: 24,2617 00006 EXTEND
029504,000479: 24,2620 15340 BZF TASKOVER # WAIT FOR V99P
029505,000480:
029506,000481: 24,2621 32425 CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART
029507,000482: 24,2622 55145 TS NVWORD1 # DURING THE V99 SEQUENCE)
029508,000483:
029509,000484: 24,2623 05426 TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW
029510,000485: 24,2624 00614 OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD
029511,000486:
029512,000487: 24,2625 30032 IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD
029513,000488: 24,2626 55450 TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION
029514,000489: 24,2627 00006 EXTEND # TASK (4.61 PROTECTION)
029515,000490: 24,2630 30025 DCA TIME2 # FOR RESTARTS
029516,000491: 24,2631 53337 DXCH TEVENT
029517,000492: 24,2632 40101 CS FLAGWRD5 # SET ENGONFLG
029518,000493: 24,2633 75025 MASK BIT7
029519,000494: 24,2634 26101 ADS FLAGWRD5
029520,000495: 24,2635 35017 SPSON CAF BIT13 # TURN ON SPS ENGINE
029521,000496: 24,2636 00006 EXTEND
029522,000497: 24,2637 05011 WOR DSALMOUT
029523,000498:
029524,000499: 24,2640 35023 IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN
029525,000500: 24,2641 70076 MASK FLAGWRD2
029526,000501: 24,2642 10000 CCS A
029527,000502: 24,2643 12733 TCF IMPLBURN # IMPULSIVE
029528,000503: 24,2644 40102 CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029529,000504: 24,2645 75017 MASK BIT13
029530,000505: 24,2646 26102 ADS FLAGWRD6
029531,000506:
029532,000507: 24,2647 44105 PREPTVC CS OCT60000 # RESET T5 BITS
029533,000508: 24,2650 70102 MASK FLAGWRD6
029534,000509: 24,2651 54102 TS FLAGWRD6
029535,000510:
029536,000511: 24,2652 00006 EXTEND # KILL RCS
029537,000512: 24,2653 32433 DCA T5IDL24
029538,000513: 24,2654 53313 DXCH T5LOC
029539,000514:
029540,000515: 24,2655 46214 CS THREE # 4.3 = DOTVCON (40CS)
029541,000516: 24,2656 04114 TC NEWPHASE
029542,000517: 24,2657 00004 OCT 4
029543,000518:
029544,000519: 24,2660 05303 TC FIXDELAY
029545,000520: 24,2661 00050 DEC 40 B-14 # 0.4 SECOND DELAY FOR THRUST BUILDUP
029546,000521:
029547,000522: 24,2662 45033 DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029548,000523: 24,2663 55644 TS TVCPHASE
029549,000524: 24,2664 35035 CAF ZERO # SET TVCEXECUTIVE PHASE
029550,000525: 24,2665 55653 TS TVCEXPHS
029551,000526: 24,2666 44105 CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER ....
029552,000527: 24,2667 70102 MASK FLAGWRD6 # BITS 15,14 = 10
029553,000528: 24,2670 65015 AD BIT15
029554,000529: 24,2671 54102 TS FLAGWRD6
029555,000530:
029556,000531: 24,2672 36214 CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029557,000532: 24,2673 54001 TS L # WHICH IS HANDLED NOW BY REDOTVC
029558,000533: 24,2674 40000 COM
029559,000534: 24,2675 52765 DXCH -PHASE6
029560,000535:
029561,000536: 24,2676 00006 EXTEND # STORE RCS ATTITUDE ERRORS FOR USE IN
029562,000537: 24,2677 41571 DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS
029563,000538: 24,2700 53705 DXCH ERRBTMP
029564,000539:
029565,000540: 24,2701 45036 CS FIVE # 4.5 = DOSTRULL (160 CS)
029566,000541: 24,2702 04114 TC NEWPHASE
029567,000542: 24,2703 00004 OCT 4
029568,000543:
029569,000544: 24,2704 35013 CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY
029570,000545: 24,2705 54030 TS TIME5
029571,000546: 24,2706 00006 EXTEND
029572,000547: 24,2707 33067 DCA TVCON2C # (TVCDAPON)
029573,000548: 24,2710 53313 DXCH T5LOC # (KILLS RCS DAP)
029574,000549:
029575,000550: 24,2711 05303 TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029576,000551: 24,2712 00240 DEC 160 B-14 # STEERING (IF NON-IMPULSIVE)
029577,000552:
029578,000553: 24,2713 35017 DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN
029579,000554: 24,2714 70102 MASK FLAGWRD6
029580,000555: 24,2715 10000 CCS A
029581,000556: 24,2716 02724 TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF
029582,000557: 24,2717 02727 TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN)
029583,000558:
029584,000559: 24,2720 00006 EXTEND
029585,000560: 24,2721 35035 DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0)
029586,000561: 24,2722 52761 DXCH -PHASE4
029587,000562:
029588,000563: 24,2723 15340 ENDIGN TCF TASKOVER
029589,000564:
029590,000565: 24,2724 40076 STEERULL CS FLAGWRD2 # SET STEERSW
029591,000566: 24,2725 75021 MASK BIT11
029592,000567: 24,2726 26076 ADS FLAGWRD2
029593,000568:
029594,000569:
029595,000570: 24,2727 35035 ULAGEOFF CAF ZERO
029596,000571: 24,2730 00006 EXTEND
029597,000572: 24,2731 01005 WRITE CHAN5 # ZERO CHANNEL 5
029598,000573: 24,2732 00002 TC Q
029599,000574:
029600,000575: 24,2733 45017 IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE
029601,000576: 24,2734 70102 MASK FLAGWRD6 # ENGINE FAIL)
029602,000577: 24,2735 54102 TS FLAGWRD6
029603,000578:
029604,000579: 24,2736 03366 TCR E7SETTER
029605,000580:
029606,000581: 24,2737 E7,1412 EBANK= TIG
029607,000582: 24,2737 00006 EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029608,000583: 24,2740 31430 DCA TGO
029609,000584: 24,2741 53413 DXCH TIG
029610,000585: 24,2742 00006 EXTEND
029611,000586: 24,2743 30025 DCA TIME2
029612,000587: 24,2744 21413 DAS TIG
029613,000588:
029614,000589: 24,2745 05406 TC 2PHSCHNG
029615,000590: 24,2746 40153 OCT 40153 # A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
029616,000591: 24,2747 07014 OCT 07014 # C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
029617,000592: 24,2750 77777 DEC -0 B-14 # -0 CS
029618,000593: 24,2751 E6,1466 EBANK= DAPDATR1
029619,000594: 24,2751 02757 50066 2CADR IMPLCONT
029620,000595:
029621,000596: 24,2753 31430 CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS)
029622,000597: 24,2754 05261 TC WAITLIST
029623,000598: 24,2755 E7,1427 EBANK= TGO
029624,000599: 24,2755 02766 50067 2CADR ENGINOFF
029625,000600:
029626,000601: 24,2757 45023 IMPLCONT CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP
029627,000602: 24,2760 70076 MASK FLAGWRD2
029628,000603: 24,2761 54076 TS FLAGWRD2
029629,000604:
029630,000605: 24,2762 03371 TCR E6SETTER
029631,000606: 24,2763 E6,1466 EBANK= DAPDATR1
029632,000607:
029633,000608: 24,2763 35035 CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-
029634,000609: 24,2764 55444 TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON
029635,000610:
029636,000611: 24,2765 12647 TCF PREPTVC
029637,000612:
029638,000613: 24,2766 E7,1427 EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029639,000614: 24,2766 03371 ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6
029640,000615: 24,2767 E6,1466 EBANK= DAPDATR1
029641,000616: 24,2767 31474 CAE CSMMASS
029642,000617: 24,2770 55654 TS MASSTMP # COPYCYCLE FOR MASSBACK
029643,000618: 24,2771 05406 TC 2PHSCHNG
029644,000619: 24,2772 00003 OCT 00003 # KILL GROUP 3 PROTECTION OF ENGINOFF, DO
029645,000620: 24,2773 40634 OCT 40634 # A, 4.63 = DOSPSOFF (-0CS)
029646,000621: 24,2774 03017 DOSPSOFF TCR SPSOFF # SHUTDOWN SPS, MASS UPDATES, ETC.
029647,000622: 24,2775 42427 CS OCT27/24 # (OCTAL 27)
029648,000623: 24,2776 04114 TC NEWPHASE
029649,000624: 24,2777 00004 OCT 4 # 4.27 = DOTVCRCS (250 CS)
029650,000625:
029651,000626: 24,3000 05303 TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF
029652,000627: 24,3001 00372 DEC 250 B-14
029653,000628:
029654,000629: 24,3002 02320 DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT
029655,000630:
029656,000631: 24,3003 04754 TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029657,000632: 24,3004 42036 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029658,000633:
029659,000634: 24,3005 04754 TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029660,000635: 24,3006 13370 CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS
029661,000636:
029662,000637: 24,3007 03071 TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK
029663,000638:
029664,000639: 24,3010 05426 TC PHASCHNG
029665,000640: 24,3011 00354 OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12)
029666,000641: 24,3012 34724 CAF PRIO12 # SET UP POSTBURN V16N40 JOB
029667,000642: 24,3013 05150 TC NOVAC
029668,000643: 24,3014 E6,1466 EBANK= DAPDATR1 # (SET MAXDB IN POST41)
029669,000644: 24,3014 02246 50066 2CADR POSTBURN
029670,000645:
029671,000646: 24,3016 15340 TCF TASKOVER
029672,000647:
029673,000648: 24,3017 E6,1466 EBANK= DAPDATR1
029674,000649: 24,3017 00006 SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT
029675,000650: 24,3020 30025 DCA TIME2
029676,000651: 24,3021 53337 DXCH TEVENT
029677,000652: 24,3022 45025 CS BIT7 # RESET ENGONFLG
029678,000653: 24,3023 70101 MASK FLAGWRD5
029679,000654: 24,3024 54101 TS FLAGWRD5 # (RESTARTS WILL SHUT DOWN SPS NOW)
029680,000655: 24,3025 45017 CS BIT13 # SHUT DOWN SPS ENGINE
029681,000656: 24,3026 00006 EXTEND
029682,000657: 24,3027 03011 WAND DSALMOUT
029683,000658:
029684,000659: 24,3030 35016 CAF BIT14 # ISSUE SIV CUTOFF COMMAND
029685,000660: 24,3031 00006 EXTEND # FOR POSSIBLE BACK-UP USE
029686,000661: 24,3032 05012 WOR CHAN12
029687,000662: 24,3033 31444 MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS
029688,000663: # V97VCNTR = VCNTR UNLESS V97 IS
029689,000664: # ACTIVE. ONLY V97VCNTR IS THEN RIGHT
029690,000665: 24,3034 00006 EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
029691,000666: 24,3035 70110 MP EMDOT # MDOT, SC.AT B+3 KG/CS
029692,000667: 24,3036 22000 LXCH A
029693,000668: 24,3037 00006 EXTEND
029694,000669: 24,3040 75055 MP 1SEC # DEC 100
029695,000670: 24,3041 61654 AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW
029696,000671: 24,3042 55474 TS CSMMASS # (1.44 KG OR 0.4 BITS)
029697,000672:
029698,000673: 24,3043 31644 CA TVCPHASE # CHECK IF OK FOR TRIM UPDATE
029699,000674: 24,3044 65033 AD ONE # THESE CHECKS ARE ONLY NEEDED
029700,000675: 24,3045 00006 EXTEND # FOR A LESS THAN 0.4 SEC BURN
029701,000676: 24,3046 13057 BZF BTRIMR # NO. INITIALIZATION NOT COMPLETE
029702,000677: 24,3047 40102 CS FLAGWRD6 # YES, CHECK IF TVC
029703,000678: 24,3050 74105 MASK OCT60000
029704,000679: 24,3051 00006 EXTEND
029705,000680: 24,3052 63057 BZMF BTRIMR # NO, NOT TVC YET
029706,000681: 24,3053 31601 BESTTRIM CAE DELPBAR # UPDATE TRIMS WITH DELFILTER VALUES
029707,000682: 24,3054 55423 TS PACTOFF
029708,000683: 24,3055 31603 CAE DELYBAR
029709,000684: 24,3056 55424 TS YACTOFF
029710,000685: 24,3057 00002 BTRIMR TC Q
029711,000686: 24,3060 E6,1466 EBANK= DAPDATR1
029712,000687: 24,3060 03205 50066 STEERADS 2CADR STEERING
029713,000688:
029714,000689: 24,3062 37703 .6SECT5 OCT 37703
029715,000690: 24,3063 00000 5SECDP DEC 0 B-14 # MAKE DP 5SEC
029716,000691: 24,3064 00764 5SEC DEC 500 B-14
029717,000692: 24,3065 02202 OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
029718,000693: 24,3066 E6,1466 EBANK= DAPDATR1
029719,000694: 24,3066 02205 36066 TVCON2C 2CADR TVCDAPON
029720,000695:
029721,000696: 24,3070 00004 -1 INHINT
029722,000697: 24,3071 43065 TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029723,000698: 24,3072 00006 EXTEND # OPTICS DAC
029724,000699: 24,3073 03012 WAND CHAN12
029725,000700: 24,3074 45033 CS BIT1 # ENABLE T4RUPT OPTICS MONITOR .... PERMIT
029726,000701: 24,3075 55303 TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE
029727,000702: 24,3076 35035 CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029728,000703: 24,3077 55145 TS NVWORD1
029729,000704: 24,3100 45021 CS BIT11 # CLEAR TIMRFLAG TO STOP CLOKTASK
029730,000705: 24,3101 70103 MASK FLAGWRD7
029731,000706: 24,3102 54103 TS FLAGWRD7
029732,000707: 24,3103 00002 TC Q
029733,000708: 24,3104 E6,1466 EBANK= DAPDATR1
029734,000709: 24,3104 43020 UPDATEVG STQ BON
029735,000710: 24,3105 03730 QTEMP1
029736,000711: 24,3106 01307 XDELVFLG
029737,000712: 24,3107 51133 CALL40.8
029738,000713:
029739,000714: 24,3110 50135 SLOAD BMN
029740,000715: 24,3111 03345 NBRCYCLS
029741,000716: 24,3112 51137 SETUP.9
029742,000717:
029743,000718: 24,3113 53375 VLOAD VAD
029744,000719: 24,3114 03347 DELVSUM
029745,000720: 24,3115 03433 DELVREF
029746,000721: 24,3116 03355 STORE DELVSUMP
029747,000722: 24,3117 77776 EXIT
029748,000723: 24,3120 35033 CA ONE
029749,000724: 24,3121 61744 AD NBRCYCLS
029750,000725: 24,3122 55745 TS NBRCYCLP
029751,000726:
029752,000727: 24,3123 05426 TC PHASCHNG # TYPE B RESTART BELOW AND 5.3 REREADACCS
029753,000728: 24,3124 10035 OCT 10035
029754,000729:
029755,000730: 24,3125 31745 CA NBRCYCLP
029756,000731: 24,3126 55744 TS NBRCYCLS
029757,000732: 24,3127 06006 TC INTPRET
029758,000733: 24,3130 77775 VLOAD
029759,000734: 24,3131 03355 DELVSUMP
029760,000735: 24,3132 03347 STORE DELVSUM
029761,000736:
029762,000737: 24,3133 77624 CALL40.8 CALL
029763,000738: 24,3134 34226 S40.8
029764,000739: 24,3135 77650 GOTO
029765,000740: 24,3136 03730 QTEMP1
029766,000741:
029767,000742: 24,3137 67214 SETUP.9 BON SLOAD
029768,000743: 24,3140 01310 FIRSTFLG
029769,000744: 24,3141 51154 SURELY.9
029770,000745: 24,3142 03346 NBRCYCLP
029771,000746: 24,3143 74301 NORM VXSC # (NORM HANDLES ZERO PROPERLY)
029772,000747: 24,3144 00047 X1
029773,000748: 24,3145 03705 BDT
029774,000749: 24,3146 53257 VSR* VAD
029775,000750: 24,3147 20563 0 -14D,1
029776,000751: 24,3150 03646 VGTEMP
029777,000752: 24,3151 77651 VSU
029778,000753: 24,3152 03347 DELVSUM
029779,000754: 24,3153 03721 STORE VGPREV
029780,000755: 24,3154 77776 SURELY.9 EXIT
029781,000756: 24,3155 35017 CAF PRIO10
029782,000757: 24,3156 05163 TC FINDVAC
029783,000758: 24,3157 E6,1466 EBANK= DAPDATR1
029784,000759: 24,3157 02364 34066 2CADR S40.9
029785,000760:
029786,000761: 24,3161 05406 TC 2PHSCHNG
029787,000762: 24,3162 00051 OCT 00051 # A, 1.5 = REDO40.9, PRIO 10
029788,000763: 24,3163 10035 OCT 10035
029789,000764: 24,3164 06006 TC INTPRET
029790,000765: 24,3165 77775 VLOAD
029791,000766: 24,3166 01171 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1
029792,000767: 24,3167 27570 STOVL RINIT
029793,000768: 24,3170 01177 VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1
029794,000769: 24,3171 17576 STODL VINIT
029795,000770: 24,3172 01205 PIPTIME
029796,000771: 24,3173 03474 STORE TNIT
029797,000772: 24,3174 77621 BDSU
029798,000773: 24,3175 03656 TPASS4
029799,000774: 24,3176 27423 STOVL DELLT4
029800,000775: 24,3177 15334 HI6ZEROS
029801,000776: 24,3200 17347 STODL DELVSUM
029802,000777: 24,3201 15334 HI6ZEROS
029803,000778: 24,3202 03345 STORE NBRCYCLS
029804,000779: 24,3203 77650 GOTO
029805,000780: 24,3204 51133 CALL40.8
029806,000781: 24,3205 E6,1466 EBANK= DAPDATR1
029807,000782: 24,3205 06006 STEERING TC INTPRET
029808,000783: 24,3206 77624 CALL
029809,000784: 24,3207 51104 UPDATEVG
029810,000785: 24,3210 77776 EXIT
029811,000786: 24,3211 35023 CAF BIT9 # CHECK IMPULSW
029812,000787: 24,3212 70076 MASK FLAGWRD2
029813,000788: 24,3213 10000 CCS A
029814,000789: 24,3214 13217 TCF +3 # PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
029815,000790: 24,3215 04715 SERVXT TC POSTJUMP
029816,000791: 24,3216 77231 CADR SERVEXIT
029817,000792: 24,3217 35017 CAF BIT13 # CHECK ENGINE-ON/-OFF
029818,000793: 24,3220 00006 EXTEND
029819,000794: 24,3221 02011 RAND DSALMOUT
029820,000795: 24,3222 00006 EXTEND
029821,000796: 24,3223 13215 BZF SERVXT # ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
029822,000797: 24,3224 03366 TCR E7SETTER
029823,000798: 24,3225 E7,1412 EBANK= TIG
029824,000799: 24,3225 00004 INHINT
029825,000800: 24,3226 00006 EXTEND
029826,000801: 24,3227 31413 DCA TIG
029827,000802: 24,3230 52155 DXCH MPAC
029828,000803: 24,3231 00006 EXTEND
029829,000804: 24,3232 40025 DCS TIME2
029830,000805: 24,3233 20155 DAS MPAC
029831,000806: 24,3234 07224 TCR DPAGREE
029832,000807: 24,3235 30155 CAE MPAC +1 # (LESS THAN 6 (OR 4) SECONDS TO GO)
029833,000808: 24,3236 10000 CCS A # PROTECT AGAINST NEG/ZRO W.L. CALL
029834,000809: 24,3237 13242 TCF +3
029835,000810: 24,3240 13242 TCF +2
029836,000811: 24,3241 35035 CAF ZERO
029837,000812: 24,3242 65033 AD ONE
029838,000813: 24,3243 56001 XCH L
029839,000814: 24,3244 35035 CA ZERO
029840,000815: 24,3245 53430 DXCH TGO
029841,000816: 24,3246 31430 CA TGO +1
029842,000817: 24,3247 05261 TC WAITLIST
029843,000818: 24,3250 E7,1427 EBANK= TGO
029844,000819: 24,3250 02766 50067 2CADR ENGINOFF
029845,000820:
029846,000821: 24,3252 05406 TC 2PHSCHNG
029847,000822: 24,3253 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029848,000823: 24,3254 10035 OCT 10035 # B, 5.3 = REREADAC, AND START BELOW
029849,000824: 24,3255 05574 TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP
029850,000825: 24,3256 00044 ADRES IMPULSW # RESTARTS OK
029851,000826: 24,3257 13215 TCF SERVXT
029852,000827:
029853,000828: # ROUTINE ** CLOKTASK ** DESCRIPTION
029854,000829:
029855,000830: 24,3260 E7,1412 EBANK= TIG
029856,000831: 24,3260 35021 CLOKTASK CAF BIT11 # IS TIMRFLAG SET
029857,000832: 24,3261 70103 MASK FLAGWRD7
029858,000833: 24,3262 10000 CCS A
029859,000834: 24,3263 13267 TCF CLOCKON
029860,000835: 24,3264 05426 TC PHASCHNG
029861,000836: 24,3265 00006 OCT 00006 # KILL RESTART
029862,000837: 24,3266 05340 TC TASKOVER
029863,000838:
029864,000839: 24,3267 00006 CLOCKON EXTEND
029865,000840: 24,3270 30025 DCA TIME2
029866,000841: 24,3271 53661 DXCH TTOGO
029867,000842: 24,3272 00006 EXTEND
029868,000843: 24,3273 41413 DCS TIG
029869,000844: 24,3274 21661 DAS TTOGO
029870,000845:
029871,000846: 24,3275 35055 SETCLOCK CAF 1SEC
029872,000847: 24,3276 05261 TC WAITLIST
029873,000848: 24,3277 E7,1412 EBANK= TIG
029874,000849: 24,3277 03260 50067 2CADR CLOKTASK
029875,000850:
029876,000851: 24,3301 11145 CCS NVWORD1
029877,000852: 24,3302 13305 TCF +3
029878,000853: 24,3303 13315 TCF SETTB6
029879,000854:
029880,000855: 24,3304 13305 TCF +1
029881,000856: 24,3305 42423 CS V06N85B # CHECK FOR V06N85B (P41)
029882,000857: 24,3306 61145 AD NVWORD1
029883,000858: 24,3307 00006 EXTEND
029884,000859: 24,3310 13320 BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP
029885,000860:
029886,000861: 24,3311 37664 CAF PRIO27
029887,000862: 24,3312 05150 TC NOVAC
029888,000863: 24,3313 E6,1466 EBANK= DAPDATR1
029889,000864: 24,3313 03332 50066 2CADR CLOCKJOB
029890,000865:
029891,000866: 24,3315 40025 SETTB6 CS TIME1 # SET GROUP6 TIMEBASE
029892,000867: 24,3316 55065 TS TBASE6
029893,000868: 24,3317 15340 TCF TASKOVER
029894,000869:
029895,000870: 24,3320 37664 SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)
029896,000871: 24,3321 05163 TC FINDVAC
029897,000872: 24,3322 E6,1466 EBANK= DAPDATR1
029898,000873: 24,3322 03325 50066 2CADR DYNDISP
029899,000874:
029900,000875: 24,3324 13315 TCF SETTB6 # CLOSE OUT CLOCKTASK
029901,000876: 24,3325 06006 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
029902,000877: 24,3326 77624 CALL # PRIOR TO BLANKING AND AVEG (V16N85)
029903,000878: 24,3327 50370 P40CNV85
029904,000879: 24,3330 77776 EXIT
029905,000880: 24,3331 13342 TCF CKNVWRD1
029906,000881:
029907,000882: # ROUTINE ** CLOCKJOB ** DESCRIPTION
029908,000883:
029909,000884: 24,3332 E6,1466 EBANK= DAPDATR1
029910,000885: 24,3332 30032 CLOCKJOB CA CDUX
029911,000886: 24,3333 54772 TS CDUSPOTX
029912,000887: 24,3334 30033 CA CDUY
029913,000888: 24,3335 54766 TS CDUSPOTY
029914,000889: 24,3336 30034 CA CDUZ
029915,000890: 24,3337 54770 TS CDUSPOTZ
029916,000891: 24,3340 04676 TC BANKCALL
029917,000892: 24,3341 47557 CADR QUICTRIG
029918,000893: 24,3342 00004 CKNVWRD1 INHINT
029919,000894: 24,3343 11145 CCS NVWORD1 # DETERMINE FUNCTION, INDICATED BY NVWORD1
029920,000895: 24,3344 13363 TCF NOFLASH
029921,000896: 24,3345 15233 TCF ENDOFJOB
029922,000897: 24,3346 13355 TCF ENGREQST # SPS ENGINE-ON-ENABLE V99 FLASH
029923,000898: 24,3347 32425 FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH
029924,000899: 24,3350 04676 TC BANKCALL
029925,000900: 24,3351 20715 CADR CLOCPLAY
029926,000901: 24,3352 13432 TCF V97T # TERMINATE
029927,000902: 24,3353 13465 TCF V97P # PROCEED
029928,000903: 24,3354 13514 TCF V97E # ENTER
029929,000904:
029930,000905: 24,3355 32425 ENGREQST CAF V06N40
029931,000906: 24,3356 04676 TC BANKCALL
029932,000907: 24,3357 20715 CADR CLOCPLAY
029933,000908: 24,3360 13402 TCF V99T # TERMINATE
029934,000909: 24,3361 13410 TCF V99P # PROCEED
029935,000910: 24,3362 13374 TCF V99E # ENTER
029936,000911:
029937,000912: 24,3363 31145 NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY
029938,000913: 24,3364 04676 TC BANKCALL
029939,000914: 24,3365 20707 CADR REGODSP
029940,000915:
029941,000916: 24,3366 35074 E7SETTER CAF EBANK7
029942,000917: 24,3367 54003 TS EBANK
029943,000918: 24,3370 E7,1412 EBANK= TIG
029944,000919: 24,3370 00002 TC Q
029945,000920:
029946,000921: 24,3371 35073 E6SETTER CAF EBANK6 # SET UP EBANK6
029947,000922: 24,3372 54003 TS EBANK
029948,000923: 24,3373 E6,1466 EBANK= DAPDATR1
029949,000924: 24,3373 00002 TC Q
029950,000925:
029951,000926: 24,3374 E6,1466 EBANK= DAPDATR1
029952,000927: 24,3374 05406 V99E TC 2PHSCHNG
029953,000928: 24,3375 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
029954,000929: 24,3376 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
029955,000930: 24,3377 50777 OCT 50777 # PRIO 27 NOVAC
029956,000931: 24,3400 03070 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
029957,000932: 24,3401 12254 TCF P40RCS # V16N85 POST-BURN OPERATIONS
029958,000933:
029959,000934: 24,3402 E6,1466 EBANK= DAPDATR1
029960,000935: 24,3402 05406 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
029961,000936: 24,3403 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
029962,000937: 24,3404 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
029963,000938: 24,3405 50777 OCT 50777 # PRIO 27 NOVAC
029964,000939: 24,3406 03070 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
029965,000940: 24,3407 12275 TCF POST41 # AVEGEXIT, SETMAXDB, GOTOPOOH
029966,000941:
029967,000942: 24,3410 00004 V99P INHINT
029968,000943: 24,3411 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P
029969,000944: 24,3412 75020 MASK BIT12
029970,000945: 24,3413 10000 CCS A
029971,000946: 24,3414 13427 TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY
029972,000947:
029973,000948: 24,3415 35020 ASTNV99P CAF BIT12 # SET ASTN FLAG
029974,000949: 24,3416 26103 ADS FLAGWRD7
029975,000950: 24,3417 30103 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL
029976,000951: 24,3420 75017 MASK BIT13
029977,000952: 24,3421 00006 EXTEND
029978,000953: 24,3422 13427 BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0
029979,000954:
029980,000955: 24,3423 35033 ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY
029981,000956: 24,3424 05261 TC WAITLIST # SET UP IGNITION HERE
029982,000957: 24,3425 E6,1466 EBANK= DAPDATR1
029983,000958: 24,3425 02625 50066 2CADR IGNITION
029984,000959:
029985,000960: 24,3427 32425 V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0
029986,000961: 24,3430 55145 TS NVWORD1
029987,000962: 24,3431 15233 ENDV99P TCF ENDOFJOB
029988,000963:
029989,000964: 24,3432 E6,1474 EBANK= CSMMASS
029990,000965: 24,3432 05406 V97T TC 2PHSCHNG
029991,000966: 24,3433 00006 OCT 00006 # KILL GROUP 6 (CLOKTASK)
029992,000967: 24,3434 00674 OCT 00674 # A, 4.67 = V97TJOB (-0 CS), TBASE OLD
029993,000968: 24,3435 35035 V97TJOB CAF ZERO # DISABLE CLOCKJOB
029994,000969: 24,3436 55145 TS NVWORD1
029995,000970: 24,3437 35033 CAF BIT1
029996,000971: 24,3440 05251 TC TWIDDLE
029997,000972: 24,3441 03443 ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
029998,000973: 24,3442 15233 TCF ENDOFJOB
029999,000974:
030000,000975: 24,3443 E6,1474 EBANK= CSMMASS
030001,000976: 24,3443 32434 V97TTASK CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030002,000977: 24,3444 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST
030003,000978: 24,3445 55654 TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK
030004,000979: 24,3446 05426 TC PHASCHNG
030005,000980: 24,3447 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
030006,000981: 24,3450 77777 DEC -0 B-14 # -0 CS
030007,000982:
030008,000983: 24,3451 03017 TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
030009,000984: 24,3452 05426 TC PHASCHNG
030010,000985: 24,3453 40714 OCT 40714 # A, 4.71 = V97TRCS (250 CS), TBASE NOW
030011,000986: 24,3454 05303 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030012,000987: 24,3455 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS)
030013,000988:
030014,000989: 24,3456 E6,1466 EBANK= DAPDATR1
030015,000990: 24,3456 04754 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030016,000991: 24,3457 42036 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS
030017,000992: 24,3460 37664 CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET-
030018,000993: 24,3461 05150 TC NOVAC # MAXDB AND GOTOPOOH)
030019,000994: 24,3462 E6,1466 EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41
030020,000995: 24,3462 03402 50066 2CADR V99T
030021,000996:
030022,000997: 24,3464 15340 ENDV97T TCF TASKOVER
030023,000998:
030024,000999: 24,3465 E6,1444 EBANK= V97VCNTR
030025,001000: 24,3465 05426 V97P TC PHASCHNG
030026,001001: 24,3466 00734 OCT 00734 # A, 4.73 = V97PJOB (-0 CS), TBASE OLD
030027,001002: # IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
030028,001003: 24,3467 32425 V97PJOB CAF V06N40 # REDISPLAY V06N40
030029,001004: 24,3470 55145 TS NVWORD1
030030,001005: 24,3471 35033 CAF BIT1
030031,001006: 24,3472 05251 TC TWIDDLE
030032,001007: 24,3473 03475 ADRES V97PTASK
030033,001008: 24,3474 15233 TCF ENDOFJOB
030034,001009:
030035,001010: 24,3475 E6,1444 EBANK= V97VCNTR
030036,001011: 24,3475 31444 V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN
030037,001012: 24,3476 55643 TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR
030038,001013: # POOR SYNCH OF MANUAL ENGINE-ON AND
030039,001014: # THE VERB 97 PROCEED)
030040,001015: 24,3477 05562 TC UPFLAG # SET IDLEFAIL TO ALLOW R41-BYPASS, IN
030041,001016: 24,3500 00030 ADRES IDLEFAIL # CASE OF UNFAVORABLE S40.8 SYNCH
030042,001017: 24,3501 05562 TC UPFLAG # SET STEERSW TO RE-ENABLE STEERING
030043,001018: 24,3502 00042 ADRES STEERSW
030044,001019: 24,3503 05426 TC PHASCHNG
030045,001020: 24,3504 40134 OCT 40134 # A, 4.13 = R40ENABL (200 CS), TBASE NOW
030046,001021: 24,3505 05303 TC FIXDELAY # WAIT 2 SECONDS, THEN
030047,001022: 24,3506 00310 DEC 200 B-14
030048,001023:
030049,001024: 24,3507 E7,1777 EBANK= WHOCARES
030050,001025: 24,3507 05574 R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL
030051,001026: 24,3510 00030 ADRES IDLEFAIL
030052,001027: 24,3511 05426 TC PHASCHNG
030053,001028: 24,3512 00004 OCT 00004 # KILL GROUP 4
030054,001029: 24,3513 15340 ENDV97P TCF TASKOVER
030055,001030:
030056,001031: 24,3514 E7,1777 EBANK= WHOCARES
030057,001032: 24,3514 05426 V97E TC PHASCHNG
030058,001033: 24,3515 00534 OCT 00534 # A, 4.53 = V97EJOB (-0 CS), TBASE OLD
030059,001034: # IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
030060,001035: 24,3516 32425 V97EJOB CAF V06N40 # REDISPLAY V06N40
030061,001036: 24,3517 55145 TS NVWORD1
030062,001037: 24,3520 35033 CAF BIT1
030063,001038: 24,3521 05261 TC WAITLIST
030064,001039: 24,3522 E7,1412 EBANK= TIG
030065,001040: 24,3522 03525 50067 2CADR V97ETASK
030066,001041:
030067,001042: 24,3524 15233 TCF ENDOFJOB
030068,001043:
030069,001044: 24,3525 E7,1412 EBANK= TIG
030070,001045: 24,3525 44112 V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
030071,001046: 24,3526 55412 TS TIG
030072,001047: 24,3527 03371 TCR E6SETTER # RETURN TO EBANK6 FOR REST OF V97ETASK
030073,001048: 24,3530 E6,1474 EBANK= CSMMASS
030074,001049: 24,3530 32434 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030075,001050: 24,3531 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST
030076,001051: 24,3532 55654 TS MASSTMP # FAILED....COPYCYCLE FOR MASSBACK
030077,001052: 24,3533 05426 TC PHASCHNG
030078,001053: 24,3534 40754 OCT 40754 # A, 4.75 = SPSOFF97 (-0 CS), TBASE NOW
030079,001054: 24,3535 03017 SPSOFF97 TCR SPSOFF
030080,001055: 24,3536 05426 TC PHASCHNG
030081,001056: 24,3537 00114 OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD
030082,001057: 24,3540 05303 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030083,001058: 24,3541 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS)
030084,001059:
030085,001060: 24,3542 E6,1466 EBANK= DAPDATR1
030086,001061: 24,3542 35033 V97E40.6 CAF BIT1
030087,001062: 24,3543 05261 TC WAITLIST
030088,001063: 24,3544 E6,1447 EBANK= CNTR
030089,001064: 24,3544 02260 40066 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE
030090,001065:
030091,001066: 24,3546 04754 TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030092,001067: 24,3547 42036 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
030093,001068: # LEAVE NARROW DEADBAND FOR REIGNITE
030094,001069:
030095,001070: 24,3550 05406 TC 2PHSCHNG
030096,001071: 24,3551 00026 OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
030097,001072: 24,3552 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
030098,001073: 24,3553 77777 DEC -0 B-14 # -0 CS
030099,001074:
030100,001075: 24,3554 45102 QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR
030101,001076: 24,3555 70103 MASK FLAGWRD7 # IMMEDIATE V99 RESPONSE
030102,001077: 24,3556 65017 AD BIT13
030103,001078: 24,3557 54103 TS FLAGWRD7
030104,001079: 24,3560 05303 TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6
030105,001080: 24,3561 00036 DEC 30 B-14
030106,001081:
030107,001082: 24,3562 45023 V99FLASH CS BIT9 # CAUSE V99 TO FLASH
030108,001083: 24,3563 55145 TS NVWORD1
030109,001084: 24,3564 05406 TC 2PHSCHNG
030110,001085: 24,3565 40774 OCT 40774 # A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
030111,001086: 24,3566 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO 20)
030112,001087: 24,3567 35016 CAF PRIO20 # SET UP TIMEBURN
030113,001088: 24,3570 05163 TC FINDVAC
030114,001089: 24,3571 E7,1427 EBANK= TGO
030115,001090: 24,3571 02501 34067 2CADR S40.13
030116,001091:
030117,001092: 24,3573 15340 ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
030118,001093: # TO FLASHING V99 RESPONSE
030119,001094:
030120,001095: # MOD NO2 LOG SECTION P40-P47
030121,001096: # MOD BY ZELDIN
030122,001097:
030123,001098: # FUNCTIONAL DESCRIPTION
030124,001099: # COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
030125,001100: # VECTOR(VGTIG).
030126,001101:
030127,001102: # CALLING SEQUENCE
030128,001103: # L CALL
030129,001104: # L+1 S40.1
030130,001105:
030131,001106: # NORMAL EXIT MODE
030132,001107: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
030133,001108: # ERROR RETURN IF NOSOFLAG =1
030134,001109:
030135,001110: # SUBROUTINES CALLED
030136,001111: # CSMPREC
030137,001112: # INITVEL
030138,001113: # CALCGRAV
030139,001114: # MIDGIM
030140,001115:
030141,001116: # ALARM OR ABORT EXIT MODES
030142,001117: # L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
030143,001118:
030144,001119: # ERASABLE INITIALIZATION REQUIRED
030145,001120: # WEIGHT/G ANTICIPATED MAG. OF VEHICLE MASS SP B16 KGM
030146,001121: # XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER
030147,001122: # IF DELTA-V MANEUVER
030148,001123: # DELVSIN SPECIFIED DELTA-V REQUIRED IN
030149,001124: # INERTIAL COORDS. OF ACTIVE VEHICLE
030150,001125: # AT TIME OF IGNITION VECTOR B7 M/CS
030151,001126: # DELVSAB MAG. OF DELVSIN DP B7 M/CS
030152,001127: # RTIG POSITION AT TIME OF IGNITION VECTOR B29 M
030153,001128: # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS
030154,001129: # CSTEER = 0 DP
030155,001130: # IF AIMPOINT STEERING
030156,001131: # IF AIMPT STEER
030157,001132: # TIG TIME OF IGNITION DP B28 CS
030158,001133: # RTARG POSITION TARGET TIME VECTOR B29 M
030159,001134: # CSTEER = ECSTEER (GR 0) DP B1
030160,001135: # TPASS4 - TIME OF ARRIVAL AT AIMPOINT
030161,001136:
030162,001137: # OUTPUT
030163,001138: # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030164,001139: # VGTIG INITIAL VALUE OF VELOCITY
030165,001140: # TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS
030166,001141: # DELVLVC VGTIG IN LOC. VERT. COORDS. B7 M/CS
030167,001142: # F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT
030168,001143: # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030169,001144: # -GDT FOR S40.13 VECT B7 M/CS
030170,001145: # RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M
030171,001146: # POSITION AT TIME OF IGNITION
030172,001147:
030173,001148: # DEBRIS QTEMP1
030174,001149: # MPAC, QPRET
030175,001150: # PUSHLIST
030176,001151: # RTX2,RTX1
030177,001152:
030178,001153: 14,2011 BANK 14
030179,001154: 16,2000 SETLOC P40S1
030180,001155: 16,2000 BANK
030181,001156:
030182,001157: 16,2073 COUNT 16/S40.1
030183,001158:
030184,001159: 16,2073 77214 S40.1 SET VLOAD
030185,001160: 16,2074 01070 FIRSTFLG
030186,001161: 16,2075 11566 LO6ZEROS
030187,001162: 16,2076 03705 STORE BDT
030188,001163: 16,2077 43020 STQ BOF
030189,001164: 16,2100 03657 QTEMP
030190,001165: 16,2101 01347 XDELVFLG
030191,001166: 16,2102 34171 S40.1B # LAMBERT
030192,001167: 16,2103 51575 VLOAD ABVAL # EXTERNAL DELTA-V
030193,001168: 16,2104 03646 DELVSIN
030194,001169: 16,2105 03654 STORE DELVSAB # COMPUTE FOR P30/P40 INTERFACE
030195,001170: # THUS PERMITTING MODULE-ONLY CHANGE
030196,001171: 16,2106 77201 SETPD VLOAD
030197,001172: 16,2107 00001 0
030198,001173: 16,2110 03640 VTIG
030199,001174: 16,2111 03576 STORE VINIT
030200,001175: 16,2112 53435 VXV UNIT
030201,001176: 16,2113 03632 RTIG
030202,001177: 16,2114 27713 STOVL UT # UP IN UT
030203,001178: 16,2115 03632 RTIG
030204,001179: 16,2116 03570 STORE RINIT
030205,001180: 16,2117 65236 VSQ PDDL
030206,001181: 16,2120 00045 36D
030207,001182: 16,2121 56275 DMPR DDV
030208,001183: 16,2122 34225 THETACON
030209,001184: 16,2123 41205 DMP DMP
030210,001185: 16,2124 03654 DELVSAB
030211,001186: 16,2125 03076 WEIGHT/G
030212,001187: 16,2126 77671 DDV
030213,001188: 16,2127 03727 F
030214,001189: 16,2130 24017 STOVL 14D
030215,001190: 16,2131 03646 DELVSIN
030216,001191:
030217,001192: 16,2132 74241 DOT VXSC
030218,001193: 16,2133 03713 UT
030219,001194: 16,2134 03713 UT
030220,001195: 16,2135 41552 VSL2 PUSH # (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030221,001196: 16,2136 65245 BVSU PDDL # DELTA VP SCALED AT 2(+7) P.D.L. 6
030222,001197: 16,2137 03646 DELVSIN
030223,001198: 16,2140 00017 14D
030224,001199: 16,2141 63356 SIN PDVL
030225,001200: 16,2142 00007 6D
030226,001201: 16,2143 53435 VXV UNIT
030227,001202: 16,2144 03713 UT
030228,001203: 16,2145 45561 VXSC STADR
030229,001204: 16,2146 50056 STOVL VGTIG # UNIT(VPXUP)SIN(THETAT) IN VGTIG
030230,001205: 16,2147 65256 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6
030231,001206: 16,2150 00017 14D
030232,001207: 16,2151 74346 COS VXSC
030233,001208: 16,2152 74255 VAD VXSC
030234,001209: 16,2153 03721 VGTIG
030235,001210: 16,2154 00045 36D
030236,001211: 16,2155 53352 VSL2 VAD
030237,001212: 16,2156 77626 STADR
030238,001213: 16,2157 74056 STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS
030239,001214:
030240,001215: 16,2160 77656 UNIT
030241,001216: 16,2161 27713 STOVL UT # THRUST DIRECTION SCALED AT 2(+1)
030242,001217: 16,2162 03721 VGTIG
030243,001218: 16,2163 43006 PUSH SET
030244,001219: 16,2164 01072 AVFLAG
030245,001220: 16,2165 77624 CALL
030246,001221: 16,2166 10647 MIDGIM # VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030247,001222: 16,2167 77650 GOTO
030248,001223: 16,2170 03657 QTEMP
030249,001224: 16,2171 45345 S40.1B DLOAD DSU # LAMBERT
030250,001225: 16,2172 03413 TIG
030251,001226: 16,2173 36037 TWODT
030252,001227: 16,2174 14041 STODL TDEC1
030253,001228: 16,2175 03656 TPASS4
030254,001229: 16,2176 77625 DSU
030255,001230: 16,2177 00041 TDEC1
030256,001231: 16,2200 37423 STCALL DELLT4
030257,001232: 16,2201 61651 AGAIN
030258,001233: 16,2202 77775 VLOAD
030259,001234: 16,2203 03612 VIPRIME
030260,001235: 16,2204 17713 STODL UT
030261,001236: 16,2205 03413 TIG
030262,001237: 16,2206 00041 STORE TDEC1
030263,001238: 16,2207 77621 BDSU
030264,001239: 16,2210 03656 TPASS4
030265,001240: 16,2211 37423 STCALL DELLT4
030266,001241: 16,2212 61651 AGAIN
030267,001242: 16,2213 41575 VLOAD PUSH
030268,001243: 16,2214 03646 DELVEET3
030269,001244: 16,2215 03721 STORE VGTIG
030270,001245: 16,2216 45014 SET CALL
030271,001246: 16,2217 01072 AVFLAG
030272,001247: 16,2220 10647 MIDGIM
030273,001248: 16,2221 52001 SETPD GOTO
030274,001249: 16,2222 00001 0
030275,001250: 16,2223 61704 CALCUT
030276,001251:
030277,001252: 16,2224 00024 13714 THETACON 2DEC .31830989 B-8
030278,001253:
030279,001254: 30,2000 SETLOC P40S3
030280,001255: 30,2000 BANK
030281,001256:
030282,001257: 30,3645 COUNT 24/S40.1
030283,001258:
030284,001259: 30,3645 04000 00000 EP4(45)H 2DEC .125
030285,001260:
030286,001261: 30,3647 00707 03434 EP4(10)H 2DEC .027777777
030287,001262:
030288,001263: 30,3651 45020 AGAIN STQ CALL
030289,001264: 30,3652 03730 QTEMP1
030290,001265: 30,3653 27101 THISPREC
030291,001266: 30,3654 66134 SXA,2 SXA,1
030292,001267: 30,3655 03746 RTX2
030293,001268: 30,3656 03745 RTX1
030294,001269: 30,3657 77775 VLOAD
030295,001270: 30,3660 00001 RATT
030296,001271: 30,3661 03632 STORE RTIG
030297,001272: 30,3662 27570 STOVL RINIT
030298,001273: 30,3663 00007 VATT
030299,001274: 30,3664 03640 STORE VTIG
030300,001275: 30,3665 03576 STORE VINIT
030301,001276: 30,3666 67201 SETPD SLOAD
030302,001277: 30,3667 00001 0
030303,001278: 30,3670 15334 HI6ZEROS
030304,001279: 30,3671 43125 PDDL BON
030305,001280: 30,3672 21646 EP4(45)H
030306,001281: 30,3673 03705 NORMSW
030307,001282: 30,3674 61677 +3
030308,001283: 30,3675 77745 DLOAD
030309,001284: 30,3676 21650 EP4(10)H
030310,001285: 30,3677 45006 PUSH CALL
030311,001286: 30,3700 22000 INITVEL
030312,001287: 30,3701 52001 SETPD GOTO
030313,001288: 30,3702 00001 0
030314,001289: 30,3703 03730 QTEMP1
030315,001290: 30,3704 45175 CALCUT VLOAD CALL
030316,001291: 30,3705 03632 RTIG
030317,001292: 30,3706 77355 CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS
030318,001293: 30,3707 70372 VSL1 V/SC
030319,001294: 30,3710 21747 200CS # G AT 2(-5) M/CS. CS
030320,001295: 30,3711 52315 PDVL VSU
030321,001296: 30,3712 03612 VIPRIME
030322,001297: 30,3713 03713 UT
030323,001298: 30,3714 52341 V/SC VSU
030324,001299: 30,3715 21747 200CS
030325,001300: 30,3716 72561 VXSC VSL2
030326,001301: 30,3717 03703 CSTEER
030327,001302: 30,3720 24015 STOVL 12D # B.C SCALED AT 2(-5) PDL 12D
030328,001303: 30,3721 03721 VGTIG
030329,001304: 30,3722 41456 UNIT PUSH # UG PDL 0 SCALED AT 2(+1)
030330,001305:
030331,001306: 30,3723 74241 DOT VXSC
030332,001307: 30,3724 00015 12D
030333,001308: 30,3725 00001 0
030334,001309: 30,3726 51352 VSL2 BVSU
030335,001310: 30,3727 00015 12D
030336,001311: 30,3730 14015 STODL 12D # Q PDL 12D SCALED AT 2(-5)
030337,001312: 30,3731 03727 F
030338,001313: 30,3732 56261 SRR DDV
030339,001314: 30,3733 21605 4
030340,001315: 30,3734 03076 WEIGHT/G
030341,001316: 30,3735 63316 DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
030342,001317: 30,3736 00015 12D
030343,001318: 30,3737 77636 VSQ
030344,001319: 30,3740 75421 BDSU SQRT
030345,001320: 30,3741 76561 VXSC VSL1
030346,001321: 30,3742 53455 VAD UNIT
030347,001322: 30,3743 00015 12D
030348,001323: 30,3744 37713 STCALL UT
030349,001324: 30,3745 03657 QTEMP
030350,001325: 30,3746 01440 00000 200CS 2DEC 200 B-12
030351,001326:
030352,001327: # PROGRAM DESCRIPTION S40.2,3 DATE 15,NOV,66
030353,001328: # MOD NO 2 LOG SECTION P40-P47
030354,001329: # MOD BY ZELDIN
030355,001330:
030356,001331: # FUNCTIONAL DESCRIPTION
030357,001332: #
030358,001333: # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030359,001334: # ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030360,001335: # COMPUTE X AXIS OF ENGINE BELL
030361,001336: # COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030362,001337: # FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030363,001338: # YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
030364,001339: # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030365,001340: # COORDS. WILL BE PREFERRED IMU ORIENTATION.
030366,001341: # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030367,001342:
030368,001343: # CALLING SEQUENCE
030369,001344: # L CALL
030370,001345: # L+1 S40.2,3
030371,001346:
030372,001347: # NORMAL EXIT MODE
030373,001348: # AT L+2 OF CALLING SEQUENCE (GOTO L+2)
030374,001349:
030375,001350: # SUBROUTINES CALLED
030376,001351: # CALCGA
030377,001352:
030378,001353: # ALARM OR ABORT MODES
030379,001354: # NONE
030380,001355:
030381,001356: # ERASABLE INITIALIZATION REQUIRED
030382,001357: # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV.
030383,001358: # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV.
030384,001359: # UT DESIRED THRUST DIRECTION VECT. B2 M/(CS.CS)
030385,001360: # RTIG POSITION AT TIME OF IGNITION VECT. B29 M
030386,001361: # ENG2FLAG ON=RCS OFF=SPS
030387,001362:
030388,001363: # OUTPUT
030389,001364: # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
030390,001365: # XSCREF UNIT VECTORS ALIGNED WITH PREFERRED IMU B1
030391,001366: # YSCREF
030392,001367: # ZSCREF
030393,001368: # GIMBAL ANGLES IN THETAD
030394,001369: # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
030395,001370:
030396,001371: # DEBRIS
030397,001372: # PUSHLIST, QPRET, MPAC
030398,001373: # QTEMP TEMP. ERASABLE
030399,001374:
030400,001375: 24,3574 BANK 24
030401,001376: 24,2000 SETLOC P40S
030402,001377: 24,2000 BANK
030403,001378: 24,3574 COUNT* $$/S40.2
030404,001379: 24,3574 64375 S40.2,3 VLOAD MXV
030405,001380: 24,3575 03713 UT
030406,001381: 24,3576 01736 REFSMMAT
030407,001382: 24,3577 44172 VSL1 STQ
030408,001383: 24,3600 03657 QTEMP
030409,001384: 24,3601 03357 STORE POINTVSM # THRUST IN SM AT 2
030410,001385: 24,3602 43001 SETPD BON
030411,001386: 24,3603 00001 0
030412,001387: 24,3604 00704 ENG2FLAG
030413,001388: 24,3605 51715 S40.2,3B
030414,001389: 24,3606 77745 DLOAD
030415,001390: 24,3607 15334 HI6ZEROS
030416,001391: 24,3610 67206 PUSH SLOAD # ZERO PDL 0
030417,001392: 24,3611 03025 YACTOFF
030418,001393: 24,3612 72405 DMP SL1
030419,001394: 24,3613 11754 TRIMSCAL
030420,001395: 24,3614 41415 DAD PUSH
030421,001396: 24,3615 11756 YBIAS
030422,001397: 24,3616 65346 COS PDDL # COS(Y +Y0) PDL 2
030423,001398: 24,3617 41556 SIN PUSH # SIN(Y +Y0) PDL 4
030424,001399: 24,3620 77735 SLOAD
030425,001400: 24,3621 03024 PACTOFF
030426,001401: 24,3622 72405 DMP SL1
030427,001402: 24,3623 11754 TRIMSCAL
030428,001403: 24,3624 41415 DAD PUSH
030429,001404: 24,3625 11760 PBIAS
030430,001405: 24,3626 65346 COS PDDL # COS(P +P0) PDL 6
030431,001406: 24,3627 41556 SIN PUSH # SIN(P +P0) PDL 8D
030432,001407: 24,3630 14323 STODL ZSCREF # SIN(P +P0)
030433,001408: 24,3631 00007 6
030434,001409: 24,3632 72405 DMP SL1
030435,001410: 24,3633 00005 4
030436,001411: 24,3634 65276 DCOMP PDDL # -SIN(Y+Y0)COS(P+P0) PDL 10
030437,001412: 24,3635 00007 6
030438,001413: 24,3636 72405 DMP SL1
030439,001414: 24,3637 00003 2
030440,001415: 24,3640 77666 VDEF
030441,001416:
030442,001417: 24,3641 14307 STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT
030443,001418: 24,3642 00323 ZSCREF
030444,001419: 24,3643 72405 DMP SL1
030445,001420: 24,3644 00005 4
030446,001421: 24,3645 41325 PDDL DMP
030447,001422: 24,3646 00323 ZSCREF
030448,001423: 24,3647 00003 2
030449,001424: 24,3650 57552 SL1 DCOMP
030450,001425: 24,3651 77666 VDEF
030451,001426:
030452,001427: 24,3652 14323 STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030453,001428: 24,3653 77666 VDEF
030454,001429:
030455,001430: 24,3654 14315 STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030456,001431: 24,3655 00323 ZSCREF
030457,001432: 24,3656 65325 PDDL PDDL
030458,001433: 24,3657 00315 YSCREF
030459,001434: 24,3660 00307 XSCREF
030460,001435: 24,3661 77666 VDEF
030461,001436: 24,3662 27351 STOVL SCAXIS # ENGINE BELL SCALED AT 2
030462,001437: 24,3663 03713 UT
030463,001438: 24,3664 53515 PDVL UNIT
030464,001439: 24,3665 03632 RTIG
030465,001440: 24,3666 57435 VXV VCOMP
030466,001441: 24,3667 00001 0
030467,001442: 24,3670 41456 UNIT PUSH
030468,001443: 24,3671 77624 CALL
030469,001444: 24,3672 51734 TSTRXUT
030470,001445: 24,3673 57435 VXV VCOMP
030471,001446: 24,3674 00001 0
030472,001447: 24,3675 63372 VSL1 PDVL # 2 RF/SC IN PDL 12D
030473,001448: 24,3676 00307 XSCREF
030474,001449: 24,3677 76505 VXM VSL1
030475,001450: 24,3700 00001 0
030476,001451: 24,3701 24307 STOVL XSCREF # X OF PREF IMU,X OF SC IN REF COOR. AT 2
030477,001452: 24,3702 00315 YSCREF
030478,001453: 24,3703 76505 VXM VSL1
030479,001454: 24,3704 00001 0
030480,001455: 24,3705 24315 STOVL YSCREF # Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
030481,001456: 24,3706 00323 ZSCREF
030482,001457: 24,3707 76505 VXM VSL1
030483,001458: 24,3710 00001 0
030484,001459: 24,3711 00323 STORE ZSCREF # Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030485,001460: 24,3712 52001 SETPD GOTO
030486,001461: 24,3713 00001 0
030487,001462: 24,3714 03657 QTEMP
030488,001463: 24,3715 77775 S40.2,3B VLOAD
030489,001464: 24,3716 15332 UNITX
030490,001465: 24,3717 27351 STOVL SCAXIS
030491,001466: 24,3720 03713 UT
030492,001467: 24,3721 00307 STORE XSCREF
030493,001468: 24,3722 53435 VXV UNIT
030494,001469: 24,3723 03632 RTIG
030495,001470: 24,3724 34007 STCALL 6D
030496,001471: 24,3725 51734 TSTRXUT
030497,001472: 24,3726 00315 STORE YSCREF
030498,001473: 24,3727 57435 VXV VCOMP
030499,001474: 24,3730 00307 XSCREF
030500,001475: 24,3731 77772 VSL1
030501,001476: 24,3732 34323 STCALL ZSCREF # ZNB AXIS IN REF COOR
030502,001477: 24,3733 03657 QTEMP
030503,001478: 24,3734 46145 TSTRXUT DLOAD BHIZ
030504,001479: 24,3735 00045 36D
030505,001480: 24,3736 51741 BADVCTOR
030506,001481: 24,3737 43575 VLOAD RVQ
030507,001482: 24,3740 00007 6D
030508,001483: 24,3741 53575 BADVCTOR VLOAD UNIT
030509,001484: 24,3742 03632 RTIG
030510,001485: 24,3743 53515 PDVL UNIT
030511,001486: 24,3744 03640 VTIG
030512,001487: 24,3745 53322 VSR3 VAD
030513,001488: 24,3746 53435 VXV UNIT
030514,001489: 24,3747 03713 UT
030515,001490: 24,3750 77676 VCOMP
030516,001491: 24,3751 00007 STORE 6D
030517,001492: 24,3752 77616 RVQ
030518,001493: 24,3753 21215 12215 TRIMSCAL 2DEC 1.07975111 B-1
030519,001494:
030520,001495: 24,3755 00053 07423 YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
030521,001496:
030522,001497: 24,3757 77636 44653 PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
030523,001498:
030524,001499: # REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
030525,001500:
030526,001501: # PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66
030527,001502: # MOD NO 1 LOG SECTION P40-P47
030528,001503: # MOD BY ZELDIN
030529,001504:
030530,001505: # FUNCTIONAL DESCRIPTION
030531,001506:
030532,001507: # COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
030533,001508: # TO CONTROL COORDS.
030534,001509:
030535,001510: # CALLING SEQUENCE
030536,001511:
030537,001512: # L CALL
030538,001513: # L+1 S41.1
030539,001514:
030540,001515: # NORMAL EXIT MODE
030541,001516: #
030542,001517: # AT L +2 OF CALLING SEQUENCE
030543,001518:
030544,001519: # SUBROUTINES CALLED:
030545,001520:
030546,001521: # CALCSMSC
030547,001522: # CDUTRIG
030548,001523:
030549,001524: # ALARM OR ABORT MODES
030550,001525:
030551,001526: # NONE
030552,001527:
030553,001528: # ERASABLE INITIALIZATION REQUIRED
030554,001529:
030555,001530: # VG IN REF. COORD. PDL L POINTER AT L+5. S41.1 WILL RETURN WITH
030556,001531: # POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
030557,001532:
030558,001533: # OUTPUT
030559,001534:
030560,001535: # MPAC CONTAINS VG IN CONTROL COORDS VECT. B7 M/CS
030561,001536:
030562,001537: # DEBRIS:
030563,001538:
030564,001539: # QTEMP TEMP ERASABLE
030565,001540: # QPRET
030566,001541:
030567,001542: 24,3761 COUNT 22/S41.1
030568,001543:
030569,001544: 22,2000 SETLOC P40S5
030570,001545: 22,2000 BANK
030571,001546:
030572,001547: 22,3431 45020 S41.1 STQ CALL
030573,001548: 22,3432 03657 QTEMP
030574,001549: 22,3433 47501 CDUTRIG
030575,001550: 22,3434 77775 VLOAD
030576,001551: 22,3435 45121 MXV CALL
030577,001552: 22,3436 01736 REFSMMAT
030578,001553: 22,3437 47646 *SMNB*
030579,001554: 22,3440 74321 MXV VXSC
030580,001555: 22,3441 05003 QUADROT
030581,001556: 22,3442 05446 TENBNK14 # VG IN CONTROL COORD IN MPAC SCALED AT
030582,001557: 22,3443 52072 VSL5 GOTO # VG IN CONTROL COORDS. IN MPAC AT 2(+7)
030583,001558: 22,3444 03657 QTEMP
030584,001559: 22,3445 24000 00000 TENBNK14 2DEC 10. B-4
030585,001560:
030586,001561: # NAME S40.8 - CROSS PRODUCT STEERING
030587,001562: # FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030588,001563: # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030589,001564: # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030590,001565: # (4) INITIATES THRUST-FAIL ROUTINE, R40
030591,001566: # CALLING SEQ CALL S40.8
030592,001567: # INPUT VGPREV - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030593,001568: # PRIOR TO UPDATING IN METERS/CS AT +7.
030594,001569: # DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030595,001570: # IN METERS/CS AT +7.
030596,001571: # BDT - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030597,001572: # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030598,001573: # METERS/CS AT +7.
030599,001574: # CSTEER - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030600,001575: # SPS AIMPOINT STEERING MANEUVERS
030601,001576: # IDLEFAIL - A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030602,001577: # STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030603,001578: # REFSMMAT, DAPDATR1, PIPTIME
030604,001579: # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030605,001580: # OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN CS AT +28
030606,001581: # OMEGAC - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030607,001582: # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030608,001583: # STEERSW, IMPULSW, NVWORD1
030609,001584: # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030610,001585: # DEBRIS OMEGAXC, +1
030611,001586: # SUBROUTINES USED - *SMNB*, ALARM
030612,001587:
030613,001588: 16,2000 SETLOC P40S1
030614,001589: 16,2000 BANK
030615,001590: 16,2226 E6,1466 EBANK= DAPDATR1
030616,001591: 16,2226 COUNT 16/S40.8
030617,001592:
030618,001593: 16,2226 44001 S40.8 SETPD STQ
030619,001594: 16,2227 00001 SPBIT1 00D
030620,001595: 16,2230 03657 QTEMP
030621,001596: 16,2231 51375 VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS
030622,001597: 16,2232 03433 DELVREF
030623,001598: 16,2233 03705 BDT
030624,001599: 16,2234 77655 VAD
030625,001600: 16,2235 03721 VGPREV
030626,001601: 16,2236 03460 STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
030627,001602:
030628,001603: 16,2237 77646 ABVAL
030629,001604: 16,2240 03773 STORE VGDISP # FOR DISPLAY PURPOSES
030630,001605: 16,2241 77776 EXIT
030631,001606: 16,2242 05426 TC PHASCHNG
030632,001607: 16,2243 10035 OCT 10035 # TYPE B RESTART BELOW AND 5.3 REREADAC
030633,001608:
030634,001609: 16,2244 06006 TC INTPRET
030635,001610: 16,2245 77775 VLOAD
030636,001611: 16,2246 03460 VG
030637,001612: 16,2247 03721 STORE VGPREV
030638,001613: 16,2250 77214 BOFF VLOAD
030639,001614: 16,2251 01344 STEERSW # SKIP TGO AND CROSS-PRODUCT
030640,001615: 16,2252 03657 QTEMP
030641,001616: 16,2253 03433 DELVREF
030642,001617: 16,2254 41446 ABVAL PUSH # CHECK FOR LOTHRUST
030643,001618: 16,2255 41335 SLOAD DMP
030644,001619: 16,2256 01350 DVTHRESH # SC.AT B-2 M/CS
030645,001620: 16,2257 36047 DPB-9
030646,001621: 16,2260 77621 BDSU
030647,001622: 16,2261 77640 BMN
030648,001623: 16,2262 40241 LOTHRUST
030649,001624: 16,2263 77414 CGTRACK BON EXIT # ENABLE TVCDAP CG TRACKING
030650,001625: 16,2264 04700 SWTOVER
030651,001626: 16,2265 34360 FREPSET # V46 SWITCHOVER HAS OCCURRED (CSM/LM)
030652,001627: 16,2266 31466 CAE DAPDATR1 # ENABLE TVCDAP CG TRACKING
030653,001628: 16,2267 75016 MASK BIT14
030654,001629: 16,2270 10000 CCS A
030655,001630: 16,2271 35033 CAF BIT1
030656,001631: 16,2272 50000 INDEX A # LM-OFF, LM-ON VALUE
030657,001632: 16,2273 31421 CAE EREPFRAC
030658,001633: 16,2274 55642 REPFRACS TS REPFRAC
030659,001634:
030660,001635: 16,2275 06006 TC INTPRET
030661,001636: 16,2276 51375 TGOCALC VLOAD BVSU # GET DELVG
030662,001637: 16,2277 03433 DELVREF
030663,001638: 16,2300 03705 BDT
030664,001639: 16,2301 77656 UNIT
030665,001640: 16,2302 41441 DOT PUSH # (00D)
030666,001641: 16,2303 03460 VG
030667,001642: 16,2304 56244 BPL DDV # ANGLE SHOULD BE GREATER THAN PI/2
030668,001643: 16,2305 40233 INCRSVG # DISPLAY ALARM IF NOT
030669,001644: 16,2306 36043 2VEXHUST
030670,001645: 16,2307 41215 DAD DMP # (DOT PRODUCT UP FROM 00D)
030671,001646: 16,2310 11564 LODPHALF
030672,001647: 16,2311 70501 NORM SR1
030673,001648: 16,2312 00047 X1
030674,001649: 16,2313 60325 PDDL NORM
030675,001650: 16,2314 00045 36D # (MAG DELVG)
030676,001651: 16,2315 00050 X2
030677,001652: 16,2316 77665 BDDV
030678,001653: 16,2317 53664 XSU,2 SL*
030679,001654: 16,2320 00046 X1
030680,001655: 16,2321 57607 0 -9D,2
030681,001656: 16,2322 41405 DMP PUSH # (00D)
030682,001657: 16,2323 36041 -FOURDT
030683,001658: 16,2324 54335 SLOAD SR
030684,001659: 16,2325 03013 ETDECAY # ETDECAY SC.AT B+14 CS
030685,001660: 16,2326 20617 14D
030686,001661: 16,2327 45421 BDSU STADR
030687,001662: 16,2330 74347 STORE TGO # TIME TO GO IN CS. AT +28
030688,001663: 16,2331 77615 DAD
030689,001664: 16,2332 01205 PIPTIME
030690,001665: 16,2333 17413 STODL TIG
030691,001666: 16,2334 03430 TGO
030692,001667: 16,2335 50025 DSU BMN
030693,001668: 16,2336 36045 FOURSEC
030694,001669: 16,2337 40220 S40.81
030695,001670:
030696,001671: 16,2340 74375 XPRODUCT VLOAD VXSC
030697,001672: 16,2341 03705 BDT
030698,001673: 16,2342 03703 CSTEER
030699,001674: 16,2343 52352 VSL2 VSU
030700,001675: 16,2344 03433 DELVREF
030701,001676: 16,2345 63256 UNIT PDVL
030702,001677: 16,2346 03460 VG
030703,001678: 16,2347 47256 UNIT VXV
030704,001679: 16,2350 45121 MXV CALL
030705,001680: 16,2351 01736 REFSMMAT # (REFSMMAT/2)
030706,001681: 16,2352 47646 *SMNB*
030707,001682: 16,2353 77761 VXSC
030708,001683: 16,2354 03235 KPRIMEDT # (KPRIMEDT SCIAT PI/8 RAD)
030709,001684: 16,2355 03126 OMEGACLC STORE OMEGAC
030710,001685: 16,2356 77650 GOTO
030711,001686: 16,2357 03657 QTEMP
030712,001687: 16,2360 77545 FREPSET DLOAD EXIT # POST-SQITCHOVER CSM/LM. LOAD FROM LOW-
030713,001688: 16,2361 36602 FREPFRAC # BANDWIDTH PARAMETER IN FIXED MEMORY
030714,001689: 16,2362 30154 CAE MPAC
030715,001690: 16,2363 12274 TCF REPFRACS
030716,001691:
030717,001692: 17,2000 SETLOC DAPS7
030718,001693: 17,2000 BANK
030719,001694: 17,2036 COUNT 17/S40.8
030720,001695:
030721,001696: 17,2036 00000 00310 TWODT 2DEC 200.0 B-28 # 2 SEC
030722,001697:
030723,001698: 17,2040 77715 77777 -FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
030724,001699:
030725,001700: 17,2042 17602 25124 2VEXHUST 2DEC 63.020792 B-7 # 2(10338.0564 FPS), SC.AT B+7 M/CS
030726,001701:
030727,001702: 17,2044 00000 00620 FOURSEC 2DEC 400.0 B-28 # 4 SEC
030728,001703:
030729,001704: 17,2046 00040 00000 DPB-9 2DEC 1 B-9
030730,001705:
030731,001706: 20,2000 SETLOC DAPS6
030732,001707: 20,2000 BANK
030733,001708:
030734,001709: 20,2220 COUNT 20/S40.8
030735,001710:
030736,001711: 20,2220 77214 S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS
030737,001712: 20,2221 01066 IMPULSW # FOR ENGINE-OFF CALL
030738,001713: 20,2222 15334 HI6ZEROS
030739,001714: 20,2223 03126 RATEZRO STORE OMEGAC # TVC TO ATTITUDE HOLD
030740,001715: 20,2224 77776 EXIT
030741,001716: 20,2225 35013 CAF POSMAX # INHIBIT SWITCHOVER/TVC EG TRACKING
030742,001717: 20,2226 55447 TS CNTR
030743,001718: 20,2227 06006 TC INTPRET
030744,001719: 20,2230 52014 CLEAR GOTO
030745,001720: 20,2231 01264 STEERSW # RESTARTS OK
030746,001721: 20,2232 03657 QTEMP
030747,001722: 20,2233 77776 INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING
030748,001723: 20,2234 05664 TC ALARM # IN WRONG DIRECTION.
030749,001724: 20,2235 01407 OCT 01407
030750,001725: 20,2236 06006 TC INTPRET
030751,001726: 20,2237 77650 GOTO
030752,001727: 20,2240 03657 QTEMP
030753,001728:
030754,001729: 20,2241 77214 LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
030755,001730: 20,2242 00711 IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
030756,001731: 20,2243 03657 QTEMP # UNFAVORABLE S40.8 SYNCH
030757,001732: 20,2244 15334 HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS
030758,001733: 20,2245 03126 STORE OMEGAC # PUT TVC IN ATTITUDE HOLD
030759,001734: 20,2246 77776 EXIT
030760,001735:
030761,001736: 20,2247 45035 CS ZERO
030762,001737: 20,2250 55643 TS VCNTR # KILL CSMMASS UPDATING
030763,001738: 20,2251 55655 TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO)
030764,001739: 20,2252 55642 TS REPFRAC # KILL TVCDAP CG TRIM TRACKING
030765,001740: 20,2253 55145 TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
030766,001741:
030767,001742: 20,2254 06006 TC INTPRET
030768,001743: 20,2255 52014 CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL
030769,001744: 20,2256 01264 STEERSW # SHUTDOWN IF NOT SET UP AGAIN)
030770,001745: 20,2257 03657 QTEMP # RESTARTS OK
030771,001746:
030772,001747: # NAME S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030773,001748: # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030774,001749: # VECTORS FOR USE DURING AIMPOINT MANEUVERS
030775,001750: # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
030776,001751: # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030777,001752: # CALLING SEQ VIA FINDVAC AS NEW JOB.
030778,001753: # INPUT RNIT - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030779,001754: # VNIT - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030780,001755: # VRPREV - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030781,001756: # METERS/CS AT +7.
030782,001757: # NOMTIG - TIME OF IGN. USED IN TARGETTING ROUTINES %+28"
030783,001758: # DELLT4 - TRANSFER TIME FROM PIPTIME TO TARGET %+28"
030784,001759: # TNIT - TIME OF RNIT AND VNIT IN CS AT +28
030785,001760: # GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030786,001761: # ACCERERATION OF GRAVITY IN METERS/CS AT +7.
030787,001762: # DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
030788,001763: # METERS/CS AT +7.
030789,001764: # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
030790,001765: # 165 TO 195 DEGREES
030791,001766: # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
030792,001767: # OUTPUT VGTEMP - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
030793,001768: # COGA - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
030794,001769: # OR PREVIOUS PASS THRU S40.9
030795,001770: # GOBL/2 - OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
030796,001771: # VRPREV - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
030797,001772: # BDT - B VECTOR IN METERS/CS AT +7.
030798,001773: # SUBROUTINES USED - INITVEL
030799,001774:
030800,001775: 16,2000 SETLOC P40S1
030801,001776: 16,2000 BANK
030802,001777:
030803,001778: 16,2364 E6,1744 EBANK= NBRCYCLS
030804,001779: 16,2364 COUNT 16/S40.9
030805,001780:
030806,001781: 16,2364 06006 S40.9 TC INTPRET
030807,001782: 16,2365 71201 SETPD DLOAD
030808,001783: 16,2366 00001 00D
030809,001784: 16,2367 11566 LO6ZEROS
030810,001785: 16,2370 77725 PDDL
030811,001786: 16,2371 26251 EP4(45)L
030812,001787: 16,2372 71214 BON DLOAD
030813,001788: 16,2373 03705 NORMSW
030814,001789: 16,2374 34376 +2
030815,001790: 16,2375 26253 EP4(10)L
030816,001791: 16,2376 77606 PUSH
030817,001792: 16,2377 45014 CLEAR CALL
030818,001793: 16,2400 00675 GUESSW
030819,001794: 16,2401 22002 HAVEGUES
030820,001795: 16,2402 77776 EXIT
030821,001796: 16,2403 05426 TC PHASCHNG # SAVE TIME BY NOT REDOING LAMBERT CALCS
030822,001797: 16,2404 05021 OCT 05021 # C, PRIORITY NEXT, JOB BELOW
030823,001798: 16,2405 10000 OCT 10000
030824,001799: 16,2406 06006 TC INTPRET
030825,001800: 16,2407 77614 ENDLAMB BON
030826,001801: 16,2410 01310 FIRSTFLG
030827,001802: 16,2411 34427 FIRSTTME
030828,001803: 16,2412 52375 VLOAD VSU
030829,001804: 16,2413 03612 VIPRIME
030830,001805: 16,2414 03466 VRPREV
030831,001806: 16,2415 45325 PDDL DSU
030832,001807: 16,2416 03474 TNIT
030833,001808: 16,2417 03476 TNITPREV
030834,001809: 16,2420 55261 SL BDDV
030835,001810: 16,2421 20222 17D
030836,001811: 16,2422 26245 200CSHI
030837,001812: 16,2423 77761 VXSC
030838,001813: 16,2424 76451 VSU VSL1
030839,001814: 16,2425 01207 GDT/2
030840,001815: 16,2426 03705 STORE BDT
030841,001816: 16,2427 57535 FIRSTTME SLOAD DCOMP
030842,001817: 16,2430 03747 RTX2
030843,001818: 16,2431 77640 BMN
030844,001819: 16,2432 34447 MOONCASE
030845,001820: 16,2433 53575 VLOAD UNIT
030846,001821: 16,2434 01171 RN
030847,001822: 16,2435 45345 DLOAD DSU
030848,001823: 16,2436 01205 PIPTIME
030849,001824: 16,2437 03450 NOMTIG
030850,001825: 16,2440 56205 DMP DDV
030851,001826: 16,2441 26247 EARTHMU
030852,001827: 16,2442 00043 34D
030853,001828: 16,2443 53361 VXSC VAD
030854,001829: 16,2444 01215 GOBL/2
030855,001830: 16,2445 03646 VGTEMP # NOTE NO TEST IS MADE TO SUBTRACT GOBL
030856,001831: 16,2446 03646 STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA.
030857,001832: 16,2447 77776 MOONCASE EXIT
030858,001833: 16,2450 05426 TC PHASCHNG
030859,001834: 16,2451 04021 OCT 04021 # C, JOB BELOW
030860,001835:
030861,001836: 16,2452 06006 COPY40.9 TC INTPRET
030862,001837: 16,2453 77745 DLOAD
030863,001838: 16,2454 03474 TNIT
030864,001839: 16,2455 27476 STOVL TNITPREV
030865,001840: 16,2456 03612 VIPRIME
030866,001841: 16,2457 03466 STORE VRPREV
030867,001842: 16,2460 77414 CLEAR EXIT
030868,001843: 16,2461 01270 FIRSTFLG
030869,001844: 16,2462 45033 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
030870,001845: 16,2463 55744 TS NBRCYCLS
030871,001846: 16,2464 05426 ENDS40.9 TC PHASCHNG
030872,001847: 16,2465 00001 OCT 00001
030873,001848: 16,2466 15233 TCF ENDOFJOB
030874,001849:
030875,001850: 16,2467 06006 REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
030876,001851: 16,2470 77775 VLOAD # TERMINATE S40.9 SO THAT IT CAN BE
030877,001852: 16,2471 11566 LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS
030878,001853: 16,2472 17347 STODL DELVSUM # (TYPE C PHASE POINTS '04021' WILL
030879,001854: 16,2473 11566 LO6ZEROS # FORCE NORMAL S40.9 TERMINATIONS,
030880,001855: 16,2474 27345 STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW
030881,001856: 16,2475 03721 VGPREV # PASS -- QUICK OLD DATA BETTER THAN
030882,001857: 16,2476 03646 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
030883,001858: 16,2477 77776 EXIT # WITHOUT DISTURBING VGPREV
030884,001859: 16,2500 12462 TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
030885,001860:
030886,001861: 13,2000 SETLOC P40S4
030887,001862: 13,2000 BANK
030888,001863: 13,2244 COUNT* $$/S40.9
030889,001864:
030890,001865: 13,2244 01440 00000 200CSHI 2DEC 200 B-12
030891,001866:
030892,001867: 13,2246 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36*
030893,001868:
030894,001869: 13,2250 04000 00000 EP4(45)L 2DEC .125
030895,001870:
030896,001871: 13,2252 00707 03434 EP4(10)L 2DEC .027777777
030897,001872:
030898,001873: # NAME S40.13 - TIMEBURN
030899,001874:
030900,001875: # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
030901,001876: # BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
030902,001877: # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
030903,001878: # (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
030904,001879: # AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
030905,001880:
030906,001881: # CALLING SEQ VIA FINDVAC AS NEW JOB.
030907,001882:
030908,001883: # INPUT VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
030909,001884: # WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
030910,001885: # F - ENGINE THRUST IN M.NEWTONS AT +7
030911,001886: # MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
030912,001887: # IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY
030913,001888: # REQUIRE MODIFICATION FOR SATURN BURNS.
030914,001889:
030915,001890: # OUTPUT IMPULSW - ZERO FOR STEERING
030916,001891: # - ONE FOR ATTITUDE HOLD
030917,001892: # TGO - TIME TO BURN IN CENTISECONDS AT +14
030918,001893: # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
030919,001894: # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
030920,001895: # (1) M.NEWTON = (10000) NEWTONS
030921,001896:
030922,001897: 16,2000 SETLOC P40S1
030923,001898: 16,2000 BANK
030924,001899: 16,2501 E7,1427 EBANK= TGO
030925,001900: 16,2501 COUNT 16/40.13
030926,001901:
030927,001902: 16,2501 06006 S40.13 TC INTPRET
030928,001903: 16,2502 43001 SETPD SET
030929,001904: 16,2503 00001 00D
030930,001905: 16,2504 01066 IMPULSW # ASSUME NO STEERING UNTIL FOUND OTHERWISE
030931,001906: 16,2505 51575 VLOAD ABVAL
030932,001907: 16,2506 03721 VGTIG # VELOCITY TO BE GAINED AT +7
030933,001908: 16,2507 77776 EXIT
030934,001909: 16,2510 35025 CAF BIT7 # TEST +X TRANSLATION
030935,001910: 16,2511 00006 EXTEND
030936,001911: 16,2512 06031 RXOR CHAN31
030937,001912: 16,2513 75025 MASK BIT7
030938,001913: 16,2514 00006 EXTEND
030939,001914: 16,2515 12577 BZF NOTADDUL
030940,001915: 16,2516 06006 TC INTPRET
030941,001916: 16,2517 56325 PDDL DDV # 00D = MAG OF VGTIG AT +7
030942,001917: 16,2520 36057 S40.135 # COMPENSATION FOR 2 JET ULLAGE AT +24
030943,001918: 16,2521 03076 WEIGHT/G # MASS IN KGMS AT +16
030944,001919: 16,2522 72414 BON SL1 # DOUBLE CORRECTION IF FOUR JETS
030945,001920: 16,2523 00700 NJETSFLG
030946,001921: 16,2524 34525 S40.130
030947,001922: 16,2525 77621 S40.130 BDSU
030948,001923: 16,2526 56325 PDDL DDV # 00D = MAG OF VGTIG CORRECTED FOR ULLAGE
030949,001924: 16,2527 01770 K1VAL # M.NETWON-CS AT +24
030950,001925: 16,2530 03076 WEIGHT/G
030951,001926: 16,2531 50021 BDSU BMN
030952,001927: 16,2532 00001 00D
030953,001928: 16,2533 34556 S40.131 # TGO LESS THAN 100 CS
030954,001929: 16,2534 41325 PDDL DMP # 02D = TEMP1 AT +7
030955,001930: 16,2535 00111 EMDOT # SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
030956,001931: 16,2536 36053 3.5SEC # 350 CS AT +14
030957,001932: 16,2537 65221 BDSU PDDL
030958,001933: 16,2540 03076 WEIGHT/G
030959,001934: 16,2541 01775 FANG
030960,001935: 16,2542 60405 DMP SR2
030961,001936: 16,2543 36055 5SECOND # 500 CS AT +14
030962,001937: 16,2544 41471 DDV PUSH # 04D = TEMP2
030963,001938: 16,2545 51021 BDSU BPL
030964,001939: 16,2546 00003 02D
030965,001940: 16,2547 34572 S40.133 # TGO GREATER THAN 600 CS
030966,001941: 16,2550 55345 DLOAD BDDV
030967,001942: 16,2551 43205 DMP DAD
030968,001943: 16,2552 36055 5SECOND # 500 CS AT +14
030969,001944: 16,2553 36051 1SEC2D # 100 CS AT +14
030970,001945: 16,2554 77650 GOTO
030971,001946: 16,2555 34563 S40.132
030972,001947: 16,2556 41345 S40.131 DLOAD DMP # TGO LESS THAN 100 CS
030973,001948: 16,2557 03076 WEIGHT/G
030974,001949: 16,2560 56215 DAD DDV
030975,001950: 16,2561 01772 K2VAL # M.NEWTON-CS AT +24
030976,001951: 16,2562 01774 K3VAL # M.NEWTONS AT +10
030977,001952: 16,2563 77776 S40.132 EXIT
030978,001953: 16,2564 E7,1427 EBANK= TGO
030979,001954: 16,2564 07226 TC TPAGREE
030980,001955: 16,2565 30154 CA MPAC
030981,001956: 16,2566 56001 XCH L
030982,001957: 16,2567 35035 CA ZERO
030983,001958: 16,2570 53430 DXCH TGO # TGO IN CS AT +28
030984,001959: 16,2571 02574 TC S40.134
030985,001960: 16,2572 77414 S40.133 CLEAR EXIT # WILL STEER VEHICLE
030986,001961: 16,2573 01266 IMPULSW
030987,001962: 16,2574 05426 S40.134 TC PHASCHNG # KILL GROUP 3
030988,001963: 16,2575 00003 OCT 3
030989,001964:
030990,001965: 16,2576 15233 TCF ENDOFJOB
030991,001966:
030992,001967: 16,2577 06006 NOTADDUL TC INTPRET
030993,001968: 16,2600 77650 GOTO
030994,001969: 16,2601 34526 S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
030995,001970: 17,2000 SETLOC DAPS7
030996,001971: 17,2000 BANK
030997,001972:
030998,001973: 17,2050 COUNT 17/40.13
030999,001974:
031000,001975: 17,2050 E3,1767 K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
031001,001976: 17,2050 E3,1771 K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
031002,001977: 17,2050 E3,1773 K3VAL = EK3VAL # SP PAD LOAD B+09 NEWTONS/E+4
031003,001978: 17,2050 00144 00000 1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14
031004,001979: 17,2052 01274 00000 3.5SEC 2DEC 350.0 B-13 # 350.0 CS AT +13
031005,001980:
031006,001981: 17,2054 00764 00000 5SECOND 2DEC 500.0 B-14 # 500 CS AT +14
031007,001982:
031008,001983: 17,2056 00000 04263 S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
031009,001984: # 7.96 (199.6)COS(10) LB-SEC, SC.AT
031010,001985: # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
031011,001986: # TO GO, PLUS 0.96 SEC FROM PIPTIME)
031012,001987:
031013,001988: # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031014,001989: # MOD NO 5 DATE 9 MARCH, 1967
031015,001990: # MOD BY ENGEL LOG SECTION P40-P47
031016,001991:
031017,001992: # FUNCTIONAL DESCRIPTION
031018,001993: # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031019,001994: # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
031020,001995: # OF GIMBAL MOTION ON GPI
031021,001996: # GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031022,001997: # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
031023,001998: # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031024,001999: # IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031025,002000: # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
031026,002001: # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
031027,002002: # OF RESTARTING ACTUATORS.
031028,002003:
031029,002004: # CALLING SEQUENCE....
031030,002005: # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031031,002006:
031032,002007: # NORMAL EXIT MODE - FIXDELAY, TASKOVER
031033,002008:
031034,002009: # SUBROUTINES CALLED....
031035,002010: # OUTPUT (INTERNAL)
031036,002011: # FIXDELAY
031037,002012:
031038,002013: # ALARM OR ABORT EXIT MODES - NONE
031039,002014:
031040,002015: # ERASEABLE INITIALIZATION REQUIRED
031041,002016: # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031042,002017: # MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031043,002018: # NEGATIVE FOR GIMBAL TRIM ONLY
031044,002019: # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
031045,002020: # ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031046,002021: # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031047,002022:
031048,002023: # OUTPUT
031049,002024: # TVCYAW, TVCPITCH (BITS RELEASED)
031050,002025: # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
031051,002026:
031052,002027: # DEBRIS
031053,002028: # TEMPR60, CNTR
031054,002029:
031055,002030: 17,2060 BANK 17
031056,002031: 20,2000 SETLOC DAPS6
031057,002032: 20,2000 BANK
031058,002033:
031059,002034: 20,2260 E6,1447 EBANK= CNTR
031060,002035: 20,2260 COUNT 20/S40.6
031061,002036:
031062,002037: 20,2260 40102 PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT
031063,002038: 20,2261 74105 MASK OCT60000 # IF TVC, BITS 15,|4 = 1,0)
031064,002039: 20,2262 00006 EXTEND
031065,002040: 20,2263 62265 BZMF +2
031066,002041: 20,2264 15340 TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE
031067,002042:
031068,002043: 20,2265 45033 CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY
031069,002044: 20,2266 55445 TS MRKRTMP
031070,002045:
031071,002046: 20,2267 35033 CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
031072,002047: 20,2270 55447 TS CNTR # TO INDICATE A RESTART ENTRY (CNTR IS
031073,002048: # NORMALLY +0, BY S40.6)
031074,002049:
031075,002050: 20,2271 E6,1447 EBANK= CNTR
031076,002051: 20,2271 45035 S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
031077,002052: 20,2272 55303 TS OPTIND
031078,002053:
031079,002054: 20,2273 45032 CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO,
031080,002055: 20,2274 00006 EXTEND # AND INHIBIT PULSE TRANSMISSION -
031081,002056: 20,2275 03012 WAND CHAN12 # NORMAL STATE)
031082,002057:
031083,002058: 20,2276 32363 CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
031084,002059: 20,2277 00006 EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC
031085,002060: 20,2300 05012 WOR CHAN12
031086,002061:
031087,002062: 20,2301 05303 TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031088,002063: 20,2302 00006 DEC 6 B-14 # RELAY LATCHING
031089,002064:
031090,002065: 20,2303 35032 CAF BIT2 # ENABLE OPTICS ERROR COUNTERS
031091,002066: 20,2304 00006 EXTEND
031092,002067: 20,2305 05012 WOR CHAN12
031093,002068:
031094,002069: 20,2306 05303 TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031095,002070: 20,2307 00002 DEC 2 B-14 # RELAY LATCHING
031096,002071:
031097,002072: 20,2310 11447 RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6)
031098,002073: 20,2311 12351 TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY
031099,002074: # TST,TRIM SETS +0 ON NORMAL ENTRY
031100,002075:
031101,002076: 20,2312 31445 CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY
031102,002077: 20,2313 55447 TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS
031103,002078: 20,2314 00006 EXTEND
031104,002079: 20,2315 62347 BZMF GIMTRIM # (TRIM ONLY)
031105,002080:
031106,002081: 20,2316 45035 GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH
031107,002082: 20,2317 55447 TS CNTR
031108,002083:
031109,002084: 20,2320 32365 GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
031110,002085: 20,2321 02334 TC OUTPUT # (LEAVES GIMBAL AT +2 DEG)
031111,002086: 20,2322 32364 CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2)
031112,002087: 20,2323 02334 TC OUTPUT
031113,002088: 20,2324 32365 CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
031114,002089: 20,2325 02334 TC OUTPUT
031115,002090:
031116,002091: 20,2326 41447 CS CNTR # CHECK FOR COMPLETION OF YAW TEST
031117,002092: 20,2327 10000 CCS A
031118,002093: 20,2330 12347 TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE
031119,002094: 20,2331 45033 CS BIT1 # SET UP YAW TEST
031120,002095: 20,2332 55447 TS CNTR
031121,002096: 20,2333 12320 TCF GIMDTEST # FOR YAW TEST
031122,002097:
031123,002098: 20,2334 00006 OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q
031124,002099: 20,2335 23146 QXCH TEMPR60
031125,002100:
031126,002101: 20,2336 51447 INDEX CNTR
031127,002102: 20,2337 54054 TS TVCPITCH
031128,002103:
031129,002104: 20,2340 51447 INDEX CNTR
031130,002105: 20,2341 35021 CAF BIT11
031131,002106: 20,2342 00006 EXTEND
031132,002107: 20,2343 05014 WOR CHAN14
031133,002108:
031134,002109: 20,2344 05303 TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031135,002110: 20,2345 00310 DEC 200 B-14 # GIMBAL MOTION ON GPI
031136,002111: 20,2346 01146 TC TEMPR60
031137,002112:
031138,002113: 20,2347 05303 GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM
031139,002114: 20,2350 00620 DEC 400 B-14
031140,002115:
031141,002116: 20,2351 45035 +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM
031142,002117: 20,2352 61423 AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST
031143,002118: 20,2353 54054 TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY
031144,002119: 20,2354 45035 CS ZERO
031145,002120: 20,2355 61424 AD YACTOFF
031146,002121: 20,2356 54053 TS TVCYAW
031147,002122:
031148,002123: 20,2357 35076 CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12
031149,002124: 20,2360 00006 EXTEND
031150,002125: 20,2361 05014 WOR CHAN14
031151,002126:
031152,002127: 20,2362 15340 ENDS40.6 TCF TASKOVER
031153,002128:
031154,002129: 20,2363 02200 OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031155,002130: 20,2364 77527 -4ACTDEG DEC -168 B-14 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031156,002131: 20,2365 00124 +2ACTDEG DEC +84 B-14 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031157,002132:
031158,002133: # CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
031159,002134:
031160,002135: 20,2366 COUNT 20/S41.2
031161,002136:
031162,002137: 20,2366 31466 S41.2 CA DAPDATR1
031163,002138: 20,2367 76214 MASK THREE
031164,002139: 20,2370 60000 AD A
031165,002140: 20,2371 55130 TS RATEINDX
031166,002141:
031167,002142: 20,2372 00004 INHINT
031168,002143: 20,2373 31466 CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031169,002144: 20,2374 74371 MASK PRIO30 # =10)
031170,002145: 20,2375 67705 AD -BIT14 # (OCT57777)
031171,002146: 20,2376 00006 EXTEND
031172,002147: 20,2377 12404 BZF TOGETHER # YES
031173,002148:
031174,002149: 20,2400 45032 CS BIT2 # NO, UNSET FLAG
031175,002150: 20,2401 70103 MASK FLAGWRD7
031176,002151: 20,2402 54103 TS FLAGWRD7
031177,002152:
031178,002153: 20,2403 12407 TCF +4
031179,002154:
031180,002155: 20,2404 40103 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
031181,002156: 20,2405 75032 MASK BIT2
031182,002157: 20,2406 26103 ADS FLAGWRD7
031183,002158:
031184,002159: 20,2407 00003 RELINT
031185,002160:
031186,002161: 20,2410 31466 CA DAPDATR1
031187,002162: 20,2411 75030 MASK BIT4
031188,002163: 20,2412 00006 EXTEND
031189,002164: 20,2413 62415 BZMF +2 # DEC 46 MEANS NARROW DB
031190,002165: 20,2414 32515 CA DEC409
031191,002166: 20,2415 62516 AD DEC46 # DEC 455 MEANS WIDE DB
031192,002167: 20,2416 55655 TS ADB
031193,002168:
031194,002169: 20,2417 31466 CA DAPDATR1
031195,002170: 20,2420 75025 MASK BIT7 # QUAD BD
031196,002171: 20,2421 00006 EXTEND
031197,002172: 20,2422 62424 BZMF +2
031198,002173: 20,2423 35033 CA ONE
031199,002174: 20,2424 55631 TS XTRANS
031200,002175: 20,2425 31466 CA DAPDATR1
031201,002176: 20,2426 75022 MASK BIT10 # QUAD AC
031202,002177: 20,2427 00006 EXTEND
031203,002178: 20,2430 62432 BZMF +2
031204,002179: 20,2431 45033 CS ONE
031205,002180: 20,2432 27631 ADS XTRANS
031206,002181:
031207,002182: 20,2433 00004 INHINT
031208,002183: 20,2434 00006 EXTEND
031209,002184: 20,2435 12442 BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS)
031210,002185: 20,2436 40075 CS FLAGWRD1 # SET NJETSFLG (2 JETS, AC OR BD QUADS)
031211,002186: 20,2437 75015 MASK BIT15 # NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
031212,002187: 20,2440 26075 ADS FLAGWRD1
031213,002188: 20,2441 12445 TCF +4
031214,002189: 20,2442 45015 CS BIT15 # NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
031215,002190: 20,2443 70075 MASK FLAGWRD1
031216,002191: 20,2444 54075 TS FLAGWRD1
031217,002192: 20,2445 00003 RELINT
031218,002193: 20,2446 31467 CA DAPDATR2
031219,002194: 20,2447 75017 MASK BIT13
031220,002195: 20,2450 00006 EXTEND
031221,002196: 20,2451 62453 BZMF +2
031222,002197: 20,2452 12454 TCF +2
031223,002198: 20,2453 45033 CS ONE
031224,002199: 20,2454 40000 COM
031225,002200: 20,2455 55630 TS ACORBD # MINUS FOR A-C, PLUS FOR B-D
031226,002201:
031227,002202: 20,2456 31467 CA DAPDATR2
031228,002203: 20,2457 75022 MASK BIT10
031229,002204: 20,2460 10000 CCS A
031230,002205: 20,2461 12465 TCF +4
031231,002206: 20,2462 35033 CA ONE
031232,002207: 20,2463 55626 TS RACFAIL
031233,002208: 20,2464 12475 TCF BDFAIL
031234,002209: 20,2465 35035 CA ZERO
031235,002210: 20,2466 55626 TS RACFAIL
031236,002211: 20,2467 31467 CA DAPDATR2
031237,002212: 20,2470 75030 MASK BIT4
031238,002213: 20,2471 10000 CCS A
031239,002214: 20,2472 12475 TCF BDFAIL
031240,002215: 20,2473 45033 CS ONE
031241,002216: 20,2474 55626 TS RACFAIL
031242,002217: 20,2475 31467 BDFAIL CA DAPDATR2
031243,002218: 20,2476 75025 MASK BIT7
031244,002219: 20,2477 10000 CCS A
031245,002220: 20,2500 12504 TCF +4
031246,002221: 20,2501 35033 CA ONE
031247,002222: 20,2502 55627 TS RBDFAIL
031248,002223: 20,2503 00002 TC Q
031249,002224: 20,2504 35035 CA ZERO
031250,002225: 20,2505 55627 TS RBDFAIL
031251,002226: 20,2506 31467 CA DAPDATR2
031252,002227: 20,2507 75033 MASK BIT1
031253,002228: 20,2510 10000 CCS A
031254,002229: 20,2511 00002 TC Q
031255,002230: 20,2512 45033 CS ONE
031256,002231: 20,2513 55627 TS RBDFAIL
031257,002232: 20,2514 00002 TC Q
031258,002233:
031259,002234: # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
031260,002235:
031261,002236: 42,3606 BANK 42
031262,002237: 42,2000 SETLOC EXTVBS
031263,002238: 42,2000 BANK
031264,002239:
031265,002240: 42,3606 45023 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER
031266,002241: 42,3607 00006 EXTEND
031267,002242: 42,3610 03012 WAND CHAN12
031268,002243: 42,3611 31466 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION
031269,002244: 42,3612 00006 EXTEND
031270,002245: 42,3613 75031 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS
031271,002246: 42,3614 76214 MASK THREE # (IN CASE BIT 15 IS USED)
031272,002247: 42,3615 50000 INDEX A
031273,002248: 42,3616 13617 TCF +1 # BRANCH BASED ON CONFIG....
031274,002249:
031275,002250: 42,3617 13631 TCF NODAPUP # CM.......ACTIVATE NODAP
031276,002251: 42,3620 13624 TCF RCSDAPUP # CSM......ACTIVATE RCSDAP
031277,002252: 42,3621 13624 TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP
031278,002253: 42,3622 04715 TC POSTJUMP
031279,002254: 42,3623 67225 CADR SATSTKON
031280,002255: 42,3624 00004 RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN
031281,002256: 42,3625 04754 TCR IBNKCALL
031282,002257: 42,3626 42036 CADR RCSDAPON
031283,002258: 42,3627 00003 RELINT
031284,002259: 42,3630 13646 TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN
031285,002260: 42,3631 00006 NODAPUP EXTEND # T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
031286,002261: 42,3632 33651 DCA T5IDLDAP
031287,002262: 42,3633 53313 DXCH T5LOC
031288,002263: 42,3634 05574 TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP
031289,002264: 42,3635 00132 ADRES DAPBIT1 # BIT 15 FLAG 6 = 0
031290,002265: 42,3636 05574 TC DOWNFLAG
031291,002266: 42,3637 00133 ADRES DAPBIT2 # BIT 14 FLAG 6 = 0
031292,002267: 42,3640 00004 INHINT
031293,002268: 42,3641 04754 TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN
031294,002269: 42,3642 42644 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
031295,002270: 42,3643 00003 RELINT
031296,002271: 42,3644 35033 CAF BIT1 # KILL KALCMANU JOB
031297,002272: 42,3645 55332 TS HOLDFLAG
031298,002273: 42,3646 04715 ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN
031299,002274: 42,3647 66121 CADR GOPIN
031300,002275: 42,3650 E6,1423 EBANK= PACTOFF
031301,002276: 42,3650 03155 12106 T5IDLDAP 2CADR T5IDLOC
031302,002277:
031303,002278: 42,3652 30,2000 SBANK= LOWSUPER
031304,002279: 17,2060 BANK 17
031305,002280: 20,2000 SETLOC DAPS6
031306,002281: 20,2000 BANK
031307,002282:
031308,002283: 20,2515 00631 DEC409 DEC 409 B-14
031309,002284: 20,2516 00056 DEC46 DEC 46 B-14
031310,002285:
031311,002286:
031312,002287: # CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
031313,002288: 20,2517 31470 S40.14 CAE IXX # RCS ENTRY
031314,002289: 20,2520 00006 EXTEND
031315,002290: 20,2521 72544 MP CONTONE
031316,002291: 20,2522 55623 TS J/M
031317,002292:
031318,002293: 20,2523 31471 CA IAVG
031319,002294: 20,2524 00006 EXTEND
031320,002295: 20,2525 72544 MP CONTONE
031321,002296: 20,2526 55624 TS J/M1
031322,002297:
031323,002298: 20,2527 55625 TS J/M2
031324,002299:
031325,002300: 20,2530 00006 EXTEND
031326,002301: 20,2531 32546 DCA CONTTWO
031327,002302: 20,2532 00006 EXTEND
031328,002303: 20,2533 11470 DV IXX
031329,002304: 20,2534 55620 TS KMJ
031330,002305:
031331,002306: 20,2535 00006 EXTEND
031332,002307: 20,2536 32546 DCA CONTTWO
031333,002308: 20,2537 00006 EXTEND
031334,002309: 20,2540 11471 DV IAVG
031335,002310: 20,2541 55621 TS KMJ1
031336,002311:
031337,002312: 20,2542 55622 TS KMJ2
031338,002313:
031339,002314: 20,2543 00002 TC Q
031340,002315:
031341,002316: 20,2544 25137 CONTONE DEC .662034 # 2PI/M
031342,002317: 20,2545 00023 12522 CONTTWO 2DEC .00118
031343,002318:
031344,002319: 20,2547 COUNT 24/TVNG
031345,002320:
031346,002321: 31,3700 BANK 31
031347,002322: 24,2000 SETLOC P40S
031348,002323: 24,2000 BANK
031349,002324:
031350,002325: 24,3761 37405 POS-2.5 OCT 37405
031351,002326: 24,3762 E6,1466 EBANK= DAPDATR1
031352,002327: 24,3762 02026 42066 RCSCADR 2CADR RCSUP
031353,002328:
031354,002329: 24,3764 37704 6SECT5 OCT 37704
031355,002330: 24,3765 COUNT 21/RCSUP
031356,002331:
031357,002332: 20,2547 BANK 20
031358,002333:
031359,002334: 21,2000 SETLOC DAPS3
031360,002335: 21,2000 BANK
031361,002336:
031362,002337:
031363,002338: 21,2026 22016 RCSUP LXCH BANKRUPT
031364,002339: 21,2027 00006 EXTEND
031365,002340: 21,2030 22012 QXCH QRUPT
031366,002341:
031367,002342: 21,2031 02036 TCR RCSDAPON # ACTIVATE RCS DAP
031368,002343:
031369,002344: 21,2032 15347 TCF RESUME
031370,002345:
031371,002346: 21,2033 E6,1466 EBANK= DAPDATR1
031372,002347: 21,2033 02134 42066 RCSADDR 2CADR RCSATT
031373,002348:
031374,002349: 21,2035 37704 0.6SECT5 OCT 37704
031375,002350:
031376,002351: # RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
031377,002352: 21,2036 32035 RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
031378,002353: 21,2037 54030 +1 TS TIME5 # ENTRY FROM ROOTOPOO
031379,002354: 21,2040 55465 TS T5PHASE # WILL CAUSE FRESHDAP (+1)
031380,002355:
031381,002356: 21,2041 41501 CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR
031382,002357: 21,2042 75031 MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH
031383,002358: 21,2043 27501 ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY)
031384,002359:
031385,002360: 21,2044 00006 EXTEND
031386,002361: 21,2045 32034 DCA RCSADDR # (RCSATT)
031387,002362: 21,2046 53313 DXCH T5LOC
031388,002363:
031389,002364: 21,2047 44105 CS OCT60000 # SET BITS 15,14 TO 01 TO INDICATE
031390,002365: 21,2050 70102 MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP
031391,002366: 21,2051 65016 AD BIT14
031392,002367: 21,2052 54102 TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
031393,002368:
031394,002369: 21,2053 00002 TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
031395,002370:
031396,002371:
End of include-file P40-P47.agc. Parent file is MAIN.agc