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