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