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