Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

049691,000002:                                                                                                 #  Copyright:     Public domain.
049692,000003:                                                                                                 #  Filename:      SINGLE_PRECISION_SUBROUTINES.agc
049693,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
049694,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
049695,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
049696,000007:                                                                                                 #  Assembler:     yaYUL
049697,000008:                                                                                                 #  Contact:       Onno Hommes <ohommes@alumni.cmu.edu>
049698,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
049699,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049700,000011:                                                                                                 #  Mod history:   2010-06-03 OH   Adapted from corresponding Colossus 249 file.
049701,000012:                                                                                                 #                 2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
049702,000013:                                                                                                 #                 2011-02-08 JL   Minor fixes.
049703,000014: 
049704,000015:                                                                                                 # # Page 1174
049705,000016:    4767                                          BLOCK    02                                    
049706,000017: 
049707,000018:                                                                                                 #  SINGLE PRECISION SINE AND COSINE
049708,000019: 
049709,000020:    4767                                          COUNT    02/INTER                              
049710,000021:    4767           64675        SPCOS             AD       HALF                                  #  ARGUMENTS SCALED AT PI
049711,000022:    4770           55075        SPSIN             TS       TEMK                                  
049712,000023:    4771           14773                          TCF      SPT                                   
049713,000024:    4772           41075                          CS       TEMK                                  
049714,000025:    4773           60000        SPT               DOUBLE                                         
049715,000026:    4774           55075                          TS       TEMK                                  
049716,000027:    4775           15006                          TCF      POLLEY                                
049717,000028:    4776           57075                          XCH      TEMK                                  
049718,000029:    4777           51075                          INDEX    TEMK                                  
049719,000030:    5000           64673                          AD       LIMITS                                
049720,000031:    5001           40000                          COM                                            
049721,000032:    5002           61075                          AD       TEMK                                  
049722,000033:    5003           55075                          TS       TEMK                                  
049723,000034:    5004           15006                          TCF      POLLEY                                
049724,000035:    5005           15024                          TCF      ARG90                                 
049725,000036:    5006           00006        POLLEY            EXTEND                                         
049726,000037:    5007           71075                          MP       TEMK                                  
049727,000038:    5010           55076                          TS       SQ                                    
049728,000039:    5011           00006                          EXTEND                                         
049729,000040:    5012           74742                          MP       C5/2                                  
049730,000041:    5013           67706                          AD       C3/2                                  
049731,000042:    5014           00006                          EXTEND                                         
049732,000043:    5015           71076                          MP       SQ                                    
049733,000044:    5016           67666                          AD       C1/2                                  
049734,000045:    5017           00006                          EXTEND                                         
049735,000046:    5020           71075                          MP       TEMK                                  
049736,000047:    5021           20001                          DDOUBL                                         
049737,000048:    5022           55075                          TS       TEMK                                  
049738,000049:    5023           00002                          TC       Q                                     
049739,000050:    5024           50000        ARG90             INDEX    A                                     
049740,000051:    5025           44673                          CS       LIMITS                                
049741,000052:    5026           00002                          TC       Q                                     #  RESULT SCALED AT 1
049742,000053:                                                                                                 #            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