Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
047404,000002: ## Copyright: Public domain.
047405,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
047406,000004: ## Purpose: A section of Luminary revision 210.
047407,000005: ## It is part of the source code for the Lunar Module's (LM)
047408,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
047409,000007: ## This file is intended to be a faithful transcription, except
047410,000008: ## that the code format has been changed to conform to the
047411,000009: ## requirements of the yaYUL assembler rather than the
047412,000010: ## original YUL assembler.
047413,000011: ## Reference: p. 1100
047414,000012: ## Assembler: yaYUL
047415,000013: ## Contact: Ron Burkey <info@sandroid.org>.
047416,000014: ## Website: www.ibiblio.org/apollo/index.html
047417,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
047418,000016: ## 2016-11-21 RRB Changed page numbers for Luminary210
047419,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
047420,000018: ## and corrected errors found.
047421,000019:
|
|
Page 1100 |
047423,000021: 5023 BLOCK 02
047424,000022:
047425,000023: # SINGLE PRECISION SINE AND COSINE
047426,000024:
047427,000025: 5023 COUNT* $$/INTER
047428,000026: 5023 64727 SPCOS AD HALF # ARGUMENTS SCALED AT PI
047429,000027: 5024 55075 SPSIN TS TEMK
047430,000028: 5025 15027 TCF SPT
047431,000029: 5026 41075 CS TEMK
047432,000030: 5027 60000 SPT DOUBLE
047433,000031: 5030 55075 TS TEMK
047434,000032: 5031 15042 TCF POLLEY
047435,000033: 5032 57075 XCH TEMK
047436,000034: 5033 51075 INDEX TEMK
047437,000035: 5034 64725 AD LIMITS
047438,000036: 5035 40000 COM
047439,000037: 5036 61075 AD TEMK
047440,000038: 5037 55075 TS TEMK
047441,000039: 5040 15042 TCF POLLEY
047442,000040: 5041 15060 TCF ARG90
047443,000041: 5042 00006 POLLEY EXTEND
047444,000042: 5043 71075 MP TEMK
047445,000043: 5044 55076 TS SQ
047446,000044: 5045 00006 EXTEND
047447,000045: 5046 74776 MP C5/2
047448,000046: 5047 67760 AD C3/2
047449,000047: 5050 00006 EXTEND
047450,000048: 5051 71076 MP SQ
047451,000049: 5052 67740 AD C1/2
047452,000050: 5053 00006 EXTEND
047453,000051: 5054 71075 MP TEMK
047454,000052: 5055 20001 DDOUBL
047455,000053: 5056 55075 TS TEMK
047456,000054: 5057 00002 TC Q
047457,000055: 5060 50000 ARG90 INDEX A
047458,000056: 5061 44725 CS LIMITS
047459,000057: 5062 00002 TC Q # RESULT SCALED AT 1
047460,000058:
047461,000059:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc