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. |
030302,000002: ## Copyright: Public domain.
030303,000003: ## Filename: MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
030304,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
030305,000005: ## is part of the source code for the Lunar Module's
030306,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030307,000007: ## Assembler: yaYUL
030308,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030309,000009: ## Website: www.ibiblio.org/apollo/index.html
030310,000010: ## Mod history: 2016-09-30 RSB Created draft version.
030311,000011: ## 2016-10-25 MAS Transcribed.
030312,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
030313,000013: ## no changes made.
030314,000014:
![]() |
Page 709 |
030316,000016: # PROGRAM DESCRIPTION
030317,000017: # COAST SIVB ATTACHED
030318,000018:
030319,000019: # MOD NO 1 DATE - 4 NOV 66
030320,000020:
030321,000021: # MOD BY - OVERBAUGH
030322,000022: # FUNCTIONAL DESCRIPTION
030323,000023: # WHEN THE DV MONITOR DETECTS SIVB SHUTDOWN THE
030324,000024: # THRUST MISSION CONTROL PROGRAM INITIATES MP6.
030325,000025: # DURING THIS PHASE THE ABORT COMMAND MONITOR AND
030326,000026: # THE TUMBLE MONITOR ARE TERMINATED AND THE C-BAND
030327,000027: # XPONDER IS SET TO ON*. WHEN THRUST DUE TO
030328,000028: # VENTING BECOMES NEGLIGIBLE READING OF
030329,000029: # THE PIPAS IS TERMINATED.
030330,000030:
030331,000031: # NORMAL EXIT MODES -
030332,000032: # TC TASKOVER
030333,000033:
030334,000034: # ERASABLE INITIALIZATION REQUIRED
030335,000035: # MP6TO7
030336,000036:
030337,000037: # OUTPUT
030338,000038: # UPDATE MODREG
030339,000039: # TERMINATE ABORT COMMAND MONITOR
030340,000040: # TERMINATE TUMBLE MONITOR
030341,000041: # MISSION SCHEDULING REGISTERS SET TO CALL MP7
030342,000042:
030343,000043: # DEBRIS
030344,000044: # CENTRALS,A,Q,Z
030345,000045:
030346,000046: # SUBROUTINES CALLED
030347,000047: # EXECUTIVE(ENDOFJOB)
030348,000048: # WAITLIST
030349,000049: # LONGCALL
030350,000050: # NEWMODEX
030351,000051: # 1LMP
030352,000052: # FLAG1DWN
030353,000053: # FLAG2DWN
030354,000054: # SCHEDULE ENTRY ROUTINE(MPENTRY)
030355,000055:
030356,000056: 27,2504 BANK 27
030357,000057: 27,2504 E3,1772 EBANK= MP6TO7
030358,000058:
030359,000059: 27,2504 04117 MP6JOB TC NEWMODEX # UPDATE MODREG
030360,000060: 27,2505 00013 OCT 13
030361,000061:
030362,000062: 27,2506 36306 CAF SIX
030363,000063: 27,2507 54764 TS PHASENUM
030364,000064:
030365,000065: 27,2510 04161 TC PHASCHNG
![]() |
Page 710 |
030367,000067: 27,2511 47012 OCT 47012
030368,000068: 27,2512 13560 DEC 6000 B-14
030369,000069: 27,2513 E3,1772 EBANK= MP6TO7
030370,000070: 27,2513 02526 56063 2CADR MP6A
030371,000071:
030372,000072: 27,2515 37756 CAF BIT6
030373,000073: 27,2516 04105 TC SETRSTRT # SET RESTART FLAG
030374,000074:
030375,000075: 27,2517 32525 CAF DEC6000 # INITIALIZE 1 MIN DELAY
030376,000076: 27,2520 00004 INHINT
030377,000077: 27,2521 05663 TC WAITLIST
030378,000078: 27,2522 E3,1772 EBANK= MP6TO7
030379,000079: 27,2522 02526 56063 2CADR MP6A
030380,000080:
030381,000081: 27,2524 15567 TCF ENDOFJOB
030382,000082: 27,2525 13560 DEC6000 DEC 6000 B-14
030383,000083:
030384,000084: 27,2526 06076 MP6A TC FLAG2DWN # TERMINATE ABORT COMMAND MONITOR
030385,000085: 27,2527 00400 OCT 00400 # BIT 9
030386,000086:
030387,000087: # TERMINATE TUMBLE MONITOR
030388,000088:
030389,000089: 27,2530 06067 TC FLAG1DWN
030390,000090: 27,2531 20000 OCT 20000 # BIT14
030391,000091: 27,2532 04161 MP6B TC PHASCHNG
030392,000092: 27,2533 27042 OCT 27042
030393,000093: 27,2534 75232 -GENADR 656SEC
030394,000094: 27,2535 E3,1772 EBANK= MP6TO7
030395,000095: 27,2535 02547 56063 2CADR CBXPNDR
030396,000096: # REF 1 27,2536 56063 1 CALL C-BAND TRANSPONDER-ON*
030397,000097:
030398,000098: 27,2537 00006 EXTEND
030399,000099: 27,2540 32546 DCA 656SEC # LONGCALL 10 M 56 S
030400,000100: 27,2541 05741 TC LONGCALL # FOR C-BAND TRANSPONDER-ON*
030401,000101: 27,2542 E3,1772 EBANK= MP6TO7
030402,000102: 27,2542 02547 56063 2CADR CBXPNDR
030403,000103:
030404,000104: 27,2544 15727 TCF TASKOVER
030405,000105: 27,2545 00004 00100 656SEC 2DEC 65600 B-28
030406,000106: # 27,2546 00100 0 C-BAND TRANSPONDER-ON*
030407,000107:
030408,000108: 27,2547 05060 CBXPNDR TC 1LMP
030409,000109: 27,2550 00152 DEC 106 B-14
030410,000110:
030411,000111: 27,2551 04141 TC 2PHSCHNG
030412,000112: 27,2552 00002 OCT 00002
030413,000113: 27,2553 05013 OCT 05013
030414,000114: 27,2554 77777 OCT 77777
030415,000115:
030416,000116: # CALL SCHEDULE ENTRY ROUTINE
030417,000117:
![]() |
Page 711 |
030419,000119: 27,2555 05126 TC MPENTRY
030420,000120: 27,2556 00001 DEC 1 B-14 # J=1
030421,000121: 27,2557 00007 DEC 7 B-14 # MP=7
030422,000122: 27,2560 01772 ADRES MP6TO7 # DT = 28 MIN
030423,000123:
030424,000124: # TERMINATE READING OF PIPAS.
030425,000125: # THRUST DUE TO VENTING AFTER SIVB
030426,000126: # SHUTDOWN HAS BECOME NEGLIGIBLE.
030427,000127:
030428,000128: 27,2561 06067 TC FLAG1DWN # TERMINATE SERVICER
030429,000129: 27,2562 00001 OCT 1
030430,000130: 27,2563 15727 TCF TASKOVER
030431,000131:
030432,000132: # END OF MISSION PHASE 6
End of include-file MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc. Parent file is MAIN.agc