### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: INTERRUPT_TRANSFER_ROUTINES.agc
## Purpose: Part of the source code for Solarium build 55. This
## is for the Command Module's (CM) Apollo Guidance
## Computer (AGC), for Apollo 6.
## Assembler: yaYUL --block1
## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
## Website: www.ibiblio.org/apollo/index.html
## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
## Mod history: 2009-09-14 JL Created.
## 2016-08-18 RSB Some corrections.
## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
## but no errors found.
## Page 35
SETLOC 2000
TS ARUPT
XCH Q
XCH QRUPT
TC T3RUPT
TS ARUPT
XCH Q
XCH QRUPT
TC ERRUPT
TS ARUPT
XCH Q
XCH QRUPT
TC T4RUPT # OUTPUT CONTROL.
TS ARUPT
XCH Q
XCH QRUPT
TC KEYRUPT
TS ARUPT
XCH Q
XCH QRUPT
TC UPRUPT
TS ARUPT
XCH Q
XCH QRUPT
TC DOWNRUPT # DOWNLINK.
INHINT # GOJAM - PARITY ALARM, POWER FAIL, ETC.
CAF EXECBANK
TS BANKREG
TC GOPROG
## Page 36
ERRUPT TC ALARM # ***NO ERRUPTS IN SYSTEM 5***
OCT 01101
TC NBRESUME
UPRUPT CAF UPBANK # CALL IN BANK WITH UPRUPT PROGRAM.
XCH BANKREG
TC UPRUPTB
KEYRUPT CAF MODEBANK
XCH BANKREG
TC KEYRUPTA
MODEBANK CADR KEYRUPTA