Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72
source code was then modified by incorporating changes known from contemporary documentation to have
been made between revisions 72 and 72/3. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72/3 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
050457,000002: ## Copyright: Public domain.
050458,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
050459,000004: ## Purpose: A section of Manche72 revision 3.
050460,000005: ## It is part of the reconstructed source code for the final, flown
050461,000006: ## release of the software for the Command Module's (CM) Apollo
050462,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
050463,000008: ## of this program are available; instead, this file was recreated
050464,000009: ## from a reconstructed copy of Comanche 072. It has been adapted
050465,000010: ## such that the resulting bugger words exactly match those
050466,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G,
050467,000012: ## which gives relatively high confidence that the reconstruction
050468,000013: ## is correct.
050469,000014: ## Assembler: yaYUL
050470,000015: ## Contact: Ron Burkey <info@sandroid.org>.
050471,000016: ## Website: www.ibiblio.org/apollo/index.html
050472,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072.
050473,000018:
050474,000019: 5110 BLOCK 02
050475,000020:
050476,000021: # SINGLE PRECISION SINE AND COSINE
050477,000022:
050478,000023: 5110 COUNT 02/INTER
050479,000024:
050480,000025: 5110 65016 SPCOS AD HALF # ARGUMENTS SCALED AT PI
050481,000026: 5111 55075 SPSIN TS TEMK
050482,000027: 5112 15114 TCF SPT
050483,000028: 5113 41075 CS TEMK
050484,000029: 5114 60000 SPT DOUBLE
050485,000030: 5115 55075 TS TEMK
050486,000031: 5116 15127 TCF POLLEY
050487,000032: 5117 57075 XCH TEMK
050488,000033: 5120 51075 INDEX TEMK
050489,000034: 5121 65014 AD LIMITS
050490,000035: 5122 40000 COM
050491,000036: 5123 61075 AD TEMK
050492,000037: 5124 55075 TS TEMK
050493,000038: 5125 15127 TCF POLLEY
050494,000039: 5126 15145 TCF ARG90
050495,000040: 5127 00006 POLLEY EXTEND
050496,000041: 5130 71075 MP TEMK
050497,000042: 5131 55076 TS SQ
050498,000043: 5132 00006 EXTEND
050499,000044: 5133 75063 MP C5/2
050500,000045: 5134 67706 AD C3/2
050501,000046: 5135 00006 EXTEND
050502,000047: 5136 71076 MP SQ
050503,000048: 5137 67666 AD C1/2
050504,000049: 5140 00006 EXTEND
050505,000050: 5141 71075 MP TEMK
050506,000051: 5142 20001 DDOUBL
050507,000052: 5143 55075 TS TEMK
050508,000053: 5144 00002 TC Q
050509,000054: 5145 50000 ARG90 INDEX A
050510,000055: 5146 45014 CS LIMITS
050511,000056: 5147 00002 TC Q # RESULT SCALED AT 1
050512,000057:
050513,000058: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050514,000059:
050515,000060:
050516,000061:
050517,000062:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc