70 lines
1.7 KiB
Plaintext
70 lines
1.7 KiB
Plaintext
|
# Copyright: Public domain.
|
||
|
|
# Filename: SINGLE_PRECISION_SUBROUTINES.agc
|
||
|
|
# Purpose: Part of the source code for Luminary 1A build 099.
|
||
|
|
# It is part of the source code for the Lunar Module's (LM)
|
||
|
|
# Apollo Guidance Computer (AGC), for Apollo 11.
|
||
|
|
# Assembler: yaYUL
|
||
|
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||
|
|
# Website: www.ibiblio.org/apollo.
|
||
|
|
# Pages: 1102
|
||
|
|
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||
|
|
# Luminary131 file, using page
|
||
|
|
# images from Luminary 1A.
|
||
|
|
# 2010-12-31 JL Fixed page number comment.
|
||
|
|
#
|
||
|
|
# 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 001 of AGC program LMY99 by NASA 2021112-61
|
||
|
|
# 16:27 JULY 14, 1969
|
||
|
|
|
||
|
|
# Page 1102
|
||
|
|
BLOCK 02
|
||
|
|
|
||
|
|
# SINGLE PRECISION SINE AND COSINE
|
||
|
|
|
||
|
|
COUNT* $$/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.
|
||
|
|
|
||
|
|
|