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