Source Code

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

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

029107,000002:                                                                                                  ## Copyright:   Public domain.
029108,000003:                                                                                                  ## Filename:    MP_3_SUBORBITAL_ABORT.agc
029109,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
029110,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
029111,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
029112,000007:                                                                                                  ## Assembler:   yaYUL
029113,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029114,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029115,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
029116,000011:                                                                                                  ##              2016-10-23 MAS  Transcribed.
029117,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
029118,000013:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
029119,000014:                                                                                                  ##                              changes made.
029120,000015: 

Page 686

029122,000017: 25,2000                                           BANK     25                                    
029123,000018: 25,2000  E4,1566                                  EBANK=   TDEC                                  
029124,000019: 
029125,000020: 
029126,000021: 
029127,000022:                                                                                                  #  PROGRAM DESCRIPTION- MISSION PHASE 3 - SUBORBITAL ABORT                 DATE- 28 OCT 66
029128,000023:                                                                                                  #  MOD NO- 0                                                               LOG SECTION- MP 3 - SUBORBITAL ABORT
029129,000024:                                                                                                  #  MOD BY- GILBERT                                                         ASSEMBLY- SUNBURST REVISION 17
029130,000025: 
029131,000026:                                                                                                  #  FUNCTIONAL DESCRIPTION
029132,000027:                                                                                                  #           IN THE FIRST 10 SECONDS OF THIS PHASE, THE GROUND IS CAUSING THE NOSECONE TO BE JETTISONED AND THE SLA
029133,000028:                                                                                                  #  PANELS TO BE DEPLOYED. 10 SECONDS AFTER RECEIPT OF THE ABORT COMMAND, MP3 CHECKS TUMBLING AND PROCEEDS ONLY
029134,000029:                                                                                                  #  WHEN THE INDICATED TUMBLING RATES ARE LESS THAN 3 DEGREES PER SECOND. MP3 THEN STARTS +X TRANSLATION AND
029135,000030:                                                                                                  #  COMMANDS SIVB/LEM SEPARATION. 13 SECONDS AFTER SEPARATION THE DESCENT ENGINE IS TURNED ON FOR 5 SECONDS, THEN
029136,000031:                                                                                                  #  IGNITED AGAIN AFTER A 5 SECOND COAST AND LEFT ON THROUGH THE ABORT STAGE COMMAND WHICH IS SENT/RECEIVED 31
029137,000032:                                                                                                  #  SECONDS LATER. THE APS ENGINE IS TURNED OFF 5 SECONDS AFTER ABORT STAGE, THEN IGNITED AGAIN AFTER A 30 SECOND
029138,000033:                                                                                                  #  COAST FOR A FINAL 60 SECOND BURN. IMU COMPENSATION CONTINUES THROUGHOUT THIS MISSION PHASE.
029139,000034: 
029140,000035:                                                                                                  #  CALLING SEQUENCE
029141,000036:                                                                                                  #      SUBORBITAL ABORT IS STARTED AT THE DISCRETION OF THE GROUND IN THE EVENT OF AN ABORT DURING THE EARLIER PART
029142,000037:                                                                                                  #  OF BOOST. KEY CODE 23 IS SENT VIA UPLINK.
029143,000038: 
029144,000039:                                                                                                  #  SUBROUTINES CALLED
029145,000040:                                                                                                  #     NEWMODEX, WAITLIST, FIXDELAY, 1LMP, 2LMP, 1LMP+DT, 2LMP+DT, FLAG1DWN, ENGINEON, ENGINOFF, ENGINOF1, PREREAD,
029146,000041:                                                                                                  #  READACCS, SERVICER, AVERAGEG.
029147,000042: 
029148,000043:                                                                                                  #  NORMAL EXIT MODES
029149,000044:                                                                                                  #      TASKOVER.
029150,000045: 
029151,000046:                                                                                                  #  ALARM OR ABORT EXIT MODES
029152,000047:                                                                                                  #      MAJOR MODE 71.
029153,000048: 
029154,000049:                                                                                                  #  INPUT
029155,000050:                                                                                                  #      DVSELECT SET FOR READACCS AND SERVICER
029156,000051: 
029157,000052:                                                                                                  #  OUTPUT
029158,000053:                                                                                                  #      ''LAST RITES''
029159,000054: 
029160,000055:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029161,000056:                                                                                                  #      KEY CODE 23 SENT VIA UPLINK.
029162,000057: 
029163,000058:                                                                                                  #  DEBRIS
029164,000059:                                                                                                  #      CENTRALS - A,L,Q
029165,000060:                                                                                                  #      OTHER    - ERASABLES IN SUBROUTINES USED
029166,000061: 

Page 687

029168,000063: 25,2000           04117        MP03JOB            TC       NEWMODEX                              #  DISPLAY MAJOR MODE 71
029169,000064: 25,2001           00071                           OCT      71                                    
029170,000065: 
029171,000066: 25,2002           36311                           CAF      THREE                                 
029172,000067: 25,2003           54764                           TS       PHASENUM                              
029173,000068: 
029174,000069: 25,2004           04161                           TC       PHASCHNG                              
029175,000070: 25,2005           47012                           OCT      47012                                 
029176,000071: 25,2006           00001                           DEC      1          B-14                       
029177,000072: 25,2007  E4,1566                                  EBANK=   TDEC                                  
029178,000073: 25,2007           02021 52064                     2CADR    SBORB1                                
029179,000074: 
029180,000075: 25,2011           37761                           CAF      BIT3                                  
029181,000076: 25,2012           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
029182,000077: 
029183,000078: 25,2013           00004                           INHINT                                         
029184,000079: 25,2014           37763                           CAF      ONE                                   #  10 MS. - CONTINUE UNDER WAITLIST CONTROL
029185,000080: 25,2015           05663                           TC       WAITLIST                              
029186,000081: 25,2016  E4,1566                                  EBANK=   TDEC                                  
029187,000082: 25,2016           02021 52064                     2CADR    SBORB1                                
029188,000083: 
029189,000084: 25,2020           15567                           TCF      ENDOFJOB                              #  AND RELINT
029190,000085: 
029191,000086: 25,2021           37767        SBORB1             CAF      ZERO                                  #  INSURE RCS JETS OFF
029192,000087: 25,2022           00006                           EXTEND                                         
029193,000088: 25,2023           01006                           WRITE    6                                     
029194,000089: 25,2024           00006                           EXTEND                                         
029195,000090: 25,2025           01005                           WRITE    5                                     
029196,000091: 
029197,000092: 25,2026           04161                           TC       PHASCHNG                              
029198,000093: 25,2027           47012                           OCT      47012                                 
029199,000094: 25,2030           00144                           DEC      100        B-14                       
029200,000095: 25,2031  E4,1566                                  EBANK=   TDEC                                  
029201,000096: 25,2031           02035 52064                     2CADR    SBORB2                                
029202,000097: 
029203,000098: 25,2033           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029204,000099: 25,2034           00144                           DEC      100        B-14                       
029205,000100: 
029206,000101: 25,2035           05073        SBORB2             TC       2LMP+DT                               
029207,000102: 25,2036           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES, SYS. A - OPEN **
029208,000103: 25,2037           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES, SYS. B - OPEN **
029209,000104: 25,2040           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029210,000105: 
029211,000106: 25,2041           05101                           TC       1LMP+DT                               
029212,000107: 25,2042           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION - ON *
029213,000108: 25,2043           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029214,000109: 
029215,000110: 25,2044           05073                           TC       2LMP+DT                               
029216,000111: 25,2045           00275                           DEC      189        B-14                       #  RESET **
029217,000112: 25,2046           00277                           DEC      191        B-14                       #  RESET **

Page 688

