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