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. |
040573,000002: ## Copyright: Public domain.
040574,000003: ## Filename: SUM_CHECK_END_OF_BANK_MARKERS.agc
040575,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
040576,000005: ## is part of the source code for the Lunar Module's
040577,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
040578,000007: ## Assembler: yaYUL
040579,000008: ## Contact: Ron Burkey <info@sandroid.org>.
040580,000009: ## Website: www.ibiblio.org/apollo/index.html
040581,000010: ## Mod history: 2016-09-30 RSB Created draft version.
040582,000011: ## 2016-10-19 RSB Transcribed.
040583,000012:
![]() |
Page 946 |
040585,000014: 36,3673 BNKSUM 00
040586,000015:
040587,000016: 36,3673 BNKSUM 01
040588,000017:
040589,000018: 36,3673 BNKSUM 02
040590,000019:
040591,000020: 36,3673 BNKSUM 03
040592,000021:
040593,000022: 36,3673 BNKSUM 04
040594,000023:
040595,000024: 36,3673 BNKSUM 05
040596,000025:
040597,000026: 36,3673 BNKSUM 06
040598,000027:
040599,000028: 36,3673 BNKSUM 07
040600,000029:
040601,000030: 36,3673 BNKSUM 10
040602,000031:
040603,000032: 36,3673 BNKSUM 11
040604,000033:
040605,000034: 36,3673 BNKSUM 12
040606,000035:
040607,000036: 36,3673 BNKSUM 13
040608,000037:
040609,000038: 36,3673 BNKSUM 14
040610,000039:
040611,000040: 36,3673 BNKSUM 15
040612,000041:
040613,000042: 36,3673 BNKSUM 16
040614,000043:
040615,000044: 36,3673 BNKSUM 17
040616,000045:
040617,000046: 36,3673 BNKSUM 20
040618,000047:
040619,000048: 36,3673 BNKSUM 21
040620,000049:
040621,000050: 36,3673 BNKSUM 22
040622,000051:
040623,000052: 36,3673 BNKSUM 23
040624,000053:
040625,000054: 36,3673 BNKSUM 24
040626,000055:
040627,000056: 36,3673 BNKSUM 25
040628,000057:
040629,000058: 36,3673 BNKSUM 26
040630,000059:
040631,000060: 36,3673 BNKSUM 27
040632,000061:
040633,000062: 36,3673 BNKSUM 30
![]() |
Page 947 |
040635,000064: 36,3673 BNKSUM 31
040636,000065:
040637,000066: 36,3673 BNKSUM 32
040638,000067:
040639,000068: 36,3673 BNKSUM 33
040640,000069:
040641,000070: 36,3673 BNKSUM 34
040642,000071:
040643,000072: 36,3673 BNKSUM 35
040644,000073:
040645,000074: 36,3673 BNKSUM 36
040646,000075:
040647,000076: 36,3673 BNKSUM 37
040648,000077:
040649,000078: 36,3673 BNKSUM 40
040650,000079: 36,3673 BNKSUM 41
040651,000080: 36,3673 BNKSUM 42
040652,000081: 36,3673 BNKSUM 43
End of include-file SUM_CHECK_END_OF_BANK_MARKERS.agc. Parent file is MAIN.agc