029219,000114: 25,2047           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029220,000115: 
029221,000116: 25,2050           05101                           TC       1LMP+DT                               
029222,000117: 25,2051           00006                           DEC      6          B-14                       #  RCS PRESSURIZE - FIRE **
029223,000118: 25,2052           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029224,000119: 
029225,000120: 25,2053           05101                           TC       1LMP+DT                               
029226,000121: 25,2054           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
029227,000122: 25,2055           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029228,000123: 
029229,000124: 25,2056           05101                           TC       1LMP+DT                               
029230,000125: 25,2057           00007                           DEC      7          B-14                       #  RESET **
029231,000126: 25,2060           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029232,000127: 
029233,000128: 25,2061           40075        TUMBCHK            CS       FLAGWRD1                              #  IS VEHICLE RATE LESS THAN 3 DEG/SEC
029234,000129: 25,2062           77747                           MASK     BIT13                                 
029235,000130: 25,2063           10000                           CCS      A                                     
029236,000131: 25,2064           12070                           TCF      TUMB1                                 #  YES
029237,000132: 
029238,000133: 25,2065           05701                           TC       FIXDELAY                              #  WAIT .5 SECONDS
029239,000134: 25,2066           00062                           DEC      50         B-14                       
029240,000135: 
029241,000136: 25,2067           12061                           TCF      TUMBCHK                               
029242,000137: 
029243,000138: 25,2070           04161        TUMB1              TC       PHASCHNG                              
029244,000139: 25,2071           05012                           OCT      05012                                 
029245,000140: 25,2072           77777                           OCT      77777                                 
029246,000141: 
029247,000142: 25,2073           06067                           TC       FLAG1DWN                              #  TERMINATE TUMBLE MONITOR
029248,000143: 25,2074           20000                           OCT      20000                                 
029249,000144: 
029250,000145: 25,2075           33014                           CAF      JETS+X                                #  COMMAND +X TRANSLATION - ON (4 JET)
029251,000146: 25,2076           00006                           EXTEND                                         
029252,000147: 25,2077           01005                           WRITE    5                                     
029253,000148: 25,2100           05270                           TC       IBNKCALL                              
029254,000149: 25,2101           40062                           CADR     ULLAGE                                #  USE LATER
029255,000150: 
029256,000151: 25,2102           05101                           TC       1LMP+DT                               
029257,000152: 25,2103           00072                           DEC      58         B-14                       #  LEM/S4B SEPARATE ARM - ON *
029258,000153: 25,2104           00062                           DEC      50         B-14                       #  WAIT 500 MILLISECONDS
029259,000154: 
029260,000155: 25,2105           40077                           CS       DAPBOOLS                              #  ENABLE DAP
029261,000156: 25,2106           77751                           MASK     GODAPGO                               
029262,000157: 25,2107           26077                           ADS      DAPBOOLS                              
029263,000158: 
029264,000159: 25,2110           05270                           TC       IBNKCALL                              #  DEADBAND SELECT - MAX
029265,000160: 25,2111           40054                           CADR     SETMAXDB                              
029266,000161: 
029267,000162: 25,2112           04161                           TC       PHASCHNG                              
029268,000163: 25,2113           47012                           OCT      47012                                 

Page 689

029270,000165: 25,2114           00062                           DEC      50         B-14                       
029271,000166: 25,2115  E4,1566                                  EBANK=   TDEC                                  
029272,000167: 25,2115           02121 52064                     2CADR    TUMB2                                 
029273,000168: 
029274,000169: 25,2117           05701                           TC       FIXDELAY                              #  WAIT 500 MILLISECONDS
029275,000170: 25,2120           00062                           DEC      50         B-14                       
029276,000171: 
029277,000172: 25,2121           05270        TUMB2              TC       IBNKCALL                              
029278,000173: 25,2122           40072                           CADR     SETRATE                               #  HOLD VEHICLE ATTITUDE RATE
029279,000174: 
029280,000175: 25,2123           05073                           TC       2LMP+DT                               
029281,000176: 25,2124           00132                           DEC      90         B-14                       #  LEM/S4B SEPARATE - COMMAND **
029282,000177: 25,2125           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION - ON *
029283,000178: 25,2126           00012                           DEC      10         B-14                       #  WAIT 100 MILLISECONDS
029284,000179: 
029285,000180: 25,2127           05270                           TC       IBNKCALL                              #  DEADBAND SELECT - MIN
029286,000181: 25,2130           40046                           CADR     SETMINDB                              
029287,000182: 
029288,000183: 25,2131           40075                           CS       FLAGWRD1                              #  SETS SIVBGONE TO 1
029289,000184: 25,2132           77760                           MASK     BIT4                                  
029290,000185: 25,2133           26075                           ADS      FLAGWRD1                              
029291,000186: 
029292,000187: 25,2134           04161                           TC       PHASCHNG                              
029293,000188: 25,2135           47012                           OCT      47012                                 
029294,000189: 25,2136           00132                           DEC      90         B-14                       
029295,000190: 25,2137  E4,1566                                  EBANK=   TDEC                                  
029296,000191: 25,2137           02143 52064                     2CADR    TUMB3                                 
029297,000192: 
029298,000193: 25,2141           05701                           TC       FIXDELAY                              #  WAIT 900 MILLISECONDS
029299,000194: 25,2142           00132                           DEC      90         B-14                       
029300,000195: 
029301,000196: 25,2143           05270        TUMB3              TC       IBNKCALL                              
029302,000197: 25,2144           40277                           CADR     ENGINOF1                              
029303,000198: 
029304,000199: 25,2145           05073                           TC       2LMP+DT                               
029305,000200: 25,2146           00073                           DEC      59         B-14                       #  LEM/S4B SEPARATE ARM - OFF *
029306,000201: 25,2147           00226                           DEC      150        B-14                       #  ENGINE SELECT - DESC ARM *
029307,000202: 25,2150           00001                           DEC      1          B-14                       #  WAIT 10 MILLISECONDS
029308,000203: 
029309,000204: 25,2151           37752                           CAF      BIT10                                 #  START ABORT STAGE DISCRETE MONITOR
029310,000205: 25,2152           05663                           TC       WAITLIST                              
029311,000206: 25,2153  E4,1566                                  EBANK=   TDEC                                  
029312,000207: 25,2153           02436 52064                     2CADR    ABTSTGDM                              
029313,000208: 
029314,000209: 25,2155           04141                           TC       2PHSCHNG                              
029315,000210: 25,2156           40072                           OCT      40072                                 
029316,000211: 25,2157           47016                           OCT      47016                                 
029317,000212: 25,2160           01000                           DEC      512        B-14                       
029318,000213: 25,2161  E4,1566                                  EBANK=   TDEC                                  
029319,000214: 25,2161           02436 52064                     2CADR    ABTSTGDM                              
029320,000215: 

Page 690

029322,000217: 25,2163           05270        SBORBA             TC       IBNKCALL                              #  DEADBAND SELECT - MIN
029323,000218: 25,2164           40046                           CADR     SETMINDB                              
029324,000219: 
029325,000220: 25,2165           05101                           TC       1LMP+DT                               
029326,000221: 25,2166           00126                           DEC      86         B-14                       #  MANUAL THROTTLE - ON (10 PC) *
029327,000222: 25,2167           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029328,000223: 
029329,000224: 25,2170           05101                           TC       1LMP+DT                               
029330,000225: 25,2171           00133                           DEC      91         B-14                       #  RESET **
029331,000226: 25,2172           01130                           DEC      600        B-14                       #  WAIT 6 SECONDS
029332,000227: 
029333,000228: 25,2173           05270                           TC       IBNKCALL                              #  HOLD LEM ATTITUDE
029334,000229: 25,2174           40114                           CADR     STOPRATE                              
029335,000230: 25,2175           04161                           TC       PHASCHNG                              
029336,000231: 25,2176           47012                           OCT      47012                                 
029337,000232: 25,2177           00620                           DEC      400        B-14                       
029338,000233: 25,2200  E5,1511                                  EBANK=   DVCNTR                                
029339,000234: 25,2200           02204 52065                     2CADR    SBORB3                                
029340,000235: 
029341,000236: 25,2202           05701                           TC       FIXDELAY                              #  WAIT 4 SECONDS
029342,000237: 25,2203           00620                           DEC      400        B-14                       
029343,000238: 
029344,000239: 25,2204  E5,1511                                  EBANK=   DVCNTR                                
029345,000240: 
029346,000241: 25,2204           35661        SBORB3             CA       EBANK5                                
029347,000242: 25,2205           54003                           TS       EBANK                                 
029348,000243: 
029349,000244: 25,2206           05101                           TC       1LMP+DT                               
029350,000245: 25,2207           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY - FIRE **
029351,000246: 25,2210           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029352,000247: 
029353,000248: 25,2211           05270                           TC       IBNKCALL                              
029354,000249: 25,2212           40226                           CADR     DPSENGON                              

DPSENGON in the above line has a green arrow pointing to it.

029356,000251: 
029357,000252: 25,2213           04161                           TC       PHASCHNG                              
029358,000253: 25,2214           47012                           OCT      47012                                 
029359,000254: 25,2215           00144                           DEC      100        B-14                       
029360,000255: 25,2216  E5,1511                                  EBANK=   DVCNTR                                
029361,000256: 25,2216           02222 52065                     2CADR    SBORB4                                
029362,000257: 
029363,000258: 25,2220           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029364,000259: 25,2221           00144                           DEC      100        B-14                       
029365,000260: 
029366,000261: 25,2222           05073        SBORB4             TC       2LMP+DT                               
029367,000262: 25,2223           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
029368,000263: 25,2224           00011                           DEC      9          B-14                       #  RESET **
029369,000264: 25,2225           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029370,000265: 
029371,000266: 25,2226           37767                           CA       ZERO                                  #  WE WANT TO DETECT ENGINOFF QUICKLY SO IT
029372,000267: 25,2227           55341                           TS       SETDVCNT                              #  WON'T INTERFERE WITH NEXT ENG ON.
029373,000268: 

Page 691

029375,000270: 25,2230           37763                           CA       ONE                                   #  DITTO.
029376,000271: 25,2231           55511                           TS       DVCNTR                                
029377,000272: 
029378,000273: 25,2232           05270                           TC       IBNKCALL                              
029379,000274: 25,2233           40263                           CADR     ENGINOFF                              
029380,000275: 
029381,000276: 25,2234           04161                           TC       PHASCHNG                              
029382,000277: 25,2235           47012                           OCT      47012                                 
029383,000278: 25,2236           00764                           DEC      500        B-14                       
029384,000279: 25,2237  E5,1511                                  EBANK=   DVCNTR                                
029385,000280: 25,2237           02243 52065                     2CADR    SBORB5                                
029386,000281: 
029387,000282: 25,2241           05701                           TC       FIXDELAY                              #  WAIT 5 SECONDS
029388,000283: 25,2242           00764                           DEC      500        B-14                       
029389,000284: 
029390,000285: 25,2243           05270        SBORB5             TC       IBNKCALL                              
029391,000286: 25,2244           40226                           CADR     DPSENGON                              #  DPSENGON WILL REFRESH SETDVCNT

DPSENGON in the above line has a green arrow pointing to it.

029393,000288: 
029394,000289: 25,2245           04161                           TC       PHASCHNG                              
029395,000290: 25,2246           47012                           OCT      47012                                 
029396,000291: 25,2247           00310                           DEC      200        B-14                       
029397,000292: 25,2250  E5,1511                                  EBANK=   DVCNTR                                
029398,000293: 25,2250           02254 52065                     2CADR    SBORB6                                
029399,000294: 
029400,000295: 25,2252           05701                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029401,000296: 25,2253           00310                           DEC      200        B-14                       
029402,000297: 
029403,000298: 25,2254           05270        SBORB6             TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
029404,000299: 25,2255           40066                           CADR     NOULLAGE                              
029405,000300: 
029406,000301: 25,2256           04161                           TC       PHASCHNG                              
029407,000302: 25,2257           47012                           OCT      47012                                 
029408,000303: 25,2260           03554                           DEC      1900       B-14                       
029409,000304: 25,2261  E5,1511                                  EBANK=   DVCNTR                                
029410,000305: 25,2261           02265 52065                     2CADR    SBORB7                                
029411,000306: 
029412,000307: 25,2263           05701                           TC       FIXDELAY                              #  WAIT 19 SECONDS
029413,000308: 25,2264           03554                           DEC      1900       B-14                       
029414,000309: 
029415,000310: 25,2265           05101        SBORB7             TC       1LMP+DT                               
029416,000311: 25,2266           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN **
029417,000312: 25,2267           00310                           DEC      200        B-14                       #  WAIT 2 SECONDS
029418,000313: 
029419,000314: 25,2270           05101                           TC       1LMP+DT                               
029420,000315: 25,2271           00337                           DEC      223        B-14                       #  RESET **
029421,000316: 25,2272           00454                           DEC      300        B-14                       #  WAIT 3 SECONDS
029422,000317: 
029423,000318: 25,2273           35210                           CAF      PRIO30                                #  THRUST REQUEST DURING JOB
029424,000319: 25,2274           05516                           TC       FINDVAC                               
029425,000320: 25,2275  E5,1565                                  EBANK=   ETHROT                                

Page 692

029427,000322: 25,2275           02464 52065                     2CADR    TRST90PC                              
029428,000323: 
029429,000324: 25,2277           04141                           TC       2PHSCHNG                              
029430,000325: 25,2300           40112                           OCT      40112                                 
029431,000326: 25,2301           07024                           OCT      07024                                 
029432,000327: 25,2302           30000                           OCT      30000                                 
029433,000328: 25,2303  E5,1565                                  EBANK=   ETHROT                                
029434,000329: 25,2303           02464 52065                     2CADR    TRST90PC                              
029435,000330: 
029436,000331: 25,2305           05701                           TC       FIXDELAY                              #  WAIT 4 SECONDS
029437,000332: 25,2306           00620                           DEC      400        B-14                       
029438,000333: 
029439,000334: 25,2307           05101        SBORB8             TC       1LMP+DT                               
029440,000335: 25,2310           00046                           DEC      38         B-14                       #  ABORT STAGE - ARM *
029441,000336: 25,2311           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029442,000337: 
029443,000338: 25,2312           05101                           TC       1LMP+DT                               
029444,000339: 25,2313           00026                           DEC      22         B-14                       #  ABORT STAGE - COMMAND *
029445,000340: 25,2314           00001                           DEC      1          B-14                       #  WAIT 10 MS
029446,000341: 
029447,000342: 25,2315           04161                           TC       PHASCHNG                              
029448,000343: 25,2316           00002                           OCT      00002                                 
029449,000344: 
029450,000345: 25,2317           15727                           TCF      TASKOVER                              #  ABORT STAGE DISCRETE MONITOR RUNNING
029451,000346: 
029452,000347: 
029453,000348: 
029454,000349: 25,2320  E7,1776                                  EBANK=   LEMMASS2                              
029455,000350: 25,2320           35662        SBORBB             CAF      EBANK7                                
029456,000351: 25,2321           54003                           TS       EBANK                                 
029457,000352: 
029458,000353: 25,2322           00006                           EXTEND                                         
029459,000354: 25,2323           31777                           DCA      LEMMASS2                              
029460,000355: 25,2324           53321                           DXCH     MASS                                  
029461,000356: 
029462,000357: 25,2325           05270                           TC       IBNKCALL                              #  SET UP DAP FOR APS BURN
029463,000358: 25,2326           40175                           CADR     APSENGON                              
029464,000359: 
029465,000360: 25,2327  E4,1566                                  EBANK=   TDEC                                  
029466,000361: 25,2327           37751                           CAF      EBANK4                                
029467,000362: 25,2330           54003                           TS       EBANK                                 
029468,000363: 
029469,000364: 25,2331           04161                           TC       PHASCHNG                              
029470,000365: 25,2332           47012                           OCT      47012                                 
029471,000366: 25,2333           00144                           DEC      100        B-14                       
029472,000367: 25,2334  E4,1566                                  EBANK=   TDEC                                  
029473,000368: 25,2334           02340 52064                     2CADR    SBORB9                                
029474,000369: 
029475,000370: 25,2336           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029476,000371: 25,2337           00144                           DEC      100        B-14                       
029477,000372: 

Page 693

029479,000374: 25,2340           05101        SBORB9             TC       1LMP+DT                               
029480,000375: 25,2341           00227                           DEC      151        B-14                       #  ENGINE SELECT - DESC ARM OFF *
029481,000376: 25,2342           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029482,000377: 
029483,000378: 25,2343           05270                           TC       IBNKCALL                              
029484,000379: 25,2344           40263                           CADR     ENGINOFF                              
029485,000380: 
029486,000381: 25,2345           04161                           TC       PHASCHNG                              
029487,000382: 25,2346           47012                           OCT      47012                                 
029488,000383: 25,2347           00144                           DEC      100        B-14                       
029489,000384: 25,2350  E4,1566                                  EBANK=   TDEC                                  
029490,000385: 25,2350           02354 52064                     2CADR    SBORB10                               
029491,000386: 
029492,000387: 25,2352           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029493,000388: 25,2353           00144                           DEC      100        B-14                       
029494,000389: 
029495,000390: 25,2354           05073        SBORB10            TC       2LMP+DT                               
029496,000391: 25,2355           00047                           DEC      39         B-14                       #  ABORT STAGE - COMMAND RESET *
029497,000392: 25,2356           00206                           DEC      134        B-14                       #  ENGINE SELECT - ASC ARM *
029498,000393: 25,2357           05214                           DEC      2700       B-14                       #  WAIT 27 SECONDS
029499,000394: 
029500,000395: 25,2360           05270                           TC       IBNKCALL                              #  COMMAND +X TRANSLATION - ON (4 JET)
029501,000396: 25,2361           40062                           CADR     ULLAGE                                
029502,000397: 
029503,000398: 25,2362           04161                           TC       PHASCHNG                              
029504,000399: 25,2363           47012                           OCT      47012                                 
029505,000400: 25,2364           00310                           DEC      200        B-14                       
029506,000401: 25,2365  E4,1566                                  EBANK=   TDEC                                  
029507,000402: 25,2365           02371 52064                     2CADR    SBORB11                               
029508,000403: 
029509,000404: 25,2367           05701                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029510,000405: 25,2370           00310                           DEC      200        B-14                       
029511,000406: 
029512,000407: 25,2371           05270        SBORB11            TC       IBNKCALL                              
029513,000408: 25,2372           40175                           CADR     APSENGON                              
029514,000409: 
029515,000410: 25,2373           04161                           TC       PHASCHNG                              
029516,000411: 25,2374           47012                           OCT      47012                                 
029517,000412: 25,2375           00310                           DEC      200        B-14                       
029518,000413: 25,2376  E4,1566                                  EBANK=   TDEC                                  
029519,000414: 25,2376           02402 52064                     2CADR    SBORB12                               
029520,000415: 
029521,000416: 25,2400           05701                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029522,000417: 25,2401           00310                           DEC      200        B-14                       
029523,000418: 
029524,000419: 25,2402           05270        SBORB12            TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
029525,000420: 25,2403           40066                           CADR     NOULLAGE                              
029526,000421: 
029527,000422: 25,2404           04161                           TC       PHASCHNG                              
029528,000423: 25,2405           47012                           OCT      47012                                 

Page 694

029530,000425: 25,2406           13250                           DEC      5800       B-14                       
029531,000426: 25,2407  E4,1566                                  EBANK=   TDEC                                  
029532,000427: 25,2407           02413 52064                     2CADR    SBORB13                               
029533,000428: 
029534,000429: 25,2411           05701                           TC       FIXDELAY                              #  WAIT 58 SECONDS
029535,000430: 25,2412           13250                           DEC      5800       B-14                       
029536,000431: 
029537,000432: 25,2413           05270        SBORB13            TC       IBNKCALL                              
029538,000433: 25,2414           40263                           CADR     ENGINOFF                              
029539,000434: 
029540,000435: 25,2415           04161                           TC       PHASCHNG                              
029541,000436: 25,2416           47012                           OCT      47012                                 
029542,000437: 25,2417           00144                           DEC      100        B-14                       
029543,000438: 25,2420  E4,1566                                  EBANK=   TDEC                                  
029544,000439: 25,2420           02424 52064                     2CADR    SBORB14                               
029545,000440: 
029546,000441: 25,2422           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029547,000442: 25,2423           00144                           DEC      100        B-14                       
029548,000443: 
029549,000444: 25,2424           05101        SBORB14            TC       1LMP+DT                               
029550,000445: 25,2425           00207                           DEC      135        B-14                       #  ENGINE SELECT - ASC ARM OFF *
029551,000446: 25,2426           05524                           DEC      2900       B-14                       #  WAIT 29 SECONDS
029552,000447: 
029553,000448: 25,2427           06067                           TC       FLAG1DWN                              #  KNOCK DOWN AVERAGEG FLAG
029554,000449: 25,2430           00001                           OCT      00001                                 
029555,000450: 
029556,000451: 25,2431           05270                           TC       IBNKCALL                              #  DEADBAND SELECT - MAX
029557,000452: 25,2432           40054                           CADR     SETMAXDB                              
029558,000453: 
029559,000454: 25,2433           04161                           TC       PHASCHNG                              
029560,000455: 25,2434           00002                           OCT      00002                                 
029561,000456: 
029562,000457: 25,2435           05727                           TC       TASKOVER                              
029563,000458: 
029564,000459: 
029565,000460: 
029566,000461: 25,2436           37762        ABTSTGDM           CAF      BIT2                                  #  ABORT STAGE DISCRETE MONITOR
029567,000462: 25,2437           00006                           EXTEND                                         
029568,000463: 25,2440           02030                           RAND     30                                    
029569,000464: 
029570,000465: 25,2441           00006                           EXTEND                                         
029571,000466: 25,2442           12446                           BZF      ABTSTG1                               #  YES
029572,000467: 
029573,000468: 25,2443           05701                           TC       FIXDELAY                              #  WAIT .5 SECONDS
029574,000469: 25,2444           00062                           DEC      50         B-14                       
029575,000470: 
029576,000471: 25,2445           12436                           TCF      ABTSTGDM                              
029577,000472: 
029578,000473: 25,2446           04141        ABTSTG1            TC       2PHSCHNG                              
029579,000474: 25,2447           00004                           OCT      00004                                 

Page 695

029581,000476: 25,2450           47012                           OCT      47012                                 
029582,000477: 25,2451           77777                           OCT      77777                                 
029583,000478: 25,2452  E4,1566                                  EBANK=   TDEC                                  
029584,000479: 25,2452           02320 52064                     2CADR    SBORBB                                
029585,000480: 
029586,000481: 25,2454           04141                           TC       2PHSCHNG                              
029587,000482: 25,2455           00006                           OCT      00006                                 
029588,000483: 25,2456           00003                           OCT      00003                                 
029589,000484: 
029590,000485: 25,2457           35660                           CAF      PRIO37                                #  GENERATE RESTART IMMEDIATELY
029591,000486: 25,2460           05505                           TC       NOVAC                                 
029592,000487: 25,2461  E3,1400                                  EBANK=   LST1                                  
029593,000488: 25,2461           02354 02063                     2CADR    ENEMA                                 
029594,000489: 
029595,000490: 25,2463           15727                           TCF      TASKOVER                              
029596,000491: 
029597,000492: 
029598,000493: 
029599,000494: 
029600,000495: 
029601,000496: 25,2464           37743        TRST90PC           CAF      POSMAX                                #  INCREASE THROTTLE 90 PERCENT
029602,000497: 25,2465           55323                           TS       PCNTF                                 
029603,000498: 25,2466           00006                           EXTEND                                         
029604,000499: 25,2467           32473                           DCA      THRSTLOC                              
029605,000500: 25,2470           52006                           DXCH     Z                                     
029606,000501: 
029607,000502: 25,2471           15567                           TCF      ENDOFJOB                              
029608,000503: 
029609,000504: 
029610,000505: 
029611,000506: 
029612,000507: 
029613,000508: 25,2472  E5,1565                                  EBANK=   ETHROT                                
029614,000509: 25,2472           03466 60065  THRSTLOC           2CADR    PCNTFMAX                              

End of include-file MP_3_SUBORBITAL_ABORT.agc.  Parent file is MAIN.agc