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