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,1969
Note 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