# Copyright:    Public domain.
# Filename:     KEYRUPT_UPRUPT.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. 1449-1451
# 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 1449
  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 BIT15
  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 1450
# 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

UPOK  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 BIT4  # TEST UPLOCKFL FOR 0 OR 1.
  MASK FLAGWRD7
  CCS A
  TC RESUME  # UPLOCKFL = 1
  TC ACCEPTUP # UPLOCKFL = 0

CLUPLOCK CS BIT4  # 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 BIT4  # (BY SETTING UPLOCKFL = 1) UNTIL
  ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK.
  TC RESUME
UPTEST  AD KEYTEMP1
# Page 1451
  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 ZEROS. 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.