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