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