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