Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

032124,000002:                                                                                                  ## Copyright:   Public domain.
032125,000003:                                                                                                  ## Filename:    BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
032126,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
032127,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
032128,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
032129,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
032130,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
032131,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
032132,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
032133,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
032134,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
032135,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
032136,000014:                                                                                                  ##              the original YUL assembler.
032137,000015:                                                                                                  ##
032138,000016:                                                                                                  ## Assembler:   yaYUL
032139,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032140,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
032141,000019:                                                                                                  ## Pages:       731-751
032142,000020:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
032143,000021:                                                                                                  ##                              Luminary131 file, using page 
032144,000022:                                                                                                  ##                              images from Luminary 1A.
032145,000023:                                                                                                  ##              2009-06-07 RSB  Corrected 3 typos.
032146,000024:                                                                                                  ##              2009-07-23 RSB  Added Onno's notes on the naming
032147,000025:                                                                                                  ##                              of this function, which he got from
032148,000026:                                                                                                  ##                              Don Eyles.
032149,000027:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
032150,000028:                                                                                                  ##              2011-05-08 JL   Removed workarounds.
032151,000029:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
032152,000030:                                                                                                  ##              2016-12-15 RSB  Proofed text comments with octopus/ProoferComments
032153,000031:                                                                                                  ##                              and corrected the errors found.
032154,000032:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
032155,000033:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
032156,000034:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
032157,000035:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
032158,000036: 
032159,000037:                                                                                                  ## This source code has been transcribed or otherwise adapted from
032160,000038:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
032161,000039:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
032162,000040:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
032163,000041:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
032164,000042:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
032165,000043:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
032166,000044:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
032167,000045:                                                                                                  ## actually created.
032168,000046:                                                                                                  ##
032169,000047:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
032170,000048:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
032171,000049:                                                                                                  ## the listing from which it was transcribed. It has been verified to
032172,000050:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
032173,000051:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
032174,000052:                                                                                                  ##
032175,000053:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
032176,000054:                                                                                                  ##
032177,000055:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
032178,000056: 

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.

032192,000070: 
032193,000071: 36,2022                                           BANK     36                                    
032194,000072: 36,2000                                           SETLOC   P40S                                  
032195,000073: 36,2000                                           BANK                                           
032196,000074: 36,2022  E7,1455                                  EBANK=   WHICH                                 
032197,000075: 36,2022                                           COUNT*   $$/P40                                
032198,000076: 
032199,000077:                                                                                                  #  THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
032200,000078:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
032201,000079:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
032202,000080:                                                                                                  #  PROGRAMS THROTTLE UP.
032203,000081: 
032204,000082:                                                                                                  #  VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
032205,000083:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.  USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
032206,000084:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).  THE IGNITION ROUTINE THEN INDEXES BY
032207,000085:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.  THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
032208,000086:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.  THERE IS NO RETURN.
032209,000087: 
032210,000088:                                                                                                  #  THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
032211,000089: 
032212,000090:                                                                                                  #                   HONI SOIT QUI MAL Y PENSE
032213,000091: 
032214,000092:                                                                                                  #        ****************************************
032215,000093:                                                                                                  #        TABLES FOR THE IGNITION ROUTINE
032216,000094:                                                                                                  #        ****************************************
032217,000095: 
032218,000096:                                                                                                  #                        NOLI SE TANGERE
032219,000097: 
032220,000098: 36,2022           01512        P12TABLE           VN       0674                                  #  (0)
032221,000099: 36,2023           12325                           TCF      ULLGNOT                               #  (1)
032222,000100: 36,2024           12612                           TCF      COMFAIL3                              #  (2)
032223,000101: 36,2025           13062                           TCF      GOCUTOFF                              #  (3)
032224,000102: 36,2026           15261                           TCF      TASKOVER                              #  (4)
032225,000103: 36,2027           12146                           TCF      P12SPOT                               #  (5)
032226,000104: 36,2030           00000                           DEC      0          B-14                       #  (6)   NO ULLAGE
032227,000105: 36,2031  E7,1455                                  EBANK=   WHICH                                 
032228,000106: 36,2031           03770 64067                     2CADR    SERVEXIT                              #  (7)
032229,000107: 
032230,000108: 36,2033           12376                           TCF      DISPCHNG                              #  (11)
032231,000109: 36,2034           12563                           TCF      WAITABIT                              #  (12)
032232,000110: 36,2035           12521                           TCF      P12IGN                                #  (13)
032233,000111: 
032234,000112: 36,2036           01450        P40TABLE           VN       0640                                  #  (0)
032235,000113: 36,2037           12325                           TCF      ULLGNOT                               #  (1)
032236,000114: 36,2040           12614                           TCF      COMFAIL4                              #  (2)
032237,000115: 36,2041           13047                           TCF      GOPOST                                #  (3)
032238,000116: 36,2042           15261                           TCF      TASKOVER                              #  (4)
032239,000117: 36,2043           12146                           TCF      P40SPOT                               #  (5)

Page 732

032241,000119: 36,2044           04300                           DEC      2240       B-14                       #  (6)
032242,000120: 36,2045  E6,1422                                  EBANK=   OMEGAQ                                
032243,000121: 36,2045           03666 74066                     2CADR    STEERING                              #  (7)
032244,000122: 
032245,000123: 36,2047           12366                           TCF      P40SJUNK                              #  (11)
032246,000124: 36,2050           12563                           TCF      WAITABIT                              #  (12)
032247,000125: 36,2051           12504                           TCF      P40IGN                                #  (13)
032248,000126: 36,2052           13123                           TCF      REP40ALM                              #  (14)
032249,000127: 
032250,000128: 36,2053           12151        P41TABLE           TCF      P41SPOT                               #  (5)
032251,000129: 36,2054           77776                           DEC      -1         B-14                       #  (6)
032252,000130: 36,2055  E6,1422                                  EBANK=   OMEGAQ                                
032253,000131: 36,2055           03376 74066                     2CADR    CALCN85                               #  (7)
032254,000132: 
032255,000133: 36,2057           12400                           TCF      COMMON                                #  (11)
032256,000134: 36,2060           12567                           TCF      TIGTASK                               #  (12)
032257,000135: 
032258,000136: 36,2061           01450        P42TABLE           VN       0640                                  #  (0)
032259,000137: 36,2062           12322                           TCF      WANTAPS                               #  (1)
032260,000138: 36,2063           12614                           TCF      COMFAIL4                              #  (2)
032261,000139: 36,2064           13047                           TCF      GOPOST                                #  (3)
032262,000140: 36,2065           15261                           TCF      TASKOVER                              #  (4)
032263,000141: 36,2066           12146                           TCF      P42SPOT                               #  (5)
032264,000142: 36,2067           05120                           DEC      2640       B-14                       #  (6)
032265,000143: 36,2070  E6,1422                                  EBANK=   OMEGAQ                                
032266,000144: 36,2070           03666 74066                     2CADR    STEERING                              #  (7)
032267,000145: 
032268,000146: 36,2072           12366                           TCF      P40SJUNK                              #  (11)
032269,000147: 36,2073           12563                           TCF      WAITABIT                              #  (12)
032270,000148: 36,2074           12541                           TCF      P42IGN                                #  (13)
032271,000149: 36,2075           13420                           TCF      P42STAGE                              #  (14)
032272,000150: 
032273,000151: 36,2076           01476        P63TABLE           VN       0662                                  #  (0)
032274,000152: 36,2077           12325                           TCF      ULLGNOT                               #  (1)
032275,000153: 36,2100           12612                           TCF      COMFAIL3                              #  (2)
032276,000154: 36,2101           12777                           TCF      V99RECYC                              #  (3)
032277,000155: 36,2102           15261                           TCF      TASKOVER                              #  (4)
032278,000156: 36,2103           12151                           TCF      P63SPOT                               #  (5)
032279,000157: 36,2104           04300                           DEC      2240       B-14                       #  (6)
032280,000158: 36,2105  E7,1455                                  EBANK=   WHICH                                 
032281,000159: 36,2105           03770 64067                     2CADR    SERVEXIT                              #  (7)
032282,000160: 
032283,000161: 36,2107           12376                           TCF      DISPCHNG                              #  (11)
032284,000162: 36,2110           12563                           TCF      WAITABIT                              #  (12)

