Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
028861,000002: ## Copyright: Public domain.
028862,000003: ## Filename: MP_3_-_SUBORBITAL_ABORT.agc
028863,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
028864,000005: ## It is part of an early development version of the software
028865,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
028866,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
028867,000008: ## upon which Don Eyles's offline development program Shepatin
028868,000009: ## was based; the listing herein transcribed was actually for
028869,000010: ## the equivalent revision 0 of Shepatin.
028870,000011: ## This file is intended to be a faithful transcription, except
028871,000012: ## that the code format has been changed to conform to the
028872,000013: ## requirements of the yaYUL assembler rather than the
028873,000014: ## original YUL assembler.
028874,000015: ## Reference: pp. 644-653
028875,000016: ## Assembler: yaYUL
028876,000017: ## Contact: Ron Burkey <info@sandroid.org>.
028877,000018: ## Website: www.ibiblio.org/apollo/index.html
028878,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
028879,000020: ## 2017-06-14 RSB Transcribed. Note that while the comments (date,
028880,000021: ## mod no, mod by, assembly revision) identify this
028881,000022: ## code as being identical to that in Sunburst 120,
028882,000023: ## in reality it has many differences.
028883,000024: ## 2017-06-15 HG Fix operand BIT2 -> BIT4
028884,000025: ## 2017-06-22 RSB Proofed comment text with
028885,000026: ## octopus/ProoferComments.
028886,000027:
![]() |
Page 644 |
028888,000029: 25,2000 BANK 25
028889,000030: 25,2000 E4,1566 EBANK= TDEC
028890,000031:
028891,000032:
028892,000033:
028893,000034: # PROGRAM DESCRIPTION- MISSION PHASE 3 - SUBORBITAL ABORT DATE- 28 OCT 66
028894,000035: # MOD NO- 0 LOG SECTION- MP 3 - SUBORBITAL ABORT
028895,000036: # MOD BY- GILBERT ASSEMBLY- SUNBURST REVISION 17
028896,000037:
028897,000038: # FUNCTIONAL DESCRIPTION
028898,000039: # IN THE FIRST 10 SECONDS OF THIS PHASE, THE GROUND IS CAUSING THE NOSECONE TO BE JETTISONED AND THE SLA
028899,000040: # PANELS TO BE DEPLOYED. 10 SECONDS AFTER RECEIPT OF THE ABORT COMMAND, MP3 CHECKS TUMBLING AND PROCEEDS ONLY
028900,000041: # WHEN THE INDICATED TUMBLING RATES ARE LESS THAN 3 DEGREES PER SECOND. MP3 THEN STARTS +X TRANSLATION AND
028901,000042: # COMMANDS SIVB/LEM SEPARATION. 13 SECONDS AFTER SEPARATION THE DESCENT ENGINE IS TURNED ON FOR 5 SECONDS, THEN
028902,000043: # IGNITED AGAIN AFTER A 5 SECOND COAST AND LEFT ON THROUGH THE ABORT STAGE COMMAND WHICH IS SENT/RECEIVED 31
028903,000044: # SECONDS LATER. THE APS ENGINE IS TURNED OFF 5 SECONDS AFTER ABORT STAGE, THEN IGNITED AGAIN AFTER A 30 SECOND
028904,000045: # COAST FOR A FINAL 60 SECOND BURN. IMU COMPENSATION CONTINUES THROUGHOUT THIS MISSION PHASE.
028905,000046:
028906,000047: # CALLING SEQUENCE
028907,000048: # SUBORBITAL ABORT IS STARTED AT THE DISCRETION OF THE GROUND IN THE EVENT OF AN ABORT DURING THE EARLIER PART
028908,000049: # OF BOOST. KEY CODE 23 IS SENT VIA UPLINK.
028909,000050:
028910,000051: # SUBROUTINES CALLED
028911,000052: # NEWMODEX, WAITLIST, FIXDELAY, 1LMP, 2LMP, 1LMP+DT, 2LMP+DT, FLAG1DWN, ENGINEON, ENGINOFF, ENGINOF1, PREREAD,
028912,000053: # READACCS, SERVICER, AVERAGEG.
028913,000054:
028914,000055: # NORMAL EXIT MODES
028915,000056: # TASKOVER.
028916,000057:
028917,000058: # ALARM OR ABORT EXIT MODES
028918,000059: # MAJOR MODE 71.
028919,000060:
028920,000061: # INPUT
028921,000062: # DVSELECT SET FOR READACCS AND SERVICER
028922,000063:
028923,000064: # OUTPUT
028924,000065: # ''LAST RITES''
028925,000066:
028926,000067: # ERASABLE INITIALIZATION REQUIRED
028927,000068: # KEY CODE 23 SENT VIA UPLINK.
028928,000069:
028929,000070: # DEBRIS
028930,000071: # CENTRALS - A,L,Q
028931,000072: # OTHER - ERASABLES IN SUBROUTINES USED
028932,000073:
![]() |
Page 645 |
028934,000075: 25,2000 04105 MP03JOB TC NEWMODEX # DISPLAY MAJOR MODE 71
028935,000076: 25,2001 00071 OCT 71
028936,000077:
028937,000078: 25,2002 04147 TC PHASCHNG
028938,000079: 25,2003 47012 OCT 47012
028939,000080: 25,2004 00001 DEC 1 B-14
028940,000081: 25,2005 E4,1566 EBANK= TDEC
028941,000082: 25,2005 02015 52004 2CADR SBORB1
028942,000083:
028943,000084: 25,2007 00004 INHINT
028944,000085: 25,2010 37755 CAF ONE # 10 MS. - CONTINUE UNDER WAITLIST CONTROL
028945,000086: 25,2011 05701 TC WAITLIST
028946,000087: 25,2012 E4,1566 EBANK= TDEC
028947,000088: 25,2012 02015 52004 2CADR SBORB1
028948,000089:
028949,000090: 25,2014 15605 TCF ENDOFJOB # AND RELINT
028950,000091:
028951,000092: 25,2015 04147 SBORB1 TC PHASCHNG
028952,000093: 25,2016 05012 OCT 05012
028953,000094: 25,2017 77777 OCT 77777
028954,000095:
028955,000096: 25,2020 37761 CAF ZERO # INSURE RCS JETS OFF
028956,000097: 25,2021 00006 EXTEND
028957,000098: 25,2022 01005 WRITE 5
028958,000099:
028959,000100: 25,2023 04147 TC PHASCHNG
028960,000101: 25,2024 47012 OCT 47012
028961,000102: 25,2025 00144 DEC 100 B-14
028962,000103: 25,2026 E4,1566 EBANK= TDEC
028963,000104: 25,2026 02032 52004 2CADR SBORB2
028964,000105:
028965,000106: 25,2030 05717 TC FIXDELAY # WAIT 1 SECOND
028966,000107: 25,2031 00144 DEC 100 B-14
028967,000108:
028968,000109: 25,2032 05106 SBORB2 TC 2LMP+DT
028969,000110: 25,2033 00274 DEC 188 B-14 # RCS MAIN S/O VALVES, SYS. A - OPEN **
028970,000111: 25,2034 00276 DEC 190 B-14 # RCS MAIN S/O VALVES, SYS. B - OPEN **
028971,000112: 25,2035 00144 DEC 100 B-14 # WAIT 1 SECOND
028972,000113:
028973,000114: 25,2036 05114 TC 1LMP+DT
028974,000115: 25,2037 00004 DEC 4 B-14 # ED BATTERY ACTIVATION - ON *
028975,000116: 25,2040 00144 DEC 100 B-14 # WAIT 1 SECOND
028976,000117:
028977,000118: 25,2041 05106 TC 2LMP+DT
028978,000119: 25,2042 00275 DEC 189 B-14 # RESET **
028979,000120: 25,2043 00277 DEC 191 B-14 # RESET **
028980,000121: 25,2044 00144 DEC 100 B-14 # WAIT 1 SECOND
028981,000122:
028982,000123: 25,2045 05114 TC 1LMP+DT
028983,000124: 25,2046 00006 DEC 6 B-14 # RCS PRESSURIZE - FIRE **
![]() |
Page 646 |
028985,000126: 25,2047 00144 DEC 100 B-14 # WAIT 1 SECOND
028986,000127:
028987,000128: 25,2050 05114 TC 1LMP+DT
028988,000129: 25,2051 00005 DEC 5 B-14 # ED BATTERY ACTIVATION - SAFE *
028989,000130: 25,2052 00144 DEC 100 B-14 # WAIT 1 SECOND
028990,000131:
028991,000132: 25,2053 05114 TC 1LMP+DT
028992,000133: 25,2054 00007 DEC 7 B-14 # RESET **
028993,000134: 25,2055 00620 DEC 400 B-14 # WAIT 4 SECONDS
028994,000135:
028995,000136: 25,2056 40075 TUMBCHK CS FLAGWRD1 # IS VEHICLE RATE LESS THAN 3 DEG/SEC
028996,000137: 25,2057 77741 MASK BIT13
028997,000138: 25,2060 10000 CCS A
028998,000139: 25,2061 12065 TCF TUMB1 # YES
028999,000140:
029000,000141: 25,2062 05717 TC FIXDELAY # WAIT .5 SECONDS
029001,000142: 25,2063 00062 DEC 50 B-14
029002,000143:
029003,000144: 25,2064 12056 TCF TUMBCHK
029004,000145:
029005,000146: 25,2065 04147 TUMB1 TC PHASCHNG
029006,000147: 25,2066 05012 OCT 05012
029007,000148: 25,2067 77777 OCT 77777
029008,000149:
029009,000150: 25,2070 06036 TC FLAG1DWN # TERMINATE TUMBLE MONITOR
029010,000151: 25,2071 20000 OCT 20000
029011,000152:
029012,000153: 25,2072 06045 TC FLAG2DWN # TERMINATE ABORT COMMAND MONITOR
029013,000154: 25,2073 00400 OCT 00400
029014,000155:
029015,000156: 25,2074 32766 CAF JETS+X # COMMAND +X TRANSLATION - ON (4 JET)
029016,000157: 25,2075 00006 EXTEND
029017,000158: 25,2076 01005 WRITE 5
029018,000159: 25,2077 05307 TC IBNKCALL
029019,000160: 25,2100 34024 CADR ULLAGE # USE LATER
029020,000161:
029021,000162: 25,2101 05114 TC 1LMP+DT
029022,000163: 25,2102 00072 DEC 58 B-14 # LEM/S4B SEPARATE ARM - ON *
029023,000164:
029024,000165: 25,2103 00062 DEC 50 B-14 # WAIT 500 MILLISECONDS
029025,000166:
029026,000167: 25,2104 40077 CS DAPBOOLS # ENABLE DAP
029027,000168: 25,2105 77743 MASK GODAPGO
029028,000169: 25,2106 26077 ADS DAPBOOLS
029029,000170:
029030,000171: 25,2107 05307 TC IBNKCALL # DEADBAND SELECT - MAX
029031,000172: 25,2110 34012 CADR SETMAXDB
029032,000173:
029033,000174: 25,2111 05717 TC FIXDELAY # WAIT 500 MILLISECONDS
029034,000175: 25,2112 00062 DEC 50 B-14
![]() |
Page 647 |
029036,000177:
029037,000178: 25,2113 05307 TC IBNKCALL # GET VEHICLE RATE
029038,000179: 25,2114 34034 CADR SETRATE # HOLD VEHICLE ATTITUDE RATE
029039,000180:
029040,000181: 25,2115 05106 TC 2LMP+DT
029041,000182: 25,2116 00132 DEC 90 B-14 # LEM/S4B SEPARATE - COMMAND **
029042,000183: 25,2117 00004 DEC 4 B-14 # ED BATTERY ACTIVATION - ON *
029043,000184: 25,2120 00012 DEC 10 B-14 # WAIT 100 MILLISECONDS
029044,000185:
029045,000186: 25,2121 05307 TC IBNKCALL # DEADBAND SELECT - MIN
029046,000187: 25,2122 34000 CADR SETMINDB
029047,000188:
029048,000189: 25,2123 E5,1540 EBANK= LEMMASS1
029049,000190: 25,2123 35677 CAF EBANK5
029050,000191: 25,2124 54003 TS EBANK
029051,000192:
029052,000193: 25,2125 00006 EXTEND
029053,000194: 25,2126 31541 DCA LEMMASS1
029054,000195: 25,2127 53333 DXCH MASS
029055,000196:
029056,000197: 25,2130 37761 CAF ZERO
029057,000198: 25,2131 55551 TS DELAREA
029058,000199: 25,2132 55552 TS DELAREA +1
029059,000200:
029060,000201: 25,2133 E4,1566 EBANK= TDEC
029061,000202: 25,2133 37743 CAF EBANK4
029062,000203: 25,2134 54003 TS EBANK
029063,000204:
029064,000205: 25,2135 05717 TC FIXDELAY # WAIT 900 MILLISECONDS
029065,000206: 25,2136 00132 DEC 90 B-14
029066,000207:
029067,000208: 25,2137 06074 TC ENGINOF1 # INSURE THAT ENGINE IS OFF
029068,000209:
029069,000210: 25,2140 05106 TC 2LMP+DT
029070,000211: 25,2141 00073 DEC 59 B-14 # LEM/S4B SEPARATE ARM - OFF *
029071,000212: 25,2142 00226 DEC 150 B-14 # ENGINE SELECT - DESC ARM *
029072,000213: 25,2143 00001 DEC 1 B-14 # WAIT 10 MILLISECONDS
029073,000214:
029074,000215: 25,2144 37744 CAF BIT10 # START ABORT STAGE DISCRETE MONITOR
029075,000216: 25,2145 05701 TC WAITLIST
029076,000217: 25,2146 E4,1566 EBANK= TDEC
029077,000218: 25,2146 02415 52004 2CADR ABTSTGDM
029078,000219:
029079,000220: 25,2150 04127 TC 2PHSCHNG
029080,000221: 25,2151 40072 OCT 40072
029081,000222:
029082,000223: 25,2152 47014 OCT 47014
029083,000224: 25,2153 01000 DEC 512 B-14
029084,000225: 25,2154 E4,1566 EBANK= TDEC
029085,000226: 25,2154 02415 52004 2CADR ABTSTGDM
029086,000227:
029087,000228: 25,2156 05307 SBORBA TC IBNKCALL # DEADBAND SELECT - MIN
![]() |
Page 648 |
029089,000230: 25,2157 34000 CADR SETMINDB
029090,000231:
029091,000232: 25,2160 05114 TC 1LMP+DT
029092,000233: 25,2161 00126 DEC 86 B-14 # MANUAL THROTTLE - ON (10 PC) *
029093,000234: 25,2162 00144 DEC 100 B-14 # WAIT 1 SECOND
029094,000235:
029095,000236: 25,2163 05114 TC 1LMP+DT
029096,000237: 25,2164 00133 DEC 91 B-14 # RESET **
029097,000238: 25,2165 01130 DEC 600 B-14 # WAIT 6 SECONDS
029098,000239:
029099,000240: 25,2166 05307 TC IBNKCALL # HOLD LEM ATTITUDE
029100,000241: 25,2167 34057 CADR STOPRATE
029101,000242: 25,2170 04147 TC PHASCHNG
029102,000243: 25,2171 47012 OCT 47012
029103,000244: 25,2172 00620 DEC 400 B-14
029104,000245: 25,2173 E4,1566 EBANK= TDEC
029105,000246: 25,2173 02177 52004 2CADR SBORB3
029106,000247:
029107,000248: 25,2175 05717 TC FIXDELAY # WAIT 4 SECONDS
029108,000249: 25,2176 00620 DEC 400 B-14
029109,000250:
029110,000251: 25,2177 05114 SBORB3 TC 1LMP+DT
029111,000252: 25,2200 00010 DEC 8 B-14 # LANDING GEAR DEPLOY - FIRE **
029112,000253: 25,2201 00144 DEC 100 B-14 # WAIT 1 SECOND
029113,000254:
029114,000255: 25,2202 06054 TC ENGINEON # COMMAND ENGINE - ON
029115,000256:
029116,000257: 25,2203 04147 TC PHASCHNG
029117,000258: 25,2204 47012 OCT 47012
029118,000259: 25,2205 00144 DEC 100 B-14
029119,000260: 25,2206 E4,1566 EBANK= TDEC
029120,000261: 25,2206 02212 52004 2CADR SBORB4
029121,000262:
029122,000263: 25,2210 05717 TC FIXDELAY # WAIT 1 SECOND
029123,000264: 25,2211 00144 DEC 100 B-14
029124,000265:
029125,000266: 25,2212 05106 SBORB4 TC 2LMP+DT
029126,000267: 25,2213 00005 DEC 5 B-14 # ED BATTERY ACTIVATION - SAFE *
029127,000268: 25,2214 00011 DEC 9 B-14 # RESET **
029128,000269: 25,2215 00620 DEC 400 B-14 # WAIT 4 SECONDS
029129,000270:
029130,000271: 25,2216 06071 TC ENGINOFF # COMMAND ENGINE - OFF
029131,000272:
029132,000273: 25,2217 04147 TC PHASCHNG
029133,000274: 25,2220 47012 OCT 47012
029134,000275: 25,2221 00764 DEC 500 B-14
029135,000276: 25,2222 E4,1566 EBANK= TDEC
029136,000277: 25,2222 02226 52004 2CADR SBORB5
029137,000278:
029138,000279: 25,2224 05717 TC FIXDELAY # WAIT 5 SECONDS
![]() |
Page 649 |
029140,000281: 25,2225 00764 DEC 500 B-14
029141,000282:
029142,000283: 25,2226 06054 SBORB5 TC ENGINEON # COMMAND ENGINE - ON
029143,000284:
029144,000285: 25,2227 04147 TC PHASCHNG
029145,000286: 25,2230 47012 OCT 47012
029146,000287: 25,2231 00310 DEC 200 B-14
029147,000288: 25,2232 E4,1566 EBANK= TDEC
029148,000289: 25,2232 02236 52004 2CADR SBORB6
029149,000290:
029150,000291: 25,2234 05717 TC FIXDELAY # WAIT 2 SECONDS
029151,000292: 25,2235 00310 DEC 200 B-14
029152,000293:
029153,000294: 25,2236 05307 SBORB6 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
029154,000295: 25,2237 34030 CADR NOULLAGE
029155,000296:
029156,000297: 25,2240 04147 TC PHASCHNG
029157,000298: 25,2241 47012 OCT 47012
029158,000299: 25,2242 03554 DEC 1900 B-14
029159,000300: 25,2243 E4,1566 EBANK= TDEC
029160,000301: 25,2243 02247 52004 2CADR SBORB7
029161,000302:
029162,000303: 25,2245 05717 TC FIXDELAY # WAIT 19 SECONDS
029163,000304: 25,2246 03554 DEC 1900 B-14
029164,000305:
029165,000306: 25,2247 05114 SBORB7 TC 1LMP+DT
029166,000307: 25,2250 00336 DEC 222 B-14 # ASCENT WATER COOLANT VALVE - OPEN **
029167,000308: 25,2251 00310 DEC 200 B-14 # WAIT 2 SECONDS
029168,000309:
029169,000310: 25,2252 05114 TC 1LMP+DT
029170,000311: 25,2253 00337 DEC 223 B-14 # RESET **
029171,000312: 25,2254 00454 DEC 300 B-14 # WAIT 3 SECONDS
029172,000313:
029173,000314: 25,2255 35226 CAF PRIO30 # THRUST REQUEST DURING JOB
029174,000315: 25,2256 05534 TC FINDVAC
029175,000316: 25,2257 E5,1557 EBANK= ETHROT
029176,000317: 25,2257 02443 52005 2CADR TRST90PC
029177,000318:
029178,000319: 25,2261 04127 TC 2PHSCHNG
029179,000320: 25,2262 40112 OCT 40112
029180,000321: 25,2263 07023 OCT 07023
029181,000322: 25,2264 30000 OCT 30000
029182,000323: 25,2265 E5,1557 EBANK= ETHROT
029183,000324: 25,2265 02443 52005 2CADR TRST90PC
029184,000325:
029185,000326: 25,2267 05717 TC FIXDELAY # WAIT 4 SECONDS
029186,000327: 25,2270 00620 DEC 400 B-14
029187,000328:
029188,000329: 25,2271 05114 SBORB8 TC 1LMP+DT
029189,000330: 25,2272 00026 DEC 22 B-14 # ABORT STAGE - ARM *
![]() |
Page 650 |
029191,000332: 25,2273 00144 DEC 100 B-14 # WAIT 1 SECOND
029192,000333:
029193,000334: 25,2274 05114 TC 1LMP+DT
029194,000335: 25,2275 00046 DEC 38 B-14 # ABORT STAGE - COMMAND *
029195,000336: 25,2276 00001 DEC 1 B-14 # WAIT 10 MS
029196,000337:
029197,000338: 25,2277 04147 TC PHASCHNG
029198,000339: 25,2300 00002 OCT 00002
029199,000340:
029200,000341: 25,2301 15745 TCF TASKOVER # ABORT STAGE DISCRETE MONITOR RUNNING
029201,000342:
029202,000343:
029203,000344: 25,2302 00006 SBORBB EXTEND
029204,000345: 25,2303 32462 DCA ENDJOB2C
029205,000346: 25,2304 52376 DXCH FLUSHREG
029206,000347:
029207,000348: 25,2305 04147 TC PHASCHNG
029208,000349: 25,2306 47012 OCT 47012
029209,000350: 25,2307 00144 DEC 100 B-14
029210,000351: 25,2310 E4,1566 EBANK= TDEC
029211,000352: 25,2310 02323 52004 2CADR SBORB9
029212,000353:
029213,000354: 25,2312 E5,1542 EBANK= LEMMASS2
029214,000355: 25,2312 35677 CAF EBANK5
029215,000356: 25,2313 54003 TS EBANK
029216,000357:
029217,000358: 25,2314 00006 EXTEND
029218,000359: 25,2315 31543 DCA LEMMASS2
029219,000360: 25,2316 53333 DXCH MASS
029220,000361:
029221,000362: 25,2317 E4,1566 EBANK= TDEC
029222,000363: 25,2317 37743 CAF EBANK4
029223,000364: 25,2320 54003 TS EBANK
029224,000365:
029225,000366: 25,2321 05717 TC FIXDELAY # WAIT 1 SECOND
029226,000367: 25,2322 00144 DEC 100 B-14
029227,000368:
029228,000369: 25,2323 05114 SBORB9 TC 1LMP+DT
029229,000370: 25,2324 00227 DEC 151 B-14 # ENGINE SELECT - DESC ARM OFF *
029230,000371: 25,2325 00620 DEC 400 B-14 # WAIT 4 SECONDS
029231,000372:
029232,000373: 25,2326 06071 TC ENGINOFF # COMMAND ENGINE - OFF
029233,000374:
029234,000375: 25,2327 04147 TC PHASCHNG
029235,000376: 25,2330 47012 OCT 47012
029236,000377: 25,2331 00144 DEC 100 B-14
029237,000378: 25,2332 E4,1566 EBANK= TDEC
029238,000379: 25,2332 02336 52004 2CADR SBORB10
![]() |
Page 651 |
029240,000381:
029241,000382: 25,2334 05717 TC FIXDELAY # WAIT 1 SECOND
029242,000383: 25,2335 00144 DEC 100 B-14
029243,000384:
029244,000385: 25,2336 05114 SBORB10 TC 1LMP+DT
029245,000386: 25,2337 00047 DEC 39 B-14 # ABORT STAGE - COMMAND RESET *
029246,000387: 25,2340 05214 DEC 2700 B-14 # WAIT 27 SECONDS
029247,000388:
029248,000389: 25,2341 05307 TC IBNKCALL # COMMAND +X TRANSLATION - ON (4 JET)
029249,000390: 25,2342 34024 CADR ULLAGE
029250,000391:
029251,000392: 25,2343 04147 TC PHASCHNG
029252,000393: 25,2344 47012 OCT 47012
029253,000394: 25,2345 00310 DEC 200 B-14
029254,000395: 25,2346 E4,1566 EBANK= TDEC
029255,000396: 25,2346 02352 52004 2CADR SBORB11
029256,000397:
029257,000398: 25,2350 05717 TC FIXDELAY # WAIT 2 SECONDS
029258,000399: 25,2351 00310 DEC 200 B-14
029259,000400:
029260,000401: 25,2352 06054 SBORB11 TC ENGINEON # COMMAND ENGINE - ON
029261,000402:
029262,000403: 25,2353 04147 TC PHASCHNG
029263,000404: 25,2354 47012 OCT 47012
029264,000405: 25,2355 00310 DEC 200 B-14
029265,000406: 25,2356 E4,1566 EBANK= TDEC
029266,000407: 25,2356 02362 52004 2CADR SBORB12
029267,000408:
029268,000409: 25,2360 05717 TC FIXDELAY # WAIT 2 SECONDS
029269,000410: 25,2361 00310 DEC 200 B-14
029270,000411:
029271,000412: 25,2362 05307 SBORB12 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
029272,000413: 25,2363 34030 CADR NOULLAGE
029273,000414:
029274,000415: 25,2364 04147 TC PHASCHNG
029275,000416: 25,2365 47012 OCT 47012
029276,000417: 25,2366 13250 DEC 5800 B-14
029277,000418: 25,2367 E4,1566 EBANK= TDEC
029278,000419: 25,2367 02373 52004 2CADR SBORB13
029279,000420:
029280,000421: 25,2371 05717 TC FIXDELAY # WAIT 58 SECONDS
029281,000422: 25,2372 13250 DEC 5800 B-14
029282,000423:
029283,000424: 25,2373 06071 SBORB13 TC ENGINOFF # COMMAND ENGINE - OFF
029284,000425:
029285,000426: 25,2374 04147 TC PHASCHNG
029286,000427: 25,2375 47012 OCT 47012
029287,000428: 25,2376 00144 DEC 100 B-14
029288,000429: 25,2377 E4,1566 EBANK= TDEC
029289,000430: 25,2377 02403 52004 2CADR SBORB14
![]() |
Page 652 |
029291,000432:
029292,000433: 25,2401 05717 TC FIXDELAY # WAIT 1 SECOND
029293,000434: 25,2402 00144 DEC 100 B-14
029294,000435:
029295,000436: 25,2403 05114 SBORB14 TC 1LMP+DT
029296,000437: 25,2404 00207 DEC 135 B-14 # ENGINE SELECT - ASC ARM OFF *
029297,000438: 25,2405 05524 DEC 2900 B-14 # WAIT 29 SECONDS
029298,000439:
029299,000440: 25,2406 06036 TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
029300,000441: 25,2407 00001 OCT 00001
029301,000442:
029302,000443: 25,2410 05307 TC IBNKCALL # DEADBAND SELECT - MAX
029303,000444: 25,2411 34012 CADR SETMAXDB
029304,000445:
029305,000446: 25,2412 04147 TC PHASCHNG
029306,000447: 25,2413 00002 OCT 00002
029307,000448:
029308,000449: 25,2414 05745 TC TASKOVER
029309,000450:
029310,000451:
029311,000452: 25,2415 37752 ABTSTGDM CAF BIT4 # ABORT STAGE DISCRETE MONITOR
029312,000453: 25,2416 00006 EXTEND
029313,000454: 25,2417 02030 RAND 30
029314,000455:
029315,000456: 25,2420 00006 EXTEND
029316,000457: 25,2421 12425 BZF ABTSTG1 # YES
029317,000458:
029318,000459: 25,2422 05717 TC FIXDELAY # WAIT .5 SECONDS
029319,000460: 25,2423 00062 DEC 50 B-14
029320,000461:
029321,000462: 25,2424 12415 TCF ABTSTGDM
029322,000463:
029323,000464: 25,2425 04127 ABTSTG1 TC 2PHSCHNG
029324,000465: 25,2426 00004 OCT 00004
029325,000466: 25,2427 47012 OCT 47012
029326,000467: 25,2430 77777 OCT 77777
029327,000468: 25,2431 E4,1566 EBANK= TDEC
029328,000469: 25,2431 02302 52004 2CADR SBORBB
029329,000470:
029330,000471: 25,2433 00006 EXTEND
029331,000472: 25,2434 32464 DCA SBORBB2C
029332,000473: 25,2435 52376 DXCH FLUSHREG
029333,000474:
029334,000475: 25,2436 35676 CAF PRIO37 # GENERATE RESTART IMMEDIATELY
029335,000476: 25,2437 05523 TC NOVAC
029336,000477: 25,2440 E4,1566 EBANK= TDEC
029337,000478: 25,2440 02015 16004 2CADR ENEMA
029338,000479:
029339,000480: 25,2442 15745 TCF TASKOVER
029340,000481:
![]() |
Page 653 |
029342,000483:
029343,000484:
029344,000485:
029345,000486: 25,2443 37735 TRST90PC CAF POSMAX # INCREASE THROTTLE 90 PERCENT
029346,000487: 25,2444 55335 TS PCNTF
029347,000488: 25,2445 00006 EXTEND
029348,000489: 25,2446 32466 DCA THRSTLOC
029349,000490: 25,2447 52006 DXCH Z
029350,000491:
029351,000492: 25,2450 04147 TC PHASCHNG
029352,000493: 25,2451 00003 OCT 00003
029353,000494:
029354,000495: 25,2452 15605 TCF ENDOFJOB
029355,000496:
029356,000497:
029357,000498: 25,2453 00004 SBORBBJB INHINT
029358,000499: 25,2454 37755 CAF BIT1
029359,000500: 25,2455 05701 TC WAITLIST
029360,000501: 25,2456 E4,1566 EBANK= TDEC
029361,000502: 25,2456 02302 52004 2CADR SBORBB
029362,000503:
029363,000504: 25,2460 15605 TCF ENDOFJOB
029364,000505:
029365,000506:
029366,000507: 25,2461 E3,1400 EBANK= LST1
029367,000508: 25,2461 05605 04003 ENDJOB2C 2CADR ENDOFJOB
029368,000509:
029369,000510: 25,2463 E4,1566 EBANK= TDEC
029370,000511: 25,2463 02453 52004 SBORBB2C 2CADR SBORBBJB
029371,000512:
029372,000513: 25,2465 E5,1557 EBANK= ETHROT
029373,000514: 25,2465 03367 60065 THRSTLOC 2CADR PCNTFMAX
End of include-file MP_3_-_SUBORBITAL_ABORT.agc. Parent file is MAIN.agc