FIXED FIXED CONSTANT POOL

Scanned pages: 1200-1204
# Copyright:  Public domain.
# Filename:  FIXED_FIXED_CONSTANT_POOL.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:  1200-1204
# 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 1200
    BLOCK  02

    COUNT  02/FCONS

# THE FOLLOWING TABLE OF 18 VALUES IS INDEXED.  DO NOT INSERT OR REMOVE ANY QUANTITIES.

DPOSMAX    OCT  37777    # MUST PRECEDE POSMAX
POSMAX    OCT  37777

LIMITS    =  NEG1/2

NEG1/2    OCT  -20000    # USED BY SIN ROUTINE (MUST BE TWO
          # LOCATIONS IN FRONT OF BIT14)
# BIT TABLE

BIT15    OCT  40000
BIT14    OCT  20000
BIT13    OCT  10000
BIT12    OCT  04000
BIT11    OCT  02000
BIT10    OCT  01000
BIT9    OCT  00400
BIT8    OCT  00200
BIT7    OCT  00100
BIT6    OCT  00040
BIT5    OCT  00020
BIT4    OCT  00010
BIT3    OCT  00004
BIT2    OCT  00002
BIT1    OCT  00001


# DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS.
NEG0    OCT  -0    # MUST PRECEDE ZERO
ZERO    OCT  0    # MUST FOLLOW NEG0
# BIT1    OCT  00001
# NO.WDS  OCT  2    # INTERPRETER
# OCTAL3  OCT  3    # INTERPRETER
# R3D1    OCT  4    # PINBALL
FIVE    OCT  5
# REVCNT  OCT  6    # INTERPRETER
SEVEN    OCT  7
# BIT4    OCT  00010
# R2D1    OCT  11    # PINBALL
OCT11    =  R2D1    # P20S
# BINCON  DEC  10    # PINBALL    (OCTAL 12)
ELEVEN    DEC  11
# OCT14    OCT  14    # ALARM AND ABORT (FILLER)
OCT15    OCT  15
# R1D1    OCT  16    # PINBALL
# Page 1201
LOW4    OCT  17
# BIT5    OCT  00020
# ND1    OCT  21    # PINBALL
# VD1    OCT  23    # PINBALL
# OCT24    OCT  24    # SERVICE ROUTINES
# MD1    OCT  25    # PINBALL
BITS4&5    OCT  30
# OCT31    OCT  31    # SERVICE ROUTINES
CALLCODE  OCT  00032
# LOW5    OCT  37    # PINBALL
# 33DEC    DEC  33    # PINBALL    (OCTAL 41)
# 34DEC    DEC  34    # PINBALL    (OCTAL 42)
TBUILDFX  DEC  37    # BUILDUP FOR CONVIENCE IN DAPTESTING
TDECAYFX  DEC  38    # CONVENIENCE FOR DAPTESTING
# BIT6    OCT  00040
OCT50    OCT  50
DEC45    DEC  45
SUPER011  OCT  60    # BITS FOR SUPERBNK SETTING 011.
.5SEC    DEC  50
# BIT7    OCT  00100

SUPER100  =  BIT7    # BITS FOR SUPERBNK SETTING 100
          # (LAST 4K OF ROPE)
SUPER101  OCT  120    # BITS FOR SUPERBNK SETTING 101
# OCT121  OCT  121    # SERVICE ROUTINES
          # (FIRST 8K OF ACM)
SUPER110  OCT  140    # BITS FOR SUPERBNK SETTING 110.
          # (LAST 8K OF ACM)
1SEC    DEC  100
# LOW7    OCT  177    # INTERPRETER
# BIT8    OCT  00200
# OT215    OCT  215    # ALARM AND ABORT
# 8,5    OCT  00220    # P20-P25 SUNDANCE
2SECS    DEC  200
# LOW8    OCT  377    # PINBALL
# BIT9    OCT  00400
GN/CCODE  OCT  00401    # SET S/C CONTROL SWITCH TO G/N
3SECS    DEC  300
4SECS    DEC  400
LOW9    OCT  777
# BIT10    OCT  01000
# 5.5DEGS  DEC  .03056    # P20-P25 SUNDANCE   (OCTAL 00765)
# OCT1103  OCT  1103    # ALARM AND ABORT
C5/2    DEC  .0363551  #         (OCTAL 01124)
V05N09    VN  0509    # (SAME AS OCTAL 1211)
OCT1400    OCT  01400
V06N22    VN  0622
# MID5    OCT  1740    # PINBALL
BITS2-10  OCT  1776
LOW10    OCT  1777
# Page 1202
# BIT11    OCT  02000
# 2K+3    OCT  2003    # PINBALL
LOW7+2K    OCT  2177    # OP CODE MASK + BANK 1 FBANK SETTING.
EBANK5    OCT  02400
PRIO3    OCT  03000
EBANK7    OCT  03400
# LOW11    OCT  3777    # PINBALL
# BIT12    OCT  04000
# RELTAB  OCT  04025    # T4RUPT
PRIO5    OCT  05000
PRIO6    OCT  06000
PRIO7    OCT  07000

# BIT13    OCT  10000
#    OCT  10003    # T4RUPT  RELTAB +1D
# 13,7,2  OCT  10102    # P20-P25 SUNDANCE
PRIO11    OCT  11000
# PRIO12  OCT  12000    # BANKCALL
PRIO13    OCT  13000
PRIO14    OCT  14000
#    OCT  14031    # T4RUPT  RELTAB +2D
PRIO15    OCT  15000
PRIO16    OCT  16000
# 85DEGS  DEC  .45556    # P20-P25 SUNDANCE  (OCTAL 16450)
PRIO17    OCT  17000
OCT17770  OCT  17770
# BIT14    OCT  20000
#    OCT  20033    # T4RUPT  RELTAB +3D
PRIO21    OCT  21000
    BLOCK  03
    COUNT  03/FCONS

PRIO22    OCT  22000    # SERVICE ROUTINES
PRIO23    OCT  23000
PRIO24    OCT  24000
# 5/8+1    OCT  24001    # SINGLE PRECISION SUBROUTINES
#    OCT  24017    # T4RUPT  RELTAB +4D
PRIO25    OCT  25000
PRIO26    OCT  26000
PRIO27    OCT  27000
# CHRPRIO  OCT  30000    # PINBALL
#    OCT  30036    # T4RUPT  RELTAB +5D
PRIO31    OCT  31000
C1/2    DEC  .7853134  #      (OCTAL 31103)
PRIO32    OCT  32000
PRIO33    OCT  33000
PRIO34    OCT  34000
#    OCT  34034    # T4RUPT  RELTAB +6D
PRIO35    OCT  35000
PRIO36    OCT  36000
# Page 1203
PRIO37    OCT  37000
63/64+1    OCT  37401
# MID7    OCT  37600    # PINBALL
OCT37766  OCT  37766
OCT37774  OCT  37774
OCT37776  OCT  37776
# DPOSMAX  OCT  37777
# BIT15    OCT  40000
# OCT40001  OCT  40001    # INTERPRETER (CS 1 INSTRUCTION)
DLOADCOD  OCT  40014
DLOAD*    OCT  40015
#    OCT  40023    # T4RUPT  RELTAB +7D
BIT15+6    OCT  40040
OCT40200  OCT  40200
#    OCT  44035    # T4RUPT  RELTAB +8D
#    OCT  50037    # T4RUPT  RELTAB +9D
#    OCT  54000    # T4RUPT  RELTAB +10D
-BIT14    OCT  57777
# RELTAB11  OCT  60000    # T4RUPT
C3/2    DEC  -.3216147  #      (OCTAL 65552)
13,14,15  OCT  70000
-1/8    OCT  73777
HIGH4    OCT  74000
-ENDERAS  DEC  -2001    #      (OCTAL 74056)
# HI5    OCT  76000    # PINBALL
HIGH9    OCT  77700
# -ENDVAC  DEC  -45    # INTERPRETER    (OCTAL 77722)
# -OCT10  OCT  -10    #      (OCT 77767)
# NEG4    DEC  -4    #      (OCTAL 77773)
NEG3    DEC  -3
NEG2    OCT  77775
NEGONE    DEC  -1

# Page 1204

# DEFINED BY EQUALS

# IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY
# ACCIDENTAL DEFINITION CHANGES.

MINUS1    =  NEG1
NEG1    =  NEGONE
ONE    =  BIT1
TWO    =  BIT2
THREE    =  OCTAL3
LOW2    =  THREE
FOUR    =  BIT3
SIX    =  REVCNT
LOW3    =  SEVEN
EIGHT    =  BIT4
NINE    =  R2D1
TEN    =  BINCON
NOUTCON    =  ELEVEN
OCT23    =  VD1
OCT25    =  MD1
PRIO1    =  BIT10
EBANK3    =  OCT1400
PRIO2    =  BIT11
OCT120    =  SUPER101
OCT140    =  SUPER110
2K    =  BIT11
EBANK4    =  BIT11
PRIO4    =  BIT12
EBANK6    =  PRIO3
QUARTER    =  BIT13
PRIO10    =  BIT13
OCT10001  =  CCSL
POS1/2    =  HALF
PRIO20    =  BIT14
HALF    =  BIT14
PRIO30    =  CHRPRIO
BIT13-14  =  PRIO30    # INTERPRETER USES IN PROCESSING STORECODE
OCT30002  =  TLOAD +1
B12T14    =  PRIO34
NEGMAX    =  BIT15
VLOADCOD  =  BIT15
VLOAD*    =  OCT40001
OCT60000  =  RELTAB11
BANKMASK  =  HI5