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