Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

032252,000002:                                                                                                  ## Copyright:   Public domain.
032253,000003:                                                                                                  ## Filename:    BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
032254,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
032255,000005:                                                                                                  ##              It is part of the source code for the original release
032256,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
032257,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
032258,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
032259,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
032260,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
032261,000011:                                                                                                  ##              that the code format has been changed to conform to the
032262,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
032263,000013:                                                                                                  ##              original YUL assembler.
032264,000014:                                                                                                  ## Reference:   pp. 739-758
032265,000015:                                                                                                  ## Assembler:   yaYUL
032266,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032267,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032268,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
032269,000019:                                                                                                  ##              2016-12-15 MAS  Updated from comment-proofed Luminary 99 version.
032270,000020:                                                                                                  ##              2017-01-20 HG   Transcribed
032271,000021:                                                                                                  ##              2017-01-22 HG   Shift pseudo label +3 to column 2
032272,000022:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
032273,000023:                                                                                                  ##                              and fixed errors found.
032274,000024:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
032275,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
032276,000026: 

Page 739

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) related a little interesting history behind the naming of the routine to one of us.

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.

032290,000040: 
032291,000041: 36,2022                                           BANK     36                                    
032292,000042: 36,2000                                           SETLOC   P40S                                  
032293,000043: 36,2000                                           BANK                                           
032294,000044: 36,2022  E7,1453                                  EBANK=   WHICH                                 
032295,000045: 36,2022                                           COUNT*   $$/P40                                
032296,000046:                                                                                                  #      THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
032297,000047:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
032298,000048:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
032299,000049:                                                                                                  #  PROGRAMS THROTTLE UP.
032300,000050: 
032301,000051:                                                                                                  #      VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
032302,000052:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.   USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
032303,000053:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).   THE IGNITION ROUTINE THEN INDEXES BY
032304,000054:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.   THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
032305,000055:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.   THERE IS NO RETURN.
032306,000056: 
032307,000057:                                                                                                  #      THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
032308,000058: 
032309,000059: 
032310,000060:                                                                                                  #                                         HONI SOIT QUI MAL Y PENSE
032311,000061: 
032312,000062: 
032313,000063:                                                                                                  #                                  ****************************************
032314,000064:                                                                                                  #                                  TABLES FOR THE IGNITION ROUTINE
032315,000065:                                                                                                  #                                  ****************************************
032316,000066: 
032317,000067:                                                                                                  #                                              NOLI SE TANGERE
032318,000068: 
032319,000069: 36,2022           01512        P12TABLE           VN       0674                                  #  (0)
032320,000070: 36,2023           01512                           VN       0674                                  #  (1)
032321,000071: 36,2024           12615                           TCF      COMFAIL3                              #  (2)
032322,000072: 36,2025           13072                           TCF      GOCUTOFF                              #  (3)
032323,000073: 36,2026           15261                           TCF      TASKOVER                              #  (4)
032324,000074: 36,2027           12144                           TCF      P12SPOT                               #  (5)
032325,000075: 36,2030           00000                           DEC      0          B-14                       #  (6)       NO ULLAGE
032326,000076: 36,2031  E7,1453                                  EBANK=   WHICH                                 
032327,000077: 36,2031           03525 76067                     2CADR    SERVEXIT                              #  (7)
032328,000078: 36,2033           12364                           TCF      DISPCHNG                              #  (11)
032329,000079: 36,2034           12541                           TCF      WAITABIT                              #  (12)
032330,000080: 36,2035           12506                           TCF      P12IGN                                #  (13)
032331,000081: 
032332,000082: 
032333,000083: 
032334,000084: 36,2036           01450        P40TABLE           VN       0640                                  #  (0)
032335,000085: 36,2037           01450                           VN       0640                                  #  (1)
032336,000086: 36,2040           12617                           TCF      COMFAIL4                              #  (2)
032337,000087: 36,2041           13057                           TCF      GOPOST                                #  (3)
032338,000088: 36,2042           12564                           TCF      P40ZOOM                               #  (4)
032339,000089: 36,2043           12144                           TCF      P40SPOT                               #  (5)
032340,000090: 

Page 740

032342,000092: 36,2044           04300                           DEC      2240       B-14                       #  (6)
032343,000093: 36,2045  E6,1420                                  EBANK=   OMEGAQ                                
032344,000094: 36,2045           03641 74066                     2CADR    STEERING                              #  (7)
032345,000095: 36,2047           12360                           TCF      P40SJUNK                              #  (11)
032346,000096: 36,2050           12541                           TCF      WAITABIT                              #  (12)
032347,000097: 36,2051           12467                           TCF      P40IGN                                #  (13)
032348,000098: 
032349,000099: 
032350,000100: 
032351,000101: 36,2052           12147        P41TABLE           TCF      P41SPOT                               #  (5)
032352,000102: 36,2053           77776                           DEC      -1         B-14                       #  (6)
032353,000103: 36,2054  E6,1420                                  EBANK=   OMEGAQ                                
032354,000104: 36,2054           03376 74066                     2CADR    CALCN85                               #  (7)
032355,000105: 
032356,000106: 36,2056           15261                           TCF      TASKOVER                              #  (11)
032357,000107: 36,2057           12545                           TCF      TIGTASK                               #  (12)
032358,000108: 
032359,000109: 
032360,000110: 
032361,000111: 36,2060           01450        P42TABLE           VN       0640                                  #  (0)
032362,000112: 36,2061           01450                           VN       0640                                  #  (1)
032363,000113: 36,2062           12617                           TCF      COMFAIL4                              #  (2)
032364,000114: 36,2063           13057                           TCF      GOPOST                                #  (3)
032365,000115: 36,2064           15261                           TCF      TASKOVER                              #  (4)
032366,000116: 36,2065           12144                           TCF      P42SPOT                               #  (5)
032367,000117: 36,2066           05120                           DEC      2640       B-14                       #  (6)
032368,000118: 36,2067  E6,1420                                  EBANK=   OMEGAQ                                
032369,000119: 36,2067           03641 74066                     2CADR    STEERING                              #  (7)
032370,000120: 36,2071           12360                           TCF      P40SJUNK                              #  (11)
032371,000121: 36,2072           12541                           TCF      WAITABIT                              #  (12)
032372,000122: 36,2073           12516                           TCF      P42IGN                                #  (13)
032373,000123: 
032374,000124: 
032375,000125: 
032376,000126: 36,2074           01476        P63TABLE           VN       0662                                  #  (0)
032377,000127: 36,2075           01475                           VN       0661                                  #  (1)
032378,000128: 36,2076           12615                           TCF      COMFAIL3                              #  (2)
032379,000129: 36,2077           13006                           TCF      V99RECYC                              #  (3)
032380,000130: 36,2100           12556                           TCF      P63ZOOM                               #  (4)
032381,000131: 36,2101           12147                           TCF      P63SPOT                               #  (5)
032382,000132: 36,2102           04300                           DEC      2240       B-14                       #  (6)
032383,000133: 36,2103  E7,1453                                  EBANK=   WHICH                                 
032384,000134: 36,2103           03525 76067                     2CADR    SERVEXIT                              #  (7)
032385,000135: 36,2105           12364                           TCF      DISPCHNG                              #  (11)
032386,000136: 36,2106           12541                           TCF      WAITABIT                              #  (12)
032387,000137: 36,2107           12440                           TCF      P63IGN                                #  (13)
032388,000138: 

Page 741

