INTERPRETIVE CONSTANTS

Scanned pages: 1205-1206
# 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