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