Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

031568,000002:                                                                                                  ## Copyright:   Public domain.
031569,000003:                                                                                                  ## Filename:    BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
031570,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
031571,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
031572,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
031573,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
031574,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
031575,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
031576,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
031577,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
031578,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
031579,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
031580,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
031581,000015:                                                                                                  ## Reference:   pp. 717-737
031582,000016:                                                                                                  ## Assembler:   yaYUL
031583,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031584,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031585,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
031586,000020:                                                                                                  ##              2017-08-20 MAS  Updated for Zerlina 56.
031587,000021: 

Page 717

031589,000023: 36,2024                                           BANK     36                                    
031590,000024: 36,2000                                           SETLOC   P40S                                  
031591,000025: 36,2000                                           BANK                                           
031592,000026: 36,2024  E7,1455                                  EBANK=   WHICH                                 
031593,000027: 36,2024                                           COUNT*   $$/P40                                
031594,000028:                                                                                                  #      THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
031595,000029:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
031596,000030:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
031597,000031:                                                                                                  #  PROGRAMS THROTTLE UP.
031598,000032: 
031599,000033:                                                                                                  #      VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
031600,000034:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.   USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
031601,000035:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).   THE IGNITION ROUTINE THEN INDEXES BY
031602,000036:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.   THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
031603,000037:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.   THERE IS NO RETURN.
031604,000038: 
031605,000039:                                                                                                  #      THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
031606,000040: 
031607,000041: 
031608,000042:                                                                                                  #                                         HONI SOIT QUI MAL Y PENSE
031609,000043: 
031610,000044: 
031611,000045:                                                                                                  #                                  ****************************************
031612,000046:                                                                                                  #                                  TABLES FOR THE IGNITION ROUTINE
031613,000047:                                                                                                  #                                  ****************************************
031614,000048: 
031615,000049:                                                                                                  #                                              NOLI SE TANGERE
031616,000050: 
031617,000051: 36,2024           01512        P12TABLE           VN       0674                                  #  (0)
031618,000052: 36,2025           12327                           TCF      ULLGNOT                               #  (1)
031619,000053: 36,2026           12611                           TCF      COMFAIL3                              #  (2)
031620,000054: 36,2027           13061                           TCF      GOCUTOFF                              #  (3)
031621,000055: 36,2030           15272                           TCF      TASKOVER                              #  (4)
031622,000056: 36,2031           12150                           TCF      P12SPOT                               #  (5)
031623,000057: 36,2032           00000                           DEC      0          B-14                       #  (6)       NO ULLAGE
031624,000058: 36,2033  E7,1455                                  EBANK=   WHICH                                 
031625,000059: 36,2033           02102 66067                     2CADR    SERVEXIT                              #  (7)
031626,000060: 
031627,000061: 36,2035           12402                           TCF      DISPCHNG                              #  (11)
031628,000062: 36,2036           12562                           TCF      WAITABIT                              #  (12)
031629,000063: 36,2037           12523                           TCF      P12IGN                                #  (13)
031630,000064: 
031631,000065: 
031632,000066: 
031633,000067: 36,2040           01450        P40TABLE           VN       0640                                  #  (0)
031634,000068: 36,2041           12327                           TCF      ULLGNOT                               #  (1)
031635,000069: 36,2042           12613                           TCF      COMFAIL4                              #  (2)
031636,000070: 36,2043           13046                           TCF      GOPOST                                #  (3)
031637,000071: 36,2044           15272                           TCF      TASKOVER                              #  (4)
031638,000072: 36,2045           12150                           TCF      P40SPOT                               #  (5)

Page 718

031640,000074: 36,2046           04300                           DEC      2240       B-14                       #  (6)
031641,000075: 36,2047  E6,1422                                  EBANK=   OMEGAQ                                
031642,000076: 36,2047           03666 74066                     2CADR    STEERING                              #  (7)
031643,000077: 
031644,000078: 36,2051           12372                           TCF      P40SJUNK                              #  (11)
031645,000079: 36,2052           12562                           TCF      WAITABIT                              #  (12)
031646,000080: 36,2053           12506                           TCF      P40IGN                                #  (13)
031647,000081: 36,2054           13122                           TCF      REP40ALM                              #  (14)
031648,000082: 
031649,000083: 
031650,000084: 
031651,000085: 36,2055           12153        P41TABLE           TCF      P41SPOT                               #  (5)
031652,000086: 36,2056           77776                           DEC      -1         B-14                       #  (6)
031653,000087: 36,2057  E6,1422                                  EBANK=   OMEGAQ                                
031654,000088: 36,2057           02407 64066                     2CADR    CALCN85                               #  (7)
031655,000089: 
031656,000090: 36,2061           12404                           TCF      COMMON                                #  (11)
031657,000091: 36,2062           12566                           TCF      TIGTASK                               #  (12)
031658,000092: 
031659,000093: 
031660,000094: 
031661,000095: 36,2063           01450        P42TABLE           VN       0640                                  #  (0)
031662,000096: 36,2064           12324                           TCF      WANTAPS                               #  (1)
031663,000097: 36,2065           12613                           TCF      COMFAIL4                              #  (2)
031664,000098: 36,2066           13046                           TCF      GOPOST                                #  (3)
031665,000099: 36,2067           15272                           TCF      TASKOVER                              #  (4)
031666,000100: 36,2070           12150                           TCF      P42SPOT                               #  (5)
031667,000101: 36,2071           04526                           DEC      2390       B-14                       #  (6) ULLAGE ON AT TIG-6 SECS.
031668,000102: 36,2072  E6,1422                                  EBANK=   OMEGAQ                                
031669,000103: 36,2072           03666 74066                     2CADR    STEERING                              #  (7)
031670,000104: 
031671,000105: 36,2074           12372                           TCF      P40SJUNK                              #  (11)
031672,000106: 36,2075           12562                           TCF      WAITABIT                              #  (12)
031673,000107: 36,2076           12540                           TCF      P42IGN                                #  (13)
031674,000108: 36,2077           13421                           TCF      P42STAGE                              #  (14)
031675,000109: 
031676,000110: 
031677,000111: 
031678,000112: 36,2100           01476        P63TABLE           VN       0662                                  #  (0)
031679,000113: 36,2101           12327                           TCF      ULLGNOT                               #  (1)
031680,000114: 36,2102           12611                           TCF      COMFAIL3                              #  (2)
031681,000115: 36,2103           12776                           TCF      V99RECYC                              #  (3)
031682,000116: 36,2104           15272                           TCF      TASKOVER                              #  (4)
031683,000117: 36,2105           12153                           TCF      P63SPOT                               #  (5)
031684,000118: 36,2106           04300                           DEC      2240       B-14                       #  (6)
031685,000119: 36,2107  E7,1455                                  EBANK=   WHICH                                 
031686,000120: 36,2107           02102 66067                     2CADR    SERVEXIT                              #  (7)
031687,000121: 
031688,000122: 36,2111           12402                           TCF      DISPCHNG                              #  (11)
031689,000123: 36,2112           12562                           TCF      WAITABIT                              #  (12)

Page 719

031691,000125: 36,2113           12465                           TCF      P63IGN                                #  (13)
031692,000126: 
031693,000127: 
031694,000128: 
031695,000129: 36,2114           01477        ABRTABLE           VN       0663                                  #  (0)
031696,000130: 36,2115           12327                           TCF      ULLGNOT                               #  (1)
031697,000131: 36,2116           12611                           TCF      COMFAIL3                              #  (2)
031698,000132: 36,2117           13061                           TCF      GOCUTOFF                              #  (3)
031699,000133: 36,2120           15272                           TCF      TASKOVER                              #  (4)
031700,000134: 36,2121           12122                           NOOP                                           #  (5)
031701,000135: 36,2122           12123                           NOOP                                           #  (6)
031702,000136: 36,2123           12124                           NOOP                                           #  (7)
031703,000137: 36,2124           12125                           NOOP                                           
031704,000138: 36,2125           12402                           TCF      DISPCHNG                              #  (11)
031705,000139: 36,2126           12562                           TCF      WAITABIT                              #  (12)
031706,000140: 36,2127           12533                           TCF      ABRTIGN                               #  (13)
031707,000141: 
031708,000142: 
031709,000143: 
031710,000144:                                                                                                  #                                  ****************************************
031711,000145:                                                                                                  #                                  GENERAL PURPOSE IGNITION ROUTINES
031712,000146:                                                                                                  #                                  ****************************************
031713,000147: 
031714,000148: 36,2130           05364        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
031715,000149: 36,2131           04024                           OCT      04024                                 
031716,000150: 
031717,000151: 36,2132           34755                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
031718,000152: 36,2133           55507                           TS       DVTOTAL                               
031719,000153: 36,2134           55510                           TS       DVTOTAL    +1                         
031720,000154: 
031721,000155: 36,2135           04616                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
031722,000156: 36,2136           73715                           CADR     P40AUTO                               #    OWN BANK TO SET UP RETURN PROPERLY
031723,000157: 
031724,000158: 36,2137           00006        B*RNB*B*           EXTEND                                         
031725,000159: 36,2140           31442                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
031726,000160: 36,2141           53512                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
031727,000161: 
031728,000162: 36,2142           00004                           INHINT                                         
031729,000163: 36,2143           04674                           TC       IBNKCALL                              
031730,000164: 36,2144           75564                           CADR     ENGINOF3                              
031731,000165: 36,2145           00003                           RELINT                                         
031732,000166: 
031733,000167: 36,2146           51455                           INDEX    WHICH                                 
031734,000168: 36,2147           00005                           TC       5                                     
031735,000169: 
031736,000170: 36,2150  36,2150               P42SPOT            =        P40SPOT                               #  (5)
031737,000171: 36,2150  36,2150               P12SPOT            =        P40SPOT                               #  (5)
031738,000172: 36,2150  36,2153               P63SPOT            =        P41SPOT                               #  (5)      IN P63 CLOKTASK ALREADY GOING
031739,000173: 36,2150           44762        P40SPOT            CS       CNTDNDEX                              #  (5)
031740,000174: 36,2151           04616                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED

Page 720

031742,000176: 36,2152           74663                           CADR     STCLOK2                               #         RETURN
031743,000177: 36,2153           06051        P41SPOT            TC       INTPRET                               #  (5)
031744,000178: 36,2154           45345                           DLOAD    DSU                                   
031745,000179: 36,2155           03442                                    TIG                                   
031746,000180: 36,2156           35142                                    D29.9SEC                              
031747,000181: 36,2157           34041                           STCALL   TDEC1                                 
031748,000182: 36,2160           61064                                    INITCDUW                              
031749,000183: 36,2161           45014                           BOFF     CALL                                  
031750,000184: 36,2162           03347                                    MUNFLAG                               
031751,000185: 36,2163           74202                                    GOMIDAV                               
031752,000186: 36,2164           27042                                    CSMPREC                               
031753,000187: 36,2165           64375                           VLOAD    MXV                                   
031754,000188: 36,2166           00025                                    VATT1                                 
031755,000189: 36,2167           01732                                    REFSMMAT                              
031756,000190: 36,2170           77762                           VSR1                                           
031757,000191: 36,2171           25724                           STOVL    V(CSM)                                #  CSM VELOCITY - M/CS*2(7)
031758,000192: 36,2172           00017                                    RATT1                                 
031759,000193: 36,2173           64312                           VSL4     MXV                                   
031760,000194: 36,2174           01732                                    REFSMMAT                              
031761,000195: 36,2175           35716                           STCALL   R(CSM)                                #  CSM POSITION - M*2(24)
031762,000196: 36,2176           71743                                    MUNGRAV                               
031763,000197: 36,2177           16310                           STODL    G(CSM)                                #  CSM GRAVITY VEC. - M/CS*2(7)
031764,000198: 36,2200           00015                                    TAT                                   
031765,000199: 36,2201           00041                           STORE    TDEC1                                 #  RELOAD TDEC1 FOR MIDTOAV.
031766,000200: 36,2202           77624        GOMIDAV            CALRB                                          
031767,000201: 36,2203           27553                                    MIDTOAV1                              
031768,000202: 36,2204           12213                           TCF      CALLT-35                              #  MADE IT IN TIME.
031769,000203: 
031770,000204: 36,2205           00006                           EXTEND                                         #  TIG WAS SLIPPED, SO RESET TIG TO 29.9
031771,000205: 36,2206           31557                           DCA      PIPTIME1                              #  SECONDS AFTER THE TIME TO WHICH WE DID
031772,000206: 36,2207           53442                           DXCH     TIG                                   #  INTEGRATE.
031773,000207: 36,2210           00006                           EXTEND                                         
031774,000208: 36,2211           33142                           DCA      D29.9SEC                              
031775,000209: 36,2212           21442                           DAS      TIG                                   
031776,000210: 
031777,000211: 36,2213           52155        CALLT-35           DXCH     MPAC                                  
031778,000212: 36,2214           53500                           DXCH     SAVET-30                              #  DELTA-T UNTIL TIG-30
031779,000213: 36,2215           00006                           EXTEND                                         
031780,000214: 36,2216           43750                           DCS      5SECDP                                
031781,000215: 36,2217           21500                           DAS      SAVET-30                              #  DELTA-T UNTIL TIG-35
031782,000216: 36,2220           00006                           EXTEND                                         
031783,000217: 36,2221           31500                           DCA      SAVET-30                              
031784,000218: 36,2222           05310                           TC       LONGCALL                              
031785,000219: 36,2223  E7,1453                                  EBANK=   TTOGO                                 
031786,000220: 36,2223           02242 74067                     2CADR    TIG-35                                
031787,000221: 
031788,000222: 36,2225           05364                           TC       PHASCHNG                              
031789,000223: 36,2226           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.
031790,000224: 
031791,000225: 36,2227           05332                           TC       CHECKMM                               

Page 721

031793,000227: 36,2230           00077                           DEC      63         B-14                       
031794,000228: 36,2231           15155                           TCF      ENDOFJOB                              #  NOT P63
031795,000229: 36,2232           44762                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
031796,000230: 36,2233           55162                           TS       DISPDEX                               
031797,000231: 36,2234           06051                           TC       INTPRET                               
031798,000232: 36,2235           51575                           VLOAD    ABVAL                                 
031799,000233: 36,2236           03551                                    VN1                                   
031800,000234: 36,2237           03472                           STORE    ABVEL                                 #  INITIALIZE ABVEL FOR P63 DISPLAY
031801,000235: 36,2240           77776                           EXIT                                           
031802,000236: 36,2241           15155                           TCF      ENDOFJOB                              
031803,000237: 
031804,000238:                                                                                                  #                                  ****************************************
031805,000239: 
031806,000240: 36,2242           33750        TIG-35             CAF      5SEC                                  
031807,000241: 36,2243           05204                           TC       TWIDDLE                               
031808,000242: 36,2244           02300                           ADRES    TIG-30                                
031809,000243: 
031810,000244: 36,2245           05364                           TC       PHASCHNG                              
031811,000245: 36,2246           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
031812,000246: 
031813,000247: 36,2247           44752                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
031814,000248: 36,2250           55162                           TS       DISPDEX                               
031815,000249: 
031816,000250: 36,2251           51455                           INDEX    WHICH                                 
031817,000251: 36,2252           40006                           CS       6                                     #  CHECK ULLAGE TIME.
031818,000252: 36,2253           00006                           EXTEND                                         
031819,000253: 36,2254           65272                           BZMF     TASKOVER                              
031820,000254: 36,2255           33144                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
031821,000255: 36,2256           05204                           TC       TWIDDLE                               
031822,000256: 36,2257           02270                           ADRES    TIG-30.1                              
031823,000257: 
031824,000258: 36,2260           35027                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
031825,000259: 36,2261           05072                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
031826,000260: 36,2262  E7,1453                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
031827,000261: 36,2262           02265 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
031828,000262: 
031829,000263: 36,2264           15272                           TCF      TASKOVER                              
031830,000264: 
031831,000265: 36,2265           04616        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
031832,000266: 36,2266           20457                           CADR     CLEANDSP                              
031833,000267: 36,2267           15155                           TCF      ENDOFJOB                              
031834,000268: 
031835,000269: 36,2270           35027        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
031836,000270: 36,2271           05072                           TC       NOVAC                                 
031837,000271: 36,2272  E7,1453                                  EBANK=   TTOGO                                 
031838,000272: 36,2272           02275 74067                     2CADR    TIG-30A                               
031839,000273: 
031840,000274: 36,2274           15272                           TCF      TASKOVER                              
031841,000275: 

Page 722

031843,000277: 36,2275           33752        TIG-30A            CAF      V16N85B                               
031844,000278: 36,2276           04616                           TC       BANKCALL                              #  RESTORE DISPLAY.
031845,000279: 36,2277           20466                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
031846,000280: 
031847,000281:                                                                                                  #                                  *****************************************
031848,000282: 
031849,000283: 36,2300           33143        TIG-30             CAF      S24.9SEC                              
031850,000284: 36,2301           05204                           TC       TWIDDLE                               
031851,000285: 36,2302           02354                           ADRES    TIG-5                                 
031852,000286: 
031853,000287: 36,2303           44762                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
031854,000288: 36,2304           55162                           TS       DISPDEX                               
031855,000289: 
031856,000290: 36,2305           51455                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE-ON TIME
031857,000291: 36,2306           30006                           CAF      6                                     
031858,000292: 36,2307           00006                           EXTEND                                         
031859,000293: 36,2310           62327                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
031860,000294: 36,2311           55477                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
031861,000295: 36,2312           05204                           TC       TWIDDLE                               
031862,000296: 36,2313           02350                           ADRES    ULLGTASK                              
031863,000297: 
031864,000298: 36,2314           36257                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
031865,000299: 36,2315           54001                           TS       L                                     
031866,000300: 36,2316           46257                           CS       THREE                                 
031867,000301: 36,2317           52752                           DXCH     -PHASE1                               
031868,000302: 36,2320           40025                           CS       TIME1                                 
031869,000303: 36,2321           55052                           TS       TBASE1                                
031870,000304: 
031871,000305: 36,2322           51455                           INDEX    WHICH                                 
031872,000306: 36,2323           00001                           TC       1                                     
031873,000307: 
031874,000308: 36,2324           40106        WANTAPS            CS       FLGWRD10                              #  (1) FOR P42 ENSURE APSFLAG IS SET. IF IT
031875,000309: 36,2325           74737                           MASK     APSFLBIT                              #  WASN'T SET, DAP WILL BE INITIALIZED TO
031876,000310: 36,2326           26106                           ADS      FLGWRD10                              #  ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
031877,000311: 
031878,000312: 36,2327           00006        ULLGNOT            EXTEND                                         #  (1)
031879,000313: 36,2330           51455                           INDEX    WHICH                                 
031880,000314: 36,2331           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
031881,000315: 36,2332           53253                           DXCH     AVEGEXIT                              
031882,000316: 
031883,000317: 36,2333           34752                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
031884,000318: 36,2334           54001                           TS       L                                     
031885,000319: 36,2335           44752                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
031886,000320: 36,2336           52760                           DXCH     -PHASE4                               
031887,000321: 
031888,000322: 36,2337           40025                           CS       TIME1                                 
031889,000323: 36,2340           55060                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
031890,000324: 
031891,000325: 36,2341           00006        REDO2.17           EXTEND                                         

Page 723

031893,000327: 36,2342           34755                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
031894,000328: 36,2343           52754                           DXCH     -PHASE2                               #        IF NEEDED.
031895,000329: 
031896,000330: 36,2344           10762        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
031897,000331: 36,2345           15272                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
031898,000332: 
031899,000333: 36,2346           04635                           TC       POSTJUMP                              
031900,000334: 36,2347           71661                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
031901,000335: 
031902,000336: 
031903,000337:                                                                                                  #                                  ****************************************
031904,000338: 
031905,000339: 36,2350           02656        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
031906,000340: 36,2351           05364                           TC       PHASCHNG                              
031907,000341: 36,2352           00001                           OCT      1                                     
031908,000342: 36,2353           15272                           TCF      TASKOVER                              
031909,000343: 
031910,000344: 
031911,000345:                                                                                                  #                                  ****************************************
031912,000346: 
031913,000347: 36,2354           00006        TIG-5              EXTEND                                         
031914,000348: 36,2355           34755                           DCA      NEG0                                  #  INSURE THAT GROUP 3 IS INACTIVE.
031915,000349: 36,2356           52756                           DXCH     -PHASE3                               
031916,000350: 
031917,000351: 36,2357           33750                           CAF      5SEC                                  
031918,000352: 36,2360           05204                           TC       TWIDDLE                               
031919,000353: 36,2361           02407                           ADRES    TIG-0                                 
031920,000354: 
031921,000355: 36,2362           05527                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
031922,000356: 36,2363           00153                           ADRES    IGNFLAG                               #    FOR LIGHT-UP LOGIC
031923,000357: 36,2364           05527                           TC       DOWNFLAG                              
031924,000358: 36,2365           00154                           ADRES    ASTNFLAG                              
031925,000359: 36,2366           05527                           TC       DOWNFLAG                              
031926,000360: 36,2367           00122                           ADRES    ZOOMFLAG                              
031927,000361: 
031928,000362: 36,2370           51455                           INDEX    WHICH                                 
031929,000363: 36,2371           00011                           TC       11                                    
031930,000364: 
031931,000365: 36,2372           10756        P40SJUNK           CCS      PHASE3                                #  (11) P40 AND P42.  S40.13 IN PROGRESS?
031932,000366: 36,2373           12402                           TCF      DISPCHNG                              #  YES
031933,000367: 
031934,000368: 36,2374           34736                           CAF      PRIO20                                
031935,000369: 36,2375           05105                           TC       FINDVAC                               
031936,000370: 36,2376  E7,1453                                  EBANK=   TTOGO                                 
031937,000371: 36,2376           02535 56067                     2CADR    S40.13                                
031938,000372: 
031939,000373: 
031940,000374: 
031941,000375: 36,2400           05364                           TC       PHASCHNG                              #  3.5SPOT FOR S40.13
031942,000376: 36,2401           00053                           OCT      00053                                 
031943,000377: 

Page 724

031945,000379: 36,2402           44760        DISPCHNG           CS       VB99DEX                               #  (11)
031946,000380: 36,2403           55162                           TS       DISPDEX                               
031947,000381: 36,2404           05364        COMMON             TC       PHASCHNG                              #  RESTART TIG-0 (4.7SPOT)
031948,000382: 36,2405           40074                           OCT      40074                                 
031949,000383: 36,2406           15272                           TCF      TASKOVER                              
031950,000384: 
031951,000385: 
031952,000386:                                                                                                  #                                  ****************************************
031953,000387: 
031954,000388: 36,2407           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
031955,000389: 36,2410           74737                           MASK     IGNFLBIT                              
031956,000390: 36,2411           26103                           ADS      FLAGWRD7                              
031957,000391: 
031958,000392: 36,2412           05332                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
031959,000393: 36,2413           00077                           DEC      63         B-14                       #    AFTER NOMINAL IGNITION, NOT ACTUAL
031960,000394: 36,2414           12425                           TCF      IGNYET?                               
031961,000395: 36,2415           31422                           CA       ZOOMTIME                              
031962,000396: 36,2416           05214                           TC       WAITLIST                              
031963,000397: 36,2417  E7,1513                                  EBANK=   DVCNTR                                
031964,000398: 36,2417           03675 72067                     2CADR    ZOOM                                  
031965,000399: 
031966,000400: 36,2421           05340                           TC       2PHSCHNG                              
031967,000401: 36,2422           40033                           OCT      40033                                 
031968,000402: 
031969,000403: 36,2423           05014                           OCT      05014                                 
031970,000404: 36,2424           77777                           OCT      77777                                 
031971,000405: 
031972,000406: 36,2425           34740        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
031973,000407: 36,2426           70103                           MASK     FLAGWRD7                              #    TO OUR ENGINE ENABLE REQUEST?
031974,000408: 36,2427           10000                           CCS      A                                     
031975,000409: 36,2430           12433                           TCF      IGNITION                              
031976,000410: 36,2431           51455                           INDEX    WHICH                                 
031977,000411: 36,2432           00012                           TC       12                                    
031978,000412: 
031979,000413: 36,2433           40101        IGNITION           CS       FLAGWRD5                              #  INSURE ENGONFLG IS SET.
031980,000414: 36,2434           74745                           MASK     ENGONBIT                              
031981,000415: 36,2435           26101                           ADS      FLAGWRD5                              
031982,000416: 36,2436           44355                           CS       PRIO30                                #  TURN ON THE ENGINE.
031983,000417: 36,2437           00006                           EXTEND                                         
031984,000418: 36,2440           02011                           RAND     DSALMOUT                              
031985,000419: 36,2441           64737                           AD       BIT13                                 
031986,000420: 36,2442           00006                           EXTEND                                         
031987,000421: 36,2443           01011                           WRITE    DSALMOUT                              
031988,000422: 36,2444           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
031989,000423: 36,2445           30025                           DCA      TIME2                                 
031990,000424: 36,2446           53342                           DXCH     TEVENT                                
031991,000425: 
031992,000426: 36,2447           44735                           CS       PULSES                                #  MAKE SURE THAT DAP IS NOT IN MINIMUM
031993,000427: 36,2450           70111                           MASK     DAPBOOLS                              #  IMPULSE MODE IN P12,P40,P42,AND P63
031994,000428: 36,2451           54111                           TS       DAPBOOLS                              
031995,000429: 

Page 725

031997,000431: 36,2452           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
031998,000432: 36,2453           31515                           DCA      TGO                                   
031999,000433: 36,2454           53442                           DXCH     TIG                                   
032000,000434: 36,2455           00006                           EXTEND                                         
032001,000435: 36,2456           30025                           DCA      TIME2                                 
032002,000436: 36,2457           21442                           DAS      TIG                                   
032003,000437: 
032004,000438: 36,2460           44742                           CS       FLUNDBIT                              #  PERMIT GUIDANCE LOOP DISPLAYS
032005,000439: 36,2461           70104                           MASK     FLAGWRD8                              
032006,000440: 36,2462           54104                           TS       FLAGWRD8                              
032007,000441: 
032008,000442: 36,2463           51455                           INDEX    WHICH                                 
032009,000443: 36,2464           00013                           TC       13                                    
032010,000444: 
032011,000445: 36,2465           00006        P63IGN             EXTEND                                         #  (13)      INITIATE BURN DISPLAYS
032012,000446: 36,2466           33136                           DCA      LUNLANAD                              
032013,000447: 36,2467           53253                           DXCH     AVGEXIT                               
032014,000448: 
032015,000449: 36,2470           30005                           CA       Z                                     #  ASSASSINATE CLOKTASK
032016,000450: 36,2471           55162                           TS       DISPDEX                               
032017,000451: 
032018,000452: 36,2472           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
032019,000453: 36,2473           74743                           MASK     LETABBIT                              
032020,000454: 36,2474           26105                           ADS      FLAGWRD9                              
032021,000455: 
032022,000456: 36,2475           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
032023,000457: 36,2476           30025                           DCA      TIME2                                 
032024,000458: 36,2477           53442                           DXCH     TIG                                   
032025,000459: 
032026,000460: 36,2500           34755                           CAF      ZERO                                  #  INITIALIZE WCHPHASE AND FLPASSO
032027,000461: 36,2501           55346                           TS       WCHPHASE                              
032028,000462: 36,2502           55621                           TS       WCHPHOLD                              #  ALSO WHCPHOLD
032029,000463: 36,2503           34752                           CA       TWO                                   
032030,000464: 36,2504           55623                           TS       FLPASS0                               
032031,000465: 
032032,000466: 36,2505           12540                           TCF      P42IGN                                
032033,000467: 36,2506           40101        P40IGN             CS       FLAGWRD5                              #  (13)
032034,000468: 36,2507           74740                           MASK     NOTHRBIT                              
032035,000469: 36,2510           00006                           EXTEND                                         
032036,000470: 36,2511           12540                           BZF      P42IGN                                
032037,000471: 36,2512           31422                           CA       ZOOMTIME                              
032038,000472: 36,2513           05214                           TC       WAITLIST                              
032039,000473: 36,2514  E7,1513                                  EBANK=   DVCNTR                                
032040,000474: 36,2514           03675 72067                     2CADR    ZOOM                                  
032041,000475: 
032042,000476: 36,2516           05340        P63IGN1            TC       2PHSCHNG                              
032043,000477: 36,2517           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
032044,000478: 36,2520           05014                           OCT      05014                                 #  TYPE C   RESTARTS HERE IMMEDIATELY
032045,000479: 36,2521           77777                           OCT      77777                                 
032046,000480: 

Page 726

032048,000482: 36,2522           12540                           TCF      P42IGN                                
032049,000483: 36,2523           35015        P12IGN             CAF      EBANK6                                
032050,000484: 36,2524           54003                           TS       EBANK                                 
032051,000485: 36,2525  E6,1536                                  EBANK=   AOSQ                                  
032052,000486: 
032053,000487: 36,2525           31412                           CA       IGNAOSQ                               #  INITIALIZE DAP BIAS ACCELERATION
032054,000488: 36,2526           55536                           TS       AOSQ                                  #       ESTIMATES AT P12 IGNITION.
032055,000489: 36,2527           31413                           CA       IGNAOSR                               
032056,000490: 36,2530           55540                           TS       AOSR                                  
032057,000491: 
032058,000492: 36,2531           35016                           CAF      EBANK7                                
032059,000493: 36,2532           54003                           TS       EBANK                                 
032060,000494: 36,2533  E7,1513                                  EBANK=   DVCNTR                                
032061,000495: 
032062,000496: 36,2533           30005        ABRTIGN            CA       Z                                     #  (13) KILL CLOKTASK
032063,000497: 36,2534           55162                           TS       DISPDEX                               
032064,000498: 
032065,000499: 36,2535           00006                           EXTEND                                         #  CONNECT ASCENT GYIDANCE TO SERVICER.
032066,000500: 36,2536           33140                           DCA      ATMAGADR                              
032067,000501: 36,2537           53253                           DXCH     AVGEXIT                               
032068,000502: 
032069,000503: 36,2540           44744        P42IGN             CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
032070,000504: 36,2541           70111                           MASK     DAPBOOLS                              #    CURVES ARE USED.
032071,000505: 36,2542           54111                           TS       DAPBOOLS                              
032072,000506: 36,2543           34743                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
032073,000507: 36,2544           70076                           MASK     FLAGWRD2                              
032074,000508: 36,2545           10000                           CCS      A                                     
032075,000509: 36,2546           13522                           TCF      IMPLBURN                              
032076,000510: 
032077,000511: 36,2547           05527        DVMONCON           TC       DOWNFLAG                              
032078,000512: 36,2550           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
032079,000513: 36,2551           05527                           TC       DOWNFLAG                              
032080,000514: 36,2552           00154                           ADRES    ASTNFLAG                              
032081,000515: 36,2553           05527                           TC       DOWNFLAG                              
032082,000516: 36,2554           00161                           ADRES    IDLEFLAG                              
032083,000517: 
032084,000518: 36,2555           05364                           TC       PHASCHNG                              
032085,000519: 36,2556           40054                           OCT      40054                                 
032086,000520: 
032087,000521: 36,2557           05232                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
032088,000522: 36,2560           00062                           DEC      50         B-14                       #  LIGHT UP.
032089,000523: 
032090,000524: 36,2561           02652        ULLAGOFF           TC       NOULLAGE                              
032091,000525: 
032092,000526: 36,2562           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
032093,000527: 36,2563           34755                           DCA      NEG0                                  
032094,000528: 36,2564           52760                           DXCH     -PHASE4                               
032095,000529: 
032096,000530: 36,2565           15272                           TCF      TASKOVER                              
032097,000531: 

Page 727

032099,000533: 36,2566           04635        TIGTASK            TC       POSTJUMP                              #  (12)
032100,000534: 36,2567           73664                           CADR     TIGTASK1                              
032101,000535: 
032102,000536:                                                                                                  #                                  ****************************************
032103,000537: 
032104,000538: 31,2144                                           BANK     31                                    
032105,000539: 35,2000                                           SETLOC   P40S3                                 
032106,000540: 35,2000                                           BANK                                           
032107,000541: 35,3664                                           COUNT*   $$/P40                                
032108,000542: 
032109,000543: 35,3664           35026        TIGTASK1           CAF      PRIO16                                
032110,000544: 35,3665           05072                           TC       NOVAC                                 
032111,000545: 35,3666  E7,1462                                  EBANK=   TRKMKCNT                              
032112,000546: 35,3666           03240 74067                     2CADR    TIGNOW                                
032113,000547: 
032114,000548: 35,3670           05527                           TC       DOWNFLAG                              
032115,000549: 35,3671           00303                           ADRES    PULSEFLG                              
032116,000550: 
032117,000551: 35,3672           05364                           TC       PHASCHNG                              
032118,000552: 35,3673           00006                           OCT      6                                     #  KILL GROUP 6.
032119,000553: 
032120,000554: 35,3674           15272                           TCF      TASKOVER                              
032121,000555: 
032122,000556: 
032123,000557:                                                                                                  #                                  ****************************************
032124,000558: 
032125,000559: 35,3675           05332        ZOOM               TC       CHECKMM                               #  P40 OR P63?
032126,000560: 35,3676           00077                           DEC      63         B-14                       
032127,000561: 35,3677           13705                           TCF      P40ZOOM                               
032128,000562: 
032129,000563: 35,3700           05515        P63ZOOM            TC       UPFLAG                                #  INDICATE THAT THROTTLE-UP HAS COME
032130,000564: 35,3701           00122                           ADRES    ZOOMFLAG                              
032131,000565: 
032132,000566: 35,3702           04674                           TC       IBNKCALL                              
032133,000567: 35,3703           62323                           CADR     FLATOUT                               
032134,000568: 35,3704           13712                           TCF      P40ZOOMA                              
032135,000569: 
032136,000570: 35,3705           34737        P40ZOOM            CAF      BIT13                                 
032137,000571: 35,3706           54055                           TS       THRUST                                
032138,000572: 35,3707           34750                           CAF      BIT4                                  
032139,000573: 
032140,000574: 35,3710           00006                           EXTEND                                         
032141,000575: 35,3711           05014                           WOR      CHAN14                                
032142,000576: 
032143,000577: 35,3712           05364        P40ZOOMA           TC       PHASCHNG                              
032144,000578: 35,3713           00003                           OCT      3                                     
032145,000579: 35,3714           15272                           TCF      TASKOVER                              
032146,000580: 
032147,000581: 
032148,000582: 36,2570                                           BANK     36                                    

Page 728

032150,000584: 36,2000                                           SETLOC   P40S                                  
032151,000585: 36,2000                                           BANK                                           
032152,000586: 36,2570                                           COUNT*   $$/P40                                
032153,000587: 
032154,000588:                                                                                                  #                                  ****************************************
032155,000589: 
032156,000590: 36,2570           05515        COMFAIL            TC       UPFLAG                                #  (15)
032157,000591: 36,2571           00161                           ADRES    IDLEFLAG                              
032158,000592: 36,2572           05515                           TC       UPFLAG                                #  SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032159,000593: 36,2573           00175                           ADRES    FLUNDISP                              
032160,000594: 36,2574           34751                           CAF      FOUR                                  #  RESET DVMON
032161,000595: 36,2575           55513                           TS       DVCNTR                                
032162,000596: 36,2576           10764                           CCS      PHASE6                                #  CLOCKTASK ACTIVE?
032163,000597: 36,2577           12602                           TCF      +3                                    #  YES
032164,000598: 36,2600           04616                           TC       BANKCALL                              #  OTHERWISE, START IT UP
032165,000599: 36,2601           74662                           CADR     STCLOK1                               
032166,000600: 36,2602           44765                 +3        CS       VB97DEX                               
032167,000601: 36,2603           55162                           TS       DISPDEX                               
032168,000602: 36,2604           05364                           TC       PHASCHNG                              #  TURN OFF GROUP 4.
032169,000603: 36,2605           00004                           OCT      00004                                 
032170,000604: 36,2606           15155                           TCF      ENDOFJOB                              
032171,000605: 
032172,000606: 36,2607           51455        COMFAIL1           INDEX    WHICH                                 
032173,000607: 36,2610           00002                           TC       2                                     
032174,000608: 
032175,000609: 36,2611           30005        COMFAIL3           CA       Z                                     #  (15)       KILL CLOKTASK USING Z
032176,000610: 36,2612           12614                           TCF      +2                                    
032177,000611: 
032178,000612: 36,2613           44762        COMFAIL4           CS       CNTDNDEX                              
032179,000613: 36,2614           55162                           TS       DISPDEX                               
032180,000614: 
032181,000615: 36,2615           05527                           TC       DOWNFLAG                              #  RECONNECT DV MONITOR
032182,000616: 36,2616           00161                           ADRES    IDLEFLAG                              
032183,000617: 36,2617           05527                           TC       DOWNFLAG                              #  PERMIT GUIDANCE LOOP DISPLAYS
032184,000618: 36,2620           00175                           ADRES    FLUNDISP                              
032185,000619: 36,2621           15155                           TCF      ENDOFJOB                              
032186,000620: 
032187,000621: 
032188,000622: 36,2622           05364        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
032189,000623: 36,2623           00003                           OCT      00003                                 
032190,000624: 
032191,000625: 36,2624           00004                           INHINT                                         
032192,000626: 36,2625           06032                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
032193,000627: 36,2626           73675                           CADR     ZOOM                                  
032194,000628: 36,2627           04674                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
032195,000629: 36,2630           75561                           CADR     ENGINOF4                              
032196,000630: 36,2631           05515                           TC       UPFLAG                                #  SET THE DRIFT BIT FOR THE DAP.
032197,000631: 36,2632           00312                           ADRES    DRIFTDFL                              
032198,000632: 36,2633           02644                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
032199,000633: 36,2634           00310                           ADRES    AORBTFLG                              

Page 729

032201,000635: 36,2635           05515                           TC       UPFLAG                                #  TURN ON ULLAGE
032202,000636: 36,2636           00314                           ADRES    ULLAGFLG                              
032203,000637: 36,2637           34753                           CAF      BIT1                                  
032204,000638: 36,2640           00004                           INHINT                                         
032205,000639: 36,2641           05204                           TC       TWIDDLE                               
032206,000640: 36,2642           02354                           ADRES    TIG-5                                 
032207,000641: 36,2643           15155                           TCF      ENDOFJOB                              
032208,000642: 
032209,000643: 
032210,000644:                                                                                                  #                                  ****************************************
032211,000645:                                                                                                  #                                  SUBROUTINES OF THE IGNITION ROUTINE
032212,000646:                                                                                                  #                                  ****************************************
032213,000647: 
032214,000648: 36,2644           30002        INVFLAG            CA       Q                                     
032215,000649: 36,2645           05533                           TC       DEBIT                                 
032216,000650: 36,2646           40000                           COM                                            
032217,000651: 36,2647           00006                           EXTEND                                         
032218,000652: 36,2650           06001                           RXOR     LCHAN                                 
032219,000653: 36,2651           15522                           TCF      COMFLAG                               
032220,000654: 
032221,000655: 
032222,000656:                                                                                                  #                                  ****************************************
032223,000657: 
032224,000658: 36,2652           44746        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
032225,000659: 36,2653           70111                           MASK     DAPBOOLS                              
032226,000660: 36,2654           54111                           TS       DAPBOOLS                              
032227,000661: 36,2655           00002                           TC       Q                                     
032228,000662: 
032229,000663: 
032230,000664:                                                                                                  #                                  ****************************************
032231,000665: 
032232,000666: 36,2656           40111        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
032233,000667: 36,2657           74746                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
032234,000668: 36,2660           26111                           ADS      DAPBOOLS                              
032235,000669: 36,2661           00002                           TC       Q                                     
032236,000670: 
032237,000671: 
032238,000672:                                                                                                  #                                  ****************************************
032239,000673: 
032240,000674: 36,2662           34755        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
032241,000675: 36,2663           55162        STCLOK2            TS       DISPDEX                               #    (CLOKTASK AND CLOKJOB).   SETTING
032242,000676: 36,2664           04645        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
032243,000677: 36,2665           55060                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
032244,000678: 36,2666           00006                           EXTEND                                         
032245,000679: 36,2667           31442                           DCA      TIG                                   
032246,000680: 36,2670           52155                           DXCH     MPAC                                  
032247,000681: 36,2671           00006                           EXTEND                                         
032248,000682: 36,2672           40025                           DCS      TIME2                                 
032249,000683: 36,2673           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032250,000684: 36,2674           07271                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE

Page 730

032252,000686: 36,2675           34777                           CAF      1SEC                                  #    45 SECOND CHECK
032253,000687: 36,2676           54002                           TS       Q                                     
032254,000688: 36,2677           52155                           DXCH     MPAC                                  
032255,000689: 36,2700           74346                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
032256,000690: 36,2701           00006                           EXTEND                                         
032257,000691: 36,2702           10002                           DV       Q                                     
032258,000692: 36,2703           30001                           CA       L                                     #  GET REMAINDER
032259,000693: 36,2704           64752                           AD       TWO                                   
032260,000694: 36,2705           00004                           INHINT                                         
032261,000695: 36,2706           05204                           TC       TWIDDLE                               
032262,000696: 36,2707           02716                           ADRES    CLOKTASK                              
032263,000697: 36,2710           05340                           TC       2PHSCHNG                              
032264,000698: 36,2711           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
032265,000699: 36,2712           05024                           OCT      05024                                 
032266,000700: 36,2713           13000                           OCT      13000                                 
032267,000701: 
032268,000702: 36,2714           31060                           CA       TBASE4                                
032269,000703: 36,2715           04640                           TC       BANKJUMP                              
032270,000704: 
032271,000705: 
032272,000706: 36,2716           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
032273,000707: 36,2717           55064                           TS       TBASE6                                
032274,000708: 
032275,000709: 36,2720           11162                           CCS      DISPDEX                               
032276,000710: 36,2721           12732                           TCF      KILLCLOK                              
032277,000711: 36,2722           12723                           NOOP                                           
032278,000712: 36,2723           37727                           CAF      PRIO27                                
032279,000713: 36,2724           05072                           TC       NOVAC                                 
032280,000714: 36,2725  E7,1453                                  EBANK=   TTOGO                                 
032281,000715: 36,2725           02736 74067                     2CADR    CLOKJOB                               
032282,000716: 
032283,000717: 
032284,000718: 
032285,000719: 36,2727           05232                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
032286,000720: 36,2730           00144                           DEC      100        B-14                       
032287,000721: 36,2731           12716                           TCF      CLOKTASK                              
032288,000722: 
032289,000723: 
032290,000724: 36,2732           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
032291,000725: 36,2733           34755                           DCA      NEG0                                  
032292,000726: 36,2734           52764                           DXCH     -PHASE6                               
032293,000727: 36,2735           15272                           TCF      TASKOVER                              
032294,000728: 
032295,000729: 
032296,000730: 36,2736           00006        CLOKJOB            EXTEND                                         
032297,000731: 36,2737           41442                           DCS      TIG                                   
032298,000732: 36,2740           53454                           DXCH     TTOGO                                 
032299,000733: 36,2741           00006                           EXTEND                                         
032300,000734: 36,2742           30025                           DCA      TIME2                                 
032301,000735: 36,2743           21454                           DAS      TTOGO                                 

Page 731

032303,000737: 36,2744           00004                           INHINT                                         
032304,000738: 36,2745           11162                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
032305,000739: 36,2746           15155                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
032306,000740: 36,2747           15155                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
032307,000741: 36,2750           40000                           COM                                            #  INDEX.
032308,000742: 36,2751           00003                           RELINT                                         #  *****  DISPDEX MUST NEVER BE -0  *****
032309,000743: 36,2752           50000                           INDEX    A                                     
032310,000744: 36,2753           13010                           TCF      DISPNOT    -1                         #  ( -1 DUE TO EFFECT OF CCS )
032311,000745: 
032312,000746: 36,2754     4765               VB97DEX            =        OCT35                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032313,000747: 
032314,000748: 36,2754           44755                 -35       CS       ZERO                                  #  INDICATE VERB 97 PASTE
032315,000749: 36,2755           55066                           TS       NVWORD1                               
032316,000750: 36,2756           30371                           CA       NVWORD     +2                         #  NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
032317,000751: 36,2757           04616                           TC       BANKCALL                              
032318,000752: 36,2760           20474                           CADR     CLOCPLAY                              
032319,000753: 36,2761           13012                           TCF      STOPCLOK                              #  TERMINATE CLOKTASK ON THE WAY TO P00H
032320,000754: 36,2762           12607                           TCF      COMFAIL1                              
032321,000755: 36,2763           12622                           TCF      COMFAIL2                              
032322,000756: 
032323,000757:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK
032324,000758: 36,2764           33145                 -25       CAF      V06N61                                #  IT IS PRIMARILY USED BY THE CREW IN P63
032325,000759: 36,2765           04616                           TC       BANKCALL                              #  TO RESET HIS EVENT TIMER TO AGREE WITH
032326,000760: 36,2766           20460                           CADR     REFLASH                               #  TIG.
032327,000761: 36,2767           13012                           TCF      STOPCLOK                              
032328,000762: 36,2770           13027                           TCF      ASTNRETN                              
032329,000763: 36,2771           12764                           TCF      -5                                    
032330,000764: 
032331,000765: 36,2772     4762               CNTDNDEX           =        LOW4                                  #  OCT17: NEGATIVE PROPER FOR DISPDEX
032332,000766: 
032333,000767: 36,2772           51455                 -17       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
032334,000768: 36,2773           30000                           CAF      0                                     #  INTERVALS. IT IS NORMALLY OPERATED
032335,000769: 36,2774           04616                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
032336,000770: 36,2775           20466                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
032337,000771: 
032338,000772: 36,2776     4760               VB99DEX            =        ELEVEN                                #  OCT13: NEGATIVE PROPER FOR DISPDEX
032339,000773: 
032340,000774: 36,2776                        V99RECYC           EQUALS                                         
032341,000775: 
032342,000776: 36,2776           44743                 -13       CS       BIT9                                  #  INDICATE VERB 99 PASTE
032343,000777: 36,2777           55066                           TS       NVWORD1                               
032344,000778: 36,3000           51455                           INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
032345,000779: 36,3001           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
032346,000780: 36,3002           04616                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
032347,000781: 36,3003           20474                           CADR     CLOCPLAY                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
032348,000782: 36,3004           13012                           TCF      STOPCLOK                              #  TERMINATE GOTOPOOH TURNS OFF ULLAGE.
032349,000783: 36,3005           13040                           TCF      *PROCEED                              
032350,000784: 36,3006           13043                           TCF      *ENTER                                
032351,000785: 
032352,000786: 36,3007     4752               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032353,000787: 

Page 732

032355,000789: 36,3007           04616                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
032356,000790: 36,3010           20457                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
032357,000791: 36,3011           15155        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
032358,000792: 
032359,000793: 
032360,000794: 36,3012           03014        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
032361,000795: 36,3013           16001                           TCF      GOTOPOOH                              #      WAY TO P00  (GOTOPOOH RELINTS)
032362,000796: 
032363,000797: 36,3014           00004        NULLCLOK           INHINT                                         
032364,000798: 36,3015           00006                           EXTEND                                         
032365,000799: 36,3016           23141                           QXCH     P40/RET                               
032366,000800: 36,3017           02652                           TC       NOULLAGE                              #  TURN OFF ULLAGE...
032367,000801: 36,3020           06032                           TC       KILLTASK                              #     DON'T LET IT COME ON, EITHER...
032368,000802: 36,3021           74350                           CADR     ULLGTASK                              
032369,000803: 36,3022           05364                           TC       PHASCHNG                              #           NOT EVEN IF THERE'S A RESTART.
032370,000804: 36,3023           00001                           OCT      1                                     
032371,000805: 36,3024           30005                           CA       Z                                     #  KILL CLOKTASK
032372,000806: 36,3025           55162                           TS       DISPDEX                               
032373,000807: 36,3026           01141                           TC       P40/RET                               
032374,000808: 
032375,000809: 
032376,000810: 36,3027           05364        ASTNRETN           TC       PHASCHNG                              
032377,000811: 36,3030           04024                           OCT      04024                                 
032378,000812: 36,3031           34755                           CAF      ZERO                                  #  STOP DISPLAYING BUT KEEP RUNNING.
032379,000813: 36,3032           55162                           TS       DISPDEX                               
032380,000814: 36,3033           35023                           CAF      PRIO13                                
032381,000815: 36,3034           05105                           TC       FINDVAC                               
032382,000816: 36,3035  E5,1757                                  EBANK=   STARIND                               
032383,000817: 36,3035           02642 64065                     2CADR    ASTNRET                               
032384,000818: 
032385,000819: 36,3037           15155                           TCF      ENDOFJOB                              
032386,000820: 
032387,000821: 
032388,000822: 36,3040           05515        *PROCEED           TC       UPFLAG                                
032389,000823: 36,3041           00154                           ADRES    ASTNFLAG                              
032390,000824: 
032391,000825: 36,3042           13101                           TCF      IGNITE                                
032392,000826: 
032393,000827: 
032394,000828: 36,3043           00004        *ENTER             INHINT                                         
032395,000829: 36,3044           51455                           INDEX    WHICH                                 
032396,000830: 36,3045           00003                           TC       3                                     
032397,000831: 
032398,000832: 36,3046           34644        GOPOST             CAF      PRIO12                                #  (3)  MUST BE LOWER PRIORITY THAN CLOKJOB
032399,000833: 36,3047           05105                           TC       FINDVAC                               
032400,000834: 36,3050  E7,1453                                  EBANK=   TTOGO                                 
032401,000835: 36,3050           03222 74067                     2CADR    POSTBURN                              
032402,000836: 36,3052           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032403,000837: 36,3053           04674                           TC       IBNKCALL                              

Page 733

032405,000839: 36,3054           40205                           CADR     ALLCOAST                              
032406,000840: 36,3055           03014                           TC       NULLCLOK                              
032407,000841: 36,3056           05364                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
032408,000842: 36,3057           00134                           OCT      00134                                 
032409,000843: 
032410,000844: 36,3060           15155                           TCF      ENDOFJOB                              
032411,000845: 
032412,000846: 
032413,000847: 36,3061           35027        GOCUTOFF           CAF      PRIO17                                #  (3)
032414,000848: 36,3062           05105                           TC       FINDVAC                               
032415,000849: 36,3063  E7,1514                                  EBANK=   TGO                                   
032416,000850: 36,3063           02416 30067                     2CADR    CUTOFF                                
032417,000851: 
032418,000852: 36,3065           05527                           TC       DOWNFLAG                              
032419,000853: 36,3066           00175                           ADRES    FLUNDISP                              
032420,000854: 
032421,000855: 36,3067           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032422,000856: 36,3070           04674                           TC       IBNKCALL                              
032423,000857: 36,3071           40205                           CADR     ALLCOAST                              
032424,000858: 36,3072           03014                           TC       NULLCLOK                              
032425,000859: 36,3073           05364                           TC       PHASCHNG                              
032426,000860: 36,3074           07024                           OCT      07024                                 
032427,000861: 36,3075           17000                           OCT      17000                                 
032428,000862: 36,3076  E7,1514                                  EBANK=   TGO                                   
032429,000863: 36,3076           02416 30067                     2CADR    CUTOFF                                
032430,000864: 
032431,000865: 36,3100           15155                           TCF      ENDOFJOB                              
032432,000866: 
032433,000867: 
032434,000868: 36,3101           40103        IGNITE             CS       FLAGWRD7                              #  (2)
032435,000869: 36,3102           74737                           MASK     IGNFLBIT                              
032436,000870: 36,3103           10000                           CCS      A                                     
032437,000871: 36,3104           13115                           TCF      IGNITE1                               
032438,000872: 36,3105           34753                           CAF      BIT1                                  
032439,000873: 36,3106           00004                           INHINT                                         
032440,000874: 36,3107           05204                           TC       TWIDDLE                               
032441,000875: 36,3110           02433                           ADRES    IGNITION                              
032442,000876: 
032443,000877: 36,3111           34360                           CAF      OCT23                                 #  IMMEDIATE RESTART AT IGNITION.
032444,000878: 36,3112           54001                           TS       L                                     
032445,000879: 36,3113           40000                           COM                                            
032446,000880: 36,3114           52760                           DXCH     -PHASE4                               
032447,000881: 
032448,000882: 36,3115           44762        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
032449,000883: 36,3116           55162                           TS       DISPDEX                               
032450,000884: 
032451,000885: 36,3117           15155                           TCF      ENDOFJOB                              
032452,000886: 
032453,000887:                                                                                                  #                                  ****************************************
032454,000888: 

Page 734

032456,000890: 36,3120           05600        P40ALM             TC       ALARM                                 #  PROGRAM SELECTION NOT CONSISTENT WITH
032457,000891: 36,3121           01706                           OCT      1706                                  #  VEHICLE CONFIGURATION
032458,000892: 
032459,000893: 36,3122           35006        REP40ALM           CAF      V05N09                                #  (14)
032460,000894: 36,3123           04616                           TC       BANKCALL                              
032461,000895: 36,3124           20477                           CADR     GOFLASH                               
032462,000896: 
032463,000897: 36,3125           16001                           TCF      GOTOPOOH                              #  V34E  TERMINATE
032464,000898: 36,3126           13130                           TCF      +2                                    #  PROCEED  CHECK FOR P42
032465,000899: 36,3127           13122                           TCF      REP40ALM                              #  V32E  REDISPLAY ALARM
032466,000900: 
032467,000901: 36,3130           51455                           INDEX    WHICH                                 #  FOR P42, ALLOW CREW TO PROCEED EVEN
032468,000902: 36,3131           00014                           TC       14                                    #  THOUGH VEHICLE IS UNSTAGED.
032469,000903: 
032470,000904:                                                                                                  #                                  ****************************************
032471,000905: 
032472,000906: 
032473,000907: 31,2144                                           BANK     31                                    
032474,000908: 35,2000                                           SETLOC   P40S2                                 
032475,000909: 35,2000                                           BANK                                           
032476,000910: 
032477,000911: 35,3715                                           COUNT*   $$/P40                                
032478,000912: 
032479,000913: 35,3715           04645        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
032480,000914: 35,3716           55163                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
032481,000915: 35,3717           04616        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
032482,000916: 35,3720           54263                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
032483,000917: 35,3721           10000                           CCS      A                                     #  +0  INDICATES IN PGNCS, IN AUTO
032484,000918: 35,3722           13734                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
032485,000919: 35,3723           34737                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
032486,000920: 35,3724           70106                           MASK     FLGWRD10                              
032487,000921: 35,3725           10000                           CCS      A                                     
032488,000922: 35,3726           13741                           TCF      GOBACK                                #  RETURN
032489,000923: 35,3727           34747                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
032490,000924: 35,3730           00006                           EXTEND                                         
032491,000925: 35,3731           02030                           RAND     CHAN30                                
032492,000926: 35,3732           00006                           EXTEND                                         
032493,000927: 35,3733           13741                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN
032494,000928: 35,3734           33743        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203  PLEASE PERFORM
032495,000929: 35,3735           04616                           TC       BANKCALL                              #  CHECKLIST  203 TURN ON PGNCS ETC.
032496,000930: 35,3736           20624                           CADR     GOPERF1                               
032497,000931: 35,3737           16001                           TCF      GOTOPOOH                              #  V34E  TERMINATE
032498,000932: 35,3740           13717                           TCF      P40A/P                                #  RECYCLE
032499,000933: 35,3741           31163        GOBACK             CA       TEMPR60                               
032500,000934: 35,3742           04640                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
032501,000935: 
032502,000936: 
032503,000937: 35,3743           00203        P40A/PMD           OCT      00203                                 
032504,000938: 
032505,000939: 36,3132                                           BANK     36                                    

