Reorganized files to separate Luminary099 source code from Comanche055 source code
This commit is contained in:
74
Comanche055/SINGLE_PRECISION_SUBROUTINES.s
Normal file
74
Comanche055/SINGLE_PRECISION_SUBROUTINES.s
Normal file
@ -0,0 +1,74 @@
|
||||
# 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.
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user