032390,000140: 
032391,000141: 36,2110           01477        ABRTABLE           VN       0663                                  #  (0)
032392,000142: 36,2111           12112                           NOOP                                           #  (1)
032393,000143: 36,2112           12615                           TCF      COMFAIL3                              #  (2)
032394,000144: 36,2113           13072                           TCF      GOCUTOFF                              #  (3)
032395,000145: 36,2114           15261                           TCF      TASKOVER                              #  (4)
032396,000146: 36,2115           12116                           NOOP                                           #  (5)
032397,000147: 36,2116           12117                           NOOP                                           #  (6)
032398,000148: 36,2117           12120                           NOOP                                           #  (7)
032399,000149: 36,2120           12121                           NOOP                                           
032400,000150: 36,2121           12364                           TCF      DISPCHNG                              #  (11)
032401,000151: 36,2122           12541                           TCF      WAITABIT                              #  (12)
032402,000152: 36,2123           12503                           TCF      ABRTIGN                               #  (13)
032403,000153: 
032404,000154: 
032405,000155: 
032406,000156:                                                                                                  #                ****************************************
032407,000157:                                                                                                  #                GENERAL PURPOSE IGNITION ROUTINES
032408,000158:                                                                                                  #                ****************************************
032409,000159: 
032410,000160: 36,2124           05353        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
032411,000161: 36,2125           04024                           OCT      04024                                 
032412,000162: 
032413,000163: 36,2126           34755                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
032414,000164: 36,2127           55505                           TS       DVTOTAL                               
032415,000165: 36,2130           55506                           TS       DVTOTAL    +1                         
032416,000166: 
032417,000167: 36,2131           04616                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
032418,000168: 36,2132           73707                           CADR     P40AUTO                               #    OWN BANK TO SET UP RETURN PROPERLY
032419,000169: 
032420,000170: 36,2133           00006        B*RNB*B*           EXTEND                                         
032421,000171: 36,2134           31440                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
032422,000172: 36,2135           53510                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
032423,000173: 
032424,000174: 36,2136           00004                           INHINT                                         
032425,000175: 36,2137           04674                           TC       IBNKCALL                              
032426,000176: 36,2140           75564                           CADR     ENGINOF3                              
032427,000177: 36,2141           00003                           RELINT                                         
032428,000178: 
032429,000179: 36,2142           51453                           INDEX    WHICH                                 
032430,000180: 36,2143           10005                           TCF      5                                     
032431,000181: 
032432,000182: 
032433,000183: 36,2144  36,2144               P12SPOT            =        P40SPOT                               #  (5)
032434,000184: 36,2144  36,2144               P42SPOT            =        P40SPOT                               #  (5)
032435,000185: 36,2144  36,2147               P63SPOT            =        P41SPOT                               #  (5)      IN P63 CLOKTASK ALREADY GOING
032436,000186: 36,2144           44747        P40SPOT            CS       OCT20                                 #  (5)
032437,000187: 36,2145           04616                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED
032438,000188: 36,2146           74667                           CADR     STCLOK2                               #        RETURN
032439,000189: 36,2147           06036        P41SPOT            TC       INTPRET                               #  (5)
032440,000190: 36,2150           45345                           DLOAD    DSU                                   
032441,000191: 

Page 742

032443,000193: 36,2151           03440                                    TIG                                   
032444,000194: 36,2152           35143                                    D29.9SEC                              
032445,000195: 36,2153           34041                           STCALL   TDEC1                                 
032446,000196: 36,2154           61055                                    INITCDUW                              
032447,000197: 36,2155           45014                           BOFF     CALL                                  
032448,000198: 36,2156           03347                                    MUNFLAG                               
032449,000199: 36,2157           74176                                    GOMIDAV                               
032450,000200: 36,2160           27043                                    CSMPREC                               
032451,000201: 36,2161           64375                           VLOAD    MXV                                   
032452,000202: 36,2162           00025                                    VATT1                                 
032453,000203: 36,2163           01734                                    REFSMMAT                              
032454,000204: 36,2164           77762                           VSR1                                           
032455,000205: 36,2165           25726                           STOVL    V(CSM)                                #  CSM VELOCITY - M/CS*2(7)
032456,000206: 36,2166           00017                                    RATT1                                 
032457,000207: 36,2167           64312                           VSL4     MXV                                   
032458,000208: 36,2170           01734                                    REFSMMAT                              
032459,000209: 36,2171           35720                           STCALL   R(CSM)                                #  CSM POSITION - M*2(24)
032460,000210: 36,2172           67162                                    MUNGRAV                               
032461,000211: 36,2173           16323                           STODL    G(CSM)                                #  CSM GRAVITY VEC. - M/CS*2(7)
032462,000212: 36,2174           00015                                    TAT                                   
032463,000213: 36,2175           00041                           STORE    TDEC1                                 #  RELOAD TDEC1 FOR MIDTOAV.
032464,000214: 36,2176           77624        GOMIDAV            CALRB                                          
032465,000215: 36,2177           27603                                    MIDTOAV1                              
032466,000216: 36,2200           12207                           TCF      CALLT-35                              #  MADE IT IN TIME.
032467,000217: 
032468,000218: 36,2201           00006                           EXTEND                                         #  TIG WAS SLIPPED, SO RESET TIG TO 29.9
032469,000219: 36,2202           31557                           DCA      PIPTIME1                              #  SECONDS AFTER THE TIME TO WHICH WE DID
032470,000220: 36,2203           53440                           DXCH     TIG                                   #  INTEGRATE.
032471,000221: 36,2204           00006                           EXTEND                                         
032472,000222: 36,2205           33143                           DCA      D29.9SEC                              
032473,000223: 36,2206           21440                           DAS      TIG                                   
032474,000224: 
032475,000225: 36,2207           52155        CALLT-35           DXCH     MPAC                                  
032476,000226: 36,2210           53476                           DXCH     SAVET-30                              #  DELTA-T UNTIL TIG-30
032477,000227: 36,2211           00006                           EXTEND                                         
032478,000228: 36,2212           43741                           DCS      5SECDP                                
032479,000229: 36,2213           21476                           DAS      SAVET-30                              #  DELTA-T UNTIL TIG-35
032480,000230: 36,2214           00006                           EXTEND                                         
032481,000231: 36,2215           31476                           DCA      SAVET-30                              
032482,000232: 36,2216           05277                           TC       LONGCALL                              
032483,000233: 36,2217  E7,1451                                  EBANK=   TTOGO                                 
032484,000234: 36,2217           02236 74067                     2CADR    TIG-35                                
032485,000235: 36,2221           05353                           TC       PHASCHNG                              
032486,000236: 36,2222           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.
032487,000237: 
032488,000238: 36,2223           05321                           TC       CHECKMM                               
032489,000239: 36,2224           00077                           DEC      63         B-14                       
032490,000240: 36,2225           15155                           TCF      ENDOFJOB                              #  NOT P63
032491,000241: 36,2226           44747                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
032492,000242: 

Page 743

032494,000244: 36,2227           55163                           TS       DISPDEX                               
032495,000245: 36,2230           06036                           TC       INTPRET                               
032496,000246: 36,2231           51575                           VLOAD    ABVAL                                 
032497,000247: 36,2232           03551                                    VN1                                   
032498,000248: 36,2233           03470                           STORE    ABVEL                                 #  INITIALIZE ABVEL FOR P63 DISPLAY
032499,000249: 36,2234           77776                           EXIT                                           
032500,000250: 36,2235           15155                           TCF      ENDOFJOB                              
032501,000251: 
032502,000252: 
032503,000253:                                                                                                  #                ****************************************
032504,000254: 
032505,000255: 36,2236           33741        TIG-35             CAF      5SEC                                  
032506,000256: 36,2237           05173                           TC       TWIDDLE                               
032507,000257: 36,2240           02274                           ADRES    TIG-30                                
032508,000258: 
032509,000259: 36,2241           05353                           TC       PHASCHNG                              
032510,000260: 36,2242           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
032511,000261: 
032512,000262: 36,2243           44752                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
032513,000263: 36,2244           55163                           TS       DISPDEX                               
032514,000264: 
032515,000265: 36,2245           51453                           INDEX    WHICH                                 
032516,000266: 36,2246           40006                           CS       6                                     #  CHECK ULLAGE TIME.
032517,000267: 36,2247           00006                           EXTEND                                         
032518,000268: 36,2250           65261                           BZMF     TASKOVER                              
032519,000269: 36,2251           33145                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
032520,000270: 36,2252           05173                           TC       TWIDDLE                               
032521,000271: 36,2253           02264                           ADRES    TIG-30.1                              
032522,000272: 
032523,000273: 36,2254           35027                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
032524,000274: 36,2255           05072                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
032525,000275: 36,2256  E7,1451                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
032526,000276: 36,2256           02261 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
032527,000277: 
032528,000278: 36,2260           15261                           TCF      TASKOVER                              
032529,000279: 
032530,000280: 36,2261           04616        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
032531,000281: 36,2262           20334                           CADR     CLEANDSP                              
032532,000282: 36,2263           15155                           TCF      ENDOFJOB                              
032533,000283: 
032534,000284: 36,2264           35027        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
032535,000285: 36,2265           05072                           TC       NOVAC                                 
032536,000286: 36,2266  E7,1451                                  EBANK=   TTOGO                                 
032537,000287: 36,2266           02271 74067                     2CADR    TIG-30A                               
032538,000288: 36,2270           15261                           TCF      TASKOVER                              
032539,000289: 
032540,000290: 36,2271           33744        TIG-30A            CAF      V16N85B                               
032541,000291: 36,2272           04616                           TC       BANKCALL                              #  RESTORE DISPLAY.
032542,000292: 36,2273           20343                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
032543,000293: 

Page 744

032545,000295: 
032546,000296:                                                                                                  #                *****************************************
032547,000297: 
032548,000298: 
032549,000299: 36,2274           33144        TIG-30             CAF      S24.9SEC                              
032550,000300: 36,2275           05173                           TC       TWIDDLE                               
032551,000301: 36,2276           02343                           ADRES    TIG-5                                 
032552,000302: 
032553,000303: 36,2277           44747                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
032554,000304: 36,2300           55163                           TS       DISPDEX                               
032555,000305: 
032556,000306: 36,2301           51453                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE-ON TIME
032557,000307: 36,2302           30006                           CAF      6                                     
032558,000308: 36,2303           00006                           EXTEND                                         
032559,000309: 36,2304           62316                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
032560,000310: 36,2305           55475                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
032561,000311: 36,2306           05173                           TC       TWIDDLE                               
032562,000312: 36,2307           02337                           ADRES    ULLGTASK                              
032563,000313: 
032564,000314: 36,2310           36244                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
032565,000315: 36,2311           54001                           TS       L                                     
032566,000316: 36,2312           46244                           CS       THREE                                 
032567,000317: 36,2313           52753                           DXCH     -PHASE1                               
032568,000318: 36,2314           40025                           CS       TIME1                                 
032569,000319: 36,2315           55053                           TS       TBASE1                                
032570,000320: 
032571,000321: 36,2316           00006        ULLGNOT            EXTEND                                         
032572,000322: 36,2317           51453                           INDEX    WHICH                                 
032573,000323: 36,2320           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
032574,000324: 36,2321           53253                           DXCH     AVEGEXIT                              
032575,000325: 
032576,000326: 36,2322           34752                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
032577,000327: 36,2323           54001                           TS       L                                     
032578,000328: 36,2324           44752                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
032579,000329: 36,2325           52761                           DXCH     -PHASE4                               
032580,000330: 
032581,000331: 36,2326           40025                           CS       TIME1                                 
032582,000332: 36,2327           55061                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
032583,000333: 
032584,000334: 36,2330           00006        REDO2.17           EXTEND                                         
032585,000335: 36,2331           34755                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
032586,000336: 36,2332           52755                           DXCH     -PHASE2                               #        IF NEEDED.
032587,000337: 
032588,000338: 36,2333           10763        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
032589,000339: 36,2334           15261                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
032590,000340: 
032591,000341: 36,2335           04635                           TC       POSTJUMP                              
032592,000342: 36,2336           77374                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
032593,000343: 
032594,000344: 
032595,000345:                                                                                                  #                ****************************************
032596,000346: 

Page 745

032598,000348: 
032599,000349: 36,2337           02662        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
032600,000350: 36,2340           05353                           TC       PHASCHNG                              
032601,000351: 36,2341           00001                           OCT      1                                     
032602,000352: 36,2342           15261                           TCF      TASKOVER                              
032603,000353: 
032604,000354: 
032605,000355:                                                                                                  #                ****************************************
032606,000356: 
032607,000357: 36,2343           33741        TIG-5              CAF      5SEC                                  
032608,000358: 36,2344           05173                           TC       TWIDDLE                               
032609,000359: 36,2345           02367                           ADRES    TIG-0                                 
032610,000360: 
032611,000361: 36,2346           05516                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
032612,000362: 36,2347           00153                           ADRES    IGNFLAG                               #    FOR LIGHT-UP LOGIC
032613,000363: 36,2350           05516                           TC       DOWNFLAG                              
032614,000364: 36,2351           00154                           ADRES    ASTNFLAG                              
032615,000365: 
032616,000366: 36,2352           05327                           TC       2PHSCHNG                              
032617,000367: 36,2353           40074                           OCT      40074                                 #  RESTART TIG-0 (4.7SPOT)
032618,000368: 36,2354           05013                           OCT      05013                                 #  RESTART HERE (FOR S40.13 IF NEEDED)
032619,000369: 36,2355           77777                           OCT      77777                                 
032620,000370: 
032621,000371: 36,2356           51453                           INDEX    WHICH                                 
032622,000372: 36,2357           10011                           TCF      11                                    
032623,000373: 
032624,000374: 36,2360           34736        P40SJUNK           CAF      PRIO20                                #  (11)     P40 AND P42 COME HERE
032625,000375: 36,2361           05105                           TC       FINDVAC                               
032626,000376: 36,2362  E7,1451                                  EBANK=   TTOGO                                 
032627,000377: 36,2362           02574 56067                     2CADR    S40.13                                
032628,000378: 
032629,000379: 
032630,000380: 36,2364           45742        DISPCHNG           CS       VB99DEX                               #  (11)
032631,000381: 36,2365           55163                           TS       DISPDEX                               
032632,000382: 36,2366           15261                           TCF      TASKOVER                              
032633,000383: 
032634,000384: 
032635,000385:                                                                                                  #                ****************************************
032636,000386: 
032637,000387: 36,2367           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
032638,000388: 36,2370           74737                           MASK     IGNFLBIT                              
032639,000389: 36,2371           26103                           ADS      FLAGWRD7                              
032640,000390: 
032641,000391: 36,2372           05321                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
032642,000392: 36,2373           00077                           DEC      63         B-14                       #    AFTER NOMINAL IGNITION, NOT ACTUAL
032643,000393: 36,2374           12404                           TCF      IGNYET?                               
032644,000394: 36,2375           31424                           CA       ZOOMTIME                              
032645,000395: 36,2376           05173                           TC       TWIDDLE                               
032646,000396: 36,2377           02554                           ADRES    ZOOM                                  
032647,000397: 

Page 746

