Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 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.
|
051355,000002: ## Copyright: Public domain.
051356,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
051357,000004: ## Purpose: A section of Comanche revision 051.
051358,000005: ## It is part of the reconstructed source code for the
051359,000006: ## original release of the flight software for the Command
051360,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
051361,000008: ## The code has been recreated from a copy of Comanche 055. It
051362,000009: ## has been adapted such that the resulting bugger words
051363,000010: ## exactly match those specified for Comanche 51 in NASA drawing
051364,000011: ## 2021153D, which gives relatively high confidence that the
051365,000012: ## reconstruction is correct.
051366,000013: ## Reference: p. 1207
051367,000014: ## Assembler: yaYUL
051368,000015: ## Contact: Ron Burkey <info@sandroid.org>.
051369,000016: ## Website: www.ibiblio.org/apollo/index.html
051370,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
051371,000018:
|
|
Page 1207
|
051373,000020: 5074 BLOCK 02
051374,000021:
051375,000022: # SINGLE PRECISION SINE AND COSINE
051376,000023:
051377,000024: 5074 COUNT 02/INTER
051378,000025:
051379,000026: 5074 65002 SPCOS AD HALF # ARGUMENTS SCALED AT PI
051380,000027: 5075 55075 SPSIN TS TEMK
051381,000028: 5076 15100 TCF SPT
051382,000029: 5077 41075 CS TEMK
051383,000030: 5100 60000 SPT DOUBLE
051384,000031: 5101 55075 TS TEMK
051385,000032: 5102 15113 TCF POLLEY
051386,000033: 5103 57075 XCH TEMK
051387,000034: 5104 51075 INDEX TEMK
051388,000035: 5105 65000 AD LIMITS
051389,000036: 5106 40000 COM
051390,000037: 5107 61075 AD TEMK
051391,000038: 5110 55075 TS TEMK
051392,000039: 5111 15113 TCF POLLEY
051393,000040: 5112 15131 TCF ARG90
051394,000041: 5113 00006 POLLEY EXTEND
051395,000042: 5114 71075 MP TEMK
051396,000043: 5115 55076 TS SQ
051397,000044: 5116 00006 EXTEND
051398,000045: 5117 75047 MP C5/2
051399,000046: 5120 67706 AD C3/2
051400,000047: 5121 00006 EXTEND
051401,000048: 5122 71076 MP SQ
051402,000049: 5123 67666 AD C1/2
051403,000050: 5124 00006 EXTEND
051404,000051: 5125 71075 MP TEMK
051405,000052: 5126 20001 DDOUBL
051406,000053: 5127 55075 TS TEMK
051407,000054: 5130 00002 TC Q
051408,000055: 5131 50000 ARG90 INDEX A
051409,000056: 5132 45000 CS LIMITS
051410,000057: 5133 00002 TC Q # RESULT SCALED AT 1
051411,000058:
051412,000059: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
051413,000060:
051414,000061:
051415,000062:
051416,000063:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc