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