Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
001467,000002: ## Copyright: Public domain.
001468,000003: ## Filename: INTERRUPT_TRANSFER_ROUTINES.agc
001469,000004: ## Purpose: Part of the source code for Solarium build 55. This
001470,000005: ## is for the Command Module's (CM) Apollo Guidance
001471,000006: ## Computer (AGC), for Apollo 6.
001472,000007: ## Assembler: yaYUL --block1
001473,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
001474,000009: ## Website: www.ibiblio.org/apollo/index.html
001475,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
001476,000011: ## Mod history: 2009-09-14 JL Created.
001477,000012: ## 2016-08-18 RSB Some corrections.
001478,000013: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
001479,000014: ## but no errors found.
001480,000015:
|
|
Page 35
|
001482,000017: 2000 SETLOC 2000
001483,000018:
001484,000019: 2000 50026 TS ARUPT
001485,000020: 2001 30001 XCH Q
001486,000021: 2002 30027 XCH QRUPT
001487,000022: 2003 02177 TC T3RUPT
001488,000023:
001489,000024: 2004 50026 TS ARUPT
001490,000025: 2005 30001 XCH Q
001491,000026: 2006 30027 XCH QRUPT
001492,000027: 2007 02034 TC ERRUPT
001493,000028:
001494,000029: 2010 50026 TS ARUPT
001495,000030: 2011 30001 XCH Q
001496,000031: 2012 30027 XCH QRUPT
001497,000032: 2013 02630 TC T4RUPT # OUTPUT CONTROL.
001498,000033:
001499,000034: 2014 50026 TS ARUPT
001500,000035: 2015 30001 XCH Q
001501,000036: 2016 30027 XCH QRUPT
001502,000037: 2017 02042 TC KEYRUPT
001503,000038:
001504,000039: 2020 50026 TS ARUPT
001505,000040: 2021 30001 XCH Q
001506,000041: 2022 30027 XCH QRUPT
001507,000042: 2023 02037 TC UPRUPT
001508,000043:
001509,000044: 2024 50026 TS ARUPT
001510,000045: 2025 30001 XCH Q
001511,000046: 2026 30027 XCH QRUPT
001512,000047: 2027 02377 TC DOWNRUPT # DOWNLINK.
001513,000048:
001514,000049: 2030 20017 INHINT # GOJAM - PARITY ALARM, POWER FAIL, ETC.
001515,000050: 2031 32075 CAF EXECBANK
001516,000051:
001517,000052: 2032 50015 TS BANKREG
001518,000053: 2033 07005 TC GOPROG
001519,000054:
|
|
Page 36
|
001521,000056: 2034 03007 ERRUPT TC ALARM # ***NO ERRUPTS IN SYSTEM 5***
001522,000057: 2035 01101 OCT 01101
001523,000058: 2036 02266 TC NBRESUME
001524,000059:
001525,000060: 2037 32075 UPRUPT CAF UPBANK # CALL IN BANK WITH UPRUPT PROGRAM.
001526,000061: 2040 30015 XCH BANKREG
001527,000062: 2041 07375 TC UPRUPTB
001528,000063:
001529,000064: 2042 32045 KEYRUPT CAF MODEBANK
001530,000065: 2043 30015 XCH BANKREG
001531,000066: 2044 06461 TC KEYRUPTA
001532,000067:
001533,000068: 2045 30461 MODEBANK CADR KEYRUPTA
End of include-file INTERRUPT_TRANSFER_ROUTINES.agc. Parent file is MAIN.agc