Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
031173,000002: ## Copyright: Public domain.
031174,000003: ## Filename: MP9-DPS_1_BURN.agc
031175,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
031176,000005: ## is part of the source code for the Lunar Module's
031177,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031178,000007: ## Assembler: yaYUL
031179,000008: ## Contact: Ron Burkey <info@sandroid.org>.
031180,000009: ## Website: www.ibiblio.org/apollo/index.html
031181,000010: ## Mod history: 2016-09-30 RSB Created draft version.
031182,000011: ## 2016-10-28 MAS Transcribed.
031183,000012: ## 2016-11-01 RSB Typos.
031184,000013: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
031185,000014: ## changes made.
031186,000015:
![]() |
Page 728 |
031188,000017: # MISSION PHASE 9
031189,000018:
031190,000019: 33,2724 BANK 33
031191,000020: 33,2724 E4,1566 EBANK= TDEC
031192,000021: # PROGRAM DESCRIPTION-MISSION PHASE9-DPS1 BURN DATE-28 OCT 66
031193,000022: # MOD NO-2 LOG SECTION-MP9
031194,000023: # MOD BY- CHO ASSEMBLY-SUNBURST REV24
031195,000024:
031196,000025: # FUNCTIONAL DESCRIPTION
031197,000026: # THIS PHASE IS STARTED 3HOUR 1MIN AND 49SECS AFTER THE TERMINATI ON OF SIVB/LEM SEPARATION +X TRANSLATI
031198,000027: # ON AND BY THE INITIATION OF PROGRAM 31 (PRE-DPS1 BURN). PROGRAM 31 CALLS FOR DPS CUTOFF TDI 5MIN AND
031199,000028: # 15SECS LATER. IN ORDER TO ALIGN THE VEHICLE THRUST AXIS ALONG THE DESIRED ACCELERATION VECTOR DURING PRE-DPS1
031200,000029: # PHASE, THE FOLLOWING COMPUTATIONS ARE MADE - VEHICLE STATE VECTOR FORWARD INTEGRATION TO THE DESCENT
031201,000030: # INJECTION CUTOFF TIME TDI, VELOCITY TO BE GAINED VG, THE MANEUVER THRUST TIME TTHRUST, DPS1 IGNITION TIME TIGN
031202,000031: # AND FINALLY DESIRED THRUST DIRECTION UNITVG. PROGRAM 31 ALSO COMMANDS LANDING GEAR DEPLOYMENT AND CALL FOR
031203,000032: # A MANEUVER TO THE FIRING ATTITUDE.
031204,000033: # PROGRAM 41, DPS1 BURN IS STARTED 36SECS BEFORE IGNITION. THIS PROGRAM ARMS THE DESCENT ENGINE,
031205,000034: # COMMANDS +X TRANSLATION AND COMMANDS ENGINE ON. DURING THE BURN, THE VELOCITY TO BE GAINED AND TIME TO
031206,000035: # CUTOFF TGO ARE COMPUTED EVERY TWO SECONDS. WHEN TGO FALLS BELOW THE CRITICAL VALUE ENGINE OFF SIGNAL COUNTER
031207,000036: # IS SET. WHEN POST ENGINE CUTOFF ROUTINE IS PERFORMED, MPENTRY NO.1 IS SET TO START MP11 IN 31MIN 11SECS.
031208,000037:
031209,000038: # CALLING SEQUENCE- AFTER THE TERMINATION OF SIVB/LEM SEPARATION +X TRANSLATION AND BY THE INITIATION OF
031210,000039: # PROGRAM 31.
031211,000040:
031212,000041: # NORMAL EXIT MODES- TASKOVER (AWAITS MPENTRY INTO MP11 VIA NO.1)
031213,000042:
031214,000043: # ALARM EXIT MODE- NONE
031215,000044:
031216,000045: # SUBROUTINES CALLED- FIXDELAY, 1LMP, 2LMP, EXECUTIVE, MIDTOAVE, BANKCALL, IBNKCALL, WAITLIST, KALCMANU,
031217,000046: # UL4JETON, UL4JETOFF, ENGINEON, ENGINOFF, NEWMODEX, DFITCAL, RVUPDADR, TPAGREE, TASKOVER, ENDOFJOB, ENGOF1
031218,000047:
031219,000048:
031220,000049: # INPUT- RN, VN, RP, MUEARTH, TDI
031221,000050:
031222,000051: # OUTPUT- VG, TTHRUST, TIGN, UNITVG, TGO
031223,000052:
031224,000053: # ERASABLE INITIALIZATION REQUIRED-
031225,000054:
031226,000055: # DEBRIS- TDEC
031227,000056:
031228,000057: 33,2724 37753 MP9JOB CAF BIT9
031229,000058: 33,2725 04105 TC SETRSTRT # SET RESTART FLAG
031230,000059:
031231,000060: 33,2726 04117 TC NEWMODEX # DISPLAY PROG. NO.
031232,000061: 33,2727 00031 OCTAL 31
031233,000062:
031234,000063: 33,2730 E4,1566 EBANK= TDEC
031235,000064: 33,2730 00006 EXTEND
031236,000065: 33,2731 30025 DCA TIME2 # PICK UP CURRENT TIME
031237,000066: 33,2732 53666 DXCH TDI
031238,000067:
![]() |
Page 729 |
031240,000069: 33,2733 00006 EXTEND
031241,000070: 33,2734 33502 DCA 5M15S
031242,000071: 33,2735 21666 DAS TDI # SET TDI=TIME2+5M15S
031243,000072:
031244,000073: 33,2736 33465 CAF EQU2ADR # SET COMPUTATIINAL STEPS
031245,000074: 33,2737 55662 TS SHJUMP1
031246,000075:
031247,000076: 33,2740 04161 TC PHASCHNG
031248,000077: 33,2741 05022 OCT 05022
031249,000078: 33,2742 20000 OCT 20000
031250,000079:
031251,000080: 33,2743 00006 EXTEND
031252,000081: 33,2744 31666 DCA TDI
031253,000082: 33,2745 53567 DXCH TDEC
031254,000083: 33,2746 00006 EXTEND
031255,000084: 33,2747 33474 DCA RVUPDADR # STATE VECTOR UPDATE FOR PRE-DPS1 BURN
031256,000085: 33,2750 52006 DXCH Z
031257,000086:
031258,000087: 33,2751 04161 TC PHASCHNG
031259,000088: 33,2752 04022 OCT 04022
031260,000089:
031261,000090: 33,2753 06112 TC INTPRET
031262,000091: 33,2754 77624 CALL
031263,000092: 33,2755 60436 VPATCHER # RESCALE AND LOAD TDI STATES IN RN AN VN
031264,000093: 33,2756 77650 GOTO
031265,000094: 33,2757 67420 DPS1EQU1 +1 # COMPUTES VELOCITY TO BE GAINED.
031266,000095:
031267,000096: 33,2760 77745 DPS1EQU2 DLOAD # COMPUTES MANEUVER THRUST TIME
031268,000097: 33,2761 00045 LV # ABVAL(VG)
031269,000098: 33,2762 45261 SR DSU
031270,000099: 33,2763 20613 10D # NOW VG SCALED AT 2(+17)M/CS
031271,000100: 33,2764 27504 DPA
031272,000101: 33,2765 43271 DDV DAD
031273,000102: 33,2766 27506 DPB
031274,000103: 33,2767 27510 DPC
031275,000104: 33,2770 26264 STOVL TTHRUST # SCALED AT 2(+28)CS
031276,000105: 33,2771 02272 UNITVG
031277,000106: 33,2772 25656 STOVL POINTVSM # KALCMANU INPUT REGISTER
031278,000107: 33,2773 26641 BODYVECT # LOAD BODY AXES VECTOR IN SM COORD.
031279,000108: 33,2774 01664 STORE SCAXIS # KALCMANU INPUT VECTOR
031280,000109: 33,2775 66214 SET SSP
031281,000110: 33,2776 01063 33D
031282,000111: 33,2777 01653 RATEINDX
031283,000112: 33,3000 00004 4 # SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
031284,000113: 33,3001 77776 EXIT
031285,000114:
031286,000115: 33,3002 04161 TC PHASCHNG
031287,000116: 33,3003 04022 OCT 04022
031288,000117:
031289,000118: 33,3004 00004 INHINT
031290,000119:
![]() |
Page 730 |
031292,000121: 33,3005 00006 EXTEND
031293,000122: 33,3006 41664 DCS TTHRUST # COMPUTES TIGN
031294,000123: 33,3007 53670 DXCH TIGN
031295,000124:
031296,000125: 33,3010 00006 EXTEND
031297,000126: 33,3011 31666 DCA TDI
031298,000127: 33,3012 21670 DAS TIGN # TIGN=TDI-TTHRUST (SCALED AT 2(+28)CS)
031299,000128: 33,3013 33466 CAF EQU3ADR
031300,000129: 33,3014 55662 TS SHJUMP1
031301,000130:
031302,000131: 33,3015 33521 CAF 70SECS9 # CALL POSTKALC 70 SECS LATER
031303,000132: 33,3016 05663 TC WAITLIST
031304,000133: 33,3017 E4,1566 EBANK= TDEC
031305,000134: 33,3017 03036 66064 2CADR POSTKALC
031306,000135:
031307,000136: 33,3021 04161 TC PHASCHNG
031308,000137: 33,3022 40042 OCT 40042
031309,000138:
031310,000139: 33,3023 00004 CALLKALC INHINT
031311,000140: 33,3024 35642 CAF PRIO16 # CALL KALCMANU JOB.
031312,000141: 33,3025 05516 TC FINDVAC
031313,000142: 33,3026 E3,1535 EBANK= MIS
031314,000143: 33,3026 02001 70063 2CADR VECPOINT
031315,000144:
031316,000145: 33,3030 05206 TC BANKCALL
031317,000146: 33,3031 26743 CADR ATTSTALL # SEE IF KALCMANU FINISHED
031318,000147: 33,3032 04743 CURT9 TC CURTAINS # UNFINISHED MANEUVER
031319,000148:
031320,000149: 33,3033 04161 TC PHASCHNG
031321,000150: 33,3034 00432 OCT 00432 # 2.43 FOR POSTKALC. DON'T RESET TBASE.
031322,000151:
031323,000152: 33,3035 15567 TCF ENDOFJOB # GOOD RETURN- END MP9JOB
031324,000153:
031325,000154: 33,3036 40076 POSTKALC CS FLAGWRD2 # CHECK WHETHER KALCMANU IS FINISHED.
031326,000155: 33,3037 77751 MASK BIT11
031327,000156: 33,3040 10000 CCS A
031328,000157:
031329,000158: 33,3041 03047 TC GOODKALC # GOOD RETURN
031330,000159:
031331,000160: 33,3042 35660 CAF PRIO37 # BAD RETURN
031332,000161: 33,3043 05516 TC FINDVAC
031333,000162: 33,3044 E4,1566 EBANK= TDEC
031334,000163: 33,3044 03032 66064 2CADR CURT9
031335,000164:
031336,000165: 33,3046 05727 TC TASKOVER # END POSTKALC TASK
031337,000166:
031338,000167: 33,3047 05101 GOODKALC TC 1LMP+DT
031339,000168: 33,3050 00354 DEC 236 B-14 # DFI T/M CALIBRATE - ON *
031340,000169: 33,3051 02260 DEC 1200 B-14
031341,000170:
![]() |
Page 731 |
031343,000172: 33,3052 05073 TC 2LMP+DT
031344,000173: 33,3053 00355 DEC 237 B-14 # DFI T/M CALIBRATE - OFF *
031345,000174: 33,3054 00306 DEC 198 B-14 # MASTER C&W ALARM RESET - COMMAND **
031346,000175: 33,3055 00310 DEC 200 B-14
031347,000176:
031348,000177: 33,3056 05101 TC 1LMP+DT
031349,000178: 33,3057 00307 DEC 199 B-14 # MASTER C&W ALARM RESET - COMMAND RESET
031350,000179: 33,3060 00001 DEC 1 B-14
031351,000180:
031352,000181: 33,3061 00006 EXTEND # CALL DPS1 BURN PROG. AT TIGN-36SECS.
031353,000182: 33,3062 40025 DCS TIME2
031354,000183: 33,3063 52062 DXCH ITEMP1
031355,000184: 33,3064 00006 EXTEND
031356,000185: 33,3065 31670 DCA TIGN
031357,000186: 33,3066 20062 DAS ITEMP1
031358,000187: 33,3067 00006 EXTEND
031359,000188: 33,3070 43500 DCS 66SECSD9
031360,000189: 33,3071 20062 DAS ITEMP1
031361,000190: 33,3072 00006 EXTEND
031362,000191: 33,3073 30062 DCA ITEMP1
031363,000192: 33,3074 53305 DXCH TDECTEMP # FOR RESTARTS.
031364,000193: 33,3075 52062 DXCH ITEMP1
031365,000194:
031366,000195: 33,3076 05741 TC LONGCALL
031367,000196: 33,3077 E4,1566 EBANK= TDEC
031368,000197: 33,3077 03134 66064 2CADR TIG9-66
031369,000198:
031370,000199: 33,3101 04161 TC PHASCHNG
031371,000200: 33,3102 20134 OCT 20134 # 4.13 FOR TIG9-66 LONGCALL.
031372,000201:
031373,000202: 33,3103 33520 CAF 11SECS9
031374,000203: 33,3104 05663 TC WAITLIST
031375,000204: 33,3105 E4,1566 EBANK= TDEC
031376,000205: 33,3105 03112 66064 2CADR 182LMP
031377,000206:
031378,000207: 33,3107 04161 TC PHASCHNG
031379,000208: 33,3110 40452 OCT 40452 # 2.45 FOR 182LMP TASK.
031380,000209:
031381,000210: 33,3111 15727 TCF TASKOVER # END GOODKALC TASK
031382,000211:
031383,000212: 33,3112 05073 182LMP TC 2LMP+DT
031384,000213: 33,3113 00266 DEC 182 B-14 # LANDING RADAR POWER ON
031385,000214: 33,3114 00032 DEC 26 B-14 # RADAR SELF TEST-ON
031386,000215: 33,3115 11444 DEC 4900 B-14
031387,000216:
031388,000217: 33,3116 05101 TC 1LMP+DT
031389,000218: 33,3117 00004 DEC 4 B-14 # ED BATTERY ACTIVATION -ON
031390,000219: 33,3120 00764 DEC 500 B-14
031391,000220:
031392,000221: 33,3121 05101 TC 1LMP+DT
![]() |
Page 732 |
031394,000223: 33,3122 00010 DEC 8 B-14 # LANDING GEAR DEPLOY -FIRE
031395,000224: 33,3123 00310 DEC 200 B-14
031396,000225:
031397,000226: 33,3124 05101 TC 1LMP+DT
031398,000227: 33,3125 00011 DEC 9 B-14 # LANDING GEAR DEPLOY- FIRE RESET
031399,000228: 33,3126 00620 DEC 400 B-14
031400,000229:
031401,000230: 33,3127 05060 TC 1LMP
031402,000231: 33,3130 00033 DEC 27 B-14 # RADAR SELF-TEST - OFF.
031403,000232:
031404,000233: 33,3131 04161 TC PHASCHNG
031405,000234: 33,3132 00002 OCT 00002 # GROUP 2 OFF.
031406,000235:
031407,000236: 33,3133 05727 TC TASKOVER # END 182LMP TASK
031408,000237:
031409,000238: 33,3134 04117 TIG9-66 TC NEWMODEX # DISPLAY PROGRAM NUMBER ON DSKY
031410,000239: 33,3135 00041 OCT 41
031411,000240:
031412,000241: 33,3136 05270 TC IBNKCALL
031413,000242: 33,3137 40277 CADR ENGINOF1
031414,000243:
031415,000244: 33,3140 05052 TC 2LMP
031416,000245: 33,3141 00226 DEC 150 B-14 # ENGINE SELECT DESC ARM
031417,000246: 33,3142 00126 DEC 86 B-14 # MANUAL THROTTLE ON (10PERCENT)
031418,000247:
031419,000248: 33,3143 33516 CAF 50SECS9
031420,000249: 33,3144 05663 TC WAITLIST
031421,000250: 33,3145 E4,1566 EBANK= TDEC
031422,000251: 33,3145 03450 66064 2CADR 228LMP
031423,000252:
031424,000253: 33,3147 35651 CAF PRIO27
031425,000254: 33,3150 05516 TC FINDVAC
031426,000255: 33,3151 E4,1566 EBANK= TDEC
031427,000256: 33,3151 03157 66064 2CADR ORBINTJB
031428,000257:
031429,000258: 33,3153 04141 TC 2PHSCHNG
031430,000259: 33,3154 40472 OCT 40472 # 2.47 FOR 228LMP TASK.
031431,000260: 33,3155 00154 OCT 00154 # 4.15 FOR ORBINTJB JOB.
031432,000261:
031433,000262: 33,3156 15727 TCF TASKOVER # END TIG9-66 TASK
031434,000263:
031435,000264: 33,3157 00006 ORBINTJB EXTEND
031436,000265: 33,3160 31670 DCA TIGN
031437,000266: 33,3161 53567 DXCH TDEC
031438,000267: 33,3162 43517 CS 30SECS9
031439,000268: 33,3163 54001 TS L
031440,000269: 33,3164 47767 CS ZERO
031441,000270: 33,3165 21567 DAS TDEC # TDEC NOW CONTAINS TIGN-30 SECS.
031442,000271:
031443,000272: 33,3166 00006 EXTEND
![]() |
Page 733 |
031445,000274: 33,3167 32654 DCA ORBINTAD
031446,000275: 33,3170 52006 DXCH Z
031447,000276:
031448,000277: 33,3171 04161 TC PHASCHNG
031449,000278: 33,3172 05024 OCT 05024
031450,000279: 33,3173 27000 OCT 27000
031451,000280:
031452,000281: # RN AND VN IN STABLE MEMBER COORDINATES. SCALING IS AS IN AVEG.
031453,000282:
031454,000283: # DELETE
031455,000284: 33,3174 32646 CAF AVGENADR
031456,000285: 33,3175 55310 TS DVSELECT # SELECT AGS MONITOR
031457,000286:
031458,000287: 33,3176 00006 EXTEND
031459,000288: 33,3177 32652 DCA EXITADR
031460,000289: 33,3200 53073 DXCH AVGEXIT # SET AVERAGEG EXIT
031461,000290:
031462,000291: 33,3201 00006 EXTEND
031463,000292: 33,3202 33472 DCA MP9TM1AD
031464,000293: 33,3203 53075 DXCH DVMNEXIT # SET MONITOR EXIT
031465,000294:
031466,000295: 33,3204 00004 INHINT
031467,000296: 33,3205 43517 CS 30SECS9 # CALL PREREAD AT TIGN-30SECS.
031468,000297: 33,3206 02663 TC TASKSETR
031469,000298: 33,3207 55342 TS RSDTTEMP # FOR RESTARTS.
031470,000299: 33,3210 05663 TC WAITLIST
031471,000300: 33,3211 E5,1506 EBANK= DVTOTAL
031472,000301: 33,3211 02000 60065 2CADR PREREAD
031473,000302:
031474,000303: 33,3213 04141 TC 2PHSCHNG
031475,000304: 33,3214 40355 OCT 40355 # 5.35 FOR PREREAD.
031476,000305: 33,3215 04024 OCT 04024
031477,000306:
031478,000307: 33,3216 00004 INHINT
031479,000308: 33,3217 47767 CS ZERO # CALL TVC FOR DPS1 AT IGNITION TIME
031480,000309: 33,3220 02663 TC TASKSETR
031481,000310: 33,3221 55305 TS TDECTEMP +1 # FOR RESTARTS.
031482,000311: 33,3222 05663 TC WAITLIST
031483,000312: 33,3223 1072 EBANK= AVGEXIT
031484,000313: 33,3223 03230 66062 2CADR TIG9-0
031485,000314:
031486,000315: 33,3225 04161 TC PHASCHNG
031487,000316: 33,3226 40174 OCT 40174 # 4.17 FOR TIG9-0.
031488,000317:
031489,000318: 33,3227 15567 TCF ENDOFJOB # END ORBITAL INTEGRATION JOB
031490,000319:
031491,000320: 33,3230 00006 TIG9-0 EXTEND
031492,000321: 33,3231 33470 DCA EQU1ADR
031493,000322: 33,3232 53073 DXCH AVGEXIT # AVG ROUTINE GOES TO VG COMPUTATION
031494,000323:
![]() |
Page 734 |
031496,000325: 33,3233 05270 TC IBNKCALL
031497,000326: 33,3234 40226 CADR DPSENGON
![]() |
The above line has a green arrow pointing to it. |
031499,000328:
031500,000329: 33,3235 04141 TC 2PHSCHNG
031501,000330: 33,3236 00004 OCT 00004
031502,000331: 33,3237 40512 OCT 40512 # 2.51 FOR 9ULLOFF TASK.
031503,000332:
031504,000333: 33,3240 05701 TC FIXDELAY
031505,000334: 33,3241 00062 DEC 50 B-14
031506,000335:
031507,000336: 33,3242 05270 9ULLOFF TC IBNKCALL
031508,000337: 33,3243 40066 CADR NOULLAGE # +X TRANSLATION- OFF
031509,000338:
031510,000339: 33,3244 04161 TC PHASCHNG
031511,000340: 33,3245 40532 OCT 40532 # 2.53 FOR 9EDBATT.
031512,000341:
031513,000342: 33,3246 05701 TC FIXDELAY
031514,000343: 33,3247 00372 DEC 250 B-14
031515,000344:
031516,000345: 33,3250 05101 9EDBATT TC 1LMP+DT
031517,000346: 33,3251 00005 DEC 5 B-14 # ED BATTERY ACTIVATION-SAFE
031518,000347: 33,3252 04374 DEC 2300 B-14
031519,000348:
031520,000349: 33,3253 04141 TC 2PHSCHNG
031521,000350: 33,3254 00002 OCT 2
031522,000351: 33,3255 05014 OCT 05014 # THROTTLE PROGRAM TAKES OVER GP 4.
031523,000352: 33,3256 77777 OCT 77777
031524,000353:
031525,000354: 33,3257 37743 CAF POSMAX # CALL FOR MAXIMUM THRUST.
031526,000355: 33,3260 55323 TS PCNTF
031527,000356: 33,3261 00006 EXTEND
031528,000357: 33,3262 32656 DCA PCNTFMAD
031529,000358: 33,3263 52006 DTCB
031530,000359:
031531,000360: 33,3264 15727 TCF TASKOVER # END TIG9-0 TASK
031532,000361:
031533,000362: 33,3265 77624 DPS1EQU3 CALL
031534,000363: 33,3266 67277 CALCTGO
031535,000364: 33,3267 77775 VLOAD
031536,000365: 33,3270 02272 UNITVG
031537,000366: 33,3271 02233 STORE AXISD # FINDCDUD INPUT
031538,000367: 33,3272 77624 CALL
031539,000368: 33,3273 60703 FINDCDUD
031540,000369:
031541,000370: 33,3274 77776 EXIT
031542,000371: 33,3275 05225 TC POSTJUMP
031543,000372: 33,3276 60324 CADR SERVEXIT
031544,000373:
031545,000374: 33,3277 45345 CALCTGO DLOAD DSU
031546,000375: 33,3300 00045 LV # ABVAL(VG)
![]() |
Page 735 |
031548,000377: 33,3301 03574 VTAILOFF
031549,000378: 33,3302 56205 DMP DDV
031550,000379: 33,3303 27512 DELTAT9
031551,000380: 33,3304 02535 ABDELV
031552,000381: 33,3305 02346 STORE TTGO # FOR DWLK ONLY
031553,000382:
031554,000383: 33,3306 44234 RTB BDSU
031555,000384: 33,3307 33454 LOADTIME
031556,000385: 33,3310 01307 PIPTIME
031557,000386: 33,3311 47015 DAD RTB
031558,000387: 33,3312 02346 TTGO
031559,000388: 33,3313 33520 SGNAGREE
031560,000389: 33,3314 02141 STORE TGO
031561,000390:
031562,000391: 33,3315 51025 DSU BPL
031563,000392: 33,3316 27476 4SECSD9
031564,000393: 33,3317 00052 QPRET
031565,000394: 33,3320 77776 EXIT
031566,000395:
031567,000396: 33,3321 00004 INHINT
031568,000397: 33,3322 31541 CAE TGO +1
031569,000398: 33,3323 00006 EXTEND
031570,000399: 33,3324 63347 BZMF CUTOFF2 # CUT OFF ENGINE IMMEDIATELY IF TGO NEG
031571,000400: 33,3325 55304 CUTOFF1 TS TDECTEMP # FOR RESTARTS.
031572,000401: 33,3326 05663 TC WAITLIST
031573,000402: 33,3327 0766 EBANK= CDUXD
031574,000403: 33,3327 03340 66061 2CADR CUTOFF
031575,000404:
031576,000405: 33,3331 00006 EXTEND # STOPS GUIDANCE EQUATION LOOP
031577,000406: 33,3332 32652 DCA EXITADR
031578,000407: 33,3333 53073 DXCH AVGEXIT
031579,000408:
031580,000409: 33,3334 04141 TC 2PHSCHNG
031581,000410: 33,3335 40552 OCT 40552 # 2.55 FOR CUTOFF TASK.
031582,000411: 33,3336 00035 OCT 00035 # 5.3 FOR SERVICER.
031583,000412:
031584,000413: 33,3337 15567 TCF ENDOFJOB # END DPS1 BURN EQUATION JOB
031585,000414:
031586,000415: 33,3340 05270 CUTOFF TC IBNKCALL
031587,000416: 33,3341 40263 CADR ENGINOFF
031588,000417:
031589,000418: 33,3342 05270 TC IBNKCALL
031590,000419: 33,3343 40114 CADR STOPRATE # HOLD VEHICLE ATTITUDE
031591,000420:
031592,000421: 33,3344 04161 TC PHASCHNG
031593,000422: 33,3345 00002 OCT 2 # 2 OFF. SERVICER TO RETURN TO MP9TERM1.
031594,000423:
031595,000424: 33,3346 15727 TCF TASKOVER # END CUTOFF TASK
031596,000425:
031597,000426: 33,3347 37763 CUTOFF2 CAF BIT1
031598,000427:
![]() |
Page 736 |
031600,000429: 33,3350 13325 TCF CUTOFF1
031601,000430:
031602,000431: 33,3351 00004 MP9TERM1 INHINT
031603,000432: 33,3352 33515 CAF 5SECS9
031604,000433: 33,3353 05663 TC WAITLIST
031605,000434: 33,3354 E4,1566 EBANK= TDEC
031606,000435: 33,3354 03362 66064 2CADR 87LMP
031607,000436:
031608,000437: 33,3356 04161 TC PHASCHNG
031609,000438: 33,3357 40572 OCT 40572 # 2.57 FOR 87LMP TASK.
031610,000439:
031611,000440: 33,3360 05225 TC POSTJUMP
031612,000441: 33,3361 60324 CADR SERVEXIT
031613,000442:
031614,000443: 33,3362 05073 87LMP TC 2LMP+DT
031615,000444: 33,3363 00127 DEC 87 B-14 # MANUAL THROTTLE - RESET (30 PERCENT.)
031616,000445: 33,3364 00227 DEC 151 B-14 # ENGINE SELECT-DESC ARM-OFF
031617,000446: 33,3365 01750 DEC 1000 B-14
031618,000447:
031619,000448: 33,3366 05073 TC 2LMP+DT
031620,000449: 33,3367 00365 DEC 245 B-14 # DPS PQGS NO1 - OFF
031621,000450: 33,3370 00325 DEC 213 B-14 # DPS PQGS NO2 - OFF
031622,000451: 33,3371 00144 DEC 100 B-14
031623,000452:
031624,000453: 33,3372 05073 TC 2LMP+DT
031625,000454: 33,3373 00345 DEC 229 B-14 # DPS PQGS ARM NO1 DISABLE
031626,000455: 33,3374 00305 DEC 197 B-14 # DPS PQGS ARM NO2 DISABLE
031627,000456: 33,3375 02570 DEC 1400 B-14
031628,000457:
031629,000458: 33,3376 05270 TC IBNKCALL
031630,000459: 33,3377 40054 CADR SETMAXDB
031631,000460:
031632,000461: 33,3400 05101 TC 1LMP+DT
031633,000462: 33,3401 00032 DEC 26 B-14 # RADAR SELF TEST ON
031634,000463: 33,3402 13560 DEC 6000 B-14
031635,000464:
031636,000465: 33,3403 05052 TC 2LMP
031637,000466: 33,3404 00033 DEC 27 B-14 # RADAR SELF TEST POWER - OFF
031638,000467: 33,3405 00267 DEC 183 B-14 # LANDING RADAR POWER - OFF
031639,000468:
031640,000469: 33,3406 05126 TC MPENTRY # CALL NEXT MISSION ENTRY ROUTINE
031641,000470: 33,3407 00001 DEC 1 B-14
031642,000471: 33,3410 00013 DEC 11 B-14
031643,000472: 33,3411 01752 ADRES MP9-11DT
031644,000473:
031645,000474: 33,3412 06067 TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
031646,000475: 33,3413 00001 OCT 00001
031647,000476:
031648,000477: 33,3414 04161 TC PHASCHNG
031649,000478: 33,3415 00002 OCT 2
031650,000479:
![]() |
Page 737 |
031652,000481: 33,3416 15727 TCF TASKOVER # MISSION PHASE 9 COMPLETE
031653,000482:
031654,000483: 33,3417 06112 DPS1EQU1 TC INTPRET
031655,000484: 33,3420 47375 +1 VLOAD VXV
031656,000485: 33,3421 01017 VN # VN SCALED AT 2(+7)M/CS
031657,000486: 33,3422 01033 UNITR # UNITR IS UNIT VECTOR ALONG RN
031658,000487: 33,3423 63256 UNIT PDVL
031659,000488: 33,3424 01033 UNITR
031660,000489: 33,3425 77635 VXV
031661,000490: 33,3426 43325 PDDL DAD
031662,000491: 33,3427 02355 RP # TARGET DISTANCE - PERIGEE OR APOGEE
031663,000492: 33,3430 01047 RMAG # RP AND RMAG SCALED AT 2(+24)M
031664,000493: 33,3431 65205 DMP PDDL
031665,000494: 33,3432 01047 RMAG
031666,000495: 33,3433 02355 RP
031667,000496: 33,3434 56205 DMP DDV
031668,000497: 33,3435 27514 2MUERTH9 # SCALED AT 2(+38)M(3)/CS(2).
031669,000498: 33,3436 74366 SQRT VXSC
031670,000499: 33,3437 77752 VSL2
031671,000500: 33,3440 02324 STORE VDVECT # FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031672,000501:
031673,000502: 33,3441 77651 VSU
031674,000503: 33,3442 01017 VN
031675,000504: 33,3443 02332 STORE VGVECT # FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031676,000505:
031677,000506: 33,3444 77656 UNIT # LEAVES ABVAL IN LV
031678,000507: 33,3445 02272 STORE UNITVG
031679,000508:
031680,000509: 33,3446 77650 GOTO
031681,000510: 33,3447 02262 SHJUMP1
031682,000511:
031683,000512: 33,3450 05073 228LMP TC 2LMP+DT
031684,000513: 33,3451 00344 DEC 228 B-14 # DPS PQGS ARM NO1 - ENABLE
031685,000514: 33,3452 00304 DEC 196 B-14 # DPS PQGS ARM NO2 - ENABLE
031686,000515: 33,3453 00144 DEC 100 B-14
031687,000516:
031688,000517: 33,3454 05073 TC 2LMP+DT
031689,000518: 33,3455 00364 DEC 244 B-14 # DPS PQGS NO1 - ON
031690,000519: 33,3456 00324 DEC 212 B-14 # DPS PQGS NO2 - ON
031691,000520: 33,3457 01356 DEC 750 B-14
031692,000521:
031693,000522: 33,3460 05270 TC IBNKCALL
031694,000523: 33,3461 40062 CADR ULLAGE # +X TRANSLATION ON.
031695,000524:
031696,000525: 33,3462 04161 TC PHASCHNG
031697,000526: 33,3463 00002 OCT 2
031698,000527:
031699,000528: 33,3464 15727 TCF TASKOVER # END 228LMP TASK
031700,000529:
031701,000530: # ********************************
031702,000531:
![]() |
Page 738 |
031704,000533: 33,3465 66760 EQU2ADR CADR DPS1EQU2
031705,000534:
031706,000535: 33,3466 67265 EQU3ADR CADR DPS1EQU3
031707,000536:
031708,000537: 33,3467 E4,1566 EBANK= TDEC
031709,000538: 33,3467 03417 66064 EQU1ADR 2CADR DPS1EQU1
031710,000539:
031711,000540: 33,3471 E4,1566 EBANK= TDEC
031712,000541: 33,3471 03351 66064 MP9TM1AD 2CADR MP9TERM1
031713,000542:
031714,000543: 33,3473 E4,1566 EBANK= TDEC
031715,000544: 33,3473 02336 16064 RVUPDADR 2CADR RVUPDATE
031716,000545:
031717,000546: 33,3475 00000 00620 4SECSD9 2DEC 400 B-28
031718,000547:
031719,000548: 33,3477 00000 14710 66SECSD9 2DEC 6600 B-28
031720,000549:
031721,000550: 33,3501 00001 35414 5M15S 2DEC 31500 B-28
031722,000551:
031723,000552: 33,3503 00000 00302 DPA 2DEC .09449 B-17 # SCALED AT 2(+17)M/CS
031724,000553:
031725,000554: 33,3505 22653 21315 DPB 2DEC .0002874 B+11 # SCALED AT 2(-11)M/CS(+2)
031726,000555:
031727,000556: 33,3507 00000 05050 DPC 2DEC 2600. B-28 # SCALED AT 2(+28)CS
031728,000557:
031729,000558: 33,3511 00000 36411 DELTAT9 2DEC 200 E+4 B-35 # 2SEC/KPIP
031730,000559:
031731,000560: 33,3513 11217 27040 2MUERTH9 2DEC* 3.98603223 E+10 B-37*
031732,000561:
031733,000562: 33,3515 00764 5SECS9 DEC 500 B-14
031734,000563: 33,3516 11610 50SECS9 DEC 5000 B-14
031735,000564: 33,3517 05670 30SECS9 DEC 3000 B-14
031736,000565: 33,3520 02114 11SECS9 DEC 1100 B-14
031737,000566: 33,3521 15530 70SECS9 DEC 7000 B-14
031738,000567: # ********************************
End of include-file MP9-DPS_1_BURN.agc. Parent file is MAIN.agc