Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
031379,000002: ## Copyright: Public domain.
031380,000003: ## Filename: MISSION_PHASE_11_-_DPS2_FITH_APS1.agc
031381,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
031382,000005: ## It is part of an early development version of the software
031383,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
031384,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
031385,000008: ## upon which Don Eyles's offline development program Shepatin
031386,000009: ## was based; the listing herein transcribed was actually for
031387,000010: ## the equivalent revision 0 of Shepatin.
031388,000011: ## This file is intended to be a faithful transcription, except
031389,000012: ## that the code format has been changed to conform to the
031390,000013: ## requirements of the yaYUL assembler rather than the
031391,000014: ## original YUL assembler.
031392,000015: ## Reference: pp. 693-703
031393,000016: ## Assembler: yaYUL
031394,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031395,000018: ## Website: www.ibiblio.org/apollo/index.html
031396,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
031397,000020: ## 2017-06-06 HG Transcribed
031398,000021: ## 2017-06-15 HG Fix operator TCF -> TC
031399,000022: ## operand IBNKCALL -> BANKCALL
031400,000023: ## 2017-06-23 RSB Proofed comment text with
031401,000024: ## octopus/ProoferComments.
031402,000025:
![]() |
Page 693 |
031404,000027: 36,2000 BANK 36
031405,000028: 36,2000 E4,1566 EBANK= TDEC
031406,000029: 36,2000 E4,1662 EMP11JOB EQUALS MPRETRN
031407,000030: # MISSION PHASE 11 DOES PROG32-PREDPS2, PROG42-DPS2 BURN BRAKING GUIDANCE,
031408,000031: # PROG43-APPROACH GUIDANCE, PROG43-RANDOM THROTTLE PROGRAM AND PROG74-THE
031409,000032: # FIRE-IN-THE-HOLE AND APS1 BURN
031410,000033:
031411,000034: # THE APPROXIMATE STARTING TIME OF THESE PROG IS SHOWN BELOW
031412,000035:
031413,000036: # T PROG32
031414,000037: # T+187 DPS2 IGNITION (TIG11)
031415,000038: # TIG+26 PROG42
031416,000039: # TIG+705 PROG44
031417,000040: # TIG+757 PROG74
031418,000041: # TIG+792 MISSION TERMINATED
031419,000042:
031420,000043:
031421,000044:
031422,000045: 36,2000 00006 MP11JOB EXTEND
031423,000046: 36,2001 30025 DCA TIME2
031424,000047: 36,2002 53567 DXCH TDEC
031425,000048: 36,2003 04105 TC NEWMODEX # SET DISPLAY
031426,000049: 36,2004 00032 OCT 32
031427,000050:
031428,000051: 36,2005 32311 CAF 1SEC11 # SETUP MP11 TASK-REQUIRES 75 SECS AND
031429,000052: 36,2006 00004 INHINT # TERMINATES ITSELF
031430,000053: 36,2007 05701 TC WAITLIST
031431,000054: 36,2010 E4,1566 EBANK= TDEC
031432,000055: 36,2010 02401 74064 2CADR MP11TASK
031433,000056:
031434,000057: 36,2012 00003 RELINT
031435,000058:
031436,000059: 36,2013 32336 CAF 135SECS # SET TDEC =TIG-50
031437,000060: 36,2014 54001 TS L
031438,000061: 36,2015 37761 CAF ZERO
031439,000062: 36,2016 21567 DAS TDEC
031440,000063:
031441,000064: 36,2017 00006 EXTEND # SET RETURN FROM MIDTOAVE TO INTRTN
031442,000065: 36,2020 32361 DCA MDAVADR
031443,000066: 36,2021 52006 DXCH Z # DO MIDTOAVE VIA RVUPDATE
031444,000067:
031445,000068: 36,2022 00006 INTRTN EXTEND
031446,000069: 36,2023 32353 DCA DPS2ADR # INTEGRATION DONE-DO PRE-DPS2
031447,000070: 36,2024 52006 DXCH Z # STATE AT RIGNTION-TIME AT TET FOR PREDPS
031448,000071:
031449,000072: # PRE-DPS2 RETURN TO RETPREB WITH ULLAGE-ON TIME AT TULLG, (TIG-7.5).
031450,000073: # THE DESIRED 1/2 UNIT THRUST VECTOR AT POINTVSM.
031451,000074: # STATE VECTOR IN SM COORDINATES STORED AT RN, VN WITH CORRESPONDING
031452,000075: # TIME AT PIPTIME WHERE (TULLG - PIPTIME)IS BETWEEN
031453,000076: # 3.8 AND 6 SECS.
031454,000077:
![]() |
Page 694 |
031456,000079:
031457,000080: 36,2025 00004 RETPREB INHINT
031458,000081: 36,2026 00006 EXTEND
031459,000082: 36,2027 31457 DCA TULLG # C(TULLG)=TIG-7.5
031460,000083: 36,2030 52145 DXCH MPAC
031461,000084: 36,2031 42337 CS 22.5SECS
031462,000085: 36,2032 54001 TS L
031463,000086: 36,2033 37761 CAF ZERO
031464,000087: 36,2034 54146 TS MPAC +2
031465,000088: 36,2035 20145 DAS MPAC # C(MPAC)=TIG-30
031466,000089: 36,2036 00006 EXTEND
031467,000090: 36,2037 40025 DCS TIME2 # GET CURRENT TIME
031468,000091: 36,2040 20145 DAS MPAC # C(MPAC)=DELTA(TIG-30)
031469,000092: 36,2041 07320 TC TPAGREE # MAKE SIGNS AGREE
031470,000093: 36,2042 52145 DXCH MPAC
031471,000094:
031472,000095: 36,2043 05757 TC LONGCALL
031473,000096: 36,2044 E4,1566 EBANK= TDEC
031474,000097: 36,2044 02102 74064 2CADR TIG11-30
031475,000098:
031476,000099: 36,2046 00003 RELINT
031477,000100:
031478,000101: 36,2047 06103 TC INTPRET
031479,000102: 36,2050 77775 VLOAD
031480,000103: 36,2051 01011 RN # STATE STORED IN RAVEGON AND VAVEGON FOR
031481,000104: 36,2052 26115 STOVL RAVEGON # AVERAGE G INITIALIZATION AT PIPTIME
031482,000105: 36,2053 01017 VN
031483,000106: 36,2054 16123 STODL VAVEGON
031484,000107: 36,2055 35451 D1/2 # JAM .5,0,0 IN SCAXIS FOR KALCMANU
031485,000108: 36,2056 15664 STODL SCAXIS
031486,000109: 36,2057 35076 DZERO
031487,000110: 36,2060 01666 STORE SCAXIS +2
031488,000111: 36,2061 15670 STODL SCAXIS +4
031489,000112: 36,2062 01321 PIPTIME # THIS TIME CONSISTANT WITH STATE-RAVEGON
031490,000113: 36,2063 02264 STORE DT11TEMP # USED AFTER KALCMANU TO CALL PREREAD
031491,000114: 36,2064 43131 SSP SET
031492,000115: 36,2065 01653 RATEINDX # SET KALCMANU FOR ANGULAR RATE OF 5 DEG/S
031493,000116: 36,2066 00004 4
031494,000117: 36,2067 01063 33D
031495,000118:
031496,000119: 36,2070 77776 EXIT
031497,000120:
031498,000121: 36,2071 35226 CAF PRIO30 # DO ATTITUDE MANEUVER JOB
031499,000122: 36,2072 00004 INHINT
031500,000123: 36,2073 05534 TC FINDVAC
031501,000124: 36,2074 E3,1535 EBANK= MIS
031502,000125: 36,2074 02001 70063 2CADR VECPOINT
031503,000126:
031504,000127: 36,2076 05224 TC BANKCALL
031505,000128: 36,2077 26754 CADR ATTSTALL # PUT MP11 TO SLEEP - KALCMANU WILL WAKE
031506,000129:
031507,000130: 36,2100 04732 TC CURTAINS # KALCMANU HAS GIMBALOC PROBLEMS-CURTAINS
031508,000131: 36,2101 05605 TC ENDOFJOB # WAIT FOR TIG-30
031509,000132:
![]() |
Page 695 |
031511,000134:
031512,000135: 36,2102 37743 TIG11-30 CAF BIT11 # SEE IF ATTITUDE MANEUVER DONE
031513,000136: 36,2103 70076 MASK FLAGWRD2
031514,000137: 36,2104 10000 CCS A
031515,000138: 36,2105 02277 TC DOCURTN # KALCMANU NOT-DO CURTJOB
031516,000139: 36,2106 04105 TC NEWMODEX # SET MODE TO PROG42
031517,000140: 36,2107 00042 OCT 42
031518,000141:
031519,000142: 36,2110 00006 EXTEND
031520,000143: 36,2111 40025 DCS TIME2 # GET PIPTIME-TIME2
031521,000144: 36,2112 21664 DAS DT11TEMP
031522,000145: 36,2113 11664 CCS DT11TEMP +1
031523,000146: 36,2114 67755 AD ONE # MAKE SURE OF POSITIVE WAITLIST CALL
031524,000147: 36,2115 12120 TCF +3
031525,000148: 36,2116 40000 COM
031526,000149: 36,2117 67735 AD POSMAX
031527,000150: 36,2120 05701 TC WAITLIST
031528,000151: 36,2121 E4,1566 EBANK= TDEC
031529,000152: 36,2121 02364 74064 2CADR PREAVEG
031530,000153:
031531,000154: 36,2123 06074 DPSTART TC ENGINOF1
031532,000155:
031533,000156: 36,2124 05114 TC 1LMP+DT
031534,000157: 36,2125 00226 DEC 150 B-14 # ARM DESCENT ENGINE
031535,000158: 36,2126 01750 DEC 1000 B-14 # DELAY 10 SECONDS
031536,000159:
031537,000160: 36,2127 37755 CAF BIT1 # START UP ABORT STAGE MONITOR
031538,000161: 36,2130 05701 TC WAITLIST
031539,000162: 36,2131 E4,1566 EBANK= TDEC
031540,000163: 36,2131 02245 74064 2CADR ABMON
031541,000164: 36,2133 05114 TIG11-20 TC 1LMP+DT
031542,000165: 36,2134 00126 DEC 86 B-14 # SET MANUAL THROTTLE TO 10 %
031543,000166: 36,2135 00620 DEC 400 B-14 # DELAY 4 SECONDS
031544,000167:
031545,000168: 36,2136 05106 TIG11-16 TC 2LMP+DT
031546,000169: 36,2137 00344 DEC 228 B-14 # ENABLE DPS PQGS ARM 1
031547,000170: 36,2140 00304 DEC 196 B-14 # ENABLE DPS PQGS ARM 2
031548,000171: 36,2141 00144 DEC 100 B-14 # DELAY 1 SECOND
031549,000172:
031550,000173: 36,2142 05106 TIG11-15 TC 2LMP+DT
031551,000174: 36,2143 00364 DEC 244 B-14 # DPS PQGS =1 ON
031552,000175: 36,2144 00324 DEC 212 B-14 # DPS PQGS =2 ON
031553,000176:
031554,000177: 36,2145 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
031555,000178:
031556,000179: 36,2146 05307 TIG-7.5 TC IBNKCALL
031557,000180: 36,2147 34024 CADR ULLAGE # CALL FOR 4 JET ULLAGE
031558,000181:
031559,000182: 36,2150 05717 TC FIXDELAY
031560,000183: 36,2151 01356 DEC 750 B-14 # DELAY 7.5 SECONDS, UNTIL ENGINEON
031561,000184:
![]() |
Page 696 |
031563,000186:
031564,000187: 36,2152 06054 TIG11 TC ENGINEON
031565,000188: 36,2153 05717 TC FIXDELAY
031566,000189:
031567,000190: 36,2154 00062 DEC 50 B-14 # DELAY HALF A SECOND
031568,000191:
031569,000192: 36,2155 05307 TC IBNKCALL
031570,000193: 36,2156 34030 CADR NOULLAGE
031571,000194:
031572,000195: 36,2157 05717 TC FIXDELAY
031573,000196: 36,2160 04766 DEC 2550 B-14 # WAIT 25.5 SECONDS
031574,000197:
031575,000198: 36,2161 37735 TIG11+26 CAF POSMAX # HAVE BEEN AT 10% THROTTLE FOR 26 SECONDS
031576,000199: 36,2162 55335 TS PCNTF # NOW CALL FOR MAXIMUM THRUST (92.5%)
031577,000200:
031578,000201: 36,2163 00006 EXTEND
031579,000202: 36,2164 32355 DCA PCNTFAD
031580,000203: 36,2165 52006 DXCH Z
031581,000204:
031582,000205: 36,2166 00006 EXTEND
031583,000206: 36,2167 32351 DCA BURNADR # STARTING DPS2 GUIDANCE: TIG +26 SECONDS
031584,000207: 36,2170 53073 DXCH AVGEXIT
031585,000208:
031586,000209: 36,2171 05745 TC TASKOVER
031587,000210:
031588,000211: 36,2172 00006 RETBURN EXTEND # RETURN FROM BURN GUIDANCE
031589,000212: 36,2173 32363 DCA ADROFSER # SET SERVICER EXIT TO KILL BURN GUID
031590,000213:
031591,000214: 36,2174 53073 DXCH AVGEXIT
031592,000215:
031593,000216: 36,2175 37755 CAF BIT1 # SET TASK FOR RANDOM THROTTLE
031594,000217: 36,2176 00004 INHINT
031595,000218: 36,2177 05701 TC WAITLIST # PROGRAM P44
031596,000219: 36,2200 E4,1566 EBANK= TDEC
031597,000220: 36,2200 02203 74064 2CADR PROG44
031598,000221:
031599,000222: 36,2202 05605 TC ENDOFJOB # READACCS STILL ACTIVE
031600,000223:
![]() |
Page 697 |
031602,000225:
031603,000226: # THE DPS2 RANDOM THROTTLE PROG44 STARTS APPROXIMATELY AT TIG+705. THE
031604,000227: # EXACT TIME AND THRUST LEVEL SETTING AT THE START OF PROG44 ARE COMPUTED
031605,000228: # BY BURN GUIDANCE PROG43. THE SUBSEQUENT THRUST COMMANDS ARE LISTED.
031606,000229:
031607,000230: # T 10 PERCENT THRUST
031608,000231: # T+10 50 PERCENT
031609,000232: # T+30 30 PERCENT
031610,000233: # T+40 20 PERCENT
031611,000234: # T+50 92.5 PERCENT FOR 2 SECS THEN FIRE-IN-THE-HOLE
031612,000235:
031613,000236: 36,2203 04105 PROG44 TC NEWMODEX
031614,000237: 36,2204 00044 OCT 44 # SET MODE TO RANDOM THROTTLE
031615,000238:
031616,000239: 36,2205 32341 CAF 22SECS11 # DO ASCENT COOLANT VALVE TASK IN 22 SECS
031617,000240: 36,2206 05701 TC WAITLIST
031618,000241: 36,2207 E4,1566 EBANK= TDEC
031619,000242: 36,2207 02422 74064 2CADR ASWTVLON # COOLANT VALVE CALL
031620,000243:
031621,000244: 36,2211 37753 INDPCT CAF FOUR
031622,000245: 36,2212 55662 TS MPRETRN # INDEX
031623,000246:
031624,000247: 36,2213 50000 INDEX A # OFFSET POINTER
031625,000248: 36,2214 32342 CAF 20PCTHR # AMOUNT OF THROTTLE
031626,000249: 36,2215 55335 TS PCNTF
031627,000250:
031628,000251: 36,2216 00006 EXTEND
031629,000252: 36,2217 32355 DCA PCNTFAD # GO TO THRUSTING ROUTINE
031630,000253: 36,2220 52006 DXCH Z
031631,000254:
031632,000255: 36,2221 05717 TC FIXDELAY
031633,000256: 36,2222 01750 10SECS11 DEC 1000 B-14 # DELAY 10 SECS
031634,000257:
031635,000258: 36,2223 11662 CCS MPRETRN # DECREMENT INDEX
031636,000259: 36,2224 02212 TC INDPCT +1 # NO
031637,000260:
031638,000261: 36,2225 37735 CAF 925PCTHR # TURN ON 92.5 THRUST
031639,000262: 36,2226 55335 TS PCNTF
031640,000263: 36,2227 00006 EXTEND
031641,000264: 36,2230 32355 DCA PCNTFAD # GO FOR THRUSTING
031642,000265: 36,2231 52006 DXCH Z
031643,000266:
031644,000267: 36,2232 32311 CAF 1SEC11 # THRUST AT MAX FOR 2 SEC, 1 SEC HERE AND
031645,000268: 36,2233 05701 TC WAITLIST # 1 MORE IN FITHCMD
031646,000269: 36,2234 E4,1566 EBANK= TDEC
031647,000270: 36,2234 02237 74064 2CADR FITHCMD
031648,000271:
031649,000272: 36,2236 05745 TC TASKOVER
031650,000273:
031651,000274: # FITH/APS1 BURN PROGRAM 74
031652,000275:
![]() |
Page 698 |
031654,000277: # WITH DETECTION OF THE ABORT STAGE DISCRETE BY THE ABORT STAGE MONITOR
031655,000278: # THE FOLLOWING EVENTS OCCUR BY PROGRAM OR ARE PROCESSED AUTOMATICALLY
031656,000279: # BY THE LEM SEQUENCER.
031657,000280:
031658,000281: # T-1.0 ABORT STAGE ARM (PROGRAMMED)
031659,000282: # T ABORT STAGE COMMAND (PROGRAMMED)
031660,000283: # ATTITUDE HOLD (PROGRAMMED)
031661,000284: # T+.04 ASCENT PRESSURIZED
031662,000285: # T+.15 DESCENT ENGINE-OFF
031663,000286: # T+.42 ASCENT ENGINE ARM
031664,000287: # ASCENT/DESCENT STAGING INITIATED
031665,000288: # STAGE VERIFIED
031666,000289: # T+.46 INTERSTAGE BOLTS FIRED
031667,000290: # ASCENT STAGE UMBILICAL ELECTRICAL DEADFACE
031668,000291:
031669,000292: # T+.50 DESCENT STAGE UMBILICAL ELEC. DEADFACE
031670,000293: # T+.55 ASCENT/DESCENT STAGE UMBILICAL CUT
031671,000294: # T+.78 ASCENT ENGINE REACHES 90 PC THRUST
031672,000295: # T+1.0 CHANGE LEM MASS (PROGRAMMED)
031673,000296: # DESCENT ENGINE ARM-OFF (PROGRAMMED)
031674,000297: # T+5.0 ASCENT ENGINE-OFF (PROGRAMMED)
031675,000298:
031676,000299: 36,2237 05114 FITHCMD TC 1LMP+DT # THRUST AT MAX FOR 1 MORE SEC AND ABORT
031677,000300: 36,2240 00026 DEC 22 B-14 # ABORT STAGE ARM
031678,000301: 36,2241 00144 DEC 100 B-14 # DELAY 1.0 SEC.
031679,000302:
031680,000303: 36,2242 05073 TC 1LMP # INITIATE ABORT STAGE COMMAND
031681,000304: 36,2243 00046 DEC 38 B-14
031682,000305:
031683,000306: 36,2244 05745 TC TASKOVER # LET ABORT MONITOR TAKE IT FROM HERE
031684,000307:
031685,000308: 36,2245 37752 ABMON CAF BIT4 # ABORT STAGE MONITOR SAMPLES CHANNEL
031686,000309: 36,2246 00006 EXTEND # 30 FOR ABORT STAGE DISCRETE EVERY .5 SEC
031687,000310: 36,2247 02030 RAND 30
031688,000311: 36,2250 00006 EXTEND
031689,000312: 36,2251 12255 BZF FITHGCMD # ABORT DISCRETE PRESENT-KILL MONITOR
031690,000313:
031691,000314: 36,2252 05717 TC FIXDELAY # NO ABORT DISCRETE-CONTINUE TO MONITOR
031692,000315:
031693,000316: 36,2253 00062 DEC 50 B-14 # DELAY .5 SECS
031694,000317: 36,2254 12245 TCF ABMON
031695,000318:
031696,000319: 36,2255 05307 FITHGCMD TC IBNKCALL
031697,000320: 36,2256 34057 CADR STOPRATE # SET ATTITUDE HOLD
031698,000321:
031699,000322: 36,2257 04105 TC NEWMODEX # SET MODE TO FIRE-IN-THE-HOLE
031700,000323: 36,2260 00074 OCT 74 # PROG74
031701,000324:
031702,000325: 36,2261 E5,1540 EBANK= MASSES # EBANK5
031703,000326: 36,2261 35677 CAF EBANK5
031704,000327: 36,2262 54003 TS EBANK # JAM 05 IN EBANK
031705,000328: 36,2263 00006 EXTEND
031706,000329:
![]() |
Page 699 |
031708,000331: 36,2264 31543 DCA LEMMASS2 # CHANGE LEM MASS AT DPS/APS SEPARATION
031709,000332: 36,2265 53333 DXCH MASS
031710,000333: 36,2266 37743 CAF BIT11 # RETURN EBANK TO 04
031711,000334: 36,2267 54003 TS EBANK
031712,000335: 36,2270 E4,1566 EBANK= TDEC
031713,000336:
031714,000337: 36,2270 05717 TC FIXDELAY
031715,000338: 36,2271 00144 DEC 100 B-14 # DELAY 1 SEC TO DPS ARM OFF
031716,000339:
031717,000340: 36,2272 05114 TC 1LMP+DT # ENGINE SELECT-DESC ARM OFF-
031718,000341: 36,2273 00227 DEC 151 B-14 # APS BURN FOR 5 SECS
031719,000342: 36,2274 00620 DEC 400 B-14 # DELAY 4.0 SECONDS
031720,000343:
031721,000344: 36,2275 06071 TC ENGINOFF # GO FOR ENGINE SHUTDOWN
031722,000345:
031723,000346: 36,2276 05745 TC TASKOVER
031724,000347:
031725,000348:
031726,000349:
031727,000350: 36,2277 05224 DOCURTN TC BANKCALL # GO SET UP CURTAIN JOB
031728,000351: 36,2300 57267 CADR CURTJOB
031729,000352:
031730,000353: 36,2301 32311 MP11TERM CAF 1SEC11 # SET TO DO MP11 TERMINAL TASKS IN 1 SEC
031731,000354: 36,2302 00004 INHINT
031732,000355: 36,2303 05701 TC WAITLIST
031733,000356: 36,2304 E4,1566 EBANK= TDEC
031734,000357: 36,2304 02307 74064 2CADR MP11OUT
031735,000358:
031736,000359: 36,2306 05605 TC ENDOFJOB # TERMINATE JOB SET BY DVMON
031737,000360:
031738,000361: 36,2307 05114 MP11OUT TC 1LMP+DT
031739,000362: 36,2310 00047 DEC 39 B-14 # INITIATE ABORT STAGE COMMAND RESET
031740,000363: 36,2311 00144 1SEC11 DEC 100 B-14 # DELAY 1 SEC
031741,000364:
031742,000365: 36,2312 05114 TC 1LMP+DT
031743,000366: 36,2313 00267 DEC 183 B-14 # LANDING RADAR POWER OFF
031744,000367: 36,2314 01440 DEC 800 B-14 # DELAY 8 SECS
031745,000368:
031746,000369: 36,2315 05106 TC 2LMP+DT
031747,000370: 36,2316 00365 DEC 245 B-14 # DPS PQGS U AND 2 OFF
031748,000371: 36,2317 00325 DEC 213 B-14
031749,000372: 36,2320 00144 DEC 100 B-14 # DELAY 1 SEC
031750,000373:
031751,000374: 36,2321 05106 TC 2LMP+DT
031752,000375: 36,2322 00345 DEC 229 B-14 # DPS PQGS ARM 1 AND 2 DISABLE
031753,000376: 36,2323 00305 DEC 197 B-14
031754,000377: 36,2324 03554 DEC 1900 B-14 # DELAY 19 SECS TO KILL AVEG
031755,000378:
031756,000379: 36,2325 06036 TC FLAG1DWN # KILL AVERAGE G
031757,000380: 36,2326 00001 OCT 1
031758,000381:
![]() |
Page 700 |
031760,000383: 36,2327 05307 TC IBNKCALL
031761,000384: 36,2330 34012 CADR SETMAXDB
031762,000385:
031763,000386: 36,2331 05141 TC MPENTRY # SETUP MISSION PHASE SCHEDULING
031764,000387: 36,2332 00002 DEC 2 B-14 # TIMER -2-
031765,000388: 36,2333 00015 DEC 13 B-14 # MISSION PHASE -13-
031766,000389: 36,2334 01753 ADRES MP11TO13
031767,000390: 36,2335 05745 TC TASKOVER # MISSION PHASE 11 COMPLETE
031768,000391:
![]() |
Page 701 |
031770,000393: # ????????????????????????????????
031771,000394: # NUMERICAL AND ADDRESS CONSTANTS
031772,000395: # ????????????????????????????????
031773,000396:
031774,000397:
031775,000398:
031776,000399: # ** TIME CONSTANTS **
031777,000400:
031778,000401: 36,2336 32274 135SECS DEC 13500 B-14
031779,000402: 36,2337 04312 22.5SECS DEC 2250 B-14
031780,000403: 36,2340 04766 25.5SECS DEC 2550 B-14
031781,000404: 36,2341 04230 22SECS11 DEC 2200 B-14
031782,000405:
031783,000406:
031784,000407:
031785,000408: # ** THRUST LEVEL CONSTANTS **
031786,000409:
031787,000410: 36,2342 06315 20PCTHR DEC .2
031788,000411: 36,2343 14632 DEC .4
031789,000412: 36,2344 11463 DEC .3
031790,000413: 36,2345 20000 DEC .5
031791,000414: 36,2346 03146 DEC .1
031792,000415: 36,2347 7735 925PCTHR = POSMAX # FOR MAXIMUM PERMITTED THRUST (92.5%)
031793,000416:
031794,000417:
031795,000418:
031796,000419: # ** ADDRESS CONSTANTS **
031797,000420:
031798,000421: 36,2347 02233 AVEG11AD GENADR AVERAGEG
031799,000422: 36,2350 E4,1566 EBANK= TDEC
031800,000423: 36,2350 02041 44004 BURNADR 2CADR BURN
031801,000424:
031802,000425:
031803,000426: 36,2352 E4,1566 EBANK= TDEC
031804,000427: 36,2352 02000 44004 DPS2ADR 2CADR PREBURN
031805,000428:
031806,000429: 36,2354 E5,1557 EBANK= ETHROT # EBANK 5
031807,000430: 36,2354 03367 60065 PCNTFAD 2CADR PCNTFMAX
031808,000431:
031809,000432: 36,2356 E4,1566 EBANK= TDEC
031810,000433: 36,2356 02301 74064 MP11TMAD 2CADR MP11TERM
031811,000434:
031812,000435: 36,2360 E4,1566 EBANK= TDEC
031813,000436: 36,2360 02301 16004 MDAVADR 2CADR RVUPDATE
031814,000437:
031815,000438: 36,2362 E5,1511 EBANK= DVCNTR
031816,000439: 36,2362 02312 60065 ADROFSER 2CADR SERVEXIT
031817,000440:
![]() |
Page 702 |
031819,000442: # ????????????????????????????????
031820,000443: # TASKS CALLED ELSEWHERE IN MP11
031821,000444: # ????????????????????????????????
031822,000445:
031823,000446:
031824,000447:
031825,000448: 36,2364 37755 PREAVEG CAF BIT1 # SET UP PREREAD FOR RIGHT NOW
031826,000449: 36,2365 05701 TC WAITLIST
031827,000450: 36,2366 E5,1506 EBANK= DVTOTAL
031828,000451: 36,2366 02000 60065 2CADR PREREAD
031829,000452:
031830,000453: 36,2370 32347 CAF AVEG11AD # GENADR OF AVERAGE G
031831,000454: 36,2371 55322 TS DVSELECT
031832,000455:
031833,000456: 36,2372 00006 EXTEND # SET SERVICER EXIT
031834,000457: 36,2373 32363 DCA ADROFSER
031835,000458: 36,2374 53073 DXCH AVGEXIT
031836,000459:
031837,000460: 36,2375 00006 EXTEND # SET MP RETURN FOR ENGINE SHUT DOWN
031838,000461: 36,2376 32357 DCA MP11TMAD
031839,000462: 36,2377 53075 DXCH DVMNEXIT
031840,000463:
031841,000464: 36,2400 05745 TC TASKOVER
031842,000465:
031843,000466:
031844,000467: 36,2401 05114 MP11TASK TC 1LMP+DT
031845,000468: 36,2402 00354 DEC 236 B-14 # DFI T/M CALIBRATION -ON
031846,000469: 36,2403 02260 DEC 1200 B-14 # DELAY 12 SECS
031847,000470:
031848,000471: 36,2404 05106 TC 2LMP+DT
031849,000472: 36,2405 00355 DEC 237 B-14 # DFI T/M CALIBRATE -OFF
031850,000473: 36,2406 00306 DEC 198 B-14 # C+W ALARM RESET -COMMAND
031851,000474: 36,2407 00310 2SECS11 DEC 200 B-14 # DELAY 2 SECS
031852,000475:
031853,000476: 36,2410 05114 TC 1LMP+DT
031854,000477: 36,2411 00307 DEC 199 B-14 # C+W ALARM RESET-COMMAND RESET
031855,000478: 36,2412 00144 DEC 100 B-14 # DELAY 1 SEC
031856,000479:
031857,000480: 36,2413 05106 TC 2LMP+DT
031858,000481: 36,2414 00266 DEC 182 B-14 # LR POWER -ON
031859,000482: 36,2415 00032 DEC 26 B-14 # RADAR SELFTEST -ON
031860,000483: 36,2416 13560 DEC 6000 B-14 # DELAY 60 SECS.
031861,000484:
031862,000485: 36,2417 05073 TC 1LMP
031863,000486: 36,2420 00033 DEC 27 B-14 # RADAR SELFTEST-OFF
031864,000487:
031865,000488: 36,2421 05745 TC TASKOVER
031866,000489:
![]() |
Page 703 |
031868,000491:
031869,000492: 36,2422 05114 ASWTVLON TC 1LMP+DT
031870,000493: 36,2423 00336 DEC 222 B-14 # ASCENT WATER COOLANT VALVE - OPEN
031871,000494: 36,2424 00310 DEC 200 B-14 # DELAY 2.0 SEC.
031872,000495:
031873,000496: 36,2425 05073 TC 1LMP
031874,000497: 36,2426 00337 DEC 223 B-14 # ASCENT WATER COOLANT VALVE - OPEN RESET
031875,000498:
031876,000499: 36,2427 05745 TC TASKOVER
End of include-file MISSION_PHASE_11_-_DPS2_FITH_APS1.agc. Parent file is MAIN.agc