Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
047177,000002: ## Copyright: Public domain.
047178,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
047179,000004: ## Purpose: A section of LUM69 revision 2.
047180,000005: ## It is part of the reconstructed source code for the flown
047181,000006: ## version of the flight software for the Lunar Module's (LM)
047182,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
047183,000008: ## been recreated from a copy of Luminary revsion 069, using
047184,000009: ## changes present in Luminary 099 which were described in
047185,000010: ## Luminary memos 75 and 78. The code has been adapted such
047186,000011: ## that the resulting bugger words exactly match those specified
047187,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
047188,000013: ## relatively high confidence that the reconstruction is correct.
047189,000014: ## Reference: p. 1097
047190,000015: ## Assembler: yaYUL
047191,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047192,000017: ## Website: www.ibiblio.org/apollo/index.html
047193,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
047194,000019:
|
|
Page 1097
|
047196,000021: 5032 BLOCK 02
047197,000022:
047198,000023: # SINGLE PRECISION SINE AND COSINE
047199,000024:
047200,000025: 5032 COUNT* $$/INTER
047201,000026: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
047202,000027: 5033 55076 SPSIN TS TEMK
047203,000028: 5034 15036 TCF SPT
047204,000029: 5035 41076 CS TEMK
047205,000030: 5036 60000 SPT DOUBLE
047206,000031: 5037 55076 TS TEMK
047207,000032: 5040 15051 TCF POLLEY
047208,000033: 5041 57076 XCH TEMK
047209,000034: 5042 51076 INDEX TEMK
047210,000035: 5043 64734 AD LIMITS
047211,000036: 5044 40000 COM
047212,000037: 5045 61076 AD TEMK
047213,000038: 5046 55076 TS TEMK
047214,000039: 5047 15051 TCF POLLEY
047215,000040: 5050 15067 TCF ARG90
047216,000041: 5051 00006 POLLEY EXTEND
047217,000042: 5052 71076 MP TEMK
047218,000043: 5053 55077 TS SQ
047219,000044: 5054 00006 EXTEND
047220,000045: 5055 75005 MP C5/2
047221,000046: 5056 67736 AD C3/2
047222,000047: 5057 00006 EXTEND
047223,000048: 5060 71077 MP SQ
047224,000049: 5061 67716 AD C1/2
047225,000050: 5062 00006 EXTEND
047226,000051: 5063 71076 MP TEMK
047227,000052: 5064 20001 DDOUBL
047228,000053: 5065 55076 TS TEMK
047229,000054: 5066 00002 TC Q
047230,000055: 5067 50000 ARG90 INDEX A
047231,000056: 5070 44734 CS LIMITS
047232,000057: 5071 00002 TC Q # RESULT SCALED AT 1
047233,000058:
047234,000059:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc