Source Code

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

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

028861,000002:                                                                                                  ## Copyright:   Public domain.
028862,000003:                                                                                                  ## Filename:    MP_3_-_SUBORBITAL_ABORT.agc
028863,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
028864,000005:                                                                                                  ##              It is part of an early development version of the software
028865,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
028866,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
028867,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
028868,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
028869,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
028870,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
028871,000012:                                                                                                  ##              that the code format has been changed to conform to the
028872,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
028873,000014:                                                                                                  ##              original YUL assembler.
028874,000015:                                                                                                  ## Reference:   pp. 644-653
028875,000016:                                                                                                  ## Assembler:   yaYUL
028876,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028877,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028878,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
028879,000020:                                                                                                  ##              2017-06-14 RSB  Transcribed.  Note that while the comments (date, 
028880,000021:                                                                                                  ##                              mod no, mod by, assembly revision) identify this
028881,000022:                                                                                                  ##                              code as being identical to that in Sunburst 120,
028882,000023:                                                                                                  ##                              in reality it has many differences.
028883,000024:                                                                                                  ##              2017-06-15 HG   Fix operand BIT2 -> BIT4
028884,000025:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
028885,000026:                                                                                                  ##                              octopus/ProoferComments.
028886,000027: 

Page 644

028888,000029: 25,2000                                           BANK     25                                    
028889,000030: 25,2000  E4,1566                                  EBANK=   TDEC                                  
028890,000031: 
028891,000032: 
028892,000033: 
028893,000034:                                                                                                  #  PROGRAM DESCRIPTION- MISSION PHASE 3 - SUBORBITAL ABORT                 DATE- 28 OCT 66
028894,000035:                                                                                                  #  MOD NO- 0                                                               LOG SECTION- MP 3 - SUBORBITAL ABORT
028895,000036:                                                                                                  #  MOD BY- GILBERT                                                         ASSEMBLY- SUNBURST REVISION 17
028896,000037: 
028897,000038:                                                                                                  #  FUNCTIONAL DESCRIPTION
028898,000039:                                                                                                  #           IN THE FIRST 10 SECONDS OF THIS PHASE, THE GROUND IS CAUSING THE NOSECONE TO BE JETTISONED AND THE SLA
028899,000040:                                                                                                  #  PANELS TO BE DEPLOYED. 10 SECONDS AFTER RECEIPT OF THE ABORT COMMAND, MP3 CHECKS TUMBLING AND PROCEEDS ONLY
028900,000041:                                                                                                  #  WHEN THE INDICATED TUMBLING RATES ARE LESS THAN 3 DEGREES PER SECOND. MP3 THEN STARTS +X TRANSLATION AND
028901,000042:                                                                                                  #  COMMANDS SIVB/LEM SEPARATION. 13 SECONDS AFTER SEPARATION THE DESCENT ENGINE IS TURNED ON FOR 5 SECONDS, THEN
028902,000043:                                                                                                  #  IGNITED AGAIN AFTER A 5 SECOND COAST AND LEFT ON THROUGH THE ABORT STAGE COMMAND WHICH IS SENT/RECEIVED 31
028903,000044:                                                                                                  #  SECONDS LATER. THE APS ENGINE IS TURNED OFF 5 SECONDS AFTER ABORT STAGE, THEN IGNITED AGAIN AFTER A 30 SECOND
028904,000045:                                                                                                  #  COAST FOR A FINAL 60 SECOND BURN. IMU COMPENSATION CONTINUES THROUGHOUT THIS MISSION PHASE.
028905,000046: 
028906,000047:                                                                                                  #  CALLING SEQUENCE
028907,000048:                                                                                                  #      SUBORBITAL ABORT IS STARTED AT THE DISCRETION OF THE GROUND IN THE EVENT OF AN ABORT DURING THE EARLIER PART
028908,000049:                                                                                                  #  OF BOOST. KEY CODE 23 IS SENT VIA UPLINK.
028909,000050: 
028910,000051:                                                                                                  #  SUBROUTINES CALLED
028911,000052:                                                                                                  #     NEWMODEX, WAITLIST, FIXDELAY, 1LMP, 2LMP, 1LMP+DT, 2LMP+DT, FLAG1DWN, ENGINEON, ENGINOFF, ENGINOF1, PREREAD,
028912,000053:                                                                                                  #  READACCS, SERVICER, AVERAGEG.
028913,000054: 
028914,000055:                                                                                                  #  NORMAL EXIT MODES
028915,000056:                                                                                                  #      TASKOVER.
028916,000057: 
028917,000058:                                                                                                  #  ALARM OR ABORT EXIT MODES
028918,000059:                                                                                                  #      MAJOR MODE 71.
028919,000060: 
028920,000061:                                                                                                  #  INPUT
028921,000062:                                                                                                  #      DVSELECT SET FOR READACCS AND SERVICER
028922,000063: 
028923,000064:                                                                                                  #  OUTPUT
028924,000065:                                                                                                  #      ''LAST RITES''
028925,000066: 
028926,000067:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
028927,000068:                                                                                                  #      KEY CODE 23 SENT VIA UPLINK.
028928,000069: 
028929,000070:                                                                                                  #  DEBRIS
028930,000071:                                                                                                  #      CENTRALS - A,L,Q
028931,000072:                                                                                                  #      OTHER    - ERASABLES IN SUBROUTINES USED
028932,000073: 

Page 645

028934,000075: 25,2000           04105        MP03JOB            TC       NEWMODEX                              #  DISPLAY MAJOR MODE 71
028935,000076: 25,2001           00071                           OCT      71                                    
028936,000077: 
028937,000078: 25,2002           04147                           TC       PHASCHNG                              
028938,000079: 25,2003           47012                           OCT      47012                                 
028939,000080: 25,2004           00001                           DEC      1          B-14                       
028940,000081: 25,2005  E4,1566                                  EBANK=   TDEC                                  
028941,000082: 25,2005           02015 52004                     2CADR    SBORB1                                
028942,000083: 
028943,000084: 25,2007           00004                           INHINT                                         
028944,000085: 25,2010           37755                           CAF      ONE                                   #  10 MS. - CONTINUE UNDER WAITLIST CONTROL
028945,000086: 25,2011           05701                           TC       WAITLIST                              
028946,000087: 25,2012  E4,1566                                  EBANK=   TDEC                                  
028947,000088: 25,2012           02015 52004                     2CADR    SBORB1                                
028948,000089: 
028949,000090: 25,2014           15605                           TCF      ENDOFJOB                              #  AND RELINT
028950,000091: 
028951,000092: 25,2015           04147        SBORB1             TC       PHASCHNG                              
028952,000093: 25,2016           05012                           OCT      05012                                 
028953,000094: 25,2017           77777                           OCT      77777                                 
028954,000095: 
028955,000096: 25,2020           37761                           CAF      ZERO                                  #  INSURE RCS JETS OFF
028956,000097: 25,2021           00006                           EXTEND                                         
028957,000098: 25,2022           01005                           WRITE    5                                     
028958,000099: 
028959,000100: 25,2023           04147                           TC       PHASCHNG                              
028960,000101: 25,2024           47012                           OCT      47012                                 
028961,000102: 25,2025           00144                           DEC      100        B-14                       
028962,000103: 25,2026  E4,1566                                  EBANK=   TDEC                                  
028963,000104: 25,2026           02032 52004                     2CADR    SBORB2                                
028964,000105: 
028965,000106: 25,2030           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
028966,000107: 25,2031           00144                           DEC      100        B-14                       
028967,000108: 
028968,000109: 25,2032           05106        SBORB2             TC       2LMP+DT                               
028969,000110: 25,2033           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES, SYS. A - OPEN **
028970,000111: 25,2034           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES, SYS. B - OPEN **
028971,000112: 25,2035           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
028972,000113: 
028973,000114: 25,2036           05114                           TC       1LMP+DT                               
028974,000115: 25,2037           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION - ON *
028975,000116: 25,2040           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
028976,000117: 
028977,000118: 25,2041           05106                           TC       2LMP+DT                               
028978,000119: 25,2042           00275                           DEC      189        B-14                       #  RESET **
028979,000120: 25,2043           00277                           DEC      191        B-14                       #  RESET **
028980,000121: 25,2044           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
028981,000122: 
028982,000123: 25,2045           05114                           TC       1LMP+DT                               
028983,000124: 25,2046           00006                           DEC      6          B-14                       #  RCS PRESSURIZE - FIRE **

Page 646

028985,000126: 25,2047           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
028986,000127: 
028987,000128: 25,2050           05114                           TC       1LMP+DT                               
028988,000129: 25,2051           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
028989,000130: 25,2052           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
028990,000131: 
028991,000132: 25,2053           05114                           TC       1LMP+DT                               
028992,000133: 25,2054           00007                           DEC      7          B-14                       #  RESET **
028993,000134: 25,2055           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
028994,000135: 
028995,000136: 25,2056           40075        TUMBCHK            CS       FLAGWRD1                              #  IS VEHICLE RATE LESS THAN 3 DEG/SEC
028996,000137: 25,2057           77741                           MASK     BIT13                                 
028997,000138: 25,2060           10000                           CCS      A                                     
028998,000139: 25,2061           12065                           TCF      TUMB1                                 #  YES
028999,000140: 
029000,000141: 25,2062           05717                           TC       FIXDELAY                              #  WAIT .5 SECONDS
029001,000142: 25,2063           00062                           DEC      50         B-14                       
029002,000143: 
029003,000144: 25,2064           12056                           TCF      TUMBCHK                               
029004,000145: 
029005,000146: 25,2065           04147        TUMB1              TC       PHASCHNG                              
029006,000147: 25,2066           05012                           OCT      05012                                 
029007,000148: 25,2067           77777                           OCT      77777                                 
029008,000149: 
029009,000150: 25,2070           06036                           TC       FLAG1DWN                              #  TERMINATE TUMBLE MONITOR
029010,000151: 25,2071           20000                           OCT      20000                                 
029011,000152: 
029012,000153: 25,2072           06045                           TC       FLAG2DWN                              #  TERMINATE ABORT COMMAND MONITOR
029013,000154: 25,2073           00400                           OCT      00400                                 
029014,000155: 
029015,000156: 25,2074           32766                           CAF      JETS+X                                #  COMMAND +X TRANSLATION - ON (4 JET)
029016,000157: 25,2075           00006                           EXTEND                                         
029017,000158: 25,2076           01005                           WRITE    5                                     
029018,000159: 25,2077           05307                           TC       IBNKCALL                              
029019,000160: 25,2100           34024                           CADR     ULLAGE                                #  USE LATER
029020,000161: 
029021,000162: 25,2101           05114                           TC       1LMP+DT                               
029022,000163: 25,2102           00072                           DEC      58         B-14                       #  LEM/S4B SEPARATE ARM - ON *
029023,000164: 
029024,000165: 25,2103           00062                           DEC      50         B-14                       #  WAIT 500 MILLISECONDS
029025,000166: 
029026,000167: 25,2104           40077                           CS       DAPBOOLS                              #  ENABLE DAP
029027,000168: 25,2105           77743                           MASK     GODAPGO                               
029028,000169: 25,2106           26077                           ADS      DAPBOOLS                              
029029,000170: 
029030,000171: 25,2107           05307                           TC       IBNKCALL                              #  DEADBAND SELECT - MAX
029031,000172: 25,2110           34012                           CADR     SETMAXDB                              
029032,000173: 
029033,000174: 25,2111           05717                           TC       FIXDELAY                              #  WAIT 500 MILLISECONDS
029034,000175: 25,2112           00062                           DEC      50         B-14                       

Page 647

029036,000177: 
029037,000178: 25,2113           05307                           TC       IBNKCALL                              #  GET VEHICLE RATE
029038,000179: 25,2114           34034                           CADR     SETRATE                               #  HOLD VEHICLE ATTITUDE RATE
029039,000180: 
029040,000181: 25,2115           05106                           TC       2LMP+DT                               
029041,000182: 25,2116           00132                           DEC      90         B-14                       #  LEM/S4B SEPARATE - COMMAND **
029042,000183: 25,2117           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION - ON *
029043,000184: 25,2120           00012                           DEC      10         B-14                       #  WAIT 100 MILLISECONDS
029044,000185: 
029045,000186: 25,2121           05307                           TC       IBNKCALL                              #  DEADBAND SELECT - MIN
029046,000187: 25,2122           34000                           CADR     SETMINDB                              
029047,000188: 
029048,000189: 25,2123  E5,1540                                  EBANK=   LEMMASS1                              
029049,000190: 25,2123           35677                           CAF      EBANK5                                
029050,000191: 25,2124           54003                           TS       EBANK                                 
029051,000192: 
029052,000193: 25,2125           00006                           EXTEND                                         
029053,000194: 25,2126           31541                           DCA      LEMMASS1                              
029054,000195: 25,2127           53333                           DXCH     MASS                                  
029055,000196: 
029056,000197: 25,2130           37761                           CAF      ZERO                                  
029057,000198: 25,2131           55551                           TS       DELAREA                               
029058,000199: 25,2132           55552                           TS       DELAREA    +1                         
029059,000200: 
029060,000201: 25,2133  E4,1566                                  EBANK=   TDEC                                  
029061,000202: 25,2133           37743                           CAF      EBANK4                                
029062,000203: 25,2134           54003                           TS       EBANK                                 
029063,000204: 
029064,000205: 25,2135           05717                           TC       FIXDELAY                              #  WAIT 900 MILLISECONDS
029065,000206: 25,2136           00132                           DEC      90         B-14                       
029066,000207: 
029067,000208: 25,2137           06074                           TC       ENGINOF1                              #  INSURE THAT ENGINE IS OFF
029068,000209: 
029069,000210: 25,2140           05106                           TC       2LMP+DT                               
029070,000211: 25,2141           00073                           DEC      59         B-14                       #  LEM/S4B SEPARATE ARM - OFF *
029071,000212: 25,2142           00226                           DEC      150        B-14                       #  ENGINE SELECT - DESC ARM *
029072,000213: 25,2143           00001                           DEC      1          B-14                       #  WAIT 10 MILLISECONDS
029073,000214: 
029074,000215: 25,2144           37744                           CAF      BIT10                                 #  START ABORT STAGE DISCRETE MONITOR
029075,000216: 25,2145           05701                           TC       WAITLIST                              
029076,000217: 25,2146  E4,1566                                  EBANK=   TDEC                                  
029077,000218: 25,2146           02415 52004                     2CADR    ABTSTGDM                              
029078,000219: 
029079,000220: 25,2150           04127                           TC       2PHSCHNG                              
029080,000221: 25,2151           40072                           OCT      40072                                 
029081,000222: 
029082,000223: 25,2152           47014                           OCT      47014                                 
029083,000224: 25,2153           01000                           DEC      512        B-14                       
029084,000225: 25,2154  E4,1566                                  EBANK=   TDEC                                  
029085,000226: 25,2154           02415 52004                     2CADR    ABTSTGDM                              
029086,000227: 
029087,000228: 25,2156           05307        SBORBA             TC       IBNKCALL                              #  DEADBAND SELECT - MIN

Page 648

029089,000230: 25,2157           34000                           CADR     SETMINDB                              
029090,000231: 
029091,000232: 25,2160           05114                           TC       1LMP+DT                               
029092,000233: 25,2161           00126                           DEC      86         B-14                       #  MANUAL THROTTLE - ON (10 PC) *
029093,000234: 25,2162           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029094,000235: 
029095,000236: 25,2163           05114                           TC       1LMP+DT                               
029096,000237: 25,2164           00133                           DEC      91         B-14                       #  RESET **
029097,000238: 25,2165           01130                           DEC      600        B-14                       #  WAIT 6 SECONDS
029098,000239: 
029099,000240: 25,2166           05307                           TC       IBNKCALL                              #  HOLD LEM ATTITUDE
029100,000241: 25,2167           34057                           CADR     STOPRATE                              
029101,000242: 25,2170           04147                           TC       PHASCHNG                              
029102,000243: 25,2171           47012                           OCT      47012                                 
029103,000244: 25,2172           00620                           DEC      400        B-14                       
029104,000245: 25,2173  E4,1566                                  EBANK=   TDEC                                  
029105,000246: 25,2173           02177 52004                     2CADR    SBORB3                                
029106,000247: 
029107,000248: 25,2175           05717                           TC       FIXDELAY                              #  WAIT 4 SECONDS
029108,000249: 25,2176           00620                           DEC      400        B-14                       
029109,000250: 
029110,000251: 25,2177           05114        SBORB3             TC       1LMP+DT                               
029111,000252: 25,2200           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY - FIRE **
029112,000253: 25,2201           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029113,000254: 
029114,000255: 25,2202           06054                           TC       ENGINEON                              #  COMMAND ENGINE - ON
029115,000256: 
029116,000257: 25,2203           04147                           TC       PHASCHNG                              
029117,000258: 25,2204           47012                           OCT      47012                                 
029118,000259: 25,2205           00144                           DEC      100        B-14                       
029119,000260: 25,2206  E4,1566                                  EBANK=   TDEC                                  
029120,000261: 25,2206           02212 52004                     2CADR    SBORB4                                
029121,000262: 
029122,000263: 25,2210           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
029123,000264: 25,2211           00144                           DEC      100        B-14                       
029124,000265: 
029125,000266: 25,2212           05106        SBORB4             TC       2LMP+DT                               
029126,000267: 25,2213           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
029127,000268: 25,2214           00011                           DEC      9          B-14                       #  RESET **
029128,000269: 25,2215           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029129,000270: 
029130,000271: 25,2216           06071                           TC       ENGINOFF                              #  COMMAND ENGINE - OFF
029131,000272: 
029132,000273: 25,2217           04147                           TC       PHASCHNG                              
029133,000274: 25,2220           47012                           OCT      47012                                 
029134,000275: 25,2221           00764                           DEC      500        B-14                       
029135,000276: 25,2222  E4,1566                                  EBANK=   TDEC                                  
029136,000277: 25,2222           02226 52004                     2CADR    SBORB5                                
029137,000278: 
029138,000279: 25,2224           05717                           TC       FIXDELAY                              #  WAIT 5 SECONDS

Page 649

029140,000281: 25,2225           00764                           DEC      500        B-14                       
029141,000282: 
029142,000283: 25,2226           06054        SBORB5             TC       ENGINEON                              #  COMMAND ENGINE - ON
029143,000284: 
029144,000285: 25,2227           04147                           TC       PHASCHNG                              
029145,000286: 25,2230           47012                           OCT      47012                                 
029146,000287: 25,2231           00310                           DEC      200        B-14                       
029147,000288: 25,2232  E4,1566                                  EBANK=   TDEC                                  
029148,000289: 25,2232           02236 52004                     2CADR    SBORB6                                
029149,000290: 
029150,000291: 25,2234           05717                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029151,000292: 25,2235           00310                           DEC      200        B-14                       
029152,000293: 
029153,000294: 25,2236           05307        SBORB6             TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
029154,000295: 25,2237           34030                           CADR     NOULLAGE                              
029155,000296: 
029156,000297: 25,2240           04147                           TC       PHASCHNG                              
029157,000298: 25,2241           47012                           OCT      47012                                 
029158,000299: 25,2242           03554                           DEC      1900       B-14                       
029159,000300: 25,2243  E4,1566                                  EBANK=   TDEC                                  
029160,000301: 25,2243           02247 52004                     2CADR    SBORB7                                
029161,000302: 
029162,000303: 25,2245           05717                           TC       FIXDELAY                              #  WAIT 19 SECONDS
029163,000304: 25,2246           03554                           DEC      1900       B-14                       
029164,000305: 
029165,000306: 25,2247           05114        SBORB7             TC       1LMP+DT                               
029166,000307: 25,2250           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN **
029167,000308: 25,2251           00310                           DEC      200        B-14                       #  WAIT 2 SECONDS
029168,000309: 
029169,000310: 25,2252           05114                           TC       1LMP+DT                               
029170,000311: 25,2253           00337                           DEC      223        B-14                       #  RESET **
029171,000312: 25,2254           00454                           DEC      300        B-14                       #  WAIT 3 SECONDS
029172,000313: 
029173,000314: 25,2255           35226                           CAF      PRIO30                                #  THRUST REQUEST DURING JOB
029174,000315: 25,2256           05534                           TC       FINDVAC                               
029175,000316: 25,2257  E5,1557                                  EBANK=   ETHROT                                
029176,000317: 25,2257           02443 52005                     2CADR    TRST90PC                              
029177,000318: 
029178,000319: 25,2261           04127                           TC       2PHSCHNG                              
029179,000320: 25,2262           40112                           OCT      40112                                 
029180,000321: 25,2263           07023                           OCT      07023                                 
029181,000322: 25,2264           30000                           OCT      30000                                 
029182,000323: 25,2265  E5,1557                                  EBANK=   ETHROT                                
029183,000324: 25,2265           02443 52005                     2CADR    TRST90PC                              
029184,000325: 
029185,000326: 25,2267           05717                           TC       FIXDELAY                              #  WAIT 4 SECONDS
029186,000327: 25,2270           00620                           DEC      400        B-14                       
029187,000328: 
029188,000329: 25,2271           05114        SBORB8             TC       1LMP+DT                               
029189,000330: 25,2272           00026                           DEC      22         B-14                       #  ABORT STAGE - ARM *

Page 650

029191,000332: 25,2273           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029192,000333: 
029193,000334: 25,2274           05114                           TC       1LMP+DT                               
029194,000335: 25,2275           00046                           DEC      38         B-14                       #  ABORT STAGE - COMMAND *
029195,000336: 25,2276           00001                           DEC      1          B-14                       #  WAIT 10 MS
029196,000337: 
029197,000338: 25,2277           04147                           TC       PHASCHNG                              
029198,000339: 25,2300           00002                           OCT      00002                                 
029199,000340: 
029200,000341: 25,2301           15745                           TCF      TASKOVER                              #  ABORT STAGE DISCRETE MONITOR RUNNING
029201,000342: 
029202,000343: 
029203,000344: 25,2302           00006        SBORBB             EXTEND                                         
029204,000345: 25,2303           32462                           DCA      ENDJOB2C                              
029205,000346: 25,2304           52376                           DXCH     FLUSHREG                              
029206,000347: 
029207,000348: 25,2305           04147                           TC       PHASCHNG                              
029208,000349: 25,2306           47012                           OCT      47012                                 
029209,000350: 25,2307           00144                           DEC      100        B-14                       
029210,000351: 25,2310  E4,1566                                  EBANK=   TDEC                                  
029211,000352: 25,2310           02323 52004                     2CADR    SBORB9                                
029212,000353: 
029213,000354: 25,2312  E5,1542                                  EBANK=   LEMMASS2                              
029214,000355: 25,2312           35677                           CAF      EBANK5                                
029215,000356: 25,2313           54003                           TS       EBANK                                 
029216,000357: 
029217,000358: 25,2314           00006                           EXTEND                                         
029218,000359: 25,2315           31543                           DCA      LEMMASS2                              
029219,000360: 25,2316           53333                           DXCH     MASS                                  
029220,000361: 
029221,000362: 25,2317  E4,1566                                  EBANK=   TDEC                                  
029222,000363: 25,2317           37743                           CAF      EBANK4                                
029223,000364: 25,2320           54003                           TS       EBANK                                 
029224,000365: 
029225,000366: 25,2321           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
029226,000367: 25,2322           00144                           DEC      100        B-14                       
029227,000368: 
029228,000369: 25,2323           05114        SBORB9             TC       1LMP+DT                               
029229,000370: 25,2324           00227                           DEC      151        B-14                       #  ENGINE SELECT - DESC ARM OFF *
029230,000371: 25,2325           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029231,000372: 
029232,000373: 25,2326           06071                           TC       ENGINOFF                              #  COMMAND ENGINE - OFF
029233,000374: 
029234,000375: 25,2327           04147                           TC       PHASCHNG                              
029235,000376: 25,2330           47012                           OCT      47012                                 
029236,000377: 25,2331           00144                           DEC      100        B-14                       
029237,000378: 25,2332  E4,1566                                  EBANK=   TDEC                                  
029238,000379: 25,2332           02336 52004                     2CADR    SBORB10                               

Page 651

029240,000381: 
029241,000382: 25,2334           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
029242,000383: 25,2335           00144                           DEC      100        B-14                       
029243,000384: 
029244,000385: 25,2336           05114        SBORB10            TC       1LMP+DT                               
029245,000386: 25,2337           00047                           DEC      39         B-14                       #  ABORT STAGE - COMMAND RESET *
029246,000387: 25,2340           05214                           DEC      2700       B-14                       #  WAIT 27 SECONDS
029247,000388: 
029248,000389: 25,2341           05307                           TC       IBNKCALL                              #  COMMAND +X TRANSLATION - ON (4 JET)
029249,000390: 25,2342           34024                           CADR     ULLAGE                                
029250,000391: 
029251,000392: 25,2343           04147                           TC       PHASCHNG                              
029252,000393: 25,2344           47012                           OCT      47012                                 
029253,000394: 25,2345           00310                           DEC      200        B-14                       
029254,000395: 25,2346  E4,1566                                  EBANK=   TDEC                                  
029255,000396: 25,2346           02352 52004                     2CADR    SBORB11                               
029256,000397: 
029257,000398: 25,2350           05717                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029258,000399: 25,2351           00310                           DEC      200        B-14                       
029259,000400: 
029260,000401: 25,2352           06054        SBORB11            TC       ENGINEON                              #  COMMAND ENGINE - ON
029261,000402: 
029262,000403: 25,2353           04147                           TC       PHASCHNG                              
029263,000404: 25,2354           47012                           OCT      47012                                 
029264,000405: 25,2355           00310                           DEC      200        B-14                       
029265,000406: 25,2356  E4,1566                                  EBANK=   TDEC                                  
029266,000407: 25,2356           02362 52004                     2CADR    SBORB12                               
029267,000408: 
029268,000409: 25,2360           05717                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029269,000410: 25,2361           00310                           DEC      200        B-14                       
029270,000411: 
029271,000412: 25,2362           05307        SBORB12            TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
029272,000413: 25,2363           34030                           CADR     NOULLAGE                              
029273,000414: 
029274,000415: 25,2364           04147                           TC       PHASCHNG                              
029275,000416: 25,2365           47012                           OCT      47012                                 
029276,000417: 25,2366           13250                           DEC      5800       B-14                       
029277,000418: 25,2367  E4,1566                                  EBANK=   TDEC                                  
029278,000419: 25,2367           02373 52004                     2CADR    SBORB13                               
029279,000420: 
029280,000421: 25,2371           05717                           TC       FIXDELAY                              #  WAIT 58 SECONDS
029281,000422: 25,2372           13250                           DEC      5800       B-14                       
029282,000423: 
029283,000424: 25,2373           06071        SBORB13            TC       ENGINOFF                              #  COMMAND ENGINE - OFF
029284,000425: 
029285,000426: 25,2374           04147                           TC       PHASCHNG                              
029286,000427: 25,2375           47012                           OCT      47012                                 
029287,000428: 25,2376           00144                           DEC      100        B-14                       
029288,000429: 25,2377  E4,1566                                  EBANK=   TDEC                                  
029289,000430: 25,2377           02403 52004                     2CADR    SBORB14                               

Page 652

029291,000432: 
029292,000433: 25,2401           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
029293,000434: 25,2402           00144                           DEC      100        B-14                       
029294,000435: 
029295,000436: 25,2403           05114        SBORB14            TC       1LMP+DT                               
029296,000437: 25,2404           00207                           DEC      135        B-14                       #  ENGINE SELECT - ASC ARM OFF *
029297,000438: 25,2405           05524                           DEC      2900       B-14                       #  WAIT 29 SECONDS
029298,000439: 
029299,000440: 25,2406           06036                           TC       FLAG1DWN                              #  KNOCK DOWN AVERAGEG FLAG
029300,000441: 25,2407           00001                           OCT      00001                                 
029301,000442: 
029302,000443: 25,2410           05307                           TC       IBNKCALL                              #  DEADBAND SELECT - MAX
029303,000444: 25,2411           34012                           CADR     SETMAXDB                              
029304,000445: 
029305,000446: 25,2412           04147                           TC       PHASCHNG                              
029306,000447: 25,2413           00002                           OCT      00002                                 
029307,000448: 
029308,000449: 25,2414           05745                           TC       TASKOVER                              
029309,000450: 
029310,000451: 
029311,000452: 25,2415           37752        ABTSTGDM           CAF      BIT4                                  #  ABORT STAGE DISCRETE MONITOR
029312,000453: 25,2416           00006                           EXTEND                                         
029313,000454: 25,2417           02030                           RAND     30                                    
029314,000455: 
029315,000456: 25,2420           00006                           EXTEND                                         
029316,000457: 25,2421           12425                           BZF      ABTSTG1                               #  YES
029317,000458: 
029318,000459: 25,2422           05717                           TC       FIXDELAY                              #  WAIT .5 SECONDS
029319,000460: 25,2423           00062                           DEC      50         B-14                       
029320,000461: 
029321,000462: 25,2424           12415                           TCF      ABTSTGDM                              
029322,000463: 
029323,000464: 25,2425           04127        ABTSTG1            TC       2PHSCHNG                              
029324,000465: 25,2426           00004                           OCT      00004                                 
029325,000466: 25,2427           47012                           OCT      47012                                 
029326,000467: 25,2430           77777                           OCT      77777                                 
029327,000468: 25,2431  E4,1566                                  EBANK=   TDEC                                  
029328,000469: 25,2431           02302 52004                     2CADR    SBORBB                                
029329,000470: 
029330,000471: 25,2433           00006                           EXTEND                                         
029331,000472: 25,2434           32464                           DCA      SBORBB2C                              
029332,000473: 25,2435           52376                           DXCH     FLUSHREG                              
029333,000474: 
029334,000475: 25,2436           35676                           CAF      PRIO37                                #  GENERATE RESTART IMMEDIATELY
029335,000476: 25,2437           05523                           TC       NOVAC                                 
029336,000477: 25,2440  E4,1566                                  EBANK=   TDEC                                  
029337,000478: 25,2440           02015 16004                     2CADR    ENEMA                                 
029338,000479: 
029339,000480: 25,2442           15745                           TCF      TASKOVER                              
029340,000481: 

Page 653

029342,000483: 
029343,000484: 
029344,000485: 
029345,000486: 25,2443           37735        TRST90PC           CAF      POSMAX                                #  INCREASE THROTTLE 90 PERCENT
029346,000487: 25,2444           55335                           TS       PCNTF                                 
029347,000488: 25,2445           00006                           EXTEND                                         
029348,000489: 25,2446           32466                           DCA      THRSTLOC                              
029349,000490: 25,2447           52006                           DXCH     Z                                     
029350,000491: 
029351,000492: 25,2450           04147                           TC       PHASCHNG                              
029352,000493: 25,2451           00003                           OCT      00003                                 
029353,000494: 
029354,000495: 25,2452           15605                           TCF      ENDOFJOB                              
029355,000496: 
029356,000497: 
029357,000498: 25,2453           00004        SBORBBJB           INHINT                                         
029358,000499: 25,2454           37755                           CAF      BIT1                                  
029359,000500: 25,2455           05701                           TC       WAITLIST                              
029360,000501: 25,2456  E4,1566                                  EBANK=   TDEC                                  
029361,000502: 25,2456           02302 52004                     2CADR    SBORBB                                
029362,000503: 
029363,000504: 25,2460           15605                           TCF      ENDOFJOB                              
029364,000505: 
029365,000506: 
029366,000507: 25,2461  E3,1400                                  EBANK=   LST1                                  
029367,000508: 25,2461           05605 04003  ENDJOB2C           2CADR    ENDOFJOB                              
029368,000509: 
029369,000510: 25,2463  E4,1566                                  EBANK=   TDEC                                  
029370,000511: 25,2463           02453 52004  SBORBB2C           2CADR    SBORBBJB                              
029371,000512: 
029372,000513: 25,2465  E5,1557                                  EBANK=   ETHROT                                
029373,000514: 25,2465           03367 60065  THRSTLOC           2CADR    PCNTFMAX                              

End of include-file MP_3_-_SUBORBITAL_ABORT.agc.  Parent file is MAIN.agc