Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

030628,000002:                                                                                                  ## Copyright:   Public domain.
030629,000003:                                                                                                  ## Filename:    BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
030630,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
030631,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
030632,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
030633,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
030634,000008:                                                                                                  ##              that the code format has been changed to conform to the
030635,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
030636,000010:                                                                                                  ##              original YUL assembler.
030637,000011:                                                                                                  ## Reference:   pp. 725-746
030638,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030639,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030640,000014:                                                                                                  ## Mod history: 05/24/03 RSB.   Began transcribing.
030641,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
030642,000016:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
030643,000017:                                                                                                  ##              2011-05-07 JL   Removed workarounds.
030644,000018:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
030645,000019:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
030646,000020:                                                                                                  ##                              numbers in 1701.pdf.
030647,000021:                                                                                                  ##              2017-02-25 RSB  Proofed comment text using octopus/ProoferComments.
030648,000022:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
030649,000023:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
030650,000024:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
030651,000025: 

Page 725

030653,000027: 36,2024                                           BANK     36                                    
030654,000028: 36,2000                                           SETLOC   P40S                                  
030655,000029: 36,2000                                           BANK                                           
030656,000030: 36,2024  E7,1455                                  EBANK=   WHICH                                 
030657,000031: 36,2024                                           COUNT*   $$/P40                                
030658,000032: 
030659,000033:                                                                                                  #  THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
030660,000034:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
030661,000035:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
030662,000036:                                                                                                  #  PROGRAMS THROTTLE UP.
030663,000037: 
030664,000038:                                                                                                  #  VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
030665,000039:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.  USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
030666,000040:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).  THE IGNITION ROUTINE THEN INDEXES BY
030667,000041:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.  THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
030668,000042:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.  THERE IS NO RETURN.
030669,000043: 
030670,000044:                                                                                                  #  THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
030671,000045: 
030672,000046:                                                                                                  #                   HONI SOIT QUI MAL Y PENSE
030673,000047: 
030674,000048:                                                                                                  #        ****************************************
030675,000049:                                                                                                  #        TABLES FOR THE IGNITION ROUTINE
030676,000050:                                                                                                  #        ****************************************
030677,000051: 
030678,000052:                                                                                                  #                        NOLI SE TANGERE
030679,000053: 
030680,000054: 36,2024           01512        P12TABLE           VN       0674                                  #  (0)
030681,000055: 36,2025           12327                           TCF      ULLGNOT                               #  (1)
030682,000056: 36,2026           12616                           TCF      COMFAIL3                              #  (2)
030683,000057: 36,2027           13066                           TCF      GOCUTOFF                              #  (3)
030684,000058: 36,2030           15261                           TCF      TASKOVER                              #  (4)
030685,000059: 36,2031           12150                           TCF      P12SPOT                               #  (5)
030686,000060: 36,2032           00000                           DEC      0          B-14                       #  (6)   NO ULLAGE
030687,000061: 36,2033  E7,1455                                  EBANK=   WHICH                                 
030688,000062: 36,2033           03746 64067                     2CADR    SERVEXIT                              #  (7)
030689,000063: 
030690,000064: 36,2035           12402                           TCF      DISPCHNG                              #  (11)
030691,000065: 36,2036           12567                           TCF      WAITABIT                              #  (12)
030692,000066: 36,2037           12525                           TCF      P12IGN                                #  (13)
030693,000067: 
030694,000068: 36,2040           01450        P40TABLE           VN       0640                                  #  (0)
030695,000069: 36,2041           12327                           TCF      ULLGNOT                               #  (1)
030696,000070: 36,2042           12620                           TCF      COMFAIL4                              #  (2)
030697,000071: 36,2043           13053                           TCF      GOPOST                                #  (3)
030698,000072: 36,2044           15261                           TCF      TASKOVER                              #  (4)
030699,000073: 36,2045           12150                           TCF      P40SPOT                               #  (5)

Page 726

030701,000075: 36,2046           04300                           DEC      2240       B-14                       #  (6)
030702,000076: 36,2047  E6,1422                                  EBANK=   OMEGAQ                                
030703,000077: 36,2047           03672 74066                     2CADR    STEERING                              #  (7)
030704,000078: 
030705,000079: 36,2051           12372                           TCF      P40SJUNK                              #  (11)
030706,000080: 36,2052           12567                           TCF      WAITABIT                              #  (12)
030707,000081: 36,2053           12510                           TCF      P40IGN                                #  (13)
030708,000082: 36,2054           13127                           TCF      REP40ALM                              #  (14)
030709,000083: 
030710,000084: 36,2055           12153        P41TABLE           TCF      P41SPOT                               #  (5)
030711,000085: 36,2056           77776                           DEC      -1         B-14                       #  (6)
030712,000086: 36,2057  E6,1422                                  EBANK=   OMEGAQ                                
030713,000087: 36,2057           03402 74066                     2CADR    CALCN85                               #  (7)
030714,000088: 
030715,000089: 36,2061           12404                           TCF      COMMON                                #  (11)
030716,000090: 36,2062           12573                           TCF      TIGTASK                               #  (12)
030717,000091: 
030718,000092: 36,2063           01450        P42TABLE           VN       0640                                  #  (0)
030719,000093: 36,2064           12324                           TCF      WANTAPS                               #  (1)
030720,000094: 36,2065           12620                           TCF      COMFAIL4                              #  (2)
030721,000095: 36,2066           13053                           TCF      GOPOST                                #  (3)
030722,000096: 36,2067           15261                           TCF      TASKOVER                              #  (4)
030723,000097: 36,2070           12150                           TCF      P42SPOT                               #  (5)
030724,000098: 36,2071           05120                           DEC      2640       B-14                       #  (6)
030725,000099: 36,2072  E6,1422                                  EBANK=   OMEGAQ                                
030726,000100: 36,2072           03672 74066                     2CADR    STEERING                              #  (7)
030727,000101: 
030728,000102: 36,2074           12372                           TCF      P40SJUNK                              #  (11)
030729,000103: 36,2075           12567                           TCF      WAITABIT                              #  (12)
030730,000104: 36,2076           12545                           TCF      P42IGN                                #  (13)
030731,000105: 36,2077           13424                           TCF      P42STAGE                              #  (14)
030732,000106: 
030733,000107: 36,2100           01476        P63TABLE           VN       0662                                  #  (0)
030734,000108: 36,2101           12327                           TCF      ULLGNOT                               #  (1)
030735,000109: 36,2102           12616                           TCF      COMFAIL3                              #  (2)
030736,000110: 36,2103           13003                           TCF      V99RECYC                              #  (3)
030737,000111: 36,2104           15261                           TCF      TASKOVER                              #  (4)
030738,000112: 36,2105           12153                           TCF      P63SPOT                               #  (5)
030739,000113: 36,2106           04300                           DEC      2240       B-14                       #  (6)
030740,000114: 36,2107  E7,1455                                  EBANK=   WHICH                                 
030741,000115: 36,2107           03746 64067                     2CADR    SERVEXIT                              #  (7)
030742,000116: 
030743,000117: 36,2111           12402                           TCF      DISPCHNG                              #  (11)
030744,000118: 36,2112           12567                           TCF      WAITABIT                              #  (12)

Page 727

030746,000120: 36,2113           12464                           TCF      P63IGN                                #  (13)
030747,000121: 
030748,000122: 36,2114           01477        ABRTABLE           VN       0663                                  #  (0)
030749,000123: 36,2115           12327                           TCF      ULLGNOT                               #  (1)
030750,000124: 36,2116           12616                           TCF      COMFAIL3                              #  (2)
030751,000125: 36,2117           13066                           TCF      GOCUTOFF                              #  (3)
030752,000126: 36,2120           15261                           TCF      TASKOVER                              #  (4)
030753,000127: 36,2121           12122                           NOOP                                           #  (5)
030754,000128: 36,2122           12123                           NOOP                                           #  (6)
030755,000129: 36,2123           12124                           NOOP                                           #  (7)
030756,000130: 36,2124           12125                           NOOP                                           
030757,000131: 36,2125           12402                           TCF      DISPCHNG                              #  (11)
030758,000132: 36,2126           12567                           TCF      WAITABIT                              #  (12)
030759,000133: 36,2127           12535                           TCF      ABRTIGN                               #  (13)
030760,000134: 
030761,000135:                                                                                                  #        ****************************************
030762,000136:                                                                                                  #        GENERAL PURPOSE IGNITION ROUTINES
030763,000137:                                                                                                  #        ****************************************
030764,000138: 
030765,000139: 36,2130           05353        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
030766,000140: 36,2131           04024                           OCT      04024                                 
030767,000141: 
030768,000142: 36,2132           34755                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
030769,000143: 36,2133           55507                           TS       DVTOTAL                               
030770,000144: 36,2134           55510                           TS       DVTOTAL    +1                         
030771,000145: 
030772,000146: 36,2135           04616                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
030773,000147: 36,2136           73707                           CADR     P40AUTO                               #  OWN BANK TO SET UP RETURN PROPERLY
030774,000148: 
030775,000149: 36,2137           00006        B*RNB*B*           EXTEND                                         
030776,000150: 36,2140           31442                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
030777,000151: 36,2141           53512                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
030778,000152: 
030779,000153: 36,2142           00004                           INHINT                                         
030780,000154: 36,2143           04674                           TC       IBNKCALL                              
030781,000155: 36,2144           75570                           CADR     ENGINOF3                              
030782,000156: 36,2145           00003                           RELINT                                         
030783,000157: 
030784,000158: 36,2146           51455                           INDEX    WHICH                                 
030785,000159: 36,2147           10005                           TCF      5                                     
030786,000160: 
030787,000161: 36,2150  36,2150               P42SPOT            =        P40SPOT                               #  (5)
030788,000162: 36,2150  36,2150               P12SPOT            =        P40SPOT                               #  (5)
030789,000163: 36,2150  36,2153               P63SPOT            =        P41SPOT                               #  (5)   IN P63 CLOKTASK ALREADY GOING
030790,000164: 36,2150           44762        P40SPOT            CS       CNTDNDEX                              #  (5)

Page 728

030792,000166: 36,2151           04616                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED
030793,000167: 36,2152           74670                           CADR     STCLOK2                               #  RETURN
030794,000168: 36,2153           06042        P41SPOT            TC       INTPRET                               #  (5)
030795,000169: 36,2154           45345                           DLOAD    DSU                                   
030796,000170: 36,2155           03442                                    TIG                                   
030797,000171: 36,2156           35147                                    D29.9SEC                              
030798,000172: 36,2157           34041                           STCALL   TDEC1                                 
030799,000173: 36,2160           61071                                    INITCDUW                              
030800,000174: 36,2161           45014                           BOFF     CALL                                  
030801,000175: 36,2162           03347                                    MUNFLAG                               
030802,000176: 36,2163           74202                                    GOMIDAV                               
030803,000177: 36,2164           27042                                    CSMPREC                               
030804,000178: 36,2165           64375                           VLOAD    MXV                                   
030805,000179: 36,2166           00025                                    VATT1                                 
030806,000180: 36,2167           01734                                    REFSMMAT                              
030807,000181: 36,2170           77762                           VSR1                                           
030808,000182: 36,2171           25726                           STOVL    V(CSM)                                #  CSM VELOCITY - M/CS*2(7)
030809,000183: 36,2172           00017                                    RATT1                                 
030810,000184: 36,2173           64312                           VSL4     MXV                                   
030811,000185: 36,2174           01734                                    REFSMMAT                              
030812,000186: 36,2175           35720                           STCALL   R(CSM)                                #  CSM POSITION - M*2(24)
030813,000187: 36,2176           67067                                    MUNGRAV                               
030814,000188: 36,2177           16317                           STODL    G(CSM)                                #  CSM GRAVITY VEC. - M/CS*2(7)
030815,000189: 36,2200           00015                                    TAT                                   
030816,000190: 36,2201           00041                           STORE    TDEC1                                 #  RELOAD TDEC1 FOR MIDTOAV.
030817,000191: 36,2202           77624        GOMIDAV            CALRB                                          
030818,000192: 36,2203           27553                                    MIDTOAV1                              
030819,000193: 36,2204           12213                           TCF      CALLT-35                              #  MADE IT IN TIME.
030820,000194: 
030821,000195: 36,2205           00006                           EXTEND                                         #  TIG WAS SLIPPED, SO RESET TIG TO 29.9
030822,000196: 36,2206           31561                           DCA      PIPTIME1                              #  SECONDS AFTER THE TIME TO WHICH WE DID
030823,000197: 36,2207           53442                           DXCH     TIG                                   #  INTEGRATE.
030824,000198: 36,2210           00006                           EXTEND                                         
030825,000199: 36,2211           33147                           DCA      D29.9SEC                              
030826,000200: 36,2212           21442                           DAS      TIG                                   
030827,000201: 
030828,000202: 36,2213           52155        CALLT-35           DXCH     MPAC                                  
030829,000203: 36,2214           53500                           DXCH     SAVET-30                              #  DELTA-T UNTIL TIG-30
030830,000204: 36,2215           00006                           EXTEND                                         
030831,000205: 36,2216           43762                           DCS      5SECDP                                
030832,000206: 36,2217           21500                           DAS      SAVET-30                              #  DELTA-T UNTIL TIG-35
030833,000207: 36,2220           00006                           EXTEND                                         
030834,000208: 36,2221           31500                           DCA      SAVET-30                              
030835,000209: 36,2222           05277                           TC       LONGCALL                              
030836,000210: 36,2223  E7,1453                                  EBANK=   TTOGO                                 
030837,000211: 36,2223           02242 74067                     2CADR    TIG-35                                
030838,000212: 
030839,000213: 36,2225           05353                           TC       PHASCHNG                              
030840,000214: 36,2226           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.

Page 729

030842,000216: 36,2227           05321                           TC       CHECKMM                               
030843,000217: 36,2230           00077                           DEC      63         B-14                       
030844,000218: 36,2231           15155                           TCF      ENDOFJOB                              #  NOT P63
030845,000219: 36,2232           44762                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
030846,000220: 36,2233           55162                           TS       DISPDEX                               
030847,000221: 36,2234           06042                           TC       INTPRET                               
030848,000222: 36,2235           51575                           VLOAD    ABVAL                                 
030849,000223: 36,2236           03553                                    VN1                                   
030850,000224: 36,2237           03472                           STORE    ABVEL                                 #  INITIALIZE ABVEL FOR P63 DISPLAY
030851,000225: 36,2240           77776                           EXIT                                           
030852,000226: 36,2241           15155                           TCF      ENDOFJOB                              
030853,000227: 
030854,000228:                                                                                                  #        ****************************************
030855,000229: 
030856,000230: 36,2242           33762        TIG-35             CAF      5SEC                                  
030857,000231: 36,2243           05173                           TC       TWIDDLE                               
030858,000232: 36,2244           02300                           ADRES    TIG-30                                
030859,000233: 
030860,000234: 36,2245           05353                           TC       PHASCHNG                              
030861,000235: 36,2246           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
030862,000236: 
030863,000237: 36,2247           44752                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
030864,000238: 36,2250           55162                           TS       DISPDEX                               
030865,000239: 
030866,000240: 36,2251           51455                           INDEX    WHICH                                 
030867,000241: 36,2252           40006                           CS       6                                     #  CHECK ULLAGE TIME.
030868,000242: 36,2253           00006                           EXTEND                                         
030869,000243: 36,2254           65261                           BZMF     TASKOVER                              
030870,000244: 36,2255           33151                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
030871,000245: 36,2256           05173                           TC       TWIDDLE                               
030872,000246: 36,2257           02270                           ADRES    TIG-30.1                              
030873,000247: 
030874,000248: 36,2260           35027                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
030875,000249: 36,2261           05072                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
030876,000250: 36,2262  E7,1453                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
030877,000251: 36,2262           02265 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
030878,000252: 
030879,000253: 36,2264           15261                           TCF      TASKOVER                              
030880,000254: 
030881,000255: 36,2265           04616        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
030882,000256: 36,2266           20457                           CADR     CLEANDSP                              
030883,000257: 36,2267           15155                           TCF      ENDOFJOB                              
030884,000258: 
030885,000259: 36,2270           35027        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
030886,000260: 36,2271           05072                           TC       NOVAC                                 
030887,000261: 36,2272  E7,1453                                  EBANK=   TTOGO                                 
030888,000262: 36,2272           02275 74067                     2CADR    TIG-30A                               
030889,000263: 
030890,000264: 36,2274           15261                           TCF      TASKOVER                              

Page 730

030892,000266: 36,2275           33765        TIG-30A            CAF      V16N85B                               
030893,000267: 36,2276           04616                           TC       BANKCALL                              #  RESTORE DISPLAY.
030894,000268: 36,2277           20466                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
030895,000269: 
030896,000270:                                                                                                  #        *****************************************
030897,000271: 
030898,000272: 36,2300           33150        TIG-30             CAF      S24.9SEC                              
030899,000273: 36,2301           05173                           TC       TWIDDLE                               
030900,000274: 36,2302           02354                           ADRES    TIG-5                                 
030901,000275: 
030902,000276: 36,2303           44762                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
030903,000277: 36,2304           55162                           TS       DISPDEX                               
030904,000278: 
030905,000279: 36,2305           51455                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE-ON TIME
030906,000280: 36,2306           30006                           CAF      6                                     
030907,000281: 36,2307           00006                           EXTEND                                         
030908,000282: 36,2310           62327                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
030909,000283: 36,2311           55477                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
030910,000284: 36,2312           05173                           TC       TWIDDLE                               
030911,000285: 36,2313           02350                           ADRES    ULLGTASK                              
030912,000286: 
030913,000287: 36,2314           36250                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
030914,000288: 36,2315           54001                           TS       L                                     
030915,000289: 36,2316           46250                           CS       THREE                                 
030916,000290: 36,2317           52752                           DXCH     -PHASE1                               
030917,000291: 36,2320           40025                           CS       TIME1                                 
030918,000292: 36,2321           55052                           TS       TBASE1                                
030919,000293: 
030920,000294: 36,2322           51455                           INDEX    WHICH                                 
030921,000295: 36,2323           10001                           TCF      1                                     
030922,000296: 
030923,000297: 36,2324           40106        WANTAPS            CS       FLGWRD10                              #  (1) FOR P42 ENSURE APSFLAG IS SET.  IF IT
030924,000298: 36,2325           74737                           MASK     APSFLBIT                              #  WASN'T SET, DAP WILL BE INITIALIZED TO
030925,000299: 36,2326           26106                           ADS      FLGWRD10                              #  ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
030926,000300: 
030927,000301: 36,2327           00006        ULLGNOT            EXTEND                                         #  (1)
030928,000302: 36,2330           51455                           INDEX    WHICH                                 
030929,000303: 36,2331           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
030930,000304: 36,2332           53252                           DXCH     AVEGEXIT                              
030931,000305: 
030932,000306: 36,2333           34752                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
030933,000307: 36,2334           54001                           TS       L                                     
030934,000308: 36,2335           44752                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
030935,000309: 36,2336           52760                           DXCH     -PHASE4                               
030936,000310: 
030937,000311: 36,2337           40025                           CS       TIME1                                 
030938,000312: 36,2340           55060                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
030939,000313: 
030940,000314: 36,2341           00006        REDO2.17           EXTEND                                         

Page 731

030942,000316: 36,2342           34755                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
030943,000317: 36,2343           52754                           DXCH     -PHASE2                               #  IF NEEDED.
030944,000318: 
030945,000319: 36,2344           10762        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
030946,000320: 36,2345           15261                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
030947,000321: 
030948,000322: 36,2346           04635                           TC       POSTJUMP                              
030949,000323: 36,2347           77410                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
030950,000324: 
030951,000325:                                                                                                  #        ****************************************
030952,000326: 
030953,000327: 36,2350           02663        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
030954,000328: 36,2351           05353                           TC       PHASCHNG                              
030955,000329: 36,2352           00001                           OCT      1                                     
030956,000330: 36,2353           15261                           TCF      TASKOVER                              
030957,000331: 
030958,000332:                                                                                                  #        ****************************************
030959,000333: 
030960,000334: 36,2354           00006        TIG-5              EXTEND                                         
030961,000335: 36,2355           34755                           DCA      NEG0                                  #  INSURE THAT GROUP 3 IS INACTIVE.
030962,000336: 36,2356           52756                           DXCH     -PHASE3                               
030963,000337: 
030964,000338: 36,2357           33762                           CAF      5SEC                                  
030965,000339: 36,2360           05173                           TC       TWIDDLE                               
030966,000340: 36,2361           02407                           ADRES    TIG-0                                 
030967,000341: 
030968,000342: 36,2362           05516                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
030969,000343: 36,2363           00153                           ADRES    IGNFLAG                               #  FOR LIGHT-UP LOGIC
030970,000344: 36,2364           05516                           TC       DOWNFLAG                              
030971,000345: 36,2365           00154                           ADRES    ASTNFLAG                              
030972,000346: 36,2366           05516                           TC       DOWNFLAG                              
030973,000347: 36,2367           00122                           ADRES    ZOOMFLAG                              
030974,000348: 
030975,000349: 36,2370           51455                           INDEX    WHICH                                 
030976,000350: 36,2371           10011                           TCF      11                                    
030977,000351: 
030978,000352: 36,2372           10756        P40SJUNK           CCS      PHASE3                                #  (11) P40 AND P42.  S40.13 IN PROGRESS?
030979,000353: 36,2373           12402                           TCF      DISPCHNG                              #  YES
030980,000354: 
030981,000355: 36,2374           34736                           CAF      PRIO20                                
030982,000356: 36,2375           05105                           TC       FINDVAC                               
030983,000357: 36,2376  E7,1453                                  EBANK=   TTOGO                                 
030984,000358: 36,2376           02540 56067                     2CADR    S40.13                                
030985,000359: 
030986,000360: 36,2400           05353                           TC       PHASCHNG                              #  3.5SPOT FOR S40.13
030987,000361: 36,2401           00053                           OCT      00053                                 

Page 732

030989,000363: 36,2402           44760        DISPCHNG           CS       VB99DEX                               #  (11)
030990,000364: 36,2403           55162                           TS       DISPDEX                               
030991,000365: 36,2404           05353        COMMON             TC       PHASCHNG                              #  RESTART TIG-0 (4.7SPOT)
030992,000366: 36,2405           40074                           OCT      40074                                 
030993,000367: 36,2406           15261                           TCF      TASKOVER                              
030994,000368: 
030995,000369:                                                                                                  #        ****************************************
030996,000370: 
030997,000371: 36,2407           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
030998,000372: 36,2410           74737                           MASK     IGNFLBIT                              
030999,000373: 36,2411           26103                           ADS      FLAGWRD7                              
031000,000374: 
031001,000375: 36,2412           05321                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
031002,000376: 36,2413           00077                           DEC      63         B-14                       #  AFTER NOMINAL IGNITION, NOT ACTUAL
031003,000377: 36,2414           12425                           TCF      IGNYET?                               
031004,000378: 36,2415           31422                           CA       ZOOMTIME                              
031005,000379: 36,2416           05203                           TC       WAITLIST                              
031006,000380: 36,2417  E7,1515                                  EBANK=   DVCNTR                                
031007,000381: 36,2417           03667 72067                     2CADR    ZOOM                                  
031008,000382: 
031009,000383: 36,2421           05327                           TC       2PHSCHNG                              
031010,000384: 36,2422           40033                           OCT      40033                                 
031011,000385: 
031012,000386: 36,2423           05014                           OCT      05014                                 
031013,000387: 36,2424           77777                           OCT      77777                                 
031014,000388: 
031015,000389: 36,2425           34740        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
031016,000390: 36,2426           70103                           MASK     FLAGWRD7                              #  TO OUR ENGINE ENABLE REQUEST?
031017,000391: 36,2427           00006                           EXTEND                                         
031018,000392: 36,2430           51455                           INDEX    WHICH                                 
031019,000393: 36,2431           10012                           BZF      12                                    #  BRANCH IF HE HAS NOT RESPONDED YET
031020,000394: 
031021,000395: 36,2432           40101        IGNITION           CS       FLAGWRD5                              #  INSURE ENGONFLG IS SET.
031022,000396: 36,2433           74745                           MASK     ENGONBIT                              
031023,000397: 36,2434           26101                           ADS      FLAGWRD5                              
031024,000398: 36,2435           44355                           CS       PRIO30                                #  TURN ON THE ENGINE.
031025,000399: 36,2436           00006                           EXTEND                                         
031026,000400: 36,2437           02011                           RAND     DSALMOUT                              
031027,000401: 36,2440           64737                           AD       BIT13                                 
031028,000402: 36,2441           00006                           EXTEND                                         
031029,000403: 36,2442           01011                           WRITE    DSALMOUT                              
031030,000404: 36,2443           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
031031,000405: 36,2444           30025                           DCA      TIME2                                 
031032,000406: 36,2445           53342                           DXCH     TEVENT                                
031033,000407: 
031034,000408: 36,2446           44735                           CS       PULSES                                #  MAKE SURE THAT DAP IS NOT IN MINIMUM
031035,000409: 36,2447           70111                           MASK     DAPBOOLS                              #  IMPULSE MODE IN P12,P40,P42, AND P63
031036,000410: 36,2450           54111                           TS       DAPBOOLS                              

Page 733

031038,000412: 36,2451           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
031039,000413: 36,2452           31517                           DCA      TGO                                   
031040,000414: 36,2453           53442                           DXCH     TIG                                   
031041,000415: 36,2454           00006                           EXTEND                                         
031042,000416: 36,2455           30025                           DCA      TIME2                                 
031043,000417: 36,2456           21442                           DAS      TIG                                   
031044,000418: 
031045,000419: 36,2457           44742                           CS       FLUNDBIT                              #  PERMIT GUIDANCE LOOP DISPLAYS
031046,000420: 36,2460           70104                           MASK     FLAGWRD8                              
031047,000421: 36,2461           54104                           TS       FLAGWRD8                              
031048,000422: 
031049,000423: 36,2462           51455                           INDEX    WHICH                                 
031050,000424: 36,2463           10013                           TCF      13                                    
031051,000425: 
031052,000426: 36,2464           00006        P63IGN             EXTEND                                         #  (13)  INITIATE BURN DISPLAYS
031053,000427: 36,2465           33143                           DCA      LUNLANAD                              
031054,000428: 36,2466           53252                           DXCH     AVGEXIT                               
031055,000429: 
031056,000430: 36,2467           30005                           CA       Z                                     #  ASSASSINATE CLOKTASK
031057,000431: 36,2470           55162                           TS       DISPDEX                               
031058,000432: 
031059,000433: 36,2471           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
031060,000434: 36,2472           74743                           MASK     LETABBIT                              
031061,000435: 36,2473           26105                           ADS      FLAGWRD9                              
031062,000436: 
031063,000437: 36,2474           40103                           CS       FLAGWRD7                              #  SET SWANDISP TO ENABLE R10.
031064,000438: 36,2475           74741                           MASK     SWANDBIT                              
031065,000439: 36,2476           26103                           ADS      FLAGWRD7                              
031066,000440: 
031067,000441: 36,2477           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
031068,000442: 36,2500           30025                           DCA      TIME2                                 
031069,000443: 36,2501           53442                           DXCH     TIG                                   
031070,000444: 
031071,000445: 36,2502           34755                           CAF      ZERO                                  #  INITIALIZE WCHPHASE AND FLPASSO
031072,000446: 36,2503           55346                           TS       WCHPHASE                              
031073,000447: 36,2504           55621                           TS       WCHPHOLD                              #  ALSO WHCPHOLD
031074,000448: 36,2505           34752                           CA       TWO                                   
031075,000449: 36,2506           55623                           TS       FLPASS0                               
031076,000450: 
031077,000451: 36,2507           12545                           TCF      P42IGN                                
031078,000452: 36,2510           40101        P40IGN             CS       FLAGWRD5                              #  (13)
031079,000453: 36,2511           74740                           MASK     NOTHRBIT                              
031080,000454: 36,2512           00006                           EXTEND                                         
031081,000455: 36,2513           12545                           BZF      P42IGN                                
031082,000456: 36,2514           31422                           CA       ZOOMTIME                              
031083,000457: 36,2515           05203                           TC       WAITLIST                              
031084,000458: 36,2516  E7,1515                                  EBANK=   DVCNTR                                
031085,000459: 36,2516           03667 72067                     2CADR    ZOOM                                  
031086,000460: 
031087,000461: 36,2520           05327        P63IGN1            TC       2PHSCHNG                              

Page 734

031089,000463: 36,2521           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
031090,000464: 36,2522           05014                           OCT      05014                                 #  TYPE C RESTARTS HERE IMMEDIATELY
031091,000465: 36,2523           77777                           OCT      77777                                 
031092,000466: 
031093,000467: 36,2524           12545                           TCF      P42IGN                                
031094,000468: 36,2525           35015        P12IGN             CAF      EBANK6                                
031095,000469: 36,2526           54003                           TS       EBANK                                 
031096,000470: 36,2527  E6,1536                                  EBANK=   AOSQ                                  
031097,000471: 
031098,000472: 36,2527           31412                           CA       IGNAOSQ                               #  INITIALIZE DAP BIAS ACCELERATION
031099,000473: 36,2530           55536                           TS       AOSQ                                  #  ESTIMATES AT P12 IGNITION.
031100,000474: 36,2531           31413                           CA       IGNAOSR                               
031101,000475: 36,2532           55540                           TS       AOSR                                  
031102,000476: 
031103,000477: 36,2533           35016                           CAF      EBANK7                                
031104,000478: 36,2534           54003                           TS       EBANK                                 
031105,000479: 36,2535  E7,1515                                  EBANK=   DVCNTR                                
031106,000480: 
031107,000481: 36,2535           30005        ABRTIGN            CA       Z                                     #  (13) KILL CLOKTASK
031108,000482: 36,2536           55162                           TS       DISPDEX                               
031109,000483: 
031110,000484: 36,2537           00006                           EXTEND                                         #  CONNECT ASCENT GYIDANCE TO SERVICER.
031111,000485: 36,2540           33145                           DCA      ATMAGADR                              
031112,000486: 36,2541           53252                           DXCH     AVGEXIT                               
031113,000487: 
031114,000488: 36,2542           40103                           CS       FLAGWRD7                              #  ENABLE R10.
031115,000489: 36,2543           74741                           MASK     SWANDBIT                              
031116,000490: 36,2544           26103                           ADS      FLAGWRD7                              
031117,000491: 
031118,000492: 36,2545           44744        P42IGN             CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
031119,000493: 36,2546           70111                           MASK     DAPBOOLS                              #  CURVES ARE USED.
031120,000494: 36,2547           54111                           TS       DAPBOOLS                              
031121,000495: 36,2550           34743                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
031122,000496: 36,2551           70076                           MASK     FLAGWRD2                              
031123,000497: 36,2552           10000                           CCS      A                                     
031124,000498: 36,2553           13526                           TCF      IMPLBURN                              
031125,000499: 
031126,000500: 36,2554           05516        DVMONCON           TC       DOWNFLAG                              
031127,000501: 36,2555           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
031128,000502: 36,2556           05516                           TC       DOWNFLAG                              
031129,000503: 36,2557           00154                           ADRES    ASTNFLAG                              
031130,000504: 36,2560           05516                           TC       DOWNFLAG                              
031131,000505: 36,2561           00161                           ADRES    IDLEFLAG                              
031132,000506: 
031133,000507: 36,2562           05353                           TC       PHASCHNG                              
031134,000508: 36,2563           40054                           OCT      40054                                 
031135,000509: 
031136,000510: 36,2564           05221                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
031137,000511: 36,2565           00062                           DEC      50         B-14                       #  LIGHT UP.

Page 735

031139,000513: 36,2566           02657        ULLAGOFF           TC       NOULLAGE                              
031140,000514: 
031141,000515: 36,2567           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
031142,000516: 36,2570           34755                           DCA      NEG0                                  
031143,000517: 36,2571           52760                           DXCH     -PHASE4                               
031144,000518: 
031145,000519: 36,2572           15261                           TCF      TASKOVER                              
031146,000520: 
031147,000521: 36,2573           04635        TIGTASK            TC       POSTJUMP                              #  (12)
031148,000522: 36,2574           73656                           CADR     TIGTASK1                              
031149,000523: 
031150,000524:                                                                                                  #        ****************************************
031151,000525: 
031152,000526: 31,2144                                           BANK     31                                    
031153,000527: 35,2000                                           SETLOC   P40S3                                 
031154,000528: 35,2000                                           BANK                                           
031155,000529: 35,3656                                           COUNT*   $$/P40                                
031156,000530: 
031157,000531: 35,3656           35026        TIGTASK1           CAF      PRIO16                                
031158,000532: 35,3657           05072                           TC       NOVAC                                 
031159,000533: 35,3660  E7,1462                                  EBANK=   TRKMKCNT                              
031160,000534: 35,3660           03245 74067                     2CADR    TIGNOW                                
031161,000535: 
031162,000536: 35,3662           05516                           TC       DOWNFLAG                              
031163,000537: 35,3663           00303                           ADRES    PULSEFLG                              
031164,000538: 
031165,000539: 35,3664           05353                           TC       PHASCHNG                              
031166,000540: 35,3665           00006                           OCT      6                                     #  KILL GROUP 6.
031167,000541: 
031168,000542: 35,3666           15261                           TCF      TASKOVER                              
031169,000543: 
031170,000544:                                                                                                  #        ****************************************
031171,000545: 
031172,000546: 35,3667           05321        ZOOM               TC       CHECKMM                               #  P40 OR P63?
031173,000547: 35,3670           00077                           DEC      63         B-14                       
031174,000548: 35,3671           13677                           TCF      P40ZOOM                               
031175,000549: 
031176,000550: 35,3672           05504        P63ZOOM            TC       UPFLAG                                #  INDICATE THAT THROTTLE-UP HAS COME
031177,000551: 35,3673           00122                           ADRES    ZOOMFLAG                              
031178,000552: 
031179,000553: 35,3674           04674                           TC       IBNKCALL                              
031180,000554: 35,3675           62327                           CADR     FLATOUT                               
031181,000555: 35,3676           13704                           TCF      P40ZOOMA                              
031182,000556: 
031183,000557: 35,3677           34737        P40ZOOM            CAF      BIT13                                 
031184,000558: 35,3700           54055                           TS       THRUST                                
031185,000559: 35,3701           34750                           CAF      BIT4                                  
031186,000560: 

Page 736

031188,000562: 35,3702           00006                           EXTEND                                         
031189,000563: 35,3703           05014                           WOR      CHAN14                                
031190,000564: 
031191,000565: 35,3704           05353        P40ZOOMA           TC       PHASCHNG                              
031192,000566: 35,3705           00003                           OCT      3                                     
031193,000567: 35,3706           15261                           TCF      TASKOVER                              
031194,000568: 
031195,000569: 36,2575                                           BANK     36                                    
031196,000570: 36,2000                                           SETLOC   P40S                                  
031197,000571: 36,2000                                           BANK                                           
031198,000572: 36,2575                                           COUNT*   $$/P40                                
031199,000573: 
031200,000574:                                                                                                  #        ****************************************
031201,000575: 
031202,000576: 36,2575           05504        COMFAIL            TC       UPFLAG                                #  (15)
031203,000577: 36,2576           00161                           ADRES    IDLEFLAG                              
031204,000578: 36,2577           05504                           TC       UPFLAG                                #  SET FLAG TO SUPPRESS CONFLICTING DISPLAY
031205,000579: 36,2600           00175                           ADRES    FLUNDISP                              
031206,000580: 36,2601           34751                           CAF      FOUR                                  #  RESET DVMON
031207,000581: 36,2602           55515                           TS       DVCNTR                                
031208,000582: 36,2603           10764                           CCS      PHASE6                                #  CLOCKTASK ACTIVE?
031209,000583: 36,2604           12607                           TCF      +3                                    #  YES
031210,000584: 36,2605           04616                           TC       BANKCALL                              #  OTHERWISE, START IT UP
031211,000585: 36,2606           74667                           CADR     STCLOK1                               
031212,000586: 36,2607           44765                 +3        CS       VB97DEX                               
031213,000587: 36,2610           55162                           TS       DISPDEX                               
031214,000588: 36,2611           05353                           TC       PHASCHNG                              #  TURN OFF GROUP 4.
031215,000589: 36,2612           00004                           OCT      00004                                 
031216,000590: 36,2613           15155                           TCF      ENDOFJOB                              
031217,000591: 
031218,000592: 36,2614           51455        COMFAIL1           INDEX    WHICH                                 
031219,000593: 36,2615           10002                           TCF      2                                     
031220,000594: 
031221,000595: 36,2616           30005        COMFAIL3           CA       Z                                     #  (15)  KILL CLOKTASK USING Z
031222,000596: 36,2617           12621                           TCF      +2                                    
031223,000597: 
031224,000598: 36,2620           44762        COMFAIL4           CS       CNTDNDEX                              
031225,000599: 36,2621           55162                           TS       DISPDEX                               
031226,000600: 
031227,000601: 36,2622           05516                           TC       DOWNFLAG                              #  RECONNECT DV MONITOR
031228,000602: 36,2623           00161                           ADRES    IDLEFLAG                              
031229,000603: 36,2624           05516                           TC       DOWNFLAG                              #  PERMIT GUIDANCE LOOP DISPLAYS
031230,000604: 36,2625           00175                           ADRES    FLUNDISP                              
031231,000605: 36,2626           15155                           TCF      ENDOFJOB                              
031232,000606: 
031233,000607: 36,2627           05353        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
031234,000608: 36,2630           00003                           OCT      00003                                 
031235,000609: 

Page 737

031237,000611: 36,2631           00004                           INHINT                                         
031238,000612: 36,2632           06032                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
031239,000613: 36,2633           73667                           CADR     ZOOM                                  
031240,000614: 36,2634           04674                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
031241,000615: 36,2635           75565                           CADR     ENGINOF4                              
031242,000616: 36,2636           05504                           TC       UPFLAG                                #  SET THE DRIFT BIT FOR THE DAP.
031243,000617: 36,2637           00312                           ADRES    DRIFTDFL                              
031244,000618: 36,2640           02651                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
031245,000619: 36,2641           00310                           ADRES    AORBTFLG                              
031246,000620: 36,2642           05504                           TC       UPFLAG                                #  TURN ON ULLAGE
031247,000621: 36,2643           00314                           ADRES    ULLAGFLG                              
031248,000622: 36,2644           34753                           CAF      BIT1                                  
031249,000623: 36,2645           00004                           INHINT                                         
031250,000624: 36,2646           05173                           TC       TWIDDLE                               
031251,000625: 36,2647           02354                           ADRES    TIG-5                                 
031252,000626: 36,2650           15155                           TCF      ENDOFJOB                              
031253,000627: 
031254,000628:                                                                                                  #        ****************************************
031255,000629:                                                                                                  #        SUBROUTINES OF THE IGNITION ROUTINE
031256,000630:                                                                                                  #        ****************************************
031257,000631: 
031258,000632: 36,2651           30002        INVFLAG            CA       Q                                     
031259,000633: 36,2652           05522                           TC       DEBIT                                 
031260,000634: 36,2653           40000                           COM                                            
031261,000635: 36,2654           00006                           EXTEND                                         
031262,000636: 36,2655           06001                           RXOR     LCHAN                                 
031263,000637: 36,2656           15511                           TCF      COMFLAG                               
031264,000638: 
031265,000639:                                                                                                  #        ****************************************
031266,000640: 
031267,000641: 36,2657           44746        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
031268,000642: 36,2660           70111                           MASK     DAPBOOLS                              
031269,000643: 36,2661           54111                           TS       DAPBOOLS                              
031270,000644: 36,2662           00002                           TC       Q                                     
031271,000645: 
031272,000646:                                                                                                  #        ****************************************
031273,000647: 
031274,000648: 36,2663           40111        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
031275,000649: 36,2664           74746                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
031276,000650: 36,2665           26111                           ADS      DAPBOOLS                              
031277,000651: 36,2666           00002                           TC       Q                                     
031278,000652: 
031279,000653:                                                                                                  #        ****************************************
031280,000654: 
031281,000655: 36,2667           34755        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
031282,000656: 36,2670           55162        STCLOK2            TS       DISPDEX                               #  (CLOKTASK AND CLOKJOB).  SETTING

Page 738

031284,000658: 36,2671           04645        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
031285,000659: 36,2672           55060                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
031286,000660: 36,2673           00006                           EXTEND                                         
031287,000661: 36,2674           31442                           DCA      TIG                                   
031288,000662: 36,2675           52155                           DXCH     MPAC                                  
031289,000663: 36,2676           00006                           EXTEND                                         
031290,000664: 36,2677           40025                           DCS      TIME2                                 
031291,000665: 36,2700           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
031292,000666: 36,2701           07262                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE
031293,000667: 36,2702           34777                           CAF      1SEC                                  #  45 SECOND CHECK
031294,000668: 36,2703           54002                           TS       Q                                     
031295,000669: 36,2704           52155                           DXCH     MPAC                                  
031296,000670: 36,2705           74346                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
031297,000671: 36,2706           00006                           EXTEND                                         
031298,000672: 36,2707           10002                           DV       Q                                     
031299,000673: 36,2710           30001                           CA       L                                     #  GET REMAINDER
031300,000674: 36,2711           64752                           AD       TWO                                   
031301,000675: 36,2712           00004                           INHINT                                         
031302,000676: 36,2713           05173                           TC       TWIDDLE                               
031303,000677: 36,2714           02723                           ADRES    CLOKTASK                              
031304,000678: 36,2715           05327                           TC       2PHSCHNG                              
031305,000679: 36,2716           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
031306,000680: 36,2717           05024                           OCT      05024                                 
031307,000681: 36,2720           13000                           OCT      13000                                 
031308,000682: 
031309,000683: 36,2721           31060                           CA       TBASE4                                
031310,000684: 36,2722           04640                           TC       BANKJUMP                              
031311,000685: 
031312,000686: 36,2723           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
031313,000687: 36,2724           55064                           TS       TBASE6                                
031314,000688: 
031315,000689: 36,2725           11162                           CCS      DISPDEX                               
031316,000690: 36,2726           12737                           TCF      KILLCLOK                              
031317,000691: 36,2727           12730                           NOOP                                           
031318,000692: 36,2730           37720                           CAF      PRIO27                                
031319,000693: 36,2731           05072                           TC       NOVAC                                 
031320,000694: 36,2732  E7,1453                                  EBANK=   TTOGO                                 
031321,000695: 36,2732           02743 74067                     2CADR    CLOKJOB                               
031322,000696: 
031323,000697: 36,2734           05221                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
031324,000698: 36,2735           00144                           DEC      100        B-14                       
031325,000699: 36,2736           12723                           TCF      CLOKTASK                              
031326,000700: 
031327,000701: 36,2737           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
031328,000702: 36,2740           34755                           DCA      NEG0                                  
031329,000703: 36,2741           52764                           DXCH     -PHASE6                               

Page 739

031331,000705: 36,2742           15261                           TCF      TASKOVER                              
031332,000706: 
031333,000707: 36,2743           00006        CLOKJOB            EXTEND                                         
031334,000708: 36,2744           41442                           DCS      TIG                                   
031335,000709: 36,2745           53454                           DXCH     TTOGO                                 
031336,000710: 36,2746           00006                           EXTEND                                         
031337,000711: 36,2747           30025                           DCA      TIME2                                 
031338,000712: 36,2750           21454                           DAS      TTOGO                                 
031339,000713: 36,2751           00004                           INHINT                                         
031340,000714: 36,2752           11162                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
031341,000715: 36,2753           15155                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
031342,000716: 36,2754           15155                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
031343,000717: 36,2755           40000                           COM                                            #  INDEX.
031344,000718: 36,2756           00003                           RELINT                                         #  ***** DISPDEX MUST NEVER BE -0 *****
031345,000719: 36,2757           50000                           INDEX    A                                     
031346,000720: 36,2760           13015                           TCF      DISPNOT    -1                         #  (-1 DUE TO EFFECT OF CCS)
031347,000721: 
031348,000722: 36,2761     4765               VB97DEX            =        OCT35                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
031349,000723: 
031350,000724: 36,2761           44755                 -35       CS       ZERO                                  #  INDICATE VERB 97 PASTE
031351,000725: 36,2762           55066                           TS       NVWORD1                               
031352,000726: 36,2763           30371                           CA       NVWORD     +2                         #  NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
031353,000727: 36,2764           04616                           TC       BANKCALL                              
031354,000728: 36,2765           20474                           CADR     CLOCPLAY                              
031355,000729: 36,2766           13017                           TCF      STOPCLOK                              #  TERMINATE CLOKTASK ON THE WAY TO P00H
031356,000730: 36,2767           12614                           TCF      COMFAIL1                              
031357,000731: 36,2770           12627                           TCF      COMFAIL2                              
031358,000732: 
031359,000733:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK
031360,000734: 36,2771           33152                 -25       CAF      V06N61                                #  IT IS PRIMARILY USED BY THE CREW IN P63
031361,000735: 36,2772           04616                           TC       BANKCALL                              #  TO RESET HIS EVENT TIMER TO AGREE WITH
031362,000736: 36,2773           20460                           CADR     REFLASH                               #  TIG.
031363,000737: 36,2774           13017                           TCF      STOPCLOK                              
031364,000738: 36,2775           13034                           TCF      ASTNRETN                              
031365,000739: 36,2776           12771                           TCF      -5                                    
031366,000740: 
031367,000741: 36,2777     4762               CNTDNDEX           =        LOW4                                  #  OCT17:  NEGATIVE PROPER FOR DISPDEX
031368,000742: 
031369,000743: 36,2777           51455                 -17       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
031370,000744: 36,3000           30000                           CAF      0                                     #  INTERVALS.  IT IS NORMALLY OPERATED
031371,000745: 36,3001           04616                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
031372,000746: 36,3002           20466                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
031373,000747: 
031374,000748: 36,3003     4760               VB99DEX            =        ELEVEN                                #  OCT13:  NEGATIVE PROPER FOR DISPDEX
031375,000749: 
031376,000750: 36,3003                        V99RECYC           EQUALS                                         
031377,000751: 
031378,000752: 36,3003           44743                 -13       CS       BIT9                                  #  INDICATE VERB 99 PASTE
031379,000753: 36,3004           55066                           TS       NVWORD1                               

Page 740

031381,000755: 36,3005           51455                           INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
031382,000756: 36,3006           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
031383,000757: 36,3007           04616                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
031384,000758: 36,3010           20474                           CADR     CLOCPLAY                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
031385,000759: 36,3011           13017                           TCF      STOPCLOK                              #  TERMINATE GOTOPOOH TURNS OFF ULLAGE.
031386,000760: 36,3012           13045                           TCF      *PROCEED                              
031387,000761: 36,3013           13050                           TCF      *ENTER                                
031388,000762: 
031389,000763: 36,3014     4752               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
031390,000764: 
031391,000765: 36,3014           04616                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
031392,000766: 36,3015           20457                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
031393,000767: 36,3016           15155        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
031394,000768: 
031395,000769: 36,3017           03021        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
031396,000770: 36,3020           16001                           TCF      GOTOPOOH                              #  WAY TO P00 (GOTOPOOH RELINTS)
031397,000771: 
031398,000772: 36,3021           00004        NULLCLOK           INHINT                                         
031399,000773: 36,3022           00006                           EXTEND                                         
031400,000774: 36,3023           23141                           QXCH     P40/RET                               
031401,000775: 36,3024           02657                           TC       NOULLAGE                              #  TURN OFF ULLAGE ...
031402,000776: 36,3025           06032                           TC       KILLTASK                              #        DON'T LET IT COME ON, EITHER ...
031403,000777: 36,3026           74350                           CADR     ULLGTASK                              
031404,000778: 36,3027           05353                           TC       PHASCHNG                              #                NOT EVEN IF THERE'S A RESTART.
031405,000779: 36,3030           00001                           OCT      1                                     
031406,000780: 36,3031           30005                           CA       Z                                     #  KILL CLOKTASK
031407,000781: 36,3032           55162                           TS       DISPDEX                               
031408,000782: 36,3033           01141                           TC       P40/RET                               
031409,000783: 
031410,000784: 36,3034           05353        ASTNRETN           TC       PHASCHNG                              
031411,000785: 36,3035           04024                           OCT      04024                                 
031412,000786: 36,3036           34755                           CAF      ZERO                                  #  STOP DISPLAYING BUT KEEP RUNNING.
031413,000787: 36,3037           55162                           TS       DISPDEX                               
031414,000788: 36,3040           35023                           CAF      PRIO13                                
031415,000789: 36,3041           05105                           TC       FINDVAC                               
031416,000790: 36,3042  E5,1757                                  EBANK=   STARIND                               
031417,000791: 36,3042           03212 64065                     2CADR    ASTNRET                               
031418,000792: 
031419,000793: 36,3044           15155                           TCF      ENDOFJOB                              
031420,000794: 
031421,000795: 36,3045           05504        *PROCEED           TC       UPFLAG                                
031422,000796: 36,3046           00154                           ADRES    ASTNFLAG                              
031423,000797: 
031424,000798: 36,3047           13106                           TCF      IGNITE                                
031425,000799: 
031426,000800: 36,3050           00004        *ENTER             INHINT                                         

Page 741

031428,000802: 36,3051           51455                           INDEX    WHICH                                 
031429,000803: 36,3052           10003                           TCF      3                                     
031430,000804: 
031431,000805: 36,3053           34644        GOPOST             CAF      PRIO12                                #  (3) MUST BE LOWER PRIORITY THAN CLOKJOB
031432,000806: 36,3054           05105                           TC       FINDVAC                               
031433,000807: 36,3055  E7,1453                                  EBANK=   TTOGO                                 
031434,000808: 36,3055           03227 74067                     2CADR    POSTBURN                              
031435,000809: 
031436,000810: 36,3057           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
031437,000811: 36,3060           04674                           TC       IBNKCALL                              
031438,000812: 36,3061           40205                           CADR     ALLCOAST                              
031439,000813: 36,3062           03021                           TC       NULLCLOK                              
031440,000814: 36,3063           05353                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
031441,000815: 36,3064           00134                           OCT      00134                                 
031442,000816: 
031443,000817: 36,3065           15155                           TCF      ENDOFJOB                              
031444,000818: 
031445,000819: 36,3066           35027        GOCUTOFF           CAF      PRIO17                                #  (3)
031446,000820: 36,3067           05105                           TC       FINDVAC                               
031447,000821: 36,3070  E7,1516                                  EBANK=   TGO                                   
031448,000822: 36,3070           02416 30067                     2CADR    CUTOFF                                
031449,000823: 
031450,000824: 36,3072           05516                           TC       DOWNFLAG                              
031451,000825: 36,3073           00175                           ADRES    FLUNDISP                              
031452,000826: 
031453,000827: 36,3074           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
031454,000828: 36,3075           04674                           TC       IBNKCALL                              
031455,000829: 36,3076           40205                           CADR     ALLCOAST                              
031456,000830: 36,3077           03021                           TC       NULLCLOK                              
031457,000831: 36,3100           05353                           TC       PHASCHNG                              
031458,000832: 36,3101           07024                           OCT      07024                                 
031459,000833: 36,3102           17000                           OCT      17000                                 
031460,000834: 36,3103  E7,1516                                  EBANK=   TGO                                   
031461,000835: 36,3103           02416 30067                     2CADR    CUTOFF                                
031462,000836: 
031463,000837: 36,3105           15155                           TCF      ENDOFJOB                              
031464,000838: 
031465,000839: 36,3106           40103        IGNITE             CS       FLAGWRD7                              #  (2)
031466,000840: 36,3107           74737                           MASK     IGNFLBIT                              
031467,000841: 36,3110           10000                           CCS      A                                     
031468,000842: 36,3111           13122                           TCF      IGNITE1                               
031469,000843: 36,3112           34753                           CAF      BIT1                                  
031470,000844: 36,3113           00004                           INHINT                                         
031471,000845: 36,3114           05173                           TC       TWIDDLE                               
031472,000846: 36,3115           02432                           ADRES    IGNITION                              
031473,000847: 
031474,000848: 36,3116           34360                           CAF      OCT23                                 #  IMMEDIATE RESTART AT IGNITION.

Page 742

031476,000850: 36,3117           54001                           TS       L                                     
031477,000851: 36,3120           40000                           COM                                            
031478,000852: 36,3121           52760                           DXCH     -PHASE4                               
031479,000853: 
031480,000854: 36,3122           44762        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
031481,000855: 36,3123           55162                           TS       DISPDEX                               
031482,000856: 
031483,000857: 36,3124           15155                           TCF      ENDOFJOB                              
031484,000858: 
031485,000859:                                                                                                  #        ****************************************
031486,000860: 
031487,000861: 36,3125           05567        P40ALM             TC       ALARM                                 #  PROGRAM SELECTION NOT CONSISTENT WITH
031488,000862: 36,3126           01706                           OCT      1706                                  #  VEHICLE CONFIGURATION
031489,000863: 
031490,000864: 36,3127           35006        REP40ALM           CAF      V05N09                                #  (14)
031491,000865: 36,3130           04616                           TC       BANKCALL                              
031492,000866: 36,3131           20477                           CADR     GOFLASH                               
031493,000867: 
031494,000868: 36,3132           16001                           TCF      GOTOPOOH                              #  V34E          TERMINATE
031495,000869: 36,3133           13135                           TCF      +2                                    #  PROCEED       CHECK FOR P42
031496,000870: 36,3134           13127                           TCF      REP40ALM                              #  V32E          REDISPLAY ALARM
031497,000871: 
031498,000872: 36,3135           51455                           INDEX    WHICH                                 #  FOR P42, ALLOW CREW TO PROCEED EVEN
031499,000873: 36,3136           10014                           TCF      14                                    #  THOUGH VEHICLE IS UNSTAGED
031500,000874: 
031501,000875:                                                                                                  #        ****************************************
031502,000876: 
031503,000877: 31,2144                                           BANK     31                                    
031504,000878: 35,2000                                           SETLOC   P40S2                                 
031505,000879: 35,2000                                           BANK                                           
031506,000880: 
031507,000881: 35,3707                                           COUNT*   $$/P40                                
031508,000882: 
031509,000883: 35,3707           04645        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
031510,000884: 35,3710           55163                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
031511,000885: 35,3711           04616        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
031512,000886: 35,3712           54261                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
031513,000887: 35,3713           10000                           CCS      A                                     #  +0 INDICATES IN PGNCS, IN AUTO
031514,000888: 35,3714           13726                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
031515,000889: 35,3715           34737                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
031516,000890: 35,3716           70106                           MASK     FLGWRD10                              
031517,000891: 35,3717           10000                           CCS      A                                     
031518,000892: 35,3720           13733                           TCF      GOBACK                                #  RETURN
031519,000893: 35,3721           34747                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
031520,000894: 35,3722           00006                           EXTEND                                         
031521,000895: 35,3723           02030                           RAND     CHAN30                                
031522,000896: 35,3724           00006                           EXTEND                                         
031523,000897: 35,3725           13733                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN

Page 743

031525,000899: 35,3726           33735        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203 PLEASE PERFORM
031526,000900: 35,3727           04616                           TC       BANKCALL                              #  CHECKLIST 203 TURN ON PGNCS ETC.
031527,000901: 35,3730           20624                           CADR     GOPERF1                               
031528,000902: 35,3731           16001                           TCF      GOTOPOOH                              #  V34E TERMINATE
031529,000903: 35,3732           13711                           TCF      P40A/P                                #  RECYCLE
031530,000904: 35,3733           31163        GOBACK             CA       TEMPR60                               
031531,000905: 35,3734           04640                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
031532,000906: 
031533,000907: 35,3735           00203        P40A/PMD           OCT      00203                                 
031534,000908: 
031535,000909: 36,3137                                           BANK     36                                    
031536,000910: 36,2000                                           SETLOC   P40S                                  
031537,000911: 36,2000                                           BANK                                           
031538,000912: 
031539,000913: 36,3137                                           COUNT*   $$/P40                                
031540,000914: 
031541,000915:                                                                                                  #        ****************************************
031542,000916:                                                                                                  #        CONSTANTS FOR THE IGNITION ROUTINE
031543,000917:                                                                                                  #        ****************************************
031544,000918: 
031545,000919: 36,3137  36,2107               SERVCADR           =        P63TABLE   +7                         
031546,000920: 36,3137           02040        P40ADRES           ADRES    P40TABLE                              
031547,000921: 36,3140           02050        P41ADRES           ADRES    P41TABLE   -5                         
031548,000922: 36,3141           02063        P42ADRES           ADRES    P42TABLE                              
031549,000923: 
031550,000924: 36,3142  E7,1515                                  EBANK=   DVCNTR                                
031551,000925: 36,3142           02423 62067  LUNLANAD           2CADR    LUNLAND                               
031552,000926: 
031553,000927: 36,3144  E7,1515                                  EBANK=   DVCNTR                                
031554,000928: 36,3144           03372 70067  ATMAGADR           2CADR    ATMAG                                 
031555,000929: 
031556,000930: 36,3146     6001               ?                  =        GOTOPOOH                              
031557,000931: 
031558,000932: 36,3146           00000 05656  D29.9SEC           2DEC     2990       B-28                       
031559,000933: 
031560,000934: 36,3150           04672        S24.9SEC           DEC      2490       B-14                       
031561,000935: 
031562,000936: 36,3151           00752        4.9SEC             DEC      490        B-14                       
031563,000937: 
031564,000938: 36,3152     4747               OCT20              =        BIT5                                  
031565,000939: 

Page 744

031567,000941: 36,3152           01475        V06N61             VN       0661                                  
031568,000942: 

Page 745

031570,000944:                                                                                                  #           KILLTASK
031571,000945:                                                                                                  #  MOD NO: NEW PROGRAM
031572,000946:                                                                                                  #  MOD BY: COVELLI
031573,000947: 
031574,000948:                                                                                                  #  FUNCTIONAL DESCRIPTION:
031575,000949:                                                                                                  #        KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED 'NULLTASK' (OF COURSE),
031576,000950:                                                                                                  #        WHICH MERELY DOES A TC TASKOVER.  IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
031577,000951:                                                                                                  #        FIRST IS REMOVED.  IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM.  KILLTASK
031578,000952:                                                                                                  #        LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
031579,000953: 
031580,000954:                                                                                                  #  CALLING SEQUENCE:
031581,000955:                                                                                                  #        L       TC      KILLTASK        IN FIXED-FIXED
031582,000956:                                                                                                  #        L+1     CADR    ????????        CADR (NOT 2CADR) OF TASK TO BE REMOVED.
031583,000957:                                                                                                  #        L+2     (RELINT)                RETURN
031584,000958: 
031585,000959:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
031586,000960: 
031587,000961:                                                                                                  #  ERASABLE INITIALIZATION=  NONE.
031588,000962: 
031589,000963:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
031590,000964: 
031591,000965:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A, L, Q.
031592,000966: 
031593,000967: 36,3153  E3,1410                                  EBANK=   LST2                                  
031594,000968:    6032                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
031595,000969:    6000                                           SETLOC   FFTAG6                                
031596,000970:    6000                                           BANK                                           
031597,000971:    6032                                           COUNT*   $$/KILL                               
031598,000972:    6032           36041        KILLTASK           CA       KILLBB                                
031599,000973:    6033           00004                           INHINT                                         
031600,000974:    6034           22000                           LXCH     A                                     
031601,000975:    6035           50002                           INDEX    Q                                     
031602,000976:    6036           30000                           CA       0                                     #  GET CADR.
031603,000977:    6037           22006                           LXCH     BBANK                                 
031604,000978:    6040           12200                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
031605,000979: 
031606,000980:    6041  E3,1410                                  EBANK=   LST2                                  
031607,000981:    6041           56063        KILLBB             BBCON    KILLTSK2                              
031608,000982: 
031609,000983: 27,2200                                           BANK     27                                    
031610,000984: 
031611,000985: 27,2000                                           SETLOC   P40S1                                 
031612,000986: 27,2000                                           BANK                                           
031613,000987: 27,2200                                           COUNT*   $$/KILL                               
031614,000988: 
031615,000989: 27,2200           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK

Page 746

031617,000991: 27,2201           24002                           INCR     Q                                     
031618,000992: 27,2202           00006                           EXTEND                                         
031619,000993: 27,2203           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
031620,000994: 
031621,000995: 27,2204           54063                           TS       ITEMP3                                #  CADR IS IN A
031622,000996: 27,2205           75012                           MASK     LOW10                                 
031623,000997: 27,2206           64741                           AD       BIT11                                 
031624,000998: 27,2207           54064                           TS       ITEMP4                                #  GENADR OF TASK
031625,000999: 
031626,001000: 27,2210           45012                           CS       LOW10                                 
031627,001001: 27,2211           70063                           MASK     ITEMP3                                
031628,001002: 27,2212           54063                           TS       ITEMP3                                #  FBANK OF TASK
031629,001003: 
031630,001004: 27,2213           22007                           ZL                                             
031631,001005: 27,2214           50001        ADRSCAN            INDEX    L                                     
031632,001006: 27,2215           41410                           CS       LST2                                  
031633,001007: 27,2216           60064                           AD       ITEMP4                                #  COMPARE GENADRS
031634,001008: 27,2217           00006                           EXTEND                                         
031635,001009: 27,2220           12232                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
031636,001010: 27,2221           44747        LETITLIV           CS       LSTLIM                                
031637,001011: 27,2222           60001                           AD       L                                     
031638,001012: 27,2223           00006                           EXTEND                                         #  ARE WE DONE?
031639,001013: 27,2224           12230                           BZF      DEAD                                  #  YES - DONE, SO RETURN
031640,001014: 27,2225           24001                           INCR     L                                     
031641,001015: 27,2226           24001                           INCR     L                                     
031642,001016: 27,2227           12214                           TCF      ADRSCAN                               #  CONTINUE LOOP.
031643,001017: 
031644,001018: 27,2230           52062        DEAD               DXCH     ITEMP1                                
031645,001019: 27,2231           52006                           DTCB                                           
031646,001020: 
031647,001021: 27,2232           45012        TSTFBANK           CS       LOW10                                 
031648,001022: 27,2233           50001                           INDEX    L                                     
031649,001023: 27,2234           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
031650,001024: 27,2235           00006                           EXTEND                                         
031651,001025: 27,2236           60063                           SU       ITEMP3                                
031652,001026: 27,2237           00006                           EXTEND                                         
031653,001027: 27,2240           12242                           BZF      KILLDEAD                              #  MATCH - KILL IT.
031654,001028: 27,2241           12221                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
031655,001029: 
031656,001030: 27,2242           34353        KILLDEAD           CA       TCTSKOVR                              
031657,001031: 27,2243           50001                           INDEX    L                                     
031658,001032: 27,2244           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
031659,001033: 27,2245           12230                           TCF      DEAD                                  
031660,001034: 
031661,001035: 27,2246     4747               LSTLIM             EQUALS   BIT5                                  #  DEC 16

End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc.  Parent file is MAIN.agc