ALARM AND ABORT

It name, and page images. Corrected various typos in the transcription of program comments, and these should be back-ported to Colossus249. # (RETURNS HERE)
# 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 RSB  Adapted 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:
#
#    TC  ALARM
#    OCT  NNNNN
#          # (RETURNS HERE)
    BLOCK  02
    SETLOC  FFTAG7
    BANK

    EBANK=  FAILREG

    COUNT  02/ALARM

# ALARM TURNS ON THE PROGRAM ALARM LIGHT, BUT DOES NOT DISPLAY.

ALARM    INHINT

    CA  Q
ALARM2    TS  ALMCADR
    INDEX  Q
    CA  0
BORTENT    TS  L

PRIOENT    CA  BBANK
 +1    EXTEND
    ROR  SUPERBNK  # ADD SUPER BITS.
    TS  ALMCADR +1

LARMENT    CA  Q    # STORE RETURN FOR ALARM
    TS  ITEMP1

    CA  LOC
    TS  LOCALARM
    CA  BANKSET
    TS  BANKALRM

CHKFAIL1  CCS  FAILREG    # IS ANYTHING IN FAILREG
    TCF  CHKFAIL2  # YES TRY NEXT REG
    LXCH  FAILREG
    TCF  PROGLARM  # TURN ALARM LIGHT ON FOR FIRST ALARM

CHKFAIL2  CCS  FAILREG +1
    TCF  FAIL3
    LXCH  FAILREG +1
    TCF  MULTEXIT

FAIL3    CA  FAILREG +2
# Page 1494
    MASK  POSMAX
    CCS  A
    TCF  MULTFAIL
    LXCH  FAILREG +2
    TCF  MULTEXIT

PROGLARM  CS  DSPTAB +11D
    MASK  OCT40400
    ADS  DSPTAB +11D

MULTEXIT  XCH  ITEMP1    # OBTAIN RETURN ADDRESS IN A
    RELINT
    INDEX  A
    TC  1

MULTFAIL  CA  L
    AD  BIT15
    TS  FAILREG +2

    TCF  MULTEXIT

# 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,
#    CAF  OCTXX    # ALARM CODE
#    TC  BANKCALL
#    CADR  PRIOLARM
#
#    ...  ...
#    ...  ...
#    ...  ...    # ASTRONAUT RETURN
#    TC  PHASCHNG  # IMMEDIATE RETURN TO USER. RESTART
#    OCT  X.1    # PHASE CHANGE FOR PRIO DISPLAY

    BANK  10
    SETLOC  DISPLAYS
    BANK

    COUNT  10/DSPLA

PRIOLARM  INHINT      # * * * KEEP IN DISPLAY ROUTINES BANK
    TS  L    # SAVE ALARM CODE

    CA  BUF2    # 2 CADR OF PRIOLARM USER
    TS  ALMCADR
    CA  BUF2 +1
    TC  PRIOENT +1  # * LEAVE L ALONE
-2SEC    DEC  -200    # *** DONT MOVE
    CAF  V05N09
    TCF  PRIODSPR

# Page 1495
    BLOCK  02
    SETLOC  FFTAG13
    BANK

    COUNT  02/ALARM

BAILOUT    INHINT
    CA  Q
    TS  ALMCADR

    TC  BANKCALL
    CADR  VAC5STOR

    INDEX  ALMCADR
    CAF  0
    TC  BORTENT
OCT40400  OCT  40400

    INHINT
WHIMPER    CA  TWO
    AD  Z
    TS  BRUPT
    RESUME
    TC  POSTJUMP  # RESUME SENDS CONTROL HERE
    CADR  ENEMA

    SETLOC  FFTAG7
    BANK

POODOO    INHINT
    CA  Q
    TS  ALMCADR

    TC  BANKCALL
    CADR  VAC5STOR  # STORE ERASABLES FOR DEBUGGING PURPOSES.

    INDEX  ALMCADR
    CAF  0
ABORT2    TC  BORTENT

OCT77770  OCT  77770    # DONT MOVE
    CA  V37FLBIT  # IS AVERAGE G ON
    MASK  FLAGWRD7
    CCS  A
    TC  WHIMPER -1  # YES.  DONT DO POODOO.  DO BAILOUT.

    TC  DOWNFLAG
    ADRES  STATEFLG

    TC  DOWNFLAG
# Page 1496
    ADRES  REINTFLG

    TC  DOWNFLAG
    ADRES  NODOFLAG

    TC  BANKCALL
    CADR  MR.KLEAN
    TC  WHIMPER

CCSHOLE    INHINT
    CA  Q
    TS  ALMCADR
    TC  BANKCALL
    CADR  VAC5STOR
    CA  OCT1103
    TC  ABORT2
OCT1103    OCT  1103
CURTAINS  INHINT
    CA  Q
    TC  ALARM2
OCT217    OCT  00217
    TC  ALMCADR    # RETURN TO USER

DOALARM    EQUALS  ENDOFJOB
# CALLING SEQUENCE FOR VARALARM
#
#    CAF  (ALARM)
#    TC  VARALARM
#
# VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY
VARALARM  INHINT

    TS  L    # SAVE USERS ALARM CODE

    CA  Q    # SAVE USERS Q
    TS  ALMCADR

    TC  PRIOENT
OCT14    OCT  14    # DONT MOVE

    TC  ALMCADR    # RETURN TO USER

ABORT    EQUALS  BAILOUT    # *** TEMPORARY UNTIL ABORT CALLS OUT