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