Source Code

030294,000001: # Copyright: Public domain. 030295,000002: # Filename: BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc 030296,000003: # Purpose: A section of Luminary 1C, revision 131. 030297,000004: # It is part of the source code for the Lunar Module's (LM) 030298,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 030299,000006: # This file is intended to be a faithful transcription, except 030300,000007: # that the code format has been changed to conform to the 030301,000008: # requirements of the yaYUL assembler rather than the 030302,000009: # original YUL assembler. 030303,000010: # Reference: pp. 730-751 of 1729.pdf. 030304,000011: # Contact: Ron Burkey <info@sandroid.org>. 030305,000012: # Website: www.ibiblio.org/apollo/index.html 030306,000013: # Mod history: 05/24/03 RSB. Began transcribing. 030307,000014: # 05/14/05 RSB Corrected website reference above. 030308,000015: # 2010-10-25 JL Indentation fixes. 030309,000016: # 2011-05-07 JL Removed workarounds. 030310,000017: 030311,000018: # Page 730 030312,000019: # BURN, BABY, BURN -- MASTER IGNITION ROUTINE 030313,000020: 030314,000021: 36,2024 BANK 36 030315,000022: 36,2000 SETLOC P40S 030316,000023: 36,2000 BANK 030317,000024: 36,2024 E7,1455 EBANK= WHICH 030318,000025: 36,2024 COUNT* $$/P40 030319,000026: 030320,000027: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63. 030321,000028: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING 030322,000029: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS 030323,000030: # PROGRAMS THROTTLE UP. 030324,000031: 030325,000032: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR 030326,000033: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE 030327,000034: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER `WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY 030328,000035: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY, 030329,000036: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN. 030330,000037: 030331,000038: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES. 030332,000039: 030333,000040: # HONI SOIT QUI MAL Y PENSE 030334,000041: 030335,000042: # *********************************************** 030336,000043: # TABLES FOR THE IGNITION ROUTINE 030337,000044: # *********************************************** 030338,000045: 030339,000046: # NOI SE TANGERE 030340,000047: 030341,000048: 36,2024 01512 P12TABLE VN 0674 # (0) 030342,000049: 36,2025 12327 TCF ULLGNOT # (1) 030343,000050: 36,2026 12616 TCF COMFAIL3 # (2) 030344,000051: 36,2027 13066 TCF GOCUTOFF # (3) 030345,000052: 36,2030 15261 TCF TASKOVER # (4) 030346,000053: 36,2031 12150 TCF P12SPOT # (5) 030347,000054: 36,2032 00000 DEC 0 B-14 # (6) NO ULLAGE 030348,000055: 36,2033 E7,1455 EBANK= WHICH 030349,000056: 36,2033 03746 64067 2CADR SERVEXIT # (7) 030350,000057: 030351,000058: 36,2035 12402 TCF DISPCHNG # (11) 030352,000059: 36,2036 12567 TCF WAITABIT # (12) 030353,000060: 36,2037 12525 TCF P12IGN # (13) 030354,000061: 030355,000062: 36,2040 01450 P40TABLE VN 0640 # (0) 030356,000063: 36,2041 12327 TCF ULLGNOT # (1) 030357,000064: 36,2042 12620 TCF COMFAIL4 # (2) 030358,000065: 36,2043 13053 TCF GOPOST # (3) 030359,000066: 36,2044 15261 TCF TASKOVER # (4) 030360,000067: 36,2045 12150 TCF P40SPOT # (5) 030361,000068: # Page 731 030362,000069: 36,2046 04300 DEC 2240 B-14 # (6) 030363,000070: 36,2047 E6,1422 EBANK= OMEGAQ 030364,000071: 36,2047 03672 74066 2CADR STEERING # (7) 030365,000072: 030366,000073: 36,2051 12372 TCF P40SJUNK # (11) 030367,000074: 36,2052 12567 TCF WAITABIT # (12) 030368,000075: 36,2053 12510 TCF P40IGN # (13) 030369,000076: 36,2054 13127 TCF REP40ALM # (14) 030370,000077: 030371,000078: 36,2055 12153 P41TABLE TCF P41SPOT # (5) 030372,000079: 36,2056 77776 DEC -1 B-14 # (6) 030373,000080: 36,2057 E6,1422 EBANK= OMEGAQ 030374,000081: 36,2057 03402 74066 2CADR CALCN85 # (7) 030375,000082: 030376,000083: 36,2061 12404 TCF COMMON # (11) 030377,000084: 36,2062 12573 TCF TIGTASK # (12) 030378,000085: 030379,000086: 36,2063 01450 P42TABLE VN 0640 # (0) 030380,000087: 36,2064 12324 TCF WANTAPS # (1) 030381,000088: 36,2065 12620 TCF COMFAIL4 # (2) 030382,000089: 36,2066 13053 TCF GOPOST # (3) 030383,000090: 36,2067 15261 TCF TASKOVER # (4) 030384,000091: 36,2070 12150 TCF P42SPOT # (5) 030385,000092: 36,2071 05120 DEC 2640 B-14 # (6) 030386,000093: 36,2072 E6,1422 EBANK= OMEGAQ 030387,000094: 36,2072 03672 74066 2CADR STEERING # (7) 030388,000095: 030389,000096: 36,2074 12372 TCF P40SJUNK # (11) 030390,000097: 36,2075 12567 TCF WAITABIT # (12) 030391,000098: 36,2076 12545 TCF P42IGN # (13) 030392,000099: 36,2077 13424 TCF P42STAGE # (14) 030393,000100: 030394,000101: 36,2100 01476 P63TABLE VN 0662 # (0) 030395,000102: 36,2101 12327 TCF ULLGNOT # (1) 030396,000103: 36,2102 12616 TCF COMFAIL3 # (2) 030397,000104: 36,2103 13003 TCF V99RECYC # (3) 030398,000105: 36,2104 15261 TCF TASKOVER # (4) 030399,000106: 36,2105 12153 TCF P63SPOT # (5) 030400,000107: 36,2106 04300 DEC 2240 B-14 # (6) 030401,000108: 36,2107 E7,1455 EBANK= WHICH 030402,000109: 36,2107 03746 64067 2CADR SERVEXIT # (7) 030403,000110: 030404,000111: 36,2111 12402 TCF DISPCHNG # (11) 030405,000112: 36,2112 12567 TCF WAITABIT # (12) 030406,000113: # Page 732 030407,000114: 36,2113 12464 TCF P63IGN # (13) 030408,000115: 030409,000116: 36,2114 01477 ABRTABLE VN 0663 # (0) 030410,000117: 36,2115 12327 TCF ULLGNOT # (1) 030411,000118: 36,2116 12616 TCF COMFAIL3 # (2) 030412,000119: 36,2117 13066 TCF GOCUTOFF # (3) 030413,000120: 36,2120 15261 TCF TASKOVER # (4) 030414,000121: 36,2121 12122 NOOP # (5) 030415,000122: 36,2122 12123 NOOP # (6) 030416,000123: 36,2123 12124 NOOP # (7) 030417,000124: 36,2124 12125 NOOP 030418,000125: 36,2125 12402 TCF DISPCHNG # (11) 030419,000126: 36,2126 12567 TCF WAITABIT # (12) 030420,000127: 36,2127 12535 TCF ABRTIGN # (13) 030421,000128: 030422,000129: # ********************************* 030423,000130: # GENERAL PURPOSE IGNITION ROUTINES 030424,000131: # ********************************* 030425,000132: 030426,000133: 36,2130 05353 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE 030427,000134: 36,2131 04024 OCT 04024 030428,000135: 030429,000136: 36,2132 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL 030430,000137: 36,2133 55507 TS DVTOTAL 030431,000138: 36,2134 55510 TS DVTOTAL +1 030432,000139: 030433,000140: 36,2135 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS 030434,000141: 36,2136 73707 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY 030435,000142: 030436,000143: 36,2137 00006 B*RNB*B* EXTEND 030437,000144: 36,2140 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP. 030438,000145: 36,2141 53512 DXCH GOBLTIME # AND FOR P70 OR P71. 030439,000146: 030440,000147: 36,2142 00004 INHINT 030441,000148: 36,2143 04674 TC IBNKCALL 030442,000149: 36,2144 75570 CADR ENGINOF3 030443,000150: 36,2145 00003 RELINT 030444,000151: 030445,000152: 36,2146 51455 INDEX WHICH 030446,000153: 36,2147 10005 TCF 5 030447,000154: 030448,000155: 36,2150 36,2150 P42SPOT = P40SPOT # (5) 030449,000156: 36,2150 36,2150 P12SPOT = P40SPOT # (5) 030450,000157: 36,2150 36,2153 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING 030451,000158: 36,2150 44762 P40SPOT CS CNTDNDEX # (5) 030452,000159: # Page 733 030453,000160: 36,2151 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED 030454,000161: 36,2152 74670 CADR STCLOK2 # RETURN 030455,000162: 36,2153 06042 P41SPOT TC INTPRET # (5) 030456,000163: 36,2154 45345 DLOAD DSU 030457,000164: 36,2155 03442 TIG 030458,000165: 36,2156 35147 D29.9SEC 030459,000166: 36,2157 34041 STCALL TDEC1 030460,000167: 36,2160 61071 INITCDUW 030461,000168: 36,2161 45014 BOFF CALL 030462,000169: 36,2162 03347 MUNFLAG 030463,000170: 36,2163 74202 GOMIDAV 030464,000171: 36,2164 27042 CSMPREC 030465,000172: 36,2165 64375 VLOAD MXV 030466,000173: 36,2166 00025 VATT1 030467,000174: 36,2167 01734 REFSMMAT 030468,000175: 36,2170 77762 VSR1 030469,000176: 36,2171 25726 STOVL V(CSM) # CSM VELOCITY -- M/CS*2(7) 030470,000177: 36,2172 00017 RATT1 030471,000178: 36,2173 64312 VSL4 MXV 030472,000179: 36,2174 01734 REFSMMAT 030473,000180: 36,2175 35720 STCALL R(CSM) # CSM POSITION -- M*2(24) 030474,000181: 36,2176 67067 MUNGRAV 030475,000182: 36,2177 16317 STODL G(CSM) # CSM GRAVITY VEC. -- M/CS*2(7) 030476,000183: 36,2200 00015 TAT 030477,000184: 36,2201 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV. 030478,000185: 36,2202 77624 GOMIDAV CALRB 030479,000186: 36,2203 27553 MIDTOAV1 030480,000187: 36,2204 12213 TCF CALLT-35 # MADE IT IN TIME. 030481,000188: 030482,000189: 36,2205 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9 030483,000190: 36,2206 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID 030484,000191: 36,2207 53442 DXCH TIG # INTEGRATE. 030485,000192: 36,2210 00006 EXTEND 030486,000193: 36,2211 33147 DCA D29.9SEC 030487,000194: 36,2212 21442 DAS TIG 030488,000195: 030489,000196: 36,2213 52155 CALLT-35 DXCH MPAC 030490,000197: 36,2214 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30 030491,000198: 36,2215 00006 EXTEND 030492,000199: 36,2216 43762 DCS 5SECDP 030493,000200: 36,2217 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35 030494,000201: 36,2220 00006 EXTEND 030495,000202: 36,2221 31500 DCA SAVET-30 030496,000203: 36,2222 05277 TC LONGCALL 030497,000204: 36,2223 E7,1453 EBANK= TTOGO 030498,000205: 36,2223 02242 74067 2CADR TIG-35 030499,000206: 030500,000207: 36,2225 05353 TC PHASCHNG 030501,000208: 36,2226 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART. 030502,000209: # Page 734 030503,000210: 36,2227 05321 TC CHECKMM 030504,000211: 36,2230 00077 DEC 63 B-14 030505,000212: 36,2231 15155 TCF ENDOFJOB # NOT P63 030506,000213: 36,2232 44762 CS CNTDNDEX # P63 CAN START DISPLAYING NOW. 030507,000214: 36,2233 55162 TS DISPDEX 030508,000215: 36,2234 06042 TC INTPRET 030509,000216: 36,2235 51575 VLOAD ABVAL 030510,000217: 36,2236 03553 VN1 030511,000218: 36,2237 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY 030512,000219: 36,2240 77776 EXIT 030513,000220: 36,2241 15155 TCF ENDOFJOB 030514,000221: 030515,000222: # ******************************** 030516,000223: 030517,000224: 36,2242 33762 TIG-35 CAF 5SEC 030518,000225: 36,2243 05173 TC TWIDDLE 030519,000226: 36,2244 02300 ADRES TIG-30 030520,000227: 030521,000228: 36,2245 05353 TC PHASCHNG 030522,000229: 36,2246 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART 030523,000230: 030524,000231: 36,2247 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS 030525,000232: 36,2250 55162 TS DISPDEX 030526,000233: 030527,000234: 36,2251 51455 INDEX WHICH 030528,000235: 36,2252 40006 CS 6 # CHECK ULLAGE TIME. 030529,000236: 36,2253 00006 EXTEND 030530,000237: 36,2254 65261 BZMF TASKOVER 030531,000238: 36,2255 33151 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30 030532,000239: 36,2256 05173 TC TWIDDLE 030533,000240: 36,2257 02270 ADRES TIG-30.1 030534,000241: 030535,000242: 36,2260 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN 030536,000243: 36,2261 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO 030537,000244: 36,2262 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE 030538,000245: 36,2262 02265 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41. 030539,000246: 030540,000247: 36,2264 15261 TCF TASKOVER 030541,000248: 030542,000249: 36,2265 04616 P41BLANK TC BANKCALL # BLANK DSKY. 030543,000250: 36,2266 20457 CADR CLEANDSP 030544,000251: 36,2267 15155 TCF ENDOFJOB 030545,000252: 030546,000253: 36,2270 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30 030547,000254: 36,2271 05072 TC NOVAC 030548,000255: 36,2272 E7,1453 EBANK= TTOGO 030549,000256: 36,2272 02275 74067 2CADR TIG-30A 030550,000257: 030551,000258: 36,2274 15261 TCF TASKOVER 030552,000259: # Page 735 030553,000260: 36,2275 33765 TIG-30A CAF V16N85B 030554,000261: 36,2276 04616 TC BANKCALL # RESTORE DISPLAY. 030555,000262: 36,2277 20466 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB 030556,000263: 030557,000264: # ******************************** 030558,000265: 030559,000266: 36,2300 33150 TIG-30 CAF S24.9SEC 030560,000267: 36,2301 05173 TC TWIDDLE 030561,000268: 36,2302 02354 ADRES TIG-5 030562,000269: 030563,000270: 36,2303 44762 CS CNTDNDEX # START UP CLOKTASK AGAIN 030564,000271: 36,2304 55162 TS DISPDEX 030565,000272: 030566,000273: 36,2305 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE -- ON TIME 030567,000274: 36,2306 30006 CAF 6 030568,000275: 36,2307 00006 EXTEND 030569,000276: 36,2310 62327 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO 030570,000277: 36,2311 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART 030571,000278: 36,2312 05173 TC TWIDDLE 030572,000279: 36,2313 02350 ADRES ULLGTASK 030573,000280: 030574,000281: 36,2314 36250 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT) 030575,000282: 36,2315 54001 TS L 030576,000283: 36,2316 46250 CS THREE 030577,000284: 36,2317 52752 DXCH -PHASE1 030578,000285: 36,2320 40025 CS TIME1 030579,000286: 36,2321 55052 TS TBASE1 030580,000287: 030581,000288: 36,2322 51455 INDEX WHICH 030582,000289: 36,2323 10001 TCF 1 030583,000290: 030584,000291: 36,2324 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT 030585,000292: 36,2325 74737 MASK APSFLBIT # WAN'T SET, DAP WILL BE INITIALIZED TO 030586,000293: 36,2326 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS. 030587,000294: 030588,000295: 36,2327 00006 ULLGNOT EXTEND # (1) 030589,000296: 36,2330 51455 INDEX WHICH 030590,000297: 36,2331 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR 030591,000298: 36,2332 53252 DXCH AVEGEXIT 030592,000299: 030593,000300: 36,2333 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2 030594,000301: 36,2334 54001 TS L 030595,000302: 36,2335 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME. 030596,000303: 36,2336 52760 DXCH -PHASE4 030597,000304: 030598,000305: 36,2337 40025 CS TIME1 030599,000306: 36,2340 55060 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART 030600,000307: 030601,000308: 36,2341 00006 REDO2.17 EXTEND 030602,000309: # Page 736 030603,000310: 36,2342 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START 030604,000311: 36,2343 52754 DXCH -PHASE2 # IF NEEDED. 030605,000312: 030606,000313: 36,2344 10762 REDO4.2 CCS PHASE5 # IF SERVICER GOING? 030607,000314: 36,2345 15261 TCF TASKOVER # YES, DON'T START IT UP AGAIN. 030608,000315: 030609,000316: 36,2346 04635 TC POSTJUMP 030610,000317: 36,2347 77410 CADR PREREAD # PREREAD END THIS TASK 030611,000318: 030612,000319: # ********************************* 030613,000320: 030614,000321: 36,2350 02663 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5 030615,000322: 36,2351 05353 TC PHASCHNG 030616,000323: 36,2352 00001 OCT 1 030617,000324: 36,2353 15261 TCF TASKOVER 030618,000325: 030619,000326: # ********************************* 030620,000327: 030621,000328: 36,2354 00006 TIG-5 EXTEND 030622,000329: 36,2355 34755 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE. 030623,000330: 36,2356 52756 DXCH -PHASE3 030624,000331: 030625,000332: 36,2357 33762 CAF 5SEC 030626,000333: 36,2360 05173 TC TWIDDLE 030627,000334: 36,2361 02407 ADRES TIG-0 030628,000335: 030629,000336: 36,2362 05516 TC DOWNFLAG # RESET IGNFLAG AND ASINFLAG 030630,000337: 36,2363 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC. 030631,000338: 36,2364 05516 TC DOWNFLAG 030632,000339: 36,2365 00154 ADRES ASTNFLAG 030633,000340: 36,2366 05516 TC DOWNFLAG 030634,000341: 36,2367 00122 ADRES ZOOMFLAG 030635,000342: 030636,000343: 36,2370 51455 INDEX WHICH 030637,000344: 36,2371 10011 TCF 11 030638,000345: 030639,000346: 36,2372 10756 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS? 030640,000347: 36,2373 12402 TCF DISPCHNG # YES 030641,000348: 030642,000349: 36,2374 34736 CAF PRIO20 030643,000350: 36,2375 05105 TC FINDVAC 030644,000351: 36,2376 E7,1453 EBANK= TTOGO 030645,000352: 36,2376 02540 56067 2CADR S40.13 030646,000353: 030647,000354: 36,2400 05353 TC PHASCHNG # 3.5SPOT FOR S40.13 030648,000355: 36,2401 00053 OCT 00053 030649,000356: # Page 737 030650,000357: 36,2402 44760 DISPCHNG CS VB99DEX # (11) 030651,000358: 36,2403 55162 TS DISPDEX 030652,000359: 36,2404 05353 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT) 030653,000360: 36,2405 40074 OCT 40074 030654,000361: 36,2406 15261 TCF TASKOVER 030655,000362: 030656,000363: # ********************************* 030657,000364: 030658,000365: 36,2407 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED 030659,000366: 36,2410 74737 MASK IGNFLBIT 030660,000367: 36,2411 26103 ADS FLAGWRD7 030661,000368: 030662,000369: 36,2412 05321 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME 030663,000370: 36,2413 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL 030664,000371: 36,2414 12425 TCF IGNYET? 030665,000372: 36,2415 31422 CA ZOOMTIME 030666,000373: 36,2416 05203 TC WAITLIST 030667,000374: 36,2417 E7,1515 EBANK= DVCNTR 030668,000375: 36,2417 03667 72067 2CADR ZOOM 030669,000376: 030670,000377: 36,2421 05327 TC 2PHSCHNG 030671,000378: 36,2422 40033 OCT 40033 030672,000379: 030673,000380: 36,2423 05014 OCT 05014 030674,000381: 36,2424 77777 OCT 77777 030675,000382: 030676,000383: 36,2425 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED 030677,000384: 36,2426 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST? 030678,000385: 36,2427 00006 EXTEND 030679,000386: 36,2430 51455 INDEX WHICH 030680,000387: 36,2431 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET 030681,000388: 030682,000389: 36,2432 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET. 030683,000390: 36,2433 74745 MASK ENGONBIT 030684,000391: 36,2434 26101 ADS FLAGWRD5 030685,000392: 36,2435 44355 CS PRIO30 # TURN ON THE ENGINE. 030686,000393: 36,2436 00006 EXTEND 030687,000394: 36,2437 02011 RAND DSALMOUT 030688,000395: 36,2440 64737 AD BIT13 030689,000396: 36,2441 00006 EXTEND 030690,000397: 36,2442 01011 WRITE DSALMOUT 030691,000398: 36,2443 00006 EXTEND # SET TEVENT FOR DOWNLINK 030692,000399: 36,2444 30025 DCA TIME2 030693,000400: 36,2445 53342 DXCH TEVENT 030694,000401: 030695,000402: 36,2446 44735 CS PULSES # MAKE SURE THAT DAP IS NOT IN MINIMUM. 030696,000403: 36,2447 70111 MASK DAPBOOLS # IMPULSE MODE IN P12,P40,P42, AND P63 030697,000404: 36,2450 54111 TS DAPBOOLS 030698,000405: # Page 738 030699,000406: 36,2451 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13 030700,000407: 36,2452 31517 DCA TGO 030701,000408: 36,2453 53442 DXCH TIG 030702,000409: 36,2454 00006 EXTEND 030703,000410: 36,2455 30025 DCA TIME2 030704,000411: 36,2456 21442 DAS TIG 030705,000412: 030706,000413: 36,2457 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS 030707,000414: 36,2460 70104 MASK FLAGWRD8 030708,000415: 36,2461 54104 TS FLAGWRD8 030709,000416: 030710,000417: 36,2462 51455 INDEX WHICH 030711,000418: 36,2463 10013 TCF 13 030712,000419: 030713,000420: 36,2464 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS 030714,000421: 36,2465 33143 DCA LUNLANAD 030715,000422: 36,2466 53252 DXCH AVGEXIT 030716,000423: 030717,000424: 36,2467 30005 CA Z # ASSASSINATE CLOKTASK 030718,000425: 36,2470 55162 TS DISPDEX 030719,000426: 030720,000427: 36,2471 40105 CS FLAGWRD9 # SET SWANDISP TO ENABLE R10. 030721,000428: 36,2472 74743 MASK LETABBIT 030722,000429: 36,2473 26105 ADS FLAGWRD9 030723,000430: 030724,000431: 36,2474 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10. 030725,000432: 36,2475 74741 MASK SWANDBIT 030726,000433: 36,2476 26103 ADS FLAGWRD7 030727,000434: 030728,000435: 36,2477 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71. 030729,000436: 36,2500 30025 DCA TIME2 030730,000437: 36,2501 53442 DXCH TIG 030731,000438: 030732,000439: 36,2502 34755 CAF ZERO # INITIALIZE WCHPHASE, AND FLPASS0 030733,000440: 36,2503 55346 TS WCHPHASE 030734,000441: 36,2504 55621 TS WCHPHOLD # ALSO WHCPHOLD 030735,000442: 36,2505 34752 CA TWO 030736,000443: 36,2506 55623 TS FLPASS0 030737,000444: 030738,000445: 36,2507 12545 TCF P42IGN 030739,000446: 36,2510 40101 P40IGN CS FLAGWRD5 # (13) 030740,000447: 36,2511 74740 MASK NOTHRBIT 030741,000448: 36,2512 00006 EXTEND 030742,000449: 36,2513 12545 BZF P42IGN 030743,000450: 36,2514 31422 CA ZOOMTIME 030744,000451: 36,2515 05203 TC WAITLIST 030745,000452: 36,2516 E7,1515 EBANK= DVCNTR 030746,000453: 36,2516 03667 72067 2CADR ZOOM 030747,000454: 030748,000455: 36,2520 05327 P63IGN1 TC 2PHSCHNG 030749,000456: # Page 739 030750,000457: 36,2521 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART. 030751,000458: 36,2522 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY 030752,000459: 36,2523 77777 OCT 77777 030753,000460: 030754,000461: 36,2524 12545 TCF P42IGN 030755,000462: 36,2525 35015 P12IGN CAF EBANK6 030756,000463: 36,2526 54003 TS EBANK 030757,000464: 36,2527 E6,1536 EBANK= AOSQ 030758,000465: 030759,000466: 36,2527 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION 030760,000467: 36,2530 55536 TS AOSQ # ESTIMATES AT P12 IGNITION. 030761,000468: 36,2531 31413 CA IGNAOSR 030762,000469: 36,2532 55540 TS AOSR 030763,000470: 030764,000471: 36,2533 35016 CAF EBANK7 030765,000472: 36,2534 54003 TS EBANK 030766,000473: 36,2535 E7,1515 EBANK= DVCNTR 030767,000474: 030768,000475: 36,2535 30005 ABRTIGN CA Z # (13) KILL CLOKTASK 030769,000476: 36,2536 55162 TS DISPDEX 030770,000477: 030771,000478: 36,2537 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER. 030772,000479: 36,2540 33145 DCA ATMAGADR 030773,000480: 36,2541 53252 DXCH AVGEXIT 030774,000481: 030775,000482: 36,2542 40103 CS FLAGWRD7 # ENABLE R10. 030776,000483: 36,2543 74741 MASK SWANDBIT 030777,000484: 36,2544 26103 ADS FLAGWRD7 030778,000485: 030779,000486: 36,2545 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING 030780,000487: 36,2546 70111 MASK DAPBOOLS # CURVES ARE USED. 030781,000488: 36,2547 54111 TS DAPBOOLS 030782,000489: 36,2550 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH 030783,000490: 36,2551 70076 MASK FLAGWRD2 030784,000491: 36,2552 10000 CCS A 030785,000492: 36,2553 13526 TCF IMPLBURN 030786,000493: 030787,000494: 36,2554 05516 DVMONCON TC DOWNFLAG 030788,000495: 36,2555 00153 ADRES IGNFLAG # CONNECT DVMON 030789,000496: 36,2556 05516 TC DOWNFLAG 030790,000497: 36,2557 00154 ADRES ASTNFLAG 030791,000498: 36,2560 05516 TC DOWNFLAG 030792,000499: 36,2561 00161 ADRES IDLEFLAG 030793,000500: 030794,000501: 36,2562 05353 TC PHASCHNG 030795,000502: 36,2563 40054 OCT 40054 030796,000503: 030797,000504: 36,2564 05221 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER 030798,000505: 36,2565 00062 DEC 50 B-14 # LIGHT UP. 030799,000506: # Page 740 030800,000507: 36,2566 02657 ULLAGOFF TC NOULLAGE 030801,000508: 030802,000509: 36,2567 00006 WAITABIT EXTEND # KILL GROUP 4 030803,000510: 36,2570 34755 DCA NEG0 030804,000511: 36,2571 52760 DXCH -PHASE4 030805,000512: 030806,000513: 36,2572 15261 TCF TASKOVER 030807,000514: 030808,000515: 36,2573 04635 TIGTASK TC POSTJUMP # (12) 030809,000516: 36,2574 73656 CADR TIGTASK1 030810,000517: 030811,000518: # ******************************** 030812,000519: 030813,000520: 31,2144 BANK 31 030814,000521: 35,2000 SETLOC P40S3 030815,000522: 35,2000 BANK 030816,000523: 35,3656 COUNT* $$/P40 030817,000524: 030818,000525: 35,3656 35026 TIGTASK1 CAF PRIO16 030819,000526: 35,3657 05072 TC NOVAC 030820,000527: 35,3660 E7,1462 EBANK= TRKMKCNT 030821,000528: 35,3660 03245 74067 2CADR TIGNOW 030822,000529: 030823,000530: 35,3662 05516 TC DOWNFLAG 030824,000531: 35,3663 00303 ADRES PULSEFLG 030825,000532: 030826,000533: 35,3664 05353 TC PHASCHNG 030827,000534: 35,3665 00006 OCT 6 # KILL GROUP 6 030828,000535: 030829,000536: 35,3666 15261 TCF TASKOVER 030830,000537: 030831,000538: # ******************************** 030832,000539: 030833,000540: 35,3667 05321 ZOOM TC CHECKMM # P40 DR P637 030834,000541: 35,3670 00077 DEC 63 B-14 030835,000542: 35,3671 13677 TCF P40ZOOM 030836,000543: 030837,000544: 35,3672 05504 P63ZOOM TC UPFLAG # INDICATE THAT THROTTLE-UP HAS COME 030838,000545: 35,3673 00122 ADRES ZOOMFLAG 030839,000546: 030840,000547: 35,3674 04674 TC IBNKCALL 030841,000548: 35,3675 62327 CADR FLATOUT 030842,000549: 35,3676 13704 TCF P40ZOOMA 030843,000550: 030844,000551: 35,3677 34737 P40ZOOM CAF BIT13 030845,000552: 35,3700 54055 TS THRUST 030846,000553: 35,3701 34750 CAF BIT4 030847,000554: 030848,000555: # Page 741 030849,000556: 35,3702 00006 EXTEND 030850,000557: 35,3703 05014 WOR CHAN14 030851,000558: 030852,000559: 35,3704 05353 P40ZOOMA TC PHASCHNG 030853,000560: 35,3705 00003 OCT 3 030854,000561: 35,3706 15261 TCF TASKOVER 030855,000562: 030856,000563: 36,2575 BANK 36 030857,000564: 36,2000 SETLOC P40S 030858,000565: 36,2000 BANK 030859,000566: 36,2575 COUNT* $$/P40 030860,000567: 030861,000568: # ******************************** 030862,000569: 030863,000570: 36,2575 05504 COMFAIL TC UPFLAG # (15) 030864,000571: 36,2576 00161 ADRES IDLEFLAG 030865,000572: 36,2577 05504 TC UPFLAG # SET FLAG TO SUPRESS CONFLICTING DISPLAY 030866,000573: 36,2600 00175 ADRES FLUNDISP 030867,000574: 36,2601 34751 CAF FOUR # RESET DVMON 030868,000575: 36,2602 55515 TS DVCNTR 030869,000576: 36,2603 10764 CCS PHASE6 # CLOCKTASK ACTIVE? 030870,000577: 36,2604 12607 TCF +3 # YES 030871,000578: 36,2605 04616 TC BANKCALL # OTHERWISE, START IT UP 030872,000579: 36,2606 74667 CADR STCLOK1 030873,000580: 36,2607 44765 +3 CS VB97DEX 030874,000581: 36,2610 55162 TS DISPDEX 030875,000582: 36,2611 05353 TC PHASCHNG # TURN OFF GROUP 4. 030876,000583: 36,2612 00004 OCT 00004 030877,000584: 36,2613 15155 TCF ENDOFJOB 030878,000585: 030879,000586: 36,2614 51455 COMFAIL1 INDEX WHICH 030880,000587: 36,2615 10002 TCF 2 030881,000588: 030882,000589: 36,2616 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z 030883,000590: 36,2617 12621 TCF +2 030884,000591: 030885,000592: 36,2620 44762 COMFAIL4 CS CNTDNDEX 030886,000593: 36,2621 55162 TS DISPDEX 030887,000594: 030888,000595: 36,2622 05516 TC DOWNFLAG # RECONNECT DV MONITOR 030889,000596: 36,2623 00161 ADRES IDLEFLAG 030890,000597: 36,2624 05516 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS 030891,000598: 36,2625 00175 ADRES FLUNDISP 030892,000599: 36,2626 15155 TCF ENDOFJOB 030893,000600: 030894,000601: 36,2627 05353 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION 030895,000602: 36,2630 00003 OCT 00003 030896,000603: 030897,000604: # Page 742 030898,000605: 36,2631 00004 INHINT 030899,000606: 36,2632 06032 TC KILLTASK # KILL ZOOM IN CASE IT'S STILL TO COME 030900,000607: 36,2633 73667 CADR ZOOM 030901,000608: 36,2634 04674 TC IBNKCALL # COMMAND ENGINE OFF 030902,000609: 36,2635 75565 CADR ENGINOF4 030903,000610: 36,2636 05504 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP. 030904,000611: 36,2637 00312 ADRES DRIFTDFL 030905,000612: 36,2640 02651 TC INVFLAG # USE OTHER RCS SYSTEM 030906,000613: 36,2641 00310 ADRES AORBTFLG 030907,000614: 36,2642 05504 TC UPFLAG # TURN ON ULLAGE 030908,000615: 36,2643 00314 ADRES ULLAGFLG 030909,000616: 36,2644 34753 CAF BIT1 030910,000617: 36,2645 00004 INHINT 030911,000618: 36,2646 05173 TC TWIDDLE 030912,000619: 36,2647 02354 ADRES TIG-5 030913,000620: 36,2650 15155 TCF ENDOFJOB 030914,000621: 030915,000622: # *********************************** 030916,000623: # SUBROUTINES OF THE IGNITION ROUTINE 030917,000624: # *********************************** 030918,000625: 030919,000626: 36,2651 30002 INVFLAG CA Q 030920,000627: 36,2652 05522 TC DEBIT 030921,000628: 36,2653 40000 COM 030922,000629: 36,2654 00006 EXTEND 030923,000630: 36,2655 06001 RXOR LCHAN 030924,000631: 36,2656 15511 TCF COMFLAG 030925,000632: 030926,000633: # *********************************** 030927,000634: 030928,000635: 36,2657 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT 030929,000636: 36,2660 70111 MASK DAPBOOLS 030930,000637: 36,2661 54111 TS DAPBOOLS 030931,000638: 36,2662 00002 TC Q 030932,000639: 030933,000640: # *********************************** 030934,000641: 030935,000642: 36,2663 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN 030936,000643: 36,2664 74746 MASK ULLAGER # A TASK OR WHILE INHINTED. 030937,000644: 36,2665 26111 ADS DAPBOOLS 030938,000645: 36,2666 00002 TC Q 030939,000646: 030940,000647: # *********************************** 030941,000648: 030942,000649: 36,2667 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN 030943,000650: 36,2670 55162 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING 030944,000651: # Page 743 030945,000652: 36,2671 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT. 030946,000653: 36,2672 55060 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS). 030947,000654: 36,2673 00006 EXTEND 030948,000655: 36,2674 31442 DCA TIG 030949,000656: 36,2675 52155 DXCH MPAC 030950,000657: 36,2676 00006 EXTEND 030951,000658: 36,2677 40025 DCS TIME2 030952,000659: 36,2700 20155 DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER 030953,000660: 36,2701 07262 TC TPAGREE # POSITIVE, SINCE WE PASSED THE 030954,000661: 36,2702 34777 CAF 1SEC # 45 SECOND CHECK. 030955,000662: 36,2703 54002 TS Q 030956,000663: 36,2704 52155 DXCH MPAC 030957,000664: 36,2705 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A 030958,000665: 36,2706 00006 EXTEND 030959,000666: 36,2707 10002 DV Q 030960,000667: 36,2710 30001 CA L # GET REMAINDER 030961,000668: 36,2711 64752 AD TWO 030962,000669: 36,2712 00004 INHINT 030963,000670: 36,2713 05173 TC TWIDDLE 030964,000671: 36,2714 02723 ADRES CLOKTASK 030965,000672: 36,2715 05327 TC 2PHSCHNG 030966,000673: 36,2716 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK 030967,000674: 36,2717 05024 OCT 05024 030968,000675: 36,2720 13000 OCT 13000 030969,000676: 030970,000677: 36,2721 31060 CA TBASE4 030971,000678: 36,2722 04640 TC BANKJUMP 030972,000679: 030973,000680: 36,2723 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART 030974,000681: 36,2724 55064 TS TBASE6 030975,000682: 030976,000683: 36,2725 11162 CCS DISPDEX 030977,000684: 36,2726 12737 TCF KILLCLOK 030978,000685: 36,2727 12730 NOOP 030979,000686: 36,2730 37720 CAF PRIO27 030980,000687: 36,2731 05072 TC NOVAC 030981,000688: 36,2732 E7,1453 EBANK= TTOGO 030982,000689: 36,2732 02743 74067 2CADR CLOKJOB 030983,000690: 030984,000691: 36,2734 05221 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER 030985,000692: 36,2735 00144 DEC 100 B-14 030986,000693: 36,2736 12723 TCF CLOKTASK 030987,000694: 030988,000695: 36,2737 00006 KILLCLOK EXTEND # KILL RESTART 030989,000696: 36,2740 34755 DCA NEG0 030990,000697: 36,2741 52764 DXCH -PHASE6 030991,000698: # Page 744 030992,000699: 36,2742 15261 TCF TASKOVER 030993,000700: 030994,000701: 36,2743 00006 CLOKJOB EXTEND 030995,000702: 36,2744 41442 DCS TIG 030996,000703: 36,2745 53454 DXCH TTOGO 030997,000704: 36,2746 00006 EXTEND 030998,000705: 36,2747 30025 DCA TIME2 030999,000706: 36,2750 21454 DAS TTOGO 031000,000707: 36,2751 00004 INHINT 031001,000708: 36,2752 11162 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A 031002,000709: 36,2753 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE 031003,000710: 36,2754 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN 031004,000711: 36,2755 40000 COM # INDEX. 031005,000712: 36,2756 00003 RELINT # ***** DISPDEX MUST NEVER B -0 ***** 031006,000713: 36,2757 50000 INDEX A 031007,000714: 36,2760 13015 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS) 031008,000715: 031009,000716: 36,2761 4765 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX 031010,000717: 031011,000718: 36,2761 44755 -35 CS ZERO # INDICATE VERB 97 PASTE 031012,000719: 36,2762 55066 TS NVWORD1 031013,000720: 36,2763 30371 CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN 031014,000721: 36,2764 04616 TC BANKCALL 031015,000722: 36,2765 20474 CADR CLOCPLAY 031016,000723: 36,2766 13017 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H 031017,000724: 36,2767 12614 TCF COMFAIL1 031018,000725: 36,2770 12627 TCF COMFAIL2 031019,000726: 031020,000727: # THIS DISPLAY IS CALLED VIA ASTNCLOK 031021,000728: 36,2771 33152 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63 031022,000729: 36,2772 04616 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH 031023,000730: 36,2773 20460 CADR REFLASH # TIG. 031024,000731: 36,2774 13017 TCF STOPCLOK 031025,000732: 36,2775 13034 TCF ASTNRETN 031026,000733: 36,2776 12771 TCF -5 031027,000734: 031028,000735: 36,2777 4762 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX 031029,000736: 031030,000737: 36,2777 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND 031031,000738: 36,3000 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED 031032,000739: 36,3001 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS 031033,000740: 36,3002 20466 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB 031034,000741: 031035,000742: 36,3003 4760 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX 031036,000743: 031037,000744: 36,3003 V99RECYC EQUALS 031038,000745: 031039,000746: 36,3003 44743 -13 CS BIT9 # INDICATE VERB 99 PASTE 031040,000747: 36,3004 55066 TS NVWORD1 031041,000748: # Page 745 031042,000749: 36,3005 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE" 031043,000750: 36,3006 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC. 031044,000751: 36,3007 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS 031045,000752: 36,3010 20474 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED 031046,000753: 36,3011 13017 TCF STOPCLOK # TERMINATE GOTOP00H TURNS OFF ULLAGE. 031047,000754: 36,3012 13045 TCF *PROCEED 031048,000755: 36,3013 13050 TCF *ENTER 031049,000756: 031050,000757: 36,3014 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX 031051,000758: 031052,000759: 36,3014 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR 031053,000760: 36,3015 20457 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT 031054,000761: 36,3016 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING. 031055,000762: 031056,000763: 36,3017 03021 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE 031057,000764: 36,3020 16001 TCF GOTOP00H # WAY TO P00 (GOTOP00H RELINTS) 031058,000765: 031059,000766: 36,3021 00004 NULLCLOK INHINT 031060,000767: 36,3022 00006 EXTEND 031061,000768: 36,3023 23141 QXCH P40/RET 031062,000769: 36,3024 02657 TC NOULLAGE # TURN OFF ULLAGE ... 031063,000770: 36,3025 06032 TC KILLTASK # DON'T LET IT COME ON, EITHER ... 031064,000771: 36,3026 74350 CADR ULLGTASK 031065,000772: 36,3027 05353 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART. 031066,000773: 36,3030 00001 OCT 1 031067,000774: 36,3031 30005 CA Z # KILL CLOKTASK 031068,000775: 36,3032 55162 TS DISPDEX 031069,000776: 36,3033 01141 TC P40/RET 031070,000777: 031071,000778: 36,3034 05353 ASTNRETN TC PHASCHNG 031072,000779: 36,3035 04024 OCT 04024 031073,000780: 36,3036 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING 031074,000781: 36,3037 55162 TS DISPDEX 031075,000782: 36,3040 35023 CAF PRIO13 031076,000783: 36,3041 05105 TC FINDVAC 031077,000784: 36,3042 E5,1757 EBANK= STARIND 031078,000785: 36,3042 03212 64065 2CADR ASTNRET 031079,000786: 031080,000787: 36,3044 15155 TCF ENDOFJOB 031081,000788: 031082,000789: 36,3045 05504 *PROCEED TC UPFLAG 031083,000790: 36,3046 00154 ADRES ASTNFLAG 031084,000791: 031085,000792: 36,3047 13106 TCF IGNITE 031086,000793: 031087,000794: 36,3050 00004 *ENTER INHINT 031088,000795: # Page 746 031089,000796: 36,3051 51455 INDEX WHICH 031090,000797: 36,3052 10003 TCF 3 031091,000798: 031092,000799: 36,3053 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB 031093,000800: 36,3054 05105 TC FINDVAC 031094,000801: 36,3055 E7,1453 EBANK= TTOGO 031095,000802: 36,3055 03227 74067 2CADR POSTBURN 031096,000803: 031097,000804: 36,3057 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT. 031098,000805: 36,3060 04674 TC IBNKCALL 031099,000806: 36,3061 40205 CADR ALLCOAST 031100,000807: 36,3062 03021 TC NULLCLOK 031101,000808: 36,3063 05353 TC PHASCHNG # 4.13 RESTART FOR POSTBURN 031102,000809: 36,3064 00134 OCT 00134 031103,000810: 031104,000811: 36,3065 15155 TCF ENDOFJOB 031105,000812: 031106,000813: 36,3066 35027 GOCUTOFF CAF PRIO17 # (3) 031107,000814: 36,3067 05105 TC FINDVAC 031108,000815: 36,3070 E7,1516 EBANK= TGO 031109,000816: 36,3070 02416 30067 2CADR CUTOFF 031110,000817: 031111,000818: 36,3072 05516 TC DOWNFLAG 031112,000819: 36,3073 00175 ADRES FLUNDISP 031113,000820: 031114,000821: 36,3074 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT. 031115,000822: 36,3075 04674 TC IBNKCALL 031116,000823: 36,3076 40205 CADR ALLCOAST 031117,000824: 36,3077 03021 TC NULLCLOK 031118,000825: 36,3100 05353 TC PHASCHNG 031119,000826: 36,3101 07024 OCT 07024 031120,000827: 36,3102 17000 OCT 17000 031121,000828: 36,3103 E7,1516 EBANK= TGO 031122,000829: 36,3103 02416 30067 2CADR CUTOFF 031123,000830: 031124,000831: 36,3105 15155 TCF ENDOFJOB 031125,000832: 031126,000833: 36,3106 40103 IGNITE CS FLAGWRD7 # (2) 031127,000834: 36,3107 74737 MASK IGNFLBIT 031128,000835: 36,3110 10000 CCS A 031129,000836: 36,3111 13122 TCF IGNITE1 031130,000837: 36,3112 34753 CAF BIT1 031131,000838: 36,3113 00004 INHINT 031132,000839: 36,3114 05173 TC TWIDDLE 031133,000840: 36,3115 02432 ADRES IGNITION 031134,000841: 031135,000842: 36,3116 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION 031136,000843: # Page 747 031137,000844: 36,3117 54001 TS L 031138,000845: 36,3120 40000 COM 031139,000846: 36,3121 52760 DXCH -PHASE4 031140,000847: 031141,000848: 36,3122 44762 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY. 031142,000849: 36,3123 55162 TS DISPDEX 031143,000850: 031144,000851: 36,3124 15155 TCF ENDOFJOB 031145,000852: 031146,000853: # ******************************** 031147,000854: 031148,000855: 36,3125 05567 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH 031149,000856: 36,3126 01706 OCT 1706 # VEHICLE CONFIGURATION 031150,000857: 031151,000858: 36,3127 35006 REP40ALM CAF V05N09 # (14) 031152,000859: 36,3130 04616 TC BANKCALL 031153,000860: 36,3131 20477 CADR GOFLASH 031154,000861: 031155,000862: 36,3132 16001 TCF GOTOP00H # V34E TERMINATE 031156,000863: 36,3133 13135 TCF +2 # PROCEED CHECK FOR P42 031157,000864: 36,3134 13127 TCF REP40ALM # V32E REDISPLAY ALARM 031158,000865: 031159,000866: 36,3135 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PRECEED EVEN 031160,000867: 36,3136 10014 TCF 14 # THOUGH VEHICLE IS UNSTAGED. 031161,000868: 031162,000869: # ******************************** 031163,000870: 031164,000871: 31,2144 BANK 31 031165,000872: 35,2000 SETLOC P40S2 031166,000873: 35,2000 BANK 031167,000874: 031168,000875: 35,3707 COUNT* $$/P40 031169,000876: 031170,000877: 35,3707 04645 P40AUTO TC MAKECADR # HELLO THERE. 031171,000878: 35,3710 55163 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS. 031172,000879: 35,3711 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL 031173,000880: 35,3712 54261 CADR G+N,AUTO # AND AUTO STABILIZATION MODES 031174,000881: 35,3713 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO 031175,000882: 35,3714 13726 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO 031176,000883: 35,3715 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE? 031177,000884: 35,3716 70106 MASK FLGWRD10 031178,000885: 35,3717 10000 CCS A 031179,000886: 35,3720 13733 TCF GOBACK # RETURN 031180,000887: 35,3721 34747 CAF BIT5 # YES, CHECK FOR AUTO-THROTTLE MODE 031181,000888: 35,3722 00006 EXTEND 031182,000889: 35,3723 02030 RAND CHAN30 031183,000890: 35,3724 00006 EXTEND 031184,000891: 35,3725 13733 BZF GOBACK # IN AUTO-THROTTLE MODE -- RETURN 031185,000892: # Page 748 031186,000893: 35,3726 33735 TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM 031187,000894: 35,3727 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC. 031188,000895: 35,3730 20624 CADR GOPERF1 031189,000896: 35,3731 16001 TCF GOTOP00H # V34E TERMINATE 031190,000897: 35,3732 13711 TCF P40A/P # RECYCLE 031191,000898: 35,3733 31163 GOBACK CA TEMPR60 031192,000899: 35,3734 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON. 031193,000900: 031194,000901: 35,3735 00203 P40A/PMD OCT 00203 031195,000902: 031196,000903: 36,3137 BANK 36 031197,000904: 36,2000 SETLOC P40S 031198,000905: 36,2000 BANK 031199,000906: 031200,000907: 36,3137 COUNT* $$/P40 031201,000908: 031202,000909: # ********************************** 031203,000910: # CONSTANTS FOR THE IGNITION ROUTINE 031204,000911: # ********************************** 031205,000912: 031206,000913: 36,3137 36,2107 SERVCADR = P63TABLE +7 031207,000914: 36,3137 02040 P40ADRES ADRES P40TABLE 031208,000915: 36,3140 02050 P41ADRES ADRES P41TABLE -5 031209,000916: 36,3141 02063 P42ADRES ADRES P42TABLE 031210,000917: 031211,000918: 36,3142 E7,1515 EBANK= DVCNTR 031212,000919: 36,3142 02423 62067 LUNLANAD 2CADR LUNLAND 031213,000920: 031214,000921: 36,3144 E7,1515 EBANK= DVCNTR 031215,000922: 36,3144 03372 70067 ATMAGADR 2CADR ATMAG 031216,000923: 031217,000924: 36,3146 6001 ? = GOTOP00H 031218,000925: 031219,000926: 36,3146 00000 05656 D29.9SEC 2DEC 2990 B-28 031220,000927: 031221,000928: 36,3150 04672 S24.9SEC DEC 2490 B-14 031222,000929: 031223,000930: 36,3151 00752 4.9SEC DEC 490 B-14 031224,000931: 031225,000932: 36,3152 4747 OCT20 = BIT5 031226,000933: 031227,000934: # Page 749 031228,000935: 36,3152 01475 V06N61 VN 0661 031229,000936: 031230,000937: # Page 750 031231,000938: # KILLTASK 031232,000939: # MOD NO: NEW PROGRAM 031233,000940: # MOD BY: COVELLI 031234,000941: 031235,000942: # FUNCTIONAL DESCRIPTION: 031236,000943: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED `NULLTASK' (OF COURSE), 031237,000944: # WHICH MEARELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR 031238,000945: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK 031239,000946: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT 031240,000947: 031241,000948: # CALLING SEQUENCE 031242,000949: # L TC KILLTASK # IN FIXED-FIXED 031243,000950: # L+1 CADR ???????? # CADR (NOT 2CADR) OF TASK TO BE REMOVED. 031244,000951: # L+2 (RELINT) # RETURN 031245,000952: 031246,000953: # EXIT MODE: AT L+2 OF CALLING SEQUENCE. 031247,000954: 031248,000955: # ERASABLE INITIALIZATION: NONE. 031249,000956: 031250,000957: # OUTPUT: 2CADR OF NULLTASK IN LST2 031251,000958: 031252,000959: # DEBRIS: ITEMP1 - ITEMP4, A, L, Q. 031253,000960: 031254,000961: 36,3153 E3,1410 EBANK= LST2 031255,000962: 6032 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED. 031256,000963: 6000 SETLOC FFTAG6 031257,000964: 6000 BANK 031258,000965: 6032 COUNT* $$/KILL 031259,000966: 6032 36041 KILLTASK CA KILLBB 031260,000967: 6033 00004 INHINT 031261,000968: 6034 22000 LXCH A 031262,000969: 6035 50002 INDEX Q 031263,000970: 6036 30000 CA 0 # GET CADR. 031264,000971: 6037 22006 LXCH BBANK 031265,000972: 6040 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED. 031266,000973: 031267,000974: 6041 E3,1410 EBANK= LST2 031268,000975: 6041 56063 KILLBB BBCON KILLTSK2 031269,000976: 031270,000977: 27,2200 BANK 27 031271,000978: 031272,000979: 27,2000 SETLOC P40S1 031273,000980: 27,2000 BANK 031274,000981: 27,2200 COUNT* $$/KILL 031275,000982: 031276,000983: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK 031277,000984: # Page 751 031278,000985: 27,2201 24002 INCR Q 031279,000986: 27,2202 00006 EXTEND 031280,000987: 27,2203 22061 QXCH ITEMP1 # RETURN 2ADR IN ITEMP1,ITEMP2 031281,000988: 031282,000989: 27,2204 54063 TS ITEMP3 # CADR IS IN A 031283,000990: 27,2205 75012 MASK LOW10 031284,000991: 27,2206 64741 AD BIT11 031285,000992: 27,2207 54064 TS ITEMP4 # GENADR OF TASK 031286,000993: 031287,000994: 27,2210 45012 CS LOW10 031288,000995: 27,2211 70063 MASK ITEMP3 031289,000996: 27,2212 54063 TS ITEMP3 # FBANK OF TASK 031290,000997: 031291,000998: 27,2213 22007 ZL 031292,000999: 27,2214 50001 ADRSCAN INDEX L 031293,001000: 27,2215 41410 CS LST2 031294,001001: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS 031295,001002: 27,2217 00006 EXTEND 031296,001003: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS 031297,001004: 27,2221 44747 LETITLIV CS LSTLIM 031298,001005: 27,2222 60001 AD L 031299,001006: 27,2223 00006 EXTEND # ARE WE DONE? 031300,001007: 27,2224 12230 BZF DEAD # YES -- DONE, SO RETURN 031301,001008: 27,2225 24001 INCR L 031302,001009: 27,2226 24001 INCR L 031303,001010: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP. 031304,001011: 031305,001012: 27,2230 52062 DEAD DXCH ITEMP1 031306,001013: 27,2231 52006 DTCB 031307,001014: 031308,001015: 27,2232 45012 TSTFBANK CS LOW10 031309,001016: 27,2233 50001 INDEX L 031310,001017: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY. 031311,001018: 27,2235 00006 EXTEND 031312,001019: 27,2236 60063 SU ITEMP3 031313,001020: 27,2237 00006 EXTEND 031314,001021: 27,2240 12242 BZF KILLDEAD # MATCH -- KILL IT. 031315,001022: 27,2241 12221 TCF LETITLIV # NO MATCH -- CONTINUE. 031316,001023: 031317,001024: 27,2242 34353 KILLDEAD CA TCTSKOVR 031318,001025: 27,2243 50001 INDEX L 031319,001026: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER 031320,001027: 27,2245 12230 TCF DEAD 031321,001028: 031322,001029: 27,2246 4747 LSTLIM EQUALS BIT5 # DEC 16 End of include-file BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc