Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

031674,000002:                                                                                                  ## Copyright:   Public domain.
031675,000003:                                                                                                  ## Filename:    BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
031676,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
031677,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
031678,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
031679,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
031680,000008:                                                                                                  ##              that the code format has been changed to conform to the
031681,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
031682,000010:                                                                                                  ##              original YUL assembler.
031683,000011:                                                                                                  ## Reference:   pp. 726-746
031684,000012:                                                                                                  ## Assembler:   yaYUL
031685,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031686,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031687,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
031688,000016:                                                                                                  ##              2016-01-12 HG   Transcribed
031689,000017:                                                                                                  ##              2016-12-07 HG   fix P00 -> POO
031690,000018:                                                                                                  ##                              Change POO -> P00 in some comments
031691,000019:                                                                                                  ##              2016-12-12 HG   Fix constant value (P42TABLE)   2640 -> 2390
031692,000020:                                                                                                  ##                                  operator TCF, BZF -> TC                                 
031693,000021:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
031694,000022:                                                                                                  ##                              and corrected errors found.
031695,000023:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
031696,000024:                                                                                                  ##              2017-03-15 RSB  Comment-text proofing using 5-way side-by-side diff
031697,000025:                                                                                                  ##                              of Luminary 69/99/116/131/210.
031698,000026: 

Page 726

031700,000028: 
031701,000029: 36,2024                                           BANK     36                                    
031702,000030: 36,2000                                           SETLOC   P40S                                  
031703,000031: 36,2000                                           BANK                                           
031704,000032: 36,2024  E7,1455                                  EBANK=   WHICH                                 
031705,000033: 36,2024                                           COUNT*   $$/P40                                
031706,000034:                                                                                                  #      THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
031707,000035:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
031708,000036:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
031709,000037:                                                                                                  #  PROGRAMS THROTTLE UP.
031710,000038: 
031711,000039:                                                                                                  #      VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
031712,000040:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.   USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
031713,000041:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).   THE IGNITION ROUTINE THEN INDEXES BY
031714,000042:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.   THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
031715,000043:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.   THERE IS NO RETURN.
031716,000044: 
031717,000045:                                                                                                  #      THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
031718,000046: 
031719,000047: 
031720,000048:                                                                                                  #                                         HONI SOIT QUI MAL Y PENSE
031721,000049: 
031722,000050: 
031723,000051:                                                                                                  #                                  ****************************************
031724,000052:                                                                                                  #                                  TABLES FOR THE IGNITION ROUTINE
031725,000053:                                                                                                  #                                  ****************************************
031726,000054: 
031727,000055:                                                                                                  #                                              NOLI SE TANGERE
031728,000056: 
031729,000057: 36,2024           01512        P12TABLE           VN       0674                                  #  (0)
031730,000058: 36,2025           12327                           TCF      ULLGNOT                               #  (1)
031731,000059: 36,2026           12611                           TCF      COMFAIL3                              #  (2)
031732,000060: 36,2027           13061                           TCF      GOCUTOFF                              #  (3)
031733,000061: 36,2030           15263                           TCF      TASKOVER                              #  (4)
031734,000062: 36,2031           12150                           TCF      P12SPOT                               #  (5)
031735,000063: 36,2032           00000                           DEC      0          B-14                       #  (6)       NO ULLAGE
031736,000064: 36,2033  E7,1455                                  EBANK=   WHICH                                 
031737,000065: 36,2033           03656 64067                     2CADR    SERVEXIT                              #  (7)
031738,000066: 
031739,000067: 36,2035           12402                           TCF      DISPCHNG                              #  (11)
031740,000068: 36,2036           12562                           TCF      WAITABIT                              #  (12)
031741,000069: 36,2037           12523                           TCF      P12IGN                                #  (13)
031742,000070: 
031743,000071: 
031744,000072: 
031745,000073: 36,2040           01450        P40TABLE           VN       0640                                  #  (0)
031746,000074: 36,2041           12327                           TCF      ULLGNOT                               #  (1)
031747,000075: 36,2042           12613                           TCF      COMFAIL4                              #  (2)
031748,000076: 36,2043           13046                           TCF      GOPOST                                #  (3)
031749,000077: 36,2044           15263                           TCF      TASKOVER                              #  (4)
031750,000078: 36,2045           12150                           TCF      P40SPOT                               #  (5)
031751,000079: 

Page 727

031753,000081: 36,2046           04300                           DEC      2240       B-14                       #  (6)
031754,000082: 36,2047  E6,1422                                  EBANK=   OMEGAQ                                
031755,000083: 36,2047           03667 74066                     2CADR    STEERING                              #  (7)
031756,000084: 36,2051           12372                           TCF      P40SJUNK                              #  (11)
031757,000085: 36,2052           12562                           TCF      WAITABIT                              #  (12)
031758,000086: 36,2053           12506                           TCF      P40IGN                                #  (13)
031759,000087: 36,2054           13122                           TCF      REP40ALM                              #  (14)
031760,000088: 
031761,000089: 
031762,000090: 
031763,000091: 36,2055           12153        P41TABLE           TCF      P41SPOT                               #  (5)
031764,000092: 36,2056           77776                           DEC      -1         B-14                       #  (6)
031765,000093: 36,2057  E6,1422                                  EBANK=   OMEGAQ                                
031766,000094: 36,2057           02570 64066                     2CADR    CALCN85                               #  (7)
031767,000095: 
031768,000096: 36,2061           12404                           TCF      COMMON                                #  (11)
031769,000097: 36,2062           12566                           TCF      TIGTASK                               #  (12)
031770,000098: 
031771,000099: 
031772,000100: 
031773,000101: 36,2063           01450        P42TABLE           VN       0640                                  #  (0)
031774,000102: 36,2064           12324                           TCF      WANTAPS                               #  (1)
031775,000103: 36,2065           12613                           TCF      COMFAIL4                              #  (2)
031776,000104: 36,2066           13046                           TCF      GOPOST                                #  (3)
031777,000105: 36,2067           15263                           TCF      TASKOVER                              #  (4)
031778,000106: 36,2070           12150                           TCF      P42SPOT                               #  (5)
031779,000107: 36,2071           04526                           DEC      2390       B-14                       #  (6) ULLAGE ON AT TIG-6 SECS.
031780,000108: 36,2072  E6,1422                                  EBANK=   OMEGAQ                                
031781,000109: 36,2072           03667 74066                     2CADR    STEERING                              #  (7)
031782,000110: 36,2074           12372                           TCF      P40SJUNK                              #  (11)
031783,000111: 36,2075           12562                           TCF      WAITABIT                              #  (12)
031784,000112: 36,2076           12540                           TCF      P42IGN                                #  (13)
031785,000113: 36,2077           13421                           TCF      P42STAGE                              #  (14)
031786,000114: 
031787,000115: 
031788,000116: 
031789,000117: 36,2100           01476        P63TABLE           VN       0662                                  #  (0)
031790,000118: 36,2101           12327                           TCF      ULLGNOT                               #  (1)
031791,000119: 36,2102           12611                           TCF      COMFAIL3                              #  (2)
031792,000120: 36,2103           12776                           TCF      V99RECYC                              #  (3)
031793,000121: 36,2104           15263                           TCF      TASKOVER                              #  (4)
031794,000122: 36,2105           12153                           TCF      P63SPOT                               #  (5)
031795,000123: 36,2106           04300                           DEC      2240       B-14                       #  (6)
031796,000124: 36,2107  E7,1455                                  EBANK=   WHICH                                 
031797,000125: 36,2107           03656 64067                     2CADR    SERVEXIT                              #  (7)
031798,000126: 36,2111           12402                           TCF      DISPCHNG                              #  (11)
031799,000127: 36,2112           12562                           TCF      WAITABIT                              #  (12)
031800,000128: 

Page 728

031802,000130: 36,2113           12465                           TCF      P63IGN                                #  (13)
031803,000131: 
031804,000132: 
031805,000133: 
031806,000134: 36,2114           01477        ABRTABLE           VN       0663                                  #  (0)
031807,000135: 36,2115           12327                           TCF      ULLGNOT                               #  (1)
031808,000136: 36,2116           12611                           TCF      COMFAIL3                              #  (2)
031809,000137: 36,2117           13061                           TCF      GOCUTOFF                              #  (3)
031810,000138: 36,2120           15263                           TCF      TASKOVER                              #  (4)
031811,000139: 36,2121           12122                           NOOP                                           #  (5)
031812,000140: 36,2122           12123                           NOOP                                           #  (6)
031813,000141: 36,2123           12124                           NOOP                                           #  (7)
031814,000142: 36,2124           12125                           NOOP                                           
031815,000143: 36,2125           12402                           TCF      DISPCHNG                              #  (11)
031816,000144: 36,2126           12562                           TCF      WAITABIT                              #  (12)
031817,000145: 36,2127           12533                           TCF      ABRTIGN                               #  (13)
031818,000146: 
031819,000147: 
031820,000148: 
031821,000149:                                                                                                  #                ****************************************
031822,000150:                                                                                                  #                GENERAL PURPOSE IGNITION ROUTINES
031823,000151:                                                                                                  #                ****************************************
031824,000152: 
031825,000153: 36,2130           05355        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
031826,000154: 36,2131           04024                           OCT      04024                                 
031827,000155: 
031828,000156: 36,2132           34746                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
031829,000157: 36,2133           55507                           TS       DVTOTAL                               
031830,000158: 36,2134           55510                           TS       DVTOTAL    +1                         
031831,000159: 
031832,000160: 36,2135           04607                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
031833,000161: 36,2136           73710                           CADR     P40AUTO                               #    OWN BANK TO SET UP RETURN PROPERLY
031834,000162: 
031835,000163: 36,2137           00006        B*RNB*B*           EXTEND                                         
031836,000164: 36,2140           31442                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
031837,000165: 36,2141           53512                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
031838,000166: 
031839,000167: 36,2142           00004                           INHINT                                         
031840,000168: 36,2143           04665                           TC       IBNKCALL                              
031841,000169: 36,2144           75565                           CADR     ENGINOF3                              
031842,000170: 36,2145           00003                           RELINT                                         
031843,000171: 
031844,000172: 36,2146           51455                           INDEX    WHICH                                 
031845,000173: 36,2147           00005                           TC       5                                     
031846,000174: 
031847,000175: 36,2150  36,2150               P42SPOT            =        P40SPOT                               #  (5)
031848,000176: 36,2150  36,2150               P12SPOT            =        P40SPOT                               #  (5)
031849,000177: 36,2150  36,2153               P63SPOT            =        P41SPOT                               #  (5)      IN P63 CLOKTASK ALREADY GOING
031850,000178: 36,2150           44753        P40SPOT            CS       CNTDNDEX                              #  (5)
031851,000179: 36,2151           04607                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED
031852,000180: 

Page 729

031854,000182: 36,2152           74663                           CADR     STCLOK2                               #  RETURN
031855,000183: 36,2153           06060        P41SPOT            TC       INTPRET                               #  (5)
031856,000184: 36,2154           45345                           DLOAD    DSU                                   
031857,000185: 36,2155           03442                                    TIG                                   
031858,000186: 36,2156           35142                                    D29.9SEC                              
031859,000187: 36,2157           34041                           STCALL   TDEC1                                 
031860,000188: 36,2160           61063                                    INITCDUW                              
031861,000189: 36,2161           45014                           BOFF     CALL                                  
031862,000190: 36,2162           03347                                    MUNFLAG                               
031863,000191: 36,2163           74202                                    GOMIDAV                               
031864,000192: 36,2164           27101                                    CSMPREC                               
031865,000193: 36,2165           64375                           VLOAD    MXV                                   
031866,000194: 36,2166           00025                                    VATT1                                 
031867,000195: 36,2167           01732                                    REFSMMAT                              
031868,000196: 36,2170           77762                           VSR1                                           
031869,000197: 36,2171           25724                           STOVL    V(CSM)                                #  CSM VELOCITY - M/CS*2(7)
031870,000198: 36,2172           00017                                    RATT1                                 
031871,000199: 36,2173           64312                           VSL4     MXV                                   
031872,000200: 36,2174           01732                                    REFSMMAT                              
031873,000201: 36,2175           35716                           STCALL   R(CSM)                                #  CSM POSITION - M*2(24)
031874,000202: 36,2176           67037                                    MUNGRAV                               
031875,000203: 36,2177           16310                           STODL    G(CSM)                                #  CSM GRAVITY VEC. - M/CS*2(7)
031876,000204: 36,2200           00015                                    TAT                                   
031877,000205: 36,2201           00041                           STORE    TDEC1                                 #  RELOAD TDEC1 FOR MIDTOAV.
031878,000206: 36,2202           77624        GOMIDAV            CALRB                                          
031879,000207: 36,2203           27606                                    MIDTOAV1                              
031880,000208: 36,2204           12213                           TCF      CALLT-35                              #  MADE IT IN TIME.
031881,000209: 
031882,000210: 36,2205           00006                           EXTEND                                         #  TIG WAS SLIPPED, SO RESET TIG TO 29.9
031883,000211: 36,2206           31561                           DCA      PIPTIME1                              #  SECONDS AFTER THE TIME TO WHICH WE DID
031884,000212: 36,2207           53442                           DXCH     TIG                                   #  INTEGRATE.
031885,000213: 36,2210           00006                           EXTEND                                         
031886,000214: 36,2211           33142                           DCA      D29.9SEC                              
031887,000215: 36,2212           21442                           DAS      TIG                                   
031888,000216: 
031889,000217: 36,2213           52155        CALLT-35           DXCH     MPAC                                  
031890,000218: 36,2214           53500                           DXCH     SAVET-30                              #  DELTA-T UNTIL TIG-30
031891,000219: 36,2215           00006                           EXTEND                                         
031892,000220: 36,2216           43751                           DCS      5SECDP                                
031893,000221: 36,2217           21500                           DAS      SAVET-30                              #  DELTA-T UNTIL TIG-35
031894,000222: 36,2220           00006                           EXTEND                                         
031895,000223: 36,2221           31500                           DCA      SAVET-30                              
031896,000224: 36,2222           05301                           TC       LONGCALL                              
031897,000225: 36,2223  E7,1453                                  EBANK=   TTOGO                                 
031898,000226: 36,2223           02242 74067                     2CADR    TIG-35                                
031899,000227: 36,2225           05355                           TC       PHASCHNG                              
031900,000228: 36,2226           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.
031901,000229: 36,2227           05323                           TC       CHECKMM                               
031902,000230: 

Page 730

031904,000232: 36,2230           00077                           DEC      63         B-14                       
031905,000233: 36,2231           15146                           TCF      ENDOFJOB                              #  NOT P63
031906,000234: 36,2232           44753                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
031907,000235: 36,2233           55162                           TS       DISPDEX                               
031908,000236: 36,2234           06060                           TC       INTPRET                               
031909,000237: 36,2235           51575                           VLOAD    ABVAL                                 
031910,000238: 36,2236           03553                                    VN1                                   
031911,000239: 36,2237           03472                           STORE    ABVEL                                 #  INITIALIZE ABVEL FOR P63 DISPLAY
031912,000240: 36,2240           77776                           EXIT                                           
031913,000241: 36,2241           15146                           TCF      ENDOFJOB                              
031914,000242: 
031915,000243:                                                                                                  #        ****************************************
031916,000244: 
031917,000245: 36,2242           33751        TIG-35             CAF      5SEC                                  
031918,000246: 36,2243           05175                           TC       TWIDDLE                               
031919,000247: 36,2244           02300                           ADRES    TIG-30                                
031920,000248: 
031921,000249: 36,2245           05355                           TC       PHASCHNG                              
031922,000250: 36,2246           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
031923,000251: 
031924,000252: 36,2247           44743                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
031925,000253: 36,2250           55162                           TS       DISPDEX                               
031926,000254: 
031927,000255: 36,2251           51455                           INDEX    WHICH                                 
031928,000256: 36,2252           40006                           CS       6                                     #  CHECK ULLAGE TIME.
031929,000257: 36,2253           00006                           EXTEND                                         
031930,000258: 36,2254           65263                           BZMF     TASKOVER                              
031931,000259: 36,2255           33144                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
031932,000260: 36,2256           05175                           TC       TWIDDLE                               
031933,000261: 36,2257           02270                           ADRES    TIG-30.1                              
031934,000262: 
031935,000263: 36,2260           35020                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
031936,000264: 36,2261           05063                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
031937,000265: 36,2262  E7,1453                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
031938,000266: 36,2262           02265 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
031939,000267: 
031940,000268: 36,2264           15263                           TCF      TASKOVER                              
031941,000269: 
031942,000270: 36,2265           04607        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
031943,000271: 36,2266           20451                           CADR     CLEANDSP                              
031944,000272: 36,2267           15146                           TCF      ENDOFJOB                              
031945,000273: 
031946,000274: 36,2270           35020        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
031947,000275: 36,2271           05063                           TC       NOVAC                                 
031948,000276: 36,2272  E7,1453                                  EBANK=   TTOGO                                 
031949,000277: 36,2272           02275 74067                     2CADR    TIG-30A                               
031950,000278: 
031951,000279: 36,2274           15263                           TCF      TASKOVER                              
031952,000280: 

