# Copyright: Public domain.
# Filename: SINGLE_PRECISION_SUBROUTINES.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: 1207
# 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 1207
  BLOCK 02
# SINGLE PRECISION SINE AND COSINE

  COUNT 02/INTER
SPCOS  AD HALF  # ARGUMENTS SCALED AT PI
SPSIN  TS TEMK
  TCF SPT
  CS TEMK
SPT  DOUBLE
  TS TEMK
  TCF POLLEY
  XCH TEMK
  INDEX TEMK
  AD  LIMITS
  COM
  AD TEMK
  TS TEMK
  TCF POLLEY
  TCF ARG90
POLLEY  EXTEND
  MP TEMK
  TS SQ
  EXTEND
  MP C5/2
  AD C3/2
  EXTEND
  MP SQ
  AD C1/2
  EXTEND
  MP TEMK
  DDOUBL
  TS TEMK
  TC Q
ARG90  INDEX A
  CS LIMITS
  TC Q  # RESULT SCALED AT 1
# SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.