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