# Copyright: Public domain.
# Filename: ALARM_AND_ABORT.agc
# Purpose: Part of the source code for Comanche, build 055. It
# is part of the source code for the Command Module's
# (CM) Apollo Guidance Computer (AGC), Apollo 11.
# Assembler: yaYUL
# Reference: pp. 1493-1496
# Contact: Ron Burkey <info@sandroid.org>
# Website:
http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSBAdapted from Colossus249 file of the same
#name, and page images. Corrected various
#typos in the transcription of program
#comments, and these should be back-ported
#to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. April 1, 1969.
#
# This AGC program shall also be referred to as Colossus 2A
#
# Prepared by
# Massachusetts Institute of Technology
# 75 Cambridge Parkway
# Cambridge, Massachusetts
#
# under NASA contract NAS 9-4065.
#
# Refer directly to the online document mentioned above for further
# information. Please report any errors to info@sandroid.org.
# Page 1493
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
# EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
#
# CALLING SEQUENCE IS AS FOLLOWS:
#
#TCALARM
#OCTNNNNN
## (RETURNS HERE)
BLOCK02
SETLOCFFTAG7
BANK
EBANK=FAILREG
COUNT02/ALARM
# ALARM TURNS ON THE PROGRAM ALARM LIGHT, BUT DOES NOT DISPLAY.
ALARMINHINT
CAQ
ALARM2TSALMCADR
INDEXQ
CA0
BORTENTTSL
PRIOENTCABBANK
+1EXTEND
RORSUPERBNK# ADD SUPER BITS.
TSALMCADR +1
LARMENTCAQ# STORE RETURN FOR ALARM
TSITEMP1
CALOC
TSLOCALARM
CABANKSET
TSBANKALRM
CHKFAIL1CCSFAILREG# IS ANYTHING IN FAILREG
TCFCHKFAIL2# YES TRY NEXT REG
LXCHFAILREG
TCFPROGLARM# TURN ALARM LIGHT ON FOR FIRST ALARM
CHKFAIL2CCSFAILREG +1
TCFFAIL3
LXCHFAILREG +1
TCFMULTEXIT
FAIL3CAFAILREG +2
# Page 1494
MASKPOSMAX
CCSA
TCFMULTFAIL
LXCHFAILREG +2
TCFMULTEXIT
PROGLARMCSDSPTAB +11D
MASKOCT40400
ADSDSPTAB +11D
MULTEXITXCHITEMP1# OBTAIN RETURN ADDRESS IN A
RELINT
INDEXA
TC1
MULTFAILCAL
ADBIT15
TSFAILREG +2
TCFMULTEXIT
# PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND
# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS,
#CAFOCTXX# ALARM CODE
#TCBANKCALL
#CADRPRIOLARM
#
#……
#……
#……# ASTRONAUT RETURN
#TCPHASCHNG# IMMEDIATE RETURN TO USER. RESTART
#OCTX.1# PHASE CHANGE FOR PRIO DISPLAY