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