032649,000399: 36,2400           05327                           TC       2PHSCHNG                              
032650,000400: 36,2401           40033                           OCT      40033                                 
032651,000401: 
032652,000402: 36,2402           05014                           OCT      05014                                 
032653,000403: 36,2403           77777                           OCT      77777                                 
032654,000404: 
032655,000405: 36,2404           34740        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
032656,000406: 36,2405           70103                           MASK     FLAGWRD7                              #    TO OUR ENGINE ENABLE REQUEST?
032657,000407: 36,2406           00006                           EXTEND                                         
032658,000408: 36,2407           51453                           INDEX    WHICH                                 
032659,000409: 36,2410           10012                           BZF      12                                    #  BRANCH IF HE HAS NOT RESPONDED YET
032660,000410: 
032661,000411: 36,2411           40101        IGNITION           CS       FLAGWRD5                              #  INSURE ENGONFLG IS SET.
032662,000412: 36,2412           74745                           MASK     ENGONBIT                              
032663,000413: 36,2413           26101                           ADS      FLAGWRD5                              
032664,000414: 36,2414           44355                           CS       PRIO30                                #  TURN ON THE ENGINE.
032665,000415: 36,2415           00006                           EXTEND                                         
032666,000416: 36,2416           02011                           RAND     DSALMOUT                              
032667,000417: 36,2417           64737                           AD       BIT13                                 
032668,000418: 36,2420           00006                           EXTEND                                         
032669,000419: 36,2421           01011                           WRITE    DSALMOUT                              
032670,000420: 36,2422           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
032671,000421: 36,2423           30025                           DCA      TIME2                                 
032672,000422: 36,2424           53345                           DXCH     TEVENT                                
032673,000423: 
032674,000424: 36,2425           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
032675,000425: 36,2426           31515                           DCA      TGO                                   
032676,000426: 36,2427           53440                           DXCH     TIG                                   
032677,000427: 36,2430           00006                           EXTEND                                         
032678,000428: 36,2431           30025                           DCA      TIME2                                 
032679,000429: 36,2432           21440                           DAS      TIG                                   
032680,000430: 
032681,000431: 36,2433           44742                           CS       FLUNDBIT                              #  PERMIT GUIDANCE LOOP DISPLAYS
032682,000432: 36,2434           70104                           MASK     FLAGWRD8                              
032683,000433: 36,2435           54104                           TS       FLAGWRD8                              
032684,000434: 
032685,000435: 36,2436           51453                           INDEX    WHICH                                 
032686,000436: 36,2437           10013                           TCF      13                                    
032687,000437: 
032688,000438: 36,2440           00006        P63IGN             EXTEND                                         #  (13)     INITIATE BURN DISPLAYS
032689,000439: 36,2441           33135                           DCA      DSP2CADR                              
032690,000440: 36,2442           53253                           DXCH     AVGEXIT                               
032691,000441: 
032692,000442: 36,2443           30005                           CA       Z                                     #  ASSASSINATE CLOKTASK
032693,000443: 36,2444           55163                           TS       DISPDEX                               
032694,000444: 
032695,000445: 36,2445           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
032696,000446: 36,2446           74743                           MASK     LETABBIT                              
032697,000447: 36,2447           26105                           ADS      FLAGWRD9                              
032698,000448: 

Page 747

032700,000450: 36,2450           40103                           CS       FLAGWRD7                              #  SET SWANDISP TO ENABLE R10.
032701,000451: 36,2451           74741                           MASK     SWANDBIT                              
032702,000452: 36,2452           26103                           ADS      FLAGWRD7                              
032703,000453: 
032704,000454: 36,2453           44735                           CS       PULSES                                #  MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
032705,000455: 36,2454           70111                           MASK     DAPBOOLS                              #    MODE, IN CASE OF SWITCH TO P66
032706,000456: 36,2455           54111                           TS       DAPBOOLS                              
032707,000457: 
032708,000458: 36,2456           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
032709,000459: 36,2457           30025                           DCA      TIME2                                 
032710,000460: 36,2460           53440                           DXCH     TIG                                   
032711,000461: 
032712,000462: 36,2461           34755                           CAF      ZERO                                  #  INITIALIZE WCHPHASE AND FLPASSO
032713,000463: 36,2462           55620                           TS       WCHPHASE                              
032714,000464: 36,2463           55617                           TS       WCHPHOLD                              #  ALSO WHCPHOLD
032715,000465: 36,2464           34752                           CA       TWO                                   
032716,000466: 36,2465           55621                           TS       FLPASS0                               
032717,000467: 
032718,000468: 36,2466           12516                           TCF      P42IGN                                
032719,000469: 36,2467           40101        P40IGN             CS       FLAGWRD5                              #  (13)
032720,000470: 36,2470           74740                           MASK     NOTHRBIT                              
032721,000471: 36,2471           00006                           EXTEND                                         
032722,000472: 36,2472           12516                           BZF      P42IGN                                
032723,000473: 36,2473           31424                           CA       ZOOMTIME                              #  WAITLIST FOR ZOOM (FLATOUT. ETC.)
032724,000474: 36,2474           05173                           TC       TWIDDLE                               
032725,000475: 36,2475           02554                           ADRES    ZOOM                                  
032726,000476: 
032727,000477: 36,2476           05327        P63IGN1            TC       2PHSCHNG                              
032728,000478: 36,2477           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
032729,000479: 36,2500           05014                           OCT      05014                                 #  TYPE C   RESTARTS HERE IMMEDIATELY
032730,000480: 36,2501           77777                           OCT      77777                                 
032731,000481: 
032732,000482: 36,2502           12516                           TCF      P42IGN                                
032733,000483: 36,2503           05321        ABRTIGN            TC       CHECKMM                               #  (13) BRANCH TO APPROPRIATE ABORT
032734,000484: 36,2504           00107                           DEC      71         B-14                       #  ENGINE-ON SEQUENCE.
032735,000485: 36,2505           12516                           TCF      P42IGN                                #  CONTINUE ENGINE-ON SEQUENCE
032736,000486: 36,2506           30005        P12IGN             CA       Z                                     #  (13)     KILL CLOKTASK
032737,000487: 36,2507           55163                           TS       DISPDEX                               
032738,000488: 
032739,000489: 36,2510           00006                           EXTEND                                         #  CONNECT ASCENT GYIDANCE TO SERVICER.
032740,000490: 36,2511           33141                           DCA      ATMAGADR                              
032741,000491: 36,2512           53253                           DXCH     AVGEXIT                               
032742,000492: 
032743,000493: 36,2513           40103                           CS       FLAGWRD7                              #  ENABLE R10.
032744,000494: 36,2514           74741                           MASK     SWANDBIT                              
032745,000495: 36,2515           26103                           ADS      FLAGWRD7                              
032746,000496: 
032747,000497: 36,2516           44744        P42IGN             CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
032748,000498: 36,2517           44744                           CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
032749,000499: 36,2520           70111                           MASK     DAPBOOLS                              #    CURVES ARE USED.
032750,000500: 

Page 748

032752,000502: 36,2521           54111                           TS       DAPBOOLS                              
032753,000503: 36,2522           34743                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
032754,000504: 36,2523           70076                           MASK     FLAGWRD2                              
032755,000505: 36,2524           10000                           CCS      A                                     
032756,000506: 36,2525           13522                           TCF      IMPLBURN                              
032757,000507: 
032758,000508: 36,2526           05516        DVMONCON           TC       DOWNFLAG                              
032759,000509: 36,2527           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
032760,000510: 36,2530           05516                           TC       DOWNFLAG                              
032761,000511: 36,2531           00154                           ADRES    ASTNFLAG                              
032762,000512: 36,2532           05516                           TC       DOWNFLAG                              
032763,000513: 36,2533           00161                           ADRES    IDLEFLAG                              
032764,000514: 
032765,000515: 36,2534           05353                           TC       PHASCHNG                              
032766,000516: 36,2535           40054                           OCT      40054                                 
032767,000517: 
032768,000518: 36,2536           05221                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
032769,000519: 36,2537           00062                           DEC      50         B-14                       #  LIGHT UP.
032770,000520: 
032771,000521: 36,2540           02656        ULLAGOFF           TC       NOULLAGE                              
032772,000522: 
032773,000523: 36,2541           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
032774,000524: 36,2542           34755                           DCA      NEG0                                  
032775,000525: 36,2543           52761                           DXCH     -PHASE4                               
032776,000526: 
032777,000527: 36,2544           15261                           TCF      TASKOVER                              
032778,000528: 
032779,000529: 
032780,000530:                                                                                                  #                ****************************************
032781,000531: 
032782,000532: 36,2545           35026        TIGTASK            CAF      PRIO16                                #  TIGNOW MUST BE A JOB.
032783,000533: 36,2546           05072                           TC       NOVAC                                 
032784,000534: 36,2547  E7,1460                                  EBANK=   TRKMKCNT                              
032785,000535: 36,2547           03241 74067                     2CADR    TIGNOW                                
032786,000536: 36,2551           05353                           TC       PHASCHNG                              
032787,000537: 36,2552           00006                           OCT      6                                     #  KILL GROUP 6.
032788,000538: 
032789,000539: 36,2553           15261                           TCF      TASKOVER                              
032790,000540: 
032791,000541: 
032792,000542:                                                                                                  #                ****************************************
032793,000543: 
032794,000544: 36,2554           51453        ZOOM               INDEX    WHICH                                 
032795,000545: 36,2555           10004                           TCF      4                                     
032796,000546: 
032797,000547: 36,2556           00006        P63ZOOM            EXTEND                                         #  (4)   SET UP GUIDANCE.
032798,000548: 36,2557           33137                           DCA      LUNLANAD                              
032799,000549: 36,2560           53253                           DXCH     AVEGEXIT                              
032800,000550: 

Page 749

032802,000552: 
032803,000553: 36,2561           04674                           TC       IBNKCALL                              
032804,000554: 36,2562           62415                           CADR     FLATOUT                               
032805,000555: 36,2563           12571                           TCF      P40ZOOMA                              
032806,000556: 
032807,000557: 36,2564           34737        P40ZOOM            CAF      BIT13                                 #  (4) THROTTLE THE DPS TO MAXIMUM THRUST.
032808,000558: 36,2565           54055                           TS       THRUST                                
032809,000559: 36,2566           34750                           CAF      BIT4                                  
032810,000560: 
032811,000561: 36,2567           00006                           EXTEND                                         
032812,000562: 36,2570           05014                           WOR      CHAN14                                
032813,000563: 
032814,000564: 36,2571           05353        P40ZOOMA           TC       PHASCHNG                              
032815,000565: 36,2572           00003                           OCT      3                                     
032816,000566: 36,2573           15261                           TCF      TASKOVER                              
032817,000567: 
032818,000568: 
032819,000569:                                                                                                  #                ****************************************
032820,000570: 
032821,000571: 36,2574           05504        COMFAIL            TC       UPFLAG                                #  (15)
032822,000572: 36,2575           00161                           ADRES    IDLEFLAG                              
032823,000573: 36,2576           05504                           TC       UPFLAG                                #  SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032824,000574: 36,2577           00175                           ADRES    FLUNDISP                              
032825,000575: 36,2600           34751                           CAF      FOUR                                  #  RESET DVMON
032826,000576: 36,2601           55513                           TS       DVCNTR                                
032827,000577: 36,2602           10765                           CCS      PHASE6                                #  CLOCKTASK ACTIVE?
032828,000578: 36,2603           12606                           TCF      +3                                    #  YES
032829,000579: 36,2604           04616                           TC       BANKCALL                              #  OTHERWISE, START IT UP
032830,000580: 36,2605           74666                           CADR     STCLOK1                               
032831,000581: 36,2606           44242                 +3        CS       VB97DEX                               
032832,000582: 36,2607           55163                           TS       DISPDEX                               
032833,000583: 36,2610           05353                           TC       PHASCHNG                              #  TURN OFF GROUP 4.
032834,000584: 36,2611           00004                           OCT      00004                                 
032835,000585: 36,2612           15155                           TCF      ENDOFJOB                              
032836,000586: 
032837,000587: 36,2613           51453        COMFAIL1           INDEX    WHICH                                 
032838,000588: 36,2614           10002                           TCF      2                                     
032839,000589: 
032840,000590: 36,2615           30005        COMFAIL3           CA       Z                                     #  (15)       KILL CLOKTASK USING Z
032841,000591: 36,2616           12620                           TCF      +2                                    
032842,000592: 
032843,000593: 36,2617           44747        COMFAIL4           CS       CNTDNDEX                              
032844,000594: 36,2620           55163                           TS       DISPDEX                               
032845,000595: 
032846,000596: 36,2621           05516                           TC       DOWNFLAG                              #  RECONNECT DV MONITOR
032847,000597: 36,2622           00161                           ADRES    IDLEFLAG                              
032848,000598: 36,2623           05516                           TC       DOWNFLAG                              #  PERMIT GUIDANCE LOOP DISPLAYS
032849,000599: 36,2624           00175                           ADRES    FLUNDISP                              
032850,000600: 36,2625           15155                           TCF      ENDOFJOB                              
032851,000601: 

Page 750

032853,000603: 36,2626           05353        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
032854,000604: 36,2627           00003                           OCT      00003                                 
032855,000605: 
032856,000606: 36,2630           00004                           INHINT                                         
032857,000607: 36,2631           06027                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
032858,000608: 36,2632           74554                           CADR     ZOOM                                  
032859,000609: 36,2633           04674                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
032860,000610: 36,2634           75561                           CADR     ENGINOF4                              
032861,000611: 36,2635           05504                           TC       UPFLAG                                #  SET THE DRIFT BIT FOR THE DAP.
032862,000612: 36,2636           00312                           ADRES    DRIFTDFL                              
032863,000613: 36,2637           02650                           TC       INVFLAG                               #  USE OTHER RCS SYSTEM
032864,000614: 36,2640           00310                           ADRES    AORBTFLG                              
032865,000615: 36,2641           05504                           TC       UPFLAG                                #  TURN ON ULLAGE
032866,000616: 36,2642           00314                           ADRES    ULLAGFLG                              
032867,000617: 36,2643           34753                           CAF      BIT1                                  
032868,000618: 36,2644           00004                           INHINT                                         
032869,000619: 36,2645           05173                           TC       TWIDDLE                               
032870,000620: 36,2646           02343                           ADRES    TIG-5                                 
032871,000621: 36,2647           15155                           TCF      ENDOFJOB                              
032872,000622: 
032873,000623: 
032874,000624:                                                                                                  #                ****************************************
032875,000625:                                                                                                  #                SUBROUTINES OF THE IGNITION ROUTINE
032876,000626:                                                                                                  #                ****************************************
032877,000627: 
032878,000628: 36,2650           30002        INVFLAG            CA       Q                                     
032879,000629: 36,2651           05522                           TC       DEBIT                                 
032880,000630: 36,2652           40000                           COM                                            
032881,000631: 36,2653           00006                           EXTEND                                         
032882,000632: 36,2654           06001                           RXOR     LCHAN                                 
032883,000633: 36,2655           15511                           TCF      COMFLAG                               
032884,000634: 
032885,000635: 
032886,000636:                                                                                                  #                ****************************************
032887,000637: 
032888,000638: 36,2656           44746        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
032889,000639: 36,2657           70111                           MASK     DAPBOOLS                              
032890,000640: 36,2660           54111                           TS       DAPBOOLS                              
032891,000641: 36,2661           00002                           TC       Q                                     
032892,000642: 
032893,000643: 
032894,000644:                                                                                                  #                ****************************************
032895,000645: 
032896,000646: 36,2662           40111        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
032897,000647: 36,2663           74746                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
032898,000648: 36,2664           26111                           ADS      DAPBOOLS                              
032899,000649: 36,2665           00002                           TC       Q                                     
032900,000650: 
032901,000651: 
032902,000652:                                                                                                  #                ****************************************
032903,000653: 

Page 751

032905,000655: 
032906,000656: 36,2666           34755        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
032907,000657: 36,2667           55163        STCLOK2            TS       DISPDEX                               #    (CLOKTASK AND CLOKJOB).   SETTING
032908,000658: 36,2670           04645        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
032909,000659: 36,2671           55061                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
032910,000660: 36,2672           00006                           EXTEND                                         
032911,000661: 36,2673           31440                           DCA      TIG                                   
032912,000662: 36,2674           52155                           DXCH     MPAC                                  
032913,000663: 36,2675           00006                           EXTEND                                         
032914,000664: 36,2676           40025                           DCS      TIME2                                 
032915,000665: 36,2677           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032916,000666: 36,2700           07256                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE
032917,000667: 36,2701           34777                           CAF      1SEC                                  #    45 SECOND CHECK
032918,000668: 36,2702           54002                           TS       Q                                     
032919,000669: 36,2703           52155                           DXCH     MPAC                                  
032920,000670: 36,2704           74346                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
032921,000671: 36,2705           00006                           EXTEND                                         
032922,000672: 36,2706           10002                           DV       Q                                     
032923,000673: 36,2707           30001                           CA       L                                     #  GET REMAINDER
032924,000674: 36,2710           64752                           AD       TWO                                   
032925,000675: 36,2711           00004                           INHINT                                         
032926,000676: 36,2712           05173                           TC       TWIDDLE                               
032927,000677: 36,2713           02722                           ADRES    CLOKTASK                              
032928,000678: 36,2714           05327                           TC       2PHSCHNG                              
032929,000679: 36,2715           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
032930,000680: 36,2716           05024                           OCT      05024                                 
032931,000681: 36,2717           13000                           OCT      13000                                 
032932,000682: 
032933,000683: 36,2720           31061                           CA       TBASE4                                
032934,000684: 36,2721           04640                           TC       BANKJUMP                              
032935,000685: 
032936,000686: 
032937,000687: 36,2722           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
032938,000688: 36,2723           55065                           TS       TBASE6                                
032939,000689: 
032940,000690: 36,2724           11163                           CCS      DISPDEX                               
032941,000691: 36,2725           12736                           TCF      KILLCLOK                              
032942,000692: 36,2726           12727                           NOOP                                           
032943,000693: 36,2727           37714                           CAF      PRIO27                                
032944,000694: 36,2730           05072                           TC       NOVAC                                 
032945,000695: 36,2731  E7,1451                                  EBANK=   TTOGO                                 
032946,000696: 36,2731           02742 74067                     2CADR    CLOKJOB                               
032947,000697: 
032948,000698: 
032949,000699: 36,2733           05221                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
032950,000700: 36,2734           00144                           DEC      100        B-14                       
032951,000701: 36,2735           12722                           TCF      CLOKTASK                              
032952,000702: 
032953,000703: 36,2736           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
032954,000704: 

Page 752

032956,000706: 36,2737           34755                           DCA      NEG0                                  
032957,000707: 36,2740           52765                           DXCH     -PHASE6                               
032958,000708: 36,2741           15261                           TCF      TASKOVER                              
032959,000709: 
032960,000710: 
032961,000711: 36,2742           00006        CLOKJOB            EXTEND                                         
032962,000712: 36,2743           41440                           DCS      TIG                                   
032963,000713: 36,2744           53452                           DXCH     TTOGO                                 
032964,000714: 36,2745           00006                           EXTEND                                         
032965,000715: 36,2746           30025                           DCA      TIME2                                 
032966,000716: 36,2747           21452                           DAS      TTOGO                                 
032967,000717: 36,2750           00004                           INHINT                                         
032968,000718: 36,2751           11163                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
032969,000719: 36,2752           15155                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
032970,000720: 36,2753           15155                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
032971,000721: 36,2754           40000                           COM                                            #  INDEX.
032972,000722: 36,2755           00003                           RELINT                                         #  *****  DISPDEX MUST NEVER BE -0  *****
032973,000723: 36,2756           50000                           INDEX    A                                     
032974,000724: 36,2757           13021                           TCF      DISPNOT    -1                         #  (-1 DUE TO EFFECT OF CCS)
032975,000725: 
032976,000726: 36,2760     4242               VB97DEX            =        34DEC                                 
032977,000727: 
032978,000728: 36,2760           30371                 -42       CA       NVWORD     +2                         #  NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
032979,000729: 36,2761           04616                           TC       BANKCALL                              
032980,000730: 36,2762           20510                           CADR     GOFLASHR                              
032981,000731: 36,2763           13023                           TCF      STOPCLOK                              #  TERMINATE CLOKTASK ON THE WAY TO P00H
032982,000732: 36,2764           12613                           TCF      COMFAIL1                              
032983,000733: 36,2765           12626                           TCF      COMFAIL2                              
032984,000734: 36,2766           44755                           CS       ZERO                                  
032985,000735: 36,2767           55067        V97ORV99           TS       NVWORD1                               
032986,000736: 36,2770           33146                           CAF      VB99CON                               
032987,000737: 36,2771           05464                           TC       LINUS                                 
032988,000738: 36,2772           15155                           TCF      ENDOFJOB                              
032989,000739:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK.
032990,000740: 36,2773           51453                 -27       INDEX    WHICH                                 #  IT IS PRIMARILY USED BY THE ASTRONAUT
032991,000741: 36,2774           30001                           CAF      1                                     #  TO RESET HIS EVENT TIMER TO AGREE WITH
032992,000742: 36,2775           04616                           TC       BANKCALL                              #  TIG.
032993,000743: 36,2776           20335                           CADR     REFLASH                               
032994,000744: 36,2777           13023                           TCF      STOPCLOK                              
032995,000745: 36,3000           13040                           TCF      ASTNRETN                              
032996,000746: 36,3001           12773                           TCF      -6                                    
032997,000747: 
032998,000748: 36,3002     4747               CNTDNDEX           =        OCT20                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
032999,000749: 
033000,000750: 36,3002           51453                 -20       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
033001,000751: 36,3003           30000                           CAF      0                                     #  INTERVALS.  IT IS NORMALLY OPERATED
033002,000752: 36,3004           04616                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
033003,000753: 36,3005           20343                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
033004,000754: 
033005,000755: 36,3006     5742               VB99DEX            =        OCT14                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
033006,000756: 

Page 753

033008,000758: 
033009,000759: 36,3006                        V99RECYC           EQUALS                                         
033010,000760: 
033011,000761: 36,3006           51453                 -14       INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
033012,000762: 36,3007           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
033013,000763: 36,3010           04616                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
033014,000764: 36,3011           20510                           CADR     GOFLASHR                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
033015,000765: 36,3012           13023                           TCF      STOPCLOK                              #  TERMINATE  GOTOPOOH TURNS OFF ULLAGE.
033016,000766: 36,3013           13051                           TCF      *PROCEED                              
033017,000767: 36,3014           13054                           TCF      *ENTER                                
033018,000768: 36,3015           44743                           CS       BIT9                                  
033019,000769: 36,3016           12767                           TCF      V97ORV99                              
033020,000770: 
033021,000771: 36,3017           13020                           NOOP                                           
033022,000772: 36,3020     4752               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
033023,000773: 
033024,000774: 36,3020           04616                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
033025,000775: 36,3021           20334                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
033026,000776: 36,3022           15155        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
033027,000777: 
033028,000778: 
033029,000779: 36,3023           03025        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
033030,000780: 36,3024           16001                           TCF      GOTOPOOH                              #      WAY TO P00  (GOTOPOOH RELINTS)
033031,000781: 
033032,000782: 36,3025           00004        NULLCLOK           INHINT                                         
033033,000783: 36,3026           00006                           EXTEND                                         
033034,000784: 36,3027           23142                           QXCH     P40/RET                               
033035,000785: 36,3030           02656                           TC       NOULLAGE                              #  TURN OFF ULLAGE ...
033036,000786: 36,3031           06027                           TC       KILLTASK                              #     DON'T LET IT COME ON, EITHER ...
033037,000787: 36,3032           74337                           CADR     ULLGTASK                              
033038,000788: 36,3033           05353                           TC       PHASCHNG                              #           NOT EVEN IF THERE'S A RESTART.
033039,000789: 36,3034           00001                           OCT      1                                     
033040,000790: 36,3035           30005                           CA       Z                                     #  KILL CLOKTASK
033041,000791: 36,3036           55163                           TS       DISPDEX                               
033042,000792: 36,3037           01142                           TC       P40/RET                               
033043,000793: 
033044,000794: 
033045,000795: 36,3040           05353        ASTNRETN           TC       PHASCHNG                              
033046,000796: 36,3041           04024                           OCT      04024                                 
033047,000797: 36,3042           34755                           CAF      ZERO                                  #  STOP DISPLAYING BUT KEEP RUNNING.
033048,000798: 36,3043           55163                           TS       DISPDEX                               
033049,000799: 36,3044           35023                           CAF      PRIO13                                
033050,000800: 36,3045           05105                           TC       FINDVAC                               
033051,000801: 36,3046  E5,1757                                  EBANK=   STARIND                               
033052,000802: 36,3046           03203 64065                     2CADR    ASTNRET                               
033053,000803: 36,3050           15155                           TCF      ENDOFJOB                              
033054,000804: 
033055,000805: 
033056,000806: 36,3051           05504        *PROCEED           TC       UPFLAG                                
033057,000807: 36,3052           00154                           ADRES    ASTNFLAG                              
033058,000808: 

Page 754

033060,000810: 36,3053           13112                           TCF      IGNITE                                
033061,000811: 
033062,000812: 
033063,000813: 36,3054           00004        *ENTER             INHINT                                         
033064,000814: 36,3055           51453                           INDEX    WHICH                                 
033065,000815: 36,3056           10003                           TCF      3                                     
033066,000816: 
033067,000817: 
033068,000818: 36,3057           34644        GOPOST             CAF      PRIO12                                #  (3)  MUST BE LOWER PRIORITY THAN CLOKJOB
033069,000819: 36,3060           05105                           TC       FINDVAC                               
033070,000820: 36,3061  E7,1451                                  EBANK=   TTOGO                                 
033071,000821: 36,3061           03223 74067                     2CADR    POSTBURN                              
033072,000822: 36,3063           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
033073,000823: 36,3064           04674                           TC       IBNKCALL                              
033074,000824: 36,3065           40204                           CADR     ALLCOAST                              
033075,000825: 36,3066           03025                           TC       NULLCLOK                              
033076,000826: 36,3067           05353                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
033077,000827: 36,3070           00134                           OCT      00134                                 
033078,000828: 
033079,000829: 36,3071           15155                           TCF      ENDOFJOB                              
033080,000830: 
033081,000831: 
033082,000832: 36,3072           35027        GOCUTOFF           CAF      PRIO17                                #  (3)
033083,000833: 36,3073           05105                           TC       FINDVAC                               
033084,000834: 36,3074  E7,1514                                  EBANK=   TGO                                   
033085,000835: 36,3074           03261 56067                     2CADR    CUTOFF                                
033086,000836: 36,3076           05516                           TC       DOWNFLAG                              
033087,000837: 36,3077           00175                           ADRES    FLUNDISP                              
033088,000838: 
033089,000839: 36,3100           00004                           INHINT                                         #  SET UP THE DAP FOR COASTING FLIGHT.
033090,000840: 36,3101           04674                           TC       IBNKCALL                              
033091,000841: 36,3102           40204                           CADR     ALLCOAST                              
033092,000842: 36,3103           03025                           TC       NULLCLOK                              
033093,000843: 36,3104           05353                           TC       PHASCHNG                              
033094,000844: 36,3105           07024                           OCT      07024                                 
033095,000845: 36,3106           17000                           OCT      17000                                 
033096,000846: 36,3107  E7,1514                                  EBANK=   TGO                                   
033097,000847: 36,3107           03261 56067                     2CADR    CUTOFF                                
033098,000848: 36,3111           15155                           TCF      ENDOFJOB                              
033099,000849: 
033100,000850: 
033101,000851: 36,3112           40103        IGNITE             CS       FLAGWRD7                              #  (2)
033102,000852: 36,3113           74737                           MASK     IGNFLBIT                              
033103,000853: 36,3114           10000                           CCS      A                                     
033104,000854: 36,3115           13126                           TCF      IGNITE1                               
033105,000855: 36,3116           34753                           CAF      BIT1                                  
033106,000856: 36,3117           00004                           INHINT                                         
033107,000857: 

Page 755

033109,000859: 36,3120           05173                           TC       TWIDDLE                               
033110,000860: 36,3121           02411                           ADRES    IGNITION                              
033111,000861: 
033112,000862: 36,3122           34360                           CAF      OCT23                                 #  IMMEDIATE RESTART AT IGNITION.
033113,000863: 36,3123           54001                           TS       L                                     
033114,000864: 36,3124           40000                           COM                                            
033115,000865: 36,3125           52761                           DXCH     -PHASE4                               
033116,000866: 
033117,000867: 36,3126           44747        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
033118,000868: 36,3127           55163                           TS       DISPDEX                               
033119,000869: 
033120,000870: 36,3130           15155                           TCF      ENDOFJOB                              
033121,000871: 
033122,000872: 
033123,000873:                                                                                                  #                ****************************************
033124,000874: 
033125,000875: 31,2172                                           BANK     31                                    
033126,000876: 35,2000                                           SETLOC   P40S2                                 
033127,000877: 35,2000                                           BANK                                           
033128,000878: 
033129,000879: 35,3707                                           COUNT*   $$/P40                                
033130,000880: 
033131,000881: 35,3707           04645        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
033132,000882: 35,3710           55164                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
033133,000883: 35,3711           04616        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
033134,000884: 35,3712           54233                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
033135,000885: 35,3713           10000                           CCS      A                                     #  +0  INDICATES IN PGNCS, IN AUTO
033136,000886: 35,3714           13726                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
033137,000887: 35,3715           34737                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
033138,000888: 35,3716           70106                           MASK     FLGWRD10                              
033139,000889: 35,3717           10000                           CCS      A                                     
033140,000890: 35,3720           13733                           TCF      GOBACK                                #  RETURN
033141,000891: 35,3721           34747                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
033142,000892: 35,3722           00006                           EXTEND                                         
033143,000893: 35,3723           02030                           RAND     CHAN30                                
033144,000894: 35,3724           00006                           EXTEND                                         
033145,000895: 35,3725           13733                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN
033146,000896: 35,3726           33735        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203 PLEASE PERFORM
033147,000897: 35,3727           04616                           TC       BANKCALL                              #  CHECKLIST 203 TURN ON PGNCS ETC.
033148,000898: 35,3730           20476                           CADR     GOPERF1                               
033149,000899: 35,3731           16001                           TCF      GOTOPOOH                              #  V34E  TERMINATE
033150,000900: 35,3732           13711                           TCF      P40A/P                                #  RECYCLE
033151,000901: 35,3733           31164        GOBACK             CA       TEMPR60                               
033152,000902: 35,3734           04640                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
033153,000903: 
033154,000904: 
033155,000905: 35,3735           00203        P40A/PMD           OCT      00203                                 
033156,000906: 
033157,000907: 36,3131                                           BANK     36                                    
033158,000908: 36,2000                                           SETLOC   P40S                                  
033159,000909: 

Page 756

033161,000911: 36,2000                                           BANK                                           
033162,000912: 
033163,000913: 36,3131                                           COUNT*   $$/P40                                
033164,000914: 
033165,000915:                                                                                                  #                ****************************************
033166,000916:                                                                                                  #                CONSTANTS FOR THE IGNITION ROUTINE
033167,000917:                                                                                                  #                ****************************************
033168,000918: 
033169,000919: 36,3131  36,2103               SERVCADR           =        P63TABLE   +7                         
033170,000920: 
033171,000921: 36,3131           02036        P40ADRES           ADRES    P40TABLE                              
033172,000922: 
033173,000923: 36,3132           02045        P41ADRES           ADRES    P41TABLE   -5                         
033174,000924: 
033175,000925: 36,3133           02060        P42ADRES           ADRES    P42TABLE                              
033176,000926: 
033177,000927: 36,3134  E7,1620                                  EBANK=   WCHPHASE                              
033178,000928: 36,3134           03437 62067  DSP2CADR           2CADR    P63DISPS   -2                         
033179,000929: 
033180,000930: 
033181,000931: 36,3136  E7,1620                                  EBANK=   WCHPHASE                              
033182,000932: 36,3136           02522 62067  LUNLANAD           2CADR    LUNLAND                               
033183,000933: 
033184,000934: 
033185,000935: 36,3140  E7,1513                                  EBANK=   DVCNTR                                
033186,000936: 36,3140           03637 70067  ATMAGADR           2CADR    ATMAG                                 
033187,000937: 36,3142     6001               ?                  =        GOTOPOOH                              
033188,000938: 
033189,000939: 36,3142           00000 05656  D29.9SEC           2DEC     2990       B-28                       
033190,000940: 
033191,000941: 
033192,000942: 36,3144           04672        S24.9SEC           DEC      2490       B-14                       
033193,000943: 
033194,000944: 36,3145           00752        4.9SEC             DEC      490        B-14                       
033195,000945: 
033196,000946: 36,3146     4747               OCT20              =        BIT5                                  
033197,000947: 
033198,000948: 36,3146           24020        VB99CON            OCT      24020                                 #  BITS 5, 12, AND 14
033199,000949: 

Page 757

033201,000951:                                                                                                  #           KILLTASK
033202,000952:                                                                                                  #  MOD NO: NEW PROGRAM
033203,000953:                                                                                                  #  MOD BY: COVELLI
033204,000954: 
033205,000955: 
033206,000956:                                                                                                  #  FUNCTIONAL DESCRIPTION:
033207,000957: 
033208,000958:                                                                                                  #     KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
033209,000959:                                                                                                  #  WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
033210,000960:                                                                                                  #  FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
033211,000961:                                                                                                  #  MUST BE CALLED IN INTERRUPT OR WITH INTERRUPT INHIBITED.
033212,000962: 
033213,000963:                                                                                                  #  CALLING SEQUENCE:
033214,000964:                                                                                                  #                                          L-1     (INHINT)
033215,000965:                                                                                                  #                                          L        TC     KILLTASK       IN FIXED-FIXED
033216,000966:                                                                                                  #                                          L+1      CADR   ????????       CADR (NOT 2CADR) OF TASK TO BE REMOVED.
033217,000967:                                                                                                  #                                          L+2      (RELINT)              RETURN
033218,000968: 
033219,000969:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
033220,000970: 
033221,000971:                                                                                                  #  ERASABLE INITIALIZATION=  NONE.
033222,000972: 
033223,000973:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
033224,000974: 
033225,000975:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A,L,Q.
033226,000976: 
033227,000977: 36,3147  E3,1410                                  EBANK=   LST2                                  
033228,000978:    6027                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
033229,000979:    6000                                           SETLOC   FFTAG6                                
033230,000980:    6000                                           BANK                                           
033231,000981:    6027                                           COUNT*   $$/KILL                               
033232,000982:    6027           36035        KILLTASK           CA       KILLBB                                
033233,000983:    6030           22000                           LXCH     A                                     
033234,000984:    6031           50002                           INDEX    Q                                     
033235,000985:    6032           30000                           CA       0                                     #  GET CADR.
033236,000986:    6033           22006                           LXCH     BBANK                                 
033237,000987:    6034           12223                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
033238,000988: 
033239,000989:    6035  E3,1410                                  EBANK=   LST2                                  
033240,000990:    6035           56063        KILLBB             BBCON    KILLTSK2                              
033241,000991: 
033242,000992: 
033243,000993: 27,2223                                           BANK     27                                    
033244,000994: 
033245,000995: 27,2000                                           SETLOC   P40S1                                 
033246,000996: 27,2000                                           BANK                                           
033247,000997: 27,2223                                           COUNT*   $$/KILL                               
033248,000998: 
033249,000999: 27,2223           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK
033250,001000: 

Page 758

033252,001002: 27,2224           24002                           INCR     Q                                     
033253,001003: 27,2225           00006                           EXTEND                                         
033254,001004: 27,2226           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
033255,001005: 
033256,001006: 27,2227           54063                           TS       ITEMP3                                #  CADR IS IN A
033257,001007: 27,2230           75012                           MASK     LOW10                                 
033258,001008: 27,2231           64741                           AD       BIT11                                 
033259,001009: 27,2232           54064                           TS       ITEMP4                                #  GENADR OF TASK
033260,001010: 
033261,001011: 27,2233           45012                           CS       LOW10                                 
033262,001012: 27,2234           70063                           MASK     ITEMP3                                
033263,001013: 27,2235           54063                           TS       ITEMP3                                #  FBANK OF TASK
033264,001014: 
033265,001015: 27,2236           22007                           ZL                                             
033266,001016: 27,2237           50001        ADRSCAN            INDEX    L                                     
033267,001017: 27,2240           41410                           CS       LST2                                  
033268,001018: 27,2241           60064                           AD       ITEMP4                                #  COMPARE GENADRS
033269,001019: 27,2242           00006                           EXTEND                                         
033270,001020: 27,2243           12255                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
033271,001021: 27,2244           44747        LETITLIV           CS       LSTLIM                                
033272,001022: 27,2245           60001                           AD       L                                     
033273,001023: 27,2246           00006                           EXTEND                                         #  ARE WE DONE?
033274,001024: 27,2247           12253                           BZF      DEAD                                  #  YES - DONE, SO RETURN
033275,001025: 27,2250           24001                           INCR     L                                     
033276,001026: 27,2251           24001                           INCR     L                                     
033277,001027: 27,2252           12237                           TCF      ADRSCAN                               #  CONTINUE LOOP.
033278,001028: 
033279,001029: 27,2253           52062        DEAD               DXCH     ITEMP1                                
033280,001030: 27,2254           52006                           DTCB                                           
033281,001031: 
033282,001032: 27,2255           45012        TSTFBANK           CS       LOW10                                 
033283,001033: 27,2256           50001                           INDEX    L                                     
033284,001034: 27,2257           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
033285,001035: 27,2260           00006                           EXTEND                                         
033286,001036: 27,2261           60063                           SU       ITEMP3                                
033287,001037: 27,2262           00006                           EXTEND                                         
033288,001038: 27,2263           12265                           BZF      KILLDEAD                              #  MATCH - KILL IT.
033289,001039: 27,2264           12244                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
033290,001040: 
033291,001041: 27,2265           34353        KILLDEAD           CA       TCTSKOVR                              
033292,001042: 27,2266           50001                           INDEX    L                                     
033293,001043: 27,2267           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
033294,001044: 27,2270           12253                           TCF      DEAD                                  
033295,001045: 
033296,001046: 27,2271     4747               LSTLIM             EQUALS   BIT5                                  #  DEC 16

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