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. |
029640,000002: ## Copyright: Public domain.
029641,000003: ## Filename: MP4-CONTINGENCY_ORBIT_INSERTION.agc
029642,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
029643,000005: ## is part of the source code for the Lunar Module's
029644,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
029645,000007: ## Assembler: yaYUL
029646,000008: ## Contact: Ron Burkey <info@sandroid.org>.
029647,000009: ## Website: www.ibiblio.org/apollo/index.html
029648,000010: ## Mod history: 2016-09-30 RSB Created draft version.
029649,000011: ## 2016-10-24 MAS Transcribed.
029650,000012: ## 2016-10-31 RSB Typos.
029651,000013: ## 2016-11-01 RSB Correction for overprinted area (p. 707).
029652,000014: ## 2016-11-06 MAS Removed workaround for overprinted area.
029653,000015: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
029654,000016: ## changes made.
029655,000017:
|
|
Page 696 |
029657,000019: 33,2000 BANK 33
029658,000020:
029659,000021: 33,2000 E4,1566 EBANK= TDEC
029660,000022: # PROGRAM NAME- DATE-
029661,000023: # MISSION PHASE 4 14 DECEMBER 1966
029662,000024: # MOD NO- 21 LOG SECTION-
029663,000025: # MOD BY- SCHULENBERG MP4-CONTINGENCY ORBIT INSERTION
029664,000026:
029665,000027: # FUNCTIONAL DESCRIPTION-
029666,000028: # CONTINGENCY ORBIT INSERTION IS CALLED BY GROUND IN EVENT OF PREMATURE SIVB SHUTDOWN AND ATTEMPTS TO
029667,000029: # EFFECT AN ORBITAL INSERTION USING THE DPS ENGINE AND THE GUIDANCE EQUATIONS USED FOR THE APS BURNS. THE
029668,000030: # PROGRAM LEAVES MISSION PHASE TIMERS INHIBITED AND LEAVES FURTHER CONTROLTO THE GROUND VIA UPLINK.
029669,000031: # CALLING SEQUENCE- SUBROUTINES CALLED-
029670,000032: # START MP4 WHEN ABORT FLAG1UP FLAG1DWN
029671,000033: # COMMAND MONITOR DETECTS MP4 FIXDELAY WAITLIST
029672,000034: # COMMAND VIA LGC UPLINK. VPATCHER KALCMANU
029673,000035: # ASCENT UL4JETON
029674,000036: # NORMAL EXIT MODES- LMP UL4JETOF
029675,000037: # TASKOVER (AWAITS EXECUTIVE ENGINEON
029676,000038: # FURTHER COMMANDS FROM GROUND) MIDTOAVE ENGINOFF
029677,000039: # ALARM EXIT MODES- BANKCALL ENGINOF1
029678,000040: # NONE IBNKCALL LASTBIAS
029679,000041:
029680,000042: # ERASABLE INITIALIZATION REQUIRED-
029681,000043: # RINJECT = INJECTION RADIUS DESIRED IN METERS * 2(-25)
029682,000044: # VINJECT = ORBITAL VELOCITY DESIRED IN METERS/CENTISECOND * 2(-7
029683,000045:
029684,000046: # OUTPUT- SAME AS FOR KALCMANU
029685,000047: # DEBRIS- SAME AS FOR KALCMANU
029686,000048:
029687,000049: 33,2000 04161 MP4JOB TC PHASCHNG
029688,000050: 33,2001 05022 OCT 05022
029689,000051: 33,2002 27000 OCT 27000
029690,000052:
029691,000053: 33,2003 37760 CAF BIT4
029692,000054: 33,2004 04105 TC SETRSTRT # SET RESTART FLAG
029693,000055:
029694,000056: 33,2005 06051 TC FLAG1UP
029695,000057: 33,2006 00040 OCT 00040 # POOH FLAG ON
029696,000058:
029697,000059: 33,2007 04117 TC NEWMODEX # START CONTINGENCY ORBIT INSERTION
029698,000060: 33,2010 00072 OCT 72
029699,000061:
029700,000062: 33,2011 37761 CAF FOUR # SIGNAL START OF MISSION PHASE 4
029701,000063: 33,2012 54764 TS PHASENUM
029702,000064:
029703,000065: 33,2013 06067 TC FLAG1DWN # TERMINATE AVEG AND DO AUTO AVETOMID
029704,000066: 33,2014 00001 OCT 1
029705,000067:
029706,000068: 33,2015 00004 INHINT
029707,000069:
|
|
Page 697 |
029709,000071: 33,2016 37763 CAF BIT1
029710,000072: 33,2017 05663 TC WAITLIST # SHORT WAITLIST TO INITIALIZE LMP COMMAND
029711,000073: 33,2020 E4,1566 EBANK= TDEC
029712,000074: 33,2020 02023 66064 2CADR ABORTPRR
029713,000075:
029714,000076: 33,2022 15567 TCF ENDOFJOB # END MP4JOB
029715,000077:
029716,000078: # RCS ABORT PRESSURIZATION ROUTINE
029717,000079:
029718,000080: 33,2023 37767 ABORTPRR CAF ZERO # INSURE RCS JETS OFF
029719,000081: 33,2024 00006 EXTEND
029720,000082: 33,2025 01006 WRITE 6
029721,000083: 33,2026 00006 EXTEND
029722,000084: 33,2027 01005 WRITE 5
029723,000085:
029724,000086: 33,2030 04161 TC PHASCHNG
029725,000087: 33,2031 47012 OCT 47012
029726,000088: 33,2032 00144 DEC 100 B-14
029727,000089: 33,2033 E4,1566 EBANK= TDEC
029728,000090: 33,2033 02037 66064 2CADR OPESYS
029729,000091:
029730,000092: 33,2035 05701 TC FIXDELAY
029731,000093: 33,2036 00144 DEC 100 B-14 # DELAY ONE SECOND
029732,000094:
029733,000095: 33,2037 05073 OPESYS TC 2LMP+DT
029734,000096: 33,2040 00274 DEC 188 B-14 # RCS MAIN S/O VALVES, SYS A-OPEN**
029735,000097: 33,2041 00276 DEC 190 B-14 # RCS MAIN S/O VALVES, SYS B-OPEN**
029736,000098: 33,2042 00144 DEC 100 B-14 # DELAY ONE SECOND
029737,000099:
029738,000100: 33,2043 05101 TC 1LMP+DT
029739,000101: 33,2044 00004 DEC 4 B-14 # ED BATTERY ACTIVATION-ON
029740,000102: 33,2045 00144 DEC 100 B-14 # DELAY ONE SECOND
029741,000103:
029742,000104: 33,2046 05073 TC 2LMP+DT
029743,000105: 33,2047 00275 DEC 189 B-14 # RCS MAIN S/O VALVES, SYS A-OPEN RESET
029744,000106: 33,2050 00277 DEC 191 B-14 # RCS MAIN S/O VALVES, SYS B-OPEN RESET
029745,000107: 33,2051 00144 DEC 100 B-14 # DELAY ONE SECOND
029746,000108:
029747,000109: 33,2052 05101 TC 1LMP+DT
029748,000110: 33,2053 00006 DEC 6 B-14 # RCS PRESSURE-FIRE**
029749,000111: 33,2054 00144 DEC 100 B-14 # DELAY ONE SECOND
029750,000112:
029751,000113: 33,2055 05101 TC 1LMP+DT
029752,000114: 33,2056 00005 DEC 5 B-14 # ED BATTERY ACTIVATION-SAFE
029753,000115: 33,2057 00144 DEC 100 B-14 # DELAY ONE SECOND
029754,000116:
029755,000117: 33,2060 05101 TC 1LMP+DT
029756,000118: 33,2061 00007 DEC 7 B-14 # RCS PRESSURE - FIRE RESET
029757,000119: 33,2062 00620 DEC 400 B-14 # DELAY FOUR SECONDS
029758,000120:
|
|
Page 698 |
029760,000122: # END RCS ABORT PRESSURIZATION ROUTINE
029761,000123:
029762,000124: 33,2063 30075 TUMBLCHK CA FLAGWRD1
029763,000125: 33,2064 77747 MASK BIT13
029764,000126: 33,2065 00006 EXTEND
029765,000127: 33,2066 12077 BZF NOTUMBL
029766,000128:
029767,000129: 33,2067 04161 TC PHASCHNG
029768,000130: 33,2070 47012 OCT 47012
029769,000131: 33,2071 00062 DEC 50 B-14
029770,000132: 33,2072 E4,1566 EBANK= TDEC
029771,000133: 33,2072 02063 66064 2CADR TUMBLCHK
029772,000134:
029773,000135: 33,2074 05701 TC FIXDELAY
029774,000136: 33,2075 00062 DEC 50 B-14 # DELAY .5 SECS AND CHECK AGAIN
029775,000137: 33,2076 12063 TCF TUMBLCHK
029776,000138:
029777,000139: 33,2077 06067 NOTUMBL TC FLAG1DWN # IF NO TUMBLING-TERMINATE MONITOR
029778,000140: 33,2100 20000 OCT 20000 # TERMINATE TUMBLE MONITOR
029779,000141:
029780,000142: 33,2101 00006 TIG4-51 EXTEND
029781,000143: 33,2102 30025 DCA TIME2 # GET CURRENT TIME
029782,000144: 33,2103 53305 DXCH TDECTEMP
029783,000145:
029784,000146: 33,2104 32613 CAF 021CEK # UPDATE STATE TO TIG4-30
029785,000147: 33,2105 54001 TS L
029786,000148: 33,2106 37767 CAF ZERO
029787,000149: 33,2107 21305 DAS TDECTEMP
029788,000150:
029789,000151: 33,2110 00006 EXTEND
029790,000152: 33,2111 31305 DCA TDECTEMP
029791,000153: 33,2112 53670 DXCH TIGN
029792,000154: 33,2113 32614 CAF 030CEK
029793,000155: 33,2114 56001 XCH L
029794,000156: 33,2115 37767 CAF ZERO
029795,000157: 33,2116 21670 DAS TIGN # FOR DOWNLINK USE - NOMINAL TIGN
029796,000158: # BEGIN ABORT LEM/S4B SEPARATION PROCEDURE
029797,000159:
029798,000160: 33,2117 40075 MP4SEP CS FLAGWRD1
029799,000161: 33,2120 77760 MASK BIT4
029800,000162: 33,2121 26075 ADS FLAGWRD1
029801,000163:
029802,000164: 33,2122 32615 CAF XTRANSON # +X TRANSLATION- ON (PRE-DAP)
029803,000165: 33,2123 00006 EXTEND
029804,000166: 33,2124 01005 WRITE 5
029805,000167:
029806,000168: 33,2125 05270 TC IBNKCALL # +X TRANSLATION-ON (4JET)
029807,000169: 33,2126 40062 CADR ULLAGE
029808,000170:
029809,000171: 33,2127 05101 TC 1LMP+DT
|
|
Page 699 |
029811,000173: 33,2130 00072 DEC 58 B-14 # LEM/SIVB SEPARATE - ARM ON
029812,000174: 33,2131 00062 DEC 50 B-14 # DELAY 500 MS.
029813,000175:
029814,000176: 33,2132 40077 CS DAPBOOLS
029815,000177: 33,2133 77751 MASK GODAPGO # TURN ON THE DAP
029816,000178: 33,2134 26077 ADS DAPBOOLS
029817,000179:
029818,000180: 33,2135 05270 TC IBNKCALL
029819,000181: 33,2136 40054 CADR SETMAXDB
029820,000182:
029821,000183: 33,2137 04161 TC PHASCHNG
029822,000184: 33,2140 47012 OCT 47012
029823,000185: 33,2141 00062 DEC 50 B-14
029824,000186: 33,2142 E4,1566 EBANK= TDEC
029825,000187: 33,2142 02146 66064 2CADR MP4HOLD
029826,000188:
029827,000189: 33,2144 05701 TC FIXDELAY # WAIT FOR 300 MS.
029828,000190: 33,2145 00062 DEC 50 B-14 # DELAY 500 MS.
029829,000191:
029830,000192: 33,2146 05270 MP4HOLD TC IBNKCALL
029831,000193: 33,2147 40072 CADR HOLDRATE
029832,000194:
029833,000195: 33,2150 05101 TC 1LMP+DT
029834,000196: 33,2151 00132 DEC 90 B-14 # LEM/SIVB SEPARATE- COMMAND
029835,000197: 33,2152 00012 DEC 10 B-14 # DELAY 100 MS.
029836,000198:
029837,000199: 33,2153 05270 TC IBNKCALL
029838,000200: 33,2154 40046 CADR SETMINDB
029839,000201:
029840,000202: 33,2155 04161 TC PHASCHNG
029841,000203: 33,2156 47012 OCT 47012
029842,000204: 33,2157 00132 DEC 90 B-14
029843,000205: 33,2160 E4,1566 EBANK= TDEC
029844,000206: 33,2160 02164 66064 2CADR TIG4-49
029845,000207:
029846,000208: 33,2162 05701 TC FIXDELAY
029847,000209: 33,2163 00132 DEC 90 B-14 # DELAY 900 MS.
029848,000210:
029849,000211: 33,2164 05101 TIG4-49 TC 1LMP+DT
029850,000212: 33,2165 00073 DEC 59 B-14 # LEM/S4B SEPARATE-ARM-OFF
029851,000213: 33,2166 00144 DEC 100 B-14 # DELAY ONE SECOND
029852,000214:
029853,000215: 33,2167 05060 TIG4-48 TC 1LMP
029854,000216: 33,2170 00133 DEC 91 B-14 # LEM/S4B SEPARATE-COMMAND RESET
029855,000217:
029856,000218: # END LEM/S4B SEPARATION ROUTINE
029857,000219:
029858,000220: 33,2171 32612 CAF 007CEK
029859,000221: 33,2172 05663 TC WAITLIST
029860,000222: 33,2173 E4,1566 EBANK= TDEC
|
|
Page 700 |
029862,000224: 33,2173 02351 66064 2CADR TIG4-41
029863,000225:
029864,000226: 33,2175 04141 TC 2PHSCHNG
029865,000227: 33,2176 40152 OCT 40152 # TABLES RESTART FOR TIG4-41
029866,000228: 33,2177 05014 OCT 05014
029867,000229: 33,2200 77777 OCT 77777
029868,000230:
029869,000231: 33,2201 35651 CAF PRIO27 # START NEW JOB FOR CALCULATIONS
029870,000232: 33,2202 05516 TC FINDVAC
029871,000233: 33,2203 E4,1566 EBANK= TDEC
029872,000234: 33,2203 02206 66064 2CADR LONGJOB
029873,000235:
029874,000236: 33,2205 15727 TCF TASKOVER # END TIG4-48 TASK
029875,000237:
029876,000238: 33,2206 06112 LONGJOB TC INTPRET # SET INTEGRSW SO THAT THE THIRD TESTLOOP
029877,000239: 33,2207 77414 SET EXIT # OF MIDTOAVE WILL GENERATE IGN+28 STATES
029878,000240: 33,2210 02072 INTEGRSW # INSTEAD OF IGNITION STATES.
029879,000241:
029880,000242: 33,2211 00006 EXTEND # RESET TDEC IN CASE OF A RESTART
029881,000243: 33,2212 31305 DCA TDECTEMP
029882,000244: 33,2213 53567 DXCH TDEC
029883,000245:
029884,000246: 33,2214 00006 EXTEND
029885,000247: 33,2215 32654 DCA ORBINTAD # DO ORBITAL INTEGRATION
029886,000248: 33,2216 52006 DXCH Z
029887,000249:
029888,000250: 33,2217 04161 TC PHASCHNG
029889,000251: 33,2220 05024 OCT 05024
029890,000252: 33,2221 27000 OCT 27000
029891,000253:
029892,000254: 33,2222 32661 PRECOI CAF KALC4AD
029893,000255: 33,2223 55450 TS ASCRET
029894,000256: 33,2224 06112 TC INTPRET
029895,000257: 33,2225 77624 CALL
029896,000258: 33,2226 60436 VPATCHER # RESCALE AND LOAD IGN STATES IN RN AND VN
029897,000259: 33,2227 77776 EXIT
029898,000260:
029899,000261: 33,2230 04161 TC PHASCHNG # BECAUSE PAXIS1 & QAXIS TIME-SHARE
029900,000262: 33,2231 04024 OCT 04024 # LOCATIONS WITH RN & VN.
029901,000263:
029902,000264: 33,2232 06112 TC INTPRET
029903,000265: 33,2233 77775 VLOAD
029904,000266: 33,2234 01017 VN # VN FROM VPATCHER=VIGNTION*2(-7) M/CS
029905,000267: 33,2235 53435 VXV UNIT
029906,000268: 33,2236 01011 RN # RN FROM VPATCHER=RIGNTION*2(N-29) M
029907,000269: 33,2237 26007 STOVL QAXIS # UNIT HORIZONTAL VECTOR NORMAL TO ORBIT
029908,000270: 33,2240 01033 UNITR # UNITR FROM AVEG=UNIT(RIGNTION)*2(-1) M
029909,000271: 33,2241 02001 STORE PAXIS1
029910,000272: 33,2242 76435 VXV VSL1
029911,000273: 33,2243 02007 QAXIS
|
|
Page 701 |
029913,000275: 33,2244 26015 STOVL SAXIS # UNIT HORIZONTAL VECTOR PARALLEL TO ORBIT
029914,000276: 33,2245 26617 ABLOCK
029915,000277: 33,2246 26023 STOVL AT
029916,000278: 33,2247 26625 BBLOCK
029917,000279: 33,2250 26031 STOVL ATMEAS
029918,000280: 33,2251 26643 CBLOCK
029919,000281: 33,2252 16041 STODL RDOTD # RDOTD, YDOTD. ZDOTD FIXED LATER.
029920,000282: 33,2253 26635 KR1EST
029921,000283: 33,2254 16037 STODL KR1 # LOAD ATTITUDE LIMITING PARAMETER
029922,000284: 33,2255 26637 TGOEST
029923,000285: 33,2256 16141 STODL TGO
029924,000286: 33,2257 03572 VTO-DPS
029925,000287: 33,2260 16057 STODL VTO # LOAD DPS TAILOFF VELOCITY FOR ASCENT
029926,000288: 33,2261 03436 RINJECT
029927,000289: 33,2262 16375 STODL RCO # LOAD INJECTION RADIUS FOR ASCENT
029928,000290: 33,2263 03440 VINJECT
029929,000291: 33,2264 16045 STODL ZDOTD # LOAD INJECTION VELOCITY FOR ASCENT
029930,000292: 33,2265 26633 KREST
029931,000293: 33,2266 02061 STORE KR
029932,000294: 33,2267 77614 CLEAR
029933,000295: 33,2270 02267 DIRECT
029934,000296: 33,2271 50375 VLOAD DOT
029935,000297: 33,2272 02015 SAXIS
029936,000298: 33,2273 01017 VN # ZDOT*2(-8)
029937,000299: 33,2274 77752 SL1 # *2(-7)
029938,000300: 33,2275 26105 STOVL ZDOT
029939,000301: 33,2276 02001 PAXIS1
029940,000302: 33,2277 72441 DOT SL1 # RDOT*2(-8)
029941,000303: 33,2300 01017 VN # *2(-7)
029942,000304: 33,2301 16147 STODL RDOT
029943,000305: 33,2302 26643 DP0
029944,000306: 33,2303 02067 STORE YDOT # YDOT = 0
029945,000307: 33,2304 52014 SET GOTO
029946,000308: 33,2305 02066 BAKTO4
029947,000309: 33,2306 64125 ASCENT # GO TO USE GEFF SECTION OF ASCENT
029948,000310: 33,2307 77742 GFKNOWN SR1 # LET AVG GEFF = .5 GEFF
029949,000311: 33,2310 02111 STORE GEFF
029950,000312: 33,2311 77650 GOTO
029951,000313: 33,2312 64404 GAIN
029952,000314: 33,2313 43345 TKNOWN DLOAD DAD
029953,000315: 33,2314 02041 RDOTD
029954,000316: 33,2315 02147 RDOT # (RDOT+RDOTD)*2(-7)
029955,000317: 33,2316 41342 SR1 DMP # .5RDOTAVE*2(-7)
029956,000318: 33,2317 02141 TGO # RGO*2(-24),SINCE TGO IS *2(-17)
029957,000319: 33,2320 70415 DAD SR1 # RFREE IS RCO FOR NO R-CONTROL,*2(-24)
029958,000320: 33,2321 01047 RMAG # *2(-25)
029959,000321: 33,2322 51025 DSU BPL
029960,000322: 33,2323 02375 RCO
029961,000323: 33,2324 66330 FREE-R
029962,000324: 33,2325 52014 CLEAR GOTO # IF RFREE SMTHAN RCO, CONSTRAIN RCO
|
|
Page 702 |
029964,000326: 33,2326 02271 HC
029965,000327: 33,2327 64125 ASCENT
029966,000328: 33,2330 52014 FREE-R SET GOTO
029967,000329: 33,2331 02071 HC # IF RFREE GRTHAN RCO, FREE RCO
029968,000330: 33,2332 64125 ASCENT
029969,000331: 33,2333 43175 PREKALC4 VLOAD CLEAR
029970,000332: 33,2334 02233 AXISD
029971,000333: 33,2335 02273 ENGOFFSW # TO AVOID MULTIPLE ENGINOFF COMMANDS
029972,000334: 33,2336 25656 STOVL POINTVSM # KALCMANU INPUT REGISTER
029973,000335: 33,2337 26641 BODYVECT # LOAD BODY AXES VECTOR IN SM COORDS
029974,000336: 33,2340 01664 STORE SCAXIS # KALCMANU INPUT VECTOR
029975,000337: 33,2341 66214 SET SSP
029976,000338: 33,2342 01063 33D
029977,000339:
029978,000340: 33,2343 01653 RATEINDX
029979,000341: 33,2344 00006 6 # 10 DEGREE/SEC MANEUVERING RATE
029980,000342: 33,2345 77776 EXIT
029981,000343:
029982,000344: 33,2346 04161 TC PHASCHNG
029983,000345: 33,2347 00004 OCT 00004 # DEACTIVATE GR 4
029984,000346:
029985,000347: 33,2350 15567 TCF ENDOFJOB # END LONGJOB
029986,000348:
029987,000349: 33,2351 32646 TIG4-41 CAF AVGENADR # GENADR OF AVERAGEG
029988,000350: 33,2352 55310 TS DVSELECT
029989,000351:
029990,000352: 33,2353 00006 EXTEND
029991,000353: 33,2354 32652 DCA EXITADR # SET AVEG TO EXIT TO END OF JOB UNTIL
029992,000354: 33,2355 53073 DXCH AVGEXIT # IT IS RESET TO ATMAG
029993,000355:
029994,000356: 33,2356 00006 EXTEND
029995,000357: 33,2357 32650 DCA MP4TM1AD # SET MONITOR EXIT
029996,000358: 33,2360 53075 DXCH DVMNEXIT
029997,000359:
029998,000360: 33,2361 05101 TC 1LMP+DT
029999,000361: 33,2362 00004 DEC 4 B-14 # ED BATTERY ACTIVATION-ON
030000,000362: 33,2363 00620 DEC 400 B-14 # DELAY 4 SECONDS
030001,000363:
030002,000364: 33,2364 05270 TIG4-37 TC IBNKCALL # +X TRANSLATION- OFF
030003,000365: 33,2365 40066 CADR NOULLAGE
030004,000366:
030005,000367: 33,2366 05270 TC IBNKCALL
030006,000368: 33,2367 40114 CADR STOPRATE # HOLD VEHICLE ATTITUDE
030007,000369:
030008,000370: 33,2370 04161 TC PHASCHNG
030009,000371: 33,2371 47012 OCT 47012
030010,000372: 33,2372 00144 DEC 100 B-14
030011,000373: 33,2373 E4,1566 EBANK= TDEC
030012,000374: 33,2373 02377 66064 2CADR TIG4-36
030013,000375:
|
|
Page 703 |
030015,000377: 33,2375 05701 TC FIXDELAY
030016,000378: 33,2376 00144 DEC 100 B-14 # DELAY ONE SECOND
030017,000379:
030018,000380: 33,2377 05060 TIG4-36 TC 1LMP
030019,000381: 33,2400 00010 DEC 8 B-14 # LANDING GEAR DEPLOY-FIRE
030020,000382:
030021,000383: 33,2401 32606 CAF 002CEK
030022,000384: 33,2402 05663 TC WAITLIST
030023,000385: 33,2403 E4,1566 EBANK= TDEC
030024,000386: 33,2403 02416 66064 2CADR TIG4-34
030025,000387:
030026,000388: 33,2405 04141 TC 2PHSCHNG
030027,000389: 33,2406 40172 OCT 40172
030028,000390: 33,2407 05013 OCT 05013 # GR 3 FOR KALCMANU
030029,000391: 33,2410 77777 OCT 77777
030030,000392:
030031,000393: 33,2411 35642 CAF PRIO16 # CALL KALCMANU.
030032,000394: 33,2412 05516 TC FINDVAC
030033,000395: 33,2413 E3,1535 EBANK= MIS
030034,000396: 33,2413 02001 70063 2CADR VECPOINT
030035,000397:
030036,000398: 33,2415 15727 TCF TASKOVER # END TIG4-36 TASK
030037,000399:
030038,000400: 33,2416 32610 TIG4-34 CAF 004CEK # SET PREREAD CALL (AUTO LASTBIAS)
030039,000401: 33,2417 05663 TC WAITLIST
030040,000402: 33,2420 E5,1506 EBANK= DVTOTAL
030041,000403: 33,2420 02000 60065 2CADR PREREAD
030042,000404:
030043,000405: 33,2422 04141 TC 2PHSCHNG
030044,000406: 33,2423 40275 OCT 40275 # 5.27 SPOT FOR PREREAD
030045,000407: 33,2424 05012 OCT 05012 # GR 2 CONTINUES HERE
030046,000408: 33,2425 77777 OCT 77777
030047,000409:
030048,000410: 33,2426 05101 TC 1LMP+DT
030049,000411: 33,2427 00011 DEC 9 B-14 # LANDING GEAR DEPLOY- FIRE RESET
030050,000412: 33,2430 00622 DEC 402 B-14 # DELAY 4 SECONDS
030051,000413:
030052,000414: 33,2431 05270 TIG4-30 TC IBNKCALL
030053,000415: 33,2432 40277 CADR ENGINOF1
030054,000416:
030055,000417: 33,2433 05073 TC 2LMP+DT
030056,000418: 33,2434 00226 DEC 150 B-14 # ENGINE SELECT- DESC ARM
030057,000419: 33,2435 00126 DEC 86 B-14 # MANUAL THROTTLE- ON 10 PERCENT
030058,000420: 33,2436 02566 DEC 1398 B-14 # DELAY 14 SECONDS
030059,000421:
030060,000422: 33,2437 05073 TIG4-16 TC 2LMP+DT
030061,000423: 33,2440 00344 DEC 228 B-14 # DPS PQGS ARM NO 1 - ENABLE
030062,000424: 33,2441 00304 DEC 196 B-14 # DPS PQGS ARM NO 2- ENABLE
030063,000425: 33,2442 00144 DEC 100 B-14
030064,000426:
|
|
Page 704 |
030066,000428: 33,2443 05073 TIG4-15 TC 2LMP+DT
030067,000429: 33,2444 00364 DEC 244 B-14 # DPS PQGS NO 1- ON
030068,000430: 33,2445 00324 DEC 212 B-14 # DPS PQGS NO 2- ON
030069,000431: 33,2446 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
030070,000432:
030071,000433: 33,2447 05270 TIG4-7.5 TC IBNKCALL # +X TRANSLATION- ON
030072,000434: 33,2450 40062 CADR ULLAGE
030073,000435:
030074,000436: 33,2451 04161 TC PHASCHNG
030075,000437: 33,2452 47012 OCT 47012
030076,000438: 33,2453 01356 DEC 750 B-14
030077,000439: 33,2454 E4,1566 EBANK= TDEC
030078,000440: 33,2454 02460 66064 2CADR TIG4TST
030079,000441:
030080,000442: 33,2456 05701 TC FIXDELAY
030081,000443: 33,2457 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
030082,000444:
030083,000445: 33,2460 35643 TIG4TST CAF PRIO17
030084,000446: 33,2461 05505 TC NOVAC
030085,000447: 33,2462 E4,1566 EBANK= TDEC
030086,000448: 33,2462 02465 66064 2CADR IGNTEST
030087,000449:
030088,000450: 33,2464 15727 TCF TASKOVER
030089,000451:
030090,000452: 33,2465 05206 IGNTEST TC BANKCALL # WAIT UNTIL MANEUVER IS FINISHED
030091,000453: 33,2466 26743 CADR ATTSTALL
030092,000454: 33,2467 04743 TC CURTAINS
030093,000455:
030094,000456: 33,2470 00004 MP4IGN INHINT
030095,000457: 33,2471 05270 TC IBNKCALL
030096,000458: 33,2472 40226 CADR DPSENGON
|
|
DPSENGON in the above line has a green arrow pointing to it. |
030098,000460:
030099,000461: 33,2473 32607 CAF 003CEK
030100,000462: 33,2474 05663 TC WAITLIST
030101,000463: 33,2475 E4,1566 EBANK= TDEC
030102,000464: 33,2475 02506 66064 2CADR MP4IGN+3
030103,000465:
030104,000466: 33,2477 04141 TC 2PHSCHNG
030105,000467: 33,2500 00003 OCT 00003
030106,000468: 33,2501 47012 OCT 47012
030107,000469: 33,2502 00454 DEC 300 B-14
030108,000470: 33,2503 E4,1566 EBANK= TDEC
030109,000471: 33,2503 02506 66064 2CADR MP4IGN+3
030110,000472:
030111,000473: 33,2505 15567 TCF ENDOFJOB
030112,000474:
030113,000475: 33,2506 05270 MP4IGN+3 TC IBNKCALL # +X TRANSLATION- OFF
030114,000476: 33,2507 40066 CADR NOULLAGE
030115,000477:
030116,000478: 33,2510 05101 TC 1LMP+DT
|
|
Page 705 |
030118,000480: 33,2511 00005 DEC 5 B-14 # ED BATTERY ACTIVATION- SAFE
030119,000481: 33,2512 04374 DEC 2300 B-14 # DELAY 23 SECONDS
030120,000482:
030121,000483: 33,2513 37743 MAXTHRST CAF POSMAX # CALL FOR 92.5 PERCENT THRUST
030122,000484: 33,2514 55323 TS PCNTF
030123,000485: 33,2515 00006 EXTEND
030124,000486: 33,2516 32656 DCA PCNTFMAD
030125,000487: 33,2517 52006 DTCB
030126,000488:
030127,000489: 33,2520 04141 TC 2PHSCHNG # PROTECT CALL FOR MAXIMUM THRUST
030128,000490: 33,2521 00114 OCT 00114
030129,000491: 33,2522 47012 OCT 47012
030130,000492: 33,2523 00454 DEC 300 B-14
030131,000493: 33,2524 E4,1566 EBANK= TDEC
030132,000494: 33,2524 02530 66064 2CADR GUIDANCE
030133,000495:
030134,000496: 33,2526 05701 TC FIXDELAY
030135,000497: 33,2527 00454 DEC 300 B-14 # WAIT 3 SECS BEFORE CALLING THRUST FILTER
030136,000498:
030137,000499: 33,2530 00006 GUIDANCE EXTEND # TUNE IN ASCENT GUIDANCE
030138,000500: 33,2531 32660 DCA ATMAG4
030139,000501: 33,2532 53073 DXCH AVGEXIT
030140,000502:
030141,000503: 33,2533 32662 CAF CDUJOBAD
030142,000504: 33,2534 55450 TS ASCRET
030143,000505:
030144,000506: 33,2535 04161 TC PHASCHNG
030145,000507: 33,2536 00002 OCT 00002 # DEACTIVATE GR 2
030146,000508:
030147,000509: 33,2537 15727 TCF TASKOVER
030148,000510:
030149,000511: 33,2540 00004 MP4TERM1 INHINT
030150,000512: 33,2541 32611 CAF 005CEK
030151,000513: 33,2542 05663 TC WAITLIST
030152,000514: 33,2543 E4,1566 EBANK= TDEC
030153,000515: 33,2543 02554 66064 2CADR TCO+5
030154,000516:
030155,000517: 33,2545 04161 TC PHASCHNG
030156,000518: 33,2546 47012 OCT 47012
030157,000519: 33,2547 00764 DEC 500 B-14
030158,000520: 33,2550 E4,1566 EBANK= TDEC
030159,000521: 33,2550 02554 66064 2CADR TCO+5
030160,000522:
030161,000523: 33,2552 05225 TC POSTJUMP
030162,000524: 33,2553 60324 CADR SERVEXIT
030163,000525:
030164,000526: 33,2554 05073 TCO+5 TC 2LMP+DT
030165,000527: 33,2555 00227 DEC 151 B-14 # ENGINE SELECT-DESC ARM-OFF
030166,000528: 33,2556 00127 DEC 87 B-14 # MANUAL THROTTLE-RESET (30 PERCENT)
030167,000529: 33,2557 00144 DEC 100 B-14 # DELAY ONE SECOND
030168,000530:
|
|
Page 706 |
030170,000532: 33,2560 05270 TC IBNKCALL # SET MAXIMUM DEADBAND
030171,000533: 33,2561 40054 CADR SETMAXDB
030172,000534:
030173,000535: 33,2562 04161 TC PHASCHNG
030174,000536: 33,2563 47012 OCT 47012
030175,000537: 33,2564 01604 DEC 900 B-14
030176,000538: 33,2565 E4,1566 EBANK= TDEC
030177,000539: 33,2565 02571 66064 2CADR TCO+15
030178,000540:
030179,000541: 33,2567 05701 TC FIXDELAY
030180,000542: 33,2570 01604 DEC 900 B-14 # DELAY NINE SECONDS
030181,000543:
030182,000544: 33,2571 05073 TCO+15 TC 2LMP+DT
030183,000545: 33,2572 00365 DEC 245 B-14 # DPS PQGS NO 1- OFF
030184,000546: 33,2573 00325 DEC 213 B-14 # DPS PQGS NO 2- OFF
030185,000547: 33,2574 00144 DEC 100 B-14
030186,000548:
030187,000549: 33,2575 05073 TC 2LMP+DT
030188,000550: 33,2576 00345 DEC 229 B-14 # DPS PQGS ARM NO 1- DISABLE
030189,000551: 33,2577 00305 DEC 197 B-14 # DPS PQGS ARM NO 2- DISABLE
030190,000552: 33,2600 02570 DEC 1400 B-14 # DELAY 14 SECONDS
030191,000553:
030192,000554: 33,2601 06067 TC FLAG1DWN # TERMINATE AVEG AND DO AUTO AVETOMID
030193,000555: 33,2602 00041 OCT 00041 # ALSO KNOCK DOWN THE POOH FLAG
030194,000556:
030195,000557: 33,2603 04161 TC PHASCHNG # DEACTIVATE GROUP 2
030196,000558: 33,2604 00002 OCT 00002
030197,000559:
030198,000560: 33,2605 15727 TCF TASKOVER
030199,000561:
030200,000562: # ************************************************************************
030201,000563: # TIME INCREMENTS FOR WAITLISTS IN MP4 - XXXXXCEK = DEC XXXXX00 CS
030202,000564: # ************************************************************************ 4
030203,000565: 33,2606 00310 002CEK DEC 200 B-14
|
|
The two above lines were printed on top of each other. Luckily the first is all asterisks so it's easy to tell what should have happened. |
030206,000568:
030207,000569: 33,2607 00454 003CEK DEC 300 B-14
030208,000570:
030209,000571: 33,2610 00620 004CEK DEC 400 B-14
030210,000572:
030211,000573: 33,2611 00764 005CEK DEC 500 B-14
030212,000574:
030213,000575: 33,2612 01274 007CEK DEC 700 B-14
030214,000576:
030215,000577: 33,2613 04064 021CEK DEC 2100 B-14
030216,000578:
030217,000579: 33,2614 05670 030CEK DEC 3000 B-14
030218,000580:
030219,000581: 33,2615 00252 XTRANSON OCT 00252 # CHANNEL 5 CODE FOR 4-JET TRANSLATION
030220,000582:
|
|
Page 707 The following four lines are printed on two. Luckily that puts one line of asterisks on both erroneous lines, making it not too difficult to tease them apart. They may not be completely perfect, though. It also looks like the lines of asterisks, which seem to be causing the problems, are accompanied by random 4s. The placement of them makes it seem like they were probably not in the original program, and are only appearing due to the printer errors. |
030227,000589: # ************************************************************************ 4
030228,000590: # CONSTANTS FOR PRECOI CALCULATIONS AND FOR INITIALIZATION OF ASCENT EO.
030229,000591: # ************************************************************************
030230,000592: 33,2616 05037 17610 ABLOCK 2DEC 0.30893 E-3 B+9 # ANTICIPATED INITIAL ACCELERATION M/CS/CS
030231,000593:
030232,000594: 33,2620 07363 06315 2DEC 0.2990 E+2 B-7 # INITIAL EXHAUST VELOCITY M/CS
030233,000595:
030234,000596: 33,2622 27501 20000 2DEC 0.9678 E+5 B-17 # ESTIMATED BURNUP TIME IN CENTISECONDS
030235,000597:
030236,000598: 33,2624 05202 10056 BBLOCK 2DEC 0.1642 # 1/DV1
030237,000599:
030238,000600: 33,2626 05202 10056 2DEC 0.1642 # 1/DV2
030239,000601:
030240,000602: 33,2630 05202 10056 2DEC 0.1642 # 1/DV3
030241,000603:
030242,000604: 33,2632 17146 14632 KREST 2DEC 0.4750 # LIMITS MAXIMUM PITCH TO 72 DEGREES
030243,000605:
030244,000606: 33,2634 11773 02555 KR1EST 2DEC 0.3122
030245,000607:
030246,000608: 33,2636 06065 00000 TGOEST 2DEC 25000 B-17
030247,000609:
030248,000610: 33,2640 20000 00000 BODYVECT 2DEC .5
030249,000611:
030250,000612: 33,2642 00000 00000 CBLOCK 2DEC 0 B-28 # RDOTD
030251,000613:
030252,000614: 33,2644 00000 00000 2DEC 0 B-28 # YDOTD
030253,000615:
|
|
There's a physical page break after the following line, brought on by more printer errors. It appears as though a couple of lines are missing, but there's presently no way to regenerate them. |
030257,000619: # ************************************************************************ 4 4
030258,000620: # GENADRS, ECADRS, AND 2CADRS USED IN MP4
030259,000621: # ************************************************************************
030260,000622:
030261,000623: 33,2646 02251 AVGENADR GENADR AVERAGEG
030262,000624:
030263,000625: 33,2647 E4,1566 EBANK= TDEC
030264,000626: 33,2647 02540 66064 MP4TM1AD 2CADR MP4TERM1
030265,000627:
030266,000628: 33,2651 E4,1566 EBANK= TDEC
030267,000629: 33,2651 02324 60064 EXITADR 2CADR SERVEXIT
030268,000630:
030269,000631: 33,2653 E4,1400 EBANK= AMEMORY
030270,000632: 33,2653 02341 16064 ORBINTAD 2CADR MIDTOAVE
030271,000633:
030272,000634: 33,2655 E5,1565 EBANK= ETHROT
030273,000635: 33,2655 03466 60065 PCNTFMAD 2CADR PCNTFMAX
030274,000636:
030275,000637: 33,2657 E4,1566 EBANK= TDEC
030276,000638: 33,2657 03005 64064 ATMAG4 2CADR ATMAG
030277,000639:
030278,000640: 33,2661 66333 KALC4AD FCADR PREKALC4
030279,000641:
|
|
Page 708 |
030281,000643: 33,2662 60703 CDUJOBAD FCADR FINDCDUD
030282,000644:
030283,000645: # ************************************************************************
030284,000646: # TASKSETR SUBROUTINE - SETS UP WAITLISTS REFERENCED TO VALUE OF TDEC
030285,000647: # ************************************************************************
030286,000648:
|
|
An empty page follows, and instructions continue on the page after that. |
030288,000650:
030289,000651: 33,2663 00006 TASKSETR EXTEND
030290,000652: 33,2664 22061 QXCH ITEMP1
030291,000653: 33,2665 54001 TS L
030292,000654: 33,2666 37767 CAF ZERO
030293,000655: 33,2667 52145 DXCH MPAC
030294,000656: 33,2670 52064 DXCH ITEMP3
030295,000657: 33,2671 37767 CAF ZERO
030296,000658: 33,2672 56146 XCH MPAC +2
030297,000659: 33,2673 54065 TS ITEMP5
030298,000660: 33,2674 00006 EXTEND
030299,000661: 33,2675 40025 DCS TIME2
030300,000662: 33,2676 20145 DAS MPAC
030301,000663: 33,2677 37751 CAF EBANK4
030302,000664: 33,2700 56003 XCH EBANK
030303,000665: 33,2701 54062 TS ITEMP2
030304,000666: 33,2702 00006 EXTEND
030305,000667: 33,2703 31567 DCA TDEC
030306,000668: 33,2704 20145 DAS MPAC
030307,000669: 33,2705 07327 TC TPAGREE
030308,000670: 33,2706 30065 CA ITEMP5
030309,000671: 33,2707 54146 TS MPAC +2
030310,000672: 33,2710 52064 DXCH ITEMP3
030311,000673: 33,2711 52145 DXCH MPAC
030312,000674: 33,2712 00006 EXTEND
030313,000675: 33,2713 12716 BZF +3
030314,000676: 33,2714 06000 TC ABORT
030315,000677: 33,2715 00404 OCT 00404
030316,000678: 33,2716 56001 XCH L
030317,000679: 33,2717 00006 EXTEND
030318,000680: 33,2720 62714 BZMF -4
030319,000681: 33,2721 22062 LXCH ITEMP2
030320,000682: 33,2722 22003 LXCH EBANK
030321,000683: 33,2723 00061 TC ITEMP1
030322,000684: # ************************************************************************ 4
End of include-file MP4-CONTINGENCY_ORBIT_INSERTION.agc. Parent file is MAIN.agc