Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. 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 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.
|
050541,000002: ## Copyright: Public domain.
050542,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
050543,000004: ## Purpose: A section of Comanche revision 072.
050544,000005: ## It is part of the reconstructed source code for the first
050545,000006: ## release of the software for the Command Module's (CM) Apollo
050546,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
050547,000008: ## of this program are available; instead, this file was recreated
050548,000009: ## from a printout of Comanche 055, binary dumps of a set of
050549,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
050550,000011: ## and 072. It has been adapted such that the resulting bugger words
050551,000012: ## exactly match those specified for Comanche 072 in NASA drawing
050552,000013: ## 2021153G, which gives relatively high confidence that the
050553,000014: ## reconstruction is correct.
050554,000015: ## Assembler: yaYUL
050555,000016: ## Contact: Ron Burkey <info@sandroid.org>.
050556,000017: ## Website: www.ibiblio.org/apollo/index.html
050557,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
050558,000019:
050559,000020: 5110 BLOCK 02
050560,000021:
050561,000022: # SINGLE PRECISION SINE AND COSINE
050562,000023:
050563,000024: 5110 COUNT 02/INTER
050564,000025:
050565,000026: 5110 65016 SPCOS AD HALF # ARGUMENTS SCALED AT PI
050566,000027: 5111 55075 SPSIN TS TEMK
050567,000028: 5112 15114 TCF SPT
050568,000029: 5113 41075 CS TEMK
050569,000030: 5114 60000 SPT DOUBLE
050570,000031: 5115 55075 TS TEMK
050571,000032: 5116 15127 TCF POLLEY
050572,000033: 5117 57075 XCH TEMK
050573,000034: 5120 51075 INDEX TEMK
050574,000035: 5121 65014 AD LIMITS
050575,000036: 5122 40000 COM
050576,000037: 5123 61075 AD TEMK
050577,000038: 5124 55075 TS TEMK
050578,000039: 5125 15127 TCF POLLEY
050579,000040: 5126 15145 TCF ARG90
050580,000041: 5127 00006 POLLEY EXTEND
050581,000042: 5130 71075 MP TEMK
050582,000043: 5131 55076 TS SQ
050583,000044: 5132 00006 EXTEND
050584,000045: 5133 75063 MP C5/2
050585,000046: 5134 67706 AD C3/2
050586,000047: 5135 00006 EXTEND
050587,000048: 5136 71076 MP SQ
050588,000049: 5137 67666 AD C1/2
050589,000050: 5140 00006 EXTEND
050590,000051: 5141 71075 MP TEMK
050591,000052: 5142 20001 DDOUBL
050592,000053: 5143 55075 TS TEMK
050593,000054: 5144 00002 TC Q
050594,000055: 5145 50000 ARG90 INDEX A
050595,000056: 5146 45014 CS LIMITS
050596,000057: 5147 00002 TC Q # RESULT SCALED AT 1
050597,000058:
050598,000059: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050599,000060:
050600,000061:
050601,000062:
050602,000063:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc