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