# Copyright: Public domain.
# Filename: INTERPRETIVE_CONSTANTS.agc
# Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
# It is part of the source code for the Command Module's (CM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1205-1206
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 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 055 of AGC program Comanche by NASA
# 2021113-051.  10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A

# Page 1205
  SETLOC INTPRET1
  BANK

  COUNT 23/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 1206
# INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY

  SETLOC INTPRET2
  BANK

  COUNT 14/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
DEC-6  DEC -6
DEC-12  DEC -12
LODPMAX  2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN

LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION

ZERODP  = ZEROVEC
HALFDP  = XUNIT