Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

028542,000002:                                                                                                  ## Copyright:   Public domain.
028543,000003:                                                                                                  ## Filename:    BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
028544,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
028545,000005:                                                                                                  ##              as closely as possible with available information. Sundance
028546,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
028547,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
028548,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
028549,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
028550,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
028551,000011:                                                                                                  ##              or the Sundance GSOPs.
028552,000012:                                                                                                  ## Assembler:   yaYUL
028553,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028554,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028555,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
028556,000016:                                                                                                  ##              2020-07-29 MAS  Added a custom implementation of TIGINT.
028557,000017: 
028558,000018: 
028559,000019: 36,2000                                           BANK     36                                    
028560,000020: 36,2000                                           SETLOC   P40S                                  
028561,000021: 36,2000                                           BANK                                           
028562,000022: 36,2000  E7,1430                                  EBANK=   WHICH                                 
028563,000023: 36,2000                                           COUNT*   $$/P40                                
028564,000024:                                                                                                  #      THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS:  P12, P40, P42, P61, P63.
028565,000025:                                                                                                  #  IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION:  IN PARTICULAR, EVERYTHING LYING
028566,000026:                                                                                                  #  BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
028567,000027:                                                                                                  #  PROGRAMS THROTTLE UP.
028568,000028: 
028569,000029:                                                                                                  #      VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
028570,000030:                                                                                                  #  WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS.   USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
028571,000031:                                                                                                  #  (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4).   THE IGNITION ROUTINE THEN INDEXES BY
028572,000032:                                                                                                  #  WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY.   THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
028573,000033:                                                                                                  #  THROUGH BANKJUMP IF NECESSARY.   THERE IS NO RETURN.
028574,000034: 
028575,000035:                                                                                                  #      THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
028576,000036: 
028577,000037: 
028578,000038:                                                                                                  #                                         HONI SOIT QUI MAL Y PENSE
028579,000039: 
028580,000040: 
028581,000041:                                                                                                  #                                  ****************************************
028582,000042:                                                                                                  #                                  TABLES FOR THE IGNITION ROUTINE
028583,000043:                                                                                                  #                                  ****************************************
028584,000044: 
028585,000045:                                                                                                  #                                              NOLI SE TANGERE
028586,000046: 
028587,000047: 36,2000           01512        P12TABLE           VN       0674                                  #  (0)
028588,000048: 36,2001           01512                           VN       0674                                  #  (1)
028589,000049: 36,2002           13023                           TCF      IGNITE                                #  (2)
028590,000050: 36,2003           14106                           TCF      GOTOPOOH                              #  (3)
028591,000051: 36,2004           12161                           TCF      TOOLATE                               #  (4)
028592,000052: 36,2005           12212                           TCF      P12SPOT                               #  (5)
028593,000053: 36,2006           00000                           DEC      0          B-14                       #  (6)       NO ULLAGE
028594,000054: 36,2007  E7,1472                                  EBANK=   DVCNTR                                
028595,000055: 36,2007           02213 60067                     2CADR    ATMAG                                 #  (7)
028596,000056: 36,2011           12423                           TCF      DISPCHNG                              #  (11)
028597,000057: 36,2012           12553                           TCF      WAITABIT                              #  (12)
028598,000058: 36,2013           12525                           TCF      P12IGN                                #  (13)
028599,000059: 36,2014           15331                           TCF      TASKOVER                              #  (14)
028600,000060: 36,2015           12610                           TCF      COMFAIL2                              #  (15)
028601,000061: 
028602,000062: 
028603,000063: 
028604,000064: 36,2016           01450        P40TABLE           VN       0640                                  #  (0)
028605,000065: 36,2017           01450                           VN       0640                                  #  (1)
028606,000066: 36,2020           13023                           TCF      IGNITE                                #  (2)
028607,000067: 36,2021           13013                           TCF      GOPOST                                #  (3)
028608,000068: 36,2022           12161                           TCF      TOOLATE                               #  (4)
028609,000069: 36,2023           12212                           TCF      P40SPOT                               #  (5)
028610,000070: 36,2024           04300                           DEC      2240       B-14                       #  (6)
028611,000071: 36,2025  E6,1420                                  EBANK=   OMEGAQ                                
028612,000072: 36,2025           03637 74066                     2CADR    STEERING                              #  (7)
028613,000073: 36,2027           12417                           TCF      P40SJUNK                              #  (11)
028614,000074: 36,2030           12553                           TCF      WAITABIT                              #  (12)
028615,000075: 36,2031           12506                           TCF      P40IGN                                #  (13)
028616,000076: 36,2032           12601                           TCF      P40ZOOM                               #  (14)
028617,000077: 36,2033           12610                           TCF      COMFAIL2                              #  (15)
028618,000078: 36,2034           12171                           TCF      PUSHTIG                               #  (16)
028619,000079: 
028620,000080: 
028621,000081: 
028622,000082: 36,2035           12215        P41TABLE           TCF      P41SPOT                               #  (5)
028623,000083: 36,2036           77776                           DEC      -1         B-14                       #  (6)
028624,000084: 36,2037  E6,1420                                  EBANK=   OMEGAQ                                
028625,000085: 36,2037           03361 74066                     2CADR    CALCN85                               #  (7)
028626,000086: 
028627,000087: 36,2041           15331                           TCF      TASKOVER                              #  (11)
028628,000088: 36,2042           12557                           TCF      TIGTASK                               #  (12)
028629,000089: 
028630,000090: 
028631,000091: 
028632,000092: 36,2043           01450        P42TABLE           VN       0640                                  #  (0)
028633,000093: 36,2044           01450                           VN       0640                                  #  (1)
028634,000094: 36,2045           13023                           TCF      IGNITE                                #  (2)
028635,000095: 36,2046           13013                           TCF      GOPOST                                #  (3)
028636,000096: 36,2047           12161                           TCF      TOOLATE                               #  (4)
028637,000097: 36,2050           12212                           TCF      P42SPOT                               #  (5)
028638,000098: 36,2051           05120                           DEC      2640       B-14                       #  (6)
028639,000099: 36,2052  E6,1420                                  EBANK=   OMEGAQ                                
028640,000100: 36,2052           03637 74066                     2CADR    STEERING                              #  (7)
028641,000101: 36,2054           12417                           TCF      P40SJUNK                              #  (11)
028642,000102: 36,2055           12553                           TCF      WAITABIT                              #  (12)
028643,000103: 36,2056           12527                           TCF      P42IGN                                #  (13)
028644,000104: 36,2057           15331                           TCF      TASKOVER                              #  (14)
028645,000105: 36,2060           12610                           TCF      COMFAIL2                              #  (15)
028646,000106: 
028647,000107: 
028648,000108: 
028649,000109: 36,2061           01476        P63TABLE           VN       0662                                  #  (0)
028650,000110: 36,2062           01475                           VN       0661                                  #  (1)
028651,000111: 36,2063           13023                           TCF      IGNITE                                #  (2)
028652,000112: 36,2064           12760                           TCF      V99RECYC                              #  (3)
028653,000113: 36,2065           12161                           TCF      TOOLATE                               #  (4)
028654,000114: 36,2066           12215                           TCF      P63SPOT                               #  (5)
028655,000115: 36,2067           04300                           DEC      2240       B-14                       #  (6)
028656,000116: 36,2070  E7,1430                                  EBANK=   WHICH                                 
028657,000117: 36,2070           02354 66067                     2CADR    SERVEXIT                              #  (7)
028658,000118: 36,2072           12423                           TCF      DISPCHNG                              #  (11)
028659,000119: 36,2073           12553                           TCF      WAITABIT                              #  (12)
028660,000120: 36,2074           12467                           TCF      P63IGN                                #  (13)
028661,000121: 36,2075           12570                           TCF      P63ZOOM                               #  (14)
028662,000122: 36,2076           12610                           TCF      COMFAIL2                              #  (15)
028663,000123: 
028664,000124: 
028665,000125: 36,2077           01513        P70TABLE           VN       0675                                  #  (0)
028666,000126: 36,2100           01513                           VN       0675                                  #  (1)
028667,000127: 36,2101           13023                           TCF      IGNITE                                #  (2)
028668,000128: 36,2102           14106                           TCF      GOTOPOOH                              #  (3)
028669,000129: 36,2103           12161                           TCF      TOOLATE                               #  (4)
028670,000130: 36,2104           12212                           TCF      P70SPOT                               #  (5)
028671,000131: 36,2105           04300                           DEC      2240       B-14                       #  (6)
028672,000132: 36,2106  E7,1472                                  EBANK=   DVCNTR                                
028673,000133: 36,2106           02213 60067                     2CADR    ATMAG                                 #  (7)
028674,000134: 36,2110           12423                           TCF      DISPCHNG                              #  (11)
028675,000135: 36,2111           12553                           TCF      WAITABIT                              #  (12)
028676,000136: 36,2112           12506                           TCF      P70IGN                                #  (13)
028677,000137: 36,2113           12601                           TCF      P70ZOOM                               #  (14)
028678,000138: 36,2114           12610                           TCF      COMFAIL2                              #  (15)
028679,000139: 
028680,000140: 
028681,000141: 36,2115           01513        P71TABLE           VN       0675                                  #  (0)
028682,000142: 36,2116           01513                           VN       0675                                  #  (1)
028683,000143: 36,2117           13023                           TCF      IGNITE                                #  (2)
028684,000144: 36,2120           14106                           TCF      GOTOPOOH                              #  (3)
028685,000145: 36,2121           12161                           TCF      TOOLATE                               #  (4)
028686,000146: 36,2122           12212                           TCF      P71SPOT                               #  (5)
028687,000147: 36,2123           05120                           DEC      2640       B-14                       #  (6)
028688,000148: 36,2124  E7,1472                                  EBANK=   DVCNTR                                
028689,000149: 36,2124           02213 60067                     2CADR    ATMAG                                 #  (7)
028690,000150: 36,2126           12423                           TCF      DISPCHNG                              #  (11)
028691,000151: 36,2127           12553                           TCF      WAITABIT                              #  (12)
028692,000152: 36,2130           12527                           TCF      P71IGN                                #  (13)
028693,000153: 36,2131           15331                           TCF      TASKOVER                              #  (14)
028694,000154: 36,2132           12610                           TCF      COMFAIL2                              #  (15)
028695,000155: 
028696,000156: 
028697,000157: 
028698,000158:                                                                                                  #                ****************************************
028699,000159:                                                                                                  #                GENERAL PURPOSE IGNITION ROUTINES
028700,000160:                                                                                                  #                ****************************************
028701,000161: 
028702,000162: 36,2133           05423        BURNBABY           TC       PHASCHNG                              #  GROUP 4 RESTARTS HERE
028703,000163: 36,2134           04024                           OCT      04024                                 
028704,000164: 
028705,000165: 36,2135           35030                           CAF      ZERO                                  #  EXTIRPATE JUNK LEFT IN DVTOTAL
028706,000166: 36,2136           55466                           TS       DVTOTAL                               
028707,000167: 36,2137           55467                           TS       DVTOTAL    +1                         
028708,000168: 
028709,000169: 36,2140           04655                           TC       BANKCALL                              #  P40AUTO MUST BE BANKCALLED EVEN FROM ITS
028710,000170: 36,2141           75064                           CADR     P40AUTO                               #    OWN BANK TO SET UP RETURN PROPERLY
028711,000171: 
028712,000172: 36,2142           05600        B*RNB*B*           TC       DOWNFLAG                              
028713,000173: 36,2143           00032                           ADRES    GIMBFLG                               
028714,000174: 
028715,000175: 36,2144           00006                           EXTEND                                         
028716,000176: 36,2145           31425                           DCA      TIG                                   #  STORE NOMINAL TIG FOR OBLATENESS COMP.
028717,000177: 36,2146           53574                           DXCH     GOBLTIME                              #  AND FOR P70 OR P71.
028718,000178: 
028719,000179: 36,2147           06014                           TC       INTPRET                               
028720,000180: 36,2150           44234                           RTB      BDSU                                  
028721,000181: 36,2151           21454                                    LOADTIME                              
028722,000182: 36,2152           03425                                    TIG                                   
028723,000183: 36,2153           51025                           DSU      BPL                                   
028724,000184: 36,2154           35753                                    SEC45DP                               
028725,000185: 36,2155           74176                                    ONTIME                                
028726,000186: 36,2156           77776                           EXIT                                           
028727,000187: 
028728,000188: 36,2157           51430                           INDEX    WHICH                                 
028729,000189: 36,2160           10004                           TCF      4                                     
028730,000190: 
028731,000191: 36,2161           05651        TOOLATE            TC       ALARM                                 
028732,000192: 36,2162           01703                           OCT      1703                                  
028733,000193: 
028734,000194: 36,2163           35056                           CAF      V05N09                                
028735,000195: 36,2164           04655                           TC       BANKCALL                              
028736,000196: 36,2165           20406                           CADR     GOFLASH                               
028737,000197: 36,2166           04106                           TC       GOTOPOOH                              
028738,000198: 36,2167           02171                           TC       PUSHTIG                               
028739,000199: 36,2170           12163                           TCF      -5                                    
028740,000200: 
028741,000201: 36,2171           06014        PUSHTIG            TC       INTPRET                               
028742,000202: 36,2172           43234                           RTB      DAD                                   
028743,000203: 36,2173           21454                                    LOADTIME                              
028744,000204: 36,2174           35753                                    SEC45DP                               
028745,000205: 36,2175           03425                           STORE    TIG                                   
028746,000206: 
028747,000207: 36,2176           45345        ONTIME             DLOAD    DSU                                   
028748,000208: 36,2177           03425                                    TIG                                   
028749,000209: 36,2200           35125                                    D29.9SEC                              
028750,000210: 36,2201           00041                           STORE    TDEC1                                 
028751,000211: 36,2202           03457                           STORE    SAVET-30                              
028752,000212: 36,2203           77776                           EXIT                                           
028753,000213: 
028754,000214: 36,2204           00004                           INHINT                                         
028755,000215: 36,2205           04737                           TC       IBNKCALL                              
028756,000216: 36,2206           75561                           CADR     ENGINOF3                              
028757,000217: 36,2207           00003                           RELINT                                         
028758,000218: 
028759,000219: 36,2210           51430                           INDEX    WHICH                                 
028760,000220: 36,2211           10005                           TCF      5                                     
028761,000221: 

This function, which we have called TIGINT, performs integration to TIG-30 for BURNBABY, and integration to TIG for P47. Both were rewritten to use MIDTOAVE in Luminary. Unfortunately, it was located in bank 36 in Sundance 292, and in bank 32 in Sundance 306. We only have revision 292 of bank 32, and revision 306 of bank 36 -- which means that we are completely missing this function. The below implementation was created by Mike Stewart and Niklas Beug to perform all of the needed functions. It has been tested and confirmed working in NASSP, although it is shorter than the original implementation, which means something (hopefully unimportant) is possibly still missing.

028770,000230: 32,2671                                           BANK     32                                    
028771,000231: 32,2000                                           SETLOC   P40S2                                 
028772,000232: 32,2000                                           BANK                                           
028773,000233: 
028774,000234: 32,2671                                           COUNT*   $$/P40                                
028775,000235: 
028776,000236: 32,2671           00041                 -1        STORE    TDEC1                                 
028777,000237: 32,2672           77620        TIGINT             STQ                                            
028778,000238: 32,2673           03730                                    IRETURN1                              
028779,000239: 32,2674           77624                           CALL                                           
028780,000240: 32,2675           27030                                    LEMPREC                               
028781,000241: 32,2676           77775                           VLOAD                                          
028782,000242: 32,2677           00001                                    RATT                                  
028783,000243: 32,2700           03532                           STORE    RN1                                   
028784,000244: 32,2701           77775                           VLOAD                                          
028785,000245: 32,2702           00007                                    VATT                                  
028786,000246: 32,2703           03540                           STORE    VN1                                   
028787,000247: 32,2704           77745                           DLOAD                                          
028788,000248: 32,2705           00015                                    TAT                                   
028789,000249: 32,2706           03546                           STORE    PIPTIME1                              
028790,000250: 32,2707           77650                           GOTO                                           
028791,000251: 32,2710           03730                                    IRETURN1                              
028792,000252: 
028793,000253: 36,2212                                           BANK     36                                    
028794,000254: 36,2000                                           SETLOC   P40S                                  
028795,000255: 36,2000                                           BANK                                           
028796,000256: 36,2212  E7,1430                                  EBANK=   WHICH                                 
028797,000257: 36,2212                                           COUNT*   $$/P40                                
028798,000258: 
028799,000259: 36,2212  36,2212               P12SPOT            =        P40SPOT                               #  (5)
028800,000260: 36,2212  36,2212               P42SPOT            =        P40SPOT                               #  (5)
028801,000261: 36,2212  36,2215               P63SPOT            =        P41SPOT                               #  (5)      IN P63 CLOKTASK ALREADY GOING
028802,000262: 36,2212  36,2212               P70SPOT            =        P40SPOT                               #  (5)
028803,000263: 36,2212  36,2212               P71SPOT            =        P40SPOT                               #  (5)
028804,000264: 36,2212           45022        P40SPOT            CS       OCT20                                 #  (5)
028805,000265: 36,2213           04655                           TC       BANKCALL                              #  MUST BE BANKCALLED FOR GENERALIZED
028806,000266: 36,2214           74654                           CADR     STCLOK2                               #        RETURN
028807,000267: 36,2215           06014        P41SPOT            TC       INTPRET                               #  (5)
028808,000268: 36,2216           77624                           CALL                                           
028809,000269: 36,2217           64672                                    TIGINT                                
028810,000270: 36,2220           77624                           CALL                                           
028811,000271: 36,2221           61213                                    INITCDUW                              
028812,000272: 36,2222           44234                           RTB      BDSU                                  
028813,000273: 36,2223           21454                                    LOADTIME                              
028814,000274: 36,2224           03457                                    SAVET-30                              
028815,000275: 36,2225           45240                           BMN      DSU                                   
028816,000276: 36,2226           74271                                    INTLATE                               
028817,000277: 36,2227           35755                                    5SECDP                                
028818,000278: 36,2230           77640                           BMN                                            
028819,000279: 36,2231           74250                                    MISSED35                              
028820,000280: 36,2232           03457                           STORE    SAVET-30                              
028821,000281: 36,2233           77776                           EXIT                                           
028822,000282: 
028823,000283: 36,2234           05375                           TC       CHECKMM                               
028824,000284: 36,2235           00077                           DEC      63         B-14                       
028825,000285: 36,2236           12241                           TCF      +3                                    #  NOT P63
028826,000286: 36,2237           45022                           CS       CNTDNDEX                              #  P63 CAN START DISPLAYING NOW.
028827,000287: 36,2240           55175                           TS       DISPDEX                               
028828,000288: 
028829,000289: 36,2241           52155        CALLT-35           DXCH     MPAC                                  
028830,000290: 36,2242           05347                           TC       LONGCALL                              
028831,000291: 36,2243  E7,1426                                  EBANK=   TTOGO                                 
028832,000292: 36,2243           02275 74067                     2CADR    TIG-35                                
028833,000293: 36,2245           05423                           TC       PHASCHNG                              
028834,000294: 36,2246           20254                           OCT      20254                                 #  4.25SPOT FOR TIG-35 RESTART.
028835,000295: 
028836,000296: 36,2247           15225                           TCF      ENDOFJOB                              
028837,000297: 
028838,000298: 36,2250           77415        MISSED35           DAD      EXIT                                  
028839,000299: 36,2251           35755                                    5SECDP                                
028840,000300: 
028841,000301: 36,2252           52155                           DXCH     MPAC                                  
028842,000302: 36,2253           07516                           TC       ALSIGNAG                              
028843,000303: 36,2254           56001                           XCH      L                                     
028844,000304: 36,2255           55456                           TS       SAVET-30                              
028845,000305: 36,2256           00004                           INHINT                                         
028846,000306: 36,2257           05243                           TC       TWIDDLE                               
028847,000307: 36,2260           02333                           ADRES    TIG-30                                
028848,000308: 36,2261           05423                           TC       PHASCHNG                              
028849,000309: 36,2262           47014                           OCT      47014                                 
028850,000310: 36,2263           76321                           -GENADR  SAVET-30                              
028851,000311: 36,2264  E7,1473                                  EBANK=   TGO                                   
028852,000312: 36,2264           02333 74067                     2CADR    TIG-30                                
028853,000313: 
028854,000314: 36,2266           45025                           CS       BLANKDEX                              
028855,000315: 36,2267           55175                           TS       DISPDEX                               
028856,000316: 36,2270           15225                           TCF      ENDOFJOB                              
028857,000317: 
028858,000318: 36,2271           77776        INTLATE            EXIT                                           
028859,000319: 36,2272           05651                           TC       ALARM                                 
028860,000320: 36,2273           01711                           OCT      1711                                  
028861,000321: 36,2274           13716                           TCF      P40ALM     +2                         
028862,000322: 
028863,000323: 
028864,000324:                                                                                                  #                ****************************************
028865,000325: 
028866,000326: 36,2275           33755        TIG-35             CAF      5SEC                                  
028867,000327: 36,2276           05243                           TC       TWIDDLE                               
028868,000328: 36,2277           02333                           ADRES    TIG-30                                
028869,000329: 
028870,000330: 36,2300           05423                           TC       PHASCHNG                              
028871,000331: 36,2301           40154                           OCT      40154                                 #  4.15SPOT FOR TIG-30 RESTART
028872,000332: 
028873,000333: 36,2302           45025                           CS       BLANKDEX                              #  BLANK DSKY FOR 5 SECONDS
028874,000334: 36,2303           55175                           TS       DISPDEX                               
028875,000335: 
028876,000336: 36,2304           51430                           INDEX    WHICH                                 
028877,000337: 36,2305           40006                           CS       6                                     #  CHECK ULLAGE TIME.
028878,000338: 36,2306           00006                           EXTEND                                         
028879,000339: 36,2307           65331                           BZMF     TASKOVER                              
028880,000340: 36,2310           33127                           CAF      4.9SEC                                #  SET UP TASK TO RESTORE DISPLAY AT TIG-30
028881,000341: 36,2311           05243                           TC       TWIDDLE                               
028882,000342: 36,2312           02323                           ADRES    TIG-30.1                              
028883,000343: 
028884,000344: 36,2313           35077                           CAF      PRIO17                                #  A NEGATIVE ULLAGE TIME INDICATES P41, IN
028885,000345: 36,2314           05142                           TC       NOVAC                                 #  WHICH CASE WE HAVE TO SET UP A JOB TO
028886,000346: 36,2315  E7,1426                                  EBANK=   TTOGO                                 #  BLANK THE DSKY FOR FIVE SECONDS, SINCE
028887,000347: 36,2315           02320 74067                     2CADR    P41BLANK                              #  CLOKJOB IS NOT RUNNING DURING P41.
028888,000348: 
028889,000349: 36,2317           15331                           TCF      TASKOVER                              
028890,000350: 
028891,000351: 36,2320           04655        P41BLANK           TC       BANKCALL                              #  BLANK DSKY.
028892,000352: 36,2321           20371                           CADR     CLEANDSP                              
028893,000353: 36,2322           15225                           TCF      ENDOFJOB                              
028894,000354: 
028895,000355: 36,2323           35077        TIG-30.1           CAF      PRIO17                                #  SET UP JOB TO RESTORE DISPLAY AT TIG-30
028896,000356: 36,2324           05142                           TC       NOVAC                                 
028897,000357: 36,2325  E7,1426                                  EBANK=   TTOGO                                 
028898,000358: 36,2325           02330 74067                     2CADR    TIG-30A                               
028899,000359: 36,2327           15331                           TCF      TASKOVER                              
028900,000360: 
028901,000361: 36,2330           33764        TIG-30A            CAF      V16N85B                               
028902,000362: 36,2331           04655                           TC       BANKCALL                              #  RESTORE DISPLAY.
028903,000363: 36,2332           20400                           CADR     REGODSP                               #  REGODSP DOES A TCF ENDOFJOB
028904,000364: 
028905,000365: 
028906,000366:                                                                                                  #                *****************************************
028907,000367: 
028908,000368: 
028909,000369: 36,2333           33126        TIG-30             CAF      S24.9SEC                              
028910,000370: 36,2334           05243                           TC       TWIDDLE                               
028911,000371: 36,2335           02402                           ADRES    TIG-5                                 
028912,000372: 
028913,000373: 36,2336           45022                           CS       CNTDNDEX                              #  START UP CLOKTASK AGAIN
028914,000374: 36,2337           55175                           TS       DISPDEX                               
028915,000375: 
028916,000376: 36,2340           51430                           INDEX    WHICH                                 #  PICK UP APPROPRIATE ULLAGE-ON TIME
028917,000377: 36,2341           30006                           CAF      6                                     
028918,000378: 36,2342           00006                           EXTEND                                         
028919,000379: 36,2343           62355                           BZMF     ULLGNOT                               #  DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
028920,000380: 36,2344           55456                           TS       SAVET-30                              #  SAVE DELTA-T FOR RESTART
028921,000381: 36,2345           05243                           TC       TWIDDLE                               
028922,000382: 36,2346           02376                           ADRES    ULLGTASK                              
028923,000383: 
028924,000384: 36,2347           36221                           CA       THREE                                 #  RESTART PROTECT ULLGTASK (1.3SPOT)
028925,000385: 36,2350           54001                           TS       L                                     
028926,000386: 36,2351           46221                           CS       THREE                                 
028927,000387: 36,2352           52753                           DXCH     -PHASE1                               
028928,000388: 36,2353           40025                           CS       TIME1                                 
028929,000389: 36,2354           55054                           TS       TBASE1                                
028930,000390: 
028931,000391: 36,2355           00006        ULLGNOT            EXTEND                                         
028932,000392: 36,2356           51430                           INDEX    WHICH                                 
028933,000393: 36,2357           30010                           DCA      7                                     #  LOAD AVEGEXIT WITH APPROPRIATE 2CADR
028934,000394: 36,2360           53253                           DXCH     AVEGEXIT                              
028935,000395: 
028936,000396: 36,2361           35025                           CAF      TWO                                   #  4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
028937,000397: 36,2362           54001                           TS       L                                     
028938,000398: 36,2363           45025                           CS       TWO                                   #  AND ALSO AT TIG-5 AT THE CORRECT TIME.
028939,000399: 36,2364           52761                           DXCH     -PHASE4                               
028940,000400: 
028941,000401: 36,2365           40025                           CS       TIME1                                 
028942,000402: 36,2366           55062                           TS       TBASE4                                #  SET TBASE4 FOR TIG-5 RESTART
028943,000403: 
028944,000404: 36,2367           00006        REDO2.17           EXTEND                                         
028945,000405: 36,2370           35030                           DCA      NEG0                                  #  CLEAR OUT GROUP 2 SO LAMBERT CAN START
028946,000406: 36,2371           52755                           DXCH     -PHASE2                               #        IF NEEDED.
028947,000407: 
028948,000408: 36,2372           10763        REDO4.2            CCS      PHASE5                                #  IS SERVICER GOING?
028949,000409: 36,2373           15331                           TCF      TASKOVER                              #  YES, DON'T START IT UP AGAIN.
028950,000410: 
028951,000411: 36,2374           04674                           TC       POSTJUMP                              
028952,000412: 36,2375           66000                           CADR     PREREAD                               #  PREREAD ENDS THIS TASK
028953,000413: 
028954,000414: 
028955,000415:                                                                                                  #                ****************************************
028956,000416: 
028957,000417: 
028958,000418: 36,2376           02647        ULLGTASK           TC       ONULLAGE                              #  THIS COMES AT TIG-7.5 OR TIG-3.5
028959,000419: 36,2377           05423                           TC       PHASCHNG                              
028960,000420: 36,2400           00001                           OCT      1                                     
028961,000421: 36,2401           15331                           TCF      TASKOVER                              
028962,000422: 
028963,000423: 
028964,000424:                                                                                                  #                ****************************************
028965,000425: 
028966,000426: 36,2402           33755        TIG-5              CAF      5SEC                                  
028967,000427: 36,2403           05243                           TC       TWIDDLE                               
028968,000428: 36,2404           02426                           ADRES    TIG-0                                 
028969,000429: 
028970,000430: 36,2405           05600                           TC       DOWNFLAG                              #  RESET IGNFLAG AND ASTNFLAG
028971,000431: 36,2406           00153                           ADRES    IGNFLAG                               #    FOR LIGHT-UP LOGIC
028972,000432: 36,2407           05600                           TC       DOWNFLAG                              
028973,000433: 36,2410           00154                           ADRES    ASTNFLAG                              
028974,000434: 
028975,000435: 36,2411           05403                           TC       2PHSCHNG                              
028976,000436: 36,2412           40074                           OCT      40074                                 #  RESTART TIG-0 (4.7SPOT)
028977,000437: 36,2413           05013                           OCT      05013                                 #  RESTART HERE (FOR S40.13 IF NEEDED)
028978,000438: 36,2414           77777                           OCT      77777                                 
028979,000439: 
028980,000440: 36,2415           51430                           INDEX    WHICH                                 
028981,000441: 36,2416           10011                           TCF      11                                    
028982,000442: 
028983,000443: 36,2417           35011        P40SJUNK           CAF      PRIO20                                #  (11)     P40 AND P42 COME HERE
028984,000444: 36,2420           05155                           TC       FINDVAC                               
028985,000445: 36,2421  E7,1426                                  EBANK=   TTOGO                                 
028986,000446: 36,2421           02703 56067                     2CADR    S40.13                                
028987,000447: 
028988,000448: 
028989,000449: 36,2423           45746        DISPCHNG           CS       VB99DEX                               #  (11)
028990,000450: 36,2424           55175                           TS       DISPDEX                               
028991,000451: 36,2425           15331                           TCF      TASKOVER                              
028992,000452: 
028993,000453: 
028994,000454:                                                                                                  #                ****************************************
028995,000455: 
028996,000456: 36,2426           40103        TIG-0              CS       FLAGWRD7                              #  SET IGNFLAG SINCE TIG HAS ARRIVED
028997,000457: 36,2427           75012                           MASK     IGNFLBIT                              
028998,000458: 36,2430           26103                           ADS      FLAGWRD7                              
028999,000459: 
029000,000460: 36,2431           05375                           TC       CHECKMM                               #  IN P63 CASE, THROTTLE-UP IS ZOOMTIME
029001,000461: 36,2432           00077                           DEC      63         B-14                       #    AFTER NOMINAL IGNITION, NOT ACTUAL
029002,000462: 36,2433           12441                           TCF      IGNYET?                               
029003,000463: 36,2434           31421                           CA       ZOOMTIME                              
029004,000464: 36,2435           05243                           TC       TWIDDLE                               
029005,000465: 36,2436           02566                           ADRES    ZOOM                                  
029006,000466: 
029007,000467: 36,2437           05423                           TC       PHASCHNG                              
029008,000468: 36,2440           40033                           OCT      40033                                 
029009,000469: 
029010,000470: 36,2441           35013        IGNYET?            CAF      ASTNBIT                               #  CHECK ASTNFLAG:  HAS ASTRONAUT RESPONDED
029011,000471: 36,2442           70103                           MASK     FLAGWRD7                              #    TO OUR ENGINE ENABLE REQUEST?
029012,000472: 36,2443           00006                           EXTEND                                         
029013,000473: 36,2444           51430                           INDEX    WHICH                                 
029014,000474: 36,2445           10012                           BZF      12                                    #  BRANCH IF HE HAS NOT RESPONDED YET
029015,000475: 
029016,000476: 36,2446           44367        IGNITION           CS       PRIO30                                #  TURN ON THE ENGINE.
029017,000477: 36,2447           00006                           EXTEND                                         
029018,000478: 36,2450           02011                           RAND     DSALMOUT                              
029019,000479: 36,2451           65012                           AD       BIT13                                 
029020,000480: 36,2452           00006                           EXTEND                                         
029021,000481: 36,2453           01011                           WRITE    DSALMOUT                              
029022,000482: 36,2454           00006                           EXTEND                                         #  SET TEVENT FOR DOWNLINK
029023,000483: 36,2455           30025                           DCA      TIME2                                 
029024,000484: 36,2456           53355                           DXCH     TEVENT                                
029025,000485: 
029026,000486: 36,2457           00006                           EXTEND                                         #  UPDATE TIG USING TGO FROM S40.13
029027,000487: 36,2460           31474                           DCA      TGO                                   
029028,000488: 36,2461           53425                           DXCH     TIG                                   
029029,000489: 36,2462           00006                           EXTEND                                         
029030,000490: 36,2463           30025                           DCA      TIME2                                 
029031,000491: 36,2464           21425                           DAS      TIG                                   
029032,000492: 
029033,000493: 36,2465           51430                           INDEX    WHICH                                 
029034,000494: 36,2466           10013                           TCF      13                                    
029035,000495: 
029036,000496: 36,2467           00006        P63IGN             EXTEND                                         #  (13)     INITIATE BURN DISPLAYS
029037,000497: 36,2470           33120                           DCA      DSP2CADR                              
029038,000498: 36,2471           55175                           TS       DISPDEX                               #  ASSASSINATE CLOKTASK
029039,000499: 36,2472           53253                           DXCH     AVGEXIT                               
029040,000500: 
029041,000501: 36,2473           00006                           EXTEND                                         #  INITIALIZE TIG FOR P70 AND P71.
029042,000502: 36,2474           30025                           DCA      TIME2                                 
029043,000503: 36,2475           53425                           DXCH     TIG                                   
029044,000504: 
029045,000505: 36,2476           40105                           CS       FLAGWRD9                              #  SET FLAG FOR P70-P71
029046,000506: 36,2477           75016                           MASK     LETABBIT                              
029047,000507: 36,2500           26105                           ADS      FLAGWRD9                              
029048,000508: 
029049,000509: 36,2501           33123                           CA       BRAKQADR                              #  INITIALIZE WCHPHASE AND FLPASSO
029050,000510: 36,2502           55606                           TS       WCHPHASE                              
029051,000511: 36,2503           35025                           CA       TWO                                   
029052,000512: 36,2504           55607                           TS       FLPASS0                               
029053,000513: 
029054,000514: 36,2505           12521                           TCF      SETGIMBL                              
029055,000515: 
029056,000516: 36,2506  36,2506               P70IGN             =        P40IGN                                #  (13)
029057,000517: 36,2506           40101        P40IGN             CS       FLAGWRD5                              #  (13)
029058,000518: 36,2507           75013                           MASK     NOTHRBIT                              
029059,000519: 36,2510           00006                           EXTEND                                         
029060,000520: 36,2511           12521                           BZF      SETGIMBL                              
029061,000521: 36,2512           31421                           CA       ZOOMTIME                              #  WAITLIST FOR ZOOM (FLATOUT. ETC.)
029062,000522: 36,2513           05243                           TC       TWIDDLE                               
029063,000523: 36,2514           02566                           ADRES    ZOOM                                  
029064,000524: 
029065,000525: 36,2515           05403        P63IGN1            TC       2PHSCHNG                              
029066,000526: 36,2516           40033                           OCT      40033                                 #  3.3SPOT FOR ZOOM RESTART.
029067,000527: 36,2517           05014                           OCT      05014                                 #  TYPE C   RESTARTS HERE IMMEDIATELY
029068,000528: 36,2520           77777                           OCT      77777                                 
029069,000529: 
029070,000530: 36,2521           40075        SETGIMBL           CS       FLAGWRD1                              
029071,000531: 36,2522           75023                           MASK     GIMBFBIT                              
029072,000532: 36,2523           26075                           ADS      FLAGWRD1                              
029073,000533: 36,2524           12527                           TCF      P42IGN                                
029074,000534: 
029075,000535: 36,2525           35026        P12IGN             CA       ONE                                   #  (13)     KILL CLOKTASK
029076,000536: 36,2526           55175                           TS       DISPDEX                               
029077,000537: 
029078,000538: 36,2527  36,2527               P71IGN             =        P42IGN                                #  (13)
029079,000539: 36,2527           05566        P42IGN             TC       UPFLAG                                #  INSURE ENGONFLG IS SET.
029080,000540: 36,2530           00123                           ADRES    ENGONFLG                              
029081,000541: 36,2531           45017                           CS       DRIFTBIT                              #  ENSURE THAT POWERED-FLIGHT SWITCHING
029082,000542: 36,2532           71102                           MASK     DAPBOOLS                              #    CURVES ARE USED.
029083,000543: 36,2533           55102                           TS       DAPBOOLS                              
029084,000544: 36,2534           35016                           CAF      IMPULBIT                              #  EXAMINE IMPULSE SWITCH
029085,000545: 36,2535           70076                           MASK     FLAGWRD2                              
029086,000546: 36,2536           10000                           CCS      A                                     
029087,000547: 36,2537           13520                           TCF      IMPLBURN                              
029088,000548: 
029089,000549: 36,2540           05600        DVMONCON           TC       DOWNFLAG                              
029090,000550: 36,2541           00153                           ADRES    IGNFLAG                               #  CONNECT DVMON
029091,000551: 36,2542           05600                           TC       DOWNFLAG                              
029092,000552: 36,2543           00154                           ADRES    ASTNFLAG                              
029093,000553: 36,2544           05600                           TC       DOWNFLAG                              
029094,000554: 36,2545           00161                           ADRES    IDLEFLAG                              
029095,000555: 
029096,000556: 36,2546           05423                           TC       PHASCHNG                              
029097,000557: 36,2547           40054                           OCT      40054                                 
029098,000558: 
029099,000559: 36,2550           05271                           TC       FIXDELAY                              #  TURN ULLAGE OFF HALF A SECOND AFTER
029100,000560: 36,2551           00062                           DEC      50         B-14                       #  LIGHT UP.
029101,000561: 
029102,000562: 36,2552           02643        ULLAGOFF           TC       NOULLAGE                              
029103,000563: 
029104,000564: 36,2553           00006        WAITABIT           EXTEND                                         #  KILL GROUP 4
029105,000565: 36,2554           35030                           DCA      NEG0                                  
029106,000566: 36,2555           52761                           DXCH     -PHASE4                               
029107,000567: 
029108,000568: 36,2556           15331                           TCF      TASKOVER                              
029109,000569: 
029110,000570: 
029111,000571:                                                                                                  #                ****************************************
029112,000572: 
029113,000573: 36,2557           35076        TIGTASK            CAF      PRIO16                                #  TIGNOW MUST BE A JOB.
029114,000574: 36,2560           05142                           TC       NOVAC                                 
029115,000575: 36,2561  E7,1447                                  EBANK=   TRKMKCNT                              
029116,000576: 36,2561           03224 74067                     2CADR    TIGNOW                                
029117,000577: 36,2563           05423                           TC       PHASCHNG                              
029118,000578: 36,2564           00006                           OCT      6                                     #  KILL GROUP 6.
029119,000579: 
029120,000580: 36,2565           15331                           TCF      TASKOVER                              
029121,000581: 
029122,000582: 
029123,000583:                                                                                                  #                ****************************************
029124,000584: 
029125,000585: 36,2566           51430        ZOOM               INDEX    WHICH                                 
029126,000586: 36,2567           10014                           TCF      14                                    
029127,000587: 
029128,000588: 36,2570           00006        P63ZOOM            EXTEND                                         #  (4)   SET UP GUIDANCE.
029129,000589: 36,2571           33122                           DCA      LUNLANAD                              
029130,000590: 36,2572           53253                           DXCH     AVEGEXIT                              
029131,000591: 
029132,000592: 36,2573           05600                           TC       DOWNFLAG                              
029133,000593: 36,2574           00144                           ADRES    KILLROSE                              
029134,000594: 
029135,000595: 36,2575           35034                           CAF      THIRTEEN                              
029136,000596: 36,2576           05252                           TC       WAITLIST                              
029137,000597: 36,2577  E7,1430                                  EBANK=   WHICH                                 
029138,000598: 36,2577           03157 64067                     2CADR    ROSEN                                 
029139,000599: 
029140,000600: 36,2601  36,2601               P70ZOOM            =        P40ZOOM                               #  (4)
029141,000601: 36,2601           04737        P40ZOOM            TC       IBNKCALL                              #  (4) THROTTLE THE DPS TO MAXIMUM THRUST.
029142,000602: 36,2602           62364                           CADR     FLATOUT                               
029143,000603: 
029144,000604: 36,2603           05423                           TC       PHASCHNG                              
029145,000605: 36,2604           00003                           OCT      3                                     
029146,000606: 36,2605           15331                           TCF      TASKOVER                              
029147,000607: 
029148,000608: 
029149,000609:                                                                                                  #                ****************************************
029150,000610: 
029151,000611: 36,2606           51430        COMFAIL            INDEX    WHICH                                 
029152,000612: 36,2607           10015                           TCF      15                                    
029153,000613: 
029154,000614: 36,2610           05423        COMFAIL2           TC       PHASCHNG                              #  KILL ZOOM RESTART PROTECTION
029155,000615: 36,2611           00003                           OCT      00003                                 
029156,000616: 
029157,000617: 36,2612           00004                           INHINT                                         
029158,000618: 36,2613           06005                           TC       KILLTASK                              #  KILL ZOOM, IN CASE IT'S STILL TO COME
029159,000619: 36,2614           74566                           CADR     ZOOM                                  
029160,000620: 36,2615           04737                           TC       IBNKCALL                              #  COMMAND ENGINE OFF
029161,000621: 36,2616           75546                           CADR     ENGINOF1                              
029162,000622: 36,2617           02647                           TC       ONULLAGE                              
029163,000623: 36,2620           35024                           CAF      FOUR                                  #  RESET DVMON
029164,000624: 36,2621           55472                           TS       DVCNTR                                
029165,000625: 36,2622           44112                           CS       OCT24                                 
029166,000626: 36,2623           55424                           TS       TIG                                   
029167,000627: 36,2624           35026                           CAF      BIT1                                  
029168,000628: 36,2625           05243                           TC       TWIDDLE                               
029169,000629: 36,2626           02402                           ADRES    TIG-5                                 
029170,000630: 
029171,000631: 36,2627           05403                           TC       2PHSCHNG                              
029172,000632: 36,2630           00174                           OCT      00174                                 
029173,000633: 36,2631           10035                           OCT      10035                                 
029174,000634: 
029175,000635: 36,2632           00006                           EXTEND                                         
029176,000636: 36,2633           31253                           DCA      AVEGEXIT                              
029177,000637: 36,2634           52006                           DTCB                                           
029178,000638: 
029179,000639: 
029180,000640:                                                                                                  #                ****************************************
029181,000641:                                                                                                  #                SUBROUTINES OF THE IGNITION ROUTINE
029182,000642:                                                                                                  #                ****************************************
029183,000643: 
029184,000644: 36,2635           30002        INVFLAG            CA       Q                                     
029185,000645: 36,2636           05604                           TC       DEBIT                                 
029186,000646: 36,2637           40000                           COM                                            
029187,000647: 36,2640           00006                           EXTEND                                         
029188,000648: 36,2641           06001                           RXOR     LCHAN                                 
029189,000649: 36,2642           15573                           TCF      COMFLAG                               
029190,000650: 
029191,000651: 
029192,000652:                                                                                                  #                ****************************************
029193,000653: 
029194,000654: 36,2643           45021        NOULLAGE           CS       ULLAGER                               #  MUST BE CALLED IN A TASK OR UNDER INHINT
029195,000655: 36,2644           71102                           MASK     DAPBOOLS                              
029196,000656: 36,2645           55102                           TS       DAPBOOLS                              
029197,000657: 36,2646           00002                           TC       Q                                     
029198,000658: 
029199,000659: 
029200,000660:                                                                                                  #                ****************************************
029201,000661: 
029202,000662: 36,2647           41102        ONULLAGE           CS       DAPBOOLS                              #  TURN ON ULLAGE.  MUST BE CALLED IN
029203,000663: 36,2650           75021                           MASK     ULLAGER                               #  A TASK OR WHILE INHINTED.
029204,000664: 36,2651           27102                           ADS      DAPBOOLS                              
029205,000665: 36,2652           00002                           TC       Q                                     
029206,000666: 
029207,000667: 
029208,000668:                                                                                                  #                ****************************************
029209,000669: 
029210,000670: 
029211,000671: 36,2653           35030        STCLOK1            CA       ZERO                                  #  THIS ROUTINE STARTS THE COUNT-DOWN
029212,000672: 36,2654           55175        STCLOK2            TS       DISPDEX                               #    (CLOKTASK AND CLOKJOB).   SETTING
029213,000673: 36,2655           04704        STCLOK3            TC       MAKECADR                              #  SETTING DISPDEX POSITIVE KILLS IT.
029214,000674: 36,2656           55062                           TS       TBASE4                                #  RETURN SAVE (NOT FOR RESTARTS)
029215,000675: 36,2657           00006                           EXTEND                                         
029216,000676: 36,2660           31425                           DCA      TIG                                   
029217,000677: 36,2661           52155                           DXCH     MPAC                                  
029218,000678: 36,2662           00006                           EXTEND                                         
029219,000679: 36,2663           40025                           DCS      TIME2                                 
029220,000680: 36,2664           20155                           DAS      MPAC                                  #  HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
029221,000681: 36,2665           07231                           TC       TPAGREE                               #  POSITIVE, SINCE WE PASSED THE
029222,000682: 36,2666           35047                           CAF      1SEC                                  #    45 SECOND CHECK
029223,000683: 36,2667           54002                           TS       Q                                     
029224,000684: 36,2670           52155                           DXCH     MPAC                                  
029225,000685: 36,2671           74360                           MASK     LOW5                                  #  RESTRICT MAGNITUDE OF NUMBER IN A
029226,000686: 36,2672           00006                           EXTEND                                         
029227,000687: 36,2673           10002                           DV       Q                                     
029228,000688: 36,2674           30001                           CA       L                                     #  GET REMAINDER
029229,000689: 36,2675           65025                           AD       TWO                                   
029230,000690: 36,2676           00004                           INHINT                                         
029231,000691: 36,2677           05243                           TC       TWIDDLE                               
029232,000692: 36,2700           02707                           ADRES    CLOKTASK                              
029233,000693: 36,2701           05403                           TC       2PHSCHNG                              
029234,000694: 36,2702           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
029235,000695: 36,2703           05024                           OCT      05024                                 
029236,000696: 36,2704           13000                           OCT      13000                                 
029237,000697: 
029238,000698: 36,2705           31062                           CA       TBASE4                                
029239,000699: 36,2706           04677                           TC       BANKJUMP                              
029240,000700: 
029241,000701: 
029242,000702: 36,2707           40025        CLOKTASK           CS       TIME1                                 #  SET TBASE6 FOR GROUP 6 RESTART
029243,000703: 36,2710           55066                           TS       TBASE6                                
029244,000704: 
029245,000705: 36,2711           11175                           CCS      DISPDEX                               
029246,000706: 36,2712           12723                           TCF      KILLCLOK                              
029247,000707: 36,2713           12714                           NOOP                                           
029248,000708: 36,2714           37667                           CAF      PRIO27                                
029249,000709: 36,2715           05142                           TC       NOVAC                                 
029250,000710: 36,2716  E7,1426                                  EBANK=   TTOGO                                 
029251,000711: 36,2716           02727 74067                     2CADR    CLOKJOB                               
029252,000712: 
029253,000713: 
029254,000714: 36,2720           05271                           TC       FIXDELAY                              #  WAIT A SECOND BEFORE STARTING OVER
029255,000715: 36,2721           00144                           DEC      100        B-14                       
029256,000716: 36,2722           12707                           TCF      CLOKTASK                              
029257,000717: 
029258,000718: 36,2723           00006        KILLCLOK           EXTEND                                         #  KILL RESTART
029259,000719: 
029260,000720: 36,2724           35030                           DCA      NEG0                                  
029261,000721: 36,2725           52765                           DXCH     -PHASE6                               
029262,000722: 36,2726           15331                           TCF      TASKOVER                              
029263,000723: 
029264,000724: 
029265,000725: 36,2727           00006        CLOKJOB            EXTEND                                         
029266,000726: 36,2730           41425                           DCS      TIG                                   
029267,000727: 36,2731           53427                           DXCH     TTOGO                                 
029268,000728: 36,2732           00006                           EXTEND                                         
029269,000729: 36,2733           30025                           DCA      TIME2                                 
029270,000730: 36,2734           21427                           DAS      TTOGO                                 
029271,000731: 36,2735           00004                           INHINT                                         
029272,000732: 36,2736           11175                           CCS      DISPDEX                               #  IF DISPDEX HAS BEEN SET POSITIVE BY A
029273,000733: 36,2737           15225                           TCF      ENDOFJOB                              #  TASK OR A HIGHER PRIORITY JOB SINCE THE
029274,000734: 36,2740           15225                           TCF      ENDOFJOB                              #  LAST CLOKTASK, AVOID USING IT AS AN
029275,000735: 36,2741           40000                           COM                                            #  INDEX.
029276,000736: 36,2742           00003                           RELINT                                         #  *****  DISPDEX MUST NEVER BE -0  *****
029277,000737: 36,2743           50000                           INDEX    A                                     
029278,000738: 36,2744           12773                           TCF      DISPNOT    -1                         #  (-1 DUE TO EFFECT OF CCS)
029279,000739: 
029280,000740:                                                                                                  #  THIS DISPLAY IS CALLED VIA ASTNCLOK.
029281,000741: 36,2745           51430                 -27       INDEX    WHICH                                 #  IT IS PRIMARILY USED BY THE ASTRONAUT
029282,000742: 36,2746           30001                           CAF      1                                     #  TO RESET HIS EVENT TIMER TO AGREE WITH
029283,000743: 36,2747           04655                           TC       BANKCALL                              #  TIG.
029284,000744: 36,2750           20372                           CADR     REFLASH                               
029285,000745: 36,2751           14106                           TCF      GOTOPOOH                              
029286,000746: 36,2752           12777                           TCF      ASTNRETN                              
029287,000747: 36,2753           12745                           TCF      -6                                    
029288,000748: 
029289,000749: 36,2754     5022               CNTDNDEX           =        OCT20                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
029290,000750: 
029291,000751: 36,2754           51430                 -20       INDEX    WHICH                                 #  THIS DISPLAY COMES UP AT ONE SECOND
029292,000752: 36,2755           30000                           CAF      0                                     #  INTERVALS.  IT IS NORMALLY OPERATED
029293,000753: 36,2756           04655                           TC       BANKCALL                              #  BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
029294,000754: 36,2757           20400                           CADR     REGODSP                               #  REGODSP DOES ITS OWN TCF ENDOFJOB
029295,000755: 
029296,000756: 36,2760     5746               VB99DEX            =        OCT14                                 #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
029297,000757: 
029298,000758: 
029299,000759: 36,2760                        V99RECYC           EQUALS                                         
029300,000760: 
029301,000761: 36,2760           51430                 -14       INDEX    WHICH                                 #  THIS IS THE "PLEASE ENABLE ENGINE"
029302,000762: 36,2761           30000                           CAF      0                                     #  DISPLAY; IT IS INITIATED AT TIG-5 SEC.
029303,000763: 36,2762           04655                           TC       BANKCALL                              #  THE DISPLAY IS A V99NXX, WHERE XX IS THE
029304,000764: 36,2763           20544                           CADR     GOFLASHR                              #  NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
029305,000765: 36,2764           12775                           TCF      STOPCLOK                              #  TERMINATE  GOTOPOOH TURNS OFF ULLAGE.
029306,000766: 36,2765           13005                           TCF      *PROCEED                              
029307,000767: 36,2766           13011                           TCF      *ENTER                                
029308,000768: 36,2767           33131                           CAF      VB99CON                               
029309,000769: 36,2770           05556                           TC       LINUS                                 
029310,000770: 36,2771           15225                           TCF      ENDOFJOB                              
029311,000771: 
029312,000772: 36,2772     5025               BLANKDEX           =        TWO                                   #  NEGATIVE OF THIS IS PROPER FOR DISPDEX
029313,000773: 
029314,000774: 36,2772           04655                 -2        TC       BANKCALL                              #  BLANK DSKY.  THE DSKY IS BLANKED FOR
029315,000775: 36,2773           20371                           CADR     CLEANDSP                              #  5 SECONDS AT TIG-35 TO INDICATE THAT
029316,000776: 36,2774           15225        DISPNOT            TCF      ENDOFJOB                              #  AVERAGE G IS STARTING.
029317,000777: 
029318,000778: 
029319,000779: 36,2775           03040        STOPCLOK           TC       NULLCLOK                              #  STOP CLOKTASK & TURN OFF ULLAGE ON THE
029320,000780: 36,2776           14106                           TCF      GOTOPOOH                              #      WAY TO P00  (GOTOPOOH RELINTS)
029321,000781: 
029322,000782: 36,2777           35073        ASTNRETN           CAF      PRIO13                                
029323,000783: 36,3000           00004                           INHINT                                         
029324,000784: 36,3001           05155                           TC       FINDVAC                               
029325,000785: 36,3002  E7,1426                                  EBANK=   TTOGO                                 
029326,000786: 36,3002           03110 74067                     2CADR    GOBACK                                
029327,000787: 36,3004           15225                           TCF      ENDOFJOB                              
029328,000788: 
029329,000789: 
029330,000790: 36,3005           05566        *PROCEED           TC       UPFLAG                                
029331,000791: 36,3006           00154                           ADRES    ASTNFLAG                              
029332,000792: 36,3007           51430                           INDEX    WHICH                                 
029333,000793: 36,3010           10002                           TCF      2                                     
029334,000794: 
029335,000795: 
029336,000796: 36,3011           51430        *ENTER             INDEX    WHICH                                 
029337,000797: 36,3012           10003                           TCF      3                                     
029338,000798: 
029339,000799: 
029340,000800: 36,3013           34703        GOPOST             CAF      PRIO12                                #  (3)  MUST BE LOWER PRIORITY THAN CLOKJOB
029341,000801: 36,3014           05155                           TC       FINDVAC                               
029342,000802: 36,3015  E7,1426                                  EBANK=   TTOGO                                 
029343,000803: 36,3015           03206 74067                     2CADR    POSTBURN                              
029344,000804: 36,3017           03040                           TC       NULLCLOK                              
029345,000805: 36,3020           05423                           TC       PHASCHNG                              #  4.13 RESTART FOR POSTBURN
029346,000806: 36,3021           00134                           OCT      00134                                 
029347,000807: 
029348,000808: 36,3022           15225                           TCF      ENDOFJOB                              
029349,000809: 
029350,000810: 
029351,000811: 36,3023           40103        IGNITE             CS       FLAGWRD7                              #  (2)
029352,000812: 36,3024           75012                           MASK     IGNFLBIT                              
029353,000813: 36,3025           10000                           CCS      A                                     
029354,000814: 36,3026           13035                           TCF      IGNITE1                               
029355,000815: 36,3027           35026                           CAF      BIT1                                  
029356,000816: 36,3030           00004                           INHINT                                         
029357,000817: 
029358,000818: 36,3031           05243                           TC       TWIDDLE                               
029359,000819: 36,3032           02446                           ADRES    IGNITION                              
029360,000820: 
029361,000821: 36,3033           05423                           TC       PHASCHNG                              #  IMMEDIATE RESTART AT IGNITION.
029362,000822: 36,3034           00234                           OCT      00234                                 
029363,000823: 
029364,000824: 36,3035           45022        IGNITE1            CS       CNTDNDEX                              #  RESTORE OLD DISPLAY.
029365,000825: 36,3036           55175                           TS       DISPDEX                               
029366,000826: 
029367,000827: 36,3037           15225                           TCF      ENDOFJOB                              
029368,000828: 
029369,000829: 36,3040           00004        NULLCLOK           INHINT                                         
029370,000830: 36,3041           00006                           EXTEND                                         
029371,000831: 36,3042           23153                           QXCH     P40/RET                               
029372,000832: 36,3043           02643                           TC       NOULLAGE                              #  TURN OFF ULLAGE ...
029373,000833: 36,3044           06005                           TC       KILLTASK                              #     DON'T LET IT COME ON, EITHER ...
029374,000834: 36,3045           74376                           CADR     ULLGTASK                              
029375,000835: 36,3046           05423                           TC       PHASCHNG                              #           NOT EVEN IF THERE'S A RESTART.
029376,000836: 36,3047           00001                           OCT      1                                     
029377,000837: 36,3050           30005                           CA       Z                                     #  KILL CLOKTASK
029378,000838: 36,3051           55175                           TS       DISPDEX                               
029379,000839: 36,3052           01153                           TC       P40/RET                               
029380,000840: 
029381,000841: 36,3053           04704        GOASTCLK           TC       MAKECADR                              
029382,000842: 36,3054           55176                           TS       TEMPR60                               
029383,000843: 36,3055           35030                           CAF      ZERO                                  
029384,000844: 36,3056           55466                           TS       DVTOTAL                               
029385,000845: 36,3057           55467                           TS       DVTOTAL    +1                         
029386,000846: 36,3060           43130        ASTNCLOK           CS       ASTNDEX                               
029387,000847: 36,3061           04655                           TC       BANKCALL                              
029388,000848: 36,3062           74654                           CADR     STCLOK2                               
029389,000849: 36,3063           15225                           TCF      ENDOFJOB                              #  RETURN IN NEW JOB AND IN EBANK FIVE
029390,000850: 
029391,000851: 
029392,000852:                                                                                                  #                ****************************************
029393,000853: 
029394,000854: 36,3064           04704        P40AUTO            TC       MAKECADR                              #  HELLO THERE.
029395,000855: 36,3065           55176                           TS       TEMPR60                               #  FOR GENERALIZED RETURN TO OTHER BANKS.
029396,000856: 36,3066           04655        P40A/P             TC       BANKCALL                              #  SUBROUTINE TO CHECK PGNCS CONTROL
029397,000857: 36,3067           54271                           CADR     G+N,AUTO                              #  AND AUTO STABILIZATION MODES
029398,000858: 36,3070           10000                           CCS      A                                     #  +0  INDICATES IN PGNCS, IN AUTO
029399,000859: 36,3071           13103                           TCF      TURNITON                              #  + INDICATES NOT IN PGNCS AND/OR AUTO
029400,000860: 36,3072           35013                           CAF      APSFLBIT                              #  ARE WE ON THE DESCENT STAGE?
029401,000861: 36,3073           70075                           MASK     FLAGWRD1                              
029402,000862: 36,3074           10000                           CCS      A                                     
029403,000863: 36,3075           13110                           TCF      GOBACK                                #  RETURN
029404,000864: 36,3076           35022                           CAF      BIT5                                  #  YES, CHECK FOR AUTOTHROTTLE MODE
029405,000865: 36,3077           00006                           EXTEND                                         
029406,000866: 36,3100           02030                           RAND     CHAN30                                
029407,000867: 36,3101           00006                           EXTEND                                         
029408,000868: 36,3102           13110                           BZF      GOBACK                                #  IN AUTOTHROTTLE MODE -- RETURN
029409,000869: 36,3103           33762        TURNITON           CAF      P40A/PMD                              #  DISPLAY V50N25 R1=203 PLEASE PERFORM
029410,000870: 36,3104           04655                           TC       BANKCALL                              #  CHECKLIST 203 TURN ON PGNCS ETC.
029411,000871: 36,3105           20532                           CADR     GOPERF1                               
029412,000872: 36,3106           14106                           TCF      GOTOPOOH                              #  V34E  TERMINATE
029413,000873: 36,3107           13066                           TCF      P40A/P                                #  RECYCLE
029414,000874: 36,3110           35030        GOBACK             CAF      ZERO                                  
029415,000875: 36,3111           55175                           TS       DISPDEX                               
029416,000876: 36,3112           31176                           CA       TEMPR60                               
029417,000877: 36,3113           04677                           TC       BANKJUMP                              #  GOODBYE.  COME AGAIN SOON.
029418,000878: 
029419,000879: 
029420,000880: 36,3114                                           BANK     36                                    
029421,000881: 36,2000                                           SETLOC   P40S                                  
029422,000882: 
029423,000883: 36,2000                                           BANK                                           
029424,000884: 
029425,000885: 36,3114                                           COUNT*   $$/P40                                
029426,000886: 
029427,000887:                                                                                                  #                ****************************************
029428,000888:                                                                                                  #                CONSTANTS FOR THE IGNITION ROUTINE
029429,000889:                                                                                                  #                ****************************************
029430,000890: 
029431,000891: 36,3114  36,2070               SERVCADR           =        P63TABLE   +7                         
029432,000892: 
029433,000893: 36,3114           02016        P40ADRES           ADRES    P40TABLE                              
029434,000894: 
029435,000895: 36,3115           02030        P41ADRES           ADRES    P41TABLE   -5                         
029436,000896: 
029437,000897: 36,3116           02043        P42ADRES           ADRES    P42TABLE                              
029438,000898: 
029439,000899: 36,3117  E7,1606                                  EBANK=   WCHPHASE                              
029440,000900: 36,3117           03275 62067  DSP2CADR           2CADR    DISPEXIT                              
029441,000901: 
029442,000902: 
029443,000903: 36,3121  E7,1606                                  EBANK=   WCHPHASE                              
029444,000904: 36,3121           02500 62067  LUNLANAD           2CADR    LUNLAND                               
029445,000905: 
029446,000906: 36,3123     4106               ?                  =        GOTOPOOH                              
029447,000907: 
029448,000908: 36,3123           02427        BRAKQADR           REMADR   BRAKQUAD                              
029449,000909: 
029450,000910: 36,3124           00000 05656  D29.9SEC           2DEC     2990       B-28                       
029451,000911: 
029452,000912: 
029453,000913: 36,3126           04672        S24.9SEC           DEC      2490       B-14                       
029454,000914: 
029455,000915: 36,3127           00752        4.9SEC             DEC      490        B-14                       
029456,000916: 
029457,000917: 36,3130           00027        ASTNDEX            OCT      00027                                 #  INDEX FOR CLOKTASK
029458,000918: 
029459,000919: 36,3131     5022               OCT20              =        BIT5                                  
029460,000920: 
029461,000921: 36,3131           24020        VB99CON            OCT      24020                                 #  BITS 5, 12, AND 14
029462,000922: 
029463,000923: 36,3132           01505        OCT1505            OCT      1505                                  
029464,000924: 
029465,000925: 
029466,000926:                                                                                                  #           KILLTASK
029467,000927:                                                                                                  #  MOD NO: NEW PROGRAM
029468,000928:                                                                                                  #  MOD BY: COVELLI
029469,000929: 
029470,000930: 
029471,000931:                                                                                                  #  FUNCTIONAL DESCRIPTION:
029472,000932: 
029473,000933:                                                                                                  #     KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
029474,000934:                                                                                                  #  WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
029475,000935:                                                                                                  #  FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
029476,000936:                                                                                                  #  MUST BE CALLED IN INTERRUPT OR WITH INTERRUPT INHIBITED.
029477,000937: 
029478,000938:                                                                                                  #  CALLING SEQUENCE:
029479,000939:                                                                                                  #                                          L-1     (INHINT)
029480,000940:                                                                                                  #                                          L        TC     KILLTASK       IN FIXED-FIXED
029481,000941:                                                                                                  #                                          L+1      CADR   ????????       CADR (NOT 2CADR) OF TASK TO BE REMOVED.
029482,000942:                                                                                                  #                                          L+2      (RELINT)              RETURN
029483,000943: 
029484,000944:                                                                                                  #  EXIT MODE:  AT L+2 OF CALLING SEQUENCE.
029485,000945: 
029486,000946:                                                                                                  #  ERASABLE INITIALIZATION=  NONE.
029487,000947: 
029488,000948:                                                                                                  #  OUTPUT:  2CADR OF NULLTASK IN LST2
029489,000949: 
029490,000950:                                                                                                  #  DEBRIS:  ITEMP1 - ITEMP4, A,L,Q.
029491,000951: 
029492,000952: 36,3133  E3,1410                                  EBANK=   LST2                                  
029493,000953:    6005                                           BLOCK    3                                     #  KILLTASK MUST BE IN FIXED-FIXED.
029494,000954:    6000                                           SETLOC   FFTAG6                                
029495,000955:    6000                                           BANK                                           
029496,000956:    6005                                           COUNT*   $$/KILL                               
029497,000957:    6005           36013        KILLTASK           CA       KILLBB                                
029498,000958:    6006           22000                           LXCH     A                                     
029499,000959:    6007           50002                           INDEX    Q                                     
029500,000960:    6010           30000                           CA       0                                     #  GET CADR.
029501,000961:    6011           22006                           LXCH     BBANK                                 
029502,000962:    6012           12205                           TCF      KILLTSK2                              #  CONTINUE IN SWITCHED FIXED
029503,000963: 
029504,000964:    6013  E3,1410                                  EBANK=   LST2                                  
029505,000965:    6013           56063        KILLBB             BBCON    KILLTSK2                              
029506,000966: 
029507,000967: 
029508,000968: 
029509,000969: 27,2205                                           BANK     27                                    
029510,000970: 
029511,000971: 27,2000                                           SETLOC   P40S1                                 
029512,000972: 27,2000                                           BANK                                           
029513,000973: 27,2205                                           COUNT*   $$/KILL                               
029514,000974: 
029515,000975: 27,2205           22062        KILLTSK2           LXCH     ITEMP2                                #  SAVE CALLER'S BBANK
029516,000976: 
029517,000977: 27,2206           24002                           INCR     Q                                     
029518,000978: 27,2207           00006                           EXTEND                                         
029519,000979: 27,2210           22061                           QXCH     ITEMP1                                #  RETURN 2CADR IN ITEMP1,ITEMP2
029520,000980: 
029521,000981: 27,2211           54063                           TS       ITEMP3                                #  CADR IS IN A
029522,000982: 27,2212           75062                           MASK     LOW10                                 
029523,000983: 27,2213           65014                           AD       BIT11                                 
029524,000984: 27,2214           54064                           TS       ITEMP4                                #  GENADR OF TASK
029525,000985: 
029526,000986: 27,2215           45062                           CS       LOW10                                 
029527,000987: 27,2216           70063                           MASK     ITEMP3                                
029528,000988: 27,2217           54063                           TS       ITEMP3                                #  FBANK OF TASK
029529,000989: 
029530,000990: 27,2220           22007                           ZL                                             
029531,000991: 27,2221           50001        ADRSCAN            INDEX    L                                     
029532,000992: 27,2222           41410                           CS       LST2                                  
029533,000993: 27,2223           60064                           AD       ITEMP4                                #  COMPARE GENADRS
029534,000994: 27,2224           00006                           EXTEND                                         
029535,000995: 27,2225           12237                           BZF      TSTFBANK                              #  IF THEY MATCH, COMPARE FBANKS
029536,000996: 27,2226           45022        LETITLIV           CS       LSTLIM                                
029537,000997: 27,2227           60001                           AD       L                                     
029538,000998: 27,2230           00006                           EXTEND                                         #  ARE WE DONE?
029539,000999: 27,2231           12235                           BZF      DEAD                                  #  YES - DONE, SO RETURN
029540,001000: 27,2232           24001                           INCR     L                                     
029541,001001: 27,2233           24001                           INCR     L                                     
029542,001002: 27,2234           12221                           TCF      ADRSCAN                               #  CONTINUE LOOP.
029543,001003: 
029544,001004: 27,2235           52062        DEAD               DXCH     ITEMP1                                
029545,001005: 27,2236           52006                           DTCB                                           
029546,001006: 
029547,001007: 27,2237           45062        TSTFBANK           CS       LOW10                                 
029548,001008: 27,2240           50001                           INDEX    L                                     
029549,001009: 27,2241           71411                           MASK     LST2       +1                         #  COMPARE FBANKS ONLY.
029550,001010: 27,2242           00006                           EXTEND                                         
029551,001011: 27,2243           60063                           SU       ITEMP3                                
029552,001012: 27,2244           00006                           EXTEND                                         
029553,001013: 27,2245           12247                           BZF      KILLDEAD                              #  MATCH - KILL IT.
029554,001014: 27,2246           12226                           TCF      LETITLIV                              #  NO MATCH - CONTINUE.
029555,001015: 
029556,001016: 27,2247           34365        KILLDEAD           CA       TCTSKOVR                              
029557,001017: 27,2250           50001                           INDEX    L                                     
029558,001018: 27,2251           55410                           TS       LST2                                  #  REMOVE TASK BY INSERTING TASKOVER
029559,001019: 27,2252           12235                           TCF      DEAD                                  
029560,001020: 
029561,001021: 27,2253     5022               LSTLIM             EQUALS   BIT5                                  #  DEC 16

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