阿波罗11号飞船使用的三角函数代码欣赏

# 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.