Page 731

031954,000282: 36,2275           33753        TIG-30A            CAF      V16N85B                               
031955,000283: 36,2276           04607                           TC       BANKCALL                              #  RESTORE DISPLAY.
031956,000284: 36,2277           20460                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
031957,000285: 
031958,000286:                                                                                                  #        *****************************************
031959,000287: 
031960,000288: 36,2300           33143        TIG-30             CAF      S24.9SEC                              
031961,000289: 36,2301           05175                           TC       TWIDDLE                               
031962,000290: 36,2302           02354                           ADRES    TIG-5                                 
031963,000291: 
031964,000292: 36,2303           44753                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
031965,000293: 36,2304           55162                           TS       DISPDEX                               
031966,000294: 
031967,000295: 36,2305           51455                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE-ON TIME
031968,000296: 36,2306           30006                           CAF      6                                     
031969,000297: 36,2307           00006                           EXTEND                                         
031970,000298: 36,2310           62327                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
031971,000299: 36,2311           55477                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
031972,000300: 36,2312           05175                           TC       TWIDDLE                               
031973,000301: 36,2313           02350                           ADRES    ULLGTASK                              
031974,000302: 
031975,000303: 36,2314           36266                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
031976,000304: 36,2315           54001                           TS       L                                     
031977,000305: 36,2316           46266                           CS       THREE                                 
031978,000306: 36,2317           52752                           DXCH     -PHASE1                               
031979,000307: 36,2320           40025                           CS       TIME1                                 
031980,000308: 36,2321           55052                           TS       TBASE1                                
031981,000309: 
031982,000310: 36,2322           51455                           INDEX    WHICH                                 
031983,000311: 36,2323           00001                           TC       1                                     
031984,000312: 
031985,000313: 36,2324           40106        WANTAPS            CS       FLGWRD10                              #  (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
031986,000314: 36,2325           74730                           MASK     APSFLBIT                              #  WASN'T SET, DAP WILL BE INITIALIZED TO
031987,000315: 36,2326           26106                           ADS      FLGWRD10                              #  ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
031988,000316: 
031989,000317: 36,2327           00006        ULLGNOT            EXTEND                                         #  (1)
031990,000318: 36,2330           51455                           INDEX    WHICH                                 
031991,000319: 36,2331           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
031992,000320: 36,2332           53252                           DXCH     AVEGEXIT                              
031993,000321: 
031994,000322: 36,2333           34743                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
031995,000323: 36,2334           54001                           TS       L                                     
031996,000324: 36,2335           44743                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
031997,000325: 36,2336           52760                           DXCH     -PHASE4                               
031998,000326: 
031999,000327: 36,2337           40025                           CS       TIME1                                 
032000,000328: 36,2340           55060                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
032001,000329: 
032002,000330: 36,2341           00006        REDO2.17           EXTEND                                         
032003,000331: 

Page 732

032005,000333: 36,2342           34746                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
032006,000334: 36,2343           52754                           DXCH     -PHASE2                               #        IF NEEDED.
032007,000335: 
032008,000336: 36,2344           10762        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
032009,000337: 36,2345           15263                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
032010,000338: 
032011,000339: 36,2346           04626                           TC       POSTJUMP                              
032012,000340: 36,2347           77401                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
032013,000341: 
032014,000342: 
032015,000343:                                                                                                  #        ****************************************
032016,000344: 
032017,000345: 36,2350           02656        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
032018,000346: 36,2351           05355                           TC       PHASCHNG                              
032019,000347: 36,2352           00001                           OCT      1                                     
032020,000348: 36,2353           15263                           TCF      TASKOVER                              
032021,000349: 
032022,000350: 
032023,000351:                                                                                                  #        ****************************************
032024,000352: 
032025,000353: 36,2354           00006        TIG-5              EXTEND                                         
032026,000354: 36,2355           34746                           DCA      NEG0                                  #  INSURE THAT GROUP 3 IS INACTIVE.
032027,000355: 36,2356           52756                           DXCH     -PHASE3                               
032028,000356: 
032029,000357: 36,2357           33751                           CAF      5SEC                                  
032030,000358: 36,2360           05175                           TC       TWIDDLE                               
032031,000359: 36,2361           02407                           ADRES    TIG-0                                 
032032,000360: 
032033,000361: 36,2362           05520                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
032034,000362: 36,2363           00153                           ADRES    IGNFLAG                               #    FOR LIGHT-UP LOGIC
032035,000363: 36,2364           05520                           TC       DOWNFLAG                              
032036,000364: 36,2365           00154                           ADRES    ASTNFLAG                              
032037,000365: 36,2366           05520                           TC       DOWNFLAG                              
032038,000366: 36,2367           00122                           ADRES    ZOOMFLAG                              
032039,000367: 
032040,000368: 36,2370           51455                           INDEX    WHICH                                 
032041,000369: 36,2371           00011                           TC       11                                    
032042,000370: 
032043,000371: 36,2372           10756        P40SJUNK           CCS      PHASE3                                #  (11) P40 AND P42.  S40.13 IN PROGRESS?
032044,000372: 36,2373           12402                           TCF      DISPCHNG                              #  YES
032045,000373: 
032046,000374: 36,2374           34727                           CAF      PRIO20                                
032047,000375: 36,2375           05076                           TC       FINDVAC                               
032048,000376: 36,2376  E7,1453                                  EBANK=   TTOGO                                 
032049,000377: 36,2376           02536 56067                     2CADR    S40.13                                
032050,000378: 
032051,000379: 36,2400           05355                           TC       PHASCHNG                              #  3.5SPOT FOR S40.13
032052,000380: 36,2401           00053                           OCT      00053                                 
032053,000381: 

Page 733

032055,000383: 36,2402           44751        DISPCHNG           CS       VB99DEX                               #  (11)
032056,000384: 36,2403           55162                           TS       DISPDEX                               
032057,000385: 36,2404           05355        COMMON             TC       PHASCHNG                              #  RESTART TIG-0 (4.7SPOT)
032058,000386: 36,2405           40074                           OCT      40074                                 
032059,000387: 36,2406           15263                           TCF      TASKOVER                              
032060,000388: 
032061,000389: 
032062,000390:                                                                                                  #        ****************************************
032063,000391: 
032064,000392: 36,2407           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
032065,000393: 36,2410           74730                           MASK     IGNFLBIT                              
032066,000394: 36,2411           26103                           ADS      FLAGWRD7                              
032067,000395: 
032068,000396: 36,2412           05323                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
032069,000397: 36,2413           00077                           DEC      63         B-14                       #    AFTER NOMINAL IGNITION, NOT ACTUAL
032070,000398: 36,2414           12425                           TCF      IGNYET?                               
032071,000399: 36,2415           31422                           CA       ZOOMTIME                              
032072,000400: 36,2416           05205                           TC       WAITLIST                              
032073,000401: 36,2417  E7,1515                                  EBANK=   DVCNTR                                
032074,000402: 36,2417           03670 72067                     2CADR    ZOOM                                  
032075,000403: 36,2421           05331                           TC       2PHSCHNG                              
032076,000404: 36,2422           40033                           OCT      40033                                 
032077,000405: 
032078,000406: 36,2423           05014                           OCT      05014                                 
032079,000407: 36,2424           77777                           OCT      77777                                 
032080,000408: 
032081,000409: 36,2425           34731        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
032082,000410: 36,2426           70103                           MASK     FLAGWRD7                              #    TO OUR ENGINE ENABLE REQUEST?
032083,000411: 36,2427           10000                           CCS      A                                     
032084,000412: 36,2430           12433                           TCF      IGNITION                              
032085,000413: 36,2431           51455                           INDEX    WHICH                                 
032086,000414: 36,2432           00012                           TC       12                                    
032087,000415: 
032088,000416: 36,2433           40101        IGNITION           CS       FLAGWRD5                              #  INSURE ENGONFLG IS SET.
032089,000417: 36,2434           74736                           MASK     ENGONBIT                              
032090,000418: 36,2435           26101                           ADS      FLAGWRD5                              
032091,000419: 36,2436           44346                           CS       PRIO30                                #  TURN ON THE ENGINE.
032092,000420: 36,2437           00006                           EXTEND                                         
032093,000421: 36,2440           02011                           RAND     DSALMOUT                              
032094,000422: 36,2441           64730                           AD       BIT13                                 
032095,000423: 36,2442           00006                           EXTEND                                         
032096,000424: 36,2443           01011                           WRITE    DSALMOUT                              
032097,000425: 36,2444           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
032098,000426: 36,2445           30025                           DCA      TIME2                                 
032099,000427: 36,2446           53342                           DXCH     TEVENT                                
032100,000428: 
032101,000429: 36,2447           44726                           CS       PULSES                                #  MAKE SURE THAT DAP IS NOT IN MINIMUM
032102,000430: 36,2450           70111                           MASK     DAPBOOLS                              #  IMPULSE MODE IN P12,P40,P42,AND P63
032103,000431: 36,2451           54111                           TS       DAPBOOLS                              
032104,000432: 

Page 734

032106,000434: 36,2452           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
032107,000435: 36,2453           31517                           DCA      TGO                                   
032108,000436: 36,2454           53442                           DXCH     TIG                                   
032109,000437: 36,2455           00006                           EXTEND                                         
032110,000438: 36,2456           30025                           DCA      TIME2                                 
032111,000439: 36,2457           21442                           DAS      TIG                                   
032112,000440: 
032113,000441: 36,2460           44733                           CS       FLUNDBIT                              #  PERMIT GUIDANCE LOOP DISPLAYS
032114,000442: 36,2461           70104                           MASK     FLAGWRD8                              
032115,000443: 36,2462           54104                           TS       FLAGWRD8                              
032116,000444: 
032117,000445: 36,2463           51455                           INDEX    WHICH                                 
032118,000446: 36,2464           00013                           TC       13                                    
032119,000447: 
032120,000448: 36,2465           00006        P63IGN             EXTEND                                         #  (13)  INITIATE BURN DISPLAYS
032121,000449: 36,2466           33136                           DCA      LUNLANAD                              
032122,000450: 36,2467           53252                           DXCH     AVGEXIT                               
032123,000451: 
032124,000452: 36,2470           30005                           CA       Z                                     #  ASSASSINATE CLOKTASK
032125,000453: 36,2471           55162                           TS       DISPDEX                               
032126,000454: 
032127,000455: 36,2472           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
032128,000456: 36,2473           74734                           MASK     LETABBIT                              
032129,000457: 36,2474           26105                           ADS      FLAGWRD9                              
032130,000458: 
032131,000459: 36,2475           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
032132,000460: 36,2476           30025                           DCA      TIME2                                 
032133,000461: 36,2477           53442                           DXCH     TIG                                   
032134,000462: 
032135,000463: 36,2500           34746                           CAF      ZERO                                  #  INITIALIZE WCHPHASE AND FLPASSO
032136,000464: 36,2501           55346                           TS       WCHPHASE                              
032137,000465: 36,2502           55621                           TS       WCHPHOLD                              #  ALSO WHCPHOLD
032138,000466: 36,2503           34743                           CA       TWO                                   
032139,000467: 36,2504           55623                           TS       FLPASS0                               
032140,000468: 
032141,000469: 36,2505           12540                           TCF      P42IGN                                
032142,000470: 36,2506           40101        P40IGN             CS       FLAGWRD5                              #  (13)
032143,000471: 36,2507           74731                           MASK     NOTHRBIT                              
032144,000472: 36,2510           00006                           EXTEND                                         
032145,000473: 36,2511           12540                           BZF      P42IGN                                
032146,000474: 36,2512           31422                           CA       ZOOMTIME                              
032147,000475: 36,2513           05205                           TC       WAITLIST                              
032148,000476: 36,2514  E7,1515                                  EBANK=   DVCNTR                                
032149,000477: 36,2514           03670 72067                     2CADR    ZOOM                                  
032150,000478: 36,2516           05331        P63IGN1            TC       2PHSCHNG                              
032151,000479: 36,2517           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
032152,000480: 36,2520           05014                           OCT      05014                                 #  TYPE C RESTARTS HERE IMMEDIATELY
032153,000481: 36,2521           77777                           OCT      77777                                 
032154,000482: 

Page 735

032156,000484: 
032157,000485: 36,2522           12540                           TCF      P42IGN                                
032158,000486: 36,2523           35006        P12IGN             CAF      EBANK6                                
032159,000487: 36,2524           54003                           TS       EBANK                                 
032160,000488: 36,2525  E6,1536                                  EBANK=   AOSQ                                  
032161,000489: 
032162,000490: 36,2525           31412                           CA       IGNAOSQ                               #  INITIALIZE DAP BIAS ACCELERATION
032163,000491: 36,2526           55536                           TS       AOSQ                                  #       ESTIMATES AT P12 IGNITION.
032164,000492: 36,2527           31413                           CA       IGNAOSR                               
032165,000493: 36,2530           55540                           TS       AOSR                                  
032166,000494: 
032167,000495: 36,2531           35007                           CAF      EBANK7                                
032168,000496: 36,2532           54003                           TS       EBANK                                 
032169,000497: 36,2533  E7,1515                                  EBANK=   DVCNTR                                
032170,000498: 
032171,000499: 36,2533           30005        ABRTIGN            CA       Z                                     #  (13) KILL CLOKTASK
032172,000500: 36,2534           55162                           TS       DISPDEX                               
032173,000501: 
032174,000502: 36,2535           00006                           EXTEND                                         #  CONNECT ASCENT GYIDANCE TO SERVICER.
032175,000503: 36,2536           33140                           DCA      ATMAGADR                              
032176,000504: 36,2537           53252                           DXCH     AVGEXIT                               
032177,000505: 
032178,000506: 36,2540           44735        P42IGN             CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
032179,000507: 36,2541           70111                           MASK     DAPBOOLS                              #    CURVES ARE USED.
032180,000508: 36,2542           54111                           TS       DAPBOOLS                              

Note: The three statements above from CS DRIFTBIT to TS DAPBOOLS are marked and pu into blue pen braces

032183,000511: 36,2543           34734                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
032184,000512: 36,2544           70076                           MASK     FLAGWRD2                              
032185,000513: 36,2545           10000                           CCS      A                                     
032186,000514: 36,2546           13523                           TCF      IMPLBURN                              
032187,000515: 
032188,000516: 36,2547           05520        DVMONCON           TC       DOWNFLAG                              
032189,000517: 36,2550           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
032190,000518: 36,2551           05520                           TC       DOWNFLAG                              
032191,000519: 36,2552           00154                           ADRES    ASTNFLAG                              
032192,000520: 36,2553           05520                           TC       DOWNFLAG                              
032193,000521: 36,2554           00161                           ADRES    IDLEFLAG                              
032194,000522: 
032195,000523: 36,2555           05355                           TC       PHASCHNG                              
032196,000524: 36,2556           40054                           OCT      40054                                 
032197,000525: 
032198,000526: 36,2557           05223                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
032199,000527: 36,2560           00062                           DEC      50         B-14                       #  LIGHT UP.
032200,000528: 
032201,000529: 36,2561           02652        ULLAGOFF           TC       NOULLAGE                              
032202,000530: 
032203,000531: 36,2562           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
032204,000532: 36,2563           34746                           DCA      NEG0                                  
032205,000533: 36,2564           52760                           DXCH     -PHASE4                               
032206,000534: 
032207,000535: 36,2565           15263                           TCF      TASKOVER                              
032208,000536: 

Page 736

032210,000538: 36,2566           04626        TIGTASK            TC       POSTJUMP                              #  (12)
032211,000539: 36,2567           73657                           CADR     TIGTASK1                              
032212,000540: 
032213,000541:                                                                                                  #        ****************************************
032214,000542: 
032215,000543: 31,2144                                           BANK     31                                    
032216,000544: 35,2000                                           SETLOC   P40S3                                 
032217,000545: 35,2000                                           BANK                                           
032218,000546: 35,3657                                           COUNT*   $$/P40                                
032219,000547: 
032220,000548: 35,3657           35017        TIGTASK1           CAF      PRIO16                                
032221,000549: 35,3660           05063                           TC       NOVAC                                 
032222,000550: 35,3661  E7,1462                                  EBANK=   TRKMKCNT                              
032223,000551: 35,3661           03240 74067                     2CADR    TIGNOW                                
032224,000552: 
032225,000553: 35,3663           05520                           TC       DOWNFLAG                              
032226,000554: 35,3664           00303                           ADRES    PULSEFLG                              
032227,000555: 
032228,000556: 35,3665           05355                           TC       PHASCHNG                              
032229,000557: 35,3666           00006                           OCT      6                                     #  KILL GROUP 6.
032230,000558: 
032231,000559: 35,3667           15263                           TCF      TASKOVER                              
032232,000560: 
032233,000561: 
032234,000562:                                                                                                  #        ****************************************
032235,000563: 
032236,000564: 35,3670           05323        ZOOM               TC       CHECKMM                               #  P40 OR P63?
032237,000565: 35,3671           00077                           DEC      63         B-14                       
032238,000566: 35,3672           13700                           TCF      P40ZOOM                               
032239,000567: 
032240,000568: 35,3673           05506        P63ZOOM            TC       UPFLAG                                #  INDICATE THAT THROTTLE-UP HAS COME
032241,000569: 35,3674           00122                           ADRES    ZOOMFLAG                              
032242,000570: 
032243,000571: 35,3675           04665                           TC       IBNKCALL                              
032244,000572: 35,3676           62334                           CADR     FLATOUT                               
032245,000573: 35,3677           13705                           TCF      P40ZOOMA                              
032246,000574: 
032247,000575: 35,3700           34730        P40ZOOM            CAF      BIT13                                 
032248,000576: 35,3701           54055                           TS       THRUST                                
032249,000577: 35,3702           34741                           CAF      BIT4                                  
032250,000578: 
032251,000579: 35,3703           00006                           EXTEND                                         
032252,000580: 35,3704           05014                           WOR      CHAN14                                
032253,000581: 
032254,000582: 35,3705           05355        P40ZOOMA           TC       PHASCHNG                              
032255,000583: 35,3706           00003                           OCT      3                                     
032256,000584: 35,3707           15263                           TCF      TASKOVER                              
032257,000585: 
032258,000586: 
032259,000587: 36,2570                                           BANK     36                                    
032260,000588: 

Page 737

032262,000590: 36,2000                                           SETLOC   P40S                                  
032263,000591: 36,2000                                           BANK                                           
032264,000592: 36,2570                                           COUNT*   $$/P40                                
032265,000593: 
032266,000594:                                                                                                  #        ****************************************
032267,000595: 
032268,000596: 36,2570           05506        COMFAIL            TC       UPFLAG                                #  (15)
032269,000597: 36,2571           00161                           ADRES    IDLEFLAG                              
032270,000598: 36,2572           05506                           TC       UPFLAG                                #  SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032271,000599: 36,2573           00175                           ADRES    FLUNDISP                              
032272,000600: 36,2574           34742                           CAF      FOUR                                  #  RESET DVMON
032273,000601: 36,2575           55515                           TS       DVCNTR                                
032274,000602: 36,2576           10764                           CCS      PHASE6                                #  CLOCKTASK ACTIVE?
032275,000603: 36,2577           12602                           TCF      +3                                    #  YES
032276,000604: 36,2600           04607                           TC       BANKCALL                              #  OTHERWISE, START IT UP
032277,000605: 36,2601           74662                           CADR     STCLOK1                               
032278,000606: 36,2602           44756                 +3        CS       VB97DEX                               
032279,000607: 36,2603           55162                           TS       DISPDEX                               
032280,000608: 36,2604           05355                           TC       PHASCHNG                              #  TURN OFF GROUP 4.
032281,000609: 36,2605           00004                           OCT      00004                                 
032282,000610: 36,2606           15146                           TCF      ENDOFJOB                              
032283,000611: 
032284,000612: 36,2607           51455        COMFAIL1           INDEX    WHICH                                 
032285,000613: 36,2610           00002                           TC       2                                     
032286,000614: 
032287,000615: 36,2611           30005        COMFAIL3           CA       Z                                     #  (15)       KILL CLOKTASK USING Z
032288,000616: 36,2612           12614                           TCF      +2                                    
032289,000617: 
032290,000618: 36,2613           44753        COMFAIL4           CS       CNTDNDEX                              
032291,000619: 36,2614           55162                           TS       DISPDEX                               
032292,000620: 
032293,000621: 36,2615           05520                           TC       DOWNFLAG                              #  RECONNECT DV MONITOR
032294,000622: 36,2616           00161                           ADRES    IDLEFLAG                              
032295,000623: 36,2617           05520                           TC       DOWNFLAG                              #  PERMIT GUIDANCE LOOP DISPLAYS
032296,000624: 36,2620           00175                           ADRES    FLUNDISP                              
032297,000625: 36,2621           15146                           TCF      ENDOFJOB                              
032298,000626: 
032299,000627: 36,2622           05355        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
032300,000628: 36,2623           00003                           OCT      00003                                 
032301,000629: 
032302,000630: 36,2624           00004                           INHINT                                         
032303,000631: 36,2625           06050                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
032304,000632: 36,2626           73670                           CADR     ZOOM                                  
032305,000633: 36,2627           04665                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
032306,000634: 36,2630           75562                           CADR     ENGINOF4                              
032307,000635: 36,2631           05506                           TC       UPFLAG                                #  SET THE DRIFT BIT FOR THE DAP.
032308,000636: 36,2632           00312                           ADRES    DRIFTDFL                              

Note: Above two instructions and operands TC ... and ADRES ... are encircled with a blue pen

032310,000638: 36,2633           02644                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
032311,000639: 36,2634           00310                           ADRES    AORBTFLG                              
032312,000640: 

Page 738

032314,000642: 36,2635           05506                           TC       UPFLAG                                #  TURN ON ULLAGE
032315,000643: 36,2636           00314                           ADRES    ULLAGFLG                              
032316,000644: 36,2637           34744                           CAF      BIT1                                  
032317,000645: 36,2640           00004                           INHINT                                         
032318,000646: 36,2641           05175                           TC       TWIDDLE                               
032319,000647: 36,2642           02354                           ADRES    TIG-5                                 
032320,000648: 36,2643           15146                           TCF      ENDOFJOB                              
032321,000649: 
032322,000650: 
032323,000651:                                                                                                  #        ****************************************
032324,000652:                                                                                                  #        SUBROUTINES OF THE IGNITION ROUTINE
032325,000653:                                                                                                  #        ****************************************
032326,000654: 
032327,000655: 36,2644           30002        INVFLAG            CA       Q                                     
032328,000656: 36,2645           05524                           TC       DEBIT                                 
032329,000657: 36,2646           40000                           COM                                            
032330,000658: 36,2647           00006                           EXTEND                                         
032331,000659: 36,2650           06001                           RXOR     LCHAN                                 
032332,000660: 36,2651           15513                           TCF      COMFLAG                               
032333,000661: 
032334,000662: 
032335,000663:                                                                                                  #        ****************************************
032336,000664: 
032337,000665: 36,2652           44737        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
032338,000666: 36,2653           70111                           MASK     DAPBOOLS                              
032339,000667: 36,2654           54111                           TS       DAPBOOLS                              
032340,000668: 36,2655           00002                           TC       Q                                     
032341,000669: 
032342,000670: 
032343,000671:                                                                                                  #        ****************************************
032344,000672: 
032345,000673: 36,2656           40111        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
032346,000674: 36,2657           74737                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
032347,000675: 36,2660           26111                           ADS      DAPBOOLS                              
032348,000676: 36,2661           00002                           TC       Q                                     
032349,000677: 
032350,000678: 
032351,000679:                                                                                                  #        ****************************************
032352,000680: 
032353,000681: 36,2662           34746        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
032354,000682: 36,2663           55162        STCLOK2            TS       DISPDEX                               #  (CLOKTASK AND CLOKJOB).     SETTING
032355,000683: 36,2664           04636        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
032356,000684: 36,2665           55060                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
032357,000685: 36,2666           00006                           EXTEND                                         
032358,000686: 36,2667           31442                           DCA      TIG                                   
032359,000687: 36,2670           52155                           DXCH     MPAC                                  
032360,000688: 36,2671           00006                           EXTEND                                         
032361,000689: 36,2672           40025                           DCS      TIME2                                 
032362,000690: 36,2673           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032363,000691: 36,2674           07300                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE
032364,000692: 

Page 739

032366,000694: 36,2675           34770                           CAF      1SEC                                  #    45 SECOND CHECK
032367,000695: 36,2676           54002                           TS       Q                                     
032368,000696: 36,2677           52155                           DXCH     MPAC                                  
032369,000697: 36,2700           74337                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
032370,000698: 36,2701           00006                           EXTEND                                         
032371,000699: 36,2702           10002                           DV       Q                                     
032372,000700: 36,2703           30001                           CA       L                                     #  GET REMAINDER
032373,000701: 36,2704           64743                           AD       TWO                                   
032374,000702: 36,2705           00004                           INHINT                                         
032375,000703: 36,2706           05175                           TC       TWIDDLE                               
032376,000704: 36,2707           02716                           ADRES    CLOKTASK                              
032377,000705: 36,2710           05331                           TC       2PHSCHNG                              
032378,000706: 36,2711           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
032379,000707: 36,2712           05024                           OCT      05024                                 
032380,000708: 36,2713           13000                           OCT      13000                                 
032381,000709: 
032382,000710: 36,2714           31060                           CA       TBASE4                                
032383,000711: 36,2715           04631                           TC       BANKJUMP                              
032384,000712: 
032385,000713: 36,2716           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
032386,000714: 36,2717           55064                           TS       TBASE6                                
032387,000715: 
032388,000716: 36,2720           11162                           CCS      DISPDEX                               
032389,000717: 36,2721           12732                           TCF      KILLCLOK                              
032390,000718: 36,2722           12723                           NOOP                                           
032391,000719: 36,2723           37736                           CAF      PRIO27                                
032392,000720: 36,2724           05063                           TC       NOVAC                                 
032393,000721: 36,2725  E7,1453                                  EBANK=   TTOGO                                 
032394,000722: 36,2725           02736 74067                     2CADR    CLOKJOB                               
032395,000723: 
032396,000724: 
032397,000725: 36,2727           05223                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
032398,000726: 36,2730           00144                           DEC      100        B-14                       
032399,000727: 36,2731           12716                           TCF      CLOKTASK                              
032400,000728: 
032401,000729: 
032402,000730: 36,2732           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
032403,000731: 36,2733           34746                           DCA      NEG0                                  
032404,000732: 36,2734           52764                           DXCH     -PHASE6                               
032405,000733: 36,2735           15263                           TCF      TASKOVER                              
032406,000734: 
032407,000735: 
032408,000736: 36,2736           00006        CLOKJOB            EXTEND                                         
032409,000737: 36,2737           41442                           DCS      TIG                                   
032410,000738: 36,2740           53454                           DXCH     TTOGO                                 
032411,000739: 36,2741           00006                           EXTEND                                         
032412,000740: 36,2742           30025                           DCA      TIME2                                 
032413,000741: 36,2743           21454                           DAS      TTOGO                                 
032414,000742: 

Page 740

032416,000744: 36,2744           00004                           INHINT                                         
032417,000745: 36,2745           11162                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
032418,000746: 36,2746           15146                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
032419,000747: 36,2747           15146                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
032420,000748: 36,2750           40000                           COM                                            #  INDEX.
032421,000749: 36,2751           00003                           RELINT                                         #  ***** DISPDEX MUST NEVER BE -0 *****
032422,000750: 36,2752           50000                           INDEX    A                                     
032423,000751: 36,2753           13010                           TCF      DISPNOT    -1                         #  (-1 DUE TO EFFECT OF CCS)
032424,000752: 
032425,000753: 36,2754     4756               VB97DEX            =        OCT35                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032426,000754: 
032427,000755: 36,2754           44746                 -35       CS       ZERO                                  #  INDICATE VERB 97 PASTE
032428,000756: 36,2755           55066                           TS       NVWORD1                               
032429,000757: 36,2756           30370                           CA       NVWORD     +2                         #  NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
032430,000758: 36,2757           04607                           TC       BANKCALL                              
032431,000759: 36,2760           20466                           CADR     CLOCPLAY                              
032432,000760: 36,2761           13012                           TCF      STOPCLOK                              #  TERMINATE CLOKTASK ON THE WAY TO P00H
032433,000761: 36,2762           12607                           TCF      COMFAIL1                              
032434,000762: 36,2763           12622                           TCF      COMFAIL2                              
032435,000763: 
032436,000764:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK
032437,000765: 36,2764           33145                 -25       CAF      V06N61                                #  IT IS PRIMARILY USED BY THE CREW IN P63
032438,000766: 36,2765           04607                           TC       BANKCALL                              #  TO RESET HIS EVENT TIMER TO AGREE WITH
032439,000767: 36,2766           20452                           CADR     REFLASH                               #  TIG.
032440,000768: 36,2767           13012                           TCF      STOPCLOK                              
032441,000769: 36,2770           13027                           TCF      ASTNRETN                              
032442,000770: 36,2771           12764                           TCF      -5                                    
032443,000771: 
032444,000772: 36,2772     4753               CNTDNDEX           =        LOW4                                  #  OCT17: NEGATIVE PROPER FOR DISPDEX
032445,000773: 
032446,000774: 36,2772           51455                 -17       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
032447,000775: 36,2773           30000                           CAF      0                                     #  INTERVALS. IT IS NORMALLY OPERATED
032448,000776: 36,2774           04607                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
032449,000777: 36,2775           20460                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
032450,000778: 
032451,000779: 36,2776     4751               VB99DEX            =        ELEVEN                                #  OCT13: NEGATIVE PROPER FOR DISPDEX
032452,000780: 
032453,000781: 36,2776                        V99RECYC           EQUALS                                         
032454,000782: 
032455,000783: 36,2776           44734                 -13       CS       BIT9                                  #  INDICATE VERB 99 PASTE
032456,000784: 36,2777           55066                           TS       NVWORD1                               
032457,000785: 36,3000           51455                           INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
032458,000786: 36,3001           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
032459,000787: 36,3002           04607                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
032460,000788: 36,3003           20466                           CADR     CLOCPLAY                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
032461,000789: 36,3004           13012                           TCF      STOPCLOK                              #  TERMINATE GOTOPOOH TURNS OFF ULLAGE.
032462,000790: 36,3005           13040                           TCF      *PROCEED                              
032463,000791: 36,3006           13043                           TCF      *ENTER                                
032464,000792: 
032465,000793: 36,3007     4743               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032466,000794: 

Page 741

032468,000796: 
032469,000797: 36,3007           04607                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
032470,000798: 36,3010           20451                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
032471,000799: 36,3011           15146        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
032472,000800: 
032473,000801: 
032474,000802: 36,3012           03014        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
032475,000803: 36,3013           16001                           TCF      GOTOPOOH                              #      WAY TO P00  (GOTOPOOH RELINTS)
032476,000804: 
032477,000805: 36,3014           00004        NULLCLOK           INHINT                                         
032478,000806: 36,3015           00006                           EXTEND                                         
032479,000807: 36,3016           23141                           QXCH     P40/RET                               
032480,000808: 36,3017           02652                           TC       NOULLAGE                              #  TURN OFF ULLAGE...
032481,000809: 36,3020           06050                           TC       KILLTASK                              #       DON'T LET IT COME ON, EITHER...
032482,000810: 36,3021           74350                           CADR     ULLGTASK                              
032483,000811: 36,3022           05355                           TC       PHASCHNG                              #             NOT EVEN IF THERE'S A RESTART.
032484,000812: 36,3023           00001                           OCT      1                                     
032485,000813: 36,3024           30005                           CA       Z                                     #  KILL CLOKTASK
032486,000814: 36,3025           55162                           TS       DISPDEX                               
032487,000815: 36,3026           01141                           TC       P40/RET                               
032488,000816: 
032489,000817: 
032490,000818: 36,3027           05355        ASTNRETN           TC       PHASCHNG                              
032491,000819: 36,3030           04024                           OCT      04024                                 
032492,000820: 36,3031           34746                           CAF      ZERO                                  #  STOP DISPLAYING BUT KEEP RUNNING.
032493,000821: 36,3032           55162                           TS       DISPDEX                               
032494,000822: 36,3033           35014                           CAF      PRIO13                                
032495,000823: 36,3034           05076                           TC       FINDVAC                               
032496,000824: 36,3035  E5,1757                                  EBANK=   STARIND                               
032497,000825: 36,3035           03022 64065                     2CADR    ASTNRET                               
032498,000826: 
032499,000827: 36,3037           15146                           TCF      ENDOFJOB                              
032500,000828: 
032501,000829: 
032502,000830: 36,3040           05506        *PROCEED           TC       UPFLAG                                
032503,000831: 36,3041           00154                           ADRES    ASTNFLAG                              
032504,000832: 
032505,000833: 36,3042           13101                           TCF      IGNITE                                
032506,000834: 
032507,000835: 
032508,000836: 36,3043           00004        *ENTER             INHINT                                         
032509,000837: 36,3044           51455                           INDEX    WHICH                                 
032510,000838: 36,3045           00003                           TC       3                                     
032511,000839: 
032512,000840: 36,3046           34635        GOPOST             CAF      PRIO12                                #  (3) MUST BE LOWER PRIORITY THAN CLOKJOB
032513,000841: 36,3047           05076                           TC       FINDVAC                               
032514,000842: 36,3050  E7,1453                                  EBANK=   TTOGO                                 
032515,000843: 36,3050           03222 74067                     2CADR    POSTBURN                              
032516,000844: 36,3052           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032517,000845: 36,3053           04665                           TC       IBNKCALL                              
032518,000846: 

Page 742

032520,000848: 36,3054           40205                           CADR     ALLCOAST                              
032521,000849: 36,3055           03014                           TC       NULLCLOK                              
032522,000850: 36,3056           05355                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
032523,000851: 36,3057           00134                           OCT      00134                                 
032524,000852: 
032525,000853: 36,3060           15146                           TCF      ENDOFJOB                              
032526,000854: 
032527,000855: 
032528,000856: 36,3061           35020        GOCUTOFF           CAF      PRIO17                                #  (3)
032529,000857: 36,3062           05076                           TC       FINDVAC                               
032530,000858: 36,3063  E7,1516                                  EBANK=   TGO                                   
032531,000859: 36,3063           03526 70067                     2CADR    CUTOFF                                
032532,000860: 
032533,000861: 36,3065           05520                           TC       DOWNFLAG                              
032534,000862: 36,3066           00175                           ADRES    FLUNDISP                              
032535,000863: 
032536,000864: 36,3067           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032537,000865: 36,3070           04665                           TC       IBNKCALL                              
032538,000866: 36,3071           40205                           CADR     ALLCOAST                              
032539,000867: 36,3072           03014                           TC       NULLCLOK                              
032540,000868: 36,3073           05355                           TC       PHASCHNG                              
032541,000869: 36,3074           07024                           OCT      07024                                 
032542,000870: 36,3075           17000                           OCT      17000                                 
032543,000871: 36,3076  E7,1516                                  EBANK=   TGO                                   
032544,000872: 36,3076           03526 70067                     2CADR    CUTOFF                                
032545,000873: 
032546,000874: 36,3100           15146                           TCF      ENDOFJOB                              
032547,000875: 
032548,000876: 
032549,000877: 36,3101           40103        IGNITE             CS       FLAGWRD7                              #  (2)
032550,000878: 36,3102           74730                           MASK     IGNFLBIT                              
032551,000879: 36,3103           10000                           CCS      A                                     
032552,000880: 36,3104           13115                           TCF      IGNITE1                               
032553,000881: 36,3105           34744                           CAF      BIT1                                  
032554,000882: 36,3106           00004                           INHINT                                         
032555,000883: 36,3107           05175                           TC       TWIDDLE                               
032556,000884: 36,3110           02433                           ADRES    IGNITION                              
032557,000885: 
032558,000886: 36,3111           34351                           CAF      OCT23                                 #  IMMEDIATE RESTART AT IGNITION.
032559,000887: 36,3112           54001                           TS       L                                     
032560,000888: 36,3113           40000                           COM                                            
032561,000889: 36,3114           52760                           DXCH     -PHASE4                               
032562,000890: 
032563,000891: 36,3115           44753        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
032564,000892: 36,3116           55162                           TS       DISPDEX                               
032565,000893: 
032566,000894: 36,3117           15146                           TCF      ENDOFJOB                              
032567,000895: 
032568,000896:                                                                                                  #        ****************************************
032569,000897: 

Page 743

032571,000899: 
032572,000900: 36,3120           05571        P40ALM             TC       ALARM                                 #  PROGRAM SELECTION NOT CONSISTENT WITH
032573,000901: 36,3121           01706                           OCT      1706                                  #  VEHICLE CONFIGURATION
032574,000902: 
032575,000903: 36,3122           34777        REP40ALM           CAF      V05N09                                #  (14)
032576,000904: 36,3123           04607                           TC       BANKCALL                              
032577,000905: 36,3124           20471                           CADR     GOFLASH                               
032578,000906: 
032579,000907: 36,3125           16001                           TCF      GOTOPOOH                              #  V34E  TERMINATE
032580,000908: 36,3126           13130                           TCF      +2                                    #  PROCEED  CHECK FOR P42
032581,000909: 36,3127           13122                           TCF      REP40ALM                              #  V32E  REDISPLAY ALARM
032582,000910: 
032583,000911: 36,3130           51455                           INDEX    WHICH                                 #  FOR P42, ALLOW CREW TO PROCEED EVEN
032584,000912: 36,3131           00014                           TC       14                                    #  THOUGH VEHICLE IS UNSTAGED.
032585,000913: 
032586,000914:                                                                                                  #        ****************************************
032587,000915: 
032588,000916: 
032589,000917: 31,2144                                           BANK     31                                    
032590,000918: 35,2000                                           SETLOC   P40S2                                 
032591,000919: 35,2000                                           BANK                                           
032592,000920: 
032593,000921: 35,3710                                           COUNT*   $$/P40                                
032594,000922: 
032595,000923: 35,3710           04636        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
032596,000924: 35,3711           55163                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
032597,000925: 35,3712           04607        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
032598,000926: 35,3713           54267                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
032599,000927: 35,3714           10000                           CCS      A                                     #  +0 INDICATES IN PGNCS, IN AUTO
032600,000928: 35,3715           13733                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
032601,000929: 35,3716           34730                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
032602,000930: 35,3717           70106                           MASK     FLGWRD10                              
032603,000931: 35,3720           10000                           CCS      A                                     
032604,000932: 35,3721           13740                           TCF      GOBACK                                #  RETURN
032605,000933: 35,3722           34741                           CAF      BIT4                                  
032606,000934: 35,3723           70374                           MASK     CHANBKUP                              
032607,000935: 35,3724           10000                           CCS      A                                     
032608,000936: 35,3725           13740                           TCF      GOBACK                                #  IGN6RE CHAN 30 BIT 5.  ASSUME AUTO THROT
032609,000937: 
032610,000938: 35,3726           34740                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
032611,000939: 35,3727           00006                           EXTEND                                         
032612,000940: 35,3730           02030                           RAND     CHAN30                                
032613,000941: 35,3731           00006                           EXTEND                                         
032614,000942: 35,3732           13740                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN
032615,000943: 35,3733           33742        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203  PLEASE PERFORM
032616,000944: 35,3734           04607                           TC       BANKCALL                              #  CHECKLIST 203 TURN ON PGNCS ETC.
032617,000945: 35,3735           20635                           CADR     GOPERF1                               
032618,000946: 35,3736           16001                           TCF      GOTOPOOH                              #  V34E TERMINATE
032619,000947: 35,3737           13712                           TCF      P40A/P                                #  RECYCLE
032620,000948: 35,3740           31163        GOBACK             CA       TEMPR60                               
032621,000949: 35,3741           04631                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
032622,000950: 

Page 744

032624,000952: 
032625,000953: 35,3742           00203        P40A/PMD           OCT      00203                                 
032626,000954: 
032627,000955: 36,3132                                           BANK     36                                    
032628,000956: 36,2000                                           SETLOC   P40S                                  
032629,000957: 36,2000                                           BANK                                           
032630,000958: 
032631,000959: 36,3132                                           COUNT*   $$/P40                                
032632,000960: 
032633,000961:                                                                                                  #        ****************************************
032634,000962:                                                                                                  #        CONSTANTS FOR THE IGNITION ROUTINE
032635,000963:                                                                                                  #        ****************************************
032636,000964: 
032637,000965: 36,3132  36,2107               SERVCADR           =        P63TABLE   +7                         
032638,000966: 
032639,000967: 36,3132           02040        P40ADRES           ADRES    P40TABLE                              
032640,000968: 
032641,000969: 36,3133           02050        P41ADRES           ADRES    P41TABLE   -5                         
032642,000970: 
032643,000971: 36,3134           02063        P42ADRES           ADRES    P42TABLE                              
032644,000972: 
032645,000973: 36,3135  E7,1515                                  EBANK=   DVCNTR                                
032646,000974: 36,3135           02425 62067  LUNLANAD           2CADR    LUNLAND                               
032647,000975: 
032648,000976: 
032649,000977: 
032650,000978: 36,3137  E7,1515                                  EBANK=   DVCNTR                                
032651,000979: 36,3137           03375 70067  ATMAGADR           2CADR    ATMAG                                 
032652,000980: 
032653,000981: 36,3141     6001               ?                  =        GOTOPOOH                              
032654,000982: 
032655,000983: 36,3141           00000 05656  D29.9SEC           2DEC     2990       B-28                       
032656,000984: 
032657,000985: 36,3143           04672        S24.9SEC           DEC      2490       B-14                       
032658,000986: 
032659,000987: 36,3144           00752        4.9SEC             DEC      490        B-14                       
032660,000988: 
032661,000989: 36,3145     4740               OCT20              =        BIT5                                  
032662,000990: 
032663,000991: 36,3145           01475        V06N61             VN       0661                                  
032664,000992: 

Page 745

032666,000994:                                                                                                  #           KILLTASK
032667,000995:                                                                                                  #  MOD NO: NEW PROGRAM
032668,000996:                                                                                                  #  MOD BY: COVELLI
032669,000997: 
032670,000998:                                                                                                  #  FUNCTIONAL DESCRIPTION:
032671,000999: 
032672,001000:                                                                                                  #     KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
032673,001001:                                                                                                  #  WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
032674,001002:                                                                                                  #  FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
032675,001003:                                                                                                  #  LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
032676,001004: 
032677,001005:                                                                                                  #  CALLING SEQUENCE:
032678,001006:                                                                                                  #                                          L         TC     KILLTASK       IN FIXED-FIXED
032679,001007:                                                                                                  #                                          L+1       CADR   ????????       CADR (NOT 2CADR) OF TASK TO BE REMOVED.
032680,001008:                                                                                                  #                                          L+2       (RELINT)              RETURN
032681,001009: 
032682,001010:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
032683,001011: 
032684,001012:                                                                                                  #  ERASABLE INITIALIZATION=  NONE.
032685,001013: 
032686,001014:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
032687,001015: 
032688,001016:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A,L,Q.
032689,001017: 
032690,001018: 36,3146  E3,1410                                  EBANK=   LST2                                  
032691,001019:    6050                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
032692,001020:    6000                                           SETLOC   FFTAG6                                
032693,001021:    6000                                           BANK                                           
032694,001022:    6050                                           COUNT*   $$/KILL                               
032695,001023:    6050           36057        KILLTASK           CA       KILLBB                                
032696,001024:    6051           00004                           INHINT                                         
032697,001025:    6052           22000                           LXCH     A                                     
032698,001026:    6053           50002                           INDEX    Q                                     
032699,001027:    6054           30000                           CA       0                                     #  GET CADR.
032700,001028:    6055           22006                           LXCH     BBANK                                 
032701,001029:    6056           12200                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
032702,001030: 
032703,001031:    6057  E3,1410                                  EBANK=   LST2                                  
032704,001032:    6057           56063        KILLBB             BBCON    KILLTSK2                              
032705,001033: 
032706,001034: 27,2200                                           BANK     27                                    
032707,001035: 
032708,001036: 27,2000                                           SETLOC   P40S1                                 
032709,001037: 27,2000                                           BANK                                           
032710,001038: 27,2200                                           COUNT*   $$/KILL                               
032711,001039: 
032712,001040: 27,2200           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK
032713,001041: 

Page 746

032715,001043: 27,2201           24002                           INCR     Q                                     
032716,001044: 27,2202           00006                           EXTEND                                         
032717,001045: 27,2203           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
032718,001046: 
032719,001047: 27,2204           54063                           TS       ITEMP3                                #  CADR IS IN A
032720,001048: 27,2205           75003                           MASK     LOW10                                 
032721,001049: 27,2206           64732                           AD       BIT11                                 
032722,001050: 27,2207           54064                           TS       ITEMP4                                #  GENADR OF TASK
032723,001051: 
032724,001052: 27,2210           45003                           CS       LOW10                                 
032725,001053: 27,2211           70063                           MASK     ITEMP3                                
032726,001054: 27,2212           54063                           TS       ITEMP3                                #  FBANK OF TASK
032727,001055: 
032728,001056: 27,2213           22007                           ZL                                             
032729,001057: 27,2214           50001        ADRSCAN            INDEX    L                                     
032730,001058: 27,2215           41410                           CS       LST2                                  
032731,001059: 27,2216           60064                           AD       ITEMP4                                #  COMPARE GENADRS
032732,001060: 27,2217           00006                           EXTEND                                         
032733,001061: 27,2220           12232                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
032734,001062: 27,2221           44740        LETITLIV           CS       LSTLIM                                
032735,001063: 27,2222           60001                           AD       L                                     
032736,001064: 27,2223           00006                           EXTEND                                         #  ARE WE DONE?
032737,001065: 27,2224           12230                           BZF      DEAD                                  #  YES - DONE, SO RETURN
032738,001066: 27,2225           24001                           INCR     L                                     
032739,001067: 27,2226           24001                           INCR     L                                     
032740,001068: 27,2227           12214                           TCF      ADRSCAN                               #  CONTINUE LOOP.
032741,001069: 
032742,001070: 27,2230           52062        DEAD               DXCH     ITEMP1                                
032743,001071: 27,2231           52006                           DTCB                                           
032744,001072: 
032745,001073: 27,2232           45003        TSTFBANK           CS       LOW10                                 
032746,001074: 27,2233           50001                           INDEX    L                                     
032747,001075: 27,2234           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
032748,001076: 27,2235           00006                           EXTEND                                         
032749,001077: 27,2236           60063                           SU       ITEMP3                                
032750,001078: 27,2237           00006                           EXTEND                                         
032751,001079: 27,2240           12242                           BZF      KILLDEAD                              #  MATCH - KILL IT.
032752,001080: 27,2241           12221                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
032753,001081: 
032754,001082: 27,2242           34344        KILLDEAD           CA       TCTSKOVR                              
032755,001083: 27,2243           50001                           INDEX    L                                     
032756,001084: 27,2244           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
032757,001085: 27,2245           12230                           TCF      DEAD                                  
032758,001086: 
032759,001087: 27,2246     4740               LSTLIM             EQUALS   BIT5                                  #  DEC 16

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