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