Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 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.
|
051629,000002: ## Copyright: Public domain.
051630,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
051631,000004: ## Purpose: A section of Artemis revision 071.
051632,000005: ## It is part of the reconstructed source code for the first
051633,000006: ## release of the flight software for the Command Module's
051634,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
051635,000008: ## 17. The code has been recreated from a copy of Artemis 072.
051636,000009: ## It has been adapted such that the resulting bugger words
051637,000010: ## exactly match those specified for Artemis 071 in NASA
051638,000011: ## drawing 2021154-, which gives relatively high confidence
051639,000012: ## that the reconstruction is correct.
051640,000013: ## Reference: 1207
051641,000014: ## Assembler: yaYUL
051642,000015: ## Contact: Ron Burkey <info@sandroid.org>.
051643,000016: ## Website: www.ibiblio.org/apollo/index.html
051644,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
051645,000018:
|
|
Page 1207
|
051647,000020: 4000 SETLOC FFTAG1
051648,000021: 4000 BANK
051649,000022:
051650,000023: # SINGLE PRECISION SINE AND COSINE
051651,000024:
051652,000025: 5060 COUNT* $$/INTER
051653,000026: 5060 64753 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051654,000027: 5061 54742 SPSIN TS TEMK
051655,000028: 5062 15064 TCF SPT
051656,000029: 5063 40742 CS TEMK
051657,000030: 5064 60000 SPT DOUBLE
051658,000031: 5065 54742 TS TEMK
051659,000032: 5066 15077 TCF POLLEY
051660,000033: 5067 56742 XCH TEMK
051661,000034: 5070 50742 INDEX TEMK
051662,000035: 5071 64751 AD LIMITS
051663,000036: 5072 40000 COM
051664,000037: 5073 60742 AD TEMK
051665,000038: 5074 54742 TS TEMK
051666,000039: 5075 15077 TCF POLLEY
051667,000040: 5076 15115 TCF ARG90
051668,000041: 5077 00006 POLLEY EXTEND
051669,000042: 5100 70742 MP TEMK
051670,000043: 5101 54743 TS SQ
051671,000044: 5102 00006 EXTEND
051672,000045: 5103 75022 MP C5/2
051673,000046: 5104 67672 AD C3/2
051674,000047: 5105 00006 EXTEND
051675,000048: 5106 70743 MP SQ
051676,000049: 5107 67653 AD C1/2
051677,000050: 5110 00006 EXTEND
051678,000051: 5111 70742 MP TEMK
051679,000052: 5112 20001 DDOUBL
051680,000053: 5113 54742 TS TEMK
051681,000054: 5114 00002 TC Q
051682,000055: 5115 50000 ARG90 INDEX A
051683,000056: 5116 44751 CS LIMITS
051684,000057: 5117 00002 TC Q # RESULT SCALED AT 1
051685,000058:
051686,000059: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc