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. |
031741,000002: ## Copyright: Public domain.
031742,000003: ## Filename: MISSION_PHASE_11-DPS2_FITH_APS1.agc
031743,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
031744,000005: ## is part of the source code for the Lunar Module's
031745,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031746,000007: ## Assembler: yaYUL
031747,000008: ## Contact: Ron Burkey <info@sandroid.org>.
031748,000009: ## Website: www.ibiblio.org/apollo/index.html
031749,000010: ## Mod history: 2016-09-30 RSB Created draft version.
031750,000011: ## 2016-10-28 MAS Transcribed.
031751,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
031752,000013: ## changes made.
031753,000014:
![]() |
Page 739 |
031755,000016: 36,2000 BANK 36
031756,000017: 36,2000 E4,1566 EBANK= TDEC
031757,000018: 36,2000 E4,1662 EMP11JOB EQUALS MPRETRN
031758,000019: # MISSION PHASE 11 DOES PROG32-PREDPS2, PROG42-DPS2 BURN BRAKING GUIDANCE,
031759,000020: # PROG43-APPROACH GUIDANCE, PROG43-RANDOM THROTTLE PROGRAM AND PROG74-THE
031760,000021: # FIRE-IN-THE-HOLE AND APS1 BURN
031761,000022:
031762,000023: # THE APPROXIMATE STARTING TIME OF THESE PROG IS SHOWN BELOW
031763,000024:
031764,000025: # T PROG32
031765,000026: # T+187 DPS2 IGNITION (TIG11)
031766,000027: # TIG+26 PROG42
031767,000028: # TIG+705 PROG44
031768,000029: # TIG+757 PROG74
031769,000030: # TIG+792 MISSION TERMINATED
031770,000031:
031771,000032:
031772,000033:
031773,000034: 36,2000 37751 MP11JOB CAF BIT11
031774,000035: 36,2001 04105 TC SETRSTRT # SET RESTART FLAG
031775,000036:
031776,000037: 36,2002 00006 EXTEND
031777,000038: 36,2003 30025 DCA TIME2
031778,000039: 36,2004 53305 DXCH TDECTEMP
031779,000040:
031780,000041: 36,2005 04117 TC NEWMODEX # SET DISPLAY
031781,000042: 36,2006 00032 OCT 32
031782,000043:
031783,000044: 36,2007 32465 CAF 1SEC11 # SETUP MP11 TASK-REQUIRES 75 SECS AND
031784,000045: 36,2010 00004 INHINT # TERMINATES ITSELF
031785,000046: 36,2011 05663 TC WAITLIST
031786,000047: 36,2012 E4,1566 EBANK= TDEC
031787,000048: 36,2012 02545 74064 2CADR MP11TASK
031788,000049:
031789,000050: 36,2014 04141 TC 2PHSCHNG
031790,000051: 36,2015 40253 OCT 40253 # 3.25SPOT FOR MP11TASK.
031791,000052: 36,2016 00312 OCT 00312 # 2.31 SPOT TO CONTINUE MP11JOB.
031792,000053:
031793,000054: 36,2017 00006 11REDO1 EXTEND # SET TDEC TO TIME OF START OF MP 11
031794,000055: 36,2020 31305 DCA TDECTEMP # PLUS 135 SECONDS.
031795,000056: 36,2021 53567 DXCH TDEC
031796,000057: 36,2022 00006 EXTEND
031797,000058: 36,2023 32517 DCA 135SECS
031798,000059: 36,2024 21567 DAS TDEC
031799,000060:
031800,000061: 36,2025 00006 EXTEND # SET RETURN FROM MIDTOAVE TO INTRTN
031801,000062: 36,2026 32542 DCA MDAVADR
031802,000063: 36,2027 52006 DXCH Z # DO MIDTOAVE VIA RVUPDATE
031803,000064:
031804,000065: 36,2030 04161 TC PHASCHNG
![]() |
Page 740 |
031806,000067: 36,2031 00332 OCT 00332
031807,000068:
031808,000069: 36,2032 00006 INTRTN EXTEND
031809,000070: 36,2033 32534 DCA DPS2ADR # INTEGRATION DONE-DO PRE-DPS2
031810,000071: 36,2034 52006 DXCH Z # STATE AT RIGNTION-TIME AT TET FOR PREDPS
031811,000072:
031812,000073: # PRE-DPS2 RETURN TO RETPREB WITH ULLAGE-ON TIME AT TULLG, (TIG-7.5).
031813,000074: # THE DESIRED 1/2 UNIT THRUST VECTOR AT POINTVSM.
031814,000075: # STATE VECTOR IN SM COORDINATES STORED AT RN, VN WITH CORRESPONDING
031815,000076: # TIME AT PIPTIME WHERE (TULLG - PIPTIME)IS BETWEEN
031816,000077: # 3.8 AND 6 SECS.
031817,000078:
031818,000079:
031819,000080:
031820,000081: 36,2035 00004 RETPREB INHINT
031821,000082: 36,2036 00006 EXTEND
031822,000083: 36,2037 31457 DCA TULLG # C(TULLG)=TIG-7.5
031823,000084: 36,2040 52145 DXCH MPAC
031824,000085: 36,2041 42520 CS 22.5SECS
031825,000086: 36,2042 54001 TS L
031826,000087: 36,2043 37767 CAF ZERO
031827,000088: 36,2044 54146 TS MPAC +2
031828,000089: 36,2045 20145 DAS MPAC # C(MPAC)=TIG-30
031829,000090: 36,2046 00006 EXTEND
031830,000091: 36,2047 40025 DCS TIME2 # GET CURRENT TIME
031831,000092: 36,2050 20145 DAS MPAC # C(MPAC)=DELTA(TIG-30)
031832,000093: 36,2051 07327 TC TPAGREE # MAKE SIGNS AGREE
031833,000094: 36,2052 00006 EXTEND
031834,000095: 36,2053 30145 DCA MPAC
031835,000096: 36,2054 53305 DXCH TDECTEMP
031836,000097: 36,2055 52145 DXCH MPAC
031837,000098: 36,2056 05741 TC LONGCALL
031838,000099: 36,2057 E4,1566 EBANK= TDEC
031839,000100: 36,2057 02120 74064 2CADR TIG11-30
031840,000101:
031841,000102: 36,2061 04161 TC PHASCHNG
031842,000103: 36,2062 20022 OCT 20022
031843,000104:
031844,000105: 36,2063 06112 11REDO2 TC INTPRET
031845,000106: 36,2064 77775 VLOAD
031846,000107: 36,2065 01011 RN # STATE STORED IN RAVEGON AND VAVEGON FOR
031847,000108: 36,2066 26115 STOVL RAVEGON # AVERAGE G INITIALIZATION AT PIPTIME
031848,000109: 36,2067 01017 VN
031849,000110: 36,2070 16123 STODL VAVEGON
031850,000111: 36,2071 35646 D1/2 # JAM .5,0,0 IN SCAXIS FOR KALCMANU
031851,000112: 36,2072 15664 STODL SCAXIS
031852,000113: 36,2073 35273 DZERO
031853,000114: 36,2074 01666 STORE SCAXIS +2
031854,000115: 36,2075 15670 STODL SCAXIS +4
031855,000116: 36,2076 01307 PIPTIME # THIS TIME CONSISTANT WITH STATE-RAVEGON
031856,000117:
![]() |
Page 741 |
031858,000119: 36,2077 02264 STORE DT11TEMP # USED AFTER KALCMANU TO CALL PREREAD
031859,000120: 36,2100 43131 SSP SET
031860,000121: 36,2101 01653 RATEINDX # SET KALCMANU FOR ANGULAR RATE OF 5 DEG/S
031861,000122: 36,2102 00004 4
031862,000123: 36,2103 01063 33D
031863,000124: 36,2104 77776 EXIT
031864,000125:
031865,000126: 36,2105 35642 CAF PRIO16 # DO ATTITUDE MANEUVER JOB.
031866,000127: 36,2106 00004 INHINT
031867,000128: 36,2107 05516 TC FINDVAC
031868,000129: 36,2110 E3,1535 EBANK= MIS
031869,000130: 36,2110 02001 70063 2CADR VECPOINT
031870,000131:
031871,000132: 36,2112 05206 TC BANKCALL
031872,000133: 36,2113 26743 CADR ATTSTALL # PUT MP11 TO SLEEP - KALCMANU WILL WAKE
031873,000134:
031874,000135: 36,2114 04743 TC CURTAINS # KALCMANU HAS GIMBALOC PROBLEMS-CURTAINS
031875,000136: 36,2115 04161 TC PHASCHNG
031876,000137: 36,2116 00352 OCT 00352
031877,000138:
031878,000139: 36,2117 05567 TC ENDOFJOB # WAIT FOR TIG-30
031879,000140:
031880,000141: 36,2120 37751 TIG11-30 CAF BIT11 # SEE IF ATTITUDE MANEUVER DONE
031881,000142: 36,2121 70076 MASK FLAGWRD2
031882,000143: 36,2122 10000 CCS A
031883,000144: 36,2123 02450 TC DOCURTN # KALCMANU NOT-DO CURTJOB
031884,000145: 36,2124 04117 TC NEWMODEX # SET MODE TO PROG42
031885,000146: 36,2125 00042 OCT 42
031886,000147:
031887,000148: 36,2126 32530 CAF AVEG11AD # SET UP SERVICER.
031888,000149: 36,2127 55310 TS DVSELECT
031889,000150:
031890,000151: 36,2130 00006 EXTEND
031891,000152: 36,2131 32544 DCA ADROFSER
031892,000153: 36,2132 53073 DXCH AVGEXIT
031893,000154:
031894,000155: 36,2133 00006 EXTEND
031895,000156: 36,2134 32540 DCA MP11TMAD
031896,000157: 36,2135 53075 DXCH DVMNEXIT
031897,000158:
031898,000159: 36,2136 40025 CS TIME1
031899,000160: 36,2137 61664 AD DT11TEMP +1 # FIND DT TO PIPTIME
031900,000161: 36,2140 10000 CCS A # CORRECT NEG DT OR NEGATIVE OVERFLOW DT.
031901,000162: 36,2141 67763 AD ONE
031902,000163: 36,2142 12147 TCF +5
031903,000164: 36,2143 66153 AD OCT40001
031904,000165: 36,2144 67771 AD MINUS1 # ALLOWS FOR REMOTE CHANCE FO ZERO DT.
031905,000166: 36,2145 40000 COM
031906,000167: 36,2146 12140 TCF -6
031907,000168: 36,2147 55342 TS RSDTTEMP # SAVED FOR RESTARTS.
031908,000169:
![]() |
Page 742 |
031910,000171: 36,2150 05663 TC WAITLIST
031911,000172: 36,2151 E5,1506 EBANK= DVTOTAL
031912,000173: 36,2151 02000 60065 2CADR PREREAD
031913,000174:
031914,000175: 36,2153 04141 TC 2PHSCHNG
031915,000176: 36,2154 40355 OCT 40355 # 5.35 SPOT FOR PREREAD.
031916,000177: 36,2155 00212 OCT 00212 # 2.21 SPOT FOR DPSTART.
031917,000178:
031918,000179: 36,2156 05270 DPSTART TC IBNKCALL
031919,000180: 36,2157 40277 CADR ENGINOF1
031920,000181:
031921,000182: 36,2160 05101 TC 1LMP+DT
031922,000183: 36,2161 00226 DEC 150 B-14 # ARM DESCENT ENGINE
031923,000184: 36,2162 01750 DEC 1000 B-14 # DELAY 10 SECONDS
031924,000185:
031925,000186: 36,2163 05101 TIG11-20 TC 1LMP+DT
031926,000187: 36,2164 00126 DEC 86 B-14 # SET MANUAL THROTTLE TO 10 %
031927,000188: 36,2165 00620 DEC 400 B-14 # DELAY 4 SECONDS
031928,000189:
031929,000190: 36,2166 05073 TIG11-16 TC 2LMP+DT
031930,000191: 36,2167 00344 DEC 228 B-14 # ENABLE DPS PQGS ARM 1
031931,000192: 36,2170 00304 DEC 196 B-14 # ENABLE DPS PQGS ARM 2
031932,000193: 36,2171 00144 DEC 100 B-14 # DELAY 1 SECOND
031933,000194:
031934,000195: 36,2172 05073 TIG11-15 TC 2LMP+DT
031935,000196: 36,2173 00364 DEC 244 B-14 # DPS PQGS =1 ON
031936,000197: 36,2174 00324 DEC 212 B-14 # DPS PQGS =2 ON
031937,000198: 36,2175 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
031938,000199:
031939,000200: 36,2176 05270 TIG-7.5 TC IBNKCALL
031940,000201: 36,2177 40062 CADR ULLAGE # CALL FOR 4 JET ULLAGE
031941,000202:
031942,000203: 36,2200 37763 CAF BIT1 # START UP ABORT STAGE MONITOR.
031943,000204: 36,2201 05663 TC WAITLIST
031944,000205: 36,2202 E4,1566 EBANK= TDEC
031945,000206: 36,2202 02362 74064 2CADR ABMON
031946,000207:
031947,000208: 36,2204 04141 TC 2PHSCHNG
031948,000209: 36,2205 40033 OCT 40033 # 3.3 SPOT FOR ABMON
031949,000210: 36,2206 40232 OCT 40232 # 2.23 SPOT FOR TIG11
031950,000211:
031951,000212: 36,2207 05701 TC FIXDELAY
031952,000213: 36,2210 01356 DEC 750 B-14 # DELAY 7.5 SECONDS, UNTIL ENGINEON
031953,000214:
031954,000215: 36,2211 05270 TIG11 TC IBNKCALL
031955,000216: 36,2212 40226 CADR DPSENGON
![]() |
"DPSENGON" in the above line has a green arrow pointing to it. |
031957,000218:
031958,000219: 36,2213 04161 TC PHASCHNG
031959,000220: 36,2214 47012 OCT 47012
![]() |
Page 743 |
031961,000222: 36,2215 00062 DEC 50 B-14
031962,000223: 36,2216 E4,1566 EBANK= TDEC
031963,000224: 36,2216 02222 74064 2CADR TIG11A
031964,000225:
031965,000226: 36,2220 05701 TC FIXDELAY
031966,000227: 36,2221 00062 DEC 50 B-14 # DELAY HALF A SECOND
031967,000228:
031968,000229: 36,2222 05270 TIG11A TC IBNKCALL
031969,000230: 36,2223 40066 CADR NOULLAGE
031970,000231:
031971,000232: 36,2224 04161 TC PHASCHNG
031972,000233: 36,2225 47012 OCT 47012
031973,000234: 36,2226 04766 DEC 2550 B-14
031974,000235: 36,2227 E4,1566 EBANK= TDEC
031975,000236: 36,2227 02233 74064 2CADR TIG11+26
031976,000237:
031977,000238: 36,2231 05701 TC FIXDELAY
031978,000239: 36,2232 04766 DEC 2550 B-14 # WAIT 25.5 SECONDS
031979,000240:
031980,000241: 36,2233 37743 TIG11+26 CAF POSMAX # HAVE BEEN AT 10% THROTTLE FOR 26 SECONDS
031981,000242: 36,2234 55323 TS PCNTF # NOW CALL FOR MAXIMUM THRUST (92.5%)
031982,000243:
031983,000244: 36,2235 00006 EXTEND
031984,000245: 36,2236 32536 DCA PCNTFAD
031985,000246: 36,2237 52006 DXCH Z
031986,000247:
031987,000248: 36,2240 00006 EXTEND
031988,000249: 36,2241 32532 DCA BURNADR # STARTING DPS2 GUIDANCE: TIG +26 SECONDS
031989,000250: 36,2242 53073 DXCH AVGEXIT
031990,000251:
031991,000252: 36,2243 31345 CA DAPOFFDT # SKIP AUTOMATIC TURN-OFF OF DAP IF
031992,000253: 36,2244 00006 EXTEND # DAPOFFDT IS NEGATIVE OR ZERO.
031993,000254: 36,2245 62253 BZMF NODAPOFF
031994,000255:
031995,000256: 36,2246 05663 TC WAITLIST
031996,000257: 36,2247 E7,1407 EBANK= DNTMBUFF
031997,000258: 36,2247 02273 74067 2CADR 11DAPOFF
031998,000259:
031999,000260: 36,2251 04161 TC PHASCHNG
032000,000261: 36,2252 40116 OCT 40116 # 6.11 FOR 11DAPOFF TASK.
032001,000262:
032002,000263: 36,2253 04141 NODAPOFF TC 2PHSCHNG
032003,000264: 36,2254 00002 OCT 00002
032004,000265: 36,2255 00114 OCT 00114 # 4.11 SPOT FOR THRUSTING
032005,000266:
032006,000267: 36,2256 05727 TC TASKOVER
032007,000268:
032008,000269: 36,2257 00006 RETBURN EXTEND # RETURN FROM BURN GUIDANCE
032009,000270: 36,2260 32544 DCA ADROFSER # SET SERVICER EXIT TO KILL BURN GUID
032010,000271: 36,2261 53073 DXCH AVGEXIT
032011,000272:
![]() |
Page 744 |
032013,000274: 36,2262 04161 TC PHASCHNG
032014,000275: 36,2263 45022 OCT 45022
032015,000276: 36,2264 20000 OCT 20000
032016,000277:
032017,000278: 36,2265 37763 CAF BIT1 # SET TASK FOR RANDOM THROTTLE
032018,000279: 36,2266 00004 INHINT
032019,000280: 36,2267 05663 TC WAITLIST # PROGRAM P44
032020,000281: 36,2270 E4,1566 EBANK= TDEC
032021,000282: 36,2270 02300 74064 2CADR PROG44
032022,000283:
032023,000284: 36,2272 15567 TCF ENDOFJOB # READACCS STILL ACTIVE.
032024,000285:
032025,000286:
032026,000287:
032027,000288: 36,2273 35210 11DAPOFF CA PRIO30 # CALL JOB TO TURN OFF DAP & START
032028,000289: 36,2274 05505 TC NOVAC # SPECIAL CDU-ONLY DOWNLINK.
032029,000290: 36,2275 E7,1407 EBANK= DNTMBUFF
032030,000291: 36,2275 02530 22067 2CADR BEGINCDU
032031,000292:
032032,000293: 36,2277 15727 TCF TASKOVER
032033,000294:
![]() |
Page 745 |
032035,000296: # THE DPS2 RANDOM THROTTLE PROG44 STARTS APPROXIMATELY AT TIG+705. THE
032036,000297: # EXACT TIME AND THRUST LEVEL SETTING AT THE START OF PROG44 ARE COMPUTED
032037,000298: # BY BURN GUIDANCE PROG43. THE SUBSEQUENT THRUST COMMANDS ARE LISTED.
032038,000299:
032039,000300: # T 10 PERCENT THRUST
032040,000301: # T+10 50 PERCENT
032041,000302: # T+30 30 PERCENT
032042,000303: # T+40 20 PERCENT
032043,000304: # T+50 92.5 PERCENT FOR 2 SECS THEN FIRE-IN-THE-HOLE
032044,000305:
032045,000306: 36,2300 04117 PROG44 TC NEWMODEX
032046,000307: 36,2301 00044 OCT 44 # SET MODE TO RANDOM THROTTLE
032047,000308:
032048,000309: 36,2302 04161 TC PHASCHNG
032049,000310: 36,2303 05012 OCT 05012
032050,000311: 36,2304 77777 OCT 77777
032051,000312:
032052,000313: 36,2305 37761 INDPCT CAF FOUR
032053,000314: 36,2306 55342 TS RSDTTEMP # INDEX.
032054,000315:
032055,000316: 36,2307 50000 INDEX A # OFFSET POINTER
032056,000317: 36,2310 32523 CAF 20PCTHR # AMOUNT OF THROTTLE
032057,000318: 36,2311 55323 TS PCNTF
032058,000319:
032059,000320: 36,2312 00006 EXTEND
032060,000321: 36,2313 32536 DCA PCNTFAD # GO TO THRUSTING ROUTINE
032061,000322: 36,2314 52006 DTCB
032062,000323:
032063,000324: 36,2315 47762 CS TWO # WATER VALVE DUE 22 SEC AFTER RANDOM
032064,000325: 36,2316 61342 AD RSDTTEMP # THROTTLE PHASE BEGINS. THAT PUTS IT
032065,000326: 36,2317 00006 EXTEND # 2 SEC AFTER MPRETRN = 2.
032066,000327: 36,2320 12604 BZF SETWATER
032067,000328:
032068,000329: 36,2321 04141 TC 2PHSCHNG
032069,000330: 36,2322 00114 OCT 00114 # 4.11SPOT FOR THRUSTING
032070,000331: 36,2323 00372 OCT 00372 # 2.37 FOR MOVENDX TASK.
032071,000332:
032072,000333: 36,2324 31342 MOVENDX CA RSDTTEMP
032073,000334: 36,2325 55662 TS MPRETRN
032074,000335:
032075,000336: 36,2326 04161 TC PHASCHNG
032076,000337: 36,2327 40412 OCT 40412 # 2.41 FOR CCSMPRET TASK.
032077,000338:
032078,000339: 36,2330 05701 TC FIXDELAY
032079,000340: 36,2331 01750 10SECS11 DEC 1000 B-14 # DELAY 10 SECS
032080,000341:
032081,000342: 36,2332 11662 CCSMPRET CCS MPRETRN # DECREMENT INDEX
032082,000343: 36,2333 02306 TC INDPCT +1 # NO
032083,000344:
032084,000345: 36,2334 37743 CAF 925PCTHR # TURN ON 92.5 THRUST
032085,000346:
![]() |
Page 746 |
032087,000348: 36,2335 55323 TS PCNTF
032088,000349: 36,2336 00006 EXTEND
032089,000350: 36,2337 32536 DCA PCNTFAD # GO FOR THRUSTING
032090,000351: 36,2340 52006 DXCH Z
032091,000352:
032092,000353: 36,2341 32465 CAF 1SEC11 # THRUST AT MAX FOR 2 SEC, 1 SEC HERE AND
032093,000354: 36,2342 05663 TC WAITLIST # 1 MORE IN FITHCMD
032094,000355: 36,2343 E4,1566 EBANK= TDEC
032095,000356: 36,2343 02354 74064 2CADR FITHCMD
032096,000357:
032097,000358: 36,2345 04141 TC 2PHSCHNG
032098,000359: 36,2346 00114 OCT 00114 # 4.11SPOT FOR THRUSTING
032099,000360: 36,2347 47012 OCT 47012
032100,000361: 36,2350 00144 DEC 100 B-14
032101,000362: 36,2351 E4,1566 EBANK= TDEC
032102,000363: 36,2351 02354 74064 2CADR FITHCMD
032103,000364:
032104,000365: 36,2353 05727 TC TASKOVER
032105,000366:
![]() |
Page 747 |
032107,000368: # FITH/APS1 PROGRAM 74
032108,000369: # WITH DETECTION OF THE ABORT STAGE DISCRETE BY THE ABORT STAGE MONITOR
032109,000370: # THE FOLLOWING EVENTS OCCUR BY PROGRAM OR ARE PROCESSED AUTOMATICALLY
032110,000371: # BY THE LEM SEQUENCER.
032111,000372:
032112,000373: # T-1.0 ABORT STAGE ARM (PROGRAMMED)
032113,000374: # T ABORT STAGE COMMAND (PROGRAMMED)
032114,000375: # ATTITUDE HOLD (PROGRAMMED)
032115,000376: # T+.04 ASCENT PRESSURIZED
032116,000377: # T+.15 DESCENT ENGINE-OFF
032117,000378: # T+.42 ASCENT ENGINE ARM
032118,000379: # ASCENT/DESCENT STAGING INITIATED
032119,000380: # STAGE VERIFIED
032120,000381: # T+.46 INTERSTAGE BOLTS FIRED
032121,000382: # ASCENT STAGE UMBILICAL ELECTRICAL DEADFACE
032122,000383: # T+.50 DESCENT STAGE UMBILICAL ELEC. DEADFACE
032123,000384: # T+.55 ASCENT/DESCENT STAGE UMBILICAL CUT
032124,000385: # T+.78 ASCENT ENGINE REACHES 90 PC THRUST
032125,000386: # T+1.0 CHANGE LEM MASS (PROGRAMMED)
032126,000387: # DESCENT ENGINE ARM-OFF (PROGRAMMED)
032127,000388: # T+5.0 ASCENT ENGINE-OFF (PROGRAMMED)
032128,000389:
032129,000390: 36,2354 05101 FITHCMD TC 1LMP+DT # THRUST AT MAX FOR 1 MORE SEC AND ABORT
032130,000391: 36,2355 00046 DEC 38 B-14
032131,000392: 36,2356 00144 DEC 100 B-14 # DELAY 1.0 SEC.
032132,000393:
032133,000394: 36,2357 05060 TC 1LMP # INITIATE ABORT STAGE COMMAND
032134,000395: 36,2360 00026 DEC 22 B-14
032135,000396: 36,2361 05727 TC TASKOVER # LET ABORT MONITOR TAKE IT FROM HERE
032136,000397:
032137,000398: 36,2362 37762 ABMON CAF BIT2 # ABORT STAGE MONITOR SAMPLES CHANNEL
032138,000399: 36,2363 00006 EXTEND # 30 FOR ABORT STAGE DISCRETE EVERY .5 SEC
032139,000400: 36,2364 02030 RAND 30
032140,000401: 36,2365 00006 EXTEND
032141,000402: 36,2366 12374 BZF FITHGCMD # ABORT DISCRETE PRESENT-KILL MONITOR
032142,000403:
032143,000404: 36,2367 40025 CS TIME1
032144,000405: 36,2370 55117 TS TBASE3
032145,000406: 36,2371 05701 TC FIXDELAY # NO ABORT DISCRETE-CONTINUE TO MONITOR
032146,000407: 36,2372 00062 DEC 50 B-14 # DELAY .5 SECS
032147,000408: 36,2373 12362 TCF ABMON
032148,000409:
032149,000410: 36,2374 00006 FITHGCMD EXTEND # BYPASS GUIDANCE, ASSURE ULLAGE OFF, AND
032150,000411: 36,2375 32544 DCA ADROFSER # CLEAR OUT CURRENT ACTIVITY BY ENEMA - -
032151,000412: 36,2376 53073 DXCH AVGEXIT # ALL THIS TO PROTECT IN CASE OF EARLY
032152,000413: 36,2377 05270 TC IBNKCALL # ABORT STAGE COMMAND BY GROUND.
032153,000414: 36,2400 40066 CADR NOULLAGE
032154,000415:
032155,000416: 36,2401 04141 TC 2PHSCHNG
032156,000417: 36,2402 00001 OCT 1
![]() |
Page 748 |
032158,000419: 36,2403 00003 OCT 3
032159,000420:
032160,000421: 36,2404 04141 TC 2PHSCHNG
032161,000422: 36,2405 00004 OCT 4
032162,000423: 36,2406 00006 OCT 6
032163,000424:
032164,000425: 36,2407 04161 TC PHASCHNG
032165,000426: 36,2410 00252 OCT 00252 # 2.25 SPOT FOR MP11HOLD.
032166,000427:
032167,000428: 36,2411 35660 CAF PRIO37
032168,000429: 36,2412 05505 TC NOVAC
032169,000430: 36,2413 E3,1400 EBANK= LST1
032170,000431: 36,2413 02354 02063 2CADR ENEMA # ENEMA AS SOON AS POSSIBLE.
032171,000432:
032172,000433: 36,2415 05727 TC TASKOVER
032173,000434:
032174,000435: 36,2416 05270 MP11HOLD TC IBNKCALL # ENEMA SHOULD PICK UP HERE.
032175,000436: 36,2417 40114 CADR STOPRATE # SET ATTITUDE HOLD
032176,000437:
032177,000438: 36,2420 04117 TC NEWMODEX # SET MODE TO FIRE-IN-THE-HOLE
032178,000439: 36,2421 00074 OCT 74 # PROG74
032179,000440:
032180,000441: 36,2422 E7,1776 EBANK= LEMMASS2
032181,000442: 36,2422 35662 CAF EBANK7
032182,000443: 36,2423 54003 TS EBANK # SET EBANK= 7
032183,000444: 36,2424 00006 EXTEND
032184,000445: 36,2425 31777 DCA LEMMASS2 # CHANGE LEM MASS AT DPS/APS SEPARATION
032185,000446: 36,2426 53321 DXCH MASS
032186,000447: 36,2427 37751 CAF BIT11 # RETURN EBANK TO 04
032187,000448: 36,2430 54003 TS EBANK
032188,000449: 36,2431 E4,1566 EBANK= TDEC
032189,000450:
032190,000451: 36,2431 05270 TC IBNKCALL # SET UP DAP FOR APS BURN
032191,000452: 36,2432 40175 CADR APSENGON
032192,000453:
032193,000454: 36,2433 04161 TC PHASCHNG
032194,000455: 36,2434 47012 OCT 47012
032195,000456: 36,2435 00144 DEC 100 B-14
032196,000457: 36,2436 E4,1566 EBANK= TDEC
032197,000458: 36,2436 02442 74064 2CADR ENGLECT
032198,000459:
032199,000460: 36,2440 05701 TC FIXDELAY
032200,000461: 36,2441 00144 DEC 100 B-14 # DELAY 1 SEC TO DPS ARM OFF
032201,000462:
032202,000463: 36,2442 05101 ENGLECT TC 1LMP+DT # ENGINE SELECT-DESC ARM OFF
032203,000464: 36,2443 00227 DEC 151 B-14 # APS BURN FOR 5 SECS
032204,000465: 36,2444 00620 DEC 400 B-14 # DELAY 4.0 SECONDS
032205,000466:
032206,000467: 36,2445 05270 TC IBNKCALL
032207,000468: 36,2446 40263 CADR ENGINOFF
032208,000469:
![]() |
Page 749 |
032210,000471: 36,2447 05727 TC TASKOVER
032211,000472:
032212,000473:
032213,000474:
032214,000475: 36,2450 05270 DOCURTN TC IBNKCALL # GO SET UP CURTAIN JOB
032215,000476: 36,2451 57334 CADR CURTJOB
032216,000477:
032217,000478: 36,2452 32465 MP11TERM CAF 1SEC11 # SET TO DO MP11 TERMINAL TASKS IN 1 SEC
032218,000479: 36,2453 00004 INHINT
032219,000480: 36,2454 05663 TC WAITLIST
032220,000481: 36,2455 E4,1566 EBANK= TDEC
032221,000482: 36,2455 02463 74064 2CADR MP11OUT
032222,000483:
032223,000484: 36,2457 04141 TC 2PHSCHNG
032224,000485: 36,2460 00035 OCT 35 # 5.3 SPOT FOR SERVICER.
032225,000486: 36,2461 40272 OCT 40272 # 2.27 SPOT FOR MP11OUT.
032226,000487:
032227,000488: 36,2462 05567 TC ENDOFJOB
032228,000489:
032229,000490: 36,2463 05101 MP11OUT TC 1LMP+DT
032230,000491: 36,2464 00047 DEC 39 B-14 # INITIATE ABORT STAGE COMMAND RESET
032231,000492: 36,2465 00144 1SEC11 DEC 100 B-14 # DELAY 1 SEC
032232,000493:
032233,000494: 36,2466 05101 TC 1LMP+DT
032234,000495: 36,2467 00267 DEC 183 B-14 # LANDING RADAR POWER OFF
032235,000496: 36,2470 01440 DEC 800 B-14 # DELAY 8 SECS
032236,000497:
032237,000498: 36,2471 05073 TC 2LMP+DT
032238,000499: 36,2472 00365 DEC 245 B-14 # DPS PQGS U AND 2 OFF
032239,000500: 36,2473 00325 DEC 213 B-14
032240,000501: 36,2474 00144 DEC 100 B-14 # DELAY 1 SEC
032241,000502:
032242,000503: 36,2475 05073 TC 2LMP+DT
032243,000504: 36,2476 00345 DEC 229 B-14 # DPS PQGS ARM 1 AND 2 DISABLE
032244,000505: 36,2477 00305 DEC 197 B-14
032245,000506: 36,2500 03554 DEC 1900 B-14 # DELAY 19 SECS TO KILL AVEG
032246,000507:
032247,000508: 36,2501 06067 TC FLAG1DWN # KILL AVERAGE G
032248,000509: 36,2502 00001 OCT 1
032249,000510:
032250,000511: 36,2503 05270 TC IBNKCALL
032251,000512: 36,2504 40054 CADR SETMAXDB
032252,000513:
032253,000514: 36,2505 04141 TC 2PHSCHNG
032254,000515: 36,2506 00002 OCT 2
032255,000516: 36,2507 05013 OCT 05013 # GROUP 3 FOR MISSION SCHEDULER.
032256,000517: 36,2510 77777 OCT 77777
032257,000518:
032258,000519: 36,2511 05126 TC MPENTRY # SETUP MISSION PHASE SCHEDULING
032259,000520: 36,2512 00002 DEC 2 B-14 # TIMER -2-
![]() |
Page 750 |
032261,000522: 36,2513 00015 DEC 13 B-14 # MISSION PHASE -13-
032262,000523: 36,2514 01753 ADRES MP11TO13
032263,000524: 36,2515 05727 TC TASKOVER # MISSION PHASE 11 COMPLETE
032264,000525:
![]() |
Page 751 |
032266,000527: # ????????????????????????????????
032267,000528: # NUMERICAL AND ADDRESS CONSTANTS
032268,000529: # ????????????????????????????????
032269,000530:
032270,000531:
032271,000532:
032272,000533: # ** TIME CONSTANTS **
032273,000534:
032274,000535: 36,2516 00000 32274 135SECS 2DEC 13500 B-28
032275,000536:
032276,000537: 36,2520 04312 22.5SECS DEC 2250 B-14
032277,000538: 36,2521 04766 25.5SECS DEC 2550 B-14
032278,000539: 36,2522 04230 22SECS11 DEC 2200 B-14
032279,000540:
032280,000541:
032281,000542:
032282,000543: # ** THRUST LEVEL CONSTANTS **
032283,000544:
032284,000545: 36,2523 06315 20PCTHR DEC .2
032285,000546: 36,2524 14632 DEC .4
032286,000547: 36,2525 11463 DEC .3
032287,000548: 36,2526 20000 DEC .5
032288,000549: 36,2527 03146 DEC .1
032289,000550: 36,2530 7743 925PCTHR = POSMAX # FOR MAXIMUM PERMITTED THRUST (92.5%)
032290,000551:
032291,000552:
032292,000553:
032293,000554: # ** ADDRESS CONSTANTS **
032294,000555:
032295,000556: 36,2530 02251 AVEG11AD GENADR AVERAGEG
032296,000557: 36,2531 E4,1400 EBANK= E2DPS
032297,000558: 36,2531 02043 44064 BURNADR 2CADR BURN
032298,000559:
032299,000560: 36,2533 E4,1400 EBANK= E2DPS
032300,000561: 36,2533 02000 44064 DPS2ADR 2CADR PREBURN
032301,000562:
032302,000563: 36,2535 E5,1565 EBANK= ETHROT # EBANK 5
032303,000564: 36,2535 03466 60065 PCNTFAD 2CADR PCNTFMAX
032304,000565:
032305,000566: 36,2537 E4,1566 EBANK= TDEC
032306,000567: 36,2537 02452 74064 MP11TMAD 2CADR MP11TERM
032307,000568:
032308,000569: 36,2541 E4,1566 EBANK= TDEC
032309,000570: 36,2541 02336 16064 MDAVADR 2CADR RVUPDATE
032310,000571:
032311,000572: 36,2543 E5,1511 EBANK= DVCNTR
032312,000573: 36,2543 02324 60065 ADROFSER 2CADR SERVEXIT
032313,000574:
![]() |
Page 752 |
032315,000576: # ????????????????????????????????
032316,000577: # TASKS CALLED ELSEWHERE IN MP11
032317,000578: # ????????????????????????????????
032318,000579:
032319,000580:
032320,000581:
032321,000582: 36,2545 05060 MP11TASK TC 1LMP
032322,000583: 36,2546 00354 DEC 236 B-14 # DFI T/M CALIBRATION - ON
032323,000584:
032324,000585: 36,2547 04161 TC PHASCHNG
032325,000586: 36,2550 40153 OCT 40153
032326,000587:
032327,000588: 36,2551 05701 TC FIXDELAY
032328,000589: 36,2552 02260 DEC 1200 B-14
032329,000590:
032330,000591: 36,2553 05052 NEXLMP TC 2LMP
032331,000592: 36,2554 00355 DEC 237 B-14 # DFI T/M CALIBRATE - OFF
032332,000593: 36,2555 00306 DEC 198 B-14 # C+W ALARM RESET - COMMAND
032333,000594:
032334,000595: 36,2556 04161 TC PHASCHNG
032335,000596: 36,2557 40173 OCT 40173
032336,000597:
032337,000598: 36,2560 05701 TC FIXDELAY
032338,000599: 36,2561 00310 2SECS11 DEC 200 B-14
032339,000600:
032340,000601: 36,2562 05060 NEXLMP1 TC 1LMP
032341,000602: 36,2563 00307 DEC 199 B-14 # C+W ALARM RESET - COMMAND RESET
032342,000603:
032343,000604: 36,2564 04161 TC PHASCHNG
032344,000605: 36,2565 40213 OCT 40213
032345,000606:
032346,000607: 36,2566 05701 TC FIXDELAY
032347,000608: 36,2567 00144 DEC 100 B-14
032348,000609:
032349,000610: 36,2570 05052 NEXLMP2 TC 2LMP
032350,000611: 36,2571 00266 DEC 182 B-14 # LR POWER - ON
032351,000612: 36,2572 00032 DEC 26 B-14 # RADAR SELFTEST -ON
032352,000613:
032353,000614: 36,2573 04161 TC PHASCHNG
032354,000615: 36,2574 40233 OCT 40233
032355,000616:
032356,000617: 36,2575 05701 TC FIXDELAY
032357,000618: 36,2576 13560 DEC 6000 B-14
032358,000619:
032359,000620: 36,2577 05060 NEXLMP3 TC 1LMP
032360,000621: 36,2600 00033 DEC 27 B-14 # RADAR SELFTEST-OFF
032361,000622:
032362,000623: 36,2601 04161 TC PHASCHNG
032363,000624: 36,2602 00003 OCT 3
032364,000625:
![]() |
Page 753 |
032366,000627: 36,2603 05727 TC TASKOVER
032367,000628:
032368,000629:
032369,000630:
032370,000631: 36,2604 04141 SETWATER TC 2PHSCHNG
032371,000632: 36,2605 00114 OCT 00114 # 4.11 FOR PCNTJOB JOB.
032372,000633: 36,2606 47012 OCT 47012
032373,000634: 36,2607 00310 DEC 200 B-14
032374,000635: 36,2610 E4,1566 EBANK= TDEC
032375,000636: 36,2610 02614 74064 2CADR ASWTVLON
032376,000637:
032377,000638: 36,2612 05701 TC FIXDELAY
032378,000639: 36,2613 00310 DEC 200 B-14
032379,000640:
032380,000641: 36,2614 05101 ASWTVLON TC 1LMP+DT
032381,000642: 36,2615 00336 DEC 222 B-14 # ASCENT WATER COOLANT VALVE - OPEN
032382,000643: 36,2616 00310 DEC 200 B-14
032383,000644:
032384,000645: 36,2617 05101 TC 1LMP+DT
032385,000646: 36,2620 00337 DEC 223 B-14 # ASCENT WATER COOLANT VALVE - OPEN RESET
032386,000647: 36,2621 01130 DEC 600 B-14
032387,000648:
032388,000649: 36,2622 31342 CA RSDTTEMP
032389,000650: 36,2623 55662 TS MPRETRN
032390,000651:
032391,000652: 36,2624 12332 TCF CCSMPRET
End of include-file MISSION_PHASE_11-DPS2_FITH_APS1.agc. Parent file is MAIN.agc