83 lines
1.9 KiB
Plaintext
83 lines
1.9 KiB
Plaintext
# 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
|