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.

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