Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
031674,000002: ## Copyright: Public domain.
031675,000003: ## Filename: BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
031676,000004: ## Purpose: A section of Luminary revision 210.
031677,000005: ## It is part of the source code for the Lunar Module's (LM)
031678,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
031679,000007: ## This file is intended to be a faithful transcription, except
031680,000008: ## that the code format has been changed to conform to the
031681,000009: ## requirements of the yaYUL assembler rather than the
031682,000010: ## original YUL assembler.
031683,000011: ## Reference: pp. 726-746
031684,000012: ## Assembler: yaYUL
031685,000013: ## Contact: Ron Burkey <info@sandroid.org>.
031686,000014: ## Website: www.ibiblio.org/apollo/index.html
031687,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
031688,000016: ## 2016-01-12 HG Transcribed
031689,000017: ## 2016-12-07 HG fix P00 -> POO
031690,000018: ## Change POO -> P00 in some comments
031691,000019: ## 2016-12-12 HG Fix constant value (P42TABLE) 2640 -> 2390
031692,000020: ## operator TCF, BZF -> TC
031693,000021: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
031694,000022: ## and corrected errors found.
031695,000023: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
031696,000024: ## 2017-03-15 RSB Comment-text proofing using 5-way side-by-side diff
031697,000025: ## of Luminary 69/99/116/131/210.
031698,000026:
![]() |
Page 726 |
031700,000028:
031701,000029: 36,2024 BANK 36
031702,000030: 36,2000 SETLOC P40S
031703,000031: 36,2000 BANK
031704,000032: 36,2024 E7,1455 EBANK= WHICH
031705,000033: 36,2024 COUNT* $$/P40
031706,000034: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
031707,000035: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
031708,000036: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
031709,000037: # PROGRAMS THROTTLE UP.
031710,000038:
031711,000039: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
031712,000040: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
031713,000041: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
031714,000042: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
031715,000043: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
031716,000044:
031717,000045: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
031718,000046:
031719,000047:
031720,000048: # HONI SOIT QUI MAL Y PENSE
031721,000049:
031722,000050:
031723,000051: # ****************************************
031724,000052: # TABLES FOR THE IGNITION ROUTINE
031725,000053: # ****************************************
031726,000054:
031727,000055: # NOLI SE TANGERE
031728,000056:
031729,000057: 36,2024 01512 P12TABLE VN 0674 # (0)
031730,000058: 36,2025 12327 TCF ULLGNOT # (1)
031731,000059: 36,2026 12611 TCF COMFAIL3 # (2)
031732,000060: 36,2027 13061 TCF GOCUTOFF # (3)
031733,000061: 36,2030 15263 TCF TASKOVER # (4)
031734,000062: 36,2031 12150 TCF P12SPOT # (5)
031735,000063: 36,2032 00000 DEC 0 B-14 # (6) NO ULLAGE
031736,000064: 36,2033 E7,1455 EBANK= WHICH
031737,000065: 36,2033 03656 64067 2CADR SERVEXIT # (7)
031738,000066:
031739,000067: 36,2035 12402 TCF DISPCHNG # (11)
031740,000068: 36,2036 12562 TCF WAITABIT # (12)
031741,000069: 36,2037 12523 TCF P12IGN # (13)
031742,000070:
031743,000071:
031744,000072:
031745,000073: 36,2040 01450 P40TABLE VN 0640 # (0)
031746,000074: 36,2041 12327 TCF ULLGNOT # (1)
031747,000075: 36,2042 12613 TCF COMFAIL4 # (2)
031748,000076: 36,2043 13046 TCF GOPOST # (3)
031749,000077: 36,2044 15263 TCF TASKOVER # (4)
031750,000078: 36,2045 12150 TCF P40SPOT # (5)
031751,000079:
![]() |
Page 727 |
031753,000081: 36,2046 04300 DEC 2240 B-14 # (6)
031754,000082: 36,2047 E6,1422 EBANK= OMEGAQ
031755,000083: 36,2047 03667 74066 2CADR STEERING # (7)
031756,000084: 36,2051 12372 TCF P40SJUNK # (11)
031757,000085: 36,2052 12562 TCF WAITABIT # (12)
031758,000086: 36,2053 12506 TCF P40IGN # (13)
031759,000087: 36,2054 13122 TCF REP40ALM # (14)
031760,000088:
031761,000089:
031762,000090:
031763,000091: 36,2055 12153 P41TABLE TCF P41SPOT # (5)
031764,000092: 36,2056 77776 DEC -1 B-14 # (6)
031765,000093: 36,2057 E6,1422 EBANK= OMEGAQ
031766,000094: 36,2057 02570 64066 2CADR CALCN85 # (7)
031767,000095:
031768,000096: 36,2061 12404 TCF COMMON # (11)
031769,000097: 36,2062 12566 TCF TIGTASK # (12)
031770,000098:
031771,000099:
031772,000100:
031773,000101: 36,2063 01450 P42TABLE VN 0640 # (0)
031774,000102: 36,2064 12324 TCF WANTAPS # (1)
031775,000103: 36,2065 12613 TCF COMFAIL4 # (2)
031776,000104: 36,2066 13046 TCF GOPOST # (3)
031777,000105: 36,2067 15263 TCF TASKOVER # (4)
031778,000106: 36,2070 12150 TCF P42SPOT # (5)
031779,000107: 36,2071 04526 DEC 2390 B-14 # (6) ULLAGE ON AT TIG-6 SECS.
031780,000108: 36,2072 E6,1422 EBANK= OMEGAQ
031781,000109: 36,2072 03667 74066 2CADR STEERING # (7)
031782,000110: 36,2074 12372 TCF P40SJUNK # (11)
031783,000111: 36,2075 12562 TCF WAITABIT # (12)
031784,000112: 36,2076 12540 TCF P42IGN # (13)
031785,000113: 36,2077 13421 TCF P42STAGE # (14)
031786,000114:
031787,000115:
031788,000116:
031789,000117: 36,2100 01476 P63TABLE VN 0662 # (0)
031790,000118: 36,2101 12327 TCF ULLGNOT # (1)
031791,000119: 36,2102 12611 TCF COMFAIL3 # (2)
031792,000120: 36,2103 12776 TCF V99RECYC # (3)
031793,000121: 36,2104 15263 TCF TASKOVER # (4)
031794,000122: 36,2105 12153 TCF P63SPOT # (5)
031795,000123: 36,2106 04300 DEC 2240 B-14 # (6)
031796,000124: 36,2107 E7,1455 EBANK= WHICH
031797,000125: 36,2107 03656 64067 2CADR SERVEXIT # (7)
031798,000126: 36,2111 12402 TCF DISPCHNG # (11)
031799,000127: 36,2112 12562 TCF WAITABIT # (12)
031800,000128:
![]() |
Page 728 |
031802,000130: 36,2113 12465 TCF P63IGN # (13)
031803,000131:
031804,000132:
031805,000133:
031806,000134: 36,2114 01477 ABRTABLE VN 0663 # (0)
031807,000135: 36,2115 12327 TCF ULLGNOT # (1)
031808,000136: 36,2116 12611 TCF COMFAIL3 # (2)
031809,000137: 36,2117 13061 TCF GOCUTOFF # (3)
031810,000138: 36,2120 15263 TCF TASKOVER # (4)
031811,000139: 36,2121 12122 NOOP # (5)
031812,000140: 36,2122 12123 NOOP # (6)
031813,000141: 36,2123 12124 NOOP # (7)
031814,000142: 36,2124 12125 NOOP
031815,000143: 36,2125 12402 TCF DISPCHNG # (11)
031816,000144: 36,2126 12562 TCF WAITABIT # (12)
031817,000145: 36,2127 12533 TCF ABRTIGN # (13)
031818,000146:
031819,000147:
031820,000148:
031821,000149: # ****************************************
031822,000150: # GENERAL PURPOSE IGNITION ROUTINES
031823,000151: # ****************************************
031824,000152:
031825,000153: 36,2130 05355 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
031826,000154: 36,2131 04024 OCT 04024
031827,000155:
031828,000156: 36,2132 34746 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
031829,000157: 36,2133 55507 TS DVTOTAL
031830,000158: 36,2134 55510 TS DVTOTAL +1
031831,000159:
031832,000160: 36,2135 04607 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
031833,000161: 36,2136 73710 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
031834,000162:
031835,000163: 36,2137 00006 B*RNB*B* EXTEND
031836,000164: 36,2140 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
031837,000165: 36,2141 53512 DXCH GOBLTIME # AND FOR P70 OR P71.
031838,000166:
031839,000167: 36,2142 00004 INHINT
031840,000168: 36,2143 04665 TC IBNKCALL
031841,000169: 36,2144 75565 CADR ENGINOF3
031842,000170: 36,2145 00003 RELINT
031843,000171:
031844,000172: 36,2146 51455 INDEX WHICH
031845,000173: 36,2147 00005 TC 5
031846,000174:
031847,000175: 36,2150 36,2150 P42SPOT = P40SPOT # (5)
031848,000176: 36,2150 36,2150 P12SPOT = P40SPOT # (5)
031849,000177: 36,2150 36,2153 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
031850,000178: 36,2150 44753 P40SPOT CS CNTDNDEX # (5)
031851,000179: 36,2151 04607 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
031852,000180:
![]() |
Page 729 |
031854,000182: 36,2152 74663 CADR STCLOK2 # RETURN
031855,000183: 36,2153 06060 P41SPOT TC INTPRET # (5)
031856,000184: 36,2154 45345 DLOAD DSU
031857,000185: 36,2155 03442 TIG
031858,000186: 36,2156 35142 D29.9SEC
031859,000187: 36,2157 34041 STCALL TDEC1
031860,000188: 36,2160 61063 INITCDUW
031861,000189: 36,2161 45014 BOFF CALL
031862,000190: 36,2162 03347 MUNFLAG
031863,000191: 36,2163 74202 GOMIDAV
031864,000192: 36,2164 27101 CSMPREC
031865,000193: 36,2165 64375 VLOAD MXV
031866,000194: 36,2166 00025 VATT1
031867,000195: 36,2167 01732 REFSMMAT
031868,000196: 36,2170 77762 VSR1
031869,000197: 36,2171 25724 STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
031870,000198: 36,2172 00017 RATT1
031871,000199: 36,2173 64312 VSL4 MXV
031872,000200: 36,2174 01732 REFSMMAT
031873,000201: 36,2175 35716 STCALL R(CSM) # CSM POSITION - M*2(24)
031874,000202: 36,2176 67037 MUNGRAV
031875,000203: 36,2177 16310 STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
031876,000204: 36,2200 00015 TAT
031877,000205: 36,2201 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
031878,000206: 36,2202 77624 GOMIDAV CALRB
031879,000207: 36,2203 27606 MIDTOAV1
031880,000208: 36,2204 12213 TCF CALLT-35 # MADE IT IN TIME.
031881,000209:
031882,000210: 36,2205 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9
031883,000211: 36,2206 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID
031884,000212: 36,2207 53442 DXCH TIG # INTEGRATE.
031885,000213: 36,2210 00006 EXTEND
031886,000214: 36,2211 33142 DCA D29.9SEC
031887,000215: 36,2212 21442 DAS TIG
031888,000216:
031889,000217: 36,2213 52155 CALLT-35 DXCH MPAC
031890,000218: 36,2214 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30
031891,000219: 36,2215 00006 EXTEND
031892,000220: 36,2216 43751 DCS 5SECDP
031893,000221: 36,2217 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35
031894,000222: 36,2220 00006 EXTEND
031895,000223: 36,2221 31500 DCA SAVET-30
031896,000224: 36,2222 05301 TC LONGCALL
031897,000225: 36,2223 E7,1453 EBANK= TTOGO
031898,000226: 36,2223 02242 74067 2CADR TIG-35
031899,000227: 36,2225 05355 TC PHASCHNG
031900,000228: 36,2226 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
031901,000229: 36,2227 05323 TC CHECKMM
031902,000230:
![]() |
Page 730 |
031904,000232: 36,2230 00077 DEC 63 B-14
031905,000233: 36,2231 15146 TCF ENDOFJOB # NOT P63
031906,000234: 36,2232 44753 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
031907,000235: 36,2233 55162 TS DISPDEX
031908,000236: 36,2234 06060 TC INTPRET
031909,000237: 36,2235 51575 VLOAD ABVAL
031910,000238: 36,2236 03553 VN1
031911,000239: 36,2237 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY
031912,000240: 36,2240 77776 EXIT
031913,000241: 36,2241 15146 TCF ENDOFJOB
031914,000242:
031915,000243: # ****************************************
031916,000244:
031917,000245: 36,2242 33751 TIG-35 CAF 5SEC
031918,000246: 36,2243 05175 TC TWIDDLE
031919,000247: 36,2244 02300 ADRES TIG-30
031920,000248:
031921,000249: 36,2245 05355 TC PHASCHNG
031922,000250: 36,2246 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
031923,000251:
031924,000252: 36,2247 44743 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
031925,000253: 36,2250 55162 TS DISPDEX
031926,000254:
031927,000255: 36,2251 51455 INDEX WHICH
031928,000256: 36,2252 40006 CS 6 # CHECK ULLAGE TIME.
031929,000257: 36,2253 00006 EXTEND
031930,000258: 36,2254 65263 BZMF TASKOVER
031931,000259: 36,2255 33144 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
031932,000260: 36,2256 05175 TC TWIDDLE
031933,000261: 36,2257 02270 ADRES TIG-30.1
031934,000262:
031935,000263: 36,2260 35020 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
031936,000264: 36,2261 05063 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
031937,000265: 36,2262 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
031938,000266: 36,2262 02265 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
031939,000267:
031940,000268: 36,2264 15263 TCF TASKOVER
031941,000269:
031942,000270: 36,2265 04607 P41BLANK TC BANKCALL # BLANK DSKY.
031943,000271: 36,2266 20451 CADR CLEANDSP
031944,000272: 36,2267 15146 TCF ENDOFJOB
031945,000273:
031946,000274: 36,2270 35020 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
031947,000275: 36,2271 05063 TC NOVAC
031948,000276: 36,2272 E7,1453 EBANK= TTOGO
031949,000277: 36,2272 02275 74067 2CADR TIG-30A
031950,000278:
031951,000279: 36,2274 15263 TCF TASKOVER
031952,000280:
![]() |
Page 731 |
031954,000282: 36,2275 33753 TIG-30A CAF V16N85B
031955,000283: 36,2276 04607 TC BANKCALL # RESTORE DISPLAY.
031956,000284: 36,2277 20460 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
031957,000285:
031958,000286: # *****************************************
031959,000287:
031960,000288: 36,2300 33143 TIG-30 CAF S24.9SEC
031961,000289: 36,2301 05175 TC TWIDDLE
031962,000290: 36,2302 02354 ADRES TIG-5
031963,000291:
031964,000292: 36,2303 44753 CS CNTDNDEX # START UP CLOKTASK AGAIN
031965,000293: 36,2304 55162 TS DISPDEX
031966,000294:
031967,000295: 36,2305 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
031968,000296: 36,2306 30006 CAF 6
031969,000297: 36,2307 00006 EXTEND
031970,000298: 36,2310 62327 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
031971,000299: 36,2311 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART
031972,000300: 36,2312 05175 TC TWIDDLE
031973,000301: 36,2313 02350 ADRES ULLGTASK
031974,000302:
031975,000303: 36,2314 36266 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
031976,000304: 36,2315 54001 TS L
031977,000305: 36,2316 46266 CS THREE
031978,000306: 36,2317 52752 DXCH -PHASE1
031979,000307: 36,2320 40025 CS TIME1
031980,000308: 36,2321 55052 TS TBASE1
031981,000309:
031982,000310: 36,2322 51455 INDEX WHICH
031983,000311: 36,2323 00001 TC 1
031984,000312:
031985,000313: 36,2324 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
031986,000314: 36,2325 74730 MASK APSFLBIT # WASN'T SET, DAP WILL BE INITIALIZED TO
031987,000315: 36,2326 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
031988,000316:
031989,000317: 36,2327 00006 ULLGNOT EXTEND # (1)
031990,000318: 36,2330 51455 INDEX WHICH
031991,000319: 36,2331 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
031992,000320: 36,2332 53252 DXCH AVEGEXIT
031993,000321:
031994,000322: 36,2333 34743 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
031995,000323: 36,2334 54001 TS L
031996,000324: 36,2335 44743 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
031997,000325: 36,2336 52760 DXCH -PHASE4
031998,000326:
031999,000327: 36,2337 40025 CS TIME1
032000,000328: 36,2340 55060 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
032001,000329:
032002,000330: 36,2341 00006 REDO2.17 EXTEND
032003,000331:
![]() |
Page 732 |
032005,000333: 36,2342 34746 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
032006,000334: 36,2343 52754 DXCH -PHASE2 # IF NEEDED.
032007,000335:
032008,000336: 36,2344 10762 REDO4.2 CCS PHASE5 # IS SERVICER GOING?
032009,000337: 36,2345 15263 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
032010,000338:
032011,000339: 36,2346 04626 TC POSTJUMP
032012,000340: 36,2347 77401 CADR PREREAD # PREREAD ENDS THIS TASK
032013,000341:
032014,000342:
032015,000343: # ****************************************
032016,000344:
032017,000345: 36,2350 02656 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
032018,000346: 36,2351 05355 TC PHASCHNG
032019,000347: 36,2352 00001 OCT 1
032020,000348: 36,2353 15263 TCF TASKOVER
032021,000349:
032022,000350:
032023,000351: # ****************************************
032024,000352:
032025,000353: 36,2354 00006 TIG-5 EXTEND
032026,000354: 36,2355 34746 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE.
032027,000355: 36,2356 52756 DXCH -PHASE3
032028,000356:
032029,000357: 36,2357 33751 CAF 5SEC
032030,000358: 36,2360 05175 TC TWIDDLE
032031,000359: 36,2361 02407 ADRES TIG-0
032032,000360:
032033,000361: 36,2362 05520 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG
032034,000362: 36,2363 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC
032035,000363: 36,2364 05520 TC DOWNFLAG
032036,000364: 36,2365 00154 ADRES ASTNFLAG
032037,000365: 36,2366 05520 TC DOWNFLAG
032038,000366: 36,2367 00122 ADRES ZOOMFLAG
032039,000367:
032040,000368: 36,2370 51455 INDEX WHICH
032041,000369: 36,2371 00011 TC 11
032042,000370:
032043,000371: 36,2372 10756 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
032044,000372: 36,2373 12402 TCF DISPCHNG # YES
032045,000373:
032046,000374: 36,2374 34727 CAF PRIO20
032047,000375: 36,2375 05076 TC FINDVAC
032048,000376: 36,2376 E7,1453 EBANK= TTOGO
032049,000377: 36,2376 02536 56067 2CADR S40.13
032050,000378:
032051,000379: 36,2400 05355 TC PHASCHNG # 3.5SPOT FOR S40.13
032052,000380: 36,2401 00053 OCT 00053
032053,000381:
![]() |
Page 733 |
032055,000383: 36,2402 44751 DISPCHNG CS VB99DEX # (11)
032056,000384: 36,2403 55162 TS DISPDEX
032057,000385: 36,2404 05355 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
032058,000386: 36,2405 40074 OCT 40074
032059,000387: 36,2406 15263 TCF TASKOVER
032060,000388:
032061,000389:
032062,000390: # ****************************************
032063,000391:
032064,000392: 36,2407 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
032065,000393: 36,2410 74730 MASK IGNFLBIT
032066,000394: 36,2411 26103 ADS FLAGWRD7
032067,000395:
032068,000396: 36,2412 05323 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
032069,000397: 36,2413 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
032070,000398: 36,2414 12425 TCF IGNYET?
032071,000399: 36,2415 31422 CA ZOOMTIME
032072,000400: 36,2416 05205 TC WAITLIST
032073,000401: 36,2417 E7,1515 EBANK= DVCNTR
032074,000402: 36,2417 03670 72067 2CADR ZOOM
032075,000403: 36,2421 05331 TC 2PHSCHNG
032076,000404: 36,2422 40033 OCT 40033
032077,000405:
032078,000406: 36,2423 05014 OCT 05014
032079,000407: 36,2424 77777 OCT 77777
032080,000408:
032081,000409: 36,2425 34731 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
032082,000410: 36,2426 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
032083,000411: 36,2427 10000 CCS A
032084,000412: 36,2430 12433 TCF IGNITION
032085,000413: 36,2431 51455 INDEX WHICH
032086,000414: 36,2432 00012 TC 12
032087,000415:
032088,000416: 36,2433 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
032089,000417: 36,2434 74736 MASK ENGONBIT
032090,000418: 36,2435 26101 ADS FLAGWRD5
032091,000419: 36,2436 44346 CS PRIO30 # TURN ON THE ENGINE.
032092,000420: 36,2437 00006 EXTEND
032093,000421: 36,2440 02011 RAND DSALMOUT
032094,000422: 36,2441 64730 AD BIT13
032095,000423: 36,2442 00006 EXTEND
032096,000424: 36,2443 01011 WRITE DSALMOUT
032097,000425: 36,2444 00006 EXTEND # SET TEVENT FOR DOWNLINK
032098,000426: 36,2445 30025 DCA TIME2
032099,000427: 36,2446 53342 DXCH TEVENT
032100,000428:
032101,000429: 36,2447 44726 CS PULSES # MAKE SURE THAT DAP IS NOT IN MINIMUM
032102,000430: 36,2450 70111 MASK DAPBOOLS # IMPULSE MODE IN P12,P40,P42,AND P63
032103,000431: 36,2451 54111 TS DAPBOOLS
032104,000432:
![]() |
Page 734 |
032106,000434: 36,2452 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
032107,000435: 36,2453 31517 DCA TGO
032108,000436: 36,2454 53442 DXCH TIG
032109,000437: 36,2455 00006 EXTEND
032110,000438: 36,2456 30025 DCA TIME2
032111,000439: 36,2457 21442 DAS TIG
032112,000440:
032113,000441: 36,2460 44733 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS
032114,000442: 36,2461 70104 MASK FLAGWRD8
032115,000443: 36,2462 54104 TS FLAGWRD8
032116,000444:
032117,000445: 36,2463 51455 INDEX WHICH
032118,000446: 36,2464 00013 TC 13
032119,000447:
032120,000448: 36,2465 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
032121,000449: 36,2466 33136 DCA LUNLANAD
032122,000450: 36,2467 53252 DXCH AVGEXIT
032123,000451:
032124,000452: 36,2470 30005 CA Z # ASSASSINATE CLOKTASK
032125,000453: 36,2471 55162 TS DISPDEX
032126,000454:
032127,000455: 36,2472 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
032128,000456: 36,2473 74734 MASK LETABBIT
032129,000457: 36,2474 26105 ADS FLAGWRD9
032130,000458:
032131,000459: 36,2475 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
032132,000460: 36,2476 30025 DCA TIME2
032133,000461: 36,2477 53442 DXCH TIG
032134,000462:
032135,000463: 36,2500 34746 CAF ZERO # INITIALIZE WCHPHASE AND FLPASSO
032136,000464: 36,2501 55346 TS WCHPHASE
032137,000465: 36,2502 55621 TS WCHPHOLD # ALSO WHCPHOLD
032138,000466: 36,2503 34743 CA TWO
032139,000467: 36,2504 55623 TS FLPASS0
032140,000468:
032141,000469: 36,2505 12540 TCF P42IGN
032142,000470: 36,2506 40101 P40IGN CS FLAGWRD5 # (13)
032143,000471: 36,2507 74731 MASK NOTHRBIT
032144,000472: 36,2510 00006 EXTEND
032145,000473: 36,2511 12540 BZF P42IGN
032146,000474: 36,2512 31422 CA ZOOMTIME
032147,000475: 36,2513 05205 TC WAITLIST
032148,000476: 36,2514 E7,1515 EBANK= DVCNTR
032149,000477: 36,2514 03670 72067 2CADR ZOOM
032150,000478: 36,2516 05331 P63IGN1 TC 2PHSCHNG
032151,000479: 36,2517 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
032152,000480: 36,2520 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
032153,000481: 36,2521 77777 OCT 77777
032154,000482:
![]() |
Page 735 |
032156,000484:
032157,000485: 36,2522 12540 TCF P42IGN
032158,000486: 36,2523 35006 P12IGN CAF EBANK6
032159,000487: 36,2524 54003 TS EBANK
032160,000488: 36,2525 E6,1536 EBANK= AOSQ
032161,000489:
032162,000490: 36,2525 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION
032163,000491: 36,2526 55536 TS AOSQ # ESTIMATES AT P12 IGNITION.
032164,000492: 36,2527 31413 CA IGNAOSR
032165,000493: 36,2530 55540 TS AOSR
032166,000494:
032167,000495: 36,2531 35007 CAF EBANK7
032168,000496: 36,2532 54003 TS EBANK
032169,000497: 36,2533 E7,1515 EBANK= DVCNTR
032170,000498:
032171,000499: 36,2533 30005 ABRTIGN CA Z # (13) KILL CLOKTASK
032172,000500: 36,2534 55162 TS DISPDEX
032173,000501:
032174,000502: 36,2535 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER.
032175,000503: 36,2536 33140 DCA ATMAGADR
032176,000504: 36,2537 53252 DXCH AVGEXIT
032177,000505:
032178,000506: 36,2540 44735 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
032179,000507: 36,2541 70111 MASK DAPBOOLS # CURVES ARE USED.
032180,000508: 36,2542 54111 TS DAPBOOLS
![]() |
Note: The three statements above from CS DRIFTBIT to TS DAPBOOLS are marked and pu into blue pen braces |
032183,000511: 36,2543 34734 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
032184,000512: 36,2544 70076 MASK FLAGWRD2
032185,000513: 36,2545 10000 CCS A
032186,000514: 36,2546 13523 TCF IMPLBURN
032187,000515:
032188,000516: 36,2547 05520 DVMONCON TC DOWNFLAG
032189,000517: 36,2550 00153 ADRES IGNFLAG # CONNECT DVMON
032190,000518: 36,2551 05520 TC DOWNFLAG
032191,000519: 36,2552 00154 ADRES ASTNFLAG
032192,000520: 36,2553 05520 TC DOWNFLAG
032193,000521: 36,2554 00161 ADRES IDLEFLAG
032194,000522:
032195,000523: 36,2555 05355 TC PHASCHNG
032196,000524: 36,2556 40054 OCT 40054
032197,000525:
032198,000526: 36,2557 05223 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
032199,000527: 36,2560 00062 DEC 50 B-14 # LIGHT UP.
032200,000528:
032201,000529: 36,2561 02652 ULLAGOFF TC NOULLAGE
032202,000530:
032203,000531: 36,2562 00006 WAITABIT EXTEND # KILL GROUP 4
032204,000532: 36,2563 34746 DCA NEG0
032205,000533: 36,2564 52760 DXCH -PHASE4
032206,000534:
032207,000535: 36,2565 15263 TCF TASKOVER
032208,000536:
![]() |
Page 736 |
032210,000538: 36,2566 04626 TIGTASK TC POSTJUMP # (12)
032211,000539: 36,2567 73657 CADR TIGTASK1
032212,000540:
032213,000541: # ****************************************
032214,000542:
032215,000543: 31,2144 BANK 31
032216,000544: 35,2000 SETLOC P40S3
032217,000545: 35,2000 BANK
032218,000546: 35,3657 COUNT* $$/P40
032219,000547:
032220,000548: 35,3657 35017 TIGTASK1 CAF PRIO16
032221,000549: 35,3660 05063 TC NOVAC
032222,000550: 35,3661 E7,1462 EBANK= TRKMKCNT
032223,000551: 35,3661 03240 74067 2CADR TIGNOW
032224,000552:
032225,000553: 35,3663 05520 TC DOWNFLAG
032226,000554: 35,3664 00303 ADRES PULSEFLG
032227,000555:
032228,000556: 35,3665 05355 TC PHASCHNG
032229,000557: 35,3666 00006 OCT 6 # KILL GROUP 6.
032230,000558:
032231,000559: 35,3667 15263 TCF TASKOVER
032232,000560:
032233,000561:
032234,000562: # ****************************************
032235,000563:
032236,000564: 35,3670 05323 ZOOM TC CHECKMM # P40 OR P63?
032237,000565: 35,3671 00077 DEC 63 B-14
032238,000566: 35,3672 13700 TCF P40ZOOM
032239,000567:
032240,000568: 35,3673 05506 P63ZOOM TC UPFLAG # INDICATE THAT THROTTLE-UP HAS COME
032241,000569: 35,3674 00122 ADRES ZOOMFLAG
032242,000570:
032243,000571: 35,3675 04665 TC IBNKCALL
032244,000572: 35,3676 62334 CADR FLATOUT
032245,000573: 35,3677 13705 TCF P40ZOOMA
032246,000574:
032247,000575: 35,3700 34730 P40ZOOM CAF BIT13
032248,000576: 35,3701 54055 TS THRUST
032249,000577: 35,3702 34741 CAF BIT4
032250,000578:
032251,000579: 35,3703 00006 EXTEND
032252,000580: 35,3704 05014 WOR CHAN14
032253,000581:
032254,000582: 35,3705 05355 P40ZOOMA TC PHASCHNG
032255,000583: 35,3706 00003 OCT 3
032256,000584: 35,3707 15263 TCF TASKOVER
032257,000585:
032258,000586:
032259,000587: 36,2570 BANK 36
032260,000588:
![]() |
Page 737 |
032262,000590: 36,2000 SETLOC P40S
032263,000591: 36,2000 BANK
032264,000592: 36,2570 COUNT* $$/P40
032265,000593:
032266,000594: # ****************************************
032267,000595:
032268,000596: 36,2570 05506 COMFAIL TC UPFLAG # (15)
032269,000597: 36,2571 00161 ADRES IDLEFLAG
032270,000598: 36,2572 05506 TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032271,000599: 36,2573 00175 ADRES FLUNDISP
032272,000600: 36,2574 34742 CAF FOUR # RESET DVMON
032273,000601: 36,2575 55515 TS DVCNTR
032274,000602: 36,2576 10764 CCS PHASE6 # CLOCKTASK ACTIVE?
032275,000603: 36,2577 12602 TCF +3 # YES
032276,000604: 36,2600 04607 TC BANKCALL # OTHERWISE, START IT UP
032277,000605: 36,2601 74662 CADR STCLOK1
032278,000606: 36,2602 44756 +3 CS VB97DEX
032279,000607: 36,2603 55162 TS DISPDEX
032280,000608: 36,2604 05355 TC PHASCHNG # TURN OFF GROUP 4.
032281,000609: 36,2605 00004 OCT 00004
032282,000610: 36,2606 15146 TCF ENDOFJOB
032283,000611:
032284,000612: 36,2607 51455 COMFAIL1 INDEX WHICH
032285,000613: 36,2610 00002 TC 2
032286,000614:
032287,000615: 36,2611 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
032288,000616: 36,2612 12614 TCF +2
032289,000617:
032290,000618: 36,2613 44753 COMFAIL4 CS CNTDNDEX
032291,000619: 36,2614 55162 TS DISPDEX
032292,000620:
032293,000621: 36,2615 05520 TC DOWNFLAG # RECONNECT DV MONITOR
032294,000622: 36,2616 00161 ADRES IDLEFLAG
032295,000623: 36,2617 05520 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS
032296,000624: 36,2620 00175 ADRES FLUNDISP
032297,000625: 36,2621 15146 TCF ENDOFJOB
032298,000626:
032299,000627: 36,2622 05355 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
032300,000628: 36,2623 00003 OCT 00003
032301,000629:
032302,000630: 36,2624 00004 INHINT
032303,000631: 36,2625 06050 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
032304,000632: 36,2626 73670 CADR ZOOM
032305,000633: 36,2627 04665 TC IBNKCALL # COMMAND ENGINE OFF
032306,000634: 36,2630 75562 CADR ENGINOF4
032307,000635: 36,2631 05506 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP.
032308,000636: 36,2632 00312 ADRES DRIFTDFL
![]() |
Note: Above two instructions and operands TC ... and ADRES ... are encircled with a blue pen |
032310,000638: 36,2633 02644 TC INVFLAG # USE OTHER RCS SYSTEM
032311,000639: 36,2634 00310 ADRES AORBTFLG
032312,000640:
![]() |
Page 738 |
032314,000642: 36,2635 05506 TC UPFLAG # TURN ON ULLAGE
032315,000643: 36,2636 00314 ADRES ULLAGFLG
032316,000644: 36,2637 34744 CAF BIT1
032317,000645: 36,2640 00004 INHINT
032318,000646: 36,2641 05175 TC TWIDDLE
032319,000647: 36,2642 02354 ADRES TIG-5
032320,000648: 36,2643 15146 TCF ENDOFJOB
032321,000649:
032322,000650:
032323,000651: # ****************************************
032324,000652: # SUBROUTINES OF THE IGNITION ROUTINE
032325,000653: # ****************************************
032326,000654:
032327,000655: 36,2644 30002 INVFLAG CA Q
032328,000656: 36,2645 05524 TC DEBIT
032329,000657: 36,2646 40000 COM
032330,000658: 36,2647 00006 EXTEND
032331,000659: 36,2650 06001 RXOR LCHAN
032332,000660: 36,2651 15513 TCF COMFLAG
032333,000661:
032334,000662:
032335,000663: # ****************************************
032336,000664:
032337,000665: 36,2652 44737 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
032338,000666: 36,2653 70111 MASK DAPBOOLS
032339,000667: 36,2654 54111 TS DAPBOOLS
032340,000668: 36,2655 00002 TC Q
032341,000669:
032342,000670:
032343,000671: # ****************************************
032344,000672:
032345,000673: 36,2656 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
032346,000674: 36,2657 74737 MASK ULLAGER # A TASK OR WHILE INHINTED.
032347,000675: 36,2660 26111 ADS DAPBOOLS
032348,000676: 36,2661 00002 TC Q
032349,000677:
032350,000678:
032351,000679: # ****************************************
032352,000680:
032353,000681: 36,2662 34746 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
032354,000682: 36,2663 55162 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
032355,000683: 36,2664 04636 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
032356,000684: 36,2665 55060 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS)
032357,000685: 36,2666 00006 EXTEND
032358,000686: 36,2667 31442 DCA TIG
032359,000687: 36,2670 52155 DXCH MPAC
032360,000688: 36,2671 00006 EXTEND
032361,000689: 36,2672 40025 DCS TIME2
032362,000690: 36,2673 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032363,000691: 36,2674 07300 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
032364,000692:
![]() |
Page 739 |
032366,000694: 36,2675 34770 CAF 1SEC # 45 SECOND CHECK
032367,000695: 36,2676 54002 TS Q
032368,000696: 36,2677 52155 DXCH MPAC
032369,000697: 36,2700 74337 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
032370,000698: 36,2701 00006 EXTEND
032371,000699: 36,2702 10002 DV Q
032372,000700: 36,2703 30001 CA L # GET REMAINDER
032373,000701: 36,2704 64743 AD TWO
032374,000702: 36,2705 00004 INHINT
032375,000703: 36,2706 05175 TC TWIDDLE
032376,000704: 36,2707 02716 ADRES CLOKTASK
032377,000705: 36,2710 05331 TC 2PHSCHNG
032378,000706: 36,2711 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
032379,000707: 36,2712 05024 OCT 05024
032380,000708: 36,2713 13000 OCT 13000
032381,000709:
032382,000710: 36,2714 31060 CA TBASE4
032383,000711: 36,2715 04631 TC BANKJUMP
032384,000712:
032385,000713: 36,2716 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
032386,000714: 36,2717 55064 TS TBASE6
032387,000715:
032388,000716: 36,2720 11162 CCS DISPDEX
032389,000717: 36,2721 12732 TCF KILLCLOK
032390,000718: 36,2722 12723 NOOP
032391,000719: 36,2723 37736 CAF PRIO27
032392,000720: 36,2724 05063 TC NOVAC
032393,000721: 36,2725 E7,1453 EBANK= TTOGO
032394,000722: 36,2725 02736 74067 2CADR CLOKJOB
032395,000723:
032396,000724:
032397,000725: 36,2727 05223 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
032398,000726: 36,2730 00144 DEC 100 B-14
032399,000727: 36,2731 12716 TCF CLOKTASK
032400,000728:
032401,000729:
032402,000730: 36,2732 00006 KILLCLOK EXTEND # KILL RESTART
032403,000731: 36,2733 34746 DCA NEG0
032404,000732: 36,2734 52764 DXCH -PHASE6
032405,000733: 36,2735 15263 TCF TASKOVER
032406,000734:
032407,000735:
032408,000736: 36,2736 00006 CLOKJOB EXTEND
032409,000737: 36,2737 41442 DCS TIG
032410,000738: 36,2740 53454 DXCH TTOGO
032411,000739: 36,2741 00006 EXTEND
032412,000740: 36,2742 30025 DCA TIME2
032413,000741: 36,2743 21454 DAS TTOGO
032414,000742:
![]() |
Page 740 |
032416,000744: 36,2744 00004 INHINT
032417,000745: 36,2745 11162 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
032418,000746: 36,2746 15146 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
032419,000747: 36,2747 15146 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
032420,000748: 36,2750 40000 COM # INDEX.
032421,000749: 36,2751 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 *****
032422,000750: 36,2752 50000 INDEX A
032423,000751: 36,2753 13010 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
032424,000752:
032425,000753: 36,2754 4756 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
032426,000754:
032427,000755: 36,2754 44746 -35 CS ZERO # INDICATE VERB 97 PASTE
032428,000756: 36,2755 55066 TS NVWORD1
032429,000757: 36,2756 30370 CA NVWORD +2 # NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
032430,000758: 36,2757 04607 TC BANKCALL
032431,000759: 36,2760 20466 CADR CLOCPLAY
032432,000760: 36,2761 13012 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
032433,000761: 36,2762 12607 TCF COMFAIL1
032434,000762: 36,2763 12622 TCF COMFAIL2
032435,000763:
032436,000764: # THIS DISPLAY IS CALLED VIA ASTNCLOK
032437,000765: 36,2764 33145 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
032438,000766: 36,2765 04607 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
032439,000767: 36,2766 20452 CADR REFLASH # TIG.
032440,000768: 36,2767 13012 TCF STOPCLOK
032441,000769: 36,2770 13027 TCF ASTNRETN
032442,000770: 36,2771 12764 TCF -5
032443,000771:
032444,000772: 36,2772 4753 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
032445,000773:
032446,000774: 36,2772 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
032447,000775: 36,2773 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
032448,000776: 36,2774 04607 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
032449,000777: 36,2775 20460 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
032450,000778:
032451,000779: 36,2776 4751 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
032452,000780:
032453,000781: 36,2776 V99RECYC EQUALS
032454,000782:
032455,000783: 36,2776 44734 -13 CS BIT9 # INDICATE VERB 99 PASTE
032456,000784: 36,2777 55066 TS NVWORD1
032457,000785: 36,3000 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
032458,000786: 36,3001 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
032459,000787: 36,3002 04607 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE
032460,000788: 36,3003 20466 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
032461,000789: 36,3004 13012 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
032462,000790: 36,3005 13040 TCF *PROCEED
032463,000791: 36,3006 13043 TCF *ENTER
032464,000792:
032465,000793: 36,3007 4743 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
032466,000794:
![]() |
Page 741 |
032468,000796:
032469,000797: 36,3007 04607 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
032470,000798: 36,3010 20451 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
032471,000799: 36,3011 15146 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
032472,000800:
032473,000801:
032474,000802: 36,3012 03014 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
032475,000803: 36,3013 16001 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
032476,000804:
032477,000805: 36,3014 00004 NULLCLOK INHINT
032478,000806: 36,3015 00006 EXTEND
032479,000807: 36,3016 23141 QXCH P40/RET
032480,000808: 36,3017 02652 TC NOULLAGE # TURN OFF ULLAGE...
032481,000809: 36,3020 06050 TC KILLTASK # DON'T LET IT COME ON, EITHER...
032482,000810: 36,3021 74350 CADR ULLGTASK
032483,000811: 36,3022 05355 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
032484,000812: 36,3023 00001 OCT 1
032485,000813: 36,3024 30005 CA Z # KILL CLOKTASK
032486,000814: 36,3025 55162 TS DISPDEX
032487,000815: 36,3026 01141 TC P40/RET
032488,000816:
032489,000817:
032490,000818: 36,3027 05355 ASTNRETN TC PHASCHNG
032491,000819: 36,3030 04024 OCT 04024
032492,000820: 36,3031 34746 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING.
032493,000821: 36,3032 55162 TS DISPDEX
032494,000822: 36,3033 35014 CAF PRIO13
032495,000823: 36,3034 05076 TC FINDVAC
032496,000824: 36,3035 E5,1757 EBANK= STARIND
032497,000825: 36,3035 03022 64065 2CADR ASTNRET
032498,000826:
032499,000827: 36,3037 15146 TCF ENDOFJOB
032500,000828:
032501,000829:
032502,000830: 36,3040 05506 *PROCEED TC UPFLAG
032503,000831: 36,3041 00154 ADRES ASTNFLAG
032504,000832:
032505,000833: 36,3042 13101 TCF IGNITE
032506,000834:
032507,000835:
032508,000836: 36,3043 00004 *ENTER INHINT
032509,000837: 36,3044 51455 INDEX WHICH
032510,000838: 36,3045 00003 TC 3
032511,000839:
032512,000840: 36,3046 34635 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
032513,000841: 36,3047 05076 TC FINDVAC
032514,000842: 36,3050 E7,1453 EBANK= TTOGO
032515,000843: 36,3050 03222 74067 2CADR POSTBURN
032516,000844: 36,3052 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
032517,000845: 36,3053 04665 TC IBNKCALL
032518,000846:
![]() |
Page 742 |
032520,000848: 36,3054 40205 CADR ALLCOAST
032521,000849: 36,3055 03014 TC NULLCLOK
032522,000850: 36,3056 05355 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
032523,000851: 36,3057 00134 OCT 00134
032524,000852:
032525,000853: 36,3060 15146 TCF ENDOFJOB
032526,000854:
032527,000855:
032528,000856: 36,3061 35020 GOCUTOFF CAF PRIO17 # (3)
032529,000857: 36,3062 05076 TC FINDVAC
032530,000858: 36,3063 E7,1516 EBANK= TGO
032531,000859: 36,3063 03526 70067 2CADR CUTOFF
032532,000860:
032533,000861: 36,3065 05520 TC DOWNFLAG
032534,000862: 36,3066 00175 ADRES FLUNDISP
032535,000863:
032536,000864: 36,3067 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
032537,000865: 36,3070 04665 TC IBNKCALL
032538,000866: 36,3071 40205 CADR ALLCOAST
032539,000867: 36,3072 03014 TC NULLCLOK
032540,000868: 36,3073 05355 TC PHASCHNG
032541,000869: 36,3074 07024 OCT 07024
032542,000870: 36,3075 17000 OCT 17000
032543,000871: 36,3076 E7,1516 EBANK= TGO
032544,000872: 36,3076 03526 70067 2CADR CUTOFF
032545,000873:
032546,000874: 36,3100 15146 TCF ENDOFJOB
032547,000875:
032548,000876:
032549,000877: 36,3101 40103 IGNITE CS FLAGWRD7 # (2)
032550,000878: 36,3102 74730 MASK IGNFLBIT
032551,000879: 36,3103 10000 CCS A
032552,000880: 36,3104 13115 TCF IGNITE1
032553,000881: 36,3105 34744 CAF BIT1
032554,000882: 36,3106 00004 INHINT
032555,000883: 36,3107 05175 TC TWIDDLE
032556,000884: 36,3110 02433 ADRES IGNITION
032557,000885:
032558,000886: 36,3111 34351 CAF OCT23 # IMMEDIATE RESTART AT IGNITION.
032559,000887: 36,3112 54001 TS L
032560,000888: 36,3113 40000 COM
032561,000889: 36,3114 52760 DXCH -PHASE4
032562,000890:
032563,000891: 36,3115 44753 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
032564,000892: 36,3116 55162 TS DISPDEX
032565,000893:
032566,000894: 36,3117 15146 TCF ENDOFJOB
032567,000895:
032568,000896: # ****************************************
032569,000897:
![]() |
Page 743 |
032571,000899:
032572,000900: 36,3120 05571 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH
032573,000901: 36,3121 01706 OCT 1706 # VEHICLE CONFIGURATION
032574,000902:
032575,000903: 36,3122 34777 REP40ALM CAF V05N09 # (14)
032576,000904: 36,3123 04607 TC BANKCALL
032577,000905: 36,3124 20471 CADR GOFLASH
032578,000906:
032579,000907: 36,3125 16001 TCF GOTOPOOH # V34E TERMINATE
032580,000908: 36,3126 13130 TCF +2 # PROCEED CHECK FOR P42
032581,000909: 36,3127 13122 TCF REP40ALM # V32E REDISPLAY ALARM
032582,000910:
032583,000911: 36,3130 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN
032584,000912: 36,3131 00014 TC 14 # THOUGH VEHICLE IS UNSTAGED.
032585,000913:
032586,000914: # ****************************************
032587,000915:
032588,000916:
032589,000917: 31,2144 BANK 31
032590,000918: 35,2000 SETLOC P40S2
032591,000919: 35,2000 BANK
032592,000920:
032593,000921: 35,3710 COUNT* $$/P40
032594,000922:
032595,000923: 35,3710 04636 P40AUTO TC MAKECADR # HELLO THERE.
032596,000924: 35,3711 55163 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
032597,000925: 35,3712 04607 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
032598,000926: 35,3713 54267 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
032599,000927: 35,3714 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
032600,000928: 35,3715 13733 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
032601,000929: 35,3716 34730 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
032602,000930: 35,3717 70106 MASK FLGWRD10
032603,000931: 35,3720 10000 CCS A
032604,000932: 35,3721 13740 TCF GOBACK # RETURN
032605,000933: 35,3722 34741 CAF BIT4
032606,000934: 35,3723 70374 MASK CHANBKUP
032607,000935: 35,3724 10000 CCS A
032608,000936: 35,3725 13740 TCF GOBACK # IGN6RE CHAN 30 BIT 5. ASSUME AUTO THROT
032609,000937:
032610,000938: 35,3726 34740 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
032611,000939: 35,3727 00006 EXTEND
032612,000940: 35,3730 02030 RAND CHAN30
032613,000941: 35,3731 00006 EXTEND
032614,000942: 35,3732 13740 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
032615,000943: 35,3733 33742 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
032616,000944: 35,3734 04607 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
032617,000945: 35,3735 20635 CADR GOPERF1
032618,000946: 35,3736 16001 TCF GOTOPOOH # V34E TERMINATE
032619,000947: 35,3737 13712 TCF P40A/P # RECYCLE
032620,000948: 35,3740 31163 GOBACK CA TEMPR60
032621,000949: 35,3741 04631 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
032622,000950:
![]() |
Page 744 |
032624,000952:
032625,000953: 35,3742 00203 P40A/PMD OCT 00203
032626,000954:
032627,000955: 36,3132 BANK 36
032628,000956: 36,2000 SETLOC P40S
032629,000957: 36,2000 BANK
032630,000958:
032631,000959: 36,3132 COUNT* $$/P40
032632,000960:
032633,000961: # ****************************************
032634,000962: # CONSTANTS FOR THE IGNITION ROUTINE
032635,000963: # ****************************************
032636,000964:
032637,000965: 36,3132 36,2107 SERVCADR = P63TABLE +7
032638,000966:
032639,000967: 36,3132 02040 P40ADRES ADRES P40TABLE
032640,000968:
032641,000969: 36,3133 02050 P41ADRES ADRES P41TABLE -5
032642,000970:
032643,000971: 36,3134 02063 P42ADRES ADRES P42TABLE
032644,000972:
032645,000973: 36,3135 E7,1515 EBANK= DVCNTR
032646,000974: 36,3135 02425 62067 LUNLANAD 2CADR LUNLAND
032647,000975:
032648,000976:
032649,000977:
032650,000978: 36,3137 E7,1515 EBANK= DVCNTR
032651,000979: 36,3137 03375 70067 ATMAGADR 2CADR ATMAG
032652,000980:
032653,000981: 36,3141 6001 ? = GOTOPOOH
032654,000982:
032655,000983: 36,3141 00000 05656 D29.9SEC 2DEC 2990 B-28
032656,000984:
032657,000985: 36,3143 04672 S24.9SEC DEC 2490 B-14
032658,000986:
032659,000987: 36,3144 00752 4.9SEC DEC 490 B-14
032660,000988:
032661,000989: 36,3145 4740 OCT20 = BIT5
032662,000990:
032663,000991: 36,3145 01475 V06N61 VN 0661
032664,000992:
![]() |
Page 745 |
032666,000994: # KILLTASK
032667,000995: # MOD NO: NEW PROGRAM
032668,000996: # MOD BY: COVELLI
032669,000997:
032670,000998: # FUNCTIONAL DESCRIPTION:
032671,000999:
032672,001000: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
032673,001001: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
032674,001002: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
032675,001003: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
032676,001004:
032677,001005: # CALLING SEQUENCE:
032678,001006: # L TC KILLTASK IN FIXED-FIXED
032679,001007: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED.
032680,001008: # L+2 (RELINT) RETURN
032681,001009:
032682,001010: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
032683,001011:
032684,001012: # ERASABLE INITIALIZATION= NONE.
032685,001013:
032686,001014: # OUTPUT: 2CADR OF NULLTASK IN LST2
032687,001015:
032688,001016: # DEBRIS: ITEMP1 - ITEMP4, A,L,Q.
032689,001017:
032690,001018: 36,3146 E3,1410 EBANK= LST2
032691,001019: 6050 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
032692,001020: 6000 SETLOC FFTAG6
032693,001021: 6000 BANK
032694,001022: 6050 COUNT* $$/KILL
032695,001023: 6050 36057 KILLTASK CA KILLBB
032696,001024: 6051 00004 INHINT
032697,001025: 6052 22000 LXCH A
032698,001026: 6053 50002 INDEX Q
032699,001027: 6054 30000 CA 0 # GET CADR.
032700,001028: 6055 22006 LXCH BBANK
032701,001029: 6056 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED
032702,001030:
032703,001031: 6057 E3,1410 EBANK= LST2
032704,001032: 6057 56063 KILLBB BBCON KILLTSK2
032705,001033:
032706,001034: 27,2200 BANK 27
032707,001035:
032708,001036: 27,2000 SETLOC P40S1
032709,001037: 27,2000 BANK
032710,001038: 27,2200 COUNT* $$/KILL
032711,001039:
032712,001040: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
032713,001041:
![]() |
Page 746 |
032715,001043: 27,2201 24002 INCR Q
032716,001044: 27,2202 00006 EXTEND
032717,001045: 27,2203 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2
032718,001046:
032719,001047: 27,2204 54063 TS ITEMP3 # CADR IS IN A
032720,001048: 27,2205 75003 MASK LOW10
032721,001049: 27,2206 64732 AD BIT11
032722,001050: 27,2207 54064 TS ITEMP4 # GENADR OF TASK
032723,001051:
032724,001052: 27,2210 45003 CS LOW10
032725,001053: 27,2211 70063 MASK ITEMP3
032726,001054: 27,2212 54063 TS ITEMP3 # FBANK OF TASK
032727,001055:
032728,001056: 27,2213 22007 ZL
032729,001057: 27,2214 50001 ADRSCAN INDEX L
032730,001058: 27,2215 41410 CS LST2
032731,001059: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS
032732,001060: 27,2217 00006 EXTEND
032733,001061: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
032734,001062: 27,2221 44740 LETITLIV CS LSTLIM
032735,001063: 27,2222 60001 AD L
032736,001064: 27,2223 00006 EXTEND # ARE WE DONE?
032737,001065: 27,2224 12230 BZF DEAD # YES - DONE, SO RETURN
032738,001066: 27,2225 24001 INCR L
032739,001067: 27,2226 24001 INCR L
032740,001068: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP.
032741,001069:
032742,001070: 27,2230 52062 DEAD DXCH ITEMP1
032743,001071: 27,2231 52006 DTCB
032744,001072:
032745,001073: 27,2232 45003 TSTFBANK CS LOW10
032746,001074: 27,2233 50001 INDEX L
032747,001075: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
032748,001076: 27,2235 00006 EXTEND
032749,001077: 27,2236 60063 SU ITEMP3
032750,001078: 27,2237 00006 EXTEND
032751,001079: 27,2240 12242 BZF KILLDEAD # MATCH - KILL IT.
032752,001080: 27,2241 12221 TCF LETITLIV # NO MATCH - CONTINUE.
032753,001081:
032754,001082: 27,2242 34344 KILLDEAD CA TCTSKOVR
032755,001083: 27,2243 50001 INDEX L
032756,001084: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
032757,001085: 27,2245 12230 TCF DEAD
032758,001086:
032759,001087: 27,2246 4740 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc