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