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