75 lines
1.8 KiB
Plaintext
75 lines
1.8 KiB
Plaintext
# 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.
|
|
|
|
|
|
|
|
|