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