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