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