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