Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

051499,000002:                                                                                                  ## Copyright:   Public domain.
051500,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
051501,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
051502,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
051503,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
051504,000007:                                                                                                  ## Assembler:   yaYUL
051505,000008:                                                                                                  ## Reference:   p. 1177
051506,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051507,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
051508,000011:                                                                                                  ## Mod history: 08/29/04 RSB.   Adapted from corresponding Luminary131 file.
051509,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
051510,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
051511,000014:                                                                                                  ##                              numbers in 1701.pdf.
051512,000015:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
051513,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
051514,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
051515,000018:                                                                                                  ##                              and corrected errors found.
051516,000019:                                                                                                  ##
051517,000020:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
051518,000021:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
051519,000022:                                                                                                  ## document read, in part:
051520,000023:                                                                                                  ##
051521,000024:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
051522,000025:                                                                                                  ##      2021111-041.  October 28, 1968.  
051523,000026:                                                                                                  ##
051524,000027:                                                                                                  ##      This AGC program shall also be referred to as
051525,000028:                                                                                                  ##                              Colossus 1A
051526,000029:                                                                                                  ##
051527,000030:                                                                                                  ##      Prepared by
051528,000031:                                                                                                  ##                      Massachusetts Institute of Technology
051529,000032:                                                                                                  ##                      75 Cambridge Parkway
051530,000033:                                                                                                  ##                      Cambridge, Massachusetts
051531,000034:                                                                                                  ##      under NASA contract NAS 9-4065.
051532,000035:                                                                                                  ##
051533,000036:                                                                                                  ## Refer directly to the online document mentioned above for further information.
051534,000037:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
051535,000038:                                                                                                  ##
051536,000039:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
051537,000040:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
051538,000041:                                                                                                  ## source file, and then is proofed to incorporate any changes.
051539,000042: 

Page 1177

051541,000044:    4767                                           BLOCK    02                                    
051542,000045: 
051543,000046:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
051544,000047: 
051545,000048:    4767                                           COUNT    02/INTER                              
051546,000049: 
051547,000050:    4767           64675        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
051548,000051:    4770           55075        SPSIN              TS       TEMK                                  
051549,000052:    4771           14773                           TCF      SPT                                   
051550,000053:    4772           41075                           CS       TEMK                                  
051551,000054:    4773           60000        SPT                DOUBLE                                         
051552,000055:    4774           55075                           TS       TEMK                                  
051553,000056:    4775           15006                           TCF      POLLEY                                
051554,000057:    4776           57075                           XCH      TEMK                                  
051555,000058:    4777           51075                           INDEX    TEMK                                  
051556,000059:    5000           64673                           AD       LIMITS                                
051557,000060:    5001           40000                           COM                                            
051558,000061:    5002           61075                           AD       TEMK                                  
051559,000062:    5003           55075                           TS       TEMK                                  
051560,000063:    5004           15006                           TCF      POLLEY                                
051561,000064:    5005           15024                           TCF      ARG90                                 
051562,000065:    5006           00006        POLLEY             EXTEND                                         
051563,000066:    5007           71075                           MP       TEMK                                  
051564,000067:    5010           55076                           TS       SQ                                    
051565,000068:    5011           00006                           EXTEND                                         
051566,000069:    5012           74742                           MP       C5/2                                  
051567,000070:    5013           67706                           AD       C3/2                                  
051568,000071:    5014           00006                           EXTEND                                         
051569,000072:    5015           71076                           MP       SQ                                    
051570,000073:    5016           67666                           AD       C1/2                                  
051571,000074:    5017           00006                           EXTEND                                         
051572,000075:    5020           71075                           MP       TEMK                                  
051573,000076:    5021           20001                           DDOUBL                                         
051574,000077:    5022           55075                           TS       TEMK                                  
051575,000078:    5023           00002                           TC       Q                                     
051576,000079:    5024           50000        ARG90              INDEX    A                                     
051577,000080:    5025           44673                           CS       LIMITS                                
051578,000081:    5026           00002                           TC       Q                                     #  RESULT SCALED AT 1
051579,000082: 
051580,000083:                                                                                                  #  SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
051581,000084: 
051582,000085: 
051583,000086: 
051584,000087: 

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