Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

049953,000002:                                                                                                  ## Copyright:   Public domain.
049954,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
049955,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.  
049956,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
049957,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
049958,000007:                                                                                                  ## Assembler:   yaYUL
049959,000008:                                                                                                  ## Contact:     Onno Hommes <ohommes@alumni.cmu.edu>
049960,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049961,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049962,000011:                                                                                                  ## Mod history: 2010-06-03 OH   Adapted from corresponding Colossus 249 file.
049963,000012:                                                                                                  ##              2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
049964,000013:                                                                                                  ##              2011-02-08 JL   Minor fixes.
049965,000014:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
049966,000015:                                                                                                  ##                              and fixed errors found.
049967,000016: 

Page 1174

049969,000018:    4767                                           BLOCK    02                                    
049970,000019: 
049971,000020:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
049972,000021: 
049973,000022:    4767                                           COUNT    02/INTER                              
049974,000023:    4767           64675        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
049975,000024:    4770           55075        SPSIN              TS       TEMK                                  
049976,000025:    4771           14773                           TCF      SPT                                   
049977,000026:    4772           41075                           CS       TEMK                                  
049978,000027:    4773           60000        SPT                DOUBLE                                         
049979,000028:    4774           55075                           TS       TEMK                                  
049980,000029:    4775           15006                           TCF      POLLEY                                
049981,000030:    4776           57075                           XCH      TEMK                                  
049982,000031:    4777           51075                           INDEX    TEMK                                  
049983,000032:    5000           64673                           AD       LIMITS                                
049984,000033:    5001           40000                           COM                                            
049985,000034:    5002           61075                           AD       TEMK                                  
049986,000035:    5003           55075                           TS       TEMK                                  
049987,000036:    5004           15006                           TCF      POLLEY                                
049988,000037:    5005           15024                           TCF      ARG90                                 
049989,000038:    5006           00006        POLLEY             EXTEND                                         
049990,000039:    5007           71075                           MP       TEMK                                  
049991,000040:    5010           55076                           TS       SQ                                    
049992,000041:    5011           00006                           EXTEND                                         
049993,000042:    5012           74742                           MP       C5/2                                  
049994,000043:    5013           67706                           AD       C3/2                                  
049995,000044:    5014           00006                           EXTEND                                         
049996,000045:    5015           71076                           MP       SQ                                    
049997,000046:    5016           67666                           AD       C1/2                                  
049998,000047:    5017           00006                           EXTEND                                         
049999,000048:    5020           71075                           MP       TEMK                                  
050000,000049:    5021           20001                           DDOUBL                                         
050001,000050:    5022           55075                           TS       TEMK                                  
050002,000051:    5023           00002                           TC       Q                                     
050003,000052:    5024           50000        ARG90              INDEX    A                                     
050004,000053:    5025           44673                           CS       LIMITS                                
050005,000054:    5026           00002                           TC       Q                                     #  RESULT SCALED AT 1
050006,000055:                                                                                                  #           SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.

End of include-file SINGLE_PRECISION_SUBROUTINES.agc.  Parent file is MAIN.agc