Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
046305,000002: ## Copyright: Public domain.
046306,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046307,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
046308,000005: ## This was the original program released for the Apollo 13 LM,
046309,000006: ## although several more revisions would follow. It has been
046310,000007: ## reconstructed from a listing of Luminary 131, from which it
046311,000008: ## differs on only two lines in P70-P71. The difference is
046312,000009: ## described in detail in Luminary memo #129, which was used
046313,000010: ## to perform the reconstruction. This file is intended to be a
046314,000011: ## faithful reconstruction, except that the code format has been
046315,000012: ## changed to conform to the requirements of the yaYUL assembler
046316,000013: ## rather than the original YUL assembler.
046317,000014: ## Reference: p. 1096
046318,000015: ## Contact: Ron Burkey <info@sandroid.org>.
046319,000016: ## Website: www.ibiblio.org/apollo/index.html
046320,000017: ## Mod history: 05/31/03 RSB. Began transcribing.
046321,000018: ## 05/14/05 RSB Corrected website references above.
046322,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
046323,000020: ## original harcopy, as opposed to the PDF page
046324,000021: ## numbers in 1701.pdf.
046325,000022: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
046326,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
046327,000024:
|
|
Page 1096
|
046329,000026: 5032 BLOCK 02
046330,000027:
046331,000028: # SINGLE PRECISION SINE AND COSINE
046332,000029:
046333,000030: 5032 COUNT* $$/INTER
046334,000031: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046335,000032: 5033 55075 SPSIN TS TEMK
046336,000033: 5034 15036 TCF SPT
046337,000034: 5035 41075 CS TEMK
046338,000035: 5036 60000 SPT DOUBLE
046339,000036: 5037 55075 TS TEMK
046340,000037: 5040 15051 TCF POLLEY
046341,000038: 5041 57075 XCH TEMK
046342,000039: 5042 51075 INDEX TEMK
046343,000040: 5043 64734 AD LIMITS
046344,000041: 5044 40000 COM
046345,000042: 5045 61075 AD TEMK
046346,000043: 5046 55075 TS TEMK
046347,000044: 5047 15051 TCF POLLEY
046348,000045: 5050 15067 TCF ARG90
046349,000046: 5051 00006 POLLEY EXTEND
046350,000047: 5052 71075 MP TEMK
046351,000048: 5053 55076 TS SQ
046352,000049: 5054 00006 EXTEND
046353,000050: 5055 75005 MP C5/2
046354,000051: 5056 67742 AD C3/2
046355,000052: 5057 00006 EXTEND
046356,000053: 5060 71076 MP SQ
046357,000054: 5061 67722 AD C1/2
046358,000055: 5062 00006 EXTEND
046359,000056: 5063 71075 MP TEMK
046360,000057: 5064 20001 DDOUBL
046361,000058: 5065 55075 TS TEMK
046362,000059: 5066 00002 TC Q
046363,000060: 5067 50000 ARG90 INDEX A
046364,000061: 5070 44734 CS LIMITS
046365,000062: 5071 00002 TC Q # RESULT SCALED AT 1
046366,000063:
046367,000064:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc