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. |
030435,000002: ## Copyright: Public domain.
030436,000003: ## Filename: MP_7-SIVB_LEM_SEPARATION.agc
030437,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
030438,000005: ## is part of the source code for the Lunar Module's
030439,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030440,000007: ## Assembler: yaYUL
030441,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030442,000009: ## Website: www.ibiblio.org/apollo/index.html
030443,000010: ## Mod history: 2016-09-30 RSB Created draft version.
030444,000011: ## 2016-10-25 MAS Transcribed.
030445,000012: ## 2016-10-31 RSB Typos.
030446,000013: ## 2016-11-01 RSB More typos.
030447,000014: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
030448,000015: ## no changes made.
030449,000016:
![]() |
Page 712 |
030451,000018: 25,2474 BANK 25
030452,000019: 25,2474 E4,1566 EBANK= TDEC
030453,000020:
030454,000021: # PROGRAM DESCRIPTION- MISSION PHASE 7 - SIVB/LEM SEPARATION DATE- 21 OCT 66
030455,000022: # MOD NO- 0 LOG SECTION- MP 7 - SIVB/LEM SEPARATION
030456,000023: # MOD BY- GILBERT ASSEMBLY- SUNBURST REVISION 12
030457,000024:
030458,000025: # FUNCTIONAL DESCRIPTION
030459,000026: # SIVB/LEM SEPARATION IS STARTED 39 MIN. 56 SEC. AFTER SIVB SHUTDOWN IS DETECTED. AT 00/11/04, ONE
030460,000027: # MINUTE AFTER BOOST SHUTDOWN IS DETECTED, MISSION TIMER NO. 1 IS SET TO 38M 56S AND MISSION PHASE REGISTER NO. 1
030461,000028: # TO MP 7. MISSION PHASE 7 STARTS AT 00/50/00. THIS PROGRAM COMMANDS A SEQUENCE OF EVENTS INCLUDING RCS COLD
030462,000029: # FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION INITIATION OF LEM/SIVB SEPARATION
030463,000030: # SEQUENCE, AND AGS ACTIVATION. IMMEDIATELY AFTER PHYSICAL SEPARATION, 00/54/00, THE PGNCS HOLDS THE ATTITUDE RATE
030464,000031: # WHICH EXISTED AT SEPARATION TO MINIMIZE THE PROBABILITY OF RE-CONTACT. RCS +X TRANSLATION IS TERMINATED 15
030465,000032: # SECONDS AFTER SEPARATION AT 00/54/15 AT WHICH TIME AUTOMATIC ATTITUDE HOLD IS INITIATED. THIS TERMINATION
030466,000033: # FOLLOWS A SEQUENCE STARTING AT 00/53/55 DURING WHICH THE JETS ARE TURNED ON FOR 10 SECONDS, OFF FOR 5 SECONDS,
030467,000034: # AND ON FOR 5 SECONDS. THIS IS DUE TO THE POSSIBILITY OF HEAT AFFECTING THE RENDEZVOUS RADAR ANTENNAE.
030468,000035: # MISSION PHASE TIMER NO. 4 IS SET TO START MISSION PHASE 8 (DPS COLD SOAK) IN 08 SECONDS. MISSION PHASE TIMER
030469,000036: # NO. 2 IS SET TO START MISSION PHASE 9 (DPS 1) IN 3H 1M 47S. MAJOR MODE 14 IS DISPLAYED DURING THIS PHASE.
030470,000037:
030471,000038: # CALLING SEQUENCE
030472,000039: # SIVB/LEM SEPARATION IS CALLED BY THE MISSION SCHEDULING ROUTINE AS A JOB. THE MISSION SCHEDULING ENTRY
030473,000040: # ROUTINE WAS CALLED 1 MINUTE AFTER BOOST SHUTDOWN IN MISSION PHASE 6 TO SET TIMER NO. 1 TO 38 MINUTES 56 SECONDS.
030474,000041:
030475,000042: # SUBROUTINES CALLED
030476,000043: # NEWMODEX, WAITLIST, FIXDELAY, 1LMP+DT, 2LMP+DT, FLAG1UP, FLAG1DWN, MPENTRY, MIDTOAVE, AVETOMID, TPAGREE,
030477,000044: # PREREAD, READACCS, SERVICER, AVERAGEG.
030478,000045:
030479,000046: # NORMAL EXIT MODE
030480,000047: # TASKOVER (ENDOFJOB INITIALLY SINCE TASK IS REQUESTED)
030481,000048:
030482,000049: # ALARM OR ABORT EXIT MODES
030483,000050: # NONE
030484,000051:
030485,000052: # INPUT
030486,000053: # MISSION SCHEDULING MAINTENANCE ROUTINE MUST BE INHIBITED AT BEGINNING AND ENABLED AT END OF MISSION PHASE 7.
030487,000054:
030488,000055: # OUTPUT
030489,000056: # RCS COLD FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION, INITIATION OF LEM/SIVB
030490,000057: # SEPARATION SEQUENCE, AND SCHEDULING OF MISSION PHASES 8 AND 9 (DPS COLD SOAK AND DPS 1).
030491,000058:
030492,000059: # ERASABLE INITIALIZATION REQUIRED
030493,000060: # NORMAL MISSION SEQUENCE SETS ERASABLES PROPERLY
030494,000061:
030495,000062: # DEBRIS
030496,000063: # CENTRALS - A,L,Q
030497,000064: # OTHER - ERASABLES IN SUBROUTINES USED
030498,000065:
![]() |
Page 713 |
030500,000067: 25,2474 04141 MP07JOB TC 2PHSCHNG
030501,000068: 25,2475 00006 OCT 00006
030502,000069: 25,2476 05022 OCT 05022
030503,000070: 25,2477 20000 OCT 20000
030504,000071:
030505,000072: 25,2500 04141 TC 2PHSCHNG
030506,000073: 25,2501 00003 OCT 00003
030507,000074: 25,2502 00004 OCT 00004
030508,000075:
030509,000076: 25,2503 37755 CAF BIT7
030510,000077: 25,2504 04105 TC SETRSTRT # SET RESTART FLAG
030511,000078:
030512,000079: 25,2505 04161 TC PHASCHNG
030513,000080: 25,2506 47013 OCT 47013
030514,000081: 25,2507 07640 DEC 4000 B-14
030515,000082: 25,2510 E4,1566 EBANK= TDEC
030516,000083: 25,2510 02555 52064 2CADR SIVBSEP
030517,000084:
030518,000085: 25,2512 04161 TC PHASCHNG
030519,000086: 25,2513 06022 OCT 06022
030520,000087: 25,2514 E4,1566 EBANK= TDEC
030521,000088: 25,2514 02524 52064 2CADR DOOI
030522,000089:
030523,000090: 25,2516 00004 INHINT
030524,000091: 25,2517 33005 CA 40SEC
030525,000092: 25,2520 05663 TC WAITLIST
030526,000093: 25,2521 E4,1566 EBANK= TDEC
030527,000094: 25,2521 02555 52064 2CADR SIVBSEP
030528,000095:
030529,000096: 25,2523 00003 RELINT
030530,000097:
030531,000098: 25,2524 00006 DOOI EXTEND
030532,000099: 25,2525 30025 DCA TIME2 # SET UP TIME FOR MIDTOAVE
030533,000100: 25,2526 53567 DXCH TDEC
030534,000101: 25,2527 00006 EXTEND
030535,000102: 25,2530 33007 DCA MP07DELT
030536,000103: 25,2531 21567 DAS TDEC
030537,000104:
030538,000105: 25,2532 00006 EXTEND
030539,000106: 25,2533 31567 DCA TDEC
030540,000107: 25,2534 52421 DXCH TIMEHOLD # NO RADAR ON 206
030541,000108:
030542,000109: 25,2535 04117 TC NEWMODEX # DISPLAY MAJOR MODE 14
030543,000110: 25,2536 00014 OCT 14
030544,000111:
030545,000112: 25,2537 00006 EXTEND
030546,000113: 25,2540 33011 DCA MIDAVE2C # PRIOR TO THRUST
030547,000114: 25,2541 52006 DXCH Z
030548,000115:
030549,000116: 25,2542 04161 TC PHASCHNG
![]() |
Page 714 |
030551,000118: 25,2543 04022 OCT 04022
030552,000119: 25,2544 33015 CAF AVRAGEG7 # SERVICER CALLS AVERAGEG
030553,000120: 25,2545 55310 TS DVSELECT
030554,000121:
030555,000122: 25,2546 00006 EXTEND
030556,000123: 25,2547 33013 DCA SVREXIT # NORMAL EXIT FROM AVERAGEG
030557,000124: 25,2550 53073 DXCH AVGEXIT
030558,000125:
030559,000126: 25,2551 33014 CAF JETS+X # RCS COLD FIRE PURGE
030560,000127: 25,2552 00006 EXTEND
030561,000128: 25,2553 01005 WRITE 5
030562,000129:
030563,000130: 25,2554 05567 TC ENDOFJOB # AND RELINT
030564,000131:
030565,000132: 25,2555 04141 SIVBSEP TC 2PHSCHNG
030566,000133: 25,2556 00003 OCT 00003
030567,000134: 25,2557 05012 OCT 05012
030568,000135: 25,2560 77777 OCT 77777
030569,000136:
030570,000137: 25,2561 37767 CAF ZERO # TERMINATE RCS COLD FIRE PURGE
030571,000138: 25,2562 00006 EXTEND
030572,000139: 25,2563 01005 WRITE 5
030573,000140:
030574,000141: 25,2564 04161 TC PHASCHNG
030575,000142: 25,2565 47012 OCT 47012
030576,000143: 25,2566 00620 DEC 400 B-14
030577,000144: 25,2567 E4,1566 EBANK= TDEC
030578,000145: 25,2567 02573 52064 2CADR SIVB1
030579,000146:
030580,000147: 25,2571 05701 TC FIXDELAY # WAIT 4 SECONDS
030581,000148: 25,2572 00620 DEC 400 B-14
030582,000149:
030583,000150: 25,2573 05073 SIVB1 TC 2LMP+DT
030584,000151: 25,2574 00274 DEC 188 B-14 # RCS MAIN S/O VALVES, SYS. A - OPEN **
030585,000152: 25,2575 00276 DEC 190 B-14 # RCS MAIN S/O VALVES, SYS. B - OPEN **
030586,000153: 25,2576 00144 DEC 100 B-14 # WAIT 1 SECOND
030587,000154:
030588,000155: 25,2577 05101 TC 1LMP+DT
030589,000156: 25,2600 00004 DEC 4 B-14 # ED BATTERY ACTIVATION - ON
030590,000157: 25,2601 00144 DEC 100 B-14 # WAIT 1 SECOND
030591,000158:
030592,000159: 25,2602 05073 TC 2LMP+DT
030593,000160: 25,2603 00275 DEC 189 B-14 # RESET **
030594,000161: 25,2604 00277 DEC 191 B-14 # RESET **
030595,000162: 25,2605 01604 DEC 900 B-14 # WAIT 9 SECONDS
030596,000163:
030597,000164: 25,2606 05101 TC 1LMP+DT
030598,000165: 25,2607 00006 DEC 6 B-14 # RCS PRESSURIZE - FIRE **
030599,000166: 25,2610 00310 DEC 200 B-14 # WAIT 2 SECONDS
030600,000167:
![]() |
Page 715 |
030602,000169: 25,2611 05101 TC 1LMP+DT
030603,000170: 25,2612 00007 DEC 7 B-14 # RESET **
030604,000171: 25,2613 05360 DEC 2800 B-14 # WAIT 28 SECONDS
030605,000172:
030606,000173: 25,2614 05101 TC 1LMP+DT
030607,000174: 25,2615 00005 DEC 5 B-14 # ED BATTERY ACTIVATION - SAFE *
030608,000175: 25,2616 22434 DEC 9500 B-14 # WAIT 95 SECONDS ...
030609,000176:
030610,000177: 25,2617 00006 EXTEND
030611,000178: 25,2620 30421 DCA TIMEHOLD
030612,000179: 25,2621 53664 DXCH DT2TEMPD
030613,000180: 25,2622 00006 EXTEND
030614,000181: 25,2623 40025 DCS TIME2 # TIG - 28 SEC. = TDEC + 2 SEC.
030615,000182: 25,2624 21664 DAS DT2TEMPD
030616,000183:
030617,000184: 25,2625 04161 TC PHASCHNG
030618,000185: 25,2626 05012 OCT 05012
030619,000186: 25,2627 77777 OCT 77777
030620,000187:
030621,000188: 25,2630 00006 EXTEND
030622,000189: 25,2631 31664 DCA DT2TEMPD
030623,000190: 25,2632 52421 DXCH TIMEHOLD
030624,000191: 25,2633 10421 CCS TIMEHOLD +1 # INSURE WAITLIST TIME POSITIVE
030625,000192: 25,2634 67763 AD ONE
030626,000193: 25,2635 12640 TCF +3
030627,000194: 25,2636 40000 COM
030628,000195: 25,2637 67743 AD POSMAX
030629,000196: 25,2640 55662 TS DT2TEMP
030630,000197: 25,2641 05663 TC WAITLIST # REQUEST LASTBIAS AT TIG - 30 SECONDS
030631,000198: 25,2642 E4,1566 EBANK= TDEC
030632,000199: 25,2642 03016 52064 2CADR TIG-30
030633,000200:
030634,000201: 25,2644 04141 TC 2PHSCHNG
030635,000202: 25,2645 40052 OCT 40052
030636,000203: 25,2646 47014 OCT 47014
030637,000204: 25,2647 76115 -GENADR DT2TEMP
030638,000205: 25,2650 E4,1566 EBANK= TDEC
030639,000206: 25,2650 03016 52064 2CADR TIG-30
030640,000207:
030641,000208: 25,2652 05701 TC FIXDELAY # WAIT 55 SECONDS
030642,000209: 25,2653 12574 DEC 5500 B-14
030643,000210:
030644,000211: 25,2654 05270 SIVB2 TC IBNKCALL # DEADBAND SELECT - MAX
030645,000212: 25,2655 40054 CADR SETMAXDB
030646,000213:
030647,000214: 25,2656 33014 CAF JETS+X # COMMAND +X TRANSLATION - ON (4 JET)
030648,000215: 25,2657 00006 EXTEND
030649,000216: 25,2660 01005 WRITE 5
030650,000217: 25,2661 05270 TC IBNKCALL
030651,000218: 25,2662 40062 CADR ULLAGE
030652,000219:
![]() |
Page 716 |
030654,000221: 25,2663 04161 TC PHASCHNG
030655,000222: 25,2664 47012 OCT 47012
030656,000223: 25,2665 00144 DEC 100 B-14
030657,000224: 25,2666 E4,1566 EBANK= TDEC
030658,000225: 25,2666 02672 52064 2CADR SIVB3
030659,000226:
030660,000227: 25,2670 05701 TC FIXDELAY # WAIT 1 SECOND
030661,000228: 25,2671 00144 DEC 100 B-14
030662,000229:
030663,000230: 25,2672 05101 SIVB3 TC 1LMP+DT
030664,000231: 25,2673 00212 DEC 138 B-14 # XMTR/RCVR (S-BAND) - PRIM *
030665,000232: 25,2674 00454 DEC 300 B-14 # WAIT 3 SECONDS
030666,000233:
030667,000234: 25,2675 05101 TC 1LMP+DT
030668,000235: 25,2676 00072 DEC 58 B-14 # LEM/SIVB SEPARATE ARM - ON *
030669,000236: 25,2677 00062 DEC 50 B-14 # WAIT 500 MILLISECONDS
030670,000237:
030671,000238: 25,2700 40077 CS DAPBOOLS # ENABLE DAP
030672,000239: 25,2701 77751 MASK GODAPGO
030673,000240: 25,2702 26077 ADS DAPBOOLS
030674,000241:
030675,000242: 25,2703 04161 TC PHASCHNG
030676,000243: 25,2704 47012 OCT 47012
030677,000244: 25,2705 00062 DEC 50 B-14
030678,000245: 25,2706 E4,1566 EBANK= TDEC
030679,000246: 25,2706 02712 52064 2CADR SIVB3A
030680,000247:
030681,000248: 25,2710 05701 TC FIXDELAY # WAIT 500 MILLISECONDS
030682,000249: 25,2711 00062 DEC 50 B-14
030683,000250:
030684,000251: 25,2712 05270 SIVB3A TC IBNKCALL
030685,000252: 25,2713 40072 CADR SETRATE # HOLD VEHICLE ATTITUDE RATE
030686,000253:
030687,000254: 25,2714 05101 TC 1LMP+DT
030688,000255: 25,2715 00132 DEC 90 B-14 # LEM/SIVB SEPARATE - COMMAND **
030689,000256: 25,2716 00012 DEC 10 B-14 # WAIT 100 MILLISECONDS
030690,000257:
030691,000258: 25,2717 05270 TC IBNKCALL # DEADBAND SELECT - MIN
030692,000259: 25,2720 40046 CADR SETMINDB
030693,000260:
030694,000261: 25,2721 40075 CS FLAGWRD1 # SETS SIVBGONE TO 1
030695,000262: 25,2722 77760 MASK BIT4
030696,000263: 25,2723 26075 ADS FLAGWRD1
030697,000264:
030698,000265: 25,2724 04161 TC PHASCHNG
030699,000266: 25,2725 47012 OCT 47012
030700,000267: 25,2726 00132 DEC 90 B-14
030701,000268: 25,2727 E4,1566 EBANK= TDEC
030702,000269: 25,2727 02733 52064 2CADR SIVB3B
030703,000270:
![]() |
Page 717 |
030705,000272: 25,2731 05701 TC FIXDELAY # WAIT 900 MILLISECONDS
030706,000273: 25,2732 00132 DEC 90 B-14
030707,000274:
030708,000275: 25,2733 05101 SIVB3B TC 1LMP+DT
030709,000276: 25,2734 00073 DEC 59 B-14 # LEM/SIVB SEPARATE ARM - OFF *
030710,000277: 25,2735 00144 DEC 100 B-14 # WAIT 1 SECOND
030711,000278:
030712,000279: 25,2736 05101 TC 1LMP+DT
030713,000280: 25,2737 00133 DEC 91 B-14 # RESET **
030714,000281: 25,2740 00454 DEC 300 B-14 # WAIT 3 SECONDS
030715,000282:
030716,000283: 25,2741 05270 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
030717,000284: 25,2742 40066 CADR NOULLAGE
030718,000285:
030719,000286: 25,2743 04161 TC PHASCHNG
030720,000287: 25,2744 47012 OCT 47012
030721,000288: 25,2745 00764 DEC 500 B-14
030722,000289: 25,2746 E4,1566 EBANK= TDEC
030723,000290: 25,2746 02752 52064 2CADR SIVB4
030724,000291:
030725,000292: 25,2750 05701 TC FIXDELAY # WAIT 5 SECONDS
030726,000293: 25,2751 00764 DEC 500 B-14
030727,000294:
030728,000295: 25,2752 05270 SIVB4 TC IBNKCALL # COMMAND +X TRANSLATION - ON (4 JET)
030729,000296: 25,2753 40062 CADR ULLAGE
030730,000297:
030731,000298: 25,2754 04161 TC PHASCHNG
030732,000299: 25,2755 47012 OCT 47012
030733,000300: 25,2756 00764 DEC 500 B-14
030734,000301: 25,2757 E4,1566 EBANK= TDEC
030735,000302: 25,2757 02763 52064 2CADR SIVB5
030736,000303:
030737,000304: 25,2761 05701 TC FIXDELAY # WAIT 5 SECONDS
030738,000305: 25,2762 00764 DEC 500 B-14
030739,000306:
030740,000307: 25,2763 05270 SIVB5 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
030741,000308: 25,2764 40066 CADR NOULLAGE
030742,000309:
030743,000310: 25,2765 06067 TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
030744,000311: 25,2766 00001 OCT 00001
030745,000312:
030746,000313: 25,2767 05270 TC IBNKCALL # HOLD LEM ATTITUDE
030747,000314: 25,2770 40114 CADR STOPRATE
030748,000315:
030749,000316: 25,2771 05270 TC IBNKCALL # DEADBAND SELECT - MAX
030750,000317: 25,2772 40054 CADR SETMAXDB
030751,000318:
030752,000319: 25,2773 04141 TC 2PHSCHNG
030753,000320: 25,2774 00002 OCT 00002
030754,000321: 25,2775 05013 OCT 05013
![]() |
Page 718 |
030756,000323: 25,2776 77777 OCT 77777
030757,000324:
030758,000325: 25,2777 05126 TC MPENTRY # SCHEDULE DPS COLD SOAK
030759,000326: 25,3000 00004 DEC 4 B-14 # TIMER NO. 4
030760,000327: 25,3001 00010 DEC 8 B-14 # MISSION PHASE 8
030761,000328: 25,3002 01751 ADRES MPDTO8
030762,000329:
030763,000330: 25,3003 15727 TCF TASKOVER
030764,000331:
![]() |
Page 719 |
030766,000333: 25,3004 00310 2SEC DEC 200 B-14
030767,000334: 25,3005 07640 40SEC DEC 4000 B-14
030768,000335: 25,3006 00001 10024 MP07DELT 2DEC 20500 B-28
030769,000336:
030770,000337: 25,3010 E4,1566 EBANK= TDEC
030771,000338: 25,3010 02341 16064 MIDAVE2C 2CADR MIDTOAVE
030772,000339:
030773,000340: 25,3012 E4,1566 EBANK= TDEC
030774,000341: 25,3012 02324 60064 SVREXIT 2CADR SERVEXIT
030775,000342:
030776,000343: 25,3014 00252 JETS+X OCT 00252
030777,000344: 25,3015 02251 AVRAGEG7 GENADR AVERAGEG
030778,000345:
030779,000346:
030780,000347:
030781,000348:
030782,000349:
030783,000350: 25,3016 04141 TIG-30 TC 2PHSCHNG
030784,000351: 25,3017 00004 OCT 00004
030785,000352: 25,3020 00335 OCT 00335 # 5.33 SPOT FOR PREREAD
030786,000353:
030787,000354: 25,3021 37763 CAF BIT1
030788,000355: 25,3022 05663 TC WAITLIST
030789,000356: 25,3023 E5,1506 EBANK= DVTOTAL
030790,000357: 25,3023 02000 60065 2CADR PREREAD
030791,000358:
030792,000359: 25,3025 15727 TCF TASKOVER
End of include-file MP_7-SIVB_LEM_SEPARATION.agc. Parent file is MAIN.agc