Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
030863,000002: ## Copyright: Public domain.
030864,000003: ## Filename: BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
030865,000004: ## Purpose: A section of Luminary revision 173.
030866,000005: ## It is part of the reconstructed source code for the second
030867,000006: ## (unflown) release of the flight software for the Lunar
030868,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
030869,000008: ## The code has been recreated from a reconstructed copy of
030870,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
030871,000010: ## It has been adapted such that the resulting bugger words
030872,000011: ## exactly match those specified for Luminary 173 in NASA
030873,000012: ## drawing 2021152N, which gives relatively high confidence
030874,000013: ## that the reconstruction is correct.
030875,000014: ## Reference: pp. 717-737
030876,000015: ## Assembler: yaYUL
030877,000016: ## Contact: Ron Burkey <info@sandroid.org>.
030878,000017: ## Website: www.ibiblio.org/apollo/index.html
030879,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178. Changed
030880,000019: ## P42TABLE +6 back to 2390.
030881,000020: ## 2019-09-21 MAS Added back setting of SWANDISP in
030882,000021: ## P63IGN and ABTIGN.
030883,000022:
|
|
Page 717
|
030885,000024: 36,2024 BANK 36
030886,000025: 36,2000 SETLOC P40S
030887,000026: 36,2000 BANK
030888,000027: 36,2024 E7,1455 EBANK= WHICH
030889,000028: 36,2024 COUNT* $$/P40
030890,000029: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
030891,000030: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
030892,000031: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
030893,000032: # PROGRAMS THROTTLE UP.
030894,000033:
030895,000034: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
030896,000035: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
030897,000036: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
030898,000037: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
030899,000038: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
030900,000039:
030901,000040: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
030902,000041:
030903,000042:
030904,000043: # HONI SOIT QUI MAL Y PENSE
030905,000044:
030906,000045:
030907,000046: # ****************************************
030908,000047: # TABLES FOR THE IGNITION ROUTINE
030909,000048: # ****************************************
030910,000049:
030911,000050: # NOLI SE TANGERE
030912,000051:
030913,000052: 36,2024 01512 P12TABLE VN 0674 # (0)
030914,000053: 36,2025 12327 TCF ULLGNOT # (1)
030915,000054: 36,2026 12617 TCF COMFAIL3 # (2)
030916,000055: 36,2027 13067 TCF GOCUTOFF # (3)
030917,000056: 36,2030 15272 TCF TASKOVER # (4)
030918,000057: 36,2031 12150 TCF P12SPOT # (5)
030919,000058: 36,2032 00000 DEC 0 B-14 # (6) NO ULLAGE
030920,000059: 36,2033 E7,1455 EBANK= WHICH
030921,000060: 36,2033 03647 64067 2CADR SERVEXIT # (7)
030922,000061:
030923,000062: 36,2035 12402 TCF DISPCHNG # (11)
030924,000063: 36,2036 12570 TCF WAITABIT # (12)
030925,000064: 36,2037 12526 TCF P12IGN # (13)
030926,000065:
030927,000066:
030928,000067:
030929,000068: 36,2040 01450 P40TABLE VN 0640 # (0)
030930,000069: 36,2041 12327 TCF ULLGNOT # (1)
030931,000070: 36,2042 12621 TCF COMFAIL4 # (2)
030932,000071: 36,2043 13054 TCF GOPOST # (3)
030933,000072: 36,2044 15272 TCF TASKOVER # (4)
030934,000073: 36,2045 12150 TCF P40SPOT # (5)
|
|
Page 718
|
030936,000075: 36,2046 04300 DEC 2240 B-14 # (6)
030937,000076: 36,2047 E6,1422 EBANK= OMEGAQ
030938,000077: 36,2047 03675 74066 2CADR STEERING # (7)
030939,000078:
030940,000079: 36,2051 12372 TCF P40SJUNK # (11)
030941,000080: 36,2052 12570 TCF WAITABIT # (12)
030942,000081: 36,2053 12511 TCF P40IGN # (13)
030943,000082: 36,2054 13130 TCF REP40ALM # (14)
030944,000083:
030945,000084:
030946,000085:
030947,000086: 36,2055 12153 P41TABLE TCF P41SPOT # (5)
030948,000087: 36,2056 77776 DEC -1 B-14 # (6)
030949,000088: 36,2057 E6,1422 EBANK= OMEGAQ
030950,000089: 36,2057 02550 64066 2CADR CALCN85 # (7)
030951,000090:
030952,000091: 36,2061 12404 TCF COMMON # (11)
030953,000092: 36,2062 12574 TCF TIGTASK # (12)
030954,000093:
030955,000094:
030956,000095:
030957,000096: 36,2063 01450 P42TABLE VN 0640 # (0)
030958,000097: 36,2064 12324 TCF WANTAPS # (1)
030959,000098: 36,2065 12621 TCF COMFAIL4 # (2)
030960,000099: 36,2066 13054 TCF GOPOST # (3)
030961,000100: 36,2067 15272 TCF TASKOVER # (4)
030962,000101: 36,2070 12150 TCF P42SPOT # (5)
030963,000102: 36,2071 05120 DEC 2640 B-14 # (6)
030964,000103: 36,2072 E6,1422 EBANK= OMEGAQ
030965,000104: 36,2072 03675 74066 2CADR STEERING # (7)
030966,000105:
030967,000106: 36,2074 12372 TCF P40SJUNK # (11)
030968,000107: 36,2075 12570 TCF WAITABIT # (12)
030969,000108: 36,2076 12546 TCF P42IGN # (13)
030970,000109: 36,2077 13427 TCF P42STAGE # (14)
030971,000110:
030972,000111:
030973,000112:
030974,000113: 36,2100 01476 P63TABLE VN 0662 # (0)
030975,000114: 36,2101 12327 TCF ULLGNOT # (1)
030976,000115: 36,2102 12617 TCF COMFAIL3 # (2)
030977,000116: 36,2103 13004 TCF V99RECYC # (3)
030978,000117: 36,2104 15272 TCF TASKOVER # (4)
030979,000118: 36,2105 12153 TCF P63SPOT # (5)
030980,000119: 36,2106 04300 DEC 2240 B-14 # (6)
030981,000120: 36,2107 E7,1455 EBANK= WHICH
030982,000121: 36,2107 03647 64067 2CADR SERVEXIT # (7)
030983,000122:
030984,000123: 36,2111 12402 TCF DISPCHNG # (11)
030985,000124: 36,2112 12570 TCF WAITABIT # (12)
|
|
Page 719
|
030987,000126: 36,2113 12465 TCF P63IGN # (13)
030988,000127:
030989,000128:
030990,000129:
030991,000130: 36,2114 01477 ABRTABLE VN 0663 # (0)
030992,000131: 36,2115 12327 TCF ULLGNOT # (1)
030993,000132: 36,2116 12617 TCF COMFAIL3 # (2)
030994,000133: 36,2117 13067 TCF GOCUTOFF # (3)
030995,000134: 36,2120 15272 TCF TASKOVER # (4)
030996,000135: 36,2121 12122 NOOP # (5)
030997,000136: 36,2122 12123 NOOP # (6)
030998,000137: 36,2123 12124 NOOP # (7)
030999,000138: 36,2124 12125 NOOP
031000,000139: 36,2125 12402 TCF DISPCHNG # (11)
031001,000140: 36,2126 12570 TCF WAITABIT # (12)
031002,000141: 36,2127 12536 TCF ABRTIGN # (13)
031003,000142:
031004,000143:
031005,000144:
031006,000145: # ****************************************
031007,000146: # GENERAL PURPOSE IGNITION ROUTINES
031008,000147: # ****************************************
031009,000148:
031010,000149: 36,2130 05364 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
031011,000150: 36,2131 04024 OCT 04024
031012,000151:
031013,000152: 36,2132 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
031014,000153: 36,2133 55507 TS DVTOTAL
031015,000154: 36,2134 55510 TS DVTOTAL +1
031016,000155:
031017,000156: 36,2135 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
031018,000157: 36,2136 73715 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
031019,000158:
031020,000159: 36,2137 00006 B*RNB*B* EXTEND
031021,000160: 36,2140 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
031022,000161: 36,2141 53512 DXCH GOBLTIME # AND FOR P70 OR P71.
031023,000162:
031024,000163: 36,2142 00004 INHINT
031025,000164: 36,2143 04674 TC IBNKCALL
031026,000165: 36,2144 75573 CADR ENGINOF3
031027,000166: 36,2145 00003 RELINT
031028,000167:
031029,000168: 36,2146 51455 INDEX WHICH
031030,000169: 36,2147 00005 TC 5
031031,000170:
031032,000171: 36,2150 36,2150 P42SPOT = P40SPOT # (5)
031033,000172: 36,2150 36,2150 P12SPOT = P40SPOT # (5)
031034,000173: 36,2150 36,2153 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
031035,000174: 36,2150 44762 P40SPOT CS CNTDNDEX # (5)
031036,000175: 36,2151 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
|
|
Page 720
|
031038,000177: 36,2152 74671 CADR STCLOK2 # RETURN
031039,000178: 36,2153 06042 P41SPOT TC INTPRET # (5)
031040,000179: 36,2154 45345 DLOAD DSU
031041,000180: 36,2155 03442 TIG
031042,000181: 36,2156 35150 D29.9SEC
031043,000182: 36,2157 34041 STCALL TDEC1
031044,000183: 36,2160 61063 INITCDUW
031045,000184: 36,2161 45014 BOFF CALL
031046,000185: 36,2162 03347 MUNFLAG
031047,000186: 36,2163 74202 GOMIDAV
031048,000187: 36,2164 27042 CSMPREC
031049,000188: 36,2165 64375 VLOAD MXV
031050,000189: 36,2166 00025 VATT1
031051,000190: 36,2167 01732 REFSMMAT
031052,000191: 36,2170 77762 VSR1
031053,000192: 36,2171 25724 STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
031054,000193: 36,2172 00017 RATT1
031055,000194: 36,2173 64312 VSL4 MXV
031056,000195: 36,2174 01732 REFSMMAT
031057,000196: 36,2175 35716 STCALL R(CSM) # CSM POSITION - M*2(24)
031058,000197: 36,2176 67000 MUNGRAV
031059,000198: 36,2177 16317 STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
031060,000199: 36,2200 00015 TAT
031061,000200: 36,2201 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
031062,000201: 36,2202 77624 GOMIDAV CALRB
031063,000202: 36,2203 27553 MIDTOAV1
031064,000203: 36,2204 12213 TCF CALLT-35 # MADE IT IN TIME.
031065,000204:
031066,000205: 36,2205 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9
031067,000206: 36,2206 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID
031068,000207: 36,2207 53442 DXCH TIG # INTEGRATE.
031069,000208: 36,2210 00006 EXTEND
031070,000209: 36,2211 33150 DCA D29.9SEC
031071,000210: 36,2212 21442 DAS TIG
031072,000211:
031073,000212: 36,2213 52155 CALLT-35 DXCH MPAC
031074,000213: 36,2214 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30
031075,000214: 36,2215 00006 EXTEND
031076,000215: 36,2216 43757 DCS 5SECDP
031077,000216: 36,2217 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35
031078,000217: 36,2220 00006 EXTEND
031079,000218: 36,2221 31500 DCA SAVET-30
031080,000219: 36,2222 05310 TC LONGCALL
031081,000220: 36,2223 E7,1453 EBANK= TTOGO
031082,000221: 36,2223 02242 74067 2CADR TIG-35
031083,000222:
031084,000223: 36,2225 05364 TC PHASCHNG
031085,000224: 36,2226 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
031086,000225:
031087,000226: 36,2227 05332 TC CHECKMM
|
|
Page 721
|
031089,000228: 36,2230 00077 DEC 63 B-14
031090,000229: 36,2231 15155 TCF ENDOFJOB # NOT P63
031091,000230: 36,2232 44762 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
031092,000231: 36,2233 55162 TS DISPDEX
031093,000232: 36,2234 06042 TC INTPRET
031094,000233: 36,2235 51575 VLOAD ABVAL
031095,000234: 36,2236 03553 VN1
031096,000235: 36,2237 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY
031097,000236: 36,2240 77776 EXIT
031098,000237: 36,2241 15155 TCF ENDOFJOB
031099,000238:
031100,000239: # ****************************************
031101,000240:
031102,000241: 36,2242 33757 TIG-35 CAF 5SEC
031103,000242: 36,2243 05204 TC TWIDDLE
031104,000243: 36,2244 02300 ADRES TIG-30
031105,000244:
031106,000245: 36,2245 05364 TC PHASCHNG
031107,000246: 36,2246 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
031108,000247:
031109,000248: 36,2247 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
031110,000249: 36,2250 55162 TS DISPDEX
031111,000250:
031112,000251: 36,2251 51455 INDEX WHICH
031113,000252: 36,2252 40006 CS 6 # CHECK ULLAGE TIME.
031114,000253: 36,2253 00006 EXTEND
031115,000254: 36,2254 65272 BZMF TASKOVER
031116,000255: 36,2255 33152 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
031117,000256: 36,2256 05204 TC TWIDDLE
031118,000257: 36,2257 02270 ADRES TIG-30.1
031119,000258:
031120,000259: 36,2260 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
031121,000260: 36,2261 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
031122,000261: 36,2262 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
031123,000262: 36,2262 02265 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
031124,000263:
031125,000264: 36,2264 15272 TCF TASKOVER
031126,000265:
031127,000266: 36,2265 04616 P41BLANK TC BANKCALL # BLANK DSKY.
031128,000267: 36,2266 20457 CADR CLEANDSP
031129,000268: 36,2267 15155 TCF ENDOFJOB
031130,000269:
031131,000270: 36,2270 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
031132,000271: 36,2271 05072 TC NOVAC
031133,000272: 36,2272 E7,1453 EBANK= TTOGO
031134,000273: 36,2272 02275 74067 2CADR TIG-30A
031135,000274:
031136,000275: 36,2274 15272 TCF TASKOVER
031137,000276:
|
|
Page 722
|
031139,000278: 36,2275 33761 TIG-30A CAF V16N85B
031140,000279: 36,2276 04616 TC BANKCALL # RESTORE DISPLAY.
031141,000280: 36,2277 20466 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
031142,000281:
031143,000282: # *****************************************
031144,000283:
031145,000284: 36,2300 33151 TIG-30 CAF S24.9SEC
031146,000285: 36,2301 05204 TC TWIDDLE
031147,000286: 36,2302 02354 ADRES TIG-5
031148,000287:
031149,000288: 36,2303 44762 CS CNTDNDEX # START UP CLOKTASK AGAIN
031150,000289: 36,2304 55162 TS DISPDEX
031151,000290:
031152,000291: 36,2305 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
031153,000292: 36,2306 30006 CAF 6
031154,000293: 36,2307 00006 EXTEND
031155,000294: 36,2310 62327 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
031156,000295: 36,2311 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART
031157,000296: 36,2312 05204 TC TWIDDLE
031158,000297: 36,2313 02350 ADRES ULLGTASK
031159,000298:
031160,000299: 36,2314 36250 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
031161,000300: 36,2315 54001 TS L
031162,000301: 36,2316 46250 CS THREE
031163,000302: 36,2317 52752 DXCH -PHASE1
031164,000303: 36,2320 40025 CS TIME1
031165,000304: 36,2321 55052 TS TBASE1
031166,000305:
031167,000306: 36,2322 51455 INDEX WHICH
031168,000307: 36,2323 00001 TC 1
031169,000308:
031170,000309: 36,2324 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
031171,000310: 36,2325 74737 MASK APSFLBIT # WASN'T SET, DAP WILL BE INITIALIZED TO
031172,000311: 36,2326 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
031173,000312:
031174,000313: 36,2327 00006 ULLGNOT EXTEND # (1)
031175,000314: 36,2330 51455 INDEX WHICH
031176,000315: 36,2331 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
031177,000316: 36,2332 53252 DXCH AVEGEXIT
031178,000317:
031179,000318: 36,2333 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
031180,000319: 36,2334 54001 TS L
031181,000320: 36,2335 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
031182,000321: 36,2336 52760 DXCH -PHASE4
031183,000322:
031184,000323: 36,2337 40025 CS TIME1
031185,000324: 36,2340 55060 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
031186,000325:
031187,000326: 36,2341 00006 REDO2.17 EXTEND
|
|
Page 723
|
031189,000328: 36,2342 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
031190,000329: 36,2343 52754 DXCH -PHASE2 # IF NEEDED.
031191,000330:
031192,000331: 36,2344 10762 REDO4.2 CCS PHASE5 # IS SERVICER GOING?
031193,000332: 36,2345 15272 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
031194,000333:
031195,000334: 36,2346 04635 TC POSTJUMP
031196,000335: 36,2347 77401 CADR PREREAD # PREREAD ENDS THIS TASK
031197,000336:
031198,000337:
031199,000338: # ****************************************
031200,000339:
031201,000340: 36,2350 02664 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
031202,000341: 36,2351 05364 TC PHASCHNG
031203,000342: 36,2352 00001 OCT 1
031204,000343: 36,2353 15272 TCF TASKOVER
031205,000344:
031206,000345:
031207,000346: # ****************************************
031208,000347:
031209,000348: 36,2354 00006 TIG-5 EXTEND
031210,000349: 36,2355 34755 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE.
031211,000350: 36,2356 52756 DXCH -PHASE3
031212,000351:
031213,000352: 36,2357 33757 CAF 5SEC
031214,000353: 36,2360 05204 TC TWIDDLE
031215,000354: 36,2361 02407 ADRES TIG-0
031216,000355:
031217,000356: 36,2362 05527 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG
031218,000357: 36,2363 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC
031219,000358: 36,2364 05527 TC DOWNFLAG
031220,000359: 36,2365 00154 ADRES ASTNFLAG
031221,000360: 36,2366 05527 TC DOWNFLAG
031222,000361: 36,2367 00122 ADRES ZOOMFLAG
031223,000362:
031224,000363: 36,2370 51455 INDEX WHICH
031225,000364: 36,2371 00011 TC 11
031226,000365:
031227,000366: 36,2372 10756 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
031228,000367: 36,2373 12402 TCF DISPCHNG # YES
031229,000368:
031230,000369: 36,2374 34736 CAF PRIO20
031231,000370: 36,2375 05105 TC FINDVAC
031232,000371: 36,2376 E7,1453 EBANK= TTOGO
031233,000372: 36,2376 02536 56067 2CADR S40.13
031234,000373:
031235,000374:
031236,000375:
031237,000376: 36,2400 05364 TC PHASCHNG # 3.5SPOT FOR S40.13
031238,000377: 36,2401 00053 OCT 00053
031239,000378:
|
|
Page 724
|
031241,000380: 36,2402 44760 DISPCHNG CS VB99DEX # (11)
031242,000381: 36,2403 55162 TS DISPDEX
031243,000382: 36,2404 05364 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
031244,000383: 36,2405 40074 OCT 40074
031245,000384: 36,2406 15272 TCF TASKOVER
031246,000385:
031247,000386:
031248,000387: # ****************************************
031249,000388:
031250,000389: 36,2407 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
031251,000390: 36,2410 74737 MASK IGNFLBIT
031252,000391: 36,2411 26103 ADS FLAGWRD7
031253,000392:
031254,000393: 36,2412 05332 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
031255,000394: 36,2413 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
031256,000395: 36,2414 12425 TCF IGNYET?
031257,000396: 36,2415 31422 CA ZOOMTIME
031258,000397: 36,2416 05214 TC WAITLIST
031259,000398: 36,2417 E7,1515 EBANK= DVCNTR
031260,000399: 36,2417 03675 72067 2CADR ZOOM
031261,000400:
031262,000401: 36,2421 05340 TC 2PHSCHNG
031263,000402: 36,2422 40033 OCT 40033
031264,000403:
031265,000404: 36,2423 05014 OCT 05014
031266,000405: 36,2424 77777 OCT 77777
031267,000406:
031268,000407: 36,2425 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
031269,000408: 36,2426 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
031270,000409: 36,2427 10000 CCS A
031271,000410: 36,2430 12433 TCF IGNITION
031272,000411: 36,2431 51455 INDEX WHICH
031273,000412: 36,2432 00012 TC 12
031274,000413:
031275,000414: 36,2433 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
031276,000415: 36,2434 74745 MASK ENGONBIT
031277,000416: 36,2435 26101 ADS FLAGWRD5
031278,000417: 36,2436 44355 CS PRIO30 # TURN ON THE ENGINE.
031279,000418: 36,2437 00006 EXTEND
031280,000419: 36,2440 02011 RAND DSALMOUT
031281,000420: 36,2441 64737 AD BIT13
031282,000421: 36,2442 00006 EXTEND
031283,000422: 36,2443 01011 WRITE DSALMOUT
031284,000423: 36,2444 00006 EXTEND # SET TEVENT FOR DOWNLINK
031285,000424: 36,2445 30025 DCA TIME2
031286,000425: 36,2446 53342 DXCH TEVENT
031287,000426:
031288,000427: 36,2447 44735 CS PULSES # MAKE SURE THAT DAP IS NOT IN MINIMUM
031289,000428: 36,2450 70111 MASK DAPBOOLS # IMPULSE MODE IN P12,P40,P42,AND P63
031290,000429: 36,2451 54111 TS DAPBOOLS
031291,000430:
|
|
Page 725
|
031293,000432: 36,2452 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
031294,000433: 36,2453 31517 DCA TGO
031295,000434: 36,2454 53442 DXCH TIG
031296,000435: 36,2455 00006 EXTEND
031297,000436: 36,2456 30025 DCA TIME2
031298,000437: 36,2457 21442 DAS TIG
031299,000438:
031300,000439: 36,2460 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS
031301,000440: 36,2461 70104 MASK FLAGWRD8
031302,000441: 36,2462 54104 TS FLAGWRD8
031303,000442:
031304,000443: 36,2463 51455 INDEX WHICH
031305,000444: 36,2464 00013 TC 13
031306,000445:
031307,000446: 36,2465 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
031308,000447: 36,2466 33144 DCA LUNLANAD
031309,000448: 36,2467 53252 DXCH AVGEXIT
031310,000449:
031311,000450: 36,2470 30005 CA Z # ASSASSINATE CLOKTASK
031312,000451: 36,2471 55162 TS DISPDEX
031313,000452:
031314,000453: 36,2472 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
031315,000454: 36,2473 74743 MASK LETABBIT
031316,000455: 36,2474 26105 ADS FLAGWRD9
031317,000456:
031318,000457: 36,2475 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
031319,000458: 36,2476 74741 MASK SWANDBIT
031320,000459: 36,2477 26103 ADS FLAGWRD7
031321,000460:
031322,000461: 36,2500 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
031323,000462: 36,2501 30025 DCA TIME2
031324,000463: 36,2502 53442 DXCH TIG
031325,000464:
031326,000465: 36,2503 34755 CAF ZERO # INITIALIZE WCHPHASE AND FLPASSO
031327,000466: 36,2504 55346 TS WCHPHASE
031328,000467: 36,2505 55621 TS WCHPHOLD # ALSO WHCPHOLD
031329,000468: 36,2506 34752 CA TWO
031330,000469: 36,2507 55623 TS FLPASS0
031331,000470:
031332,000471: 36,2510 12546 TCF P42IGN
031333,000472: 36,2511 40101 P40IGN CS FLAGWRD5 # (13)
031334,000473: 36,2512 74740 MASK NOTHRBIT
031335,000474: 36,2513 00006 EXTEND
031336,000475: 36,2514 12546 BZF P42IGN
031337,000476: 36,2515 31422 CA ZOOMTIME
031338,000477: 36,2516 05214 TC WAITLIST
031339,000478: 36,2517 E7,1515 EBANK= DVCNTR
031340,000479: 36,2517 03675 72067 2CADR ZOOM
031341,000480:
031342,000481: 36,2521 05340 P63IGN1 TC 2PHSCHNG
031343,000482: 36,2522 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
031344,000483: 36,2523 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
031345,000484: 36,2524 77777 OCT 77777
031346,000485:
|
|
Page 726
|
031348,000487: 36,2525 12546 TCF P42IGN
031349,000488: 36,2526 35015 P12IGN CAF EBANK6
031350,000489: 36,2527 54003 TS EBANK
031351,000490: 36,2530 E6,1536 EBANK= AOSQ
031352,000491:
031353,000492: 36,2530 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION
031354,000493: 36,2531 55536 TS AOSQ # ESTIMATES AT P12 IGNITION.
031355,000494: 36,2532 31413 CA IGNAOSR
031356,000495: 36,2533 55540 TS AOSR
031357,000496:
031358,000497: 36,2534 35016 CAF EBANK7
031359,000498: 36,2535 54003 TS EBANK
031360,000499: 36,2536 E7,1515 EBANK= DVCNTR
031361,000500:
031362,000501: 36,2536 30005 ABRTIGN CA Z # (13) KILL CLOKTASK
031363,000502: 36,2537 55162 TS DISPDEX
031364,000503:
031365,000504: 36,2540 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER.
031366,000505: 36,2541 33146 DCA ATMAGADR
031367,000506: 36,2542 53252 DXCH AVGEXIT
031368,000507:
031369,000508: 36,2543 40103 CS FLAGWRD7 # ENABLE R10.
031370,000509: 36,2544 74741 MASK SWANDBIT
031371,000510: 36,2545 26103 ADS FLAGWRD7
031372,000511:
031373,000512: 36,2546 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
031374,000513: 36,2547 70111 MASK DAPBOOLS # CURVES ARE USED.
031375,000514: 36,2550 54111 TS DAPBOOLS
031376,000515: 36,2551 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
031377,000516: 36,2552 70076 MASK FLAGWRD2
031378,000517: 36,2553 10000 CCS A
031379,000518: 36,2554 13531 TCF IMPLBURN
031380,000519:
031381,000520: 36,2555 05527 DVMONCON TC DOWNFLAG
031382,000521: 36,2556 00153 ADRES IGNFLAG # CONNECT DVMON
031383,000522: 36,2557 05527 TC DOWNFLAG
031384,000523: 36,2560 00154 ADRES ASTNFLAG
031385,000524: 36,2561 05527 TC DOWNFLAG
031386,000525: 36,2562 00161 ADRES IDLEFLAG
031387,000526:
031388,000527: 36,2563 05364 TC PHASCHNG
031389,000528: 36,2564 40054 OCT 40054
031390,000529:
031391,000530: 36,2565 05232 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
031392,000531: 36,2566 00062 DEC 50 B-14 # LIGHT UP.
031393,000532:
031394,000533: 36,2567 02660 ULLAGOFF TC NOULLAGE
031395,000534:
031396,000535: 36,2570 00006 WAITABIT EXTEND # KILL GROUP 4
031397,000536: 36,2571 34755 DCA NEG0
031398,000537: 36,2572 52760 DXCH -PHASE4
031399,000538:
031400,000539: 36,2573 15272 TCF TASKOVER
031401,000540:
|
|
Page 727
|
031403,000542: 36,2574 04635 TIGTASK TC POSTJUMP # (12)
031404,000543: 36,2575 73664 CADR TIGTASK1
031405,000544:
031406,000545: # ****************************************
031407,000546:
031408,000547: 31,2144 BANK 31
031409,000548: 35,2000 SETLOC P40S3
031410,000549: 35,2000 BANK
031411,000550: 35,3664 COUNT* $$/P40
031412,000551:
031413,000552: 35,3664 35026 TIGTASK1 CAF PRIO16
031414,000553: 35,3665 05072 TC NOVAC
031415,000554: 35,3666 E7,1462 EBANK= TRKMKCNT
031416,000555: 35,3666 03246 74067 2CADR TIGNOW
031417,000556:
031418,000557: 35,3670 05527 TC DOWNFLAG
031419,000558: 35,3671 00303 ADRES PULSEFLG
031420,000559:
031421,000560: 35,3672 05364 TC PHASCHNG
031422,000561: 35,3673 00006 OCT 6 # KILL GROUP 6.
031423,000562:
031424,000563: 35,3674 15272 TCF TASKOVER
031425,000564:
031426,000565:
031427,000566: # ****************************************
031428,000567:
031429,000568: 35,3675 05332 ZOOM TC CHECKMM # P40 OR P63?
031430,000569: 35,3676 00077 DEC 63 B-14
031431,000570: 35,3677 13705 TCF P40ZOOM
031432,000571:
031433,000572: 35,3700 05515 P63ZOOM TC UPFLAG # INDICATE THAT THROTTLE-UP HAS COME
031434,000573: 35,3701 00122 ADRES ZOOMFLAG
031435,000574:
031436,000575: 35,3702 04674 TC IBNKCALL
031437,000576: 35,3703 62334 CADR FLATOUT
031438,000577: 35,3704 13712 TCF P40ZOOMA
031439,000578:
031440,000579: 35,3705 34737 P40ZOOM CAF BIT13
031441,000580: 35,3706 54055 TS THRUST
031442,000581: 35,3707 34750 CAF BIT4
031443,000582:
031444,000583: 35,3710 00006 EXTEND
031445,000584: 35,3711 05014 WOR CHAN14
031446,000585:
031447,000586: 35,3712 05364 P40ZOOMA TC PHASCHNG
031448,000587: 35,3713 00003 OCT 3
031449,000588: 35,3714 15272 TCF TASKOVER
031450,000589:
031451,000590:
031452,000591: 36,2576 BANK 36
|
|
Page 728
|
031454,000593: 36,2000 SETLOC P40S
031455,000594: 36,2000 BANK
031456,000595: 36,2576 COUNT* $$/P40
031457,000596:
031458,000597: # ****************************************
031459,000598:
031460,000599: 36,2576 05515 COMFAIL TC UPFLAG # (15)
031461,000600: 36,2577 00161 ADRES IDLEFLAG
031462,000601: 36,2600 05515 TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
031463,000602: 36,2601 00175 ADRES FLUNDISP
031464,000603: 36,2602 34751 CAF FOUR # RESET DVMON
031465,000604: 36,2603 55515 TS DVCNTR
031466,000605: 36,2604 10764 CCS PHASE6 # CLOCKTASK ACTIVE?
031467,000606: 36,2605 12610 TCF +3 # YES
031468,000607: 36,2606 04616 TC BANKCALL # OTHERWISE, START IT UP
031469,000608: 36,2607 74670 CADR STCLOK1
031470,000609: 36,2610 44765 +3 CS VB97DEX
031471,000610: 36,2611 55162 TS DISPDEX
031472,000611: 36,2612 05364 TC PHASCHNG # TURN OFF GROUP 4.
031473,000612: 36,2613 00004 OCT 00004
031474,000613: 36,2614 15155 TCF ENDOFJOB
031475,000614:
031476,000615: 36,2615 51455 COMFAIL1 INDEX WHICH
031477,000616: 36,2616 00002 TC 2
031478,000617:
031479,000618: 36,2617 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
031480,000619: 36,2620 12622 TCF +2
031481,000620:
031482,000621: 36,2621 44762 COMFAIL4 CS CNTDNDEX
031483,000622: 36,2622 55162 TS DISPDEX
031484,000623:
031485,000624: 36,2623 05527 TC DOWNFLAG # RECONNECT DV MONITOR
031486,000625: 36,2624 00161 ADRES IDLEFLAG
031487,000626: 36,2625 05527 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS
031488,000627: 36,2626 00175 ADRES FLUNDISP
031489,000628: 36,2627 15155 TCF ENDOFJOB
031490,000629:
031491,000630:
031492,000631: 36,2630 05364 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
031493,000632: 36,2631 00003 OCT 00003
031494,000633:
031495,000634: 36,2632 00004 INHINT
031496,000635: 36,2633 06032 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
031497,000636: 36,2634 73675 CADR ZOOM
031498,000637: 36,2635 04674 TC IBNKCALL # COMMAND ENGINE OFF
031499,000638: 36,2636 75570 CADR ENGINOF4
031500,000639: 36,2637 05515 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP.
031501,000640: 36,2640 00312 ADRES DRIFTDFL
031502,000641: 36,2641 02652 TC INVFLAG # USE OTHER RCS SYSTEM
031503,000642: 36,2642 00310 ADRES AORBTFLG
|
|
Page 729
|
031505,000644: 36,2643 05515 TC UPFLAG # TURN ON ULLAGE
031506,000645: 36,2644 00314 ADRES ULLAGFLG
031507,000646: 36,2645 34753 CAF BIT1
031508,000647: 36,2646 00004 INHINT
031509,000648: 36,2647 05204 TC TWIDDLE
031510,000649: 36,2650 02354 ADRES TIG-5
031511,000650: 36,2651 15155 TCF ENDOFJOB
031512,000651:
031513,000652:
031514,000653: # ****************************************
031515,000654: # SUBROUTINES OF THE IGNITION ROUTINE
031516,000655: # ****************************************
031517,000656:
031518,000657: 36,2652 30002 INVFLAG CA Q
031519,000658: 36,2653 05533 TC DEBIT
031520,000659: 36,2654 40000 COM
031521,000660: 36,2655 00006 EXTEND
031522,000661: 36,2656 06001 RXOR LCHAN
031523,000662: 36,2657 15522 TCF COMFLAG
031524,000663:
031525,000664:
031526,000665: # ****************************************
031527,000666:
031528,000667: 36,2660 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
031529,000668: 36,2661 70111 MASK DAPBOOLS
031530,000669: 36,2662 54111 TS DAPBOOLS
031531,000670: 36,2663 00002 TC Q
031532,000671:
031533,000672:
031534,000673: # ****************************************
031535,000674:
031536,000675: 36,2664 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
031537,000676: 36,2665 74746 MASK ULLAGER # A TASK OR WHILE INHINTED.
031538,000677: 36,2666 26111 ADS DAPBOOLS
031539,000678: 36,2667 00002 TC Q
031540,000679:
031541,000680:
031542,000681: # ****************************************
031543,000682:
031544,000683: 36,2670 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
031545,000684: 36,2671 55162 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
031546,000685: 36,2672 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
031547,000686: 36,2673 55060 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS)
031548,000687: 36,2674 00006 EXTEND
031549,000688: 36,2675 31442 DCA TIG
031550,000689: 36,2676 52155 DXCH MPAC
031551,000690: 36,2677 00006 EXTEND
031552,000691: 36,2700 40025 DCS TIME2
031553,000692: 36,2701 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
031554,000693: 36,2702 07262 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
|
|
Page 730
|
031556,000695: 36,2703 34777 CAF 1SEC # 45 SECOND CHECK
031557,000696: 36,2704 54002 TS Q
031558,000697: 36,2705 52155 DXCH MPAC
031559,000698: 36,2706 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
031560,000699: 36,2707 00006 EXTEND
031561,000700: 36,2710 10002 DV Q
031562,000701: 36,2711 30001 CA L # GET REMAINDER
031563,000702: 36,2712 64752 AD TWO
031564,000703: 36,2713 00004 INHINT
031565,000704: 36,2714 05204 TC TWIDDLE
031566,000705: 36,2715 02724 ADRES CLOKTASK
031567,000706: 36,2716 05340 TC 2PHSCHNG
031568,000707: 36,2717 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
031569,000708: 36,2720 05024 OCT 05024
031570,000709: 36,2721 13000 OCT 13000
031571,000710:
031572,000711: 36,2722 31060 CA TBASE4
031573,000712: 36,2723 04640 TC BANKJUMP
031574,000713:
031575,000714:
031576,000715: 36,2724 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
031577,000716: 36,2725 55064 TS TBASE6
031578,000717:
031579,000718: 36,2726 11162 CCS DISPDEX
031580,000719: 36,2727 12740 TCF KILLCLOK
031581,000720: 36,2730 12731 NOOP
031582,000721: 36,2731 37720 CAF PRIO27
031583,000722: 36,2732 05072 TC NOVAC
031584,000723: 36,2733 E7,1453 EBANK= TTOGO
031585,000724: 36,2733 02744 74067 2CADR CLOKJOB
031586,000725:
031587,000726:
031588,000727:
031589,000728: 36,2735 05232 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
031590,000729: 36,2736 00144 DEC 100 B-14
031591,000730: 36,2737 12724 TCF CLOKTASK
031592,000731:
031593,000732:
031594,000733: 36,2740 00006 KILLCLOK EXTEND # KILL RESTART
031595,000734: 36,2741 34755 DCA NEG0
031596,000735: 36,2742 52764 DXCH -PHASE6
031597,000736: 36,2743 15272 TCF TASKOVER
031598,000737:
031599,000738:
031600,000739: 36,2744 00006 CLOKJOB EXTEND
031601,000740: 36,2745 41442 DCS TIG
031602,000741: 36,2746 53454 DXCH TTOGO
031603,000742: 36,2747 00006 EXTEND
031604,000743: 36,2750 30025 DCA TIME2
031605,000744: 36,2751 21454 DAS TTOGO
|
|
Page 731
|
031607,000746: 36,2752 00004 INHINT
031608,000747: 36,2753 11162 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
031609,000748: 36,2754 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
031610,000749: 36,2755 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
031611,000750: 36,2756 40000 COM # INDEX.
031612,000751: 36,2757 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 *****
031613,000752: 36,2760 50000 INDEX A
031614,000753: 36,2761 13016 TCF DISPNOT -1 # ( -1 DUE TO EFFECT OF CCS )
031615,000754:
031616,000755: 36,2762 4765 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
031617,000756:
031618,000757: 36,2762 44755 -35 CS ZERO # INDICATE VERB 97 PASTE
031619,000758: 36,2763 55066 TS NVWORD1
031620,000759: 36,2764 30371 CA NVWORD +2 # NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
031621,000760: 36,2765 04616 TC BANKCALL
031622,000761: 36,2766 20474 CADR CLOCPLAY
031623,000762: 36,2767 13020 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
031624,000763: 36,2770 12615 TCF COMFAIL1
031625,000764: 36,2771 12630 TCF COMFAIL2
031626,000765:
031627,000766: # THIS DISPLAY IS CALLED VIA ASTNCLOK
031628,000767: 36,2772 33153 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
031629,000768: 36,2773 04616 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
031630,000769: 36,2774 20460 CADR REFLASH # TIG.
031631,000770: 36,2775 13020 TCF STOPCLOK
031632,000771: 36,2776 13035 TCF ASTNRETN
031633,000772: 36,2777 12772 TCF -5
031634,000773:
031635,000774: 36,3000 4762 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
031636,000775:
031637,000776: 36,3000 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
031638,000777: 36,3001 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
031639,000778: 36,3002 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
031640,000779: 36,3003 20466 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
031641,000780:
031642,000781: 36,3004 4760 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
031643,000782:
031644,000783: 36,3004 V99RECYC EQUALS
031645,000784:
031646,000785: 36,3004 44743 -13 CS BIT9 # INDICATE VERB 99 PASTE
031647,000786: 36,3005 55066 TS NVWORD1
031648,000787: 36,3006 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
031649,000788: 36,3007 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
031650,000789: 36,3010 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE
031651,000790: 36,3011 20474 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
031652,000791: 36,3012 13020 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
031653,000792: 36,3013 13046 TCF *PROCEED
031654,000793: 36,3014 13051 TCF *ENTER
031655,000794:
031656,000795: 36,3015 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
031657,000796:
|
|
Page 732
|
031659,000798: 36,3015 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
031660,000799: 36,3016 20457 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
031661,000800: 36,3017 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
031662,000801:
031663,000802:
031664,000803: 36,3020 03022 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
031665,000804: 36,3021 16001 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
031666,000805:
031667,000806: 36,3022 00004 NULLCLOK INHINT
031668,000807: 36,3023 00006 EXTEND
031669,000808: 36,3024 23141 QXCH P40/RET
031670,000809: 36,3025 02660 TC NOULLAGE # TURN OFF ULLAGE...
031671,000810: 36,3026 06032 TC KILLTASK # DON'T LET IT COME ON, EITHER...
031672,000811: 36,3027 74350 CADR ULLGTASK
031673,000812: 36,3030 05364 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
031674,000813: 36,3031 00001 OCT 1
031675,000814: 36,3032 30005 CA Z # KILL CLOKTASK
031676,000815: 36,3033 55162 TS DISPDEX
031677,000816: 36,3034 01141 TC P40/RET
031678,000817:
031679,000818:
031680,000819: 36,3035 05364 ASTNRETN TC PHASCHNG
031681,000820: 36,3036 04024 OCT 04024
031682,000821: 36,3037 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING.
031683,000822: 36,3040 55162 TS DISPDEX
031684,000823: 36,3041 35023 CAF PRIO13
031685,000824: 36,3042 05105 TC FINDVAC
031686,000825: 36,3043 E5,1757 EBANK= STARIND
031687,000826: 36,3043 03000 64065 2CADR ASTNRET
031688,000827:
031689,000828: 36,3045 15155 TCF ENDOFJOB
031690,000829:
031691,000830:
031692,000831: 36,3046 05515 *PROCEED TC UPFLAG
031693,000832: 36,3047 00154 ADRES ASTNFLAG
031694,000833:
031695,000834: 36,3050 13107 TCF IGNITE
031696,000835:
031697,000836:
031698,000837: 36,3051 00004 *ENTER INHINT
031699,000838: 36,3052 51455 INDEX WHICH
031700,000839: 36,3053 00003 TC 3
031701,000840:
031702,000841: 36,3054 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
031703,000842: 36,3055 05105 TC FINDVAC
031704,000843: 36,3056 E7,1453 EBANK= TTOGO
031705,000844: 36,3056 03230 74067 2CADR POSTBURN
031706,000845: 36,3060 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
031707,000846: 36,3061 04674 TC IBNKCALL
|
|
Page 733
|
031709,000848: 36,3062 40205 CADR ALLCOAST
031710,000849: 36,3063 03022 TC NULLCLOK
031711,000850: 36,3064 05364 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
031712,000851: 36,3065 00134 OCT 00134
031713,000852:
031714,000853: 36,3066 15155 TCF ENDOFJOB
031715,000854:
031716,000855:
031717,000856: 36,3067 35027 GOCUTOFF CAF PRIO17 # (3)
031718,000857: 36,3070 05105 TC FINDVAC
031719,000858: 36,3071 E7,1516 EBANK= TGO
031720,000859: 36,3071 02416 30067 2CADR CUTOFF
031721,000860:
031722,000861: 36,3073 05527 TC DOWNFLAG
031723,000862: 36,3074 00175 ADRES FLUNDISP
031724,000863:
031725,000864: 36,3075 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
031726,000865: 36,3076 04674 TC IBNKCALL
031727,000866: 36,3077 40205 CADR ALLCOAST
031728,000867: 36,3100 03022 TC NULLCLOK
031729,000868: 36,3101 05364 TC PHASCHNG
031730,000869: 36,3102 07024 OCT 07024
031731,000870: 36,3103 17000 OCT 17000
031732,000871: 36,3104 E7,1516 EBANK= TGO
031733,000872: 36,3104 02416 30067 2CADR CUTOFF
031734,000873:
031735,000874: 36,3106 15155 TCF ENDOFJOB
031736,000875:
031737,000876:
031738,000877: 36,3107 40103 IGNITE CS FLAGWRD7 # (2)
031739,000878: 36,3110 74737 MASK IGNFLBIT
031740,000879: 36,3111 10000 CCS A
031741,000880: 36,3112 13123 TCF IGNITE1
031742,000881: 36,3113 34753 CAF BIT1
031743,000882: 36,3114 00004 INHINT
031744,000883: 36,3115 05204 TC TWIDDLE
031745,000884: 36,3116 02433 ADRES IGNITION
031746,000885:
031747,000886: 36,3117 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION.
031748,000887: 36,3120 54001 TS L
031749,000888: 36,3121 40000 COM
031750,000889: 36,3122 52760 DXCH -PHASE4
031751,000890:
031752,000891: 36,3123 44762 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
031753,000892: 36,3124 55162 TS DISPDEX
031754,000893:
031755,000894: 36,3125 15155 TCF ENDOFJOB
031756,000895:
031757,000896: # ****************************************
031758,000897:
|
|
Page 734
|
031760,000899: 36,3126 05600 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH
031761,000900: 36,3127 01706 OCT 1706 # VEHICLE CONFIGURATION
031762,000901:
031763,000902: 36,3130 35006 REP40ALM CAF V05N09 # (14)
031764,000903: 36,3131 04616 TC BANKCALL
031765,000904: 36,3132 20477 CADR GOFLASH
031766,000905:
031767,000906: 36,3133 16001 TCF GOTOPOOH # V34E TERMINATE
031768,000907: 36,3134 13136 TCF +2 # PROCEED CHECK FOR P42
031769,000908: 36,3135 13130 TCF REP40ALM # V32E REDISPLAY ALARM
031770,000909:
031771,000910: 36,3136 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN
031772,000911: 36,3137 00014 TC 14 # THOUGH VEHICLE IS UNSTAGED.
031773,000912:
031774,000913: # ****************************************
031775,000914:
031776,000915:
031777,000916: 31,2144 BANK 31
031778,000917: 35,2000 SETLOC P40S2
031779,000918: 35,2000 BANK
031780,000919:
031781,000920: 35,3715 COUNT* $$/P40
031782,000921:
031783,000922: 35,3715 04645 P40AUTO TC MAKECADR # HELLO THERE.
031784,000923: 35,3716 55163 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
031785,000924: 35,3717 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
031786,000925: 35,3720 54263 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
031787,000926: 35,3721 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
031788,000927: 35,3722 13734 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
031789,000928: 35,3723 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
031790,000929: 35,3724 70106 MASK FLGWRD10
031791,000930: 35,3725 10000 CCS A
031792,000931: 35,3726 13741 TCF GOBACK # RETURN
031793,000932: 35,3727 34747 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
031794,000933: 35,3730 00006 EXTEND
031795,000934: 35,3731 02030 RAND CHAN30
031796,000935: 35,3732 00006 EXTEND
031797,000936: 35,3733 13741 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
031798,000937: 35,3734 33743 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
031799,000938: 35,3735 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
031800,000939: 35,3736 20624 CADR GOPERF1
031801,000940: 35,3737 16001 TCF GOTOPOOH # V34E TERMINATE
031802,000941: 35,3740 13717 TCF P40A/P # RECYCLE
031803,000942: 35,3741 31163 GOBACK CA TEMPR60
031804,000943: 35,3742 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
031805,000944:
031806,000945:
031807,000946: 35,3743 00203 P40A/PMD OCT 00203
031808,000947:
031809,000948: 36,3140 BANK 36
|
|
Page 735
|
031811,000950: 36,2000 SETLOC P40S
031812,000951: 36,2000 BANK
031813,000952:
031814,000953: 36,3140 COUNT* $$/P40
031815,000954:
031816,000955: # ****************************************
031817,000956: # CONSTANTS FOR THE IGNITION ROUTINE
031818,000957: # ****************************************
031819,000958:
031820,000959: 36,3140 36,2107 SERVCADR = P63TABLE +7
031821,000960:
031822,000961: 36,3140 02040 P40ADRES ADRES P40TABLE
031823,000962:
031824,000963: 36,3141 02050 P41ADRES ADRES P41TABLE -5
031825,000964:
031826,000965: 36,3142 02063 P42ADRES ADRES P42TABLE
031827,000966:
031828,000967: 36,3143 E7,1515 EBANK= DVCNTR
031829,000968: 36,3143 02425 62067 LUNLANAD 2CADR LUNLAND
031830,000969:
031831,000970:
031832,000971:
031833,000972: 36,3145 E7,1515 EBANK= DVCNTR
031834,000973: 36,3145 03375 70067 ATMAGADR 2CADR ATMAG
031835,000974:
031836,000975: 36,3147 6001 ? = GOTOPOOH
031837,000976:
031838,000977: 36,3147 00000 05656 D29.9SEC 2DEC 2990 B-28
031839,000978:
031840,000979:
031841,000980:
031842,000981: 36,3151 04672 S24.9SEC DEC 2490 B-14
031843,000982:
031844,000983:
031845,000984: 36,3152 00752 4.9SEC DEC 490 B-14
031846,000985:
031847,000986: 36,3153 4747 OCT20 = BIT5
031848,000987:
031849,000988: 36,3153 01475 V06N61 VN 0661
031850,000989:
|
|
Page 736
|
031852,000991: # KILLTASK
031853,000992: # MOD NO: NEW PROGRAM
031854,000993: # MOD BY: COVELLI
031855,000994:
031856,000995:
031857,000996: # FUNCTIONAL DESCRIPTION:
031858,000997:
031859,000998: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
031860,000999: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
031861,001000: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
031862,001001: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
031863,001002:
031864,001003: # CALLING SEQUENCE:
031865,001004:
031866,001005: # L TC KILLTASK IN FIXED-FIXED
031867,001006: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED.
031868,001007: # L+2 (RELINT) RETURN
031869,001008:
031870,001009: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
031871,001010:
031872,001011: # ERASABLE INITIALIZATION= NONE.
031873,001012:
031874,001013: # OUTPUT: 2CADR OF NULLTASK IN LST2
031875,001014:
031876,001015: # DEBRIS: ITEMP1 - ITEMP4, A,L,Q.
031877,001016:
031878,001017: 36,3154 E3,1410 EBANK= LST2
031879,001018: 6032 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
031880,001019: 6000 SETLOC FFTAG6
031881,001020: 6000 BANK
031882,001021: 6032 COUNT* $$/KILL
031883,001022: 6032 36041 KILLTASK CA KILLBB
031884,001023: 6033 00004 INHINT
031885,001024: 6034 22000 LXCH A
031886,001025: 6035 50002 INDEX Q
031887,001026: 6036 30000 CA 0 # GET CADR.
031888,001027: 6037 22006 LXCH BBANK
031889,001028: 6040 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED
031890,001029:
031891,001030: 6041 E3,1410 EBANK= LST2
031892,001031: 6041 56063 KILLBB BBCON KILLTSK2
031893,001032:
031894,001033:
031895,001034: 27,2200 BANK 27
031896,001035:
031897,001036: 27,2000 SETLOC P40S1
031898,001037: 27,2000 BANK
031899,001038: 27,2200 COUNT* $$/KILL
031900,001039:
031901,001040: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
|
|
Page 737
|
031903,001042: 27,2201 24002 INCR Q
031904,001043: 27,2202 00006 EXTEND
031905,001044: 27,2203 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2
031906,001045:
031907,001046: 27,2204 54063 TS ITEMP3 # CADR IS IN A
031908,001047: 27,2205 75012 MASK LOW10
031909,001048: 27,2206 64741 AD BIT11
031910,001049: 27,2207 54064 TS ITEMP4 # GENADR OF TASK
031911,001050:
031912,001051: 27,2210 45012 CS LOW10
031913,001052: 27,2211 70063 MASK ITEMP3
031914,001053: 27,2212 54063 TS ITEMP3 # FBANK OF TASK
031915,001054:
031916,001055: 27,2213 22007 ZL
031917,001056: 27,2214 50001 ADRSCAN INDEX L
031918,001057: 27,2215 41410 CS LST2
031919,001058: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS
031920,001059: 27,2217 00006 EXTEND
031921,001060: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
031922,001061: 27,2221 44747 LETITLIV CS LSTLIM
031923,001062: 27,2222 60001 AD L
031924,001063: 27,2223 00006 EXTEND # ARE WE DONE?
031925,001064: 27,2224 12230 BZF DEAD # YES - DONE, SO RETURN
031926,001065: 27,2225 24001 INCR L
031927,001066: 27,2226 24001 INCR L
031928,001067: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP.
031929,001068:
031930,001069: 27,2230 52062 DEAD DXCH ITEMP1
031931,001070: 27,2231 52006 DTCB
031932,001071:
031933,001072: 27,2232 45012 TSTFBANK CS LOW10
031934,001073: 27,2233 50001 INDEX L
031935,001074: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
031936,001075: 27,2235 00006 EXTEND
031937,001076: 27,2236 60063 SU ITEMP3
031938,001077: 27,2237 00006 EXTEND
031939,001078: 27,2240 12242 BZF KILLDEAD # MATCH - KILL IT.
031940,001079: 27,2241 12221 TCF LETITLIV # NO MATCH - CONTINUE.
031941,001080:
031942,001081: 27,2242 34353 KILLDEAD CA TCTSKOVR
031943,001082: 27,2243 50001 INDEX L
031944,001083: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
031945,001084: 27,2245 12230 TCF DEAD
031946,001085:
031947,001086: 27,2246 4747 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc