Source Code
046834,000001: # Copyright: Public domain.
046835,000002: # Filename: SINGLE_PRECISION_SUBROUTINES.agc
046836,000003: # Purpose: Part of the source code for Luminary 1A build 099.
046837,000004: # It is part of the source code for the Lunar Module's (LM)
046838,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
046839,000006: # Assembler: yaYUL
046840,000007: # Contact: Ron Burkey <info@sandroid.org>.
046841,000008: # Website: www.ibiblio.org/apollo.
046842,000009: # Pages: 1102
046843,000010: # Mod history: 2009-05-25 RSB Adapted from the corresponding
046844,000011: # Luminary131 file, using page
046845,000012: # images from Luminary 1A.
046846,000013: # 2010-12-31 JL Fixed page number comment.
046847,000014:
046848,000015: # This source code has been transcribed or otherwise adapted from
046849,000016: # digitized images of a hardcopy from the MIT Museum. The digitization
046850,000017: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
046851,000018: # the Museum. Many thanks to both. The images (with suitable reduction
046852,000019: # in storage size and consequent reduction in image quality as well) are
046853,000020: # available online at www.ibiblio.org/apollo. If for some reason you
046854,000021: # find that the images are illegible, contact me at info@sandroid.org
046855,000022: # about getting access to the (much) higher-quality images which Paul
046856,000023: # actually created.
046857,000024:
046858,000025: # Notations on the hardcopy document read, in part:
046859,000026:
046860,000027: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
046861,000028: # 16:27 JULY 14, 1969
046862,000029:
046863,000030: # Page 1102
046864,000031: 5032 BLOCK 02
046865,000032:
046866,000033: # SINGLE PRECISION SINE AND COSINE
046867,000034:
046868,000035: 5032 COUNT* $$/INTER
046869,000036: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046870,000037: 5033 55076 SPSIN TS TEMK
046871,000038: 5034 15036 TCF SPT
046872,000039: 5035 41076 CS TEMK
046873,000040: 5036 60000 SPT DOUBLE
046874,000041: 5037 55076 TS TEMK
046875,000042: 5040 15051 TCF POLLEY
046876,000043: 5041 57076 XCH TEMK
046877,000044: 5042 51076 INDEX TEMK
046878,000045: 5043 64734 AD LIMITS
046879,000046: 5044 40000 COM
046880,000047: 5045 61076 AD TEMK
046881,000048: 5046 55076 TS TEMK
046882,000049: 5047 15051 TCF POLLEY
046883,000050: 5050 15067 TCF ARG90
046884,000051: 5051 00006 POLLEY EXTEND
046885,000052: 5052 71076 MP TEMK
046886,000053: 5053 55077 TS SQ
046887,000054: 5054 00006 EXTEND
046888,000055: 5055 75005 MP C5/2
046889,000056: 5056 67737 AD C3/2
046890,000057: 5057 00006 EXTEND
046891,000058: 5060 71077 MP SQ
046892,000059: 5061 67717 AD C1/2
046893,000060: 5062 00006 EXTEND
046894,000061: 5063 71076 MP TEMK
046895,000062: 5064 20001 DDOUBL
046896,000063: 5065 55076 TS TEMK
046897,000064: 5066 00002 TC Q
046898,000065: 5067 50000 ARG90 INDEX A
046899,000066: 5070 44734 CS LIMITS
046900,000067: 5071 00002 TC Q # RESULT SCALED AT 1.
046901,000068:
046902,000069:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc