GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
030647,000002: ## Copyright: Public domain.
030648,000003: ## Filename: BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
030649,000004: ## Purpose: A section of Luminary 1C, revision 131.
030650,000005: ## It is part of the source code for the Lunar Module's (LM)
030651,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
030652,000007: ## This file is intended to be a faithful transcription, except
030653,000008: ## that the code format has been changed to conform to the
030654,000009: ## requirements of the yaYUL assembler rather than the
030655,000010: ## original YUL assembler.
030656,000011: ## Reference: pp. 725-746
030657,000012: ## Contact: Ron Burkey <info@sandroid.org>.
030658,000013: ## Website: www.ibiblio.org/apollo/index.html
030659,000014: ## Mod history: 05/24/03 RSB. Began transcribing.
030660,000015: ## 05/14/05 RSB Corrected website reference above.
030661,000016: ## 2010-10-25 JL Indentation fixes.
030662,000017: ## 2011-05-07 JL Removed workarounds.
030663,000018: ## 2017-01-06 RSB Page numbers now agree with those on the
030664,000019: ## original hardcopy, as opposed to the PDF page
030665,000020: ## numbers in 1701.pdf.
030666,000021: ## 2017-02-25 RSB Proofed comment text using octopus/ProoferComments.
030667,000022: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
030668,000023: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
030669,000024: ## side-by-side diff of Luminary 69/99/116/131/210.
030670,000025:
|
|
Page 725 |
030672,000027: 36,2024 BANK 36
030673,000028: 36,2000 SETLOC P40S
030674,000029: 36,2000 BANK
030675,000030: 36,2024 E7,1455 EBANK= WHICH
030676,000031: 36,2024 COUNT* $$/P40
030677,000032:
030678,000033: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
030679,000034: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
030680,000035: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
030681,000036: # PROGRAMS THROTTLE UP.
030682,000037:
030683,000038: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
030684,000039: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
030685,000040: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
030686,000041: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
030687,000042: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
030688,000043:
030689,000044: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
030690,000045:
030691,000046: # HONI SOIT QUI MAL Y PENSE
030692,000047:
030693,000048: # ****************************************
030694,000049: # TABLES FOR THE IGNITION ROUTINE
030695,000050: # ****************************************
030696,000051:
030697,000052: # NOLI SE TANGERE
030698,000053:
030699,000054: 36,2024 01512 P12TABLE VN 0674 # (0)
030700,000055: 36,2025 12327 TCF ULLGNOT # (1)
030701,000056: 36,2026 12616 TCF COMFAIL3 # (2)
030702,000057: 36,2027 13066 TCF GOCUTOFF # (3)
030703,000058: 36,2030 15261 TCF TASKOVER # (4)
030704,000059: 36,2031 12150 TCF P12SPOT # (5)
030705,000060: 36,2032 00000 DEC 0 B-14 # (6) NO ULLAGE
030706,000061: 36,2033 E7,1455 EBANK= WHICH
030707,000062: 36,2033 03746 64067 2CADR SERVEXIT # (7)
030708,000063:
030709,000064: 36,2035 12402 TCF DISPCHNG # (11)
030710,000065: 36,2036 12567 TCF WAITABIT # (12)
030711,000066: 36,2037 12525 TCF P12IGN # (13)
030712,000067:
030713,000068: 36,2040 01450 P40TABLE VN 0640 # (0)
030714,000069: 36,2041 12327 TCF ULLGNOT # (1)
030715,000070: 36,2042 12620 TCF COMFAIL4 # (2)
030716,000071: 36,2043 13053 TCF GOPOST # (3)
030717,000072: 36,2044 15261 TCF TASKOVER # (4)
030718,000073: 36,2045 12150 TCF P40SPOT # (5)
|
|
Page 726 |
030720,000075: 36,2046 04300 DEC 2240 B-14 # (6)
030721,000076: 36,2047 E6,1422 EBANK= OMEGAQ
030722,000077: 36,2047 03672 74066 2CADR STEERING # (7)
030723,000078:
030724,000079: 36,2051 12372 TCF P40SJUNK # (11)
030725,000080: 36,2052 12567 TCF WAITABIT # (12)
030726,000081: 36,2053 12510 TCF P40IGN # (13)
030727,000082: 36,2054 13127 TCF REP40ALM # (14)
030728,000083:
030729,000084: 36,2055 12153 P41TABLE TCF P41SPOT # (5)
030730,000085: 36,2056 77776 DEC -1 B-14 # (6)
030731,000086: 36,2057 E6,1422 EBANK= OMEGAQ
030732,000087: 36,2057 03402 74066 2CADR CALCN85 # (7)
030733,000088:
030734,000089: 36,2061 12404 TCF COMMON # (11)
030735,000090: 36,2062 12573 TCF TIGTASK # (12)
030736,000091:
030737,000092: 36,2063 01450 P42TABLE VN 0640 # (0)
030738,000093: 36,2064 12324 TCF WANTAPS # (1)
030739,000094: 36,2065 12620 TCF COMFAIL4 # (2)
030740,000095: 36,2066 13053 TCF GOPOST # (3)
030741,000096: 36,2067 15261 TCF TASKOVER # (4)
030742,000097: 36,2070 12150 TCF P42SPOT # (5)
030743,000098: 36,2071 05120 DEC 2640 B-14 # (6)
030744,000099: 36,2072 E6,1422 EBANK= OMEGAQ
030745,000100: 36,2072 03672 74066 2CADR STEERING # (7)
030746,000101:
030747,000102: 36,2074 12372 TCF P40SJUNK # (11)
030748,000103: 36,2075 12567 TCF WAITABIT # (12)
030749,000104: 36,2076 12545 TCF P42IGN # (13)
030750,000105: 36,2077 13424 TCF P42STAGE # (14)
030751,000106:
030752,000107: 36,2100 01476 P63TABLE VN 0662 # (0)
030753,000108: 36,2101 12327 TCF ULLGNOT # (1)
030754,000109: 36,2102 12616 TCF COMFAIL3 # (2)
030755,000110: 36,2103 13003 TCF V99RECYC # (3)
030756,000111: 36,2104 15261 TCF TASKOVER # (4)
030757,000112: 36,2105 12153 TCF P63SPOT # (5)
030758,000113: 36,2106 04300 DEC 2240 B-14 # (6)
030759,000114: 36,2107 E7,1455 EBANK= WHICH
030760,000115: 36,2107 03746 64067 2CADR SERVEXIT # (7)
030761,000116:
030762,000117: 36,2111 12402 TCF DISPCHNG # (11)
030763,000118: 36,2112 12567 TCF WAITABIT # (12)
|
|
Page 727 |
030765,000120: 36,2113 12464 TCF P63IGN # (13)
030766,000121:
030767,000122: 36,2114 01477 ABRTABLE VN 0663 # (0)
030768,000123: 36,2115 12327 TCF ULLGNOT # (1)
030769,000124: 36,2116 12616 TCF COMFAIL3 # (2)
030770,000125: 36,2117 13066 TCF GOCUTOFF # (3)
030771,000126: 36,2120 15261 TCF TASKOVER # (4)
030772,000127: 36,2121 12122 NOOP # (5)
030773,000128: 36,2122 12123 NOOP # (6)
030774,000129: 36,2123 12124 NOOP # (7)
030775,000130: 36,2124 12125 NOOP
030776,000131: 36,2125 12402 TCF DISPCHNG # (11)
030777,000132: 36,2126 12567 TCF WAITABIT # (12)
030778,000133: 36,2127 12535 TCF ABRTIGN # (13)
030779,000134:
030780,000135: # ****************************************
030781,000136: # GENERAL PURPOSE IGNITION ROUTINES
030782,000137: # ****************************************
030783,000138:
030784,000139: 36,2130 05353 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
030785,000140: 36,2131 04024 OCT 04024
030786,000141:
030787,000142: 36,2132 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
030788,000143: 36,2133 55507 TS DVTOTAL
030789,000144: 36,2134 55510 TS DVTOTAL +1
030790,000145:
030791,000146: 36,2135 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
030792,000147: 36,2136 73707 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
030793,000148:
030794,000149: 36,2137 00006 B*RNB*B* EXTEND
030795,000150: 36,2140 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
030796,000151: 36,2141 53512 DXCH GOBLTIME # AND FOR P70 OR P71.
030797,000152:
030798,000153: 36,2142 00004 INHINT
030799,000154: 36,2143 04674 TC IBNKCALL
030800,000155: 36,2144 75570 CADR ENGINOF3
030801,000156: 36,2145 00003 RELINT
030802,000157:
030803,000158: 36,2146 51455 INDEX WHICH
030804,000159: 36,2147 10005 TCF 5
030805,000160:
030806,000161: 36,2150 36,2150 P42SPOT = P40SPOT # (5)
030807,000162: 36,2150 36,2150 P12SPOT = P40SPOT # (5)
030808,000163: 36,2150 36,2153 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
030809,000164: 36,2150 44762 P40SPOT CS CNTDNDEX # (5)
|
|
Page 728 |
030811,000166: 36,2151 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
030812,000167: 36,2152 74670 CADR STCLOK2 # RETURN
030813,000168: 36,2153 06042 P41SPOT TC INTPRET # (5)
030814,000169: 36,2154 45345 DLOAD DSU
030815,000170: 36,2155 03442 TIG
030816,000171: 36,2156 35147 D29.9SEC
030817,000172: 36,2157 34041 STCALL TDEC1
030818,000173: 36,2160 61071 INITCDUW
030819,000174: 36,2161 45014 BOFF CALL
030820,000175: 36,2162 03347 MUNFLAG
030821,000176: 36,2163 74202 GOMIDAV
030822,000177: 36,2164 27042 CSMPREC
030823,000178: 36,2165 64375 VLOAD MXV
030824,000179: 36,2166 00025 VATT1
030825,000180: 36,2167 01734 REFSMMAT
030826,000181: 36,2170 77762 VSR1
030827,000182: 36,2171 25726 STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
030828,000183: 36,2172 00017 RATT1
030829,000184: 36,2173 64312 VSL4 MXV
030830,000185: 36,2174 01734 REFSMMAT
030831,000186: 36,2175 35720 STCALL R(CSM) # CSM POSITION - M*2(24)
030832,000187: 36,2176 67067 MUNGRAV
030833,000188: 36,2177 16317 STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
030834,000189: 36,2200 00015 TAT
030835,000190: 36,2201 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
030836,000191: 36,2202 77624 GOMIDAV CALRB
030837,000192: 36,2203 27553 MIDTOAV1
030838,000193: 36,2204 12213 TCF CALLT-35 # MADE IT IN TIME.
030839,000194:
030840,000195: 36,2205 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9
030841,000196: 36,2206 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID
030842,000197: 36,2207 53442 DXCH TIG # INTEGRATE.
030843,000198: 36,2210 00006 EXTEND
030844,000199: 36,2211 33147 DCA D29.9SEC
030845,000200: 36,2212 21442 DAS TIG
030846,000201:
030847,000202: 36,2213 52155 CALLT-35 DXCH MPAC
030848,000203: 36,2214 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30
030849,000204: 36,2215 00006 EXTEND
030850,000205: 36,2216 43762 DCS 5SECDP
030851,000206: 36,2217 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35
030852,000207: 36,2220 00006 EXTEND
030853,000208: 36,2221 31500 DCA SAVET-30
030854,000209: 36,2222 05277 TC LONGCALL
030855,000210: 36,2223 E7,1453 EBANK= TTOGO
030856,000211: 36,2223 02242 74067 2CADR TIG-35
030857,000212:
030858,000213: 36,2225 05353 TC PHASCHNG
030859,000214: 36,2226 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
|
|
Page 729 |
030861,000216: 36,2227 05321 TC CHECKMM
030862,000217: 36,2230 00077 DEC 63 B-14
030863,000218: 36,2231 15155 TCF ENDOFJOB # NOT P63
030864,000219: 36,2232 44762 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
030865,000220: 36,2233 55162 TS DISPDEX
030866,000221: 36,2234 06042 TC INTPRET
030867,000222: 36,2235 51575 VLOAD ABVAL
030868,000223: 36,2236 03553 VN1
030869,000224: 36,2237 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY
030870,000225: 36,2240 77776 EXIT
030871,000226: 36,2241 15155 TCF ENDOFJOB
030872,000227:
030873,000228: # ****************************************
030874,000229:
030875,000230: 36,2242 33762 TIG-35 CAF 5SEC
030876,000231: 36,2243 05173 TC TWIDDLE
030877,000232: 36,2244 02300 ADRES TIG-30
030878,000233:
030879,000234: 36,2245 05353 TC PHASCHNG
030880,000235: 36,2246 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
030881,000236:
030882,000237: 36,2247 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
030883,000238: 36,2250 55162 TS DISPDEX
030884,000239:
030885,000240: 36,2251 51455 INDEX WHICH
030886,000241: 36,2252 40006 CS 6 # CHECK ULLAGE TIME.
030887,000242: 36,2253 00006 EXTEND
030888,000243: 36,2254 65261 BZMF TASKOVER
030889,000244: 36,2255 33151 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
030890,000245: 36,2256 05173 TC TWIDDLE
030891,000246: 36,2257 02270 ADRES TIG-30.1
030892,000247:
030893,000248: 36,2260 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
030894,000249: 36,2261 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
030895,000250: 36,2262 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
030896,000251: 36,2262 02265 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
030897,000252:
030898,000253: 36,2264 15261 TCF TASKOVER
030899,000254:
030900,000255: 36,2265 04616 P41BLANK TC BANKCALL # BLANK DSKY.
030901,000256: 36,2266 20457 CADR CLEANDSP
030902,000257: 36,2267 15155 TCF ENDOFJOB
030903,000258:
030904,000259: 36,2270 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
030905,000260: 36,2271 05072 TC NOVAC
030906,000261: 36,2272 E7,1453 EBANK= TTOGO
030907,000262: 36,2272 02275 74067 2CADR TIG-30A
030908,000263:
030909,000264: 36,2274 15261 TCF TASKOVER
|
|
Page 730 |
030911,000266: 36,2275 33765 TIG-30A CAF V16N85B
030912,000267: 36,2276 04616 TC BANKCALL # RESTORE DISPLAY.
030913,000268: 36,2277 20466 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
030914,000269:
030915,000270: # *****************************************
030916,000271:
030917,000272: 36,2300 33150 TIG-30 CAF S24.9SEC
030918,000273: 36,2301 05173 TC TWIDDLE
030919,000274: 36,2302 02354 ADRES TIG-5
030920,000275:
030921,000276: 36,2303 44762 CS CNTDNDEX # START UP CLOKTASK AGAIN
030922,000277: 36,2304 55162 TS DISPDEX
030923,000278:
030924,000279: 36,2305 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
030925,000280: 36,2306 30006 CAF 6
030926,000281: 36,2307 00006 EXTEND
030927,000282: 36,2310 62327 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
030928,000283: 36,2311 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART
030929,000284: 36,2312 05173 TC TWIDDLE
030930,000285: 36,2313 02350 ADRES ULLGTASK
030931,000286:
030932,000287: 36,2314 36250 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
030933,000288: 36,2315 54001 TS L
030934,000289: 36,2316 46250 CS THREE
030935,000290: 36,2317 52752 DXCH -PHASE1
030936,000291: 36,2320 40025 CS TIME1
030937,000292: 36,2321 55052 TS TBASE1
030938,000293:
030939,000294: 36,2322 51455 INDEX WHICH
030940,000295: 36,2323 10001 TCF 1
030941,000296:
030942,000297: 36,2324 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
030943,000298: 36,2325 74737 MASK APSFLBIT # WASN'T SET, DAP WILL BE INITIALIZED TO
030944,000299: 36,2326 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
030945,000300:
030946,000301: 36,2327 00006 ULLGNOT EXTEND # (1)
030947,000302: 36,2330 51455 INDEX WHICH
030948,000303: 36,2331 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
030949,000304: 36,2332 53252 DXCH AVEGEXIT
030950,000305:
030951,000306: 36,2333 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
030952,000307: 36,2334 54001 TS L
030953,000308: 36,2335 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
030954,000309: 36,2336 52760 DXCH -PHASE4
030955,000310:
030956,000311: 36,2337 40025 CS TIME1
030957,000312: 36,2340 55060 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
030958,000313:
030959,000314: 36,2341 00006 REDO2.17 EXTEND
|
|
Page 731 |
030961,000316: 36,2342 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
030962,000317: 36,2343 52754 DXCH -PHASE2 # IF NEEDED.
030963,000318:
030964,000319: 36,2344 10762 REDO4.2 CCS PHASE5 # IS SERVICER GOING?
030965,000320: 36,2345 15261 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
030966,000321:
030967,000322: 36,2346 04635 TC POSTJUMP
030968,000323: 36,2347 77410 CADR PREREAD # PREREAD ENDS THIS TASK
030969,000324:
030970,000325: # ****************************************
030971,000326:
030972,000327: 36,2350 02663 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
030973,000328: 36,2351 05353 TC PHASCHNG
030974,000329: 36,2352 00001 OCT 1
030975,000330: 36,2353 15261 TCF TASKOVER
030976,000331:
030977,000332: # ****************************************
030978,000333:
030979,000334: 36,2354 00006 TIG-5 EXTEND
030980,000335: 36,2355 34755 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE.
030981,000336: 36,2356 52756 DXCH -PHASE3
030982,000337:
030983,000338: 36,2357 33762 CAF 5SEC
030984,000339: 36,2360 05173 TC TWIDDLE
030985,000340: 36,2361 02407 ADRES TIG-0
030986,000341:
030987,000342: 36,2362 05516 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG
030988,000343: 36,2363 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC
030989,000344: 36,2364 05516 TC DOWNFLAG
030990,000345: 36,2365 00154 ADRES ASTNFLAG
030991,000346: 36,2366 05516 TC DOWNFLAG
030992,000347: 36,2367 00122 ADRES ZOOMFLAG
030993,000348:
030994,000349: 36,2370 51455 INDEX WHICH
030995,000350: 36,2371 10011 TCF 11
030996,000351:
030997,000352: 36,2372 10756 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
030998,000353: 36,2373 12402 TCF DISPCHNG # YES
030999,000354:
031000,000355: 36,2374 34736 CAF PRIO20
031001,000356: 36,2375 05105 TC FINDVAC
031002,000357: 36,2376 E7,1453 EBANK= TTOGO
031003,000358: 36,2376 02540 56067 2CADR S40.13
031004,000359:
031005,000360: 36,2400 05353 TC PHASCHNG # 3.5SPOT FOR S40.13
031006,000361: 36,2401 00053 OCT 00053
|
|
Page 732 |
031008,000363: 36,2402 44760 DISPCHNG CS VB99DEX # (11)
031009,000364: 36,2403 55162 TS DISPDEX
031010,000365: 36,2404 05353 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
031011,000366: 36,2405 40074 OCT 40074
031012,000367: 36,2406 15261 TCF TASKOVER
031013,000368:
031014,000369: # ****************************************
031015,000370:
031016,000371: 36,2407 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
031017,000372: 36,2410 74737 MASK IGNFLBIT
031018,000373: 36,2411 26103 ADS FLAGWRD7
031019,000374:
031020,000375: 36,2412 05321 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
031021,000376: 36,2413 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
031022,000377: 36,2414 12425 TCF IGNYET?
031023,000378: 36,2415 31422 CA ZOOMTIME
031024,000379: 36,2416 05203 TC WAITLIST
031025,000380: 36,2417 E7,1515 EBANK= DVCNTR
031026,000381: 36,2417 03667 72067 2CADR ZOOM
031027,000382:
031028,000383: 36,2421 05327 TC 2PHSCHNG
031029,000384: 36,2422 40033 OCT 40033
031030,000385:
031031,000386: 36,2423 05014 OCT 05014
031032,000387: 36,2424 77777 OCT 77777
031033,000388:
031034,000389: 36,2425 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
031035,000390: 36,2426 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
031036,000391: 36,2427 00006 EXTEND
031037,000392: 36,2430 51455 INDEX WHICH
031038,000393: 36,2431 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET
031039,000394:
031040,000395: 36,2432 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
031041,000396: 36,2433 74745 MASK ENGONBIT
031042,000397: 36,2434 26101 ADS FLAGWRD5
031043,000398: 36,2435 44355 CS PRIO30 # TURN ON THE ENGINE.
031044,000399: 36,2436 00006 EXTEND
031045,000400: 36,2437 02011 RAND DSALMOUT
031046,000401: 36,2440 64737 AD BIT13
031047,000402: 36,2441 00006 EXTEND
031048,000403: 36,2442 01011 WRITE DSALMOUT
031049,000404: 36,2443 00006 EXTEND # SET TEVENT FOR DOWNLINK
031050,000405: 36,2444 30025 DCA TIME2
031051,000406: 36,2445 53342 DXCH TEVENT
031052,000407:
031053,000408: 36,2446 44735 CS PULSES # MAKE SURE THAT DAP IS NOT IN MINIMUM
031054,000409: 36,2447 70111 MASK DAPBOOLS # IMPULSE MODE IN P12,P40,P42, AND P63
031055,000410: 36,2450 54111 TS DAPBOOLS
|
|
Page 733 |
031057,000412: 36,2451 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
031058,000413: 36,2452 31517 DCA TGO
031059,000414: 36,2453 53442 DXCH TIG
031060,000415: 36,2454 00006 EXTEND
031061,000416: 36,2455 30025 DCA TIME2
031062,000417: 36,2456 21442 DAS TIG
031063,000418:
031064,000419: 36,2457 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS
031065,000420: 36,2460 70104 MASK FLAGWRD8
031066,000421: 36,2461 54104 TS FLAGWRD8
031067,000422:
031068,000423: 36,2462 51455 INDEX WHICH
031069,000424: 36,2463 10013 TCF 13
031070,000425:
031071,000426: 36,2464 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
031072,000427: 36,2465 33143 DCA LUNLANAD
031073,000428: 36,2466 53252 DXCH AVGEXIT
031074,000429:
031075,000430: 36,2467 30005 CA Z # ASSASSINATE CLOKTASK
031076,000431: 36,2470 55162 TS DISPDEX
031077,000432:
031078,000433: 36,2471 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
031079,000434: 36,2472 74743 MASK LETABBIT
031080,000435: 36,2473 26105 ADS FLAGWRD9
031081,000436:
031082,000437: 36,2474 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
031083,000438: 36,2475 74741 MASK SWANDBIT
031084,000439: 36,2476 26103 ADS FLAGWRD7
031085,000440:
031086,000441: 36,2477 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
031087,000442: 36,2500 30025 DCA TIME2
031088,000443: 36,2501 53442 DXCH TIG
031089,000444:
031090,000445: 36,2502 34755 CAF ZERO # INITIALIZE WCHPHASE AND FLPASSO
031091,000446: 36,2503 55346 TS WCHPHASE
031092,000447: 36,2504 55621 TS WCHPHOLD # ALSO WHCPHOLD
031093,000448: 36,2505 34752 CA TWO
031094,000449: 36,2506 55623 TS FLPASS0
031095,000450:
031096,000451: 36,2507 12545 TCF P42IGN
031097,000452: 36,2510 40101 P40IGN CS FLAGWRD5 # (13)
031098,000453: 36,2511 74740 MASK NOTHRBIT
031099,000454: 36,2512 00006 EXTEND
031100,000455: 36,2513 12545 BZF P42IGN
031101,000456: 36,2514 31422 CA ZOOMTIME
031102,000457: 36,2515 05203 TC WAITLIST
031103,000458: 36,2516 E7,1515 EBANK= DVCNTR
031104,000459: 36,2516 03667 72067 2CADR ZOOM
031105,000460:
031106,000461: 36,2520 05327 P63IGN1 TC 2PHSCHNG
|
|
Page 734 |
031108,000463: 36,2521 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
031109,000464: 36,2522 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
031110,000465: 36,2523 77777 OCT 77777
031111,000466:
031112,000467: 36,2524 12545 TCF P42IGN
031113,000468: 36,2525 35015 P12IGN CAF EBANK6
031114,000469: 36,2526 54003 TS EBANK
031115,000470: 36,2527 E6,1536 EBANK= AOSQ
031116,000471:
031117,000472: 36,2527 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION
031118,000473: 36,2530 55536 TS AOSQ # ESTIMATES AT P12 IGNITION.
031119,000474: 36,2531 31413 CA IGNAOSR
031120,000475: 36,2532 55540 TS AOSR
031121,000476:
031122,000477: 36,2533 35016 CAF EBANK7
031123,000478: 36,2534 54003 TS EBANK
031124,000479: 36,2535 E7,1515 EBANK= DVCNTR
031125,000480:
031126,000481: 36,2535 30005 ABRTIGN CA Z # (13) KILL CLOKTASK
031127,000482: 36,2536 55162 TS DISPDEX
031128,000483:
031129,000484: 36,2537 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER.
031130,000485: 36,2540 33145 DCA ATMAGADR
031131,000486: 36,2541 53252 DXCH AVGEXIT
031132,000487:
031133,000488: 36,2542 40103 CS FLAGWRD7 # ENABLE R10.
031134,000489: 36,2543 74741 MASK SWANDBIT
031135,000490: 36,2544 26103 ADS FLAGWRD7
031136,000491:
031137,000492: 36,2545 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
031138,000493: 36,2546 70111 MASK DAPBOOLS # CURVES ARE USED.
031139,000494: 36,2547 54111 TS DAPBOOLS
031140,000495: 36,2550 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
031141,000496: 36,2551 70076 MASK FLAGWRD2
031142,000497: 36,2552 10000 CCS A
031143,000498: 36,2553 13526 TCF IMPLBURN
031144,000499:
031145,000500: 36,2554 05516 DVMONCON TC DOWNFLAG
031146,000501: 36,2555 00153 ADRES IGNFLAG # CONNECT DVMON
031147,000502: 36,2556 05516 TC DOWNFLAG
031148,000503: 36,2557 00154 ADRES ASTNFLAG
031149,000504: 36,2560 05516 TC DOWNFLAG
031150,000505: 36,2561 00161 ADRES IDLEFLAG
031151,000506:
031152,000507: 36,2562 05353 TC PHASCHNG
031153,000508: 36,2563 40054 OCT 40054
031154,000509:
031155,000510: 36,2564 05221 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
031156,000511: 36,2565 00062 DEC 50 B-14 # LIGHT UP.
|
|
Page 735 |
031158,000513: 36,2566 02657 ULLAGOFF TC NOULLAGE
031159,000514:
031160,000515: 36,2567 00006 WAITABIT EXTEND # KILL GROUP 4
031161,000516: 36,2570 34755 DCA NEG0
031162,000517: 36,2571 52760 DXCH -PHASE4
031163,000518:
031164,000519: 36,2572 15261 TCF TASKOVER
031165,000520:
031166,000521: 36,2573 04635 TIGTASK TC POSTJUMP # (12)
031167,000522: 36,2574 73656 CADR TIGTASK1
031168,000523:
031169,000524: # ****************************************
031170,000525:
031171,000526: 31,2144 BANK 31
031172,000527: 35,2000 SETLOC P40S3
031173,000528: 35,2000 BANK
031174,000529: 35,3656 COUNT* $$/P40
031175,000530:
031176,000531: 35,3656 35026 TIGTASK1 CAF PRIO16
031177,000532: 35,3657 05072 TC NOVAC
031178,000533: 35,3660 E7,1462 EBANK= TRKMKCNT
031179,000534: 35,3660 03245 74067 2CADR TIGNOW
031180,000535:
031181,000536: 35,3662 05516 TC DOWNFLAG
031182,000537: 35,3663 00303 ADRES PULSEFLG
031183,000538:
031184,000539: 35,3664 05353 TC PHASCHNG
031185,000540: 35,3665 00006 OCT 6 # KILL GROUP 6.
031186,000541:
031187,000542: 35,3666 15261 TCF TASKOVER
031188,000543:
031189,000544: # ****************************************
031190,000545:
031191,000546: 35,3667 05321 ZOOM TC CHECKMM # P40 OR P63?
031192,000547: 35,3670 00077 DEC 63 B-14
031193,000548: 35,3671 13677 TCF P40ZOOM
031194,000549:
031195,000550: 35,3672 05504 P63ZOOM TC UPFLAG # INDICATE THAT THROTTLE-UP HAS COME
031196,000551: 35,3673 00122 ADRES ZOOMFLAG
031197,000552:
031198,000553: 35,3674 04674 TC IBNKCALL
031199,000554: 35,3675 62327 CADR FLATOUT
031200,000555: 35,3676 13704 TCF P40ZOOMA
031201,000556:
031202,000557: 35,3677 34737 P40ZOOM CAF BIT13
031203,000558: 35,3700 54055 TS THRUST
031204,000559: 35,3701 34750 CAF BIT4
031205,000560:
|
|
Page 736 |
031207,000562: 35,3702 00006 EXTEND
031208,000563: 35,3703 05014 WOR CHAN14
031209,000564:
031210,000565: 35,3704 05353 P40ZOOMA TC PHASCHNG
031211,000566: 35,3705 00003 OCT 3
031212,000567: 35,3706 15261 TCF TASKOVER
031213,000568:
031214,000569: 36,2575 BANK 36
031215,000570: 36,2000 SETLOC P40S
031216,000571: 36,2000 BANK
031217,000572: 36,2575 COUNT* $$/P40
031218,000573:
031219,000574: # ****************************************
031220,000575:
031221,000576: 36,2575 05504 COMFAIL TC UPFLAG # (15)
031222,000577: 36,2576 00161 ADRES IDLEFLAG
031223,000578: 36,2577 05504 TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
031224,000579: 36,2600 00175 ADRES FLUNDISP
031225,000580: 36,2601 34751 CAF FOUR # RESET DVMON
031226,000581: 36,2602 55515 TS DVCNTR
031227,000582: 36,2603 10764 CCS PHASE6 # CLOCKTASK ACTIVE?
031228,000583: 36,2604 12607 TCF +3 # YES
031229,000584: 36,2605 04616 TC BANKCALL # OTHERWISE, START IT UP
031230,000585: 36,2606 74667 CADR STCLOK1
031231,000586: 36,2607 44765 +3 CS VB97DEX
031232,000587: 36,2610 55162 TS DISPDEX
031233,000588: 36,2611 05353 TC PHASCHNG # TURN OFF GROUP 4.
031234,000589: 36,2612 00004 OCT 00004
031235,000590: 36,2613 15155 TCF ENDOFJOB
031236,000591:
031237,000592: 36,2614 51455 COMFAIL1 INDEX WHICH
031238,000593: 36,2615 10002 TCF 2
031239,000594:
031240,000595: 36,2616 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
031241,000596: 36,2617 12621 TCF +2
031242,000597:
031243,000598: 36,2620 44762 COMFAIL4 CS CNTDNDEX
031244,000599: 36,2621 55162 TS DISPDEX
031245,000600:
031246,000601: 36,2622 05516 TC DOWNFLAG # RECONNECT DV MONITOR
031247,000602: 36,2623 00161 ADRES IDLEFLAG
031248,000603: 36,2624 05516 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS
031249,000604: 36,2625 00175 ADRES FLUNDISP
031250,000605: 36,2626 15155 TCF ENDOFJOB
031251,000606:
031252,000607: 36,2627 05353 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
031253,000608: 36,2630 00003 OCT 00003
031254,000609:
|
|
Page 737 |
031256,000611: 36,2631 00004 INHINT
031257,000612: 36,2632 06032 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
031258,000613: 36,2633 73667 CADR ZOOM
031259,000614: 36,2634 04674 TC IBNKCALL # COMMAND ENGINE OFF
031260,000615: 36,2635 75565 CADR ENGINOF4
031261,000616: 36,2636 05504 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP.
031262,000617: 36,2637 00312 ADRES DRIFTDFL
031263,000618: 36,2640 02651 TC INVFLAG # USE OTHER RCS SYSTEM
031264,000619: 36,2641 00310 ADRES AORBTFLG
031265,000620: 36,2642 05504 TC UPFLAG # TURN ON ULLAGE
031266,000621: 36,2643 00314 ADRES ULLAGFLG
031267,000622: 36,2644 34753 CAF BIT1
031268,000623: 36,2645 00004 INHINT
031269,000624: 36,2646 05173 TC TWIDDLE
031270,000625: 36,2647 02354 ADRES TIG-5
031271,000626: 36,2650 15155 TCF ENDOFJOB
031272,000627:
031273,000628: # ****************************************
031274,000629: # SUBROUTINES OF THE IGNITION ROUTINE
031275,000630: # ****************************************
031276,000631:
031277,000632: 36,2651 30002 INVFLAG CA Q
031278,000633: 36,2652 05522 TC DEBIT
031279,000634: 36,2653 40000 COM
031280,000635: 36,2654 00006 EXTEND
031281,000636: 36,2655 06001 RXOR LCHAN
031282,000637: 36,2656 15511 TCF COMFLAG
031283,000638:
031284,000639: # ****************************************
031285,000640:
031286,000641: 36,2657 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
031287,000642: 36,2660 70111 MASK DAPBOOLS
031288,000643: 36,2661 54111 TS DAPBOOLS
031289,000644: 36,2662 00002 TC Q
031290,000645:
031291,000646: # ****************************************
031292,000647:
031293,000648: 36,2663 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
031294,000649: 36,2664 74746 MASK ULLAGER # A TASK OR WHILE INHINTED.
031295,000650: 36,2665 26111 ADS DAPBOOLS
031296,000651: 36,2666 00002 TC Q
031297,000652:
031298,000653: # ****************************************
031299,000654:
031300,000655: 36,2667 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
031301,000656: 36,2670 55162 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
|
|
Page 738 |
031303,000658: 36,2671 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
031304,000659: 36,2672 55060 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS)
031305,000660: 36,2673 00006 EXTEND
031306,000661: 36,2674 31442 DCA TIG
031307,000662: 36,2675 52155 DXCH MPAC
031308,000663: 36,2676 00006 EXTEND
031309,000664: 36,2677 40025 DCS TIME2
031310,000665: 36,2700 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
031311,000666: 36,2701 07262 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
031312,000667: 36,2702 34777 CAF 1SEC # 45 SECOND CHECK
031313,000668: 36,2703 54002 TS Q
031314,000669: 36,2704 52155 DXCH MPAC
031315,000670: 36,2705 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
031316,000671: 36,2706 00006 EXTEND
031317,000672: 36,2707 10002 DV Q
031318,000673: 36,2710 30001 CA L # GET REMAINDER
031319,000674: 36,2711 64752 AD TWO
031320,000675: 36,2712 00004 INHINT
031321,000676: 36,2713 05173 TC TWIDDLE
031322,000677: 36,2714 02723 ADRES CLOKTASK
031323,000678: 36,2715 05327 TC 2PHSCHNG
031324,000679: 36,2716 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
031325,000680: 36,2717 05024 OCT 05024
031326,000681: 36,2720 13000 OCT 13000
031327,000682:
031328,000683: 36,2721 31060 CA TBASE4
031329,000684: 36,2722 04640 TC BANKJUMP
031330,000685:
031331,000686: 36,2723 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
031332,000687: 36,2724 55064 TS TBASE6
031333,000688:
031334,000689: 36,2725 11162 CCS DISPDEX
031335,000690: 36,2726 12737 TCF KILLCLOK
031336,000691: 36,2727 12730 NOOP
031337,000692: 36,2730 37720 CAF PRIO27
031338,000693: 36,2731 05072 TC NOVAC
031339,000694: 36,2732 E7,1453 EBANK= TTOGO
031340,000695: 36,2732 02743 74067 2CADR CLOKJOB
031341,000696:
031342,000697: 36,2734 05221 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
031343,000698: 36,2735 00144 DEC 100 B-14
031344,000699: 36,2736 12723 TCF CLOKTASK
031345,000700:
031346,000701: 36,2737 00006 KILLCLOK EXTEND # KILL RESTART
031347,000702: 36,2740 34755 DCA NEG0
031348,000703: 36,2741 52764 DXCH -PHASE6
|
|
Page 739 |
031350,000705: 36,2742 15261 TCF TASKOVER
031351,000706:
031352,000707: 36,2743 00006 CLOKJOB EXTEND
031353,000708: 36,2744 41442 DCS TIG
031354,000709: 36,2745 53454 DXCH TTOGO
031355,000710: 36,2746 00006 EXTEND
031356,000711: 36,2747 30025 DCA TIME2
031357,000712: 36,2750 21454 DAS TTOGO
031358,000713: 36,2751 00004 INHINT
031359,000714: 36,2752 11162 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
031360,000715: 36,2753 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
031361,000716: 36,2754 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
031362,000717: 36,2755 40000 COM # INDEX.
031363,000718: 36,2756 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 *****
031364,000719: 36,2757 50000 INDEX A
031365,000720: 36,2760 13015 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
031366,000721:
031367,000722: 36,2761 4765 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
031368,000723:
031369,000724: 36,2761 44755 -35 CS ZERO # INDICATE VERB 97 PASTE
031370,000725: 36,2762 55066 TS NVWORD1
031371,000726: 36,2763 30371 CA NVWORD +2 # NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
031372,000727: 36,2764 04616 TC BANKCALL
031373,000728: 36,2765 20474 CADR CLOCPLAY
031374,000729: 36,2766 13017 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
031375,000730: 36,2767 12614 TCF COMFAIL1
031376,000731: 36,2770 12627 TCF COMFAIL2
031377,000732:
031378,000733: # THIS DISPLAY IS CALLED VIA ASTNCLOK
031379,000734: 36,2771 33152 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
031380,000735: 36,2772 04616 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
031381,000736: 36,2773 20460 CADR REFLASH # TIG.
031382,000737: 36,2774 13017 TCF STOPCLOK
031383,000738: 36,2775 13034 TCF ASTNRETN
031384,000739: 36,2776 12771 TCF -5
031385,000740:
031386,000741: 36,2777 4762 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
031387,000742:
031388,000743: 36,2777 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
031389,000744: 36,3000 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
031390,000745: 36,3001 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
031391,000746: 36,3002 20466 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
031392,000747:
031393,000748: 36,3003 4760 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
031394,000749:
031395,000750: 36,3003 V99RECYC EQUALS
031396,000751:
031397,000752: 36,3003 44743 -13 CS BIT9 # INDICATE VERB 99 PASTE
031398,000753: 36,3004 55066 TS NVWORD1
|
|
Page 740 |
031400,000755: 36,3005 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
031401,000756: 36,3006 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
031402,000757: 36,3007 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE
031403,000758: 36,3010 20474 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
031404,000759: 36,3011 13017 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
031405,000760: 36,3012 13045 TCF *PROCEED
031406,000761: 36,3013 13050 TCF *ENTER
031407,000762:
031408,000763: 36,3014 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
031409,000764:
031410,000765: 36,3014 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
031411,000766: 36,3015 20457 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
031412,000767: 36,3016 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
031413,000768:
031414,000769: 36,3017 03021 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
031415,000770: 36,3020 16001 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
031416,000771:
031417,000772: 36,3021 00004 NULLCLOK INHINT
031418,000773: 36,3022 00006 EXTEND
031419,000774: 36,3023 23141 QXCH P40/RET
031420,000775: 36,3024 02657 TC NOULLAGE # TURN OFF ULLAGE ...
031421,000776: 36,3025 06032 TC KILLTASK # DON'T LET IT COME ON, EITHER ...
031422,000777: 36,3026 74350 CADR ULLGTASK
031423,000778: 36,3027 05353 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
031424,000779: 36,3030 00001 OCT 1
031425,000780: 36,3031 30005 CA Z # KILL CLOKTASK
031426,000781: 36,3032 55162 TS DISPDEX
031427,000782: 36,3033 01141 TC P40/RET
031428,000783:
031429,000784: 36,3034 05353 ASTNRETN TC PHASCHNG
031430,000785: 36,3035 04024 OCT 04024
031431,000786: 36,3036 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING.
031432,000787: 36,3037 55162 TS DISPDEX
031433,000788: 36,3040 35023 CAF PRIO13
031434,000789: 36,3041 05105 TC FINDVAC
031435,000790: 36,3042 E5,1757 EBANK= STARIND
031436,000791: 36,3042 03212 64065 2CADR ASTNRET
031437,000792:
031438,000793: 36,3044 15155 TCF ENDOFJOB
031439,000794:
031440,000795: 36,3045 05504 *PROCEED TC UPFLAG
031441,000796: 36,3046 00154 ADRES ASTNFLAG
031442,000797:
031443,000798: 36,3047 13106 TCF IGNITE
031444,000799:
031445,000800: 36,3050 00004 *ENTER INHINT
|
|
Page 741 |
031447,000802: 36,3051 51455 INDEX WHICH
031448,000803: 36,3052 10003 TCF 3
031449,000804:
031450,000805: 36,3053 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
031451,000806: 36,3054 05105 TC FINDVAC
031452,000807: 36,3055 E7,1453 EBANK= TTOGO
031453,000808: 36,3055 03227 74067 2CADR POSTBURN
031454,000809:
031455,000810: 36,3057 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
031456,000811: 36,3060 04674 TC IBNKCALL
031457,000812: 36,3061 40205 CADR ALLCOAST
031458,000813: 36,3062 03021 TC NULLCLOK
031459,000814: 36,3063 05353 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
031460,000815: 36,3064 00134 OCT 00134
031461,000816:
031462,000817: 36,3065 15155 TCF ENDOFJOB
031463,000818:
031464,000819: 36,3066 35027 GOCUTOFF CAF PRIO17 # (3)
031465,000820: 36,3067 05105 TC FINDVAC
031466,000821: 36,3070 E7,1516 EBANK= TGO
031467,000822: 36,3070 02416 30067 2CADR CUTOFF
031468,000823:
031469,000824: 36,3072 05516 TC DOWNFLAG
031470,000825: 36,3073 00175 ADRES FLUNDISP
031471,000826:
031472,000827: 36,3074 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
031473,000828: 36,3075 04674 TC IBNKCALL
031474,000829: 36,3076 40205 CADR ALLCOAST
031475,000830: 36,3077 03021 TC NULLCLOK
031476,000831: 36,3100 05353 TC PHASCHNG
031477,000832: 36,3101 07024 OCT 07024
031478,000833: 36,3102 17000 OCT 17000
031479,000834: 36,3103 E7,1516 EBANK= TGO
031480,000835: 36,3103 02416 30067 2CADR CUTOFF
031481,000836:
031482,000837: 36,3105 15155 TCF ENDOFJOB
031483,000838:
031484,000839: 36,3106 40103 IGNITE CS FLAGWRD7 # (2)
031485,000840: 36,3107 74737 MASK IGNFLBIT
031486,000841: 36,3110 10000 CCS A
031487,000842: 36,3111 13122 TCF IGNITE1
031488,000843: 36,3112 34753 CAF BIT1
031489,000844: 36,3113 00004 INHINT
031490,000845: 36,3114 05173 TC TWIDDLE
031491,000846: 36,3115 02432 ADRES IGNITION
031492,000847:
031493,000848: 36,3116 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION.
|
|
Page 742 |
031495,000850: 36,3117 54001 TS L
031496,000851: 36,3120 40000 COM
031497,000852: 36,3121 52760 DXCH -PHASE4
031498,000853:
031499,000854: 36,3122 44762 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
031500,000855: 36,3123 55162 TS DISPDEX
031501,000856:
031502,000857: 36,3124 15155 TCF ENDOFJOB
031503,000858:
031504,000859: # ****************************************
031505,000860:
031506,000861: 36,3125 05567 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH
031507,000862: 36,3126 01706 OCT 1706 # VEHICLE CONFIGURATION
031508,000863:
031509,000864: 36,3127 35006 REP40ALM CAF V05N09 # (14)
031510,000865: 36,3130 04616 TC BANKCALL
031511,000866: 36,3131 20477 CADR GOFLASH
031512,000867:
031513,000868: 36,3132 16001 TCF GOTOPOOH # V34E TERMINATE
031514,000869: 36,3133 13135 TCF +2 # PROCEED CHECK FOR P42
031515,000870: 36,3134 13127 TCF REP40ALM # V32E REDISPLAY ALARM
031516,000871:
031517,000872: 36,3135 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN
031518,000873: 36,3136 10014 TCF 14 # THOUGH VEHICLE IS UNSTAGED
031519,000874:
031520,000875: # ****************************************
031521,000876:
031522,000877: 31,2144 BANK 31
031523,000878: 35,2000 SETLOC P40S2
031524,000879: 35,2000 BANK
031525,000880:
031526,000881: 35,3707 COUNT* $$/P40
031527,000882:
031528,000883: 35,3707 04645 P40AUTO TC MAKECADR # HELLO THERE.
031529,000884: 35,3710 55163 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
031530,000885: 35,3711 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
031531,000886: 35,3712 54261 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
031532,000887: 35,3713 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
031533,000888: 35,3714 13726 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
031534,000889: 35,3715 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
031535,000890: 35,3716 70106 MASK FLGWRD10
031536,000891: 35,3717 10000 CCS A
031537,000892: 35,3720 13733 TCF GOBACK # RETURN
031538,000893: 35,3721 34747 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
031539,000894: 35,3722 00006 EXTEND
031540,000895: 35,3723 02030 RAND CHAN30
031541,000896: 35,3724 00006 EXTEND
031542,000897: 35,3725 13733 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
|
|
Page 743 |
031544,000899: 35,3726 33735 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
031545,000900: 35,3727 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
031546,000901: 35,3730 20624 CADR GOPERF1
031547,000902: 35,3731 16001 TCF GOTOPOOH # V34E TERMINATE
031548,000903: 35,3732 13711 TCF P40A/P # RECYCLE
031549,000904: 35,3733 31163 GOBACK CA TEMPR60
031550,000905: 35,3734 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
031551,000906:
031552,000907: 35,3735 00203 P40A/PMD OCT 00203
031553,000908:
031554,000909: 36,3137 BANK 36
031555,000910: 36,2000 SETLOC P40S
031556,000911: 36,2000 BANK
031557,000912:
031558,000913: 36,3137 COUNT* $$/P40
031559,000914:
031560,000915: # ****************************************
031561,000916: # CONSTANTS FOR THE IGNITION ROUTINE
031562,000917: # ****************************************
031563,000918:
031564,000919: 36,3137 36,2107 SERVCADR = P63TABLE +7
031565,000920: 36,3137 02040 P40ADRES ADRES P40TABLE
031566,000921: 36,3140 02050 P41ADRES ADRES P41TABLE -5
031567,000922: 36,3141 02063 P42ADRES ADRES P42TABLE
031568,000923:
031569,000924: 36,3142 E7,1515 EBANK= DVCNTR
031570,000925: 36,3142 02423 62067 LUNLANAD 2CADR LUNLAND
031571,000926:
031572,000927: 36,3144 E7,1515 EBANK= DVCNTR
031573,000928: 36,3144 03372 70067 ATMAGADR 2CADR ATMAG
031574,000929:
031575,000930: 36,3146 6001 ? = GOTOPOOH
031576,000931:
031577,000932: 36,3146 00000 05656 D29.9SEC 2DEC 2990 B-28
031578,000933:
031579,000934: 36,3150 04672 S24.9SEC DEC 2490 B-14
031580,000935:
031581,000936: 36,3151 00752 4.9SEC DEC 490 B-14
031582,000937:
031583,000938: 36,3152 4747 OCT20 = BIT5
031584,000939:
|
|
Page 744 |
031586,000941: 36,3152 01475 V06N61 VN 0661
031587,000942:
|
|
Page 745 |
031589,000944: # KILLTASK
031590,000945: # MOD NO: NEW PROGRAM
031591,000946: # MOD BY: COVELLI
031592,000947:
031593,000948: # FUNCTIONAL DESCRIPTION:
031594,000949: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED 'NULLTASK' (OF COURSE),
031595,000950: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
031596,000951: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
031597,000952: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
031598,000953:
031599,000954: # CALLING SEQUENCE:
031600,000955: # L TC KILLTASK IN FIXED-FIXED
031601,000956: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED.
031602,000957: # L+2 (RELINT) RETURN
031603,000958:
031604,000959: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
031605,000960:
031606,000961: # ERASABLE INITIALIZATION= NONE.
031607,000962:
031608,000963: # OUTPUT: 2CADR OF NULLTASK IN LST2
031609,000964:
031610,000965: # DEBRIS: ITEMP1 - ITEMP4, A, L, Q.
031611,000966:
031612,000967: 36,3153 E3,1410 EBANK= LST2
031613,000968: 6032 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
031614,000969: 6000 SETLOC FFTAG6
031615,000970: 6000 BANK
031616,000971: 6032 COUNT* $$/KILL
031617,000972: 6032 36041 KILLTASK CA KILLBB
031618,000973: 6033 00004 INHINT
031619,000974: 6034 22000 LXCH A
031620,000975: 6035 50002 INDEX Q
031621,000976: 6036 30000 CA 0 # GET CADR.
031622,000977: 6037 22006 LXCH BBANK
031623,000978: 6040 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED
031624,000979:
031625,000980: 6041 E3,1410 EBANK= LST2
031626,000981: 6041 56063 KILLBB BBCON KILLTSK2
031627,000982:
031628,000983: 27,2200 BANK 27
031629,000984:
031630,000985: 27,2000 SETLOC P40S1
031631,000986: 27,2000 BANK
031632,000987: 27,2200 COUNT* $$/KILL
031633,000988:
031634,000989: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
|
|
Page 746 |
031636,000991: 27,2201 24002 INCR Q
031637,000992: 27,2202 00006 EXTEND
031638,000993: 27,2203 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2
031639,000994:
031640,000995: 27,2204 54063 TS ITEMP3 # CADR IS IN A
031641,000996: 27,2205 75012 MASK LOW10
031642,000997: 27,2206 64741 AD BIT11
031643,000998: 27,2207 54064 TS ITEMP4 # GENADR OF TASK
031644,000999:
031645,001000: 27,2210 45012 CS LOW10
031646,001001: 27,2211 70063 MASK ITEMP3
031647,001002: 27,2212 54063 TS ITEMP3 # FBANK OF TASK
031648,001003:
031649,001004: 27,2213 22007 ZL
031650,001005: 27,2214 50001 ADRSCAN INDEX L
031651,001006: 27,2215 41410 CS LST2
031652,001007: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS
031653,001008: 27,2217 00006 EXTEND
031654,001009: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
031655,001010: 27,2221 44747 LETITLIV CS LSTLIM
031656,001011: 27,2222 60001 AD L
031657,001012: 27,2223 00006 EXTEND # ARE WE DONE?
031658,001013: 27,2224 12230 BZF DEAD # YES - DONE, SO RETURN
031659,001014: 27,2225 24001 INCR L
031660,001015: 27,2226 24001 INCR L
031661,001016: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP.
031662,001017:
031663,001018: 27,2230 52062 DEAD DXCH ITEMP1
031664,001019: 27,2231 52006 DTCB
031665,001020:
031666,001021: 27,2232 45012 TSTFBANK CS LOW10
031667,001022: 27,2233 50001 INDEX L
031668,001023: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
031669,001024: 27,2235 00006 EXTEND
031670,001025: 27,2236 60063 SU ITEMP3
031671,001026: 27,2237 00006 EXTEND
031672,001027: 27,2240 12242 BZF KILLDEAD # MATCH - KILL IT.
031673,001028: 27,2241 12221 TCF LETITLIV # NO MATCH - CONTINUE.
031674,001029:
031675,001030: 27,2242 34353 KILLDEAD CA TCTSKOVR
031676,001031: 27,2243 50001 INDEX L
031677,001032: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
031678,001033: 27,2245 12230 TCF DEAD
031679,001034:
031680,001035: 27,2246 4747 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc