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