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