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.

029120,000002:                                                                                                  ## Copyright:   Public domain.
029121,000003:                                                                                                  ## Filename:    MP_3_SUBORBITAL_ABORT.agc
029122,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
029123,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
029124,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
029125,000007:                                                                                                  ## Assembler:   yaYUL
029126,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029127,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029128,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
029129,000011:                                                                                                  ##              2016-10-23 MAS  Transcribed.
029130,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
029131,000013:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
029132,000014:                                                                                                  ##                              changes made.
029133,000015:                                                                                                  ##              2017-06-14 RSB  Added a ##-comment about the difference between
029134,000016:                                                                                                  ##                              this code and SUNBURST 37.
029135,000017: 

Page 686

029137,000019: 25,2000                                           BANK     25                                    
029138,000020: 25,2000  E4,1566                                  EBANK=   TDEC                                  
029139,000021: 
029140,000022: 

Note that while the following comments identify this code as being precisely identical to the corresponding code in SUNBURST 37, there are in fact significant non-trivial changes between the two revisions. — RSB

029144,000026:                                                                                                  #  PROGRAM DESCRIPTION- MISSION PHASE 3 - SUBORBITAL ABORT                 DATE- 28 OCT 66
029145,000027:                                                                                                  #  MOD NO- 0                                                               LOG SECTION- MP 3 - SUBORBITAL ABORT
029146,000028:                                                                                                  #  MOD BY- GILBERT                                                         ASSEMBLY- SUNBURST REVISION 17
029147,000029: 
029148,000030:                                                                                                  #  FUNCTIONAL DESCRIPTION
029149,000031:                                                                                                  #           IN THE FIRST 10 SECONDS OF THIS PHASE, THE GROUND IS CAUSING THE NOSECONE TO BE JETTISONED AND THE SLA
029150,000032:                                                                                                  #  PANELS TO BE DEPLOYED. 10 SECONDS AFTER RECEIPT OF THE ABORT COMMAND, MP3 CHECKS TUMBLING AND PROCEEDS ONLY
029151,000033:                                                                                                  #  WHEN THE INDICATED TUMBLING RATES ARE LESS THAN 3 DEGREES PER SECOND. MP3 THEN STARTS +X TRANSLATION AND
029152,000034:                                                                                                  #  COMMANDS SIVB/LEM SEPARATION. 13 SECONDS AFTER SEPARATION THE DESCENT ENGINE IS TURNED ON FOR 5 SECONDS, THEN
029153,000035:                                                                                                  #  IGNITED AGAIN AFTER A 5 SECOND COAST AND LEFT ON THROUGH THE ABORT STAGE COMMAND WHICH IS SENT/RECEIVED 31
029154,000036:                                                                                                  #  SECONDS LATER. THE APS ENGINE IS TURNED OFF 5 SECONDS AFTER ABORT STAGE, THEN IGNITED AGAIN AFTER A 30 SECOND
029155,000037:                                                                                                  #  COAST FOR A FINAL 60 SECOND BURN. IMU COMPENSATION CONTINUES THROUGHOUT THIS MISSION PHASE.
029156,000038: 
029157,000039:                                                                                                  #  CALLING SEQUENCE
029158,000040:                                                                                                  #      SUBORBITAL ABORT IS STARTED AT THE DISCRETION OF THE GROUND IN THE EVENT OF AN ABORT DURING THE EARLIER PART
029159,000041:                                                                                                  #  OF BOOST. KEY CODE 23 IS SENT VIA UPLINK.
029160,000042: 
029161,000043:                                                                                                  #  SUBROUTINES CALLED
029162,000044:                                                                                                  #     NEWMODEX, WAITLIST, FIXDELAY, 1LMP, 2LMP, 1LMP+DT, 2LMP+DT, FLAG1DWN, ENGINEON, ENGINOFF, ENGINOF1, PREREAD,
029163,000045:                                                                                                  #  READACCS, SERVICER, AVERAGEG.
029164,000046: 
029165,000047:                                                                                                  #  NORMAL EXIT MODES
029166,000048:                                                                                                  #      TASKOVER.
029167,000049: 
029168,000050:                                                                                                  #  ALARM OR ABORT EXIT MODES
029169,000051:                                                                                                  #      MAJOR MODE 71.
029170,000052: 
029171,000053:                                                                                                  #  INPUT
029172,000054:                                                                                                  #      DVSELECT SET FOR READACCS AND SERVICER
029173,000055: 
029174,000056:                                                                                                  #  OUTPUT
029175,000057:                                                                                                  #      ''LAST RITES''
029176,000058: 
029177,000059:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029178,000060:                                                                                                  #      KEY CODE 23 SENT VIA UPLINK.
029179,000061: 
029180,000062:                                                                                                  #  DEBRIS
029181,000063:                                                                                                  #      CENTRALS - A,L,Q
029182,000064:                                                                                                  #      OTHER    - ERASABLES IN SUBROUTINES USED
029183,000065: 

