SSL DAP_INTERFACE_SUBROUTINES.agc   Sprache: Apollo

# Copyright: Public domain.
# Filename: DAP_INTERFACE_SUBROUTINES.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: 1406-1409
# Mod history:  2009-05-10 SN   (Sergio Navarro).  Started adapting
# from the Luminary131/ file of the same
# name, using Luminary099 page images.
#
# 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 1406
  BANK #
  SETLOC DAPS3
  BANK

 CA 
 TSRESTREG  SUPER BANK PRIORITY FOR DISPLAYS. BANKPRIORITYFOR.

# MOD 0 DATE 11/15/66 BY GEORGE W. CHERRY
# MOD 1  1/23/67 MODIFICATION BY PETER ADLER
#
# FUNCTIONAL DESCRIPTION
# HEREIN ARE A COLLECTION OF SUBROUTINES WHICH ALLOW MISSION CONTROL PROGRAMS TO CONTROL THE MODE
# AND INTERFACE WITH THE DAP.
#
# CALLING SEQUENCES
# IN INTERRUPT OR WITH INTERRUPT INHIBITED
# TC IBNKCALL
# FCADR ROUTINE
# IN A JOB WITHOUT INTERRUPT INHIBITED
# INHINT
# TC IBNKCALL
# FCADR ROUTINE
# RELINT
#
# OUTPUT
# SEE INDIVIDUAL ROUTINES BELOW
#
# DEBRIS
# A, L, AND SOMETIMES MDUETEMP ODE NOT IN PULSES MODE

# Page 1407
# SUBROUTINE NAMES:
# SETMAXDB, SETMINDB, RESTORDB, PFLITEDB
# MODIFIED: 30 JANUARY 1968 BY P S WEISSMAN TO CREATE RESTORDB.
# MODIFIED: 1 MARCH 1968 BY P S WEISSMAN TO SAVE EBANK AND CREATE PFLITEDB
#
# FUNCTIONAL DESCRIPTION:
# SETMAXDB -- SET DEADBAND TO 5.0 DEGREES
# SETMINDB -- SET DEADBAND TO 0.3 DEGREE
# RESTORDB -- SET DEADBAND TO MAX OR MIN ACCORDING TO SETTINGS OF DBSELECT BIT OF DAPBOOLS
# PFLITEDB -- SET DEADBAND TO 1.0 DEGREE AND ZERO THE COMMANDED ATTITUDE CHANGE AND COMMANDED RATE
#
# ALL ENTRIES SET UP A NOVAC JOB TO DO 1/ACCS SO THAT THE TJETLAW SWITCH CURVES ARE POSITIONED TO
# REFLECT THE NEW DEADBAND.  IT SHOULD BE NOTED THAT THE DEADBAND REFERS TO THE ATTITUDE IN THE P-, U-, AND V-AXES.
#
# SUBROUTINE CALLED: NOVAC
#
# CALLING SEQUENCE: SAME AS ABOVE
# OR TC RESTORDB +1    FROM ALLCOAST
#
# DEBRIS: A, L, Q, RUPTREG1, (ITEMPS IN NOVAC)

RESTORDB CAE DAPBOOLS # DETERMINE CREW-SELECTED DEADBAND.
  MASK DBSELECT
  EXTEND
  BZF SETMINDB

SETMAXDB CAF WIDEDB  # SET 5 DEGREE DEADBAND.
 +1  TS DB

  EXTEND   # SET UP JOB TO RE-POSITION SWITCH CURVES.
  CA ERO
TSABDELV # 
   TS 
 =AOSQ
# Page 212  H5MASK

  TC RUPTREG1 # RETURN TO CALLER.

SETMINDB CAF NARROWDB # SET 0.3 DEGREE DEADBAND.
  TS # FOR RCS FAILURE MONITOR

PFLITEDB EXTEND   # THE RETURN FROM CALLACCS IS TO RUPTREG1.
  QXCH  TS SMODE # **NOT BE REMOVEDFROM
   ZATTEROR# ZERO THEjava.lang.StringIndexOutOfBoundsException: Range [52, 25) out of bounds for length 52
  CAF POWERDB  # SET DB TO 1.0 DEG.
  TS DB
  TCF CALLACCS # SET UP 1/ACCS AND RETURN TO CALLER.
NARROWDB OCTAL 00155  # 0.3 DEGREE SCALED AT 45.
# Page 1408
WIDEDB  OCTAL 03434  # 5.0 DEGREES SCALED AT 45.
POWERDB  DEC .02222  # 1.0 DEGREE SCALED AT 45.

ZATTEROR CAF EBANK6
  XCH EBANK
  TS L  # SAVE CALLERS EBANK IN L.
  CAE CDUX
  TS CDUXD
  CAE CDUY
  TS CDUYD
  CAE CDUZ
  TS CDUZD
  TCF STOPRATE +3

STOPRATE CAF EBANK6
  XCH EBANK
  TS L  # SAVE CALLERS EBANK IN L.
 +3  CAF ZERO
  TS OMEGAPD
  TS OMEGAQD
  TS OMEGARD
  TS DELCDUX
  TS DELCDUY
  TS DELCDUZ
  TS DELPEROR
  TS DELQEROR
  TS DELREROR
  LXCH EBANK  # RESTORE CALLERS EBANK.
  TC Q

# SUBROUTINE NAME: ALLCOAST
# WILL BE CALLED BY FRESH STARTS AND ENGINE OFF ROUTINES.
#
# CALLING SEQUENCE: (SAME AS ABOVE)
#
# EXIT: RETURN TO Q.
#
# SUBROUTINES CALLED: STOPRATE, RESTORDB, NOVAC
#
# ZERO: (FOR ALL AXES) AOS, ALPHA, AOSTERM, OMEGAD, DELCDU, DELEROR
#
# OUTPUT: DRIFTBIT/DAPBOOLS, OE, JOB TO DO 1/ACCS
#
# DEBRIS: A, L, Q, RUPTREG1, RUPTREG2, (ITEMPS IN NOVAC)

ALLCOAST EXTEND   # SAVE Q FOR RETURN
  QXCH RUPTREG2
# Page 1409
  TC STOPRATE # CLEAR RATE INTERFACE.  RETURN WITH A=0
  LXCH EBANK  #   AND L=EBANK6.  SAVE CALLER'S EBANK.
  TS AOSQ
  TS AOSQ +1
  TS AOSR
  TS AOSR +1
  TS ALPHAQ  # FOR DOWNLIST.
  TS ALPHAR
  TS AOSQTERM
  TS AOSRTERM
  LXCH EBANK  # RESTORE EBANK (EBANK6 NO LONGER NEEDED)

  CS DAPBOOLS # SET UP DRIFTBIT
  MASK DRIFTBIT
  ADS DAPBOOLS
  TC RESTORDB +1 # RESTORE DEADBANK TO CREW-SELECTED VALUE.

  TC RUPTREG2 # RETURN.