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