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.

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

Page 726

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

Page 727

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

Page 728

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

Page 729

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

Page 730

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

Page 731

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

Page 732

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

Page 733

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

Page 734

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

Page 735

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

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

Page 736

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

Page 737

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

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

032318,000638: 36,2633           02644                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
032319,000639: 36,2634           00310                           ADRES    AORBTFLG                              
032320,000640: 

Page 738

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

Page 739

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

Page 740

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

Page 741

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

Page 742

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

Page 743

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

Page 744

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

Page 745

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

Page 746

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