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