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. |
030812,000002: ## Copyright: Public domain.
030813,000003: ## Filename: MISSION_PHASE_8-DPS_COLD_SOAK.agc
030814,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
030815,000005: ## is part of the source code for the Lunar Module's
030816,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030817,000007: ## Assembler: yaYUL
030818,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030819,000009: ## Website: www.ibiblio.org/apollo/index.html
030820,000010: ## Mod history: 2016-09-30 RSB Created draft version.
030821,000011: ## 2016-10-28 MAS Transcribed.
030822,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
030823,000013: ## changes made.
030824,000014: ## 2017-06-03 MAS Replaced some instances of P00H with POOH.
030825,000015:
030826,000016:
![]() |
Page 720 |
030828,000018: 27,2564 BANK 27
030829,000019: 27,2564 E3,1652 EBANK= RATEINDX
030830,000020: # PROGRAM DESCRIPTION- DATE- 07 DEC 66
030831,000021:
030832,000022: # MOD NO- 4 LOG SECTION-
030833,000023: # MOD BY- ELIASSEN MISSION PHASE 8 - DPS COLD SOAK
030834,000024: # FUNCTIONAL DESCRIPTION-
030835,000025:
030836,000026: # 0/54/23 START MISSION PHASE 8 WHEN MISSION TIMER 4 COUNTS TO ZERO.
030837,000027:
030838,000028: # CHANGE MAJOR MODE TO 15.
030839,000029:
030840,000030: # DO DFI T/M CALIBRATION (14 SECONDS).
030841,000031:
030842,000032: # WAIT 1 SECOND
030843,000033:
030844,000034: # 0/54/38 LMP COMMANDS-
030845,000035: # LANDING RADAR POWER ON*
030846,000036: # RADAR SELF TEST ON*
030847,000037:
030848,000038: # CALL TO CALCULATE REQUIRED ATTITUDE
030849,000039: # FOR DPS COLD SOAK -
030850,000040: # LM X-AXIS NORMAL TO THE ECLIPTIC PLANE
030851,000041: # AND BISECTOR OF LM +Z/-Y AXES TOWARD THE SUN.
030852,000042:
030853,000043: # CHANGE THE ATTITUDE OF THE
030854,000044: # SPACECRAFT TO THAT REQUIRED FOR DPS COLD SOAK
030855,000045: # USING KALCMANU ROUTINE - MANEUVER RATE= 5 DEG/SEC.
030856,000046:
030857,000047: # WAIT 60 SECONDS
030858,000048:
030859,000049: # LMP COMMAND-
030860,000050: # RADAR SELF TEST OFF*
030861,000051:
030862,000052: # WAIT 60 SECONDS
030863,000053:
030864,000054: # 0/56/38 LMP COMMAND-
030865,000055: # LANDING RADAR POWER OFF*
030866,000056:
030867,000057: # WAIT 15 SECONDS
030868,000058:
030869,000059: # 0/56/53 VERIFY THAT MANEUVER IS COMPLETE.
030870,000060: # (IF NOT GO TO CURTAINS)
030871,000061:
030872,000062: # SET MAXIMUM DEADBAND FOR LM-DAP.
030873,000063:
030874,000064: # CALL SCHEDULE ENTRY ROUTINE FOR DPS 1 WITH
030875,000065: # J=2
030876,000066: # MP=9
030877,000067: # DT= 2H 59M 14S
030878,000068:
![]() |
Page 721 |
030880,000070: # SUBROUTINES CALLED-
030881,000071: # FINDVAC, ENDOFJOB
030882,000072: # WAITLIST, TASKOVER
030883,000073: # NEWMODEX, MPENTRY, PHASCHNG, 2PHSCHNG
030884,000074: # INTPRET, BANKCALL, IBNKCALL, ATTSTALL, CURTAINS, POOH
030885,000075: # FLAG1DWN, FLAG2DWN, SETMINDB, SETMAXDB
030886,000076: # KALCMAN3, DCMTOCDU, V1STO2S
030887,000077: # 1LMP, 1LMP+DT, 2LMP+DT
030888,000078:
030889,000079: # NORMAL EXIT MODES-
030890,000080: # TC ENDOFJOB/TASKOVER
030891,000081: # ALARM OR ABORT EXIT MODES- NONE
030892,000082: # OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATION LEFT IN ERASABLE)
030893,000083: # SAME AS FOR KALCMANU
030894,000084: # ERASABLE INITIALIZATION REQUIRED-
030895,000085: # TEPHEM IN CENTISECONDS TRIPLE PRECISION
030896,000086: # MP8TO9 DT FOR CALLING MP9- IN SECONDS(SEE ABOVE)
030897,000087:
030898,000088: # DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
030899,000089: # SAME AS FOR KALCMANU
030900,000090: 27,2564 7746 PRIOKM EQUALS PRIO20 # PRIORITY FOR KALCMANU PHASE 8 + 16
030901,000091: 27,2564 04117 MP8JOB TC NEWMODEX # UPDATE PROGRAM NUMBER
030902,000092: 27,2565 00015 OCT 15 # ON DSKY
030903,000093:
030904,000094: 27,2566 04161 TC PHASCHNG
030905,000095: 27,2567 05022 OCT 05022
030906,000096: 27,2570 20000 OCT 20000
030907,000097: 27,2571 37754 CAF BIT8
030908,000098: 27,2572 04105 TC SETRSTRT # SET RESTART FLAG
030909,000099:
030910,000100: 27,2573 37763 CAF ONE # ESTABLISH TASK TO
030911,000101: 27,2574 00004 INHINT # PERFORM DFI T/M CAL.
030912,000102: 27,2575 05663 TC WAITLIST
030913,000103: 27,2576 E3,1652 EBANK= RATEINDX
030914,000104: 27,2576 02601 56063 2CADR MP8TASK
030915,000105:
030916,000106: 27,2600 05567 TC ENDOFJOB
030917,000107:
030918,000108: 27,2601 05101 MP8TASK TC 1LMP+DT # LMP COMMAND
030919,000109: 27,2602 00354 DEC 236 B-14 # DFI T/M CALIBRATE ON*
030920,000110: 27,2603 02260 DEC 1200 B-14 # 12 SECONDS DELAY
030921,000111:
030922,000112: 27,2604 05073 TC 2LMP+DT # LMP COMMANDS
030923,000113: 27,2605 00355 DEC 237 B-14 # DFI T/M CALIBRATE OFF*
030924,000114: 27,2606 00306 DEC 198 B-14 # MASTER C+W ALARM RESET** COMMAND
030925,000115: 27,2607 00310 DEC 200 B-14 # 2 SECONDS DELAY
030926,000116:
030927,000117: 27,2610 05101 TC 1LMP+DT # LMP COMMAND
030928,000118: 27,2611 00307 DEC 199 B-14 # MASTER C+W ALARM RESET- COMMAND RESET
030929,000119: 27,2612 00144 DEC 100 B-14 # 1 SECOND
030930,000120:
![]() |
Page 722 |
030932,000122: 27,2613 37747 M8RADON CAF PRIO10 # SET UP JOB TO CALCULATE
030933,000123: 27,2614 05516 TC FINDVAC # REQ CDU ANGLES
030934,000124: 27,2615 E3,1652 EBANK= RATEINDX
030935,000125: 27,2615 02670 56063 2CADR COLDSOAK
030936,000126:
030937,000127: 27,2617 04141 TC 2PHSCHNG
030938,000128: 27,2620 00054 OCT 00054
030939,000129: 27,2621 05012 OCT 05012
030940,000130: 27,2622 77777 OCT 77777
030941,000131:
030942,000132: 27,2623 05073 TC 2LMP+DT # LMP COMMANDS
030943,000133: 27,2624 00266 DEC 182 B-14 # LANDING RADAR POWER ON*
030944,000134: 27,2625 00032 DEC 26 B-14 # RADAR SELF TEST ON*
030945,000135: 27,2626 13560 DEC 6000 B-14 # WAIT 1 MIN
030946,000136:
030947,000137: 27,2627 05101 TC 1LMP+DT # LMP COMMAND
030948,000138: 27,2630 00033 DEC 27 B-14 # RADAR SELF TEST OFF*
030949,000139: 27,2631 13560 DEC 6000 B-14 # WAIT 1 MIN
030950,000140:
030951,000141: 27,2632 05101 TC 1LMP+DT
030952,000142: 27,2633 00267 DEC 183 B-14 # LANDING RADAR POWER OFF*
030953,000143: 27,2634 02734 DEC 1500 B-14 # 15 SECONDS
030954,000144:
030955,000145: 27,2635 35656 CAF PRIO35 # SET UP JOB TO
030956,000146: 27,2636 05505 TC NOVAC # END MISSION PHASE
030957,000147: 27,2637 E3,1400 EBANK= LST1
030958,000148: 27,2637 02642 56063 2CADR MP9CALL
030959,000149:
030960,000150: 27,2641 05727 TC TASKOVER
030961,000151: 27,2642 30076 MP9CALL CA FLAGWRD2 # CHECK IF MANEUVER
030962,000152: 27,2643 77751 MASK BIT11 # WAS COMPLETED
030963,000153: 27,2644 00006 EXTEND
030964,000154: 27,2645 12647 BZF +2
030965,000155: 27,2646 04743 TC CURTAINS # MANEUVER NOT COMPLETED
030966,000156: 27,2647 05206 TC BANKCALL
030967,000157: 27,2650 26743 CADR ATTSTALL
030968,000158: 27,2651 04743 TC CURTAINS # SICK RETURN
030969,000159:
030970,000160: # SET LM-DAP DEADBAND TO MAX-
030971,000161:
030972,000162: 27,2652 04161 TC PHASCHNG
030973,000163: 27,2653 00002 OCT 00002 # DEACTIVATE GR 2
030974,000164:
030975,000165: 27,2654 04141 TC 2PHSCHNG
030976,000166: 27,2655 00004 OCT 00004
030977,000167: 27,2656 05023 OCT 05023
030978,000168: 27,2657 30000 OCT 30000
030979,000169:
030980,000170: 27,2660 00004 INHINT
030981,000171: 27,2661 05206 TC BANKCALL
![]() |
Page 723 |
030983,000173: 27,2662 40054 CADR SETMAXDB
030984,000174:
030985,000175: # CALL MISSION PHASE 9
030986,000176:
030987,000177: 27,2663 05126 TC MPENTRY # MANEUVER SUCCESSFUL
030988,000178: 27,2664 00002 DEC 2 B-14 # J=2
030989,000179: 27,2665 00011 DEC 9 B-14 # MP=9
030990,000180: 27,2666 01773 ADRES MP8TO9 # DT = 2H 59M 14S
030991,000181:
030992,000182: 27,2667 04272 TC POOH # END OF MISSION PHASE 8
030993,000183:
![]() |
Page 724 |
030995,000185: # CALCULATE CDU ANGLES FOR REQUIRED
030996,000186: # COLDSOAK ATTITUDE - LEM X-AXIS NORMAL TO THE
030997,000187: # ECLIPTIC AND BISECTOR OF -Y/+Z AXES TOWARD THE SUN.
030998,000188: 27,2670 00006 COLDSOAK EXTEND
030999,000189: 27,2671 30025 DCA TIME2
031000,000190: 27,2672 52145 DXCH MPAC
031001,000191: 27,2673 00006 EXTEND
031002,000192: 27,2674 31741 DCA TLIFTOFF
031003,000193: 27,2675 20145 DAS MPAC # ADD TIME CLOCK ZEROED TO TIME2
031004,000194:
031005,000195: 27,2676 37767 CA ZERO
031006,000196: 27,2677 54153 TS MODE
031007,000197: 27,2700 06112 TC INTPRET
031008,000198: # CALCULATE TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
031009,000199: # TO STABLE MEMBER COORDINATES. CONVERT TO CDU ANGLES.
031010,000200: 27,2701 54201 SETPD SR
031011,000201: 27,2702 00001 0
031012,000202: 27,2703 20617 14D
031013,000203: 27,2704 56371 TAD DDV
031014,000204: 27,2705 01754 TEPHEM # TIME IN CENTISEC SINCE PRECEDING JUNE 30
031015,000205: 27,2706 17113 CSPERDAY # CENTISEC PER DAY
031016,000206: 27,2707 77606 PUSH # T/2**9 = (DAYS SINCE JUNE 30TH)/2**9
031017,000207:
031018,000208: # COMPUTE SIN(2*PI*T/365.25), COS(2*PI*T/365.25) WHERE
031019,000209: # T= NUMBER OF DAYS SINCE MIDNIGHT OF PRECEDING JUNE 30TH.
031020,000210:
031021,000211: 27,2710 51025 ALTA DSU BPL # DIMINISH T/2**9 BY 365.25/2**9
031022,000212: 27,2711 17111 ONEYR # UNTIL A NEGATIVE RESULT OCCURS.
031023,000213: 27,2712 56710 ALTA
031024,000214: 27,2713 56215 DAD DDV # ADD BACK 365.25/2**9 ONCE.
031025,000215: 27,2714 17111 ONEYR # LET Y=RESULT
031026,000216: 27,2715 17111 ONEYR # Y/365.25 IS LESS THAN ONE AND POSITIVE.
031027,000217: 27,2716 73406 PUSH SIN # .5*SIN(2*PI*Y/365.25)
031028,000218: 27,2717 71525 PDDL COS # .5*COS(2*PI*Y/365.25)
031029,000219:
031030,000220: # COMPUTE (1/8 +LOS) IN REVOLUTIONS WHERE
031031,000221: # LOS= LOS0+LOSR*T-C0Y*SIN(2*PI*Y/365.25)-C1Y*COS(2*PI*Y/365.25) .
031032,000222: # LOS = LONGITUDE OF SUN IN PLANE OF ECLIPTIC.
031033,000223:
031034,000224: 27,2720 65205 DMP PDDL
031035,000225: 27,2721 17073 C1Y # .5*C1Y*COS/2
031036,000226: 27,2722 43205 DMP DAD
031037,000227: 27,2723 17071 C0Y # (C0Y*SIN +C1Y*COS)/4
031038,000228: 27,2724 77725 PDDL # T/2**9
031039,000229: 27,2725 54205 DMP SL
031040,000230: 27,2726 17067 LOSR # LOSR*T/2**9
031041,000231: 27,2727 20210 7 # LOSR*T/4
031042,000232: 27,2730 77625 DSU # (LOSR*T-C0Y*SIN-C1Y*COS)/4
031043,000233: 27,2731 43215 DAD DAD
031044,000234: 27,2732 17065 LOS0 # LOS/4= (LOS0+LOSR*T-C0Y*SIN-C1Y*COS)/4
![]() |
Page 725 |
031046,000236: 27,2733 17107 EGHTH # (1/8 +LOS)/4 , 1/8 REV = 45 DEG
031047,000237:
031048,000238: 27,2734 51025 ALTB DSU BPL # DIMINISH (1/8 +LOS)/4 REVS BY (1REV)/4
031049,000239: 27,2735 17105 ONEREV # UNTIL A NEGATIVE RESULT OCCURS.
031050,000240: 27,2736 56734 ALTB
031051,000241: 27,2737 62415 DAD SL2 # ADD BACK (1REV)/4 .
031052,000242: 27,2740 17105 ONEREV # AND MULTIPLY BY FOUR.
031053,000243: 27,2741 77606 PUSH # (1/8 +LOS) POSITIVE AND LESS THAN ONE.
031054,000244:
031055,000245: # CONSTRUCT TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
031056,000246: # TO EARTH REFERENCE COORDINATES. MATRIX IS SCALED BY -1 .
031057,000247: # MATRIX TRANSPOSE IS STORED STARTING IN FIRST LOCATION OF PUSHDOWN LIST.
031058,000248: # OBL= OBLIQUITY= ANGLE BETWEEN ECLIPTIC AND EQUATORIAL PLANES.
031059,000249: # DEFINE LOSR= 2*PI*LOS
031060,000250:
031061,000251: 27,2742 57546 COS DCOMP
031062,000252: 27,2743 00007 STORE 6 # -.5*COS(PI/4+LOSR)
031063,000253: 27,2744 77605 DMP
031064,000254: 27,2745 17077 COSOBL
031065,000255: 27,2746 00017 STORE 14D # -.5*COS(PI/4+LOSR)*COS(OBL)
031066,000256: 27,2747 77605 DMP
031067,000257: 27,2750 17101 TANOBL
031068,000258: 27,2751 14021 STODL 16D # -.5*COS(PI/4+LOSR)*SIN(OBL)
031069,000259: 27,2752 00001 0
031070,000260: 27,2753 77756 SIN
031071,000261: 27,2754 00015 STORE 12D # .5*SIN(PI/4+LOSR)
031072,000262: 27,2755 57405 DMP DCOMP
031073,000263: 27,2756 17077 COSOBL
031074,000264: 27,2757 00011 STORE 8D # -.5*SIN(PI/4+LOSR)*COS(OBL)
031075,000265: 27,2760 77605 DMP
031076,000266: 27,2761 17101 TANOBL
031077,000267: 27,2762 14013 STODL 10D # -.5*SIN(PI/4+LOSR)*SIN(OBL)
031078,000268: 27,2763 17077 COSOBL
031079,000269: 27,2764 77742 SR1
031080,000270: 27,2765 14005 STODL 4 # .5*COS(OBL)
031081,000271: 27,2766 17075 SINOBL
031082,000272: 27,2767 57542 SR1 DCOMP
031083,000273: 27,2770 14003 STODL 2 # -.5*SIN(OBL)
031084,000274: 27,2771 17103 DPZRO
031085,000275: 27,2772 00001 STORE 0 # 0
031086,000276:
031087,000277: # PERFORM THE MATRIX MULTIPLICATION (REFSMMAT)X(RCS TO REF MATRIX)/2
031088,000278: 27,2773 64375 VLOAD MXV
031089,000279: 27,2774 00001 0
031090,000280: 27,2775 01263 REFSMMAT
031091,000281: 27,2776 77772 VSL1
031092,000282: 27,2777 24001 STOVL 0
031093,000283: 27,3000 00007 6
031094,000284: 27,3001 76521 MXV VSL1
031095,000285: 27,3002 01263 REFSMMAT
031096,000286:
![]() |
Page 726 |
031098,000288: 27,3003 24007 STOVL 6
031099,000289: 27,3004 00015 12D
031100,000290: 27,3005 76521 MXV VSL1
031101,000291: 27,3006 01263 REFSMMAT
031102,000292: 27,3007 00015 STORE 12D
031103,000293: 27,3010 77776 EXIT
031104,000294:
031105,000295: # TRANSPOSE RESULTING DIRECTION COSINE MATRIX.
031106,000296:
031107,000297: 27,3011 50110 INDEX FIXLOC
031108,000298: 27,3012 52003 DXCH 2
031109,000299: 27,3013 50110 INDEX FIXLOC
031110,000300: 27,3014 52007 DXCH 6
031111,000301: 27,3015 50110 INDEX FIXLOC
031112,000302: 27,3016 52003 DXCH 2
031113,000303: 27,3017 50110 INDEX FIXLOC
031114,000304: 27,3020 52005 DXCH 4
031115,000305: 27,3021 50110 INDEX FIXLOC
031116,000306: 27,3022 52015 DXCH 12D
031117,000307: 27,3023 50110 INDEX FIXLOC
031118,000308: 27,3024 52005 DXCH 4
031119,000309: 27,3025 50110 INDEX FIXLOC
031120,000310: 27,3026 52013 DXCH 10D
031121,000311: 27,3027 50110 INDEX FIXLOC
031122,000312: 27,3030 52017 DXCH 14D
031123,000313: 27,3031 50110 INDEX FIXLOC
031124,000314: 27,3032 52013 DXCH 10D
031125,000315: 27,3033 06112 TC INTPRET
031126,000316:
031127,000317: # CALL ROUTINE TO CONVERT DIRECTION COSINE MATRIX TO CDU ANGLES.
031128,000318:
031129,000319: 27,3034 74001 SETPD AXC,1
031130,000320: 27,3035 00023 18D
031131,000321: 27,3036 00000 0
031132,000322: 27,3037 77624 CALL
031133,000323: 27,3040 70711 DCMTOCDU
031134,000324:
031135,000325: # CONVERT CDU ANGLES FROM ONES TO TWOS COMPLEMENT.
031136,000326:
031137,000327: 27,3041 47131 SSP RTB
031138,000328: 27,3042 01653 RATEINDX
031139,000329: 27,3043 00004 4 # CODE FOUR = MANEUVER RATE OF 5 DEG/SEC.
031140,000330: 27,3044 33526 V1STO2S # STORE CDU ANGLES IN CONSECUTIVE
031141,000331: 27,3045 01632 STORE CPHI # LOCATIONS CPHI,CTHETA,CPSI.
031142,000332: 27,3046 77776 EXIT
031143,000333:
031144,000334: # SET UP PARAMETERS FOR KALCMANU MANEUVER ROUTINE
031145,000335:
031146,000336: 27,3047 06076 TC FLAG2DWN # RESET STATE SWITCH 33 (BIT 12)
031147,000337: 27,3050 04000 OCT 04000 # FOR FINAL ROLL , IF ANY.
031148,000338:
![]() |
Page 727 |
031150,000340: 27,3051 06060 TC FLAG2UP # SET BIT FOR KALCMANU
031151,000341: 27,3052 02000 OCT 02000 # BIT 11
031152,000342:
031153,000343: 27,3053 04161 TC PHASCHNG
031154,000344: 27,3054 05024 OCT 05024
031155,000345: 27,3055 20000 OCT 20000
031156,000346:
031157,000347: 27,3056 37746 COLDSK1 CAF PRIOKM # SCHEDULE KALCMANU
031158,000348: 27,3057 00004 INHINT
031159,000349: 27,3060 05516 TC FINDVAC
031160,000350: 27,3061 E3,1652 EBANK= RATEINDX
031161,000351: 27,3061 02067 70063 2CADR KALCMAN3
031162,000352:
031163,000353: 27,3063 05567 TC ENDOFJOB
031164,000354:
031165,000355: 27,3064 02142 00045 LOS0 2DEC .273926331 B-2 # 1966-67,IN REVOLUTIONS
031166,000356:
031167,000357: 27,3066 00054 33312 LOSR 2DEC .0027377992 # 1966-67,IN REVOLUTIONS
031168,000358:
031169,000359: 27,3070 00053 17056 C0Y 2DEC .005306583 B-1 # 1966-67,IN REVOLUTIONS
031170,000360:
031171,000361: 27,3072 77774 66451 C1Y 2DEC -.000402139 B-1 # 1966-67,IN REVOLUTIONS
031172,000362:
031173,000363: 27,3074 14566 11602 SINOBL 2DEC .397845753 # 1966-67
031174,000364:
031175,000365: 27,3076 35267 21173 COSOBL 2DEC .917452318 # 1966-67
031176,000366:
031177,000367: 27,3100 15700 31171 TANOBL 2DEC .433641885 # 1966-67
031178,000368:
031179,000369: 27,3102 00000 00000 DPZRO 2DEC 0 B-28
031180,000370:
031181,000371: 27,3104 10000 00000 ONEREV 2DEC .999999999 B-2
031182,000372:
031183,000373: 27,3106 01000 00000 EGHTH 2DEC .125 B-2
031184,000374:
031185,000375: 27,3110 26650 00000 ONEYR 2DEC 365.25 B-9
031186,000376:
031187,000377: 27,3112 00020 17260 CSPERDAY 2DEC 8640000 B-33 # CENTISEC PER DAY
031188,000378:
031189,000379: # END OF MISSION PHASE 8
End of include-file MISSION_PHASE_8-DPS_COLD_SOAK.agc. Parent file is MAIN.agc