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