Source Code

031339,000001: # Copyright: Public domain. 031340,000002: # Filename: BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc 031341,000003: # Purpose: Part of the source code for Luminary 1A build 099. 031342,000004: # It is part of the source code for the Lunar Module's (LM) 031343,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 031344,000006: # Assembler: yaYUL 031345,000007: # Contact: Ron Burkey <info@sandroid.org>. 031346,000008: # Website: www.ibiblio.org/apollo. 031347,000009: # Pages: 731-751 031348,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding 031349,000011: # Luminary131 file, using page 031350,000012: # images from Luminary 1A. 031351,000013: # 2009-06-07 RSB Corrected 3 typos. 031352,000014: # 2009-07-23 RSB Added Onno's notes on the naming 031353,000015: # of this function, which he got from 031354,000016: # Don Eyles. 031355,000017: # 2011-01-06 JL Fixed pseudo-label indentation. 031356,000018: # 2011-05-08 JL Removed workarounds. 031357,000019: 031358,000020: # This source code has been transcribed or otherwise adapted from 031359,000021: # digitized images of a hardcopy from the MIT Museum. The digitization 031360,000022: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 031361,000023: # the Museum. Many thanks to both. The images (with suitable reduction 031362,000024: # in storage size and consequent reduction in image quality as well) are 031363,000025: # available online at www.ibiblio.org/apollo. If for some reason you 031364,000026: # find that the images are illegible, contact me at info@sandroid.org 031365,000027: # about getting access to the (much) higher-quality images which Paul 031366,000028: # actually created. 031367,000029: 031368,000030: # Notations on the hardcopy document read, in part: 031369,000031: 031370,000032: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 031371,000033: # 16:27 JULY 14, 1969 031372,000034: 031373,000035: # Page 731

At the get-together of the AGC developers celebrating the 40th anniversary of the first moonwalk, Don Eyles (one of the authors of this routine along with Peter Adler) has related to us a little interesting history behind the naming of the routine.

It traces back to 1965 and the Los Angeles riots, and was inspired by disc jockey extraordinaire and radio station owner Magnificent Montague. Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the hottest new records. Magnificent Montague was the charismatic voice of soul music in Chicago, New York, and Los Angeles from the mid-1950s to the mid-1960s.

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

End of include-file BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc.  Parent file is MAIN.agc