Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
052628,000002: ## Copyright: Public domain.
052629,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
052630,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
052631,000005: ## It is part of the source code for the Command Module's (CM)
052632,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
052633,000007: ## Assembler: yaYUL
052634,000008: ## Contact: Ron Burkey <info@sandroid.org>.
052635,000009: ## Website: www.ibiblio.org/apollo.
052636,000010: ## Pages: 1207
052637,000011: ## Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
052638,000012: ## same name, using Comanche055 page images.
052639,000013: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
052640,000014: ## and corrected the errors found.
052641,000015: ##
052642,000016: ## This source code has been transcribed or otherwise adapted from digitized
052643,000017: ## images of a hardcopy from the MIT Museum. The digitization was performed
052644,000018: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
052645,000019: ## thanks to both. The images (with suitable reduction in storage size and
052646,000020: ## consequent reduction in image quality as well) are available online at
052647,000021: ## www.ibiblio.org/apollo. If for some reason you find that the images are
052648,000022: ## illegible, contact me at info@sandroid.org about getting access to the
052649,000023: ## (much) higher-quality images which Paul actually created.
052650,000024: ##
052651,000025: ## Notations on the hardcopy document read, in part:
052652,000026: ##
052653,000027: ## Assemble revision 055 of AGC program Comanche by NASA
052654,000028: ## 2021113-051. 10:28 APR. 1, 1969
052655,000029: ##
052656,000030: ## This AGC program shall also be referred to as
052657,000031: ## Colossus 2A
052658,000032:
![]() |
Page 1207 |
052660,000034: 5074 BLOCK 02
052661,000035:
052662,000036: # SINGLE PRECISION SINE AND COSINE
052663,000037:
052664,000038: 5074 COUNT 02/INTER
052665,000039:
052666,000040: 5074 65002 SPCOS AD HALF # ARGUMENTS SCALED AT PI
052667,000041: 5075 55075 SPSIN TS TEMK
052668,000042: 5076 15100 TCF SPT
052669,000043: 5077 41075 CS TEMK
052670,000044: 5100 60000 SPT DOUBLE
052671,000045: 5101 55075 TS TEMK
052672,000046: 5102 15113 TCF POLLEY
052673,000047: 5103 57075 XCH TEMK
052674,000048: 5104 51075 INDEX TEMK
052675,000049: 5105 65000 AD LIMITS
052676,000050: 5106 40000 COM
052677,000051: 5107 61075 AD TEMK
052678,000052: 5110 55075 TS TEMK
052679,000053: 5111 15113 TCF POLLEY
052680,000054: 5112 15131 TCF ARG90
052681,000055: 5113 00006 POLLEY EXTEND
052682,000056: 5114 71075 MP TEMK
052683,000057: 5115 55076 TS SQ
052684,000058: 5116 00006 EXTEND
052685,000059: 5117 75047 MP C5/2
052686,000060: 5120 67706 AD C3/2
052687,000061: 5121 00006 EXTEND
052688,000062: 5122 71076 MP SQ
052689,000063: 5123 67666 AD C1/2
052690,000064: 5124 00006 EXTEND
052691,000065: 5125 71075 MP TEMK
052692,000066: 5126 20001 DDOUBL
052693,000067: 5127 55075 TS TEMK
052694,000068: 5130 00002 TC Q
052695,000069: 5131 50000 ARG90 INDEX A
052696,000070: 5132 45000 CS LIMITS
052697,000071: 5133 00002 TC Q # RESULT SCALED AT 1
052698,000072:
052699,000073: # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
052700,000074:
052701,000075:
052702,000076:
052703,000077:
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc