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. |
002465,000002: ## Copyright: Public domain.
002466,000003: ## Filename: INPUT_OUTPUT_CHANNELS.agc
002467,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
002468,000005: ## It is part of the source code for the Lunar Module's (LM)
002469,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
002470,000007: ## Assembler: yaYUL
002471,000008: ## Contact: Ron Burkey <info@sandroid.org>.
002472,000009: ## Website: www.ibiblio.org/apollo/index.html
002473,000010: ## Mod history: 2016-09-30 RSB Created draft version.
002474,000011: ## 2016-10-04 RSB Transcribed.
002475,000012: ## 2016-12-03 RSB Fixed missing line, with octopus/ProoferComments.
002476,000013:
![]() |
Page 59 |
002478,000015: 30,2000 HISCALAR EQUALS 3
002479,000016: 30,2000 LOSCALAR EQUALS 4
002480,000017: 30,2000 SUPERBNK EQUALS 7 # SUPER-BANK.
002481,000018: 30,2000 OUT0 EQUALS 10
002482,000019: 30,2000 DSALMOUT EQUALS 11
002483,000020: 30,2000 CHAN12 EQUALS 12
002484,000021: 30,2000 CHAN13 EQUALS 13
002485,000022: 30,2000 CHAN14 EQUALS 14
002486,000023: 30,2000 MNKEYIN EQUALS 15
002487,000024: 30,2000 NAVKEYIN EQUALS 16
002488,000025: 30,2000 CHAN33 EQUALS 33
002489,000026: 30,2000 DNTM1 EQUALS 34
002490,000027: 30,2000 DNTM2 EQUALS 35
002491,000028: # END OF CHANNEL ASSIGNMENTS
End of include-file INPUT_OUTPUT_CHANNELS.agc. Parent file is MAIN.agc