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