INTERPRETIVE CONSTANT

Scanned pages: 1100-1101
# 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