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