Page 733

032286,000164: 36,2111           12455                           TCF      P63IGN                                #  (13)
032287,000165: 
032288,000166: 36,2112           01477        ABRTABLE           VN       0663                                  #  (0)
032289,000167: 36,2113           12325                           TCF      ULLGNOT                               #  (1)
032290,000168: 36,2114           12612                           TCF      COMFAIL3                              #  (2)
032291,000169: 36,2115           13062                           TCF      GOCUTOFF                              #  (3)
032292,000170: 36,2116           15261                           TCF      TASKOVER                              #  (4)
032293,000171: 36,2117           12120                           NOOP                                           #  (5)
032294,000172: 36,2120           12121                           NOOP                                           #  (6)
032295,000173: 36,2121           12122                           NOOP                                           #  (7)
032296,000174: 36,2122           12123                           NOOP                                           
032297,000175: 36,2123           12376                           TCF      DISPCHNG                              #  (11)
032298,000176: 36,2124           12563                           TCF      WAITABIT                              #  (12)
032299,000177: 36,2125           12531                           TCF      ABRTIGN                               #  (13)
032300,000178: 
032301,000179:                                                                                                  #        ****************************************
032302,000180:                                                                                                  #        GENERAL PURPOSE IGNITION ROUTINES
032303,000181:                                                                                                  #        ****************************************
032304,000182: 
032305,000183: 36,2126           05353        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
032306,000184: 36,2127           04024                           OCT      04024                                 
032307,000185: 
032308,000186: 36,2130           34755                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
032309,000187: 36,2131           55507                           TS       DVTOTAL                               
032310,000188: 36,2132           55510                           TS       DVTOTAL    +1                         
032311,000189: 
032312,000190: 36,2133           04616                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
032313,000191: 36,2134           73747                           CADR     P40AUTO                               #  OWN BANK TO SET UP RETURN PROPERLY
032314,000192: 
032315,000193: 36,2135           00006        B*RNB*B*           EXTEND                                         
032316,000194: 36,2136           31442                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
032317,000195: 36,2137           53512                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
032318,000196: 
032319,000197: 36,2140           00004                           INHINT                                         
032320,000198: 36,2141           04674                           TC       IBNKCALL                              
032321,000199: 36,2142           75564                           CADR     ENGINOF3                              
032322,000200: 36,2143           00003                           RELINT                                         
032323,000201: 
032324,000202: 36,2144           51455                           INDEX    WHICH                                 
032325,000203: 36,2145           10005                           TCF      5                                     
032326,000204: 
032327,000205: 36,2146  36,2146               P42SPOT            =        P40SPOT                               #  (5)
032328,000206: 36,2146  36,2146               P12SPOT            =        P40SPOT                               #  (5)
032329,000207: 36,2146  36,2151               P63SPOT            =        P41SPOT                               #  (5)   IN P63 CLOKTASK ALREADY GOING
032330,000208: 36,2146           44762        P40SPOT            CS       CNTDNDEX                              #  (5)

Page 734

032332,000210: 36,2147           04616                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED
032333,000211: 36,2150           74664                           CADR     STCLOK2                               #        RETURN
032334,000212: 36,2151           06037        P41SPOT            TC       INTPRET                               #  (5)
032335,000213: 36,2152           45345                           DLOAD    DSU                                   
032336,000214: 36,2153           03442                                    TIG                                   
032337,000215: 36,2154           35143                                    D29.9SEC                              
032338,000216: 36,2155           34041                           STCALL   TDEC1                                 
032339,000217: 36,2156           61104                                    INITCDUW                              
032340,000218: 36,2157           45014                           BOFF     CALL                                  
032341,000219: 36,2160           03347                                    MUNFLAG                               
032342,000220: 36,2161           74200                                    GOMIDAV                               
032343,000221: 36,2162           27043                                    CSMPREC                               
032344,000222: 36,2163           64375                           VLOAD    MXV                                   
032345,000223: 36,2164           00025                                    VATT1                                 
032346,000224: 36,2165           01734                                    REFSMMAT                              
032347,000225: 36,2166           77762                           VSR1                                           
032348,000226: 36,2167           25726                           STOVL    V(CSM)                                #  CSM VELOCITY - M/CS*2(7)
032349,000227: 36,2170           00017                                    RATT1                                 
032350,000228: 36,2171           64312                           VSL4     MXV                                   
032351,000229: 36,2172           01734                                    REFSMMAT                              
032352,000230: 36,2173           35720                           STCALL   R(CSM)                                #  CSM POSITION - M*2(24)
032353,000231: 36,2174           67130                                    MUNGRAV                               
032354,000232: 36,2175           16317                           STODL    G(CSM)                                #  CSM GRAVITY VEC. - M/CS*2(7)
032355,000233: 36,2176           00015                                    TAT                                   
032356,000234: 36,2177           00041                           STORE    TDEC1                                 #  RELOAD TDEC1 FOR MIDTOAV.
032357,000235: 36,2200           77624        GOMIDAV            CALRB                                          
032358,000236: 36,2201           27557                                    MIDTOAV1                              
032359,000237: 36,2202           12211                           TCF      CALLT-35                              #  MADE IT IN TIME.
032360,000238: 
032361,000239: 36,2203           00006                           EXTEND                                         #  TIG WAS SLIPPED, SO RESET TIG TO 29.9
032362,000240: 36,2204           31561                           DCA      PIPTIME1                              #  SECONDS AFTER THE TIME TO WHICH WE DID
032363,000241: 36,2205           53442                           DXCH     TIG                                   #  INTEGRATE.
032364,000242: 36,2206           00006                           EXTEND                                         
032365,000243: 36,2207           33143                           DCA      D29.9SEC                              
032366,000244: 36,2210           21442                           DAS      TIG                                   
032367,000245: 
032368,000246: 36,2211           52155        CALLT-35           DXCH     MPAC                                  
032369,000247: 36,2212           53500                           DXCH     SAVET-30                              #  DELTA-T UNTIL TIG-30
032370,000248: 36,2213           00006                           EXTEND                                         
032371,000249: 36,2214           43756                           DCS      5SECDP                                
032372,000250: 36,2215           21500                           DAS      SAVET-30                              #  DELTA-T UNTIL TIG-35
032373,000251: 36,2216           00006                           EXTEND                                         
032374,000252: 36,2217           31500                           DCA      SAVET-30                              
032375,000253: 36,2220           05277                           TC       LONGCALL                              
032376,000254: 36,2221  E7,1453                                  EBANK=   TTOGO                                 
032377,000255: 36,2221           02240 74067                     2CADR    TIG-35                                
032378,000256: 
032379,000257: 36,2223           05353                           TC       PHASCHNG                              
032380,000258: 36,2224           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.

Page 735

032382,000260: 36,2225           05321                           TC       CHECKMM                               
032383,000261: 36,2226           00077                           DEC      63         B-14                       
032384,000262: 36,2227           15155                           TCF      ENDOFJOB                              #  NOT P63
032385,000263: 36,2230           44762                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
032386,000264: 36,2231           55163                           TS       DISPDEX                               
032387,000265: 36,2232           06037                           TC       INTPRET                               
032388,000266: 36,2233           51575                           VLOAD    ABVAL                                 
032389,000267: 36,2234           03553                                    VN1                                   
032390,000268: 36,2235           03472                           STORE    ABVEL                                 #  INITIALIZE ABVEL FOR P63 DISPLAY
032391,000269: 36,2236           77776                           EXIT                                           
032392,000270: 36,2237           15155                           TCF      ENDOFJOB                              
032393,000271: 
032394,000272:                                                                                                  #        ****************************************
032395,000273: 
032396,000274: 36,2240           33756        TIG-35             CAF      5SEC                                  
032397,000275: 36,2241           05173                           TC       TWIDDLE                               
032398,000276: 36,2242           02276                           ADRES    TIG-30                                
032399,000277: 
032400,000278: 36,2243           05353                           TC       PHASCHNG                              
032401,000279: 36,2244           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
032402,000280: 
032403,000281: 36,2245           44752                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
032404,000282: 36,2246           55163                           TS       DISPDEX                               
032405,000283: 
032406,000284: 36,2247           51455                           INDEX    WHICH                                 
032407,000285: 36,2250           40006                           CS       6                                     #  CHECK ULLAGE TIME.
032408,000286: 36,2251           00006                           EXTEND                                         
032409,000287: 36,2252           65261                           BZMF     TASKOVER                              
032410,000288: 36,2253           33145                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
032411,000289: 36,2254           05173                           TC       TWIDDLE                               
032412,000290: 36,2255           02266                           ADRES    TIG-30.1                              
032413,000291: 
032414,000292: 36,2256           35027                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
032415,000293: 36,2257           05072                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
032416,000294: 36,2260  E7,1453                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
032417,000295: 36,2260           02263 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
032418,000296: 
032419,000297: 36,2262           15261                           TCF      TASKOVER                              
032420,000298: 
032421,000299: 36,2263           04616        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
032422,000300: 36,2264           20456                           CADR     CLEANDSP                              
032423,000301: 36,2265           15155                           TCF      ENDOFJOB                              
032424,000302: 
032425,000303: 36,2266           35027        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
032426,000304: 36,2267           05072                           TC       NOVAC                                 
032427,000305: 36,2270  E7,1453                                  EBANK=   TTOGO                                 
032428,000306: 36,2270           02273 74067                     2CADR    TIG-30A                               
032429,000307: 
032430,000308: 36,2272           15261                           TCF      TASKOVER                              

Page 736

032432,000310: 36,2273           33761        TIG-30A            CAF      V16N85B                               
032433,000311: 36,2274           04616                           TC       BANKCALL                              #  RESTORE DISPLAY.
032434,000312: 36,2275           20465                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
032435,000313: 
032436,000314:                                                                                                  #        *****************************************
032437,000315: 
032438,000316: 36,2276           33144        TIG-30             CAF      S24.9SEC                              
032439,000317: 36,2277           05173                           TC       TWIDDLE                               
032440,000318: 36,2300           02352                           ADRES    TIG-5                                 
032441,000319: 
032442,000320: 36,2301           44762                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
032443,000321: 36,2302           55163                           TS       DISPDEX                               
032444,000322: 
032445,000323: 36,2303           51455                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE - ON TIME
032446,000324: 36,2304           30006                           CAF      6                                     
032447,000325: 36,2305           00006                           EXTEND                                         
032448,000326: 36,2306           62325                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
032449,000327: 36,2307           55477                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
032450,000328: 36,2310           05173                           TC       TWIDDLE                               
032451,000329: 36,2311           02346                           ADRES    ULLGTASK                              
032452,000330: 
032453,000331: 36,2312           36245                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
032454,000332: 36,2313           54001                           TS       L                                     
032455,000333: 36,2314           46245                           CS       THREE                                 
032456,000334: 36,2315           52753                           DXCH     -PHASE1                               
032457,000335: 36,2316           40025                           CS       TIME1                                 
032458,000336: 36,2317           55053                           TS       TBASE1                                
032459,000337: 
032460,000338: 36,2320           51455                           INDEX    WHICH                                 
032461,000339: 36,2321           10001                           TCF      1                                     
032462,000340: 
032463,000341: 36,2322           40106        WANTAPS            CS       FLGWRD10                              #  (1) FOR P42 ENSURE APSFLAG IS SET.  IF IT
032464,000342: 36,2323           74737                           MASK     APSFLBIT                              #  WASN'T SET, DAP WILL BE INITIALIZED TO
032465,000343: 36,2324           26106                           ADS      FLGWRD10                              #  ASCENT VALUES BY 1/ACCS IN 2 SECONDS.
032466,000344: 
032467,000345: 36,2325           00006        ULLGNOT            EXTEND                                         #  (1)
032468,000346: 36,2326           51455                           INDEX    WHICH                                 
032469,000347: 36,2327           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
032470,000348: 36,2330           53253                           DXCH     AVEGEXIT                              
032471,000349: 
032472,000350: 36,2331           34752                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
032473,000351: 36,2332           54001                           TS       L                                     
032474,000352: 36,2333           44752                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
032475,000353: 36,2334           52761                           DXCH     -PHASE4                               
032476,000354: 
032477,000355: 36,2335           40025                           CS       TIME1                                 
032478,000356: 36,2336           55061                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
032479,000357: 
032480,000358: 36,2337           00006        REDO2.17           EXTEND                                         

Page 737

032482,000360: 36,2340           34755                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
032483,000361: 36,2341           52755                           DXCH     -PHASE2                               #  IF NEEDED.
032484,000362: 
032485,000363: 36,2342           10763        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
032486,000364: 36,2343           15261                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
032487,000365: 
032488,000366: 36,2344           04635                           TC       POSTJUMP                              
032489,000367: 36,2345           77410                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
032490,000368: 
032491,000369:                                                                                                  #        ****************************************
032492,000370: 
032493,000371: 36,2346           02657        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
032494,000372: 36,2347           05353                           TC       PHASCHNG                              
032495,000373: 36,2350           00001                           OCT      1                                     
032496,000374: 36,2351           15261                           TCF      TASKOVER                              
032497,000375: 
032498,000376:                                                                                                  #        ****************************************
032499,000377: 
032500,000378: 36,2352           00006        TIG-5              EXTEND                                         
032501,000379: 36,2353           34755                           DCA      NEG0                                  #  INSURE THAT GROUP 3 IS INACTIVE.
032502,000380: 36,2354           52757                           DXCH     -PHASE3                               
032503,000381: 
032504,000382: 36,2355           33756                           CAF      5SEC                                  
032505,000383: 36,2356           05173                           TC       TWIDDLE                               
032506,000384: 36,2357           02403                           ADRES    TIG-0                                 
032507,000385: 
032508,000386: 36,2360           05516                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
032509,000387: 36,2361           00153                           ADRES    IGNFLAG                               #        FOR LIGHT-UP LOGIC
032510,000388: 36,2362           05516                           TC       DOWNFLAG                              
032511,000389: 36,2363           00154                           ADRES    ASTNFLAG                              
032512,000390: 
032513,000391: 36,2364           51455                           INDEX    WHICH                                 
032514,000392: 36,2365           10011                           TCF      11                                    
032515,000393: 
032516,000394: 36,2366           10757        P40SJUNK           CCS      PHASE3                                #  (11) P40 AND P42.  S40.13 IN PROGRESS?
032517,000395: 36,2367           12376                           TCF      DISPCHNG                              #  YES
032518,000396: 
032519,000397: 36,2370           34736                           CAF      PRIO20                                
032520,000398: 36,2371           05105                           TC       FINDVAC                               
032521,000399: 36,2372  E7,1453                                  EBANK=   TTOGO                                 
032522,000400: 36,2372           02540 56067                     2CADR    S40.13                                
032523,000401: 
032524,000402: 36,2374           05353                           TC       PHASCHNG                              #  3.5SPOT FOR S40.13
032525,000403: 36,2375           00053                           OCT      00053                                 
032526,000404: 36,2376           44760        DISPCHNG           CS       VB99DEX                               #  (11)
032527,000405: 36,2377           55163                           TS       DISPDEX                               
032528,000406: 

Page 738

032530,000408: 36,2400           05353        COMMON             TC       PHASCHNG                              #  RESTART TIG-0 (4.7SPOT)
032531,000409: 36,2401           40074                           OCT      40074                                 
032532,000410: 36,2402           15261                           TCF      TASKOVER                              
032533,000411: 
032534,000412:                                                                                                  #        ****************************************
032535,000413: 
032536,000414: 36,2403           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
032537,000415: 36,2404           74737                           MASK     IGNFLBIT                              
032538,000416: 36,2405           26103                           ADS      FLAGWRD7                              
032539,000417: 
032540,000418: 36,2406           05321                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
032541,000419: 36,2407           00077                           DEC      63         B-14                       #  AFTER NOMINAL IGNITION, NOT ACTUAL
032542,000420: 36,2410           12421                           TCF      IGNYET?                               
032543,000421: 36,2411           31422                           CA       ZOOMTIME                              
032544,000422: 36,2412           05203                           TC       WAITLIST                              
032545,000423: 36,2413  E7,1515                                  EBANK=   DVCNTR                                
032546,000424: 36,2413           02007 36067                     2CADR    P63ZOOM                               
032547,000425: 
032548,000426: 36,2415           05327                           TC       2PHSCHNG                              
032549,000427: 36,2416           40033                           OCT      40033                                 
032550,000428: 
032551,000429: 36,2417           05014                           OCT      05014                                 
032552,000430: 36,2420           77777                           OCT      77777                                 
032553,000431: 
032554,000432: 36,2421           34740        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
032555,000433: 36,2422           70103                           MASK     FLAGWRD7                              #  TO OUR ENGINE ENABLE REQUEST?
032556,000434: 36,2423           00006                           EXTEND                                         
032557,000435: 36,2424           51455                           INDEX    WHICH                                 
032558,000436: 36,2425           10012                           BZF      12                                    #  BRANCH IF HE HAS NOT RESPONDED YET
032559,000437: 
032560,000438: 36,2426           40101        IGNITION           CS       FLAGWRD5                              #  INSURE ENGONFLG IS SET.
032561,000439: 36,2427           74745                           MASK     ENGONBIT                              
032562,000440: 36,2430           26101                           ADS      FLAGWRD5                              
032563,000441: 36,2431           44355                           CS       PRIO30                                #  TURN ON THE ENGINE.
032564,000442: 36,2432           00006                           EXTEND                                         
032565,000443: 36,2433           02011                           RAND     DSALMOUT                              
032566,000444: 36,2434           64737                           AD       BIT13                                 
032567,000445: 36,2435           00006                           EXTEND                                         
032568,000446: 36,2436           01011                           WRITE    DSALMOUT                              
032569,000447: 36,2437           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
032570,000448: 36,2440           30025                           DCA      TIME2                                 
032571,000449: 36,2441           53345                           DXCH     TEVENT                                
032572,000450: 
032573,000451: 36,2442           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
032574,000452: 36,2443           31517                           DCA      TGO                                   
032575,000453: 36,2444           53442                           DXCH     TIG                                   
032576,000454: 36,2445           00006                           EXTEND                                         
032577,000455: 36,2446           30025                           DCA      TIME2                                 
032578,000456: 36,2447           21442                           DAS      TIG                                   
032579,000457: 

Page 739

032581,000459: 36,2450           44742                           CS       FLUNDBIT                              #  PERMIT GUIDANCE LOOP DISPLAYS
032582,000460: 36,2451           70104                           MASK     FLAGWRD8                              
032583,000461: 36,2452           54104                           TS       FLAGWRD8                              
032584,000462: 
032585,000463: 36,2453           51455                           INDEX    WHICH                                 
032586,000464: 36,2454           10013                           TCF      13                                    
032587,000465: 
032588,000466: 36,2455           00006        P63IGN             EXTEND                                         #  (13)  INITIATE BURN DISPLAYS
032589,000467: 36,2456           33137                           DCA      DSP2CADR                              
032590,000468: 36,2457           53253                           DXCH     AVGEXIT                               
032591,000469: 
032592,000470: 36,2460           30005                           CA       Z                                     #  ASSASSINATE CLOKTASK
032593,000471: 36,2461           55163                           TS       DISPDEX                               
032594,000472: 
032595,000473: 36,2462           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
032596,000474: 36,2463           74743                           MASK     LETABBIT                              
032597,000475: 36,2464           26105                           ADS      FLAGWRD9                              
032598,000476: 
032599,000477: 36,2465           40103                           CS       FLAGWRD7                              #  SET SWANDISP TO ENABLE R10.
032600,000478: 36,2466           74741                           MASK     SWANDBIT                              
032601,000479: 36,2467           26103                           ADS      FLAGWRD7                              
032602,000480: 
032603,000481: 36,2470           44735                           CS       PULSES                                #  MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
032604,000482: 36,2471           70111                           MASK     DAPBOOLS                              #  MODE, IN CASE OF SWITCH TO P66
032605,000483: 36,2472           54111                           TS       DAPBOOLS                              
032606,000484: 
032607,000485: 36,2473           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
032608,000486: 36,2474           30025                           DCA      TIME2                                 
032609,000487: 36,2475           53442                           DXCH     TIG                                   
032610,000488: 
032611,000489: 36,2476           34755                           CAF      ZERO                                  #  INITIALIZE WCHPHASE AND FLPASSO
032612,000490: 36,2477           55351                           TS       WCHPHASE                              
032613,000491: 36,2500           55621                           TS       WCHPHOLD                              #  ALSO WHCPHOLD
032614,000492: 36,2501           34752                           CA       TWO                                   
032615,000493: 36,2502           55623                           TS       FLPASS0                               
032616,000494: 
032617,000495: 36,2503           12541                           TCF      P42IGN                                
032618,000496: 36,2504           40101        P40IGN             CS       FLAGWRD5                              #  (13)
032619,000497: 36,2505           74740                           MASK     NOTHRBIT                              
032620,000498: 36,2506           00006                           EXTEND                                         
032621,000499: 36,2507           12541                           BZF      P42IGN                                
032622,000500: 36,2510           31422                           CA       ZOOMTIME                              
032623,000501: 36,2511           05203                           TC       WAITLIST                              
032624,000502: 36,2512  E7,1515                                  EBANK=   DVCNTR                                
032625,000503: 36,2512           02015 36067                     2CADR    P40ZOOM                               
032626,000504: 
032627,000505: 36,2514           05327        P63IGN1            TC       2PHSCHNG                              
032628,000506: 36,2515           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
032629,000507: 36,2516           05014                           OCT      05014                                 #  TYPE C RESTARTS HERE IMMEDIATELY
032630,000508: 36,2517           77777                           OCT      77777                                 
032631,000509: 

Page 740

032633,000511: 36,2520           12541                           TCF      P42IGN                                
032634,000512: 36,2521           35015        P12IGN             CAF      EBANK6                                
032635,000513: 36,2522           54003                           TS       EBANK                                 
032636,000514: 36,2523  E6,1537                                  EBANK=   AOSQ                                  
032637,000515: 
032638,000516: 36,2523           31412                           CA       IGNAOSQ                               #  INITIALIZE DAP BIAS ACCELERATION
032639,000517: 36,2524           55537                           TS       AOSQ                                  #  ESTIMATES AT P12 IGNITION.
032640,000518: 36,2525           31413                           CA       IGNAOSR                               
032641,000519: 36,2526           55541                           TS       AOSR                                  
032642,000520: 
032643,000521: 36,2527           35016                           CAF      EBANK7                                
032644,000522: 36,2530           54003                           TS       EBANK                                 
032645,000523: 36,2531  E7,1515                                  EBANK=   DVCNTR                                
032646,000524: 
032647,000525: 36,2531           30005        ABRTIGN            CA       Z                                     #  (13) KILL CLOKTASK
032648,000526: 36,2532           55163                           TS       DISPDEX                               
032649,000527: 
032650,000528: 36,2533           00006                           EXTEND                                         #  CONNECT ASCENT GYIDANCE TO SERVICER.
032651,000529: 36,2534           33141                           DCA      ATMAGADR                              
032652,000530: 36,2535           53253                           DXCH     AVGEXIT                               
032653,000531: 
032654,000532: 36,2536           40103                           CS       FLAGWRD7                              #  ENABLE R10.
032655,000533: 36,2537           74741                           MASK     SWANDBIT                              
032656,000534: 36,2540           26103                           ADS      FLAGWRD7                              
032657,000535: 
032658,000536: 36,2541           44744        P42IGN             CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
032659,000537: 36,2542           70111                           MASK     DAPBOOLS                              #  CURVES ARE USED.
032660,000538: 36,2543           54111                           TS       DAPBOOLS                              
032661,000539: 36,2544           34743                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
032662,000540: 36,2545           70076                           MASK     FLAGWRD2                              
032663,000541: 36,2546           10000                           CCS      A                                     
032664,000542: 36,2547           13522                           TCF      IMPLBURN                              
032665,000543: 
032666,000544: 36,2550           05516        DVMONCON           TC       DOWNFLAG                              
032667,000545: 36,2551           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
032668,000546: 36,2552           05516                           TC       DOWNFLAG                              
032669,000547: 36,2553           00154                           ADRES    ASTNFLAG                              
032670,000548: 36,2554           05516                           TC       DOWNFLAG                              
032671,000549: 36,2555           00161                           ADRES    IDLEFLAG                              
032672,000550: 
032673,000551: 36,2556           05353                           TC       PHASCHNG                              
032674,000552: 36,2557           40054                           OCT      40054                                 
032675,000553: 
032676,000554: 36,2560           05221                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
032677,000555: 36,2561           00062                           DEC      50         B-14                       #  LIGHT UP.
032678,000556: 
032679,000557: 36,2562           02653        ULLAGOFF           TC       NOULLAGE                              
032680,000558: 
032681,000559: 36,2563           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
032682,000560: 36,2564           34755                           DCA      NEG0                                  

Page 741

032684,000562: 36,2565           52761                           DXCH     -PHASE4                               
032685,000563: 
032686,000564: 36,2566           15261                           TCF      TASKOVER                              
032687,000565: 
032688,000566: 36,2567           04635        TIGTASK            TC       POSTJUMP                              #  (12)
032689,000567: 36,2570           36000                           CADR     TIGTASK1                              
032690,000568: 
032691,000569:                                                                                                  #        ****************************************
032692,000570: 
032693,000571: 31,2144                                           BANK     31                                    
032694,000572: 17,2000                                           SETLOC   P40S3                                 
032695,000573: 17,2000                                           BANK                                           
032696,000574: 17,2000                                           COUNT*   $$/P40                                
032697,000575: 
032698,000576: 17,2000           35026        TIGTASK1           CAF      PRIO16                                
032699,000577: 17,2001           05072                           TC       NOVAC                                 
032700,000578: 17,2002  E7,1462                                  EBANK=   TRKMKCNT                              
032701,000579: 17,2002           03241 74067                     2CADR    TIGNOW                                
032702,000580: 
032703,000581: 17,2004           05353                           TC       PHASCHNG                              
032704,000582: 17,2005           00006                           OCT      6                                     #  KILL GROUP 6.
032705,000583: 
032706,000584: 17,2006           15261                           TCF      TASKOVER                              
032707,000585: 
032708,000586:                                                                                                  #        ****************************************
032709,000587: 
032710,000588: 17,2007           00006        P63ZOOM            EXTEND                                         
032711,000589: 17,2010           32026                           DCA      LUNLANAD                              
032712,000590: 17,2011           53253                           DXCH     AVEGEXIT                              
032713,000591: 
032714,000592: 17,2012           04674                           TC       IBNKCALL                              
032715,000593: 17,2013           62370                           CADR     FLATOUT                               
032716,000594: 17,2014           12022                           TCF      P40ZOOMA                              
032717,000595: 
032718,000596: 17,2015           34737        P40ZOOM            CAF      BIT13                                 
032719,000597: 17,2016           54055                           TS       THRUST                                
032720,000598: 17,2017           34750                           CAF      BIT4                                  
032721,000599: 
032722,000600: 17,2020           00006                           EXTEND                                         
032723,000601: 17,2021           05014                           WOR      CHAN14                                
032724,000602: 
032725,000603: 17,2022           05353        P40ZOOMA           TC       PHASCHNG                              
032726,000604: 17,2023           00003                           OCT      3                                     
032727,000605: 17,2024           15261                           TCF      TASKOVER                              
032728,000606: 
032729,000607: 17,2025  E7,1515                                  EBANK=   DVCNTR                                
032730,000608: 17,2025           02462 62067  LUNLANAD           2CADR    LUNLAND                               
032731,000609: 

Page 742

032733,000611: 17,2027  17,2022               ZOOM               =        P40ZOOMA                              
032734,000612: 36,2571                                           BANK     36                                    
032735,000613: 36,2000                                           SETLOC   P40S                                  
032736,000614: 36,2000                                           BANK                                           
032737,000615: 36,2571                                           COUNT*   $$/P40                                
032738,000616: 
032739,000617:                                                                                                  #        ****************************************
032740,000618: 
032741,000619: 36,2571           05504        COMFAIL            TC       UPFLAG                                #  (15)
032742,000620: 36,2572           00161                           ADRES    IDLEFLAG                              
032743,000621: 36,2573           05504                           TC       UPFLAG                                #  SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032744,000622: 36,2574           00175                           ADRES    FLUNDISP                              
032745,000623: 36,2575           34751                           CAF      FOUR                                  #  RESET DVMON
032746,000624: 36,2576           55515                           TS       DVCNTR                                
032747,000625: 36,2577           10765                           CCS      PHASE6                                #  CLOCKTASK ACTIVE?
032748,000626: 36,2600           12603                           TCF      +3                                    #  YES
032749,000627: 36,2601           04616                           TC       BANKCALL                              #  OTHERWISE, START IT UP
032750,000628: 36,2602           74663                           CADR     STCLOK1                               
032751,000629: 36,2603           44765                 +3        CS       VB97DEX                               
032752,000630: 36,2604           55163                           TS       DISPDEX                               
032753,000631: 36,2605           05353                           TC       PHASCHNG                              #  TURN OFF GROUP 4.
032754,000632: 36,2606           00004                           OCT      00004                                 
032755,000633: 36,2607           15155                           TCF      ENDOFJOB                              
032756,000634: 
032757,000635: 36,2610           51455        COMFAIL1           INDEX    WHICH                                 
032758,000636: 36,2611           10002                           TCF      2                                     
032759,000637: 
032760,000638: 36,2612           30005        COMFAIL3           CA       Z                                     #  (15)  KILL CLOKTASK USING Z
032761,000639: 36,2613           12615                           TCF      +2                                    
032762,000640: 
032763,000641: 36,2614           44762        COMFAIL4           CS       CNTDNDEX                              
032764,000642: 36,2615           55163                           TS       DISPDEX                               
032765,000643: 
032766,000644: 36,2616           05516                           TC       DOWNFLAG                              #  RECONNECT DV MONITOR
032767,000645: 36,2617           00161                           ADRES    IDLEFLAG                              
032768,000646: 36,2620           05516                           TC       DOWNFLAG                              #  PERMIT GUIDANCE LOOP DISPLAYS
032769,000647: 36,2621           00175                           ADRES    FLUNDISP                              
032770,000648: 36,2622           15155                           TCF      ENDOFJOB                              
032771,000649: 
032772,000650: 36,2623           05353        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
032773,000651: 36,2624           00003                           OCT      00003                                 
032774,000652: 
032775,000653: 36,2625           00004                           INHINT                                         
032776,000654: 36,2626           06027                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
032777,000655: 36,2627           36022                           CADR     ZOOM                                  
032778,000656: 36,2630           04674                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
032779,000657: 36,2631           75561                           CADR     ENGINOF4                              
032780,000658: 36,2632           05504                           TC       UPFLAG                                #  SET THE DRIFT BIT FOR THE DAP.
032781,000659: 36,2633           00312                           ADRES    DRIFTDFL                              

Page 743

032783,000661: 36,2634           02645                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
032784,000662: 36,2635           00310                           ADRES    AORBTFLG                              
032785,000663: 36,2636           05504                           TC       UPFLAG                                #  TURN ON ULLAGE
032786,000664: 36,2637           00314                           ADRES    ULLAGFLG                              
032787,000665: 36,2640           34753                           CAF      BIT1                                  
032788,000666: 36,2641           00004                           INHINT                                         
032789,000667: 36,2642           05173                           TC       TWIDDLE                               
032790,000668: 36,2643           02352                           ADRES    TIG-5                                 
032791,000669: 36,2644           15155                           TCF      ENDOFJOB                              
032792,000670: 
032793,000671:                                                                                                  #        ****************************************
032794,000672:                                                                                                  #        SUBROUTINES OF THE IGNITION ROUTINE
032795,000673:                                                                                                  #        ****************************************
032796,000674: 
032797,000675: 36,2645           30002        INVFLAG            CA       Q                                     
032798,000676: 36,2646           05522                           TC       DEBIT                                 
032799,000677: 36,2647           40000                           COM                                            
032800,000678: 36,2650           00006                           EXTEND                                         
032801,000679: 36,2651           06001                           RXOR     LCHAN                                 
032802,000680: 36,2652           15511                           TCF      COMFLAG                               
032803,000681: 
032804,000682:                                                                                                  #        ****************************************
032805,000683: 
032806,000684: 36,2653           44746        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
032807,000685: 36,2654           70111                           MASK     DAPBOOLS                              
032808,000686: 36,2655           54111                           TS       DAPBOOLS                              
032809,000687: 36,2656           00002                           TC       Q                                     
032810,000688: 
032811,000689:                                                                                                  #        ****************************************
032812,000690: 
032813,000691: 36,2657           40111        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
032814,000692: 36,2660           74746                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
032815,000693: 36,2661           26111                           ADS      DAPBOOLS                              
032816,000694: 36,2662           00002                           TC       Q                                     
032817,000695: 
032818,000696:                                                                                                  #        ****************************************
032819,000697: 
032820,000698: 36,2663           34755        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
032821,000699: 36,2664           55163        STCLOK2            TS       DISPDEX                               #  (CLOKTASK AND CLOKJOB).  SETTING
032822,000700: 36,2665           04645        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
032823,000701: 36,2666           55061                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
032824,000702: 36,2667           00006                           EXTEND                                         
032825,000703: 36,2670           31442                           DCA      TIG                                   
032826,000704: 36,2671           52155                           DXCH     MPAC                                  
032827,000705: 36,2672           00006                           EXTEND                                         
032828,000706: 36,2673           40025                           DCS      TIME2                                 

Page 744

032830,000708: 36,2674           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032831,000709: 36,2675           07257                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE
032832,000710: 36,2676           34777                           CAF      1SEC                                  #  45 SECOND CHECK
032833,000711: 36,2677           54002                           TS       Q                                     
032834,000712: 36,2700           52155                           DXCH     MPAC                                  
032835,000713: 36,2701           74346                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
032836,000714: 36,2702           00006                           EXTEND                                         
032837,000715: 36,2703           10002                           DV       Q                                     
032838,000716: 36,2704           30001                           CA       L                                     #  GET REMAINDER
032839,000717: 36,2705           64752                           AD       TWO                                   
032840,000718: 36,2706           00004                           INHINT                                         
032841,000719: 36,2707           05173                           TC       TWIDDLE                               
032842,000720: 36,2710           02717                           ADRES    CLOKTASK                              
032843,000721: 36,2711           05327                           TC       2PHSCHNG                              
032844,000722: 36,2712           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
032845,000723: 36,2713           05024                           OCT      05024                                 
032846,000724: 36,2714           13000                           OCT      13000                                 
032847,000725: 
032848,000726: 36,2715           31061                           CA       TBASE4                                
032849,000727: 36,2716           04640                           TC       BANKJUMP                              
032850,000728: 
032851,000729: 36,2717           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
032852,000730: 36,2720           55065                           TS       TBASE6                                
032853,000731: 
032854,000732: 36,2721           11163                           CCS      DISPDEX                               
032855,000733: 36,2722           12733                           TCF      KILLCLOK                              
032856,000734: 36,2723           12724                           NOOP                                           
032857,000735: 36,2724           37715                           CAF      PRIO27                                
032858,000736: 36,2725           05072                           TC       NOVAC                                 
032859,000737: 36,2726  E7,1453                                  EBANK=   TTOGO                                 
032860,000738: 36,2726           02737 74067                     2CADR    CLOKJOB                               
032861,000739: 
032862,000740: 36,2730           05221                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
032863,000741: 36,2731           00144                           DEC      100        B-14                       
032864,000742: 36,2732           12717                           TCF      CLOKTASK                              
032865,000743: 
032866,000744: 36,2733           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
032867,000745: 36,2734           34755                           DCA      NEG0                                  
032868,000746: 36,2735           52765                           DXCH     -PHASE6                               
032869,000747: 36,2736           15261                           TCF      TASKOVER                              
032870,000748: 
032871,000749: 36,2737           00006        CLOKJOB            EXTEND                                         
032872,000750: 36,2740           41442                           DCS      TIG                                   
032873,000751: 36,2741           53454                           DXCH     TTOGO                                 
032874,000752: 36,2742           00006                           EXTEND                                         

Page 745

032876,000754: 36,2743           30025                           DCA      TIME2                                 
032877,000755: 36,2744           21454                           DAS      TTOGO                                 
032878,000756: 36,2745           00004                           INHINT                                         
032879,000757: 36,2746           11163                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
032880,000758: 36,2747           15155                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
032881,000759: 36,2750           15155                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
032882,000760: 36,2751           40000                           COM                                            #  INDEX.
032883,000761: 36,2752           00003                           RELINT                                         #  ***** DISPDEX MUST NEVER BE -0 *****
032884,000762: 36,2753           50000                           INDEX    A                                     
032885,000763: 36,2754           13011                           TCF      DISPNOT    -1                         #  (-1 DUE TO EFFECT OF CCS)
032886,000764: 
032887,000765: 36,2755     4765               VB97DEX            =        OCT35                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032888,000766: 
032889,000767: 36,2755           44755                 -35       CS       ZERO                                  #  INDICATE VERB 97 PASTE
032890,000768: 36,2756           55067                           TS       NVWORD1                               
032891,000769: 36,2757           30371                           CA       NVWORD     +2                         #  NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN
032892,000770: 36,2760           04616                           TC       BANKCALL                              
032893,000771: 36,2761           20473                           CADR     CLOCPLAY                              
032894,000772: 36,2762           13013                           TCF      STOPCLOK                              #  TERMINATE CLOKTASK ON THE WAY TO P00H
032895,000773: 36,2763           12610                           TCF      COMFAIL1                              
032896,000774: 36,2764           12623                           TCF      COMFAIL2                              
032897,000775: 
032898,000776:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK
032899,000777: 36,2765           33146                 -25       CAF      V06N61                                #  IT IS PRIMARILY USED BY THE CREW IN P63
032900,000778: 36,2766           04616                           TC       BANKCALL                              #  TO RESET HIS EVENT TIMER TO AGREE WITH
032901,000779: 36,2767           20457                           CADR     REFLASH                               #  TIG.
032902,000780: 36,2770           13013                           TCF      STOPCLOK                              
032903,000781: 36,2771           13030                           TCF      ASTNRETN                              
032904,000782: 36,2772           12764                           TCF      -6                                    
032905,000783: 
032906,000784: 36,2773     4762               CNTDNDEX           =        LOW4                                  #  OCT17:  NEGATIVE PROPER FOR DISPDEX
032907,000785: 
032908,000786: 36,2773           51455                 -17       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
032909,000787: 36,2774           30000                           CAF      0                                     #  INTERVALS.  IT IS NORMALLY OPERATED
032910,000788: 36,2775           04616                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
032911,000789: 36,2776           20465                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
032912,000790: 
032913,000791: 36,2777     4760               VB99DEX            =        ELEVEN                                #  OCT13:  NEGATIVE PROPER FOR DISPDEX
032914,000792: 
032915,000793: 36,2777                        V99RECYC           EQUALS                                         
032916,000794: 
032917,000795: 36,2777           44743                 -13       CS       BIT9                                  #  INDICATE VERB 99 PASTE
032918,000796: 36,3000           55067                           TS       NVWORD1                               
032919,000797: 36,3001           51455                           INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
032920,000798: 36,3002           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
032921,000799: 36,3003           04616                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
032922,000800: 36,3004           20473                           CADR     CLOCPLAY                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
032923,000801: 36,3005           13013                           TCF      STOPCLOK                              #  TERMINATE GOTOPOOH TURNS OFF ULLAGE.
032924,000802: 36,3006           13041                           TCF      *PROCEED                              
032925,000803: 36,3007           13044                           TCF      *ENTER                                
032926,000804: 

Page 746

032928,000806: 36,3010     4752               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032929,000807: 
032930,000808: 36,3010           04616                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
032931,000809: 36,3011           20456                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
032932,000810: 36,3012           15155        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
032933,000811: 
032934,000812: 36,3013           03015        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
032935,000813: 36,3014           16001                           TCF      GOTOPOOH                              #  WAY TO P00 (GOTOPOOH RELINTS)
032936,000814: 
032937,000815: 36,3015           00004        NULLCLOK           INHINT                                         
032938,000816: 36,3016           00006                           EXTEND                                         
032939,000817: 36,3017           23142                           QXCH     P40/RET                               
032940,000818: 36,3020           02653                           TC       NOULLAGE                              #  TURN OFF ULLAGE ...
032941,000819: 36,3021           06027                           TC       KILLTASK                              #        DON'T LET IT COME ON, EITHER ...
032942,000820: 36,3022           74346                           CADR     ULLGTASK                              
032943,000821: 36,3023           05353                           TC       PHASCHNG                              #                NOT EVEN IF THERE'S A RESTART.
032944,000822: 36,3024           00001                           OCT      1                                     
032945,000823: 36,3025           30005                           CA       Z                                     #  KILL CLOKTASK
032946,000824: 36,3026           55163                           TS       DISPDEX                               
032947,000825: 36,3027           01142                           TC       P40/RET                               
032948,000826: 
032949,000827: 36,3030           05353        ASTNRETN           TC       PHASCHNG                              
032950,000828: 36,3031           04024                           OCT      04024                                 
032951,000829: 36,3032           34755                           CAF      ZERO                                  #  STOP DISPLAYING BUT KEEP RUNNING.
032952,000830: 36,3033           55163                           TS       DISPDEX                               
032953,000831: 36,3034           35023                           CAF      PRIO13                                
032954,000832: 36,3035           05105                           TC       FINDVAC                               
032955,000833: 36,3036  E5,1757                                  EBANK=   STARIND                               
032956,000834: 36,3036           03210 64065                     2CADR    ASTNRET                               
032957,000835: 
032958,000836: 36,3040           15155                           TCF      ENDOFJOB                              
032959,000837: 
032960,000838: 36,3041           05504        *PROCEED           TC       UPFLAG                                
032961,000839: 36,3042           00154                           ADRES    ASTNFLAG                              
032962,000840: 
032963,000841: 36,3043           13102                           TCF      IGNITE                                
032964,000842: 
032965,000843: 36,3044           00004        *ENTER             INHINT                                         
032966,000844: 36,3045           51455                           INDEX    WHICH                                 
032967,000845: 36,3046           10003                           TCF      3                                     
032968,000846: 
032969,000847: 36,3047           34644        GOPOST             CAF      PRIO12                                #  (3) MUST BE LOWER PRIORITY THAN CLOKJOB
032970,000848: 36,3050           05105                           TC       FINDVAC                               
032971,000849: 36,3051  E7,1453                                  EBANK=   TTOGO                                 
032972,000850: 36,3051           03223 74067                     2CADR    POSTBURN                              
032973,000851: 

Page 747

032975,000853: 36,3053           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032976,000854: 36,3054           04674                           TC       IBNKCALL                              
032977,000855: 36,3055           40204                           CADR     ALLCOAST                              
032978,000856: 36,3056           03015                           TC       NULLCLOK                              
032979,000857: 36,3057           05353                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
032980,000858: 36,3060           00134                           OCT      00134                                 
032981,000859: 
032982,000860: 36,3061           15155                           TCF      ENDOFJOB                              
032983,000861: 
032984,000862: 36,3062           35027        GOCUTOFF           CAF      PRIO17                                #  (3)
032985,000863: 36,3063           05105                           TC       FINDVAC                               
032986,000864: 36,3064  E7,1516                                  EBANK=   TGO                                   
032987,000865: 36,3064           02424 30067                     2CADR    CUTOFF                                
032988,000866: 
032989,000867: 36,3066           05516                           TC       DOWNFLAG                              
032990,000868: 36,3067           00175                           ADRES    FLUNDISP                              
032991,000869: 
032992,000870: 36,3070           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
032993,000871: 36,3071           04674                           TC       IBNKCALL                              
032994,000872: 36,3072           40204                           CADR     ALLCOAST                              
032995,000873: 36,3073           03015                           TC       NULLCLOK                              
032996,000874: 36,3074           05353                           TC       PHASCHNG                              
032997,000875: 36,3075           07024                           OCT      07024                                 
032998,000876: 36,3076           17000                           OCT      17000                                 
032999,000877: 36,3077  E7,1516                                  EBANK=   TGO                                   
033000,000878: 36,3077           02424 30067                     2CADR    CUTOFF                                
033001,000879: 
033002,000880: 36,3101           15155                           TCF      ENDOFJOB                              
033003,000881: 
033004,000882: 36,3102           40103        IGNITE             CS       FLAGWRD7                              #  (2)
033005,000883: 36,3103           74737                           MASK     IGNFLBIT                              
033006,000884: 36,3104           10000                           CCS      A                                     
033007,000885: 36,3105           13116                           TCF      IGNITE1                               
033008,000886: 36,3106           34753                           CAF      BIT1                                  
033009,000887: 36,3107           00004                           INHINT                                         
033010,000888: 36,3110           05173                           TC       TWIDDLE                               
033011,000889: 36,3111           02426                           ADRES    IGNITION                              
033012,000890: 
033013,000891: 36,3112           34360                           CAF      OCT23                                 #  IMMEDIATE RESTART AT IGNITION.
033014,000892: 36,3113           54001                           TS       L                                     
033015,000893: 36,3114           40000                           COM                                            
033016,000894: 36,3115           52761                           DXCH     -PHASE4                               
033017,000895: 
033018,000896: 36,3116           44762        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
033019,000897: 36,3117           55163                           TS       DISPDEX                               
033020,000898: 
033021,000899: 36,3120           15155                           TCF      ENDOFJOB                              
033022,000900: 

Page 748

033024,000902:                                                                                                  #        ****************************************
033025,000903: 
033026,000904: 36,3121           05567        P40ALM             TC       ALARM                                 #  PROGRAM SELECTION NOT CONSISTENT WITH
033027,000905: 36,3122           01706                           OCT      1706                                  #  VEHICLE CONFIGURATION
033028,000906: 
033029,000907: 36,3123           35006        REP40ALM           CAF      V05N09                                #  (14)
033030,000908: 36,3124           04616                           TC       BANKCALL                              
033031,000909: 36,3125           20476                           CADR     GOFLASH                               
033032,000910: 
033033,000911: 36,3126           16001                           TCF      GOTOPOOH                              #  V34E          TERMINATE
033034,000912: 36,3127           13131                           TCF      +2                                    #  PROCEED       CHECK FOR P42
033035,000913: 36,3130           13123                           TCF      REP40ALM                              #  V32E          REDISPLAY ALARM
033036,000914: 
033037,000915: 36,3131           51455                           INDEX    WHICH                                 #  FOR P42, ALLOW CREW TO PROCEED EVEN
033038,000916: 36,3132           10014                           TCF      14                                    #  THOUGH VEHICLE IS UNSTAGED
033039,000917: 
033040,000918:                                                                                                  #        ****************************************
033041,000919: 
033042,000920: 31,2144                                           BANK     31                                    
033043,000921: 35,2000                                           SETLOC   P40S2                                 
033044,000922: 35,2000                                           BANK                                           
033045,000923: 
033046,000924: 35,3747                                           COUNT*   $$/P40                                
033047,000925: 
033048,000926: 35,3747           04645        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
033049,000927: 35,3750           55164                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
033050,000928: 35,3751           04616        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
033051,000929: 35,3752           54255                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
033052,000930: 35,3753           10000                           CCS      A                                     #  +0 INDICATES IN PGNCS, IN AUTO
033053,000931: 35,3754           13766                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
033054,000932: 35,3755           34737                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
033055,000933: 35,3756           70106                           MASK     FLGWRD10                              
033056,000934: 35,3757           10000                           CCS      A                                     
033057,000935: 35,3760           13773                           TCF      GOBACK                                #  RETURN
033058,000936: 35,3761           34747                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
033059,000937: 35,3762           00006                           EXTEND                                         
033060,000938: 35,3763           02030                           RAND     CHAN30                                
033061,000939: 35,3764           00006                           EXTEND                                         
033062,000940: 35,3765           13773                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN
033063,000941: 35,3766           33775        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203 PLEASE PERFORM
033064,000942: 35,3767           04616                           TC       BANKCALL                              #  CHECKLIST 203 TURN ON PGNCS ETC.
033065,000943: 35,3770           20623                           CADR     GOPERF1                               
033066,000944: 35,3771           16001                           TCF      GOTOPOOH                              #  V34E TERMINATE
033067,000945: 35,3772           13751                           TCF      P40A/P                                #  RECYCLE
033068,000946: 35,3773           31164        GOBACK             CA       TEMPR60                               
033069,000947: 35,3774           04640                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
033070,000948: 
033071,000949: 35,3775           00203        P40A/PMD           OCT      00203                                 
033072,000950: 

