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