KEYRUPT UPRUPT

Scanned pages: 1338-1340
# Copyright:  Public domain.
# Filename:  KEYRUPT_UPRUPT.agc
# Purpose:   Part of the source code for Luminary 1A build 099.
#    It is part of the source code for the Lunar Module's (LM)
#    Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler:  yaYUL
# Contact:  Ron Burkey <info@sandroid.org>.
# Website:  www.ibiblio.org/apollo.
# Pages:  1338-1340
# Mod history:  2009-05-27 RSB  Adapted from the corresponding
#        Luminary131 file, using page
#        images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
#  Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
#  16:27 JULY 14, 1969

# Page 1338
    BANK  14
    SETLOC  KEYRUPT
    BANK
    COUNT*  $$/KEYUP

KEYRUPT1  TS  BANKRUPT
    XCH  Q
    TS  QRUPT
    TC  LODSAMPT  # TIME IS SNATCHED IN RUPT FOR NOUN 65.
    CAF  LOW5
    EXTEND
    RAND  MNKEYIN    # CHECK IF KEYS 5M-1M ON
KEYCOM    TS  RUPTREG4
    CS  FLAGWRD5
    MASK  DSKYFBIT
    ADS  FLAGWRD5

ACCEPTUP  CAF  CHRPRIO    # (NOTE: RUPTREG4 = KEYTEMP1)
    TC  NOVAC
    EBANK=  DSPCOUNT
    2CADR  CHARIN

    CA  RUPTREG4
    INDEX  LOCCTR
    TS  MPAC    # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
    TC  RESUME

# Page 1339
# UPRUPT PROGRAM

UPRUPT    TS  BANKRUPT
    XCH  Q
    TS  QRUPT
    TC  LODSAMPT  # TIME IS SNATCHED IN RUPT FOR NOUN 65.
    CAF  ZERO
    XCH  INLINK
    TS  KEYTEMP1
    CAF  BIT3    # TURN ON UPACT LIGHT
    EXTEND      # (BIT 3 OF CHANNEL 11)
    WOR  DSALMOUT
UPRPT1    CAF  LOW5    # TEST FOR TRIPLE CHAR REDUNDANCY
    MASK  KEYTEMP1  # LOW5 OF WORD
    XCH  KEYTEMP1  # LOW5 INTO KEYTEMP1
    EXTEND
    MP  BIT10    # SHIFT RIGHT 5
    TS  KEYTEMP2
    MASK  LOW5    # MID 5
    AD  HI10
    TC  UPTEST
    CAF  BIT10
    EXTEND
    MP  KEYTEMP2  # SHIFT RIGHT 5
    MASK  LOW5    # HIGH 5
    COM
    TC  UPTEST

UPCK    CS  ELRCODE    # CODE IS GOOD. IF CODE = 'ERROR RESET',
    AD  KEYTEMP1  # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
    EXTEND      # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
    BZF  CLUPLOCK  # CODE ONLY IF UPLOCKFL IS CLEAR (=0).

    CAF  UPLOCBIT  # TEST UPLOCKFL FOR 0 OR 1
    MASK  FLAGWRD7
    CCS  A
    TC  RESUME    # UPLOCKFL = 1
    TC  ACCEPTUP  # UPLOCKFL = 0

CLUPLOCK  CS  UPLOCBIT  # CLEAR UPLOCKFL (I.E.,SET BIT 4 OF )
    MASK  FLAGWRD7  # FLAGWRD7 = 0)
    TS  FLAGWRD7
    TC  ACCEPTUP

          # CODE IS BAD
TMFAIL2    CS  FLAGWRD7  # LOCK OUT FURTHER UPLINK ACTIVITY
    MASK  UPLOCBIT  # (BY SETTING UPLOCKFL = 1) UNTIL
    ADS  FLAGWRD7  # 'ERROR RESET' IS SENT VIA UPLINK.
    TC  RESUME
UPTEST    AD  KEYTEMP1
# Page 1340
    CCS  A
    TC  TMFAIL2
HI10    OCT  77740
    TC  TMFAIL2
    TC  Q

ELRCODE    OCT  22

# 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
#     1.    VBRELDSP
#     2.    ERROR RESET
#     3.    UPDATE PROGRAM(P27) ENTERED BY V70,V71,V72,AND V73.
#
#            _
# THE RECEPTION OF A BAD CODE(I.E  CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
# WHEN UPLINK ACTIVITY IS LOCKED OUT ,IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
# (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
# BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
# FAILURE)
# UPLINK ACTIVITY IS ALSO ALLOWED(UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
    CS  XDSPBIT