Page 749

033074,000952: 36,3133                                           BANK     36                                    
033075,000953: 36,2000                                           SETLOC   P40S                                  
033076,000954: 36,2000                                           BANK                                           
033077,000955: 
033078,000956: 36,3133                                           COUNT*   $$/P40                                
033079,000957: 
033080,000958:                                                                                                  #        ****************************************
033081,000959:                                                                                                  #        CONSTANTS FOR THE IGNITION ROUTINE
033082,000960:                                                                                                  #        ****************************************
033083,000961: 
033084,000962: 36,3133  36,2105               SERVCADR           =        P63TABLE   +7                         
033085,000963: 
033086,000964: 36,3133           02036        P40ADRES           ADRES    P40TABLE                              
033087,000965: 
033088,000966: 36,3134           02046        P41ADRES           ADRES    P41TABLE   -5                         
033089,000967: 
033090,000968: 36,3135           02061        P42ADRES           ADRES    P42TABLE                              
033091,000969: 
033092,000970: 36,3136  E7,1515                                  EBANK=   DVCNTR                                
033093,000971: 36,3136           03471 62067  DSP2CADR           2CADR    P63DISPS   -2                         
033094,000972: 
033095,000973: 36,3140  E7,1515                                  EBANK=   DVCNTR                                
033096,000974: 36,3140           03642 70067  ATMAGADR           2CADR    ATMAG                                 
033097,000975: 
033098,000976: 36,3142     6001               ?                  =        GOTOPOOH                              
033099,000977: 
033100,000978: 36,3142           00000 05656  D29.9SEC           2DEC     2990       B-28                       
033101,000979: 
033102,000980: 36,3144           04672        S24.9SEC           DEC      2490       B-14                       
033103,000981: 
033104,000982: 36,3145           00752        4.9SEC             DEC      490        B-14                       
033105,000983: 
033106,000984: 36,3146     4747               OCT20              =        BIT5                                  
033107,000985: 
033108,000986: 36,3146           01475        V06N61             VN       0661                                  
033109,000987: 

Page 750

033111,000989:                                                                                                  #  KILLTASK
033112,000990:                                                                                                  #  MOD NO:  NEW PROGRAM
033113,000991:                                                                                                  #  MOD BY:  COVELLI
033114,000992: 
033115,000993:                                                                                                  #  FUNCTIONAL DESCRIPTION:
033116,000994: 
033117,000995:                                                                                                  #        KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED 'NULLTASK' (OF COURSE),
033118,000996:                                                                                                  #        WHICH MERELY DOES A TC TASKOVER.  IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
033119,000997:                                                                                                  #        FIRST IS REMOVED.  IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM.  KILLTASK
033120,000998:                                                                                                  #        LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT
033121,000999: 
033122,001000:                                                                                                  #  CALLING SEQUENCE:
033123,001001:                                                                                                  #        L       TC      KILLTASK        IN FIXED-FIXED
033124,001002:                                                                                                  #        L+1     CADR    ????????        CADR (NOT 2CADR) OF TASK TO BE REMOVED.
033125,001003:                                                                                                  #        L+2     (RELINT)                RETURN
033126,001004: 
033127,001005:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
033128,001006: 
033129,001007:                                                                                                  #  ERASABLE INITIALIZATION= NONE.
033130,001008: 
033131,001009:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
033132,001010: 
033133,001011:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A, L, Q.
033134,001012: 
033135,001013: 36,3147  E3,1410                                  EBANK=   LST2                                  
033136,001014:    6027                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
033137,001015:    6000                                           SETLOC   FFTAG6                                
033138,001016:    6000                                           BANK                                           
033139,001017:    6027                                           COUNT*   $$/KILL                               
033140,001018:    6027           36036        KILLTASK           CA       KILLBB                                
033141,001019:    6030           00004                           INHINT                                         
033142,001020:    6031           22000                           LXCH     A                                     
033143,001021:    6032           50002                           INDEX    Q                                     
033144,001022:    6033           30000                           CA       0                                     #  GET CADR.
033145,001023:    6034           22006                           LXCH     BBANK                                 
033146,001024:    6035           12200                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
033147,001025: 
033148,001026:    6036  E3,1410                                  EBANK=   LST2                                  
033149,001027:    6036           56063        KILLBB             BBCON    KILLTSK2                              
033150,001028: 
033151,001029: 27,2200                                           BANK     27                                    
033152,001030: 
033153,001031: 27,2000                                           SETLOC   P40S1                                 
033154,001032: 27,2000                                           BANK                                           
033155,001033: 27,2200                                           COUNT*   $$/KILL                               
033156,001034: 
033157,001035: 27,2200           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK

Page 751

033159,001037: 27,2201           24002                           INCR     Q                                     
033160,001038: 27,2202           00006                           EXTEND                                         
033161,001039: 27,2203           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
033162,001040: 
033163,001041: 27,2204           54063                           TS       ITEMP3                                #  CADR IS IN A
033164,001042: 27,2205           75012                           MASK     LOW10                                 
033165,001043: 27,2206           64741                           AD       BIT11                                 
033166,001044: 27,2207           54064                           TS       ITEMP4                                #  GENADR OF TASK
033167,001045: 
033168,001046: 27,2210           45012                           CS       LOW10                                 
033169,001047: 27,2211           70063                           MASK     ITEMP3                                
033170,001048: 27,2212           54063                           TS       ITEMP3                                #  FBANK OF TASK
033171,001049: 
033172,001050: 27,2213           22007                           ZL                                             
033173,001051: 27,2214           50001        ADRSCAN            INDEX    L                                     
033174,001052: 27,2215           41410                           CS       LST2                                  
033175,001053: 27,2216           60064                           AD       ITEMP4                                #  COMPARE GENADRS
033176,001054: 27,2217           00006                           EXTEND                                         
033177,001055: 27,2220           12232                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
033178,001056: 27,2221           44747        LETITLIV           CS       LSTLIM                                
033179,001057: 27,2222           60001                           AD       L                                     
033180,001058: 27,2223           00006                           EXTEND                                         #  ARE WE DONE?
033181,001059: 27,2224           12230                           BZF      DEAD                                  #  YES - DONE, SO RETURN
033182,001060: 27,2225           24001                           INCR     L                                     
033183,001061: 27,2226           24001                           INCR     L                                     
033184,001062: 27,2227           12214                           TCF      ADRSCAN                               #  CONTINUE LOOP.
033185,001063: 
033186,001064: 27,2230           52062        DEAD               DXCH     ITEMP1                                
033187,001065: 27,2231           52006                           DTCB                                           
033188,001066: 
033189,001067: 27,2232           45012        TSTFBANK           CS       LOW10                                 
033190,001068: 27,2233           50001                           INDEX    L                                     
033191,001069: 27,2234           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
033192,001070: 27,2235           00006                           EXTEND                                         
033193,001071: 27,2236           60063                           SU       ITEMP3                                
033194,001072: 27,2237           00006                           EXTEND                                         
033195,001073: 27,2240           12242                           BZF      KILLDEAD                              #  MATCH - KILL IT.
033196,001074: 27,2241           12221                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
033197,001075: 
033198,001076: 27,2242           34353        KILLDEAD           CA       TCTSKOVR                              
033199,001077: 27,2243           50001                           INDEX    L                                     
033200,001078: 27,2244           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
033201,001079: 27,2245           12230                           TCF      DEAD                                  
033202,001080: 
033203,001081: 27,2246     4747               LSTLIM             EQUALS   BIT5                                  #  DEC 16

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