Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
001416,000002: ## Copyright: Public domain.
001417,000003: ## Filename: INTERRUPT_TRANSFER_ROUTINES.agc
001418,000004: ## Purpose: A section of Corona revision 261.
001419,000005: ## It is part of the source code for the Apollo Guidance Computer
001420,000006: ## (AGC) for AS-202. No original listings of this software are
001421,000007: ## available; instead, this file was created via disassembly of
001422,000008: ## the core rope modules actually flown on the mission.
001423,000009: ## Assembler: yaYUL
001424,000010: ## Contact: Ron Burkey <info@sandroid.org>.
001425,000011: ## Website: www.ibiblio.org/apollo/index.html
001426,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
001427,000013:
001428,000014: 2000 SETLOC 2000
001429,000015:
001430,000016: 2000 50026 TS ARUPT
001431,000017: 2001 30001 XCH Q
001432,000018: 2002 30027 XCH QRUPT
001433,000019: 2003 02177 TC T3RUPT
001434,000020:
001435,000021: 2004 50026 TS ARUPT
001436,000022: 2005 30001 XCH Q
001437,000023: 2006 30027 XCH QRUPT
001438,000024: 2007 02034 TC ERRUPT
001439,000025:
001440,000026: 2010 50026 TS ARUPT
001441,000027: 2011 30001 XCH Q
001442,000028: 2012 30027 XCH QRUPT
001443,000029: 2013 02626 TC T4RUPT # OUTPUT CONTROL.
001444,000030:
001445,000031: 2014 50026 TS ARUPT
001446,000032: 2015 30001 XCH Q
001447,000033: 2016 30027 XCH QRUPT
001448,000034: 2017 02042 TC KEYRUPT
001449,000035:
001450,000036: 2020 50026 TS ARUPT
001451,000037: 2021 30001 XCH Q
001452,000038: 2022 30027 XCH QRUPT
001453,000039: 2023 02037 TC UPRUPT
001454,000040:
001455,000041: 2024 50026 TS ARUPT
001456,000042: 2025 30001 XCH Q
001457,000043: 2026 30027 XCH QRUPT
001458,000044: 2027 02377 TC DOWNRUPT # DOWNLINK.
001459,000045:
001460,000046: 2030 20017 INHINT # GOJAM - PARITY ALARM, POWER FAIL, ETC.
001461,000047: 2031 32075 CAF EXECBANK
001462,000048:
001463,000049: 2032 50015 TS BANKREG
001464,000050: 2033 07005 TC GOPROG
001465,000051:
001466,000052: 2034 03015 ERRUPT TC ALARM # ***NO ERRUPTS IN SYSTEM 5***
001467,000053: 2035 01101 OCT 01101
001468,000054: 2036 02266 TC NBRESUME
001469,000055:
001470,000056: 2037 32075 UPRUPT CAF UPBANK # CALL IN BANK WITH UPRUPT PROGRAM.
001471,000057: 2040 30015 XCH BANKREG
001472,000058: 2041 07367 TC UPRUPTB
001473,000059:
001474,000060: 2042 32045 KEYRUPT CAF MODEBANK
001475,000061: 2043 30015 XCH BANKREG
001476,000062: 2044 06461 TC KEYRUPTA
001477,000063:
001478,000064: 2045 30461 MODEBANK CADR KEYRUPTA
End of include-file INTERRUPT_TRANSFER_ROUTINES.agc. Parent file is MAIN.agc