Source Code

045521,000001: # Copyright: Public domain. 045522,000002: # Filename: SINGLE_PRECISION_SUBROUTINES.agc 045523,000003: # Purpose: A section of Luminary 1C, revision 131. 045524,000004: # It is part of the source code for the Lunar Module's (LM) 045525,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 045526,000006: # This file is intended to be a faithful transcription, except 045527,000007: # that the code format has been changed to conform to the 045528,000008: # requirements of the yaYUL assembler rather than the 045529,000009: # original YUL assembler. 045530,000010: # Reference: p. 1101 of 1729.pdf. 045531,000011: # Contact: Ron Burkey <info@sandroid.org>. 045532,000012: # Website: www.ibiblio.org/apollo/index.html 045533,000013: # Mod history: 05/31/03 RSB. Began transcribing. 045534,000014: # 05/14/05 RSB Corrected website references above. 045535,000015: 045536,000016: # Page 1101 045537,000017: 5032 BLOCK 02 045538,000018: 045539,000019: # SINGLE PRECISION SINE AND COSINE 045540,000020: 045541,000021: 5032 COUNT* $$/INTER 045542,000022: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI 045543,000023: 5033 55075 SPSIN TS TEMK 045544,000024: 5034 15036 TCF SPT 045545,000025: 5035 41075 CS TEMK 045546,000026: 5036 60000 SPT DOUBLE 045547,000027: 5037 55075 TS TEMK 045548,000028: 5040 15051 TCF POLLEY 045549,000029: 5041 57075 XCH TEMK 045550,000030: 5042 51075 INDEX TEMK 045551,000031: 5043 64734 AD LIMITS 045552,000032: 5044 40000 COM 045553,000033: 5045 61075 AD TEMK 045554,000034: 5046 55075 TS TEMK 045555,000035: 5047 15051 TCF POLLEY 045556,000036: 5050 15067 TCF ARG90 045557,000037: 5051 00006 POLLEY EXTEND 045558,000038: 5052 71075 MP TEMK 045559,000039: 5053 55076 TS SQ 045560,000040: 5054 00006 EXTEND 045561,000041: 5055 75005 MP C5/2 045562,000042: 5056 67742 AD C3/2 045563,000043: 5057 00006 EXTEND 045564,000044: 5060 71076 MP SQ 045565,000045: 5061 67722 AD C1/2 045566,000046: 5062 00006 EXTEND 045567,000047: 5063 71075 MP TEMK 045568,000048: 5064 20001 DDOUBL 045569,000049: 5065 55075 TS TEMK 045570,000050: 5066 00002 TC Q 045571,000051: 5067 50000 ARG90 INDEX A 045572,000052: 5070 44734 CS LIMITS 045573,000053: 5071 00002 TC Q # RESULT SCALED AT 1. 045574,000054: 045575,000055: End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc