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.
|
029383,000002: ## Copyright: Public domain.
029384,000003: ## Filename: MP4-CONTINGENCY_ORBIT_INSERTION.agc
029385,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
029386,000005: ## It is part of an early development version of the software
029387,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
029388,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
029389,000008: ## upon which Don Eyles's offline development program Shepatin
029390,000009: ## was based; the listing herein transcribed was actually for
029391,000010: ## the equivalent revision 0 of Shepatin.
029392,000011: ## This file is intended to be a faithful transcription, except
029393,000012: ## that the code format has been changed to conform to the
029394,000013: ## requirements of the yaYUL assembler rather than the
029395,000014: ## original YUL assembler.
029396,000015: ## Reference: pp. 654-665
029397,000016: ## Assembler: yaYUL
029398,000017: ## Contact: Ron Burkey <info@sandroid.org>.
029399,000018: ## Website: www.ibiblio.org/apollo/index.html
029400,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
029401,000020: ## 2017-06-14 RSB Transcribed.
029402,000021: ## 2017-06-14 HG Fix operand WACHTHTD -> WACTTHTD
029403,000022: ## TDECTEMP -> TDEC
029404,000023: ## RUPREG3 -> RUPTREG3
029405,000024: ## RUPREG1 -> RUPTREG1
029406,000025: ## Remove constant 004CEK
029407,000026: ## 2017-06-22 RSB Proofed comment text with
029408,000027: ## octopus/ProoferComments.
029409,000028:
|
|
Page 654 |
029411,000030: 33,2000 BANK 33
029412,000031:
029413,000032: 33,2000 E4,1566 EBANK= TDEC
029414,000033: # PROGRAM NAME- DATE-
029415,000034: # MISSION PHASE 4 2 DECEMBER 1966
029416,000035: # MOD NO- 20 LOG SECTION-
029417,000036: # MOD BY- SCHULENBERG MP4-CONTINGENCY ORBIT INSERTION
029418,000037:
029419,000038: # FUNCTIONAL DESCRIPTION-
029420,000039: # CONTINGENCY ORBIT INSERTION IS CALLED BY GROUND IN EVENT OF PREMATURE SIVB SHUTDOWN AND ATTEMPTS TO
029421,000040: # EFFECT AN ORBITAL INSERTION USING THE DPS ENGINE AND THE GUIDANCE EQUATIONS USED FOR THE APS BURNS. THE
029422,000041: # PROGRAM LEAVES MISSION PHASE TIMERS INHIBITED AND LEAVES FURTHER CONTROLTO THE GROUND VIA UPLINK.
029423,000042: # CALLING SEQUENCE- SUBROUTINES CALLED-
029424,000043: # START MP4 WHEN ABORT FLAG1UP FLAG1DWN
029425,000044:
029426,000045: # COMMAND MONITOR DETECTS MP4 FIXDELAY WAITLIST
029427,000046: # COMMAND VIA LGC UPLINK. VPATCHER KALCMANU
029428,000047: # ASCENT UL4JETON
029429,000048: # NORMAL EXIT MODES- LMP UL4JETOF
029430,000049: # TASKOVER (AWAITS EXECUTIVE ENGINEON
029431,000050: # FURTHER COMMANDS FROM GROUND) MIDTOAVE ENGINOFF
029432,000051: # ALARM EXIT MODES- BANKCALL ENGINOF1
029433,000052: # NONE IBNKCALL LASTBIAS
029434,000053:
029435,000054: # ERASABLE INITIALIZATION REQUIRED-
029436,000055: # NONE
029437,000056:
029438,000057: # OUTPUT- SAME AS FOR KALCMANU
029439,000058: # DEBRIS- SAME AS FOR KALCMANU
029440,000059:
029441,000060: 33,2000 00006 MP4JOB EXTEND
029442,000061: 33,2001 32545 DCA WACTTHTD # TO ENABLE A RESTART
029443,000062: 33,2002 52376 DXCH FLUSHREG
029444,000063:
029445,000064: 33,2003 04105 TC NEWMODEX # START CONTINGENCY ORBIT INSERTION
029446,000065: 33,2004 00072 OCT 72
029447,000066:
029448,000067: 33,2005 37753 CAF FOUR # SIGNAL START OF MISSION PHASE 4
029449,000068: 33,2006 54765 TS PHASENUM
029450,000069:
029451,000070: 33,2007 06036 TC FLAG1DWN # TERMINATE AVEG AND DO AUTO AVETOMID
029452,000071: 33,2010 00001 OCT 1
029453,000072:
029454,000073: 33,2011 00004 INHINT
029455,000074: 33,2012 37755 CAF BIT1
029456,000075: 33,2013 05701 TC WAITLIST # SHORT WAITLIST TO INITIALIZE LMP COMMAND
029457,000076: 33,2014 E4,1566 EBANK= TDEC
029458,000077: 33,2014 02017 66064 2CADR ABORTPRR
029459,000078:
029460,000079: 33,2016 15605 TCF ENDOFJOB # END MP4JOB
|
|
Page 655 |
029462,000081:
029463,000082: # RCS ABORT PRESSURIZATION ROUTINE
029464,000083:
029465,000084: 33,2017 37761 ABORTPRR CAF ZERO # INSURE RCS JETS OFF
029466,000085: 33,2020 00006 EXTEND
029467,000086: 33,2021 01005 WRITE 5
029468,000087:
029469,000088: 33,2022 05717 TC FIXDELAY
029470,000089: 33,2023 00144 DEC 100 B-14 # DELAY ONE SECOND
029471,000090:
029472,000091: 33,2024 05106 TC 2LMP+DT
029473,000092: 33,2025 00274 DEC 188 B-14 # RCS MAIN S/O VALVES, SYS A-OPEN**
029474,000093: 33,2026 00276 DEC 190 B-14 # RCS MAIN S/O VALVES, SYS B-OPEN**
029475,000094: 33,2027 00144 DEC 100 B-14 # DELAY ONE SECOND
029476,000095:
029477,000096: 33,2030 05114 TC 1LMP+DT
029478,000097: 33,2031 00004 DEC 4 B-14 # ED BATTERY ACTIVATION-ON
029479,000098: 33,2032 00144 DEC 100 B-14 # DELAY ONE SECOND
029480,000099:
029481,000100: 33,2033 05106 TC 2LMP+DT
029482,000101: 33,2034 00275 DEC 189 B-14 # RCS MAIN S/O VALVES, SYS A-OPEN RESET
029483,000102: 33,2035 00277 DEC 191 B-14 # RCS MAIN S/O VALVES, SYS B-OPEN RESET
029484,000103: 33,2036 00144 DEC 100 B-14 # DELAY ONE SECOND
029485,000104:
029486,000105: 33,2037 05114 TC 1LMP+DT
029487,000106: 33,2040 00006 DEC 6 B-14 # RCS PRESSURE-FIRE**
029488,000107: 33,2041 00144 DEC 100 B-14 # DELAY ONE SECOND
029489,000108:
029490,000109: 33,2042 05114 TC 1LMP+DT
029491,000110: 33,2043 00005 DEC 5 B-14 # ED BATTERY ACTIVATION-SAFE
029492,000111: 33,2044 00144 DEC 100 B-14 # DELAY ONE SECOND
029493,000112:
029494,000113: 33,2045 05114 TC 1LMP+DT
029495,000114: 33,2046 00007 DEC 7 B-14 # RCS PRESSURE - FIRE RESET
029496,000115: 33,2047 00620 DEC 400 B-14 # DELAY FOUR SECONDS
029497,000116:
029498,000117: # END RCS ABORT PRESSURIZATION ROUTINE
029499,000118:
029500,000119: 33,2050 30075 TUMBLCHK CA FLAGWRD1
029501,000120: 33,2051 77741 MASK BIT13
029502,000121: 33,2052 00006 EXTEND
029503,000122: 33,2053 12057 BZF NOTUMBL
029504,000123:
029505,000124: 33,2054 05717 TC FIXDELAY
029506,000125: 33,2055 00062 DEC 50 B-14 # DELAY .5 SECS AND CHECK AGAIN
029507,000126: 33,2056 12050 TCF TUMBLCHK
029508,000127:
029509,000128: 33,2057 06036 NOTUMBL TC FLAG1DWN # IF NO TUMBLING-TERMINATE MONITOR
029510,000129: 33,2060 20000 OCT 20000 # TERMINATE TUMBLE MONITOR
029511,000130:
029512,000131: 33,2061 06045 TC FLAG2DWN # TERMINATE ABORT COMMAND MONITOR
|
|
Page 656 |
029514,000133:
029515,000134: 33,2062 00400 OCT 00400
029516,000135:
029517,000136: 33,2063 00006 TIG4-51 EXTEND
029518,000137: 33,2064 30025 DCA TIME2 # GET CURRENT TIME
029519,000138: 33,2065 53567 DXCH TDEC
029520,000139:
029521,000140: 33,2066 32467 CAF 021CEK # UPDATE STATE TO TIG4-30
029522,000141: 33,2067 54001 TS L
029523,000142: 33,2070 37761 CAF ZERO
029524,000143: 33,2071 21567 DAS TDEC
029525,000144:
029526,000145: # BEGIN ABORT LEM/S4B SEPARATION PROCEDURE
029527,000146:
029528,000147: 33,2072 32530 MP4SEP CAF MASSADR # DECLARE EBANK= 5
029529,000148: 33,2073 54003 TS EBANK
029530,000149: 33,2074 E5,1540 EBANK= MASSES
029531,000150:
029532,000151: 33,2074 00006 EXTEND
029533,000152: 33,2075 31541 DCA LEMMASS1 # INITIALIZE MASS MONITOR
029534,000153: 33,2076 53333 DXCH MASS
029535,000154:
029536,000155: 33,2077 37761 CAF ZERO # INITIALIZE DELAREA FOR MASS MONITOR
029537,000156: 33,2100 55551 TS DELAREA
029538,000157: 33,2101 55552 TS DELAREA +1
029539,000158:
029540,000159: 33,2102 32527 CAF TDECADR # DECLARE EBANK= 4
029541,000160: 33,2103 54003 TS EBANK
029542,000161: 33,2104 E4,1566 EBANK= TDEC
029543,000162:
029544,000163: 33,2104 32471 CAF XTRANSON # +X TRANSLATION- ON (PRE-DAP)
029545,000164: 33,2105 00006 EXTEND
029546,000165: 33,2106 01005 WRITE 5
029547,000166:
029548,000167: 33,2107 05307 TC IBNKCALL # +X TRANSLATION-ON (4JET)
029549,000168: 33,2110 34024 CADR ULLAGE
029550,000169:
029551,000170: 33,2111 05114 TC 1LMP+DT
029552,000171: 33,2112 00072 DEC 58 B-14 # LEM/SIVB SEPARATE - ARM ON
029553,000172: 33,2113 00062 DEC 50 B-14 # DELAY 500 MS.
029554,000173:
029555,000174: 33,2114 40077 CS DAPBOOLS
029556,000175: 33,2115 77743 MASK GODAPGO # TURN ON THE DAP
029557,000176: 33,2116 26077 ADS DAPBOOLS
029558,000177:
029559,000178: 33,2117 05307 TC IBNKCALL
029560,000179: 33,2120 34012 CADR SETMAXDB
029561,000180:
029562,000181: 33,2121 05717 TC FIXDELAY # WAIT FOR 300 MS.
029563,000182: 33,2122 00062 DEC 50 B-14 # DELAY 500 MS.
|
|
Page 657 |
029565,000184:
029566,000185: 33,2123 05307 TC IBNKCALL # HOLD VEHICLE ATTITUDE RATE
029567,000186: 33,2124 34034 CADR HOLDRATE
029568,000187:
029569,000188: 33,2125 05114 TC 1LMP+DT
029570,000189: 33,2126 00132 DEC 90 B-14 # LEM/SIVB SEPARATE- COMMAND
029571,000190: 33,2127 00012 DEC 10 B-14 # DELAY 100 MS.
029572,000191:
029573,000192: 33,2130 05307 TC IBNKCALL
029574,000193: 33,2131 34000 CADR SETMINDB
029575,000194:
029576,000195: 33,2132 05717 TC FIXDELAY
029577,000196: 33,2133 00132 DEC 90 B-14 # DELAY 900 MS.
029578,000197:
029579,000198: 33,2134 05114 TIG4-49 TC 1LMP+DT
029580,000199: 33,2135 00073 DEC 59 B-14 # LEM/S4B SEPARATE-ARM-OFF
029581,000200: 33,2136 00144 DEC 100 B-14 # DELAY ONE SECOND
029582,000201:
029583,000202: 33,2137 05073 TIG4-48 TC 1LMP
029584,000203: 33,2140 00133 DEC 91 B-14 # LEM/S4B SEPARATE-COMMAND RESET
029585,000204:
029586,000205: # END LEM/S4B SEPARATION ROUTINE
029587,000206:
029588,000207: 33,2141 32466 CAF 007CEK
029589,000208: 33,2142 05701 TC WAITLIST
029590,000209: 33,2143 E4,1566 EBANK= TDEC
029591,000210: 33,2143 02265 66064 2CADR TIG4-41
029592,000211:
029593,000212: 33,2145 35667 CAF PRIO27 # START NEW JOB FOR CALCULATIONS
029594,000213: 33,2146 05534 TC FINDVAC
029595,000214: 33,2147 E4,1566 EBANK= TDEC
029596,000215: 33,2147 02152 66064 2CADR LONGJOB
029597,000216:
029598,000217: 33,2151 15745 TCF TASKOVER # END TIG4-48 TASK
029599,000218:
029600,000219: 33,2152 00006 LONGJOB EXTEND
029601,000220: 33,2153 32537 DCA ORBINTAD # DO ORBITAL INTEGRATION
029602,000221: 33,2154 52006 DXCH Z
029603,000222:
029604,000223: 33,2155 32546 PRECOI CAF KALC4AD
029605,000224: 33,2156 55450 TS ASCRET
029606,000225: 33,2157 06103 TC INTPRET
029607,000226: 33,2160 77624 CALL
029608,000227: 33,2161 60347 VPATCHER # RESCALE AND LOAD IGN STATES IN RN AND VN
029609,000228: 33,2162 77745 DLOAD
029610,000229: 33,2163 26525 RCRIT # RCRIT=INJECTION ALTITUDE*2(-25)
029611,000230: 33,2164 26375 STOVL RCO
029612,000231: 33,2165 01017 VN # VN FROM VPATCHER=VIGNTION*2(-7) M/CS
029613,000232: 33,2166 53435 VXV UNIT
029614,000233: 33,2167 01011 RN # RN FROM VPATCHER=RIGNTION*2(N-29) M
029615,000234: 33,2170 26007 STOVL QAXIS # UNIT HORIZONTAL VECTOR NORMAL TO ORBIT
|
|
Page 658 |
029617,000236: 33,2171 01033 UNITR # UNITR FROM AVEG=UNIT(RIGNTION)*2(-1) M
029618,000237: 33,2172 02001 STORE PAXIS1
029619,000238: 33,2173 76435 VXV VSL1
029620,000239: 33,2174 02007 QAXIS
029621,000240: 33,2175 26015 STOVL SAXIS # UNIT HORIZONTAL VECTOR PARALLEL TO ORBIT
029622,000241: 33,2176 26475 ABLOCK
029623,000242: 33,2177 26023 STOVL AT
029624,000243: 33,2200 26503 BBLOCK
029625,000244: 33,2201 26031 STOVL ATMEAS
029626,000245: 33,2202 26517 CBLOCK
029627,000246: 33,2203 16041 STODL RDOTD
029628,000247: 33,2204 26511 KR1EST
029629,000248: 33,2205 16037 STODL KR1 # LOAD ATTITUDE LIMITING PARAMETER
029630,000249: 33,2206 26513 TGOEST
029631,000250: 33,2207 02350 STORE TGO
029632,000251: 33,2210 43014 CLEAR CLEAR
029633,000252: 33,2211 01674 DIRECT
029634,000253: 33,2212 01675 PASS
029635,000254: 33,2213 50375 VLOAD DOT
029636,000255: 33,2214 02015 SAXIS
029637,000256: 33,2215 01017 VN # ZDOT*2(-8)
029638,000257: 33,2216 77752 SL1 # *2(-7)
029639,000258: 33,2217 26105 STOVL ZDOT
029640,000259: 33,2220 02001 PAXIS1
029641,000260: 33,2221 72441 DOT SL1 # RDOT*2(-8)
029642,000261: 33,2222 01017 VN # *2(-7)
029643,000262: 33,2223 16147 STODL RDOT
029644,000263: 33,2224 26517 DP0
029645,000264: 33,2225 02111 STORE GEFF # GEFF=0
029646,000265: 33,2226 02067 STORE YDOT # YDOT=0
029647,000266: 33,2227 52014 SET GOTO
029648,000267: 33,2230 01473 56D # SET FOR RETURN
029649,000268: 33,2231 64367 GAIN +1 # GO TO USE ASCENT TGO SECTION
029650,000269: 33,2232 43345 TKNOWN DLOAD DAD
029651,000270: 33,2233 02041 RDOTD
029652,000271: 33,2234 02147 RDOT # (RDOT+RDOTD)*2(-7)
029653,000272: 33,2235 41342 SR1 DMP # .5RDOTAVE*2(-7)
029654,000273: 33,2236 02350 TGO # RGO*2(-24),SINCE TGO IS *2(-17)
029655,000274: 33,2237 70415 DAD SR1 # RFREE IS RCO FOR NO R-CONTROL,*2(-24)
029656,000275: 33,2240 01047 RMAG # *2(-25)
029657,000276: 33,2241 51025 DSU BPL
029658,000277: 33,2242 02375 RCO
029659,000278: 33,2243 66247 FREE-R
029660,000279: 33,2244 52014 CLEAR GOTO # IF RFREE SMTHAN RCO, CONSTRAIN RCO
029661,000280: 33,2245 01676 HC
029662,000281: 33,2246 64120 ASCENT
029663,000282: 33,2247 52014 FREE-R SET GOTO
029664,000283: 33,2250 01476 HC # IF RFREE GRTHAN RCO, FREE RCO
029665,000284: 33,2251 64120 ASCENT
029666,000285: 33,2252 77775 PREKALC4 VLOAD
|
|
Page 659 |
029668,000287: 33,2253 02057 UT # GET UT FROM ASCENT OUTPUT REGISTER
029669,000288: 33,2254 25656 STOVL POINTVSM # KALCMANU INPUT REGISTER
029670,000289: 33,2255 26515 BODYVECT # LOAD BODY AXES VECTOR IN SM COORDS
029671,000290: 33,2256 01664 STORE SCAXIS # KALCMANU INPUT VECTOR
029672,000291: 33,2257 66214 SET SSP
029673,000292: 33,2260 01063 33D
029674,000293:
029675,000294: 33,2261 01653 RATEINDX
029676,000295: 33,2262 00006 6 # 10 DEG/SEC.
029677,000296: 33,2263 77776 EXIT
029678,000297:
029679,000298: 33,2264 15605 TCF ENDOFJOB # END LONGJOB
029680,000299:
029681,000300: 33,2265 32526 TIG4-41 CAF AVGENADR # GENADR OF AVERAGEG
029682,000301: 33,2266 55322 TS DVSELECT
029683,000302:
029684,000303: 33,2267 00006 EXTEND
029685,000304: 33,2270 32535 DCA EXITADR # SET AVEG TO EXIT TO END OF JOB UNTIL
029686,000305: 33,2271 53073 DXCH AVGEXIT # IT IS RESET TO ATMAG
029687,000306:
029688,000307: 33,2272 00006 EXTEND
029689,000308: 33,2273 32533 DCA MP4TM1AD # SET MONITOR EXIT
029690,000309: 33,2274 53075 DXCH DVMNEXIT
029691,000310:
029692,000311: 33,2275 05114 TC 1LMP+DT
029693,000312: 33,2276 00004 DEC 4 B-14 # ED BATTERY ACTIVATION-ON
029694,000313: 33,2277 00620 DEC 400 B-14 # DELAY 4 SECONDS
029695,000314:
029696,000315: 33,2300 05307 TIG4-37 TC IBNKCALL # +X TRANSLATION- OFF
029697,000316: 33,2301 34030 CADR NOULLAGE
029698,000317:
029699,000318: 33,2302 05307 TC IBNKCALL
029700,000319: 33,2303 34057 CADR STOPRATE # HOLD VEHICLE ATTITUDE
029701,000320:
029702,000321: 33,2304 05717 TC FIXDELAY
029703,000322: 33,2305 00144 DEC 100 B-14 # DELAY ONE SECOND
029704,000323:
029705,000324: 33,2306 05073 TIG4-36 TC 1LMP
029706,000325: 33,2307 00010 DEC 8 B-14 # LANDING GEAR DEPLOY-FIRE
029707,000326:
029708,000327: 33,2310 32463 CAF 002CEK
029709,000328: 33,2311 05701 TC WAITLIST
029710,000329: 33,2312 E4,1566 EBANK= TDEC
029711,000330: 33,2312 02321 66064 2CADR TIG4-34
029712,000331:
029713,000332: 33,2314 35226 CAF PRIO30 # CALL KALCMANU
029714,000333: 33,2315 05534 TC FINDVAC
029715,000334: 33,2316 E3,1535 EBANK= MIS
029716,000335: 33,2316 02001 70063 2CADR VECPOINT
029717,000336:
|
|
Page 660 |
029719,000338: 33,2320 15745 TCF TASKOVER # END TIG4-36 TASK
029720,000339:
029721,000340: 33,2321 42470 TIG4-34 CS 030CEK # SET PREREAD CALL (AUTO LASTBIAS)
029722,000341: 33,2322 02550 TC TASKSETR
029723,000342: 33,2323 05701 TC WAITLIST
029724,000343: 33,2324 E5,1506 EBANK= DVTOTAL
029725,000344: 33,2324 02000 60065 2CADR PREREAD
029726,000345:
029727,000346: 33,2326 05114 TC 1LMP+DT
029728,000347: 33,2327 00011 DEC 9 B-14 # LANDING GEAR DEPLOY- FIRE RESET
029729,000348: 33,2330 00622 DEC 402 B-14 # DELAY 4 SECONDS
029730,000349:
029731,000350: 33,2331 06074 TIG4-30 TC ENGINOF1 # REMOVE EXTRANEOUS ENGINE DISCRETES
029732,000351:
029733,000352: 33,2332 05106 TC 2LMP+DT
029734,000353: 33,2333 00226 DEC 150 B-14 # ENGINE SELECT- DESC ARM
029735,000354: 33,2334 00126 DEC 86 B-14 # MANUAL THROTTLE- ON 10 PERCENT
029736,000355: 33,2335 02566 DEC 1398 B-14 # DELAY 14 SECONDS
029737,000356:
029738,000357: 33,2336 05106 TIG4-16 TC 2LMP+DT
029739,000358: 33,2337 00344 DEC 228 B-14 # DPS PQGS ARM NO 1 - ENABLE
029740,000359: 33,2340 00304 DEC 196 B-14 # DPS PQGS ARM NO 2- ENABLE
029741,000360: 33,2341 00144 DEC 100 B-14
029742,000361:
029743,000362: 33,2342 05106 TIG4-15 TC 2LMP+DT
029744,000363: 33,2343 00364 DEC 244 B-14 # DPS PQGS NO 1- ON
029745,000364: 33,2344 00324 DEC 212 B-14 # DPS PQGS NO 2- ON
029746,000365: 33,2345 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
029747,000366:
029748,000367: 33,2346 05307 TIG4-7.5 TC IBNKCALL # +X TRANSLATION- ON
029749,000368: 33,2347 34024 CADR ULLAGE
029750,000369:
029751,000370: 33,2350 05717 TC FIXDELAY
029752,000371: 33,2351 01356 DEC 750 B-14 # DELAY 7.5 SECONDS
029753,000372:
029754,000373: 33,2352 35670 CAF PRIO31 # SET UP JOB FOR ATTSTAL
029755,000374: 33,2353 05523 TC NOVAC
029756,000375: 33,2354 E4,1566 EBANK= TDEC
029757,000376: 33,2354 02357 66064 2CADR IGNTEST
029758,000377:
029759,000378: 33,2356 15745 TCF TASKOVER
029760,000379:
029761,000380: 33,2357 05224 IGNTEST TC BANKCALL # WE WAIT UNTIL KALCMANU IS HAPPY
029762,000381: 33,2360 26754 CADR ATTSTALL
029763,000382: 33,2361 04732 TC CURTAINS
029764,000383:
029765,000384: 33,2362 06054 MP4IGN TC ENGINEON # IGNITE DPS ENGINE
029766,000385:
029767,000386: 33,2363 32531 CAF THRSTADR # DECLARE EBANK= 6
029768,000387: 33,2364 54003 TS EBANK
|
|
Page 661 |
029770,000389: 33,2365 E6,1523 EBANK= THRSTCMD
029771,000390:
029772,000391: 33,2365 32472 CAF 10PERTHR # REPORT EXPECTED THRUST TO DAP
029773,000392: 33,2366 55523 TS THRSTCMD
029774,000393:
029775,000394: 33,2367 00004 INHINT
029776,000395: 33,2370 32464 CAF 003CEK
029777,000396: 33,2371 05701 TC WAITLIST
029778,000397: 33,2372 E4,1566 EBANK= TDEC
029779,000398: 33,2372 02375 66064 2CADR MP4IGN+3
029780,000399:
029781,000400: 33,2374 15605 TCF ENDOFJOB
029782,000401:
029783,000402: 33,2375 05307 MP4IGN+3 TC IBNKCALL # +X TRANSLATION- OFF
029784,000403: 33,2376 34030 CADR NOULLAGE
029785,000404:
029786,000405: 33,2377 05114 TC 1LMP+DT
029787,000406: 33,2400 00005 DEC 5 B-14 # ED BATTERY ACTIVATION- SAFE
029788,000407: 33,2401 04374 DEC 2300 B-14 # DELAY 23 SECONDS
029789,000408:
029790,000409: 33,2402 37735 MAXTHRST CAF POSMAX # CALL FOR 92.5 PERCENT THRUST
029791,000410: 33,2403 55335 TS PCNTF
029792,000411: 33,2404 00006 EXTEND
029793,000412: 33,2405 32541 DCA PCNTFMAD
029794,000413: 33,2406 52006 DTCB
029795,000414:
029796,000415: 33,2407 32473 CAF 92PERTHR # REPORT EXPECTED THRUST TO DAP
029797,000416: 33,2410 55523 TS THRSTCMD
029798,000417:
029799,000418: 33,2411 32527 CAF TDECADR # DECLARE EBANK= 4
029800,000419: 33,2412 54003 TS EBANK
029801,000420: 33,2413 E4,1566 EBANK= TDEC
029802,000421:
029803,000422: 33,2413 05717 TC FIXDELAY
029804,000423: 33,2414 00144 DEC 100 B-14 # DELAY ONE SECOND
029805,000424:
029806,000425: 33,2415 00006 GUIDANCE EXTEND # TUNE IN ASCENT GUIDANCE
029807,000426: 33,2416 32543 DCA ATMAG4
029808,000427: 33,2417 53073 DXCH AVGEXIT
029809,000428:
029810,000429: 33,2420 32547 CAF CDUJOBAD
029811,000430: 33,2421 55450 TS ASCRET
029812,000431:
029813,000432: 33,2422 15745 TCF TASKOVER
029814,000433:
029815,000434: 33,2423 00006 MP4TERM1 EXTEND
029816,000435: 33,2424 32535 DCA EXITADR # RESET AVERAGE G EXIT
029817,000436: 33,2425 53073 DXCH AVGEXIT
029818,000437:
029819,000438: 33,2426 05224 TC BANKCALL
|
|
Page 662 |
029821,000440:
029822,000441: 33,2427 34057 CADR STOPRATE # HOLD VEHICLE ATTITUDE
029823,000442:
029824,000443: 33,2430 00004 INHINT
029825,000444: 33,2431 32465 CAF 005CEK
029826,000445: 33,2432 05701 TC WAITLIST
029827,000446: 33,2433 E4,1566 EBANK= TDEC
029828,000447: 33,2433 02436 66064 2CADR TCO+5
029829,000448:
029830,000449: 33,2435 15605 TCF ENDOFJOB
029831,000450:
029832,000451: 33,2436 05106 TCO+5 TC 2LMP+DT
029833,000452: 33,2437 00227 DEC 151 B-14 # ENGINE SELECT-DESC ARM-OFF
029834,000453: 33,2440 00127 DEC 87 B-14 # MANUAL THROTTLE-RESET (30 PERCENT)
029835,000454: 33,2441 00144 DEC 100 B-14 # DELAY ONE SECOND
029836,000455:
029837,000456: 33,2442 05307 TC IBNKCALL # SET MAXIMUM DEADBAND
029838,000457: 33,2443 34012 CADR SETMAXDB
029839,000458:
029840,000459: 33,2444 05717 TC FIXDELAY
029841,000460: 33,2445 01604 DEC 900 B-14 # DELAY NINE SECONDS
029842,000461:
029843,000462: 33,2446 05106 TCO+15 TC 2LMP+DT
029844,000463: 33,2447 00365 DEC 245 B-14 # DPS PQGS NO 1- OFF
029845,000464: 33,2450 00325 DEC 213 B-14 # DPS PQGS NO 2- OFF
029846,000465: 33,2451 00144 DEC 100 B-14
029847,000466:
029848,000467: 33,2452 05106 TC 2LMP+DT
029849,000468: 33,2453 00345 DEC 229 B-14 # DPS PQGS ARM NO 1- DISABLE
029850,000469: 33,2454 00305 DEC 197 B-14 # DPS PQGS ARM NO 2- DISABLE
029851,000470: 33,2455 02570 DEC 1400 B-14 # DELAY 14 SECONDS
029852,000471:
029853,000472: 33,2456 06036 TC FLAG1DWN # TERMINATE AVEG AND DO AUTO AVETOMID
029854,000473: 33,2457 00001 OCT 1
029855,000474:
029856,000475: 33,2460 47753 CS FOUR # ALLOW AVEG TO POOH IF IT WANTS TO.
029857,000476: 33,2461 54765 TS PHASENUM
029858,000477:
029859,000478: 33,2462 15745 TCF TASKOVER
029860,000479:
029861,000480: # ************************************************************************
029862,000481: # TIME INCREMENTS FOR WAITLISTS IN MP4 - XXXXXCEK = DEC XXXXX00 CS
029863,000482: # ************************************************************************
029864,000483: 33,2463 00310 002CEK DEC 200 B-14
029865,000484:
029866,000485: 33,2464 00454 003CEK DEC 300 B-14
029867,000486:
029868,000487: 33,2465 00764 005CEK DEC 500 B-14
029869,000488:
029870,000489: 33,2466 01274 007CEK DEC 700 B-14
|
|
Page 663 |
029872,000491:
029873,000492: 33,2467 04064 021CEK DEC 2100 B-14
029874,000493:
029875,000494: 33,2470 05670 030CEK DEC 3000 B-14
029876,000495:
029877,000496: 33,2471 00252 XTRANSON OCT 00252 # CHANNEL 5 CODE FOR 4-JET TRANSLATION
029878,000497:
029879,000498: 33,2472 02032 10PERTHR DEC 1050 B-14
029880,000499:
029881,000500: 33,2473 22756 92PERTHR DEC 9710 B-14
029882,000501:
029883,000502: # ************************************************************************
029884,000503: # CONSTANTS FOR PRECOI CALCULATIONS AND FOR INITIALIZATION OF ASCENT EO.
029885,000504: # ************************************************************************
029886,000505: 33,2474 04520 01267 ABLOCK 2DEC 2.8420 E-4 B9 # MAXACC92
029887,000506:
029888,000507: 33,2476 21231 12223 2DEC 3.3788 E-2 B4 # 1/EXVEL
029889,000508:
029890,000509: 33,2500 31330 10000 2DEC 1.0413 E5 B-17 # TBUP4
029891,000510:
029892,000511: 33,2502 00000 00000 BBLOCK 2DEC 0 B-28 # ACCSTEP
029893,000512:
029894,000513: 33,2504 00000 00000 2DEC 0 B-28 # ACCSTEP +2
029895,000514:
029896,000515: 33,2506 36314 31463 KREST 2DEC 0.95
029897,000516:
029898,000517: 33,2510 11727 01217 KR1EST 2DEC 0.31
029899,000518:
029900,000519: 33,2512 14152 00000 TGOEST 2DEC 50000 B-17
029901,000520:
029902,000521: 33,2514 20000 00000 BODYVECT 2DEC .5
029903,000522:
029904,000523: 33,2516 00000 00000 CBLOCK 2DEC 0 B-28 # RDOTD
029905,000524:
029906,000525: 33,2520 00000 00000 2DEC 0 B-28 # YDOTD
029907,000526:
029908,000527: 33,2522 23462 33073 2DEC 7.8397245 E1 B-7
029909,000528:
029910,000529: 33,2524 14356 15012 RCRIT 2DEC* 6.5355846 E6 B-24*
029911,000530:
029912,000531: # ************************************************************************
029913,000532: # GENADRS, ECADRS, AND 2CADRS USED IN MP4
029914,000533: # ************************************************************************
029915,000534:
029916,000535: 33,2526 02233 AVGENADR GENADR AVERAGEG
029917,000536:
029918,000537: 33,2527 02166 TDECADR ECADR TDEC # FOR EBANK= 4
029919,000538:
029920,000539: 33,2530 02540 MASSADR ECADR MASSES # FOR EBANK= 5
029921,000540:
|
|
Page 664 |
029923,000542: 33,2531 03123 THRSTADR ECADR THRSTCMD # FOR EBANK= 6
029924,000543:
029925,000544: 33,2532 E4,1566 EBANK= TDEC
029926,000545: 33,2532 02423 66064 MP4TM1AD 2CADR MP4TERM1
029927,000546:
029928,000547: 33,2534 E4,1566 EBANK= TDEC
029929,000548: 33,2534 02312 60064 EXITADR 2CADR SERVEXIT
029930,000549:
029931,000550: 33,2536 E4,1400 EBANK= AMEMORY
029932,000551: 33,2536 02304 16004 ORBINTAD 2CADR MIDTOAVE
029933,000552:
029934,000553: 33,2540 E5,1557 EBANK= ETHROT
029935,000554: 33,2540 03367 60065 PCNTFMAD 2CADR PCNTFMAX
029936,000555:
029937,000556: 33,2542 E4,1566 EBANK= TDEC
029938,000557: 33,2542 02713 64064 ATMAG4 2CADR ATMAG
029939,000558:
029940,000559: 33,2544 E4,1566 EBANK= TDEC
029941,000560: 33,2544 05605 04004 WACTTHTD 2CADR ENDOFJOB
029942,000561:
029943,000562: 33,2546 66252 KALC4AD FCADR PREKALC4
029944,000563:
029945,000564: 33,2547 60643 CDUJOBAD FCADR FINDCDUD
029946,000565:
029947,000566: # ************************************************************************
029948,000567: # TASKSETR SUBROUTINE - NOT YET AVAILABLE TO OTHER FIXED BANKS
029949,000568:
029950,000569: # ************************************************************************
029951,000570:
029952,000571: 33,2550 00004 TASKSETR INHINT
029953,000572: 33,2551 00006 EXTEND
029954,000573: 33,2552 23154 QXCH TEMX
029955,000574: 33,2553 54001 TS L
029956,000575: 33,2554 37761 CAF ZERO
029957,000576: 33,2555 52145 DXCH MPAC
029958,000577: 33,2556 52071 DXCH RUPTREG1
029959,000578: 33,2557 37761 CAF ZERO
029960,000579: 33,2560 56146 XCH MPAC +2
029961,000580: 33,2561 54072 TS RUPTREG3
029962,000581: 33,2562 00006 EXTEND
029963,000582: 33,2563 40025 DCS TIME2
029964,000583: 33,2564 20145 DAS MPAC
029965,000584: 33,2565 30003 CA EBANK
029966,000585: 33,2566 55155 TS TEMY
029967,000586: 33,2567 32527 CAF TDECADR
029968,000587: 33,2570 54003 TS EBANK
029969,000588: 33,2571 00006 EXTEND
029970,000589: 33,2572 31567 DCA TDEC
029971,000590: 33,2573 20145 DAS MPAC
029972,000591: 33,2574 07320 TC TPAGREE
029973,000592: 33,2575 30072 CA RUPTREG3
|
|
Page 665 |
029975,000594: 33,2576 54146 TS MPAC +2
029976,000595: 33,2577 52071 DXCH RUPTREG1
029977,000596: 33,2600 52145 DXCH MPAC
029978,000597: 33,2601 00006 EXTEND
029979,000598: 33,2602 12605 BZF +3
029980,000599: 33,2603 06000 TC ABORT
029981,000600: 33,2604 00404 OCT 00404
029982,000601: 33,2605 56001 XCH L
029983,000602: 33,2606 00006 EXTEND
029984,000603: 33,2607 62603 BZMF -4
029985,000604: 33,2610 23155 LXCH TEMY
029986,000605: 33,2611 22003 LXCH EBANK
029987,000606: 33,2612 00003 RELINT
029988,000607: 33,2613 01154 TC TEMX
029989,000608: # ************************************************************************
End of include-file MP4-CONTINGENCY_ORBIT_INSERTION.agc. Parent file is MAIN.agc