Page 735

032507,000941: 36,2000                                           SETLOC   P40S                                  
032508,000942: 36,2000                                           BANK                                           
032509,000943: 
032510,000944: 36,3132                                           COUNT*   $$/P40                                
032511,000945: 
032512,000946:                                                                                                  #                                  ****************************************
032513,000947:                                                                                                  #                                  CONSTANTS FOR THE IGNITION ROUTINE
032514,000948:                                                                                                  #                                  ****************************************
032515,000949: 
032516,000950: 36,3132  36,2107               SERVCADR           =        P63TABLE   +7                         
032517,000951: 
032518,000952: 36,3132           02040        P40ADRES           ADRES    P40TABLE                              
032519,000953: 
032520,000954: 36,3133           02050        P41ADRES           ADRES    P41TABLE   -5                         
032521,000955: 
032522,000956: 36,3134           02063        P42ADRES           ADRES    P42TABLE                              
032523,000957: 
032524,000958: 36,3135  E7,1513                                  EBANK=   DVCNTR                                
032525,000959: 36,3135           02417 62067  LUNLANAD           2CADR    LUNLAND                               
032526,000960: 
032527,000961: 
032528,000962: 
032529,000963: 36,3137  E7,1513                                  EBANK=   DVCNTR                                
032530,000964: 36,3137           03455 70067  ATMAGADR           2CADR    ATMAG                                 
032531,000965: 
032532,000966: 36,3141     6001               ?                  =        GOTOPOOH                              
032533,000967: 
032534,000968: 36,3141           00000 05656  D29.9SEC           2DEC     2990       B-28                       
032535,000969: 
032536,000970: 
032537,000971: 
032538,000972: 36,3143           04672        S24.9SEC           DEC      2490       B-14                       
032539,000973: 
032540,000974: 
032541,000975: 36,3144           00752        4.9SEC             DEC      490        B-14                       
032542,000976: 
032543,000977: 36,3145     4747               OCT20              =        BIT5                                  
032544,000978: 
032545,000979: 36,3145           01475        V06N61             VN       0661                                  
032546,000980: 

Page 736

032548,000982:                                                                                                  #           KILLTASK
032549,000983:                                                                                                  #  MOD NO: NEW PROGRAM
032550,000984:                                                                                                  #  MOD BY: COVELLI
032551,000985: 
032552,000986: 
032553,000987:                                                                                                  #  FUNCTIONAL DESCRIPTION:
032554,000988: 
032555,000989:                                                                                                  #     KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
032556,000990:                                                                                                  #  WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
032557,000991:                                                                                                  #  FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
032558,000992:                                                                                                  #  LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
032559,000993: 
032560,000994:                                                                                                  #  CALLING SEQUENCE:
032561,000995: 
032562,000996:                                                                                                  #                                          L        TC     KILLTASK        IN FIXED-FIXED
032563,000997:                                                                                                  #                                          L+1      CADR   ????????        CADR (NOT 2CADR) OF TASK TO BE REMOVED.
032564,000998:                                                                                                  #                                          L+2     (RELINT)                RETURN
032565,000999: 
032566,001000:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
032567,001001: 
032568,001002:                                                                                                  #  ERASABLE INITIALIZATION=  NONE.
032569,001003: 
032570,001004:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
032571,001005: 
032572,001006:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A,L,Q.
032573,001007: 
032574,001008: 36,3146  E3,1410                                  EBANK=   LST2                                  
032575,001009:    6032                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
032576,001010:    6000                                           SETLOC   FFTAG6                                
032577,001011:    6000                                           BANK                                           
032578,001012:    6032                                           COUNT*   $$/KILL                               
032579,001013:    6032           36041        KILLTASK           CA       KILLBB                                
032580,001014:    6033           00004                           INHINT                                         
032581,001015:    6034           22000                           LXCH     A                                     
032582,001016:    6035           50002                           INDEX    Q                                     
032583,001017:    6036           30000                           CA       0                                     #  GET CADR.
032584,001018:    6037           22006                           LXCH     BBANK                                 
032585,001019:    6040           12200                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
032586,001020: 
032587,001021:    6041  E3,1410                                  EBANK=   LST2                                  
032588,001022:    6041           56063        KILLBB             BBCON    KILLTSK2                              
032589,001023: 
032590,001024: 
032591,001025: 27,2200                                           BANK     27                                    
032592,001026: 
032593,001027: 27,2000                                           SETLOC   P40S1                                 
032594,001028: 27,2000                                           BANK                                           
032595,001029: 27,2200                                           COUNT*   $$/KILL                               
032596,001030: 
032597,001031: 27,2200           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK

Page 737

032599,001033: 27,2201           24002                           INCR     Q                                     
032600,001034: 27,2202           00006                           EXTEND                                         
032601,001035: 27,2203           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
032602,001036: 
032603,001037: 27,2204           54063                           TS       ITEMP3                                #  CADR IS IN A
032604,001038: 27,2205           75012                           MASK     LOW10                                 
032605,001039: 27,2206           64741                           AD       BIT11                                 
032606,001040: 27,2207           54064                           TS       ITEMP4                                #  GENADR OF TASK
032607,001041: 
032608,001042: 27,2210           45012                           CS       LOW10                                 
032609,001043: 27,2211           70063                           MASK     ITEMP3                                
032610,001044: 27,2212           54063                           TS       ITEMP3                                #  FBANK OF TASK
032611,001045: 
032612,001046: 27,2213           22007                           ZL                                             
032613,001047: 27,2214           50001        ADRSCAN            INDEX    L                                     
032614,001048: 27,2215           41410                           CS       LST2                                  
032615,001049: 27,2216           60064                           AD       ITEMP4                                #  COMPARE GENADRS
032616,001050: 27,2217           00006                           EXTEND                                         
032617,001051: 27,2220           12232                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
032618,001052: 27,2221           44747        LETITLIV           CS       LSTLIM                                
032619,001053: 27,2222           60001                           AD       L                                     
032620,001054: 27,2223           00006                           EXTEND                                         #  ARE WE DONE?
032621,001055: 27,2224           12230                           BZF      DEAD                                  #  YES - DONE, SO RETURN
032622,001056: 27,2225           24001                           INCR     L                                     
032623,001057: 27,2226           24001                           INCR     L                                     
032624,001058: 27,2227           12214                           TCF      ADRSCAN                               #  CONTINUE LOOP.
032625,001059: 
032626,001060: 27,2230           52062        DEAD               DXCH     ITEMP1                                
032627,001061: 27,2231           52006                           DTCB                                           
032628,001062: 
032629,001063: 27,2232           45012        TSTFBANK           CS       LOW10                                 
032630,001064: 27,2233           50001                           INDEX    L                                     
032631,001065: 27,2234           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
032632,001066: 27,2235           00006                           EXTEND                                         
032633,001067: 27,2236           60063                           SU       ITEMP3                                
032634,001068: 27,2237           00006                           EXTEND                                         
032635,001069: 27,2240           12242                           BZF      KILLDEAD                              #  MATCH - KILL IT.
032636,001070: 27,2241           12221                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
032637,001071: 
032638,001072: 27,2242           34353        KILLDEAD           CA       TCTSKOVR                              
032639,001073: 27,2243           50001                           INDEX    L                                     
032640,001074: 27,2244           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
032641,001075: 27,2245           12230                           TCF      DEAD                                  
032642,001076: 
032643,001077: 27,2246     4747               LSTLIM             EQUALS   BIT5                                  #  DEC 16

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