Source Code
031317,000001: # Copyright: Public domain.
031318,000002: # Filename: BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
031319,000003: # Purpose: Part of the source code for Luminary 1A build 099.
031320,000004: # It is part of the source code for the Lunar Module's (LM)
031321,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
031322,000006: # Assembler: yaYUL
031323,000007: # Contact: Ron Burkey <info@sandroid.org>.
031324,000008: # Website: www.ibiblio.org/apollo.
031325,000009: # Pages: 731-751
031326,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding
031327,000011: # Luminary131 file, using page
031328,000012: # images from Luminary 1A.
031329,000013: # 2009-06-07 RSB Corrected 3 typos.
031330,000014: # 2009-07-23 RSB Added Onno's notes on the naming
031331,000015: # of this function, which he got from
031332,000016: # Don Eyles.
031333,000017:
031334,000018: # This source code has been transcribed or otherwise adapted from
031335,000019: # digitized images of a hardcopy from the MIT Museum. The digitization
031336,000020: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031337,000021: # the Museum. Many thanks to both. The images (with suitable reduction
031338,000022: # in storage size and consequent reduction in image quality as well) are
031339,000023: # available online at www.ibiblio.org/apollo. If for some reason you
031340,000024: # find that the images are illegible, contact me at info@sandroid.org
031341,000025: # about getting access to the (much) higher-quality images which Paul
031342,000026: # actually created.
031343,000027:
031344,000028: # Notations on the hardcopy document read, in part:
031345,000029:
031346,000030: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
031347,000031: # 16:27 JULY 14, 1969
031348,000032:
031349,000033: # Page 731
|
At the get-together of the AGC developers celebrating the 40th anniversary
of the first moonwalk, Don Eyles (one of the authors of this routine along
with Peter Adler) has related to us a little interesting history behind the
naming of the routine. It traces back to 1965 and the Los Angeles riots, and was inspired by disc jockey extraordinaire and radio station owner Magnificent Montague. Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the hottest new records. Magnificent Montague was the charismatic voice of soul music in Chicago, New York, and Los Angeles from the mid-1950s to the mid-1960s. |
031361,000045: # BURN, BABY, BURN -- MASTER IGNITION ROUTINE
031362,000046:
031363,000047: 36,2022 BANK 36
031364,000048: 36,2000 SETLOC P40S
031365,000049: 36,2000 BANK
031366,000050: 36,2022 E7,1455 EBANK= WHICH
031367,000051: 36,2022 COUNT* $$/P40
031368,000052:
031369,000053: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
031370,000054: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
031371,000055: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
031372,000056: # PROGRAMS THROTTLE UP.
031373,000057:
031374,000058: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
031375,000059: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
031376,000060: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER `WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
031377,000061: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
031378,000062: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
031379,000063:
031380,000064: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
031381,000065:
031382,000066: # HONI SOIT QUI MAL Y PENSE
031383,000067:
031384,000068: # ***********************************************
031385,000069: # TABLES FOR THE IGNITION ROUTINE
031386,000070: # ***********************************************
031387,000071:
031388,000072: # NOLI SE TANGERE
031389,000073:
031390,000074: 36,2022 01512 P12TABLE VN 0674 # (0)
031391,000075: 36,2023 12325 TCF ULLGNOT # (1)
031392,000076: 36,2024 12612 TCF COMFAIL3 # (2)
031393,000077: 36,2025 13062 TCF GOCUTOFF # (3)
031394,000078: 36,2026 15261 TCF TASKOVER # (4)
031395,000079: 36,2027 12146 TCF P12SPOT # (5)
031396,000080: 36,2030 00000 DEC 0 B-14 # (6) NO ULLAGE
031397,000081: 36,2031 E7,1455 EBANK= WHICH
031398,000082: 36,2031 03770 64067 2CADR SERVEXIT # (7)
031399,000083:
031400,000084: 36,2033 12376 TCF DISPCHNG # (11)
031401,000085: 36,2034 12563 TCF WAITABIT # (12)
031402,000086: 36,2035 12521 TCF P12IGN # (13)
031403,000087:
031404,000088: 36,2036 01450 P40TABLE VN 0640 # (0)
031405,000089: 36,2037 12325 TCF ULLGNOT # (1)
031406,000090: 36,2040 12614 TCF COMFAIL4 # (2)
031407,000091: 36,2041 13047 TCF GOPOST # (3)
031408,000092: 36,2042 15261 TCF TASKOVER # (4)
031409,000093: 36,2043 12146 TCF P40SPOT # (5)
031410,000094: # Page 732
031411,000095: 36,2044 04300 DEC 2240 B-14 # (6)
031412,000096: 36,2045 E6,1422 EBANK= OMEGAQ
031413,000097: 36,2045 03666 74066 2CADR STEERING # (7)
031414,000098:
031415,000099: 36,2047 12366 TCF P40SJUNK # (11)
031416,000100: 36,2050 12563 TCF WAITABIT # (12)
031417,000101: 36,2051 12504 TCF P40IGN # (13)
031418,000102: 36,2052 13123 TCF REP40ALM # (14)
031419,000103:
031420,000104: 36,2053 12151 P41TABLE TCF P41SPOT # (5)
031421,000105: 36,2054 77776 DEC -1 B-14 # (6)
031422,000106: 36,2055 E6,1422 EBANK= OMEGAQ
031423,000107: 36,2055 03376 74066 2CADR CALCN85 # (7)
031424,000108:
031425,000109: 36,2057 12400 TCF COMMON # (11)
031426,000110: 36,2060 12567 TCF TIGTASK # (12)
031427,000111:
031428,000112: 36,2061 01450 P42TABLE VN 0640 # (0)
031429,000113: 36,2062 12322 TCF WANTAPS # (1)
031430,000114: 36,2063 12614 TCF COMFAIL4 # (2)
031431,000115: 36,2064 13047 TCF GOPOST # (3)
031432,000116: 36,2065 15261 TCF TASKOVER # (4)
031433,000117: 36,2066 12146 TCF P42SPOT # (5)
031434,000118: 36,2067 05120 DEC 2640 B-14 # (6)
031435,000119: 36,2070 E6,1422 EBANK= OMEGAQ
031436,000120: 36,2070 03666 74066 2CADR STEERING # (7)
031437,000121:
031438,000122: 36,2072 12366 TCF P40SJUNK # (11)
031439,000123: 36,2073 12563 TCF WAITABIT # (12)
031440,000124: 36,2074 12541 TCF P42IGN # (13)
031441,000125: 36,2075 13420 TCF P42STAGE # (14)
031442,000126:
031443,000127: 36,2076 01476 P63TABLE VN 0662 # (0)
031444,000128: 36,2077 12325 TCF ULLGNOT # (1)
031445,000129: 36,2100 12612 TCF COMFAIL3 # (2)
031446,000130: 36,2101 12777 TCF V99RECYC # (3)
031447,000131: 36,2102 15261 TCF TASKOVER # (4)
031448,000132: 36,2103 12151 TCF P63SPOT # (5)
031449,000133: 36,2104 04300 DEC 2240 B-14 # (6)
031450,000134: 36,2105 E7,1455 EBANK= WHICH
031451,000135: 36,2105 03770 64067 2CADR SERVEXIT # (7)
031452,000136:
031453,000137: 36,2107 12376 TCF DISPCHNG # (11)
031454,000138: 36,2110 12563 TCF WAITABIT # (12)
031455,000139: # Page 733
031456,000140: 36,2111 12455 TCF P63IGN # (13)
031457,000141:
031458,000142: 36,2112 01477 ABRTABLE VN 0663 # (0)
031459,000143: 36,2113 12325 TCF ULLGNOT # (1)
031460,000144: 36,2114 12612 TCF COMFAIL3 # (2)
031461,000145: 36,2115 13062 TCF GOCUTOFF # (3)
031462,000146: 36,2116 15261 TCF TASKOVER # (4)
031463,000147: 36,2117 12120 NOOP # (5)
031464,000148: 36,2120 12121 NOOP # (6)
031465,000149: 36,2121 12122 NOOP # (7)
031466,000150: 36,2122 12123 NOOP
031467,000151: 36,2123 12376 TCF DISPCHNG # (11)
031468,000152: 36,2124 12563 TCF WAITABIT # (12)
031469,000153: 36,2125 12531 TCF ABRTIGN # (13)
031470,000154:
031471,000155: # *********************************
031472,000156: # GENERAL PURPOSE IGNITION ROUTINES
031473,000157: # *********************************
031474,000158:
031475,000159: 36,2126 05353 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
031476,000160: 36,2127 04024 OCT 04024
031477,000161:
031478,000162: 36,2130 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
031479,000163: 36,2131 55507 TS DVTOTAL
031480,000164: 36,2132 55510 TS DVTOTAL +1
031481,000165:
031482,000166: 36,2133 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
031483,000167: 36,2134 73747 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
031484,000168:
031485,000169: 36,2135 00006 B*RNB*B* EXTEND
031486,000170: 36,2136 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
031487,000171: 36,2137 53512 DXCH GOBLTIME # AND FOR P70 OR P71.
031488,000172:
031489,000173: 36,2140 00004 INHINT
031490,000174: 36,2141 04674 TC IBNKCALL
031491,000175: 36,2142 75564 CADR ENGINOF3
031492,000176: 36,2143 00003 RELINT
031493,000177:
031494,000178: 36,2144 51455 INDEX WHICH
031495,000179: 36,2145 10005 TCF 5
031496,000180:
031497,000181: 36,2146 36,2146 P42SPOT = P40SPOT # (5)
031498,000182: 36,2146 36,2146 P12SPOT = P40SPOT # (5)
031499,000183: 36,2146 36,2151 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
031500,000184: 36,2146 44762 P40SPOT CS CNTDNDEX # (5)
031501,000185: # Page 734
031502,000186: 36,2147 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
031503,000187: 36,2150 74664 CADR STCLOK2 # RETURN
031504,000188: 36,2151 06037 P41SPOT TC INTPRET # (5)
031505,000189: 36,2152 45345 DLOAD DSU
031506,000190: 36,2153 03442 TIG
031507,000191: 36,2154 35143 D29.9SEC
031508,000192: 36,2155 34041 STCALL TDEC1
031509,000193: 36,2156 61104 INITCDUW
031510,000194: 36,2157 45014 BOFF CALL
031511,000195: 36,2160 03347 MUNFLAG
031512,000196: 36,2161 74200 GOMIDAV
031513,000197: 36,2162 27043 CSMPREC
031514,000198: 36,2163 64375 VLOAD MXV
031515,000199: 36,2164 00025 VATT1
031516,000200: 36,2165 01734 REFSMMAT
031517,000201: 36,2166 77762 VSR1
031518,000202: 36,2167 25726 STOVL V(CSM) # CSM VELOCITY -- M/CS*2(7)
031519,000203: 36,2170 00017 RATT1
031520,000204: 36,2171 64312 VSL4 MXV
031521,000205: 36,2172 01734 REFSMMAT
031522,000206: 36,2173 35720 STCALL R(CSM) # CSM POSITION -- M*2(24)
031523,000207: 36,2174 67130 MUNGRAV
031524,000208: 36,2175 16317 STODL G(CSM) # CSM GRAVITY VEC. -- M/CS*2(7)
031525,000209: 36,2176 00015 TAT
031526,000210: 36,2177 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
031527,000211: 36,2200 77624 GOMIDAV CALRB
031528,000212: 36,2201 27557 MIDTOAV1
031529,000213: 36,2202 12211 TCF CALLT-35 # MADE IT IN TIME.
031530,000214:
031531,000215: 36,2203 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9
031532,000216: 36,2204 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID
031533,000217: 36,2205 53442 DXCH TIG # INTEGRATE.
031534,000218: 36,2206 00006 EXTEND
031535,000219: 36,2207 33143 DCA D29.9SEC
031536,000220: 36,2210 21442 DAS TIG
031537,000221:
031538,000222: 36,2211 52155 CALLT-35 DXCH MPAC
031539,000223: 36,2212 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30
031540,000224: 36,2213 00006 EXTEND
031541,000225: 36,2214 43756 DCS 5SECDP
031542,000226: 36,2215 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35
031543,000227: 36,2216 00006 EXTEND
031544,000228: 36,2217 31500 DCA SAVET-30
031545,000229: 36,2220 05277 TC LONGCALL
031546,000230: 36,2221 E7,1453 EBANK= TTOGO
031547,000231: 36,2221 02240 74067 2CADR TIG-35
031548,000232:
031549,000233: 36,2223 05353 TC PHASCHNG
031550,000234: 36,2224 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
031551,000235: # Page 735
031552,000236: 36,2225 05321 TC CHECKMM
031553,000237: 36,2226 00077 DEC 63 B-14
031554,000238: 36,2227 15155 TCF ENDOFJOB # NOT P63
031555,000239: 36,2230 44762 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
031556,000240: 36,2231 55163 TS DISPDEX
031557,000241: 36,2232 06037 TC INTPRET
031558,000242: 36,2233 51575 VLOAD ABVAL
031559,000243: 36,2234 03553 VN1
031560,000244: 36,2235 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY
031561,000245: 36,2236 77776 EXIT
031562,000246: 36,2237 15155 TCF ENDOFJOB
031563,000247:
031564,000248: # ********************************
031565,000249:
031566,000250: 36,2240 33756 TIG-35 CAF 5SEC
031567,000251: 36,2241 05173 TC TWIDDLE
031568,000252: 36,2242 02276 ADRES TIG-30
031569,000253:
031570,000254: 36,2243 05353 TC PHASCHNG
031571,000255: 36,2244 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
031572,000256:
031573,000257: 36,2245 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
031574,000258: 36,2246 55163 TS DISPDEX
031575,000259:
031576,000260: 36,2247 51455 INDEX WHICH
031577,000261: 36,2250 40006 CS 6 # CHECK ULLAGE TIME.
031578,000262: 36,2251 00006 EXTEND
031579,000263: 36,2252 65261 BZMF TASKOVER
031580,000264: 36,2253 33145 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
031581,000265: 36,2254 05173 TC TWIDDLE
031582,000266: 36,2255 02266 ADRES TIG-30.1
031583,000267:
031584,000268: 36,2256 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
031585,000269: 36,2257 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
031586,000270: 36,2260 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
031587,000271: 36,2260 02263 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
031588,000272:
031589,000273: 36,2262 15261 TCF TASKOVER
031590,000274:
031591,000275: 36,2263 04616 P41BLANK TC BANKCALL # BLANK DSKY.
031592,000276: 36,2264 20456 CADR CLEANDSP
031593,000277: 36,2265 15155 TCF ENDOFJOB
031594,000278:
031595,000279: 36,2266 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
031596,000280: 36,2267 05072 TC NOVAC
031597,000281: 36,2270 E7,1453 EBANK= TTOGO
031598,000282: 36,2270 02273 74067 2CADR TIG-30A
031599,000283:
031600,000284: 36,2272 15261 TCF TASKOVER
031601,000285: # Page 736
031602,000286: 36,2273 33761 TIG-30A CAF V16N85B
031603,000287: 36,2274 04616 TC BANKCALL # RESTORE DISPLAY.
031604,000288: 36,2275 20465 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
031605,000289:
031606,000290: # ********************************
031607,000291:
031608,000292: 36,2276 33144 TIG-30 CAF S24.9SEC
031609,000293: 36,2277 05173 TC TWIDDLE
031610,000294: 36,2300 02352 ADRES TIG-5
031611,000295:
031612,000296: 36,2301 44762 CS CNTDNDEX # START UP CLOKTASK AGAIN
031613,000297: 36,2302 55163 TS DISPDEX
031614,000298:
031615,000299: 36,2303 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE -- ON TIME
031616,000300: 36,2304 30006 CA 6 # Was CAF --- RSB 2009.
031617,000301: 36,2305 00006 EXTEND
031618,000302: 36,2306 62325 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
031619,000303: 36,2307 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART
031620,000304: 36,2310 05173 TC TWIDDLE
031621,000305: 36,2311 02346 ADRES ULLGTASK
031622,000306:
031623,000307: 36,2312 36245 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
031624,000308: 36,2313 54001 TS L
031625,000309: 36,2314 46245 CS THREE
031626,000310: 36,2315 52753 DXCH -PHASE1
031627,000311: 36,2316 40025 CS TIME1
031628,000312: 36,2317 55053 TS TBASE1
031629,000313:
031630,000314: 36,2320 51455 INDEX WHICH
031631,000315: 36,2321 10001 TCF 1
031632,000316:
031633,000317: 36,2322 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
031634,000318: 36,2323 74737 MASK APSFLBIT # WASN'T SET, DAP WILL BE INITIALIZED TO
031635,000319: 36,2324 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
031636,000320:
031637,000321: 36,2325 00006 ULLGNOT EXTEND # (1)
031638,000322: 36,2326 51455 INDEX WHICH
031639,000323: 36,2327 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
031640,000324: 36,2330 53253 DXCH AVEGEXIT
031641,000325:
031642,000326: 36,2331 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
031643,000327: 36,2332 54001 TS L
031644,000328: 36,2333 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
031645,000329: 36,2334 52761 DXCH -PHASE4
031646,000330:
031647,000331: 36,2335 40025 CS TIME1
031648,000332: 36,2336 55061 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
031649,000333:
031650,000334: 36,2337 00006 REDO2.17 EXTEND
031651,000335: # Page 737
031652,000336: 36,2340 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
031653,000337: 36,2341 52755 DXCH -PHASE2 # IF NEEDED.
031654,000338:
031655,000339: 36,2342 10763 REDO4.2 CCS PHASE5 # IF SERVICER GOING?
031656,000340: 36,2343 15261 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
031657,000341:
031658,000342: 36,2344 04635 TC POSTJUMP
031659,000343: 36,2345 77410 CADR PREREAD # PREREAD END THIS TASK
031660,000344:
031661,000345: # *********************************
031662,000346:
031663,000347: 36,2346 02657 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
031664,000348: 36,2347 05353 TC PHASCHNG
031665,000349: 36,2350 00001 OCT 1
031666,000350: 36,2351 15261 TCF TASKOVER
031667,000351:
031668,000352: # *********************************
031669,000353:
031670,000354: 36,2352 00006 TIG-5 EXTEND
031671,000355: 36,2353 34755 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE.
031672,000356: 36,2354 52757 DXCH -PHASE3
031673,000357:
031674,000358: 36,2355 33756 CAF 5SEC
031675,000359: 36,2356 05173 TC TWIDDLE
031676,000360: 36,2357 02403 ADRES TIG-0
031677,000361:
031678,000362: 36,2360 05516 TC DOWNFLAG # RESET IGNFLAG AND ASINFLAG
031679,000363: 36,2361 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
031680,000364: 36,2362 05516 TC DOWNFLAG
031681,000365: 36,2363 00154 ADRES ASTNFLAG
031682,000366:
031683,000367: 36,2364 51455 INDEX WHICH
031684,000368: 36,2365 10011 TCF 11
031685,000369:
031686,000370: 36,2366 10757 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
031687,000371: 36,2367 12376 TCF DISPCHNG # YES
031688,000372:
031689,000373: 36,2370 34736 CAF PRIO20
031690,000374: 36,2371 05105 TC FINDVAC
031691,000375: 36,2372 E7,1453 EBANK= TTOGO
031692,000376: 36,2372 02540 56067 2CADR S40.13
031693,000377:
031694,000378: 36,2374 05353 TC PHASCHNG # 3.5SPOT FOR S40.13
031695,000379: 36,2375 00053 OCT 00053
031696,000380: 36,2376 44760 DISPCHNG CS VB99DEX # (11)
031697,000381: 36,2377 55163 TS DISPDEX
031698,000382:
031699,000383: # Page 738
031700,000384: 36,2400 05353 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
031701,000385: 36,2401 40074 OCT 40074
031702,000386: 36,2402 15261 TCF TASKOVER
031703,000387:
031704,000388: # *********************************
031705,000389:
031706,000390: 36,2403 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
031707,000391: 36,2404 74737 MASK IGNFLBIT
031708,000392: 36,2405 26103 ADS FLAGWRD7
031709,000393:
031710,000394: 36,2406 05321 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
031711,000395: 36,2407 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
031712,000396: 36,2410 12421 TCF IGNYET?
031713,000397: 36,2411 31422 CA ZOOMTIME
031714,000398: 36,2412 05203 TC WAITLIST
031715,000399: 36,2413 E7,1515 EBANK= DVCNTR
031716,000400: 36,2413 02007 36067 2CADR P63ZOOM
031717,000401:
031718,000402: 36,2415 05327 TC 2PHSCHNG
031719,000403: 36,2416 40033 OCT 40033
031720,000404:
031721,000405: 36,2417 05014 OCT 05014
031722,000406: 36,2420 77777 OCT 77777
031723,000407:
031724,000408: 36,2421 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
031725,000409: 36,2422 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
031726,000410: 36,2423 00006 EXTEND
031727,000411: 36,2424 51455 INDEX WHICH
031728,000412: 36,2425 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET
031729,000413:
031730,000414: 36,2426 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
031731,000415: 36,2427 74745 MASK ENGONBIT
031732,000416: 36,2430 26101 ADS FLAGWRD5
031733,000417: 36,2431 44355 CS PRIO30 # TURN ON THE ENGINE.
031734,000418: 36,2432 00006 EXTEND
031735,000419: 36,2433 02011 RAND DSALMOUT
031736,000420: 36,2434 64737 AD BIT13
031737,000421: 36,2435 00006 EXTEND
031738,000422: 36,2436 01011 WRITE DSALMOUT
031739,000423: 36,2437 00006 EXTEND # SET TEVENT FOR DOWNLINK
031740,000424: 36,2440 30025 DCA TIME2
031741,000425: 36,2441 53345 DXCH TEVENT
031742,000426:
031743,000427: 36,2442 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
031744,000428: 36,2443 31517 DCA TGO
031745,000429: 36,2444 53442 DXCH TIG
031746,000430: 36,2445 00006 EXTEND
031747,000431: 36,2446 30025 DCA TIME2
031748,000432: 36,2447 21442 DAS TIG
031749,000433:
031750,000434: # Page 739
031751,000435: 36,2450 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS
031752,000436: 36,2451 70104 MASK FLAGWRD8
031753,000437: 36,2452 54104 TS FLAGWRD8
031754,000438:
031755,000439: 36,2453 51455 INDEX WHICH
031756,000440: 36,2454 10013 TCF 13
031757,000441:
031758,000442: 36,2455 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
031759,000443: 36,2456 33137 DCA DSP2CADR
031760,000444: 36,2457 53253 DXCH AVGEXIT
031761,000445:
031762,000446: 36,2460 30005 CA Z # ASSASSINATE CLOKTASK
031763,000447: 36,2461 55163 TS DISPDEX
031764,000448:
031765,000449: 36,2462 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
031766,000450: 36,2463 74743 MASK LETABBIT
031767,000451: 36,2464 26105 ADS FLAGWRD9
031768,000452:
031769,000453: 36,2465 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
031770,000454: 36,2466 74741 MASK SWANDBIT
031771,000455: 36,2467 26103 ADS FLAGWRD7
031772,000456:
031773,000457: 36,2470 44735 CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
031774,000458: 36,2471 70111 MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
031775,000459: 36,2472 54111 TS DAPBOOLS
031776,000460:
031777,000461: 36,2473 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
031778,000462: 36,2474 30025 DCA TIME2
031779,000463: 36,2475 53442 DXCH TIG
031780,000464:
031781,000465: 36,2476 34755 CAF ZERO # INITIALIZE WCHPHASE, AND FLPASS0
031782,000466: 36,2477 55351 TS WCHPHASE
031783,000467: 36,2500 55621 TS WCHPHOLD # ALSO WHCPHOLD
031784,000468: 36,2501 34752 CA TWO
031785,000469: 36,2502 55623 TS FLPASS0
031786,000470:
031787,000471: 36,2503 12541 TCF P42IGN
031788,000472: 36,2504 40101 P40IGN CS FLAGWRD5 # (13)
031789,000473: 36,2505 74740 MASK NOTHRBIT
031790,000474: 36,2506 00006 EXTEND
031791,000475: 36,2507 12541 BZF P42IGN
031792,000476: 36,2510 31422 CA ZOOMTIME
031793,000477: 36,2511 05203 TC WAITLIST
031794,000478: 36,2512 E7,1515 EBANK= DVCNTR
031795,000479: 36,2512 02015 36067 2CADR P40ZOOM
031796,000480:
031797,000481: 36,2514 05327 P63IGN1 TC 2PHSCHNG
031798,000482: 36,2515 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
031799,000483: 36,2516 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
031800,000484: 36,2517 77777 OCT 77777
031801,000485:
031802,000486: # Page 740
031803,000487: 36,2520 12541 TCF P42IGN
031804,000488: 36,2521 35015 P12IGN CAF EBANK6
031805,000489: 36,2522 54003 TS EBANK
031806,000490: 36,2523 E6,1537 EBANK= AOSQ
031807,000491:
031808,000492: 36,2523 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION
031809,000493: 36,2524 55537 TS AOSQ # ESTIMATES AT P12 IGNITION.
031810,000494: 36,2525 31413 CA IGNAOSR
031811,000495: 36,2526 55541 TS AOSR
031812,000496:
031813,000497: 36,2527 35016 CAF EBANK7
031814,000498: 36,2530 54003 TS EBANK
031815,000499: 36,2531 E7,1515 EBANK= DVCNTR
031816,000500:
031817,000501: 36,2531 30005 ABRTIGN CA Z # (13) KILL CLOKTASK
031818,000502: 36,2532 55163 TS DISPDEX
031819,000503:
031820,000504: 36,2533 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER.
031821,000505: 36,2534 33141 DCA ATMAGADR
031822,000506: 36,2535 53253 DXCH AVGEXIT
031823,000507:
031824,000508: 36,2536 40103 CS FLAGWRD7 # ENABLE R10.
031825,000509: 36,2537 74741 MASK SWANDBIT
031826,000510: 36,2540 26103 ADS FLAGWRD7
031827,000511:
031828,000512: 36,2541 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
031829,000513: 36,2542 70111 MASK DAPBOOLS # CURVES ARE USED.
031830,000514: 36,2543 54111 TS DAPBOOLS
031831,000515: 36,2544 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
031832,000516: 36,2545 70076 MASK FLAGWRD2
031833,000517: 36,2546 10000 CCS A
031834,000518: 36,2547 13522 TCF IMPLBURN
031835,000519:
031836,000520: 36,2550 05516 DVMONCON TC DOWNFLAG
031837,000521: 36,2551 00153 ADRES IGNFLAG # CONNECT DVMON
031838,000522: 36,2552 05516 TC DOWNFLAG
031839,000523: 36,2553 00154 ADRES ASTNFLAG
031840,000524: 36,2554 05516 TC DOWNFLAG
031841,000525: 36,2555 00161 ADRES IDLEFLAG
031842,000526:
031843,000527: 36,2556 05353 TC PHASCHNG
031844,000528: 36,2557 40054 OCT 40054
031845,000529:
031846,000530: 36,2560 05221 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
031847,000531: 36,2561 00062 DEC 50 B-14 # LIGHT UP.
031848,000532:
031849,000533: 36,2562 02653 ULLAGOFF TC NOULLAGE
031850,000534:
031851,000535: 36,2563 00006 WAITABIT EXTEND # KILL GROUP 4
031852,000536: 36,2564 34755 DCA NEG0
031853,000537: # Page 741
031854,000538: 36,2565 52761 DXCH -PHASE4
031855,000539:
031856,000540: 36,2566 15261 TCF TASKOVER
031857,000541:
031858,000542: 36,2567 04635 TIGTASK TC POSTJUMP # (12)
031859,000543: 36,2570 36000 CADR TIGTASK1
031860,000544:
031861,000545: # ********************************
031862,000546:
031863,000547: 31,2144 BANK 31
031864,000548: 17,2000 SETLOC P40S3
031865,000549: 17,2000 BANK
031866,000550: 17,2000 COUNT* $$/P40
031867,000551:
031868,000552: 17,2000 35026 TIGTASK1 CAF PRIO16
031869,000553: 17,2001 05072 TC NOVAC
031870,000554: 17,2002 E7,1462 EBANK= TRKMKCNT
031871,000555: 17,2002 03241 74067 2CADR TIGNOW
031872,000556:
031873,000557: 17,2004 05353 TC PHASCHNG
031874,000558: 17,2005 00006 OCT 6 # KILL GROUP 6
031875,000559:
031876,000560: 17,2006 15261 TCF TASKOVER
031877,000561:
031878,000562: # ********************************
031879,000563:
031880,000564: 17,2007 00006 P63ZOOM EXTEND
031881,000565: 17,2010 32026 DCA LUNLANAD
031882,000566: 17,2011 53253 DXCH AVEGEXIT
031883,000567:
031884,000568: 17,2012 04674 TC IBNKCALL
031885,000569: 17,2013 62370 CADR FLATOUT
031886,000570: 17,2014 12022 TCF P40ZOOMA
031887,000571:
031888,000572: 17,2015 34737 P40ZOOM CAF BIT13
031889,000573: 17,2016 54055 TS THRUST
031890,000574: 17,2017 34750 CAF BIT4
031891,000575:
031892,000576: 17,2020 00006 EXTEND
031893,000577: 17,2021 05014 WOR CHAN14
031894,000578:
031895,000579: 17,2022 05353 P40ZOOMA TC PHASCHNG
031896,000580: 17,2023 00003 OCT 3
031897,000581: 17,2024 15261 TCF TASKOVER
031898,000582:
031899,000583: 17,2025 E7,1515 EBANK= DVCNTR
031900,000584: 17,2025 02462 62067 LUNLANAD 2CADR LUNLAND
031901,000585:
031902,000586: # Page 742
031903,000587: 17,2027 17,2022 ZOOM = P40ZOOMA
031904,000588: 36,2571 BANK 36
031905,000589: 36,2000 SETLOC P40S
031906,000590: 36,2000 BANK
031907,000591: 36,2571 COUNT* $$/P40
031908,000592:
031909,000593: # ********************************
031910,000594:
031911,000595: 36,2571 05504 COMFAIL TC UPFLAG # (15)
031912,000596: 36,2572 00161 ADRES IDLEFLAG
031913,000597: 36,2573 05504 TC UPFLAG # SET FLAG TO SUPRESS CONFLICTING DISPLAY
031914,000598: 36,2574 00175 ADRES FLUNDISP
031915,000599: 36,2575 34751 CAF FOUR # RESET DVMON
031916,000600: 36,2576 55515 TS DVCNTR
031917,000601: 36,2577 10765 CCS PHASE6 # CLOCKTASK ACTIVE?
031918,000602: 36,2600 12603 TCF +3 # YES
031919,000603: 36,2601 04616 TC BANKCALL # OTHERWISE, START IT UP
031920,000604: 36,2602 74663 CADR STCLOK1
031921,000605: 36,2603 44765 +3 CS VB97DEX
031922,000606: 36,2604 55163 TS DISPDEX
031923,000607: 36,2605 05353 TC PHASCHNG # TURN OFF GROUP 4.
031924,000608: 36,2606 00004 OCT 00004
031925,000609: 36,2607 15155 TCF ENDOFJOB
031926,000610:
031927,000611: 36,2610 51455 COMFAIL1 INDEX WHICH
031928,000612: 36,2611 10002 TCF 2
031929,000613:
031930,000614: 36,2612 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
031931,000615: 36,2613 12615 TCF +2
031932,000616:
031933,000617: 36,2614 44762 COMFAIL4 CS CNTDNDEX
031934,000618: 36,2615 55163 TS DISPDEX
031935,000619:
031936,000620: 36,2616 05516 TC DOWNFLAG # RECONNECT DV MONITOR
031937,000621: 36,2617 00161 ADRES IDLEFLAG
031938,000622: 36,2620 05516 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS
031939,000623: 36,2621 00175 ADRES FLUNDISP
031940,000624: 36,2622 15155 TCF ENDOFJOB
031941,000625:
031942,000626: 36,2623 05353 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
031943,000627: 36,2624 00003 OCT 00003
031944,000628:
031945,000629: 36,2625 00004 INHINT
031946,000630: 36,2626 06027 TC KILLTASK # KILL ZOOM IN CASE IT'S STILL TO COME
031947,000631: 36,2627 36022 CADR ZOOM
031948,000632: 36,2630 04674 TC IBNKCALL # COMMAND ENGINE OFF
031949,000633: 36,2631 75561 CADR ENGINOF4
031950,000634: 36,2632 05504 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP.
031951,000635: 36,2633 00312 ADRES DRIFTDFL
031952,000636: # Page 743
031953,000637: 36,2634 02645 TC INVFLAG # USE OTHER RCS SYSTEM
031954,000638: 36,2635 00310 ADRES AORBTFLG
031955,000639: 36,2636 05504 TC UPFLAG # TURN ON ULLAGE
031956,000640: 36,2637 00314 ADRES ULLAGFLG
031957,000641: 36,2640 34753 CAF BIT1
031958,000642: 36,2641 00004 INHINT
031959,000643: 36,2642 05173 TC TWIDDLE
031960,000644: 36,2643 02352 ADRES TIG-5
031961,000645: 36,2644 15155 TCF ENDOFJOB
031962,000646:
031963,000647: # ***********************************
031964,000648: # SUBROUTINES OF THE IGNITION ROUTINE
031965,000649: # ***********************************
031966,000650:
031967,000651: 36,2645 30002 INVFLAG CA Q
031968,000652: 36,2646 05522 TC DEBIT
031969,000653: 36,2647 40000 COM
031970,000654: 36,2650 00006 EXTEND
031971,000655: 36,2651 06001 RXOR LCHAN
031972,000656: 36,2652 15511 TCF COMFLAG
031973,000657:
031974,000658: # ***********************************
031975,000659:
031976,000660: 36,2653 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
031977,000661: 36,2654 70111 MASK DAPBOOLS
031978,000662: 36,2655 54111 TS DAPBOOLS
031979,000663: 36,2656 00002 TC Q
031980,000664:
031981,000665: # ***********************************
031982,000666:
031983,000667: 36,2657 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
031984,000668: 36,2660 74746 MASK ULLAGER # A TASK OR WHILE INHINTED.
031985,000669: 36,2661 26111 ADS DAPBOOLS
031986,000670: 36,2662 00002 TC Q
031987,000671:
031988,000672: # ***********************************
031989,000673:
031990,000674: 36,2663 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
031991,000675: 36,2664 55163 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
031992,000676: 36,2665 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
031993,000677: 36,2666 55061 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS).
031994,000678: 36,2667 00006 EXTEND
031995,000679: 36,2670 31442 DCA TIG
031996,000680: 36,2671 52155 DXCH MPAC
031997,000681: 36,2672 00006 EXTEND
031998,000682: 36,2673 40025 DCS TIME2
031999,000683: # Page 744
032000,000684: 36,2674 20155 DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER
032001,000685: 36,2675 07257 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
032002,000686: 36,2676 34777 CAF 1SEC # 45 SECOND CHECK.
032003,000687: 36,2677 54002 TS Q
032004,000688: 36,2700 52155 DXCH MPAC
032005,000689: 36,2701 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
032006,000690: 36,2702 00006 EXTEND
032007,000691: 36,2703 10002 DV Q
032008,000692: 36,2704 30001 CA L # GET REMAINDER
032009,000693: 36,2705 64752 AD TWO
032010,000694: 36,2706 00004 INHINT
032011,000695: 36,2707 05173 TC TWIDDLE
032012,000696: 36,2710 02717 ADRES CLOKTASK
032013,000697: 36,2711 05327 TC 2PHSCHNG
032014,000698: 36,2712 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
032015,000699: 36,2713 05024 OCT 05024
032016,000700: 36,2714 13000 OCT 13000
032017,000701:
032018,000702: 36,2715 31061 CA TBASE4
032019,000703: 36,2716 04640 TC BANKJUMP
032020,000704:
032021,000705: 36,2717 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
032022,000706: 36,2720 55065 TS TBASE6
032023,000707:
032024,000708: 36,2721 11163 CCS DISPDEX
032025,000709: 36,2722 12733 TCF KILLCLOK
032026,000710: 36,2723 12724 NOOP
032027,000711: 36,2724 37715 CAF PRIO27
032028,000712: 36,2725 05072 TC NOVAC
032029,000713: 36,2726 E7,1453 EBANK= TTOGO
032030,000714: 36,2726 02737 74067 2CADR CLOKJOB
032031,000715:
032032,000716: 36,2730 05221 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
032033,000717: 36,2731 00144 DEC 100 B-14
032034,000718: 36,2732 12717 TCF CLOKTASK
032035,000719:
032036,000720: 36,2733 00006 KILLCLOK EXTEND # KILL RESTART
032037,000721: 36,2734 34755 DCA NEG0
032038,000722: 36,2735 52765 DXCH -PHASE6
032039,000723: 36,2736 15261 TCF TASKOVER
032040,000724:
032041,000725: 36,2737 00006 CLOKJOB EXTEND
032042,000726: 36,2740 41442 DCS TIG
032043,000727: 36,2741 53454 DXCH TTOGO
032044,000728: 36,2742 00006 EXTEND
032045,000729: # Page 745
032046,000730: 36,2743 30025 DCA TIME2
032047,000731: 36,2744 21454 DAS TTOGO
032048,000732: 36,2745 00004 INHINT
032049,000733: 36,2746 11163 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
032050,000734: 36,2747 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
032051,000735: 36,2750 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
032052,000736: 36,2751 40000 COM # INDEX.
032053,000737: 36,2752 00003 RELINT # ***** DISPDEX MUST NEVER B -0 *****
032054,000738: 36,2753 50000 INDEX A
032055,000739: 36,2754 13011 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
032056,000740:
032057,000741: 36,2755 4765 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
032058,000742:
032059,000743: 36,2755 44755 -35 CS ZERO # INDICATE VERB 97 PASTE
032060,000744: 36,2756 55067 TS NVWORD1
032061,000745: 36,2757 30371 CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
032062,000746: 36,2760 04616 TC BANKCALL
032063,000747: 36,2761 20473 CADR CLOCPLAY
032064,000748: 36,2762 13013 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
032065,000749: 36,2763 12610 TCF COMFAIL1
032066,000750: 36,2764 12623 TCF COMFAIL2
032067,000751:
032068,000752: # THIS DISPLAY IS CALLED VIA ASTNCLOK
032069,000753: 36,2765 33146 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
032070,000754: 36,2766 04616 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
032071,000755: 36,2767 20457 CADR REFLASH # TIG.
032072,000756: 36,2770 13013 TCF STOPCLOK
032073,000757: 36,2771 13030 TCF ASTNRETN
032074,000758: 36,2772 12764 TCF -6
032075,000759:
032076,000760: 36,2773 4762 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
032077,000761:
032078,000762: 36,2773 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
032079,000763: # Was CAF --- RSB 2009
032080,000764: 36,2774 30000 CA 0 # INTERVALS. IT IS NORMALLY OPERATED
032081,000765: 36,2775 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
032082,000766: 36,2776 20465 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
032083,000767:
032084,000768: 36,2777 4760 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
032085,000769:
032086,000770: 36,2777 V99RECYC EQUALS
032087,000771:
032088,000772: 36,2777 44743 -13 CS BIT9 # INDICATE VERB 99 PASTE
032089,000773: 36,3000 55067 TS NVWORD1
032090,000774: 36,3001 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
032091,000775: # Was CAF --- RSB 2004
032092,000776: 36,3002 30000 CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
032093,000777: 36,3003 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
032094,000778: 36,3004 20473 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
032095,000779: 36,3005 13013 TCF STOPCLOK # TERMINATE GOTOP00H TURNS OFF ULLAGE.
032096,000780: 36,3006 13041 TCF *PROCEED
032097,000781: 36,3007 13044 TCF *ENTER
032098,000782:
032099,000783: # Page 746
032100,000784: 36,3010 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
032101,000785:
032102,000786: 36,3010 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
032103,000787: 36,3011 20456 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
032104,000788: 36,3012 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
032105,000789:
032106,000790: 36,3013 03015 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
032107,000791: 36,3014 16001 TCF GOTOP00H # WAY TO P00 (GOTOP00H RELINTS)
032108,000792:
032109,000793: 36,3015 00004 NULLCLOK INHINT
032110,000794: 36,3016 00006 EXTEND
032111,000795: 36,3017 23142 QXCH P40/RET
032112,000796: 36,3020 02653 TC NOULLAGE # TURN OFF ULLAGE ...
032113,000797: 36,3021 06027 TC KILLTASK # DON'T LET IT COME ON, EITHER ...
032114,000798: 36,3022 74346 CADR ULLGTASK
032115,000799: 36,3023 05353 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
032116,000800: 36,3024 00001 OCT 1
032117,000801: 36,3025 30005 CA Z # KILL CLOKTASK
032118,000802: 36,3026 55163 TS DISPDEX
032119,000803: 36,3027 01142 TC P40/RET
032120,000804:
032121,000805: 36,3030 05353 ASTNRETN TC PHASCHNG
032122,000806: 36,3031 04024 OCT 04024
032123,000807: 36,3032 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING
032124,000808: 36,3033 55163 TS DISPDEX
032125,000809: 36,3034 35023 CAF PRIO13
032126,000810: 36,3035 05105 TC FINDVAC
032127,000811: 36,3036 E5,1757 EBANK= STARIND
032128,000812: 36,3036 03210 64065 2CADR ASTNRET
032129,000813:
032130,000814: 36,3040 15155 TCF ENDOFJOB
032131,000815:
032132,000816: 36,3041 05504 *PROCEED TC UPFLAG
032133,000817: 36,3042 00154 ADRES ASTNFLAG
032134,000818:
032135,000819: 36,3043 13102 TCF IGNITE
032136,000820:
032137,000821: 36,3044 00004 *ENTER INHINT
032138,000822: 36,3045 51455 INDEX WHICH
032139,000823: 36,3046 10003 TCF 3
032140,000824:
032141,000825: 36,3047 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
032142,000826: 36,3050 05105 TC FINDVAC
032143,000827: 36,3051 E7,1453 EBANK= TTOGO
032144,000828: 36,3051 03223 74067 2CADR POSTBURN
032145,000829:
032146,000830: # Page 747
032147,000831: 36,3053 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
032148,000832: 36,3054 04674 TC IBNKCALL
032149,000833: 36,3055 40204 CADR ALLCOAST
032150,000834: 36,3056 03015 TC NULLCLOK
032151,000835: 36,3057 05353 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
032152,000836: 36,3060 00134 OCT 00134
032153,000837:
032154,000838: 36,3061 15155 TCF ENDOFJOB
032155,000839:
032156,000840: 36,3062 35027 GOCUTOFF CAF PRIO17 # (3)
032157,000841: 36,3063 05105 TC FINDVAC
032158,000842: 36,3064 E7,1516 EBANK= TGO
032159,000843: 36,3064 02424 30067 2CADR CUTOFF
032160,000844:
032161,000845: 36,3066 05516 TC DOWNFLAG
032162,000846: 36,3067 00175 ADRES FLUNDISP
032163,000847:
032164,000848: 36,3070 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
032165,000849: 36,3071 04674 TC IBNKCALL
032166,000850: 36,3072 40204 CADR ALLCOAST
032167,000851: 36,3073 03015 TC NULLCLOK
032168,000852: 36,3074 05353 TC PHASCHNG
032169,000853: 36,3075 07024 OCT 07024
032170,000854: 36,3076 17000 OCT 17000
032171,000855: 36,3077 E7,1516 EBANK= TGO
032172,000856: 36,3077 02424 30067 2CADR CUTOFF
032173,000857:
032174,000858: 36,3101 15155 TCF ENDOFJOB
032175,000859:
032176,000860: 36,3102 40103 IGNITE CS FLAGWRD7 # (2)
032177,000861: 36,3103 74737 MASK IGNFLBIT
032178,000862: 36,3104 10000 CCS A
032179,000863: 36,3105 13116 TCF IGNITE1
032180,000864: 36,3106 34753 CAF BIT1
032181,000865: 36,3107 00004 INHINT
032182,000866: 36,3110 05173 TC TWIDDLE
032183,000867: 36,3111 02426 ADRES IGNITION
032184,000868:
032185,000869: 36,3112 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION
032186,000870: 36,3113 54001 TS L
032187,000871: 36,3114 40000 COM
032188,000872: 36,3115 52761 DXCH -PHASE4
032189,000873:
032190,000874: 36,3116 44762 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
032191,000875: 36,3117 55163 TS DISPDEX
032192,000876:
032193,000877: 36,3120 15155 TCF ENDOFJOB
032194,000878:
032195,000879: # Page 748
032196,000880: # ********************************
032197,000881:
032198,000882: 36,3121 05567 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH
032199,000883: 36,3122 01706 OCT 1706 # VEHICLE CONFIGURATION
032200,000884:
032201,000885: 36,3123 35006 REP40ALM CAF V05N09 # (14)
032202,000886: 36,3124 04616 TC BANKCALL
032203,000887: 36,3125 20476 CADR GOFLASH
032204,000888:
032205,000889: 36,3126 16001 TCF GOTOP00H # V34E TERMINATE
032206,000890: 36,3127 13131 TCF +2 # PROCEED CHECK FOR P42
032207,000891: 36,3130 13123 TCF REP40ALM # V32E REDISPLAY ALARM
032208,000892:
032209,000893: 36,3131 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PRECEED EVEN
032210,000894: 36,3132 10014 TCF 14 # THOUGH VEHICLE IS UNSTAGED.
032211,000895:
032212,000896: # ********************************
032213,000897:
032214,000898: 31,2144 BANK 31
032215,000899: 35,2000 SETLOC P40S2
032216,000900: 35,2000 BANK
032217,000901:
032218,000902: 35,3747 COUNT* $$/P40
032219,000903:
032220,000904: 35,3747 04645 P40AUTO TC MAKECADR # HELLO THERE.
032221,000905: 35,3750 55164 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
032222,000906: 35,3751 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
032223,000907: 35,3752 54255 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
032224,000908: 35,3753 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
032225,000909: 35,3754 13766 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
032226,000910: 35,3755 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
032227,000911: 35,3756 70106 MASK FLGWRD10
032228,000912: 35,3757 10000 CCS A
032229,000913: 35,3760 13773 TCF GOBACK # RETURN
032230,000914: 35,3761 34747 CAF BIT5 # YES, CHECK FOR AUTO-THROTTLE MODE
032231,000915: 35,3762 00006 EXTEND
032232,000916: 35,3763 02030 RAND CHAN30
032233,000917: 35,3764 00006 EXTEND
032234,000918: 35,3765 13773 BZF GOBACK # IN AUTO-THROTTLE MODE -- RETURN
032235,000919: 35,3766 33775 TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
032236,000920: 35,3767 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
032237,000921: 35,3770 20623 CADR GOPERF1
032238,000922: 35,3771 16001 TCF GOTOP00H # V34E TERMINATE
032239,000923: 35,3772 13751 TCF P40A/P # RECYCLE
032240,000924: 35,3773 31164 GOBACK CA TEMPR60
032241,000925: 35,3774 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
032242,000926:
032243,000927: 35,3775 00203 P40A/PMD OCT 00203
032244,000928:
032245,000929: # Page 749
032246,000930: 36,3133 BANK 36
032247,000931: 36,2000 SETLOC P40S
032248,000932: 36,2000 BANK
032249,000933:
032250,000934: 36,3133 COUNT* $$/P40
032251,000935:
032252,000936: # **********************************
032253,000937: # CONSTANTS FOR THE IGNITION ROUTINE
032254,000938: # **********************************
032255,000939:
032256,000940: 36,3133 36,2105 SERVCADR = P63TABLE +7
032257,000941:
032258,000942: 36,3133 02036 P40ADRES ADRES P40TABLE
032259,000943:
032260,000944: 36,3134 02046 P41ADRES ADRES P41TABLE -5
032261,000945:
032262,000946: 36,3135 02061 P42ADRES ADRES P42TABLE
032263,000947:
032264,000948: 36,3136 E7,1515 EBANK= DVCNTR
032265,000949: 36,3136 03471 62067 DSP2CADR 2CADR P63DISPS -2
032266,000950:
032267,000951: 36,3140 E7,1515 EBANK= DVCNTR
032268,000952: 36,3140 03642 70067 ATMAGADR 2CADR ATMAG
032269,000953:
032270,000954: 36,3142 6001 ? = GOTOP00H
032271,000955:
032272,000956: 36,3142 00000 05656 D29.9SEC 2DEC 2990 B-28
032273,000957:
032274,000958: 36,3144 04672 S24.9SEC DEC 2490 B-14
032275,000959:
032276,000960: 36,3145 00752 4.9SEC DEC 490 B-14
032277,000961:
032278,000962: 36,3146 4747 OCT20 = BIT5
032279,000963:
032280,000964: 36,3146 01475 V06N61 VN 0661
032281,000965:
032282,000966: # Page 750
032283,000967: # KILLTASK
032284,000968: # MOD NO: NEW PROGRAM
032285,000969: # MOD BY: COVELLI
032286,000970:
032287,000971: # FUNCTIONAL DESCRIPTION:
032288,000972:
032289,000973: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED `NULLTASK' (OF COURSE),
032290,000974: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
032291,000975: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
032292,000976: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
032293,000977:
032294,000978: # CALLING SEQUENCE
032295,000979: # L TC KILLTASK # IN FIXED-FIXED
032296,000980: # L+1 CADR ???????? # CADR (NOT 2CADR) OF TASK TO BE REMOVED.
032297,000981: # L+2 (RELINT) # RETURN
032298,000982:
032299,000983: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
032300,000984:
032301,000985: # ERASABLE INITIALIZATION: NONE.
032302,000986:
032303,000987: # OUTPUT: 2CADR OF NULLTASK IN LST2
032304,000988:
032305,000989: # DEBRIS: ITEMP1 - ITEMP4, A, L, Q.
032306,000990:
032307,000991: 36,3147 E3,1410 EBANK= LST2
032308,000992: 6027 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
032309,000993: 6000 SETLOC FFTAG6
032310,000994: 6000 BANK
032311,000995: 6027 COUNT* $$/KILL
032312,000996: 6027 36036 KILLTASK CA KILLBB
032313,000997: 6030 00004 INHINT
032314,000998: 6031 22000 LXCH A
032315,000999: 6032 50002 INDEX Q
032316,001000: 6033 30000 CA 0 # GET CADR.
032317,001001: 6034 22006 LXCH BBANK
032318,001002: 6035 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED.
032319,001003:
032320,001004: 6036 E3,1410 EBANK= LST2
032321,001005: 6036 56063 KILLBB BBCON KILLTSK2
032322,001006:
032323,001007: 27,2200 BANK 27
032324,001008:
032325,001009: 27,2000 SETLOC P40S1
032326,001010: 27,2000 BANK
032327,001011: 27,2200 COUNT* $$/KILL
032328,001012:
032329,001013: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
032330,001014: # Page 751
032331,001015: 27,2201 24002 INCR Q
032332,001016: 27,2202 00006 EXTEND
032333,001017: 27,2203 22061 QXCH ITEMP1 # RETURN 2ADR IN ITEMP1,ITEMP2
032334,001018:
032335,001019: 27,2204 54063 TS ITEMP3 # CADR IS IN A
032336,001020: 27,2205 75012 MASK LOW10
032337,001021: 27,2206 64741 AD BIT11
032338,001022: 27,2207 54064 TS ITEMP4 # GENADR OF TASK
032339,001023:
032340,001024: 27,2210 45012 CS LOW10
032341,001025: 27,2211 70063 MASK ITEMP3
032342,001026: 27,2212 54063 TS ITEMP3 # FBANK OF TASK
032343,001027:
032344,001028: 27,2213 22007 ZL
032345,001029: 27,2214 50001 ADRSCAN INDEX L
032346,001030: 27,2215 41410 CS LST2
032347,001031: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS
032348,001032: 27,2217 00006 EXTEND
032349,001033: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
032350,001034: 27,2221 44747 LETITLIV CS LSTLIM
032351,001035: 27,2222 60001 AD L
032352,001036: 27,2223 00006 EXTEND # ARE WE DONE?
032353,001037: 27,2224 12230 BZF DEAD # YES -- DONE, SO RETURN
032354,001038: 27,2225 24001 INCR L
032355,001039: 27,2226 24001 INCR L
032356,001040: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP.
032357,001041:
032358,001042: 27,2230 52062 DEAD DXCH ITEMP1
032359,001043: 27,2231 52006 DTCB
032360,001044:
032361,001045: 27,2232 45012 TSTFBANK CS LOW10
032362,001046: 27,2233 50001 INDEX L
032363,001047: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
032364,001048: 27,2235 00006 EXTEND
032365,001049: 27,2236 60063 SU ITEMP3
032366,001050: 27,2237 00006 EXTEND
032367,001051: 27,2240 12242 BZF KILLDEAD # MATCH -- KILL IT.
032368,001052: 27,2241 12221 TCF LETITLIV # NO MATCH -- CONTINUE.
032369,001053:
032370,001054: 27,2242 34353 KILLDEAD CA TCTSKOVR
032371,001055: 27,2243 50001 INDEX L
032372,001056: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
032373,001057: 27,2245 12230 TCF DEAD
032374,001058:
032375,001059: 27,2246 4747 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc