Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
050136,000002: ## Copyright: Public domain.
050137,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
050138,000004: ## Purpose: A section of Comanche revision 067.
050139,000005: ## It is part of the reconstructed source code for the flight
050140,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
050141,000007: ## (AGC) for Apollo 12. No original listings of this program are
050142,000008: ## available; instead, this file was created via dissassembly of
050143,000009: ## dumps of Comanche 067 core rope modules and comparison with
050144,000010: ## other AGC programs.
050145,000011: ## Assembler: yaYUL
050146,000012: ## Contact: Ron Burkey <info@sandroid.org>.
050147,000013: ## Website: www.ibiblio.org/apollo/index.html
050148,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
050149,000015:
050150,000016: 5110 BLOCK 02
050151,000017:
050152,000018: # SINGLE PRECISION SINE AND COSINE
050153,000019:
050154,000020: 5110 COUNT 02/INTER
050155,000021:
050156,000022: 5110 65016 SPCOS AD HALF # ARGUMENTS SCALED AT PI
050157,000023: 5111 55075 SPSIN TS TEMK
050158,000024: 5112 15114 TCF SPT
050159,000025: 5113 41075 CS TEMK
050160,000026: 5114 60000 SPT DOUBLE
050161,000027: 5115 55075 TS TEMK
050162,000028: 5116 15127 TCF POLLEY
050163,000029: 5117 57075 XCH TEMK
050164,000030: 5120 51075 INDEX TEMK
050165,000031: 5121 65014 AD LIMITS
050166,000032: 5122 40000 COM
050167,000033: 5123 61075 AD TEMK
050168,000034: 5124 55075 TS TEMK
050169,000035: 5125 15127 TCF POLLEY
050170,000036: 5126 15145 TCF ARG90
050171,000037: 5127 00006 POLLEY EXTEND
050172,000038: 5130 71075 MP TEMK
050173,000039: 5131 55076 TS SQ
050174,000040: 5132 00006 EXTEND
050175,000041: 5133 75063 MP C5/2
050176,000042: 5134 67706 AD C3/2
050177,000043: 5135 00006 EXTEND
050178,000044: 5136 71076 MP SQ
050179,000045: 5137 67666 AD C1/2
050180,000046: 5140 00006 EXTEND
050181,000047: 5141 71075 MP TEMK
050182,000048: 5142 20001 DDOUBL
050183,000049: 5143 55075 TS TEMK
050184,000050: 5144 00002 TC Q
050185,000051: 5145 50000 ARG90 INDEX A
050186,000052: 5146 45014 CS LIMITS
050187,000053: 5147 00002 TC Q # RESULT SCALED AT 1
050188,000054:
050189,000055: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050190,000056:
050191,000057:
050192,000058:
050193,000059:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc