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 '##'.
|
046331,000002: ## Copyright: Public domain.
046332,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
046333,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
046334,000005: ## This was the original program released for the Apollo 13 LM,
046335,000006: ## although several more revisions would follow. It has been
046336,000007: ## reconstructed from a listing of Luminary 131, from which it
046337,000008: ## differs on only two lines in P70-P71. The difference is
046338,000009: ## described in detail in Luminary memo #129, which was used
046339,000010: ## to perform the reconstruction. This file is intended to be a
046340,000011: ## faithful reconstruction, except that the code format has been
046341,000012: ## changed to conform to the requirements of the yaYUL assembler
046342,000013: ## rather than the original YUL assembler.
046343,000014: ## Reference: p. 1096
046344,000015: ## Contact: Ron Burkey <info@sandroid.org>.
046345,000016: ## Website: www.ibiblio.org/apollo/index.html
046346,000017: ## Mod history: 05/31/03 RSB. Began transcribing.
046347,000018: ## 05/14/05 RSB Corrected website references above.
046348,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
046349,000020: ## original harcopy, as opposed to the PDF page
046350,000021: ## numbers in 1701.pdf.
046351,000022: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
046352,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
046353,000024:
|
|
Page 1096
|
046355,000026: 5032 BLOCK 02
046356,000027:
046357,000028: # SINGLE PRECISION SINE AND COSINE
046358,000029:
046359,000030: 5032 COUNT* $$/INTER
046360,000031: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
046361,000032: 5033 55075 SPSIN TS TEMK
046362,000033: 5034 15036 TCF SPT
046363,000034: 5035 41075 CS TEMK
046364,000035: 5036 60000 SPT DOUBLE
046365,000036: 5037 55075 TS TEMK
046366,000037: 5040 15051 TCF POLLEY
046367,000038: 5041 57075 XCH TEMK
046368,000039: 5042 51075 INDEX TEMK
046369,000040: 5043 64734 AD LIMITS
046370,000041: 5044 40000 COM
046371,000042: 5045 61075 AD TEMK
046372,000043: 5046 55075 TS TEMK
046373,000044: 5047 15051 TCF POLLEY
046374,000045: 5050 15067 TCF ARG90
046375,000046: 5051 00006 POLLEY EXTEND
046376,000047: 5052 71075 MP TEMK
046377,000048: 5053 55076 TS SQ
046378,000049: 5054 00006 EXTEND
046379,000050: 5055 75005 MP C5/2
046380,000051: 5056 67742 AD C3/2
046381,000052: 5057 00006 EXTEND
046382,000053: 5060 71076 MP SQ
046383,000054: 5061 67722 AD C1/2
046384,000055: 5062 00006 EXTEND
046385,000056: 5063 71075 MP TEMK
046386,000057: 5064 20001 DDOUBL
046387,000058: 5065 55075 TS TEMK
046388,000059: 5066 00002 TC Q
046389,000060: 5067 50000 ARG90 INDEX A
046390,000061: 5070 44734 CS LIMITS
046391,000062: 5071 00002 TC Q # RESULT SCALED AT 1
046392,000063:
046393,000064:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc