Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
030886,000002: ## Copyright: Public domain.
030887,000003: ## Filename: MP9-DPS_1_BURN.agc
030888,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
030889,000005: ## It is part of an early development version of the software
030890,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
030891,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
030892,000008: ## upon which Don Eyles's offline development program Shepatin
030893,000009: ## was based; the listing herein transcribed was actually for
030894,000010: ## the equivalent revision 0 of Shepatin.
030895,000011: ## This file is intended to be a faithful transcription, except
030896,000012: ## that the code format has been changed to conform to the
030897,000013: ## requirements of the yaYUL assembler rather than the
030898,000014: ## original YUL assembler.
030899,000015: ## Reference: pp. 684-692
030900,000016: ## Assembler: yaYUL
030901,000017: ## Contact: Ron Burkey <info@sandroid.org>.
030902,000018: ## Website: www.ibiblio.org/apollo/index.html
030903,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
030904,000020: ## 2017-06-14 RSB Transcribe
030905,000021: ## 2017-06-14 HG Fix operand THRUSTCMD -> THRSTCMD
030906,000022: ## AVEXIT -> AVGEXIT
030907,000023: ## 2017-06-15 HG Fix value DELTAT9 B-35 -> B-38
030908,000024: ## 2017-06-23 RSB Proofed comment text with
030909,000025: ## octopus/ProoferComments.
030910,000026:
|
|
Page 684 |
030912,000028: # MISSION PHASE 9
030913,000029:
030914,000030: 33,2614 BANK 33
030915,000031: 33,2614 E4,1566 EBANK= TDEC
030916,000032: # PROGRAM DESCRIPTION-MISSION PHASE9-DPS1 BURN DATE-28 OCT 66
030917,000033: # MOD NO-2 LOG SECTION-MP9
030918,000034: # MOD BY- CHO ASSEMBLY-SUNBURST REV24
030919,000035:
030920,000036: # FUNCTIONAL DESCRIPTION
030921,000037: # THIS PHASE IS STARTED 3HOUR 1MIN AND 49SECS AFTER THE TERMINATI ON OF SIVB/LEM SEPARATION +X TRANSLATI
030922,000038: # ON AND BY THE INITIATION OF PROGRAM 31 (PRE-DPS1 BURN). PROGRAM 31 CALLS FOR DPS CUTOFF TDI 5MIN AND
030923,000039: # 15SECS LATER. IN ORDER TO ALIGN THE VEHICLE THRUST AXIS ALONG THE DESIRED ACCELERATION VECTOR DURING PRE-DPS1
030924,000040: # PHASE, THE FOLLOWING COMPUTATIONS ARE MADE - VEHICLE STATE VECTOR FORWARD INTEGRATION TO THE DESCENT
030925,000041: # INJECTION CUTOFF TIME TDI, VELOCITY TO BE GAINED VG, THE MANEUVER THRUST TIME TTHRUST, DPS1 IGNITION TIME TIGN
030926,000042: # AND FINALLY DESIRED THRUST DIRECTION UNITVG. PROGRAM 31 ALSO COMMANDS LANDING GEAR DEPLOYMENT AND CALL FOR
030927,000043: # A MANEUVER TO THE FIRING ATTITUDE.
030928,000044: # PROGRAM 41, DPS1 BURN IS STARTED 36SECS BEFORE IGNITION. THIS PROGRAM ARMS THE DESCENT ENGINE,
030929,000045: # COMMANDS +X TRANSLATION AND COMMANDS ENGINE ON. DURING THE BURN, THE VELOCITY TO BE GAINED AND TIME TO
030930,000046: # CUTOFF TGO ARE COMPUTED EVERY TWO SECONDS. WHEN TGO FALLS BELOW THE CRITICAL VALUE ENGINE OFF SIGNAL COUNTER
030931,000047: # IS SET. WHEN POST ENGINE CUTOFF ROUTINE IS PERFORMED, MPENTRY NO.1 IS SET TO START MP11 IN 31MIN 11SECS.
030932,000048:
030933,000049: # CALLING SEQUENCE- AFTER THE TERMINATION OF SIVB/LEM SEPARATION +X TRANSLATION AND BY THE INITIATION OF
030934,000050: # PROGRAM 31.
030935,000051:
030936,000052: # NORMAL EXIT MODES- TASKOVER (AWAITS MPENTRY INTO MP11 VIA NO.1)
030937,000053:
030938,000054: # ALARM EXIT MODE- NONE
030939,000055:
030940,000056: # SUBROUTINES CALLED- FIXDELAY, 1LMP, 2LMP, EXECUTIVE, MIDTOAVE, BANKCALL, IBNKCALL, WAITLIST, KALCMANU,
030941,000057: # UL4JETON, UL4JETOFF, ENGINEON, ENGINOFF, NEWMODEX, DFITCAL, RVUPDADR, TPAGREE, TASKOVER, ENDOFJOB, ENGOF1
030942,000058:
030943,000059:
030944,000060: # INPUT- RN, VN, RP, MUEARTH, TDI
030945,000061:
030946,000062: # OUTPUT- VG, TTHRUST, TIGN, UNITVG, TGO
030947,000063:
030948,000064: # ERASABLE INITIALIZATION REQUIRED-
030949,000065:
030950,000066: # DEBRIS- TDEC
030951,000067:
030952,000068: 33,2614 04105 MP9JOB TC NEWMODEX # DISPLAY PROGRAM NUMBER IN DSKY
030953,000069: 33,2615 00031 OCTAL 31
030954,000070:
030955,000071: 33,2616 E4,1566 EBANK= TDEC
030956,000072: 33,2616 00006 EXTEND
030957,000073: 33,2617 30025 DCA TIME2 # PICK UP CURRENT TIME
030958,000074: 33,2620 53666 DXCH TDI
030959,000075: 33,2621 00006 EXTEND
030960,000076: 33,2622 33264 DCA 5M15S
030961,000077: 33,2623 21666 DAS TDI # SET TDI=TIME2+5M15S
030962,000078:
|
|
Page 685 |
030964,000080:
030965,000081: 33,2624 33247 CAF EQU2ADR # SET COMPUTATIINAL STEPS
030966,000082: 33,2625 55662 TS SHJUMP1
030967,000083:
030968,000084: 33,2626 00006 EXTEND
030969,000085: 33,2627 31666 DCA TDI
030970,000086: 33,2630 53567 DXCH TDEC
030971,000087: 33,2631 00006 EXTEND
030972,000088: 33,2632 33256 DCA RVUPDADR # STATE VECTOR UPDATE FOR PRE-DPS1 BURN
030973,000089:
030974,000090: 33,2633 52006 DXCH Z
030975,000091:
030976,000092: 33,2634 06103 TC INTPRET
030977,000093: 33,2635 77624 CALL
030978,000094: 33,2636 60347 VPATCHER # RESCALE AND LOAD TDI STATES IN RN AN VN
030979,000095: 33,2637 77650 GOTO
030980,000096: 33,2640 67204 DPS1EQU1 # COMPUTES VELOCITY TO BE GAINED
030981,000097:
030982,000098: 33,2641 77745 DPS1EQU2 DLOAD # COMPUTES MANEUVER THRUST TIME
030983,000099: 33,2642 00045 LV # ABVAL(VG)
030984,000100: 33,2643 45261 SR DSU
030985,000101: 33,2644 20613 10D # NOW VG SCALED AT 2(+17)M/CS
030986,000102: 33,2645 27266 DPA
030987,000103: 33,2646 43271 DDV DAD
030988,000104: 33,2647 27270 DPB
030989,000105: 33,2650 27272 DPC
030990,000106: 33,2651 26264 STOVL TTHRUST # SCALED AT 2(+28)CS
030991,000107: 33,2652 02272 UNITVG
030992,000108: 33,2653 25656 STOVL POINTVSM # KALCMANU INPUT REGISTER
030993,000109: 33,2654 26515 BODYVECT # LOAD BODY AXES VECTOR IN SM COORD.
030994,000110: 33,2655 01664 STORE SCAXIS # KALCMANU INPUT VECTOR
030995,000111: 33,2656 66214 SET SSP
030996,000112: 33,2657 01063 33D
030997,000113:
030998,000114: 33,2660 01653 RATEINDX
030999,000115: 33,2661 00004 4 # SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
031000,000116: 33,2662 77776 EXIT
031001,000117:
031002,000118: 33,2663 00006 EXTEND
031003,000119: 33,2664 41664 DCS TTHRUST # COMPUTES TIGN
031004,000120: 33,2665 53670 DXCH TIGN
031005,000121:
031006,000122: 33,2666 00006 EXTEND
031007,000123: 33,2667 31666 DCA TDI
031008,000124: 33,2670 21670 DAS TIGN # TIGN=TDI-TTHRUST (SCALED AT 2(+28)CS)
031009,000125: 33,2671 33250 CAF EQU3ADR
031010,000126: 33,2672 55662 TS SHJUMP1
031011,000127:
031012,000128: 33,2673 00004 INHINT
031013,000129: 33,2674 33310 CAF 90SECS9 # CALL POSTKALC 90 SECS LATER
031014,000130: 33,2675 05701 TC WAITLIST
031015,000131: 33,2676 E4,1566 EBANK= TDEC
031016,000132: 33,2676 02710 66064 2CADR POSTKALC
|
|
Page 686 |
031018,000134: 33,2700 35226 CAF PRIO30 # CALL KALCMANU JOB- START INDICATOR UP*
031019,000135: 33,2701 05534 TC FINDVAC
031020,000136: 33,2702 E3,1535 EBANK= MIS
031021,000137: 33,2702 02001 70063 2CADR VECPOINT
031022,000138:
031023,000139: 33,2704 05224 TC BANKCALL
031024,000140: 33,2705 26754 CADR ATTSTALL # SEE IF KALCMANU FINISHED
031025,000141: 33,2706 04732 CURT9 TC CURTAINS # UNFINISHED MANEUVER
031026,000142:
031027,000143: 33,2707 15605 TCF ENDOFJOB # GOOD RETURN- END MP9JOB
031028,000144:
031029,000145: 33,2710 33304 POSTKALC CAF 10SECS9 # CALL DFITMTSK 10SECS LATER
031030,000146: 33,2711 05701 TC WAITLIST
031031,000147: 33,2712 E3,1746 EBANK= TGRR
031032,000148:
031033,000149: 33,2712 02206 56003 2CADR DFITMTSK # DFI T/M CALIBRATION ROUTINE
031034,000150:
031035,000151: 33,2714 40076 CS FLAGWRD2 # CHECK KALCMANU BIT
031036,000152: 33,2715 77743 MASK BIT11
031037,000153: 33,2716 10000 CCS A
031038,000154:
031039,000155: 33,2717 02725 TC GOODKALC # GOOD RETURN
031040,000156:
031041,000157: 33,2720 35676 CAF PRIO37 # BAD RETURN
031042,000158: 33,2721 05534 TC FINDVAC
031043,000159: 33,2722 E4,1566 EBANK= TDEC
031044,000160: 33,2722 02706 66064 2CADR CURT9
031045,000161:
031046,000162: 33,2724 05745 TC TASKOVER # END POSTKALC TASK
031047,000163:
031048,000164: 33,2725 33305 GOODKALC CAF 11SECS9
031049,000165: 33,2726 05701 TC WAITLIST
031050,000166: 33,2727 E4,1566 EBANK= TDEC
031051,000167: 33,2727 02747 66064 2CADR 182LMP
031052,000168:
031053,000169: 33,2731 00006 EXTEND # CALL DPS1 BURN PROG. AT TIGN-36SECS.
031054,000170: 33,2732 40025 DCS TIME2
031055,000171: 33,2733 52062 DXCH ITEMP1
031056,000172:
031057,000173: 33,2734 00006 EXTEND
031058,000174: 33,2735 31670 DCA TIGN
031059,000175: 33,2736 20062 DAS ITEMP1
031060,000176: 33,2737 00006 EXTEND
031061,000177: 33,2740 43262 DCS 36SECSD9
031062,000178: 33,2741 20062 DAS ITEMP1
031063,000179: 33,2742 52062 DXCH ITEMP1
031064,000180:
031065,000181: 33,2743 05757 TC LONGCALL
031066,000182: 33,2744 E4,1566 EBANK= TDEC
031067,000183: 33,2744 02767 66064 2CADR TIG9-36
031068,000184:
031069,000185: 33,2746 15745 TCF TASKOVER # END GOODKALC TASK
|
|
Page 687 |
031071,000187:
031072,000188: 33,2747 05106 182LMP TC 2LMP+DT
031073,000189: 33,2750 00266 DEC 182 B-14 # LANDING RADAR POWER ON
031074,000190: 33,2751 00032 DEC 26 B-14 # RADAR SELF TEST-ON
031075,000191: 33,2752 11444 DEC 4900 B-14
031076,000192:
031077,000193: 33,2753 05114 TC 1LMP+DT
031078,000194: 33,2754 00004 DEC 4 B-14 # ED BATTERY ACTIVATION -ON
031079,000195: 33,2755 00764 DEC 500 B-14
031080,000196:
031081,000197: 33,2756 05114 TC 1LMP+DT
031082,000198: 33,2757 00010 DEC 8 B-14 # LANDING GEAR DEPLOY -FIRE
031083,000199: 33,2760 00310 DEC 200 B-14
031084,000200:
031085,000201: 33,2761 05114 TC 1LMP+DT
031086,000202: 33,2762 00011 DEC 9 B-14 # LANDING GEAR DEPLOY- FIRE RESET
031087,000203: 33,2763 00620 DEC 400 B-14
031088,000204:
031089,000205: 33,2764 05073 TC 1LMP
031090,000206: 33,2765 00033 DEC 27 B-14 # RADAR SELF TEST-OFF
031091,000207:
031092,000208: 33,2766 05745 TC TASKOVER # END 182LMP TASK
031093,000209:
031094,000210: 33,2767 04105 TIG9-36 TC NEWMODEX # DISPLAY PROGRAM NUMBER IN DSKY
031095,000211: 33,2770 00041 OCT 41
031096,000212:
031097,000213: 33,2771 06074 TC ENGINOF1 # MAKE SURE ENGINE OFF
031098,000214:
031099,000215: 33,2772 05065 TC 2LMP
031100,000216: 33,2773 00226 DEC 150 B-14 # ENGINE SELECT DESC ARM
031101,000217: 33,2774 00126 DEC 86 B-14 # MANUAL THROTTLE ON (10PERCENT)
031102,000218:
031103,000219: 33,2775 33306 CA 20SECS9
031104,000220: 33,2776 05701 TC WAITLIST
031105,000221: 33,2777 E4,1566 EBANK= TDEC
031106,000222: 33,2777 03234 66064 2CADR 228LMP
031107,000223:
031108,000224: 33,3001 35667 CAF PRIO27
031109,000225: 33,3002 05534 TC FINDVAC
031110,000226: 33,3003 E4,1566 EBANK= TDEC
031111,000227: 33,3003 03006 66064 2CADR ORBINTJB
031112,000228:
031113,000229: 33,3005 15745 TCF TASKOVER # END TIG9-36 TASK
031114,000230:
031115,000231: 33,3006 00006 ORBINTJB EXTEND
031116,000232: 33,3007 31670 DCA TIGN
031117,000233: 33,3010 53567 DXCH TDEC
031118,000234: 33,3011 43307 CS 30SECS9
031119,000235: 33,3012 54001 TS L
031120,000236: 33,3013 47761 CS ZERO
031121,000237: 33,3014 21567 DAS TDEC # TDEC NOW CONTAINS TIGN-30 SECS.
031122,000238:
|
|
Page 688 |
031124,000240: 33,3015 00006 EXTEND
031125,000241: 33,3016 32537 DCA ORBINTAD
031126,000242:
031127,000243: 33,3017 52006 DXCH Z
031128,000244:
031129,000245: # RN AND VN IN STABLE MEMBER COORDINATES. SCALING IS AS IN AVEG.
031130,000246:
031131,000247: # DELETE
031132,000248: 33,3020 32526 CAF AVGENADR
031133,000249: 33,3021 55322 TS DVSELECT # SELECT AGS MONITOR
031134,000250:
031135,000251: 33,3022 00006 EXTEND
031136,000252: 33,3023 32535 DCA EXITADR
031137,000253: 33,3024 53073 DXCH AVGEXIT # SET AVERAGEG EXIT
031138,000254:
031139,000255: 33,3025 00006 EXTEND
031140,000256: 33,3026 33254 DCA MP9TM1AD
031141,000257: 33,3027 53075 DXCH DVMNEXIT # SET MONITOR EXIT
031142,000258:
031143,000259: 33,3030 43307 CS 30SECS9 # CALL PREREAD AT TIGN-30SECS.
031144,000260: 33,3031 02550 TC TASKSETR
031145,000261:
031146,000262: 33,3032 00004 INHINT
031147,000263: 33,3033 05701 TC WAITLIST
031148,000264: 33,3034 E5,1506 EBANK= DVTOTAL
031149,000265: 33,3034 02000 60065 2CADR PREREAD
031150,000266:
031151,000267: 33,3036 43302 CS 4SECS9 # CALL TVC FOR DPS1 AT TIG-4SECS
031152,000268: 33,3037 02550 TC TASKSETR
031153,000269: 33,3040 00004 INHINT
031154,000270: 33,3041 05701 TC WAITLIST
031155,000271: 33,3042 1072 EBANK= AVGEXIT
031156,000272: 33,3042 03045 66062 2CADR TIG9-4
031157,000273:
031158,000274: 33,3044 15605 TCF ENDOFJOB # END ORBITAL INTEGRATION JOB
031159,000275:
031160,000276: 33,3045 33302 TIG9-4 CAF 4SECS9 # DO ENGINE ON AT TIG-0 SEC
031161,000277: 33,3046 05701 TC WAITLIST
031162,000278: 33,3047 E6,1523 EBANK= THRSTCMD
031163,000279: 33,3047 03055 66066 2CADR TIG9-0
031164,000280:
031165,000281: 33,3051 00006 EXTEND
031166,000282: 33,3052 33252 DCA EQU1ADR
031167,000283: 33,3053 53073 DXCH AVGEXIT # AVG ROUTINE GOES TO VG COMPUTATION
031168,000284:
031169,000285: 33,3054 15745 TCF TASKOVER # END TIG9-4 TASK
031170,000286:
031171,000287: 33,3055 06054 TIG9-0 TC ENGINEON # COMMAND ENGINE ON
031172,000288:
031173,000289: 33,3056 05717 TC FIXDELAY
031174,000290: 33,3057 00062 DEC 50 B-14
|
|
Page 689 |
031176,000292:
031177,000293: 33,3060 05307 TC IBNKCALL
031178,000294: 33,3061 34030 CADR NOULLAGE # +X TRANSLATION- OFF
031179,000295:
031180,000296: 33,3062 E6,1523 EBANK= THRSTCMD # DECLARE EBANK=6
031181,000297: 33,3062 32472 CAF 10PERTHR # REPORT 10 PERCENT THRUST TO DAP
031182,000298: 33,3063 55523 TS THRSTCMD
031183,000299:
031184,000300: 33,3064 05717 TC FIXDELAY
031185,000301:
031186,000302: 33,3065 00372 DEC 250 B-14
031187,000303:
031188,000304: 33,3066 05114 TC 1LMP+DT
031189,000305: 33,3067 00005 DEC 5 B-14 # ED BATTERY ACTIVATION-SAFE
031190,000306: 33,3070 04374 DEC 2300 B-14
031191,000307:
031192,000308: 33,3071 37735 MAXTHR9 CAF POSMAX # CALL FOR 92.5 PERCENT THRUST
031193,000309: 33,3072 55335 TS PCNTF
031194,000310: 33,3073 00006 EXTEND
031195,000311: 33,3074 32541 DCA PCNTFMAD
031196,000312: 33,3075 52006 DTCB
031197,000313:
031198,000314: 33,3076 32473 CAF 92PERTHR # REPORT THRUST TO DAP
031199,000315: 33,3077 55523 TS THRSTCMD
031200,000316: 33,3100 15745 TCF TASKOVER # END TIG9-0 TASK
031201,000317:
031202,000318: 33,3101 E4,1566 EBANK= TDEC # DECLARE EBANK=4
031203,000319:
031204,000320: 33,3101 77624 DPS1EQU3 CALL
031205,000321: 33,3102 67111 CALCTGO
031206,000322: 33,3103 77775 VLOAD
031207,000323: 33,3104 02272 UNITVG
031208,000324: 33,3105 02233 STORE AXISD # FINDCDUD INPUT
031209,000325: 33,3106 77624 CALL
031210,000326: 33,3107 60643 FINDCDUD
031211,000327:
031212,000328: 33,3110 15605 TCF ENDOFJOB # END DPS1EQU3 JOB DURING BURN ONLY
031213,000329:
031214,000330: 33,3111 45345 CALCTGO DLOAD DSU
031215,000331: 33,3112 00045 LV # ABVAL(VG)
031216,000332: 33,3113 27274 VTAILOFF
031217,000333: 33,3114 56205 DMP DDV
031218,000334: 33,3115 27276 DELTAT9
031219,000335: 33,3116 02535 ABDELV
031220,000336: 33,3117 02350 STORE TTGO # FOR DWLK ONLY
031221,000337:
031222,000338: 33,3120 02350 STORE TGO
031223,000339:
031224,000340: 33,3121 51025 DSU BPL
031225,000341: 33,3122 27260 4SECSD9
031226,000342: 33,3123 00052 QPRET
031227,000343: 33,3124 77776 EXIT
|
|
Page 690 |
031229,000345:
031230,000346: 33,3125 00004 INHINT # CUTOFF SIGNAL COUNTER SET
031231,000347: 33,3126 31750 CA TGO +1
031232,000348: 33,3127 05701 TC WAITLIST
031233,000349: 33,3130 0766 EBANK= CDUXD
031234,000350: 33,3130 03133 66061 2CADR CUTOFF
031235,000351:
031236,000352: 33,3132 15605 TCF ENDOFJOB # END DPS1 BURN EQUATION JOB
031237,000353:
031238,000354: 33,3133 06071 CUTOFF TC ENGINOFF # ENGINE OFF
031239,000355:
031240,000356: 33,3134 05307 TC IBNKCALL
031241,000357: 33,3135 34057 CADR STOPRATE # HOLD VEHICLE ATTITUDE
031242,000358:
031243,000359: 33,3136 15745 TCF TASKOVER # END CUTOFF TASK
031244,000360:
031245,000361: 33,3137 00006 MP9TERM1 EXTEND
031246,000362: 33,3140 32535 DCA EXITADR
031247,000363: 33,3141 53073 DXCH AVGEXIT
031248,000364:
031249,000365: 33,3142 00004 INHINT
031250,000366: 33,3143 33303 CAF 5SECS9
031251,000367: 33,3144 05701 TC WAITLIST
031252,000368: 33,3145 E4,1566 EBANK= TDEC
031253,000369: 33,3145 03150 66064 2CADR 87LMP
031254,000370:
031255,000371: 33,3147 15605 TCF ENDOFJOB # END MP9TERM1 JOB
031256,000372:
031257,000373: 33,3150 05106 87LMP TC 2LMP+DT
031258,000374: 33,3151 00127 DEC 87 B-14 # MANUAL THROTTLE - RESET (30 PERCENT.)
031259,000375: 33,3152 00227 DEC 151 B-14 # ENGINE SELECT-DESC ARM-OFF
031260,000376: 33,3153 01750 DEC 1000 B-14
031261,000377:
031262,000378: 33,3154 05106 TC 2LMP+DT
031263,000379: 33,3155 00365 DEC 245 B-14 # DPS PQGS NO1 - OFF
031264,000380: 33,3156 00325 DEC 213 B-14 # DPS PQGS NO2 - OFF
031265,000381: 33,3157 00144 DEC 100 B-14
031266,000382:
031267,000383: 33,3160 05106 TC 2LMP+DT
031268,000384:
031269,000385: 33,3161 00345 DEC 229 B-14 # DPS PQGS ARM NO1 DISABLE
031270,000386: 33,3162 00305 DEC 197 B-14 # DPS PQGS ARM NO2 DISABLE
031271,000387: 33,3163 02570 DEC 1400 B-14
031272,000388:
031273,000389: 33,3164 05307 TC IBNKCALL
031274,000390: 33,3165 34012 CADR SETMAXDB
031275,000391:
031276,000392: 33,3166 05073 TC 1LMP
031277,000393: 33,3167 00032 DEC 26 B-14 # RADAR SELF TEST ON
031278,000394:
031279,000395: 33,3170 05717 TC FIXDELAY
031280,000396: 33,3171 13560 DEC 6000 B-14
|
|
Page 691 |
031282,000398:
031283,000399: 33,3172 05065 TC 2LMP
031284,000400: 33,3173 00033 DEC 27 B-14 # RADAR SELF TEST POWER - OFF
031285,000401: 33,3174 00267 DEC 183 B-14 # LANDING RADAR POWER - OFF
031286,000402:
031287,000403: 33,3175 05141 TC MPENTRY # CALL NEXT MISSION ENTRY ROUTINE
031288,000404: 33,3176 00001 DEC 1 B-14
031289,000405: 33,3177 00013 DEC 11 B-14
031290,000406: 33,3200 01752 ADRES MP9-11DT
031291,000407:
031292,000408: 33,3201 06036 TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
031293,000409: 33,3202 00001 OCT 00001
031294,000410:
031295,000411: 33,3203 15745 TCF TASKOVER # MISSION PHASE 9 COMPLETE
031296,000412:
031297,000413: 33,3204 47375 DPS1EQU1 VLOAD VXV
031298,000414: 33,3205 01017 VN # VN SCALED AT 2(+7)M/CS
031299,000415: 33,3206 01033 UNITR # UNITR IS UNIT VECTOR ALONG RN
031300,000416: 33,3207 63256 UNIT PDVL
031301,000417: 33,3210 01033 UNITR
031302,000418: 33,3211 77635 VXV
031303,000419: 33,3212 43325 PDDL DAD
031304,000420: 33,3213 02355 RP # TARGET DISTANCE - PERIGEE OR APOGEE
031305,000421: 33,3214 01047 RMAG # RP AND RMAG SCALED AT 2(+24)M
031306,000422: 33,3215 65205 DMP PDDL
031307,000423: 33,3216 01047 RMAG
031308,000424: 33,3217 02355 RP
031309,000425: 33,3220 56205 DMP DDV
031310,000426: 33,3221 27300 2MUERTH9 # SCALED AT 2(+38)M(3)/CS(2).
031311,000427: 33,3222 74366 SQRT VXSC
031312,000428: 33,3223 77752 VSL2
031313,000429: 33,3224 02326 STORE VDVECT # FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031314,000430:
031315,000431: 33,3225 77651 VSU
031316,000432: 33,3226 01017 VN
031317,000433: 33,3227 02334 STORE VGVECT # FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031318,000434:
031319,000435: 33,3230 77656 UNIT # LEAVES ABVAL IN LV
031320,000436: 33,3231 02272 STORE UNITVG
031321,000437:
031322,000438: 33,3232 77650 GOTO
031323,000439: 33,3233 02262 SHJUMP1
031324,000440:
031325,000441: 33,3234 05106 228LMP TC 2LMP+DT
031326,000442: 33,3235 00344 DEC 228 B-14 # DPS PQGS ARM NO1 - ENABLE
031327,000443: 33,3236 00304 DEC 196 B-14 # DPS PQGS ARM NO2 - ENABLE
031328,000444: 33,3237 00144 DEC 100 B-14
031329,000445:
031330,000446: 33,3240 05106 TC 2LMP+DT
031331,000447: 33,3241 00364 DEC 244 B-14 # DPS PQGS NO1 - ON
031332,000448: 33,3242 00324 DEC 212 B-14 # DPS PQGS NO2 - ON
|
|
Page 692 |
031334,000450: 33,3243 01356 DEC 750 B-14
031335,000451:
031336,000452: 33,3244 05307 TC IBNKCALL
031337,000453: 33,3245 34024 CADR ULLAGE # +X TRANSLATION- ON
031338,000454: 33,3246 15745 TCF TASKOVER # END 228LMP TASK
031339,000455:
031340,000456: # ********************************
031341,000457:
031342,000458: 33,3247 66641 EQU2ADR CADR DPS1EQU2
031343,000459:
031344,000460: 33,3250 67101 EQU3ADR CADR DPS1EQU3
031345,000461:
031346,000462: 33,3251 E4,1566 EBANK= TDEC
031347,000463: 33,3251 03204 66064 EQU1ADR 2CADR DPS1EQU1
031348,000464:
031349,000465: 33,3253 E4,1566 EBANK= TDEC
031350,000466: 33,3253 03137 66064 MP9TM1AD 2CADR MP9TERM1
031351,000467:
031352,000468: 33,3255 E4,1566 EBANK= TDEC
031353,000469: 33,3255 02301 16004 RVUPDADR 2CADR RVUPDATE
031354,000470:
031355,000471: 33,3257 00000 00620 4SECSD9 2DEC 400 B-28
031356,000472:
031357,000473: 33,3261 00000 07020 36SECSD9 2DEC 3600 B-28
031358,000474:
031359,000475: 33,3263 00001 35414 5M15S 2DEC 31500 B-28
031360,000476:
031361,000477:
031362,000478: 33,3265 00000 00302 DPA 2DEC .09449 B-17 # SCALED AT 2(+17)M/CS
031363,000479:
031364,000480: 33,3267 22653 21315 DPB 2DEC .0002874 B+11 # SCALED AT 2(-11)M/CS(+2)
031365,000481:
031366,000482: 33,3271 00000 05050 DPC 2DEC 2600. B-28 # SCALED AT 2(+28)CS
031367,000483:
031368,000484: 33,3273 00000 00000 VTAILOFF 2DEC 0 B-28 # ***** GET THE NUMBER
031369,000485:
031370,000486: 33,3275 00000 03641 DELTAT9 2DEC 200 E+4 B-38 # 2SEC/KPIP
031371,000487:
031372,000488: 33,3277 11217 27040 2MUERTH9 2DEC* 3.98603223 E+10 B-37*
031373,000489:
031374,000490: 33,3301 00144 1SEC9 DEC 100 B-14
031375,000491: 33,3302 00620 4SECS9 DEC 400 B-14
031376,000492: 33,3303 00764 5SECS9 DEC 500 B-14
031377,000493: 33,3304 01750 10SECS9 DEC 1000 B-14
031378,000494: 33,3305 02114 11SECS9 DEC 1100 B-14
031379,000495: 33,3306 03720 20SECS9 DEC 2000 B-14
031380,000496: 33,3307 05670 30SECS9 DEC 3000 B-14
031381,000497: 33,3310 21450 90SECS9 DEC 9000 B-14
031382,000498: 33,3311 27340 120SECS9 DEC 12000 B-14
031383,000499: # ********************************
End of include-file MP9-DPS_1_BURN.agc. Parent file is MAIN.agc