Source Code
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
028542,000002: ## Copyright: Public domain.
028543,000003: ## Filename: BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
028544,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
028545,000005: ## as closely as possible with available information. Sundance
028546,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
028547,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
028548,000008: ## using the mixed-revision SundanceXXX as a starting point, and
028549,000009: ## pulling back features from Luminary 69 believed to have been
028550,000010: ## added based on memos, checklists, observed address changes,
028551,000011: ## or the Sundance GSOPs.
028552,000012: ## Assembler: yaYUL
028553,000013: ## Contact: Ron Burkey <info@sandroid.org>.
028554,000014: ## Website: www.ibiblio.org/apollo/index.html
028555,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
028556,000016: ## 2020-07-29 MAS Added a custom implementation of TIGINT.
028557,000017:
028558,000018:
028559,000019: 36,2000 BANK 36
028560,000020: 36,2000 SETLOC P40S
028561,000021: 36,2000 BANK
028562,000022: 36,2000 E7,1430 EBANK= WHICH
028563,000023: 36,2000 COUNT* $$/P40
028564,000024: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
028565,000025: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
028566,000026: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
028567,000027: # PROGRAMS THROTTLE UP.
028568,000028:
028569,000029: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
028570,000030: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
028571,000031: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
028572,000032: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
028573,000033: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
028574,000034:
028575,000035: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
028576,000036:
028577,000037:
028578,000038: # HONI SOIT QUI MAL Y PENSE
028579,000039:
028580,000040:
028581,000041: # ****************************************
028582,000042: # TABLES FOR THE IGNITION ROUTINE
028583,000043: # ****************************************
028584,000044:
028585,000045: # NOLI SE TANGERE
028586,000046:
028587,000047: 36,2000 01512 P12TABLE VN 0674 # (0)
028588,000048: 36,2001 01512 VN 0674 # (1)
028589,000049: 36,2002 13023 TCF IGNITE # (2)
028590,000050: 36,2003 14106 TCF GOTOPOOH # (3)
028591,000051: 36,2004 12161 TCF TOOLATE # (4)
028592,000052: 36,2005 12212 TCF P12SPOT # (5)
028593,000053: 36,2006 00000 DEC 0 B-14 # (6) NO ULLAGE
028594,000054: 36,2007 E7,1472 EBANK= DVCNTR
028595,000055: 36,2007 02213 60067 2CADR ATMAG # (7)
028596,000056: 36,2011 12423 TCF DISPCHNG # (11)
028597,000057: 36,2012 12553 TCF WAITABIT # (12)
028598,000058: 36,2013 12525 TCF P12IGN # (13)
028599,000059: 36,2014 15331 TCF TASKOVER # (14)
028600,000060: 36,2015 12610 TCF COMFAIL2 # (15)
028601,000061:
028602,000062:
028603,000063:
028604,000064: 36,2016 01450 P40TABLE VN 0640 # (0)
028605,000065: 36,2017 01450 VN 0640 # (1)
028606,000066: 36,2020 13023 TCF IGNITE # (2)
028607,000067: 36,2021 13013 TCF GOPOST # (3)
028608,000068: 36,2022 12161 TCF TOOLATE # (4)
028609,000069: 36,2023 12212 TCF P40SPOT # (5)
028610,000070: 36,2024 04300 DEC 2240 B-14 # (6)
028611,000071: 36,2025 E6,1420 EBANK= OMEGAQ
028612,000072: 36,2025 03637 74066 2CADR STEERING # (7)
028613,000073: 36,2027 12417 TCF P40SJUNK # (11)
028614,000074: 36,2030 12553 TCF WAITABIT # (12)
028615,000075: 36,2031 12506 TCF P40IGN # (13)
028616,000076: 36,2032 12601 TCF P40ZOOM # (14)
028617,000077: 36,2033 12610 TCF COMFAIL2 # (15)
028618,000078: 36,2034 12171 TCF PUSHTIG # (16)
028619,000079:
028620,000080:
028621,000081:
028622,000082: 36,2035 12215 P41TABLE TCF P41SPOT # (5)
028623,000083: 36,2036 77776 DEC -1 B-14 # (6)
028624,000084: 36,2037 E6,1420 EBANK= OMEGAQ
028625,000085: 36,2037 03361 74066 2CADR CALCN85 # (7)
028626,000086:
028627,000087: 36,2041 15331 TCF TASKOVER # (11)
028628,000088: 36,2042 12557 TCF TIGTASK # (12)
028629,000089:
028630,000090:
028631,000091:
028632,000092: 36,2043 01450 P42TABLE VN 0640 # (0)
028633,000093: 36,2044 01450 VN 0640 # (1)
028634,000094: 36,2045 13023 TCF IGNITE # (2)
028635,000095: 36,2046 13013 TCF GOPOST # (3)
028636,000096: 36,2047 12161 TCF TOOLATE # (4)
028637,000097: 36,2050 12212 TCF P42SPOT # (5)
028638,000098: 36,2051 05120 DEC 2640 B-14 # (6)
028639,000099: 36,2052 E6,1420 EBANK= OMEGAQ
028640,000100: 36,2052 03637 74066 2CADR STEERING # (7)
028641,000101: 36,2054 12417 TCF P40SJUNK # (11)
028642,000102: 36,2055 12553 TCF WAITABIT # (12)
028643,000103: 36,2056 12527 TCF P42IGN # (13)
028644,000104: 36,2057 15331 TCF TASKOVER # (14)
028645,000105: 36,2060 12610 TCF COMFAIL2 # (15)
028646,000106:
028647,000107:
028648,000108:
028649,000109: 36,2061 01476 P63TABLE VN 0662 # (0)
028650,000110: 36,2062 01475 VN 0661 # (1)
028651,000111: 36,2063 13023 TCF IGNITE # (2)
028652,000112: 36,2064 12760 TCF V99RECYC # (3)
028653,000113: 36,2065 12161 TCF TOOLATE # (4)
028654,000114: 36,2066 12215 TCF P63SPOT # (5)
028655,000115: 36,2067 04300 DEC 2240 B-14 # (6)
028656,000116: 36,2070 E7,1430 EBANK= WHICH
028657,000117: 36,2070 02354 66067 2CADR SERVEXIT # (7)
028658,000118: 36,2072 12423 TCF DISPCHNG # (11)
028659,000119: 36,2073 12553 TCF WAITABIT # (12)
028660,000120: 36,2074 12467 TCF P63IGN # (13)
028661,000121: 36,2075 12570 TCF P63ZOOM # (14)
028662,000122: 36,2076 12610 TCF COMFAIL2 # (15)
028663,000123:
028664,000124:
028665,000125: 36,2077 01513 P70TABLE VN 0675 # (0)
028666,000126: 36,2100 01513 VN 0675 # (1)
028667,000127: 36,2101 13023 TCF IGNITE # (2)
028668,000128: 36,2102 14106 TCF GOTOPOOH # (3)
028669,000129: 36,2103 12161 TCF TOOLATE # (4)
028670,000130: 36,2104 12212 TCF P70SPOT # (5)
028671,000131: 36,2105 04300 DEC 2240 B-14 # (6)
028672,000132: 36,2106 E7,1472 EBANK= DVCNTR
028673,000133: 36,2106 02213 60067 2CADR ATMAG # (7)
028674,000134: 36,2110 12423 TCF DISPCHNG # (11)
028675,000135: 36,2111 12553 TCF WAITABIT # (12)
028676,000136: 36,2112 12506 TCF P70IGN # (13)
028677,000137: 36,2113 12601 TCF P70ZOOM # (14)
028678,000138: 36,2114 12610 TCF COMFAIL2 # (15)
028679,000139:
028680,000140:
028681,000141: 36,2115 01513 P71TABLE VN 0675 # (0)
028682,000142: 36,2116 01513 VN 0675 # (1)
028683,000143: 36,2117 13023 TCF IGNITE # (2)
028684,000144: 36,2120 14106 TCF GOTOPOOH # (3)
028685,000145: 36,2121 12161 TCF TOOLATE # (4)
028686,000146: 36,2122 12212 TCF P71SPOT # (5)
028687,000147: 36,2123 05120 DEC 2640 B-14 # (6)
028688,000148: 36,2124 E7,1472 EBANK= DVCNTR
028689,000149: 36,2124 02213 60067 2CADR ATMAG # (7)
028690,000150: 36,2126 12423 TCF DISPCHNG # (11)
028691,000151: 36,2127 12553 TCF WAITABIT # (12)
028692,000152: 36,2130 12527 TCF P71IGN # (13)
028693,000153: 36,2131 15331 TCF TASKOVER # (14)
028694,000154: 36,2132 12610 TCF COMFAIL2 # (15)
028695,000155:
028696,000156:
028697,000157:
028698,000158: # ****************************************
028699,000159: # GENERAL PURPOSE IGNITION ROUTINES
028700,000160: # ****************************************
028701,000161:
028702,000162: 36,2133 05423 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
028703,000163: 36,2134 04024 OCT 04024
028704,000164:
028705,000165: 36,2135 35030 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
028706,000166: 36,2136 55466 TS DVTOTAL
028707,000167: 36,2137 55467 TS DVTOTAL +1
028708,000168:
028709,000169: 36,2140 04655 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
028710,000170: 36,2141 75064 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
028711,000171:
028712,000172: 36,2142 05600 B*RNB*B* TC DOWNFLAG
028713,000173: 36,2143 00032 ADRES GIMBFLG
028714,000174:
028715,000175: 36,2144 00006 EXTEND
028716,000176: 36,2145 31425 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
028717,000177: 36,2146 53574 DXCH GOBLTIME # AND FOR P70 OR P71.
028718,000178:
028719,000179: 36,2147 06014 TC INTPRET
028720,000180: 36,2150 44234 RTB BDSU
028721,000181: 36,2151 21454 LOADTIME
028722,000182: 36,2152 03425 TIG
028723,000183: 36,2153 51025 DSU BPL
028724,000184: 36,2154 35753 SEC45DP
028725,000185: 36,2155 74176 ONTIME
028726,000186: 36,2156 77776 EXIT
028727,000187:
028728,000188: 36,2157 51430 INDEX WHICH
028729,000189: 36,2160 10004 TCF 4
028730,000190:
028731,000191: 36,2161 05651 TOOLATE TC ALARM
028732,000192: 36,2162 01703 OCT 1703
028733,000193:
028734,000194: 36,2163 35056 CAF V05N09
028735,000195: 36,2164 04655 TC BANKCALL
028736,000196: 36,2165 20406 CADR GOFLASH
028737,000197: 36,2166 04106 TC GOTOPOOH
028738,000198: 36,2167 02171 TC PUSHTIG
028739,000199: 36,2170 12163 TCF -5
028740,000200:
028741,000201: 36,2171 06014 PUSHTIG TC INTPRET
028742,000202: 36,2172 43234 RTB DAD
028743,000203: 36,2173 21454 LOADTIME
028744,000204: 36,2174 35753 SEC45DP
028745,000205: 36,2175 03425 STORE TIG
028746,000206:
028747,000207: 36,2176 45345 ONTIME DLOAD DSU
028748,000208: 36,2177 03425 TIG
028749,000209: 36,2200 35125 D29.9SEC
028750,000210: 36,2201 00041 STORE TDEC1
028751,000211: 36,2202 03457 STORE SAVET-30
028752,000212: 36,2203 77776 EXIT
028753,000213:
028754,000214: 36,2204 00004 INHINT
028755,000215: 36,2205 04737 TC IBNKCALL
028756,000216: 36,2206 75561 CADR ENGINOF3
028757,000217: 36,2207 00003 RELINT
028758,000218:
028759,000219: 36,2210 51430 INDEX WHICH
028760,000220: 36,2211 10005 TCF 5
028761,000221:
This function, which we have called TIGINT, performs integration to TIG-30 for BURNBABY, and integration to TIG for P47. Both were rewritten to use MIDTOAVE in Luminary. Unfortunately, it was located in bank 36 in Sundance 292, and in bank 32 in Sundance 306. We only have revision 292 of bank 32, and revision 306 of bank 36 -- which means that we are completely missing this function. The below implementation was created by Mike Stewart and Niklas Beug to perform all of the needed functions. It has been tested and confirmed working in NASSP, although it is shorter than the original implementation, which means something (hopefully unimportant) is possibly still missing. |
028770,000230: 32,2671 BANK 32
028771,000231: 32,2000 SETLOC P40S2
028772,000232: 32,2000 BANK
028773,000233:
028774,000234: 32,2671 COUNT* $$/P40
028775,000235:
028776,000236: 32,2671 00041 -1 STORE TDEC1
028777,000237: 32,2672 77620 TIGINT STQ
028778,000238: 32,2673 03730 IRETURN1
028779,000239: 32,2674 77624 CALL
028780,000240: 32,2675 27030 LEMPREC
028781,000241: 32,2676 77775 VLOAD
028782,000242: 32,2677 00001 RATT
028783,000243: 32,2700 03532 STORE RN1
028784,000244: 32,2701 77775 VLOAD
028785,000245: 32,2702 00007 VATT
028786,000246: 32,2703 03540 STORE VN1
028787,000247: 32,2704 77745 DLOAD
028788,000248: 32,2705 00015 TAT
028789,000249: 32,2706 03546 STORE PIPTIME1
028790,000250: 32,2707 77650 GOTO
028791,000251: 32,2710 03730 IRETURN1
028792,000252:
028793,000253: 36,2212 BANK 36
028794,000254: 36,2000 SETLOC P40S
028795,000255: 36,2000 BANK
028796,000256: 36,2212 E7,1430 EBANK= WHICH
028797,000257: 36,2212 COUNT* $$/P40
028798,000258:
028799,000259: 36,2212 36,2212 P12SPOT = P40SPOT # (5)
028800,000260: 36,2212 36,2212 P42SPOT = P40SPOT # (5)
028801,000261: 36,2212 36,2215 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
028802,000262: 36,2212 36,2212 P70SPOT = P40SPOT # (5)
028803,000263: 36,2212 36,2212 P71SPOT = P40SPOT # (5)
028804,000264: 36,2212 45022 P40SPOT CS OCT20 # (5)
028805,000265: 36,2213 04655 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
028806,000266: 36,2214 74654 CADR STCLOK2 # RETURN
028807,000267: 36,2215 06014 P41SPOT TC INTPRET # (5)
028808,000268: 36,2216 77624 CALL
028809,000269: 36,2217 64672 TIGINT
028810,000270: 36,2220 77624 CALL
028811,000271: 36,2221 61213 INITCDUW
028812,000272: 36,2222 44234 RTB BDSU
028813,000273: 36,2223 21454 LOADTIME
028814,000274: 36,2224 03457 SAVET-30
028815,000275: 36,2225 45240 BMN DSU
028816,000276: 36,2226 74271 INTLATE
028817,000277: 36,2227 35755 5SECDP
028818,000278: 36,2230 77640 BMN
028819,000279: 36,2231 74250 MISSED35
028820,000280: 36,2232 03457 STORE SAVET-30
028821,000281: 36,2233 77776 EXIT
028822,000282:
028823,000283: 36,2234 05375 TC CHECKMM
028824,000284: 36,2235 00077 DEC 63 B-14
028825,000285: 36,2236 12241 TCF +3 # NOT P63
028826,000286: 36,2237 45022 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
028827,000287: 36,2240 55175 TS DISPDEX
028828,000288:
028829,000289: 36,2241 52155 CALLT-35 DXCH MPAC
028830,000290: 36,2242 05347 TC LONGCALL
028831,000291: 36,2243 E7,1426 EBANK= TTOGO
028832,000292: 36,2243 02275 74067 2CADR TIG-35
028833,000293: 36,2245 05423 TC PHASCHNG
028834,000294: 36,2246 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
028835,000295:
028836,000296: 36,2247 15225 TCF ENDOFJOB
028837,000297:
028838,000298: 36,2250 77415 MISSED35 DAD EXIT
028839,000299: 36,2251 35755 5SECDP
028840,000300:
028841,000301: 36,2252 52155 DXCH MPAC
028842,000302: 36,2253 07516 TC ALSIGNAG
028843,000303: 36,2254 56001 XCH L
028844,000304: 36,2255 55456 TS SAVET-30
028845,000305: 36,2256 00004 INHINT
028846,000306: 36,2257 05243 TC TWIDDLE
028847,000307: 36,2260 02333 ADRES TIG-30
028848,000308: 36,2261 05423 TC PHASCHNG
028849,000309: 36,2262 47014 OCT 47014
028850,000310: 36,2263 76321 -GENADR SAVET-30
028851,000311: 36,2264 E7,1473 EBANK= TGO
028852,000312: 36,2264 02333 74067 2CADR TIG-30
028853,000313:
028854,000314: 36,2266 45025 CS BLANKDEX
028855,000315: 36,2267 55175 TS DISPDEX
028856,000316: 36,2270 15225 TCF ENDOFJOB
028857,000317:
028858,000318: 36,2271 77776 INTLATE EXIT
028859,000319: 36,2272 05651 TC ALARM
028860,000320: 36,2273 01711 OCT 1711
028861,000321: 36,2274 13716 TCF P40ALM +2
028862,000322:
028863,000323:
028864,000324: # ****************************************
028865,000325:
028866,000326: 36,2275 33755 TIG-35 CAF 5SEC
028867,000327: 36,2276 05243 TC TWIDDLE
028868,000328: 36,2277 02333 ADRES TIG-30
028869,000329:
028870,000330: 36,2300 05423 TC PHASCHNG
028871,000331: 36,2301 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
028872,000332:
028873,000333: 36,2302 45025 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
028874,000334: 36,2303 55175 TS DISPDEX
028875,000335:
028876,000336: 36,2304 51430 INDEX WHICH
028877,000337: 36,2305 40006 CS 6 # CHECK ULLAGE TIME.
028878,000338: 36,2306 00006 EXTEND
028879,000339: 36,2307 65331 BZMF TASKOVER
028880,000340: 36,2310 33127 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
028881,000341: 36,2311 05243 TC TWIDDLE
028882,000342: 36,2312 02323 ADRES TIG-30.1
028883,000343:
028884,000344: 36,2313 35077 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
028885,000345: 36,2314 05142 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
028886,000346: 36,2315 E7,1426 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
028887,000347: 36,2315 02320 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
028888,000348:
028889,000349: 36,2317 15331 TCF TASKOVER
028890,000350:
028891,000351: 36,2320 04655 P41BLANK TC BANKCALL # BLANK DSKY.
028892,000352: 36,2321 20371 CADR CLEANDSP
028893,000353: 36,2322 15225 TCF ENDOFJOB
028894,000354:
028895,000355: 36,2323 35077 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
028896,000356: 36,2324 05142 TC NOVAC
028897,000357: 36,2325 E7,1426 EBANK= TTOGO
028898,000358: 36,2325 02330 74067 2CADR TIG-30A
028899,000359: 36,2327 15331 TCF TASKOVER
028900,000360:
028901,000361: 36,2330 33764 TIG-30A CAF V16N85B
028902,000362: 36,2331 04655 TC BANKCALL # RESTORE DISPLAY.
028903,000363: 36,2332 20400 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
028904,000364:
028905,000365:
028906,000366: # *****************************************
028907,000367:
028908,000368:
028909,000369: 36,2333 33126 TIG-30 CAF S24.9SEC
028910,000370: 36,2334 05243 TC TWIDDLE
028911,000371: 36,2335 02402 ADRES TIG-5
028912,000372:
028913,000373: 36,2336 45022 CS CNTDNDEX # START UP CLOKTASK AGAIN
028914,000374: 36,2337 55175 TS DISPDEX
028915,000375:
028916,000376: 36,2340 51430 INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
028917,000377: 36,2341 30006 CAF 6
028918,000378: 36,2342 00006 EXTEND
028919,000379: 36,2343 62355 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
028920,000380: 36,2344 55456 TS SAVET-30 # SAVE DELTA-T FOR RESTART
028921,000381: 36,2345 05243 TC TWIDDLE
028922,000382: 36,2346 02376 ADRES ULLGTASK
028923,000383:
028924,000384: 36,2347 36221 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
028925,000385: 36,2350 54001 TS L
028926,000386: 36,2351 46221 CS THREE
028927,000387: 36,2352 52753 DXCH -PHASE1
028928,000388: 36,2353 40025 CS TIME1
028929,000389: 36,2354 55054 TS TBASE1
028930,000390:
028931,000391: 36,2355 00006 ULLGNOT EXTEND
028932,000392: 36,2356 51430 INDEX WHICH
028933,000393: 36,2357 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
028934,000394: 36,2360 53253 DXCH AVEGEXIT
028935,000395:
028936,000396: 36,2361 35025 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
028937,000397: 36,2362 54001 TS L
028938,000398: 36,2363 45025 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
028939,000399: 36,2364 52761 DXCH -PHASE4
028940,000400:
028941,000401: 36,2365 40025 CS TIME1
028942,000402: 36,2366 55062 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
028943,000403:
028944,000404: 36,2367 00006 REDO2.17 EXTEND
028945,000405: 36,2370 35030 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
028946,000406: 36,2371 52755 DXCH -PHASE2 # IF NEEDED.
028947,000407:
028948,000408: 36,2372 10763 REDO4.2 CCS PHASE5 # IS SERVICER GOING?
028949,000409: 36,2373 15331 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
028950,000410:
028951,000411: 36,2374 04674 TC POSTJUMP
028952,000412: 36,2375 66000 CADR PREREAD # PREREAD ENDS THIS TASK
028953,000413:
028954,000414:
028955,000415: # ****************************************
028956,000416:
028957,000417:
028958,000418: 36,2376 02647 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
028959,000419: 36,2377 05423 TC PHASCHNG
028960,000420: 36,2400 00001 OCT 1
028961,000421: 36,2401 15331 TCF TASKOVER
028962,000422:
028963,000423:
028964,000424: # ****************************************
028965,000425:
028966,000426: 36,2402 33755 TIG-5 CAF 5SEC
028967,000427: 36,2403 05243 TC TWIDDLE
028968,000428: 36,2404 02426 ADRES TIG-0
028969,000429:
028970,000430: 36,2405 05600 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG
028971,000431: 36,2406 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC
028972,000432: 36,2407 05600 TC DOWNFLAG
028973,000433: 36,2410 00154 ADRES ASTNFLAG
028974,000434:
028975,000435: 36,2411 05403 TC 2PHSCHNG
028976,000436: 36,2412 40074 OCT 40074 # RESTART TIG-0 (4.7SPOT)
028977,000437: 36,2413 05013 OCT 05013 # RESTART HERE (FOR S40.13 IF NEEDED)
028978,000438: 36,2414 77777 OCT 77777
028979,000439:
028980,000440: 36,2415 51430 INDEX WHICH
028981,000441: 36,2416 10011 TCF 11
028982,000442:
028983,000443: 36,2417 35011 P40SJUNK CAF PRIO20 # (11) P40 AND P42 COME HERE
028984,000444: 36,2420 05155 TC FINDVAC
028985,000445: 36,2421 E7,1426 EBANK= TTOGO
028986,000446: 36,2421 02703 56067 2CADR S40.13
028987,000447:
028988,000448:
028989,000449: 36,2423 45746 DISPCHNG CS VB99DEX # (11)
028990,000450: 36,2424 55175 TS DISPDEX
028991,000451: 36,2425 15331 TCF TASKOVER
028992,000452:
028993,000453:
028994,000454: # ****************************************
028995,000455:
028996,000456: 36,2426 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
028997,000457: 36,2427 75012 MASK IGNFLBIT
028998,000458: 36,2430 26103 ADS FLAGWRD7
028999,000459:
029000,000460: 36,2431 05375 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
029001,000461: 36,2432 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
029002,000462: 36,2433 12441 TCF IGNYET?
029003,000463: 36,2434 31421 CA ZOOMTIME
029004,000464: 36,2435 05243 TC TWIDDLE
029005,000465: 36,2436 02566 ADRES ZOOM
029006,000466:
029007,000467: 36,2437 05423 TC PHASCHNG
029008,000468: 36,2440 40033 OCT 40033
029009,000469:
029010,000470: 36,2441 35013 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
029011,000471: 36,2442 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
029012,000472: 36,2443 00006 EXTEND
029013,000473: 36,2444 51430 INDEX WHICH
029014,000474: 36,2445 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET
029015,000475:
029016,000476: 36,2446 44367 IGNITION CS PRIO30 # TURN ON THE ENGINE.
029017,000477: 36,2447 00006 EXTEND
029018,000478: 36,2450 02011 RAND DSALMOUT
029019,000479: 36,2451 65012 AD BIT13
029020,000480: 36,2452 00006 EXTEND
029021,000481: 36,2453 01011 WRITE DSALMOUT
029022,000482: 36,2454 00006 EXTEND # SET TEVENT FOR DOWNLINK
029023,000483: 36,2455 30025 DCA TIME2
029024,000484: 36,2456 53355 DXCH TEVENT
029025,000485:
029026,000486: 36,2457 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
029027,000487: 36,2460 31474 DCA TGO
029028,000488: 36,2461 53425 DXCH TIG
029029,000489: 36,2462 00006 EXTEND
029030,000490: 36,2463 30025 DCA TIME2
029031,000491: 36,2464 21425 DAS TIG
029032,000492:
029033,000493: 36,2465 51430 INDEX WHICH
029034,000494: 36,2466 10013 TCF 13
029035,000495:
029036,000496: 36,2467 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
029037,000497: 36,2470 33120 DCA DSP2CADR
029038,000498: 36,2471 55175 TS DISPDEX # ASSASSINATE CLOKTASK
029039,000499: 36,2472 53253 DXCH AVGEXIT
029040,000500:
029041,000501: 36,2473 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
029042,000502: 36,2474 30025 DCA TIME2
029043,000503: 36,2475 53425 DXCH TIG
029044,000504:
029045,000505: 36,2476 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
029046,000506: 36,2477 75016 MASK LETABBIT
029047,000507: 36,2500 26105 ADS FLAGWRD9
029048,000508:
029049,000509: 36,2501 33123 CA BRAKQADR # INITIALIZE WCHPHASE AND FLPASSO
029050,000510: 36,2502 55606 TS WCHPHASE
029051,000511: 36,2503 35025 CA TWO
029052,000512: 36,2504 55607 TS FLPASS0
029053,000513:
029054,000514: 36,2505 12521 TCF SETGIMBL
029055,000515:
029056,000516: 36,2506 36,2506 P70IGN = P40IGN # (13)
029057,000517: 36,2506 40101 P40IGN CS FLAGWRD5 # (13)
029058,000518: 36,2507 75013 MASK NOTHRBIT
029059,000519: 36,2510 00006 EXTEND
029060,000520: 36,2511 12521 BZF SETGIMBL
029061,000521: 36,2512 31421 CA ZOOMTIME # WAITLIST FOR ZOOM (FLATOUT. ETC.)
029062,000522: 36,2513 05243 TC TWIDDLE
029063,000523: 36,2514 02566 ADRES ZOOM
029064,000524:
029065,000525: 36,2515 05403 P63IGN1 TC 2PHSCHNG
029066,000526: 36,2516 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
029067,000527: 36,2517 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
029068,000528: 36,2520 77777 OCT 77777
029069,000529:
029070,000530: 36,2521 40075 SETGIMBL CS FLAGWRD1
029071,000531: 36,2522 75023 MASK GIMBFBIT
029072,000532: 36,2523 26075 ADS FLAGWRD1
029073,000533: 36,2524 12527 TCF P42IGN
029074,000534:
029075,000535: 36,2525 35026 P12IGN CA ONE # (13) KILL CLOKTASK
029076,000536: 36,2526 55175 TS DISPDEX
029077,000537:
029078,000538: 36,2527 36,2527 P71IGN = P42IGN # (13)
029079,000539: 36,2527 05566 P42IGN TC UPFLAG # INSURE ENGONFLG IS SET.
029080,000540: 36,2530 00123 ADRES ENGONFLG
029081,000541: 36,2531 45017 CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
029082,000542: 36,2532 71102 MASK DAPBOOLS # CURVES ARE USED.
029083,000543: 36,2533 55102 TS DAPBOOLS
029084,000544: 36,2534 35016 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
029085,000545: 36,2535 70076 MASK FLAGWRD2
029086,000546: 36,2536 10000 CCS A
029087,000547: 36,2537 13520 TCF IMPLBURN
029088,000548:
029089,000549: 36,2540 05600 DVMONCON TC DOWNFLAG
029090,000550: 36,2541 00153 ADRES IGNFLAG # CONNECT DVMON
029091,000551: 36,2542 05600 TC DOWNFLAG
029092,000552: 36,2543 00154 ADRES ASTNFLAG
029093,000553: 36,2544 05600 TC DOWNFLAG
029094,000554: 36,2545 00161 ADRES IDLEFLAG
029095,000555:
029096,000556: 36,2546 05423 TC PHASCHNG
029097,000557: 36,2547 40054 OCT 40054
029098,000558:
029099,000559: 36,2550 05271 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
029100,000560: 36,2551 00062 DEC 50 B-14 # LIGHT UP.
029101,000561:
029102,000562: 36,2552 02643 ULLAGOFF TC NOULLAGE
029103,000563:
029104,000564: 36,2553 00006 WAITABIT EXTEND # KILL GROUP 4
029105,000565: 36,2554 35030 DCA NEG0
029106,000566: 36,2555 52761 DXCH -PHASE4
029107,000567:
029108,000568: 36,2556 15331 TCF TASKOVER
029109,000569:
029110,000570:
029111,000571: # ****************************************
029112,000572:
029113,000573: 36,2557 35076 TIGTASK CAF PRIO16 # TIGNOW MUST BE A JOB.
029114,000574: 36,2560 05142 TC NOVAC
029115,000575: 36,2561 E7,1447 EBANK= TRKMKCNT
029116,000576: 36,2561 03224 74067 2CADR TIGNOW
029117,000577: 36,2563 05423 TC PHASCHNG
029118,000578: 36,2564 00006 OCT 6 # KILL GROUP 6.
029119,000579:
029120,000580: 36,2565 15331 TCF TASKOVER
029121,000581:
029122,000582:
029123,000583: # ****************************************
029124,000584:
029125,000585: 36,2566 51430 ZOOM INDEX WHICH
029126,000586: 36,2567 10014 TCF 14
029127,000587:
029128,000588: 36,2570 00006 P63ZOOM EXTEND # (4) SET UP GUIDANCE.
029129,000589: 36,2571 33122 DCA LUNLANAD
029130,000590: 36,2572 53253 DXCH AVEGEXIT
029131,000591:
029132,000592: 36,2573 05600 TC DOWNFLAG
029133,000593: 36,2574 00144 ADRES KILLROSE
029134,000594:
029135,000595: 36,2575 35034 CAF THIRTEEN
029136,000596: 36,2576 05252 TC WAITLIST
029137,000597: 36,2577 E7,1430 EBANK= WHICH
029138,000598: 36,2577 03157 64067 2CADR ROSEN
029139,000599:
029140,000600: 36,2601 36,2601 P70ZOOM = P40ZOOM # (4)
029141,000601: 36,2601 04737 P40ZOOM TC IBNKCALL # (4) THROTTLE THE DPS TO MAXIMUM THRUST.
029142,000602: 36,2602 62364 CADR FLATOUT
029143,000603:
029144,000604: 36,2603 05423 TC PHASCHNG
029145,000605: 36,2604 00003 OCT 3
029146,000606: 36,2605 15331 TCF TASKOVER
029147,000607:
029148,000608:
029149,000609: # ****************************************
029150,000610:
029151,000611: 36,2606 51430 COMFAIL INDEX WHICH
029152,000612: 36,2607 10015 TCF 15
029153,000613:
029154,000614: 36,2610 05423 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
029155,000615: 36,2611 00003 OCT 00003
029156,000616:
029157,000617: 36,2612 00004 INHINT
029158,000618: 36,2613 06005 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
029159,000619: 36,2614 74566 CADR ZOOM
029160,000620: 36,2615 04737 TC IBNKCALL # COMMAND ENGINE OFF
029161,000621: 36,2616 75546 CADR ENGINOF1
029162,000622: 36,2617 02647 TC ONULLAGE
029163,000623: 36,2620 35024 CAF FOUR # RESET DVMON
029164,000624: 36,2621 55472 TS DVCNTR
029165,000625: 36,2622 44112 CS OCT24
029166,000626: 36,2623 55424 TS TIG
029167,000627: 36,2624 35026 CAF BIT1
029168,000628: 36,2625 05243 TC TWIDDLE
029169,000629: 36,2626 02402 ADRES TIG-5
029170,000630:
029171,000631: 36,2627 05403 TC 2PHSCHNG
029172,000632: 36,2630 00174 OCT 00174
029173,000633: 36,2631 10035 OCT 10035
029174,000634:
029175,000635: 36,2632 00006 EXTEND
029176,000636: 36,2633 31253 DCA AVEGEXIT
029177,000637: 36,2634 52006 DTCB
029178,000638:
029179,000639:
029180,000640: # ****************************************
029181,000641: # SUBROUTINES OF THE IGNITION ROUTINE
029182,000642: # ****************************************
029183,000643:
029184,000644: 36,2635 30002 INVFLAG CA Q
029185,000645: 36,2636 05604 TC DEBIT
029186,000646: 36,2637 40000 COM
029187,000647: 36,2640 00006 EXTEND
029188,000648: 36,2641 06001 RXOR LCHAN
029189,000649: 36,2642 15573 TCF COMFLAG
029190,000650:
029191,000651:
029192,000652: # ****************************************
029193,000653:
029194,000654: 36,2643 45021 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
029195,000655: 36,2644 71102 MASK DAPBOOLS
029196,000656: 36,2645 55102 TS DAPBOOLS
029197,000657: 36,2646 00002 TC Q
029198,000658:
029199,000659:
029200,000660: # ****************************************
029201,000661:
029202,000662: 36,2647 41102 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
029203,000663: 36,2650 75021 MASK ULLAGER # A TASK OR WHILE INHINTED.
029204,000664: 36,2651 27102 ADS DAPBOOLS
029205,000665: 36,2652 00002 TC Q
029206,000666:
029207,000667:
029208,000668: # ****************************************
029209,000669:
029210,000670:
029211,000671: 36,2653 35030 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
029212,000672: 36,2654 55175 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
029213,000673: 36,2655 04704 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
029214,000674: 36,2656 55062 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS)
029215,000675: 36,2657 00006 EXTEND
029216,000676: 36,2660 31425 DCA TIG
029217,000677: 36,2661 52155 DXCH MPAC
029218,000678: 36,2662 00006 EXTEND
029219,000679: 36,2663 40025 DCS TIME2
029220,000680: 36,2664 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
029221,000681: 36,2665 07231 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
029222,000682: 36,2666 35047 CAF 1SEC # 45 SECOND CHECK
029223,000683: 36,2667 54002 TS Q
029224,000684: 36,2670 52155 DXCH MPAC
029225,000685: 36,2671 74360 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
029226,000686: 36,2672 00006 EXTEND
029227,000687: 36,2673 10002 DV Q
029228,000688: 36,2674 30001 CA L # GET REMAINDER
029229,000689: 36,2675 65025 AD TWO
029230,000690: 36,2676 00004 INHINT
029231,000691: 36,2677 05243 TC TWIDDLE
029232,000692: 36,2700 02707 ADRES CLOKTASK
029233,000693: 36,2701 05403 TC 2PHSCHNG
029234,000694: 36,2702 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
029235,000695: 36,2703 05024 OCT 05024
029236,000696: 36,2704 13000 OCT 13000
029237,000697:
029238,000698: 36,2705 31062 CA TBASE4
029239,000699: 36,2706 04677 TC BANKJUMP
029240,000700:
029241,000701:
029242,000702: 36,2707 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
029243,000703: 36,2710 55066 TS TBASE6
029244,000704:
029245,000705: 36,2711 11175 CCS DISPDEX
029246,000706: 36,2712 12723 TCF KILLCLOK
029247,000707: 36,2713 12714 NOOP
029248,000708: 36,2714 37667 CAF PRIO27
029249,000709: 36,2715 05142 TC NOVAC
029250,000710: 36,2716 E7,1426 EBANK= TTOGO
029251,000711: 36,2716 02727 74067 2CADR CLOKJOB
029252,000712:
029253,000713:
029254,000714: 36,2720 05271 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
029255,000715: 36,2721 00144 DEC 100 B-14
029256,000716: 36,2722 12707 TCF CLOKTASK
029257,000717:
029258,000718: 36,2723 00006 KILLCLOK EXTEND # KILL RESTART
029259,000719:
029260,000720: 36,2724 35030 DCA NEG0
029261,000721: 36,2725 52765 DXCH -PHASE6
029262,000722: 36,2726 15331 TCF TASKOVER
029263,000723:
029264,000724:
029265,000725: 36,2727 00006 CLOKJOB EXTEND
029266,000726: 36,2730 41425 DCS TIG
029267,000727: 36,2731 53427 DXCH TTOGO
029268,000728: 36,2732 00006 EXTEND
029269,000729: 36,2733 30025 DCA TIME2
029270,000730: 36,2734 21427 DAS TTOGO
029271,000731: 36,2735 00004 INHINT
029272,000732: 36,2736 11175 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
029273,000733: 36,2737 15225 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
029274,000734: 36,2740 15225 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
029275,000735: 36,2741 40000 COM # INDEX.
029276,000736: 36,2742 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 *****
029277,000737: 36,2743 50000 INDEX A
029278,000738: 36,2744 12773 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
029279,000739:
029280,000740: # THIS DISPLAY IS CALLED VIA ASTNCLOK.
029281,000741: 36,2745 51430 -27 INDEX WHICH # IT IS PRIMARILY USED BY THE ASTRONAUT
029282,000742: 36,2746 30001 CAF 1 # TO RESET HIS EVENT TIMER TO AGREE WITH
029283,000743: 36,2747 04655 TC BANKCALL # TIG.
029284,000744: 36,2750 20372 CADR REFLASH
029285,000745: 36,2751 14106 TCF GOTOPOOH
029286,000746: 36,2752 12777 TCF ASTNRETN
029287,000747: 36,2753 12745 TCF -6
029288,000748:
029289,000749: 36,2754 5022 CNTDNDEX = OCT20 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
029290,000750:
029291,000751: 36,2754 51430 -20 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
029292,000752: 36,2755 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
029293,000753: 36,2756 04655 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
029294,000754: 36,2757 20400 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
029295,000755:
029296,000756: 36,2760 5746 VB99DEX = OCT14 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
029297,000757:
029298,000758:
029299,000759: 36,2760 V99RECYC EQUALS
029300,000760:
029301,000761: 36,2760 51430 -14 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
029302,000762: 36,2761 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
029303,000763: 36,2762 04655 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE
029304,000764: 36,2763 20544 CADR GOFLASHR # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
029305,000765: 36,2764 12775 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
029306,000766: 36,2765 13005 TCF *PROCEED
029307,000767: 36,2766 13011 TCF *ENTER
029308,000768: 36,2767 33131 CAF VB99CON
029309,000769: 36,2770 05556 TC LINUS
029310,000770: 36,2771 15225 TCF ENDOFJOB
029311,000771:
029312,000772: 36,2772 5025 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
029313,000773:
029314,000774: 36,2772 04655 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
029315,000775: 36,2773 20371 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
029316,000776: 36,2774 15225 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
029317,000777:
029318,000778:
029319,000779: 36,2775 03040 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
029320,000780: 36,2776 14106 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
029321,000781:
029322,000782: 36,2777 35073 ASTNRETN CAF PRIO13
029323,000783: 36,3000 00004 INHINT
029324,000784: 36,3001 05155 TC FINDVAC
029325,000785: 36,3002 E7,1426 EBANK= TTOGO
029326,000786: 36,3002 03110 74067 2CADR GOBACK
029327,000787: 36,3004 15225 TCF ENDOFJOB
029328,000788:
029329,000789:
029330,000790: 36,3005 05566 *PROCEED TC UPFLAG
029331,000791: 36,3006 00154 ADRES ASTNFLAG
029332,000792: 36,3007 51430 INDEX WHICH
029333,000793: 36,3010 10002 TCF 2
029334,000794:
029335,000795:
029336,000796: 36,3011 51430 *ENTER INDEX WHICH
029337,000797: 36,3012 10003 TCF 3
029338,000798:
029339,000799:
029340,000800: 36,3013 34703 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
029341,000801: 36,3014 05155 TC FINDVAC
029342,000802: 36,3015 E7,1426 EBANK= TTOGO
029343,000803: 36,3015 03206 74067 2CADR POSTBURN
029344,000804: 36,3017 03040 TC NULLCLOK
029345,000805: 36,3020 05423 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
029346,000806: 36,3021 00134 OCT 00134
029347,000807:
029348,000808: 36,3022 15225 TCF ENDOFJOB
029349,000809:
029350,000810:
029351,000811: 36,3023 40103 IGNITE CS FLAGWRD7 # (2)
029352,000812: 36,3024 75012 MASK IGNFLBIT
029353,000813: 36,3025 10000 CCS A
029354,000814: 36,3026 13035 TCF IGNITE1
029355,000815: 36,3027 35026 CAF BIT1
029356,000816: 36,3030 00004 INHINT
029357,000817:
029358,000818: 36,3031 05243 TC TWIDDLE
029359,000819: 36,3032 02446 ADRES IGNITION
029360,000820:
029361,000821: 36,3033 05423 TC PHASCHNG # IMMEDIATE RESTART AT IGNITION.
029362,000822: 36,3034 00234 OCT 00234
029363,000823:
029364,000824: 36,3035 45022 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
029365,000825: 36,3036 55175 TS DISPDEX
029366,000826:
029367,000827: 36,3037 15225 TCF ENDOFJOB
029368,000828:
029369,000829: 36,3040 00004 NULLCLOK INHINT
029370,000830: 36,3041 00006 EXTEND
029371,000831: 36,3042 23153 QXCH P40/RET
029372,000832: 36,3043 02643 TC NOULLAGE # TURN OFF ULLAGE ...
029373,000833: 36,3044 06005 TC KILLTASK # DON'T LET IT COME ON, EITHER ...
029374,000834: 36,3045 74376 CADR ULLGTASK
029375,000835: 36,3046 05423 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
029376,000836: 36,3047 00001 OCT 1
029377,000837: 36,3050 30005 CA Z # KILL CLOKTASK
029378,000838: 36,3051 55175 TS DISPDEX
029379,000839: 36,3052 01153 TC P40/RET
029380,000840:
029381,000841: 36,3053 04704 GOASTCLK TC MAKECADR
029382,000842: 36,3054 55176 TS TEMPR60
029383,000843: 36,3055 35030 CAF ZERO
029384,000844: 36,3056 55466 TS DVTOTAL
029385,000845: 36,3057 55467 TS DVTOTAL +1
029386,000846: 36,3060 43130 ASTNCLOK CS ASTNDEX
029387,000847: 36,3061 04655 TC BANKCALL
029388,000848: 36,3062 74654 CADR STCLOK2
029389,000849: 36,3063 15225 TCF ENDOFJOB # RETURN IN NEW JOB AND IN EBANK FIVE
029390,000850:
029391,000851:
029392,000852: # ****************************************
029393,000853:
029394,000854: 36,3064 04704 P40AUTO TC MAKECADR # HELLO THERE.
029395,000855: 36,3065 55176 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
029396,000856: 36,3066 04655 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
029397,000857: 36,3067 54271 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
029398,000858: 36,3070 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
029399,000859: 36,3071 13103 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
029400,000860: 36,3072 35013 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
029401,000861: 36,3073 70075 MASK FLAGWRD1
029402,000862: 36,3074 10000 CCS A
029403,000863: 36,3075 13110 TCF GOBACK # RETURN
029404,000864: 36,3076 35022 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
029405,000865: 36,3077 00006 EXTEND
029406,000866: 36,3100 02030 RAND CHAN30
029407,000867: 36,3101 00006 EXTEND
029408,000868: 36,3102 13110 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
029409,000869: 36,3103 33762 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
029410,000870: 36,3104 04655 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
029411,000871: 36,3105 20532 CADR GOPERF1
029412,000872: 36,3106 14106 TCF GOTOPOOH # V34E TERMINATE
029413,000873: 36,3107 13066 TCF P40A/P # RECYCLE
029414,000874: 36,3110 35030 GOBACK CAF ZERO
029415,000875: 36,3111 55175 TS DISPDEX
029416,000876: 36,3112 31176 CA TEMPR60
029417,000877: 36,3113 04677 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
029418,000878:
029419,000879:
029420,000880: 36,3114 BANK 36
029421,000881: 36,2000 SETLOC P40S
029422,000882:
029423,000883: 36,2000 BANK
029424,000884:
029425,000885: 36,3114 COUNT* $$/P40
029426,000886:
029427,000887: # ****************************************
029428,000888: # CONSTANTS FOR THE IGNITION ROUTINE
029429,000889: # ****************************************
029430,000890:
029431,000891: 36,3114 36,2070 SERVCADR = P63TABLE +7
029432,000892:
029433,000893: 36,3114 02016 P40ADRES ADRES P40TABLE
029434,000894:
029435,000895: 36,3115 02030 P41ADRES ADRES P41TABLE -5
029436,000896:
029437,000897: 36,3116 02043 P42ADRES ADRES P42TABLE
029438,000898:
029439,000899: 36,3117 E7,1606 EBANK= WCHPHASE
029440,000900: 36,3117 03275 62067 DSP2CADR 2CADR DISPEXIT
029441,000901:
029442,000902:
029443,000903: 36,3121 E7,1606 EBANK= WCHPHASE
029444,000904: 36,3121 02500 62067 LUNLANAD 2CADR LUNLAND
029445,000905:
029446,000906: 36,3123 4106 ? = GOTOPOOH
029447,000907:
029448,000908: 36,3123 02427 BRAKQADR REMADR BRAKQUAD
029449,000909:
029450,000910: 36,3124 00000 05656 D29.9SEC 2DEC 2990 B-28
029451,000911:
029452,000912:
029453,000913: 36,3126 04672 S24.9SEC DEC 2490 B-14
029454,000914:
029455,000915: 36,3127 00752 4.9SEC DEC 490 B-14
029456,000916:
029457,000917: 36,3130 00027 ASTNDEX OCT 00027 # INDEX FOR CLOKTASK
029458,000918:
029459,000919: 36,3131 5022 OCT20 = BIT5
029460,000920:
029461,000921: 36,3131 24020 VB99CON OCT 24020 # BITS 5, 12, AND 14
029462,000922:
029463,000923: 36,3132 01505 OCT1505 OCT 1505
029464,000924:
029465,000925:
029466,000926: # KILLTASK
029467,000927: # MOD NO: NEW PROGRAM
029468,000928: # MOD BY: COVELLI
029469,000929:
029470,000930:
029471,000931: # FUNCTIONAL DESCRIPTION:
029472,000932:
029473,000933: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
029474,000934: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
029475,000935: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
029476,000936: # MUST BE CALLED IN INTERRUPT OR WITH INTERRUPT INHIBITED.
029477,000937:
029478,000938: # CALLING SEQUENCE:
029479,000939: # L-1 (INHINT)
029480,000940: # L TC KILLTASK IN FIXED-FIXED
029481,000941: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED.
029482,000942: # L+2 (RELINT) RETURN
029483,000943:
029484,000944: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
029485,000945:
029486,000946: # ERASABLE INITIALIZATION= NONE.
029487,000947:
029488,000948: # OUTPUT: 2CADR OF NULLTASK IN LST2
029489,000949:
029490,000950: # DEBRIS: ITEMP1 - ITEMP4, A,L,Q.
029491,000951:
029492,000952: 36,3133 E3,1410 EBANK= LST2
029493,000953: 6005 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
029494,000954: 6000 SETLOC FFTAG6
029495,000955: 6000 BANK
029496,000956: 6005 COUNT* $$/KILL
029497,000957: 6005 36013 KILLTASK CA KILLBB
029498,000958: 6006 22000 LXCH A
029499,000959: 6007 50002 INDEX Q
029500,000960: 6010 30000 CA 0 # GET CADR.
029501,000961: 6011 22006 LXCH BBANK
029502,000962: 6012 12205 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED
029503,000963:
029504,000964: 6013 E3,1410 EBANK= LST2
029505,000965: 6013 56063 KILLBB BBCON KILLTSK2
029506,000966:
029507,000967:
029508,000968:
029509,000969: 27,2205 BANK 27
029510,000970:
029511,000971: 27,2000 SETLOC P40S1
029512,000972: 27,2000 BANK
029513,000973: 27,2205 COUNT* $$/KILL
029514,000974:
029515,000975: 27,2205 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
029516,000976:
029517,000977: 27,2206 24002 INCR Q
029518,000978: 27,2207 00006 EXTEND
029519,000979: 27,2210 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2
029520,000980:
029521,000981: 27,2211 54063 TS ITEMP3 # CADR IS IN A
029522,000982: 27,2212 75062 MASK LOW10
029523,000983: 27,2213 65014 AD BIT11
029524,000984: 27,2214 54064 TS ITEMP4 # GENADR OF TASK
029525,000985:
029526,000986: 27,2215 45062 CS LOW10
029527,000987: 27,2216 70063 MASK ITEMP3
029528,000988: 27,2217 54063 TS ITEMP3 # FBANK OF TASK
029529,000989:
029530,000990: 27,2220 22007 ZL
029531,000991: 27,2221 50001 ADRSCAN INDEX L
029532,000992: 27,2222 41410 CS LST2
029533,000993: 27,2223 60064 AD ITEMP4 # COMPARE GENADRS
029534,000994: 27,2224 00006 EXTEND
029535,000995: 27,2225 12237 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
029536,000996: 27,2226 45022 LETITLIV CS LSTLIM
029537,000997: 27,2227 60001 AD L
029538,000998: 27,2230 00006 EXTEND # ARE WE DONE?
029539,000999: 27,2231 12235 BZF DEAD # YES - DONE, SO RETURN
029540,001000: 27,2232 24001 INCR L
029541,001001: 27,2233 24001 INCR L
029542,001002: 27,2234 12221 TCF ADRSCAN # CONTINUE LOOP.
029543,001003:
029544,001004: 27,2235 52062 DEAD DXCH ITEMP1
029545,001005: 27,2236 52006 DTCB
029546,001006:
029547,001007: 27,2237 45062 TSTFBANK CS LOW10
029548,001008: 27,2240 50001 INDEX L
029549,001009: 27,2241 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
029550,001010: 27,2242 00006 EXTEND
029551,001011: 27,2243 60063 SU ITEMP3
029552,001012: 27,2244 00006 EXTEND
029553,001013: 27,2245 12247 BZF KILLDEAD # MATCH - KILL IT.
029554,001014: 27,2246 12226 TCF LETITLIV # NO MATCH - CONTINUE.
029555,001015:
029556,001016: 27,2247 34365 KILLDEAD CA TCTSKOVR
029557,001017: 27,2250 50001 INDEX L
029558,001018: 27,2251 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
029559,001019: 27,2252 12235 TCF DEAD
029560,001020:
029561,001021: 27,2253 5022 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc