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