# Copyright: Public domain.
# Filename: INTERPRETIVE_CONSTANT.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: 1100-1101
# Mod history: 2009-05-25 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 1100
  SETLOC INTPRET1
  BANK

  COUNT* $$/ICONS
DP1/4TH  2DEC .25

UNITZ  2DEC 0

UNITY  2DEC 0

UNITX  2DEC .5

ZEROVECS 2DEC 0

  2DEC 0

  2DEC 0

DPHALF  = UNITX
DPPOSMAX OCT 37777
  OCT 37777

# Page 1101
# INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY

  SETLOC INTPRET2
  BANK

  COUNT* $$/ICONS
ZUNIT  2DEC 0

YUNIT  2DEC 0

XUNIT  2DEC .5

ZEROVEC  2DEC 0

  2DEC 0

  2DEC 0

  OCT 77777  # -0, -6, -12 MUST REMAIN IN THIS ORDER
DFC-6  DEC -6
DFC-12  DEC -12
LODPMAX  2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN

LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION

ZERODP  = ZEROVEC
HALFDP  = XUNIT