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