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