Page 687

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

Page 688

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

Page 689

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

Page 690

029339,000221: 25,2163           05270        SBORBA             TC       IBNKCALL                              #  DEADBAND SELECT - MIN
029340,000222: 25,2164           40046                           CADR     SETMINDB                              
029341,000223: 
029342,000224: 25,2165           05101                           TC       1LMP+DT                               
029343,000225: 25,2166           00126                           DEC      86         B-14                       #  MANUAL THROTTLE - ON (10 PC) *
029344,000226: 25,2167           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029345,000227: 
029346,000228: 25,2170           05101                           TC       1LMP+DT                               
029347,000229: 25,2171           00133                           DEC      91         B-14                       #  RESET **
029348,000230: 25,2172           01130                           DEC      600        B-14                       #  WAIT 6 SECONDS
029349,000231: 
029350,000232: 25,2173           05270                           TC       IBNKCALL                              #  HOLD LEM ATTITUDE
029351,000233: 25,2174           40114                           CADR     STOPRATE                              
029352,000234: 25,2175           04161                           TC       PHASCHNG                              
029353,000235: 25,2176           47012                           OCT      47012                                 
029354,000236: 25,2177           00620                           DEC      400        B-14                       
029355,000237: 25,2200  E5,1511                                  EBANK=   DVCNTR                                
029356,000238: 25,2200           02204 52065                     2CADR    SBORB3                                
029357,000239: 
029358,000240: 25,2202           05701                           TC       FIXDELAY                              #  WAIT 4 SECONDS
029359,000241: 25,2203           00620                           DEC      400        B-14                       
029360,000242: 
029361,000243: 25,2204  E5,1511                                  EBANK=   DVCNTR                                
029362,000244: 
029363,000245: 25,2204           35661        SBORB3             CA       EBANK5                                
029364,000246: 25,2205           54003                           TS       EBANK                                 
029365,000247: 
029366,000248: 25,2206           05101                           TC       1LMP+DT                               
029367,000249: 25,2207           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY - FIRE **
029368,000250: 25,2210           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
029369,000251: 
029370,000252: 25,2211           05270                           TC       IBNKCALL                              
029371,000253: 25,2212           40226                           CADR     DPSENGON                              

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

029373,000255: 
029374,000256: 25,2213           04161                           TC       PHASCHNG                              
029375,000257: 25,2214           47012                           OCT      47012                                 
029376,000258: 25,2215           00144                           DEC      100        B-14                       
029377,000259: 25,2216  E5,1511                                  EBANK=   DVCNTR                                
029378,000260: 25,2216           02222 52065                     2CADR    SBORB4                                
029379,000261: 
029380,000262: 25,2220           05701                           TC       FIXDELAY                              #  WAIT 1 SECOND
029381,000263: 25,2221           00144                           DEC      100        B-14                       
029382,000264: 
029383,000265: 25,2222           05073        SBORB4             TC       2LMP+DT                               
029384,000266: 25,2223           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
029385,000267: 25,2224           00011                           DEC      9          B-14                       #  RESET **
029386,000268: 25,2225           00620                           DEC      400        B-14                       #  WAIT 4 SECONDS
029387,000269: 
029388,000270: 25,2226           37767                           CA       ZERO                                  #  WE WANT TO DETECT ENGINOFF QUICKLY SO IT
029389,000271: 25,2227           55341                           TS       SETDVCNT                              #  WON'T INTERFERE WITH NEXT ENG ON.
029390,000272: 

Page 691

029392,000274: 25,2230           37763                           CA       ONE                                   #  DITTO.
029393,000275: 25,2231           55511                           TS       DVCNTR                                
029394,000276: 
029395,000277: 25,2232           05270                           TC       IBNKCALL                              
029396,000278: 25,2233           40263                           CADR     ENGINOFF                              
029397,000279: 
029398,000280: 25,2234           04161                           TC       PHASCHNG                              
029399,000281: 25,2235           47012                           OCT      47012                                 
029400,000282: 25,2236           00764                           DEC      500        B-14                       
029401,000283: 25,2237  E5,1511                                  EBANK=   DVCNTR                                
029402,000284: 25,2237           02243 52065                     2CADR    SBORB5                                
029403,000285: 
029404,000286: 25,2241           05701                           TC       FIXDELAY                              #  WAIT 5 SECONDS
029405,000287: 25,2242           00764                           DEC      500        B-14                       
029406,000288: 
029407,000289: 25,2243           05270        SBORB5             TC       IBNKCALL                              
029408,000290: 25,2244           40226                           CADR     DPSENGON                              #  DPSENGON WILL REFRESH SETDVCNT

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

029410,000292: 
029411,000293: 25,2245           04161                           TC       PHASCHNG                              
029412,000294: 25,2246           47012                           OCT      47012                                 
029413,000295: 25,2247           00310                           DEC      200        B-14                       
029414,000296: 25,2250  E5,1511                                  EBANK=   DVCNTR                                
029415,000297: 25,2250           02254 52065                     2CADR    SBORB6                                
029416,000298: 
029417,000299: 25,2252           05701                           TC       FIXDELAY                              #  WAIT 2 SECONDS
029418,000300: 25,2253           00310                           DEC      200        B-14                       
029419,000301: 
029420,000302: 25,2254           05270        SBORB6             TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
029421,000303: 25,2255           40066                           CADR     NOULLAGE                              
029422,000304: 
029423,000305: 25,2256           04161                           TC       PHASCHNG                              
029424,000306: 25,2257           47012                           OCT      47012                                 
029425,000307: 25,2260           03554                           DEC      1900       B-14                       
029426,000308: 25,2261  E5,1511                                  EBANK=   DVCNTR                                
029427,000309: 25,2261           02265 52065                     2CADR    SBORB7                                
029428,000310: 
029429,000311: 25,2263           05701                           TC       FIXDELAY                              #  WAIT 19 SECONDS
029430,000312: 25,2264           03554                           DEC      1900       B-14                       
029431,000313: 
029432,000314: 25,2265           05101        SBORB7             TC       1LMP+DT                               
029433,000315: 25,2266           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN **
029434,000316: 25,2267           00310                           DEC      200        B-14                       #  WAIT 2 SECONDS
029435,000317: 
029436,000318: 25,2270           05101                           TC       1LMP+DT                               
029437,000319: 25,2271           00337                           DEC      223        B-14                       #  RESET **
029438,000320: 25,2272           00454                           DEC      300        B-14                       #  WAIT 3 SECONDS
029439,000321: 
029440,000322: 25,2273           35210                           CAF      PRIO30                                #  THRUST REQUEST DURING JOB
029441,000323: 25,2274           05516                           TC       FINDVAC                               
029442,000324: 25,2275  E5,1565                                  EBANK=   ETHROT                                

Page 692

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

Page 693

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

Page 694

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

Page 695

029598,000480: 25,2450           47012                           OCT      47012                                 
029599,000481: 25,2451           77777                           OCT      77777                                 
029600,000482: 25,2452  E4,1566                                  EBANK=   TDEC                                  
029601,000483: 25,2452           02320 52064                     2CADR    SBORBB                                
029602,000484: 
029603,000485: 25,2454           04141                           TC       2PHSCHNG                              
029604,000486: 25,2455           00006                           OCT      00006                                 
029605,000487: 25,2456           00003                           OCT      00003                                 
029606,000488: 
029607,000489: 25,2457           35660                           CAF      PRIO37                                #  GENERATE RESTART IMMEDIATELY
029608,000490: 25,2460           05505                           TC       NOVAC                                 
029609,000491: 25,2461  E3,1400                                  EBANK=   LST1                                  
029610,000492: 25,2461           02354 02063                     2CADR    ENEMA                                 
029611,000493: 
029612,000494: 25,2463           15727                           TCF      TASKOVER                              
029613,000495: 
029614,000496: 
029615,000497: 
029616,000498: 
029617,000499: 
029618,000500: 25,2464           37743        TRST90PC           CAF      POSMAX                                #  INCREASE THROTTLE 90 PERCENT
029619,000501: 25,2465           55323                           TS       PCNTF                                 
029620,000502: 25,2466           00006                           EXTEND                                         
029621,000503: 25,2467           32473                           DCA      THRSTLOC                              
029622,000504: 25,2470           52006                           DXCH     Z                                     
029623,000505: 
029624,000506: 25,2471           15567                           TCF      ENDOFJOB                              
029625,000507: 
029626,000508: 
029627,000509: 
029628,000510: 
029629,000511: 
029630,000512: 25,2472  E5,1565                                  EBANK=   ETHROT                                
029631,000513: 25,2472           03466 60065  THRSTLOC           2CADR    PCNTFMAX                              

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