Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

051544,000002:                                                                                                 #  Copyright:     Public domain.
051545,000003:                                                                                                 #  Filename:      SINGLE_PRECISION_SUBROUTINES.agc
051546,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
051547,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
051548,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
051549,000007:                                                                                                 #                 Apollo 15-17.
051550,000008:                                                                                                 #  Assembler:     yaYUL
051551,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
051552,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
051553,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051554,000012:                                                                                                 #  Mod history:   2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051555,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
051556,000014: 
051557,000015:                                                                                                 # # Page 1207
051558,000016:    4000                                          SETLOC   FFTAG1                                
051559,000017:    4000                                          BANK                                           
051560,000018: 
051561,000019:                                                                                                 #  SINGLE PRECISION SINE AND COSINE
051562,000020: 
051563,000021:    5060                                          COUNT*   $$/INTER                              
051564,000022:    5060           64753        SPCOS             AD       HALF                                  #  ARGUMENTS SCALED AT PI
051565,000023:    5061           54742        SPSIN             TS       TEMK                                  
051566,000024:    5062           15064                          TCF      SPT                                   
051567,000025:    5063           40742                          CS       TEMK                                  
051568,000026:    5064           60000        SPT               DOUBLE                                         
051569,000027:    5065           54742                          TS       TEMK                                  
051570,000028:    5066           15077                          TCF      POLLEY                                
051571,000029:    5067           56742                          XCH      TEMK                                  
051572,000030:    5070           50742                          INDEX    TEMK                                  
051573,000031:    5071           64751                          AD       LIMITS                                
051574,000032:    5072           40000                          COM                                            
051575,000033:    5073           60742                          AD       TEMK                                  
051576,000034:    5074           54742                          TS       TEMK                                  
051577,000035:    5075           15077                          TCF      POLLEY                                
051578,000036:    5076           15115                          TCF      ARG90                                 
051579,000037:    5077           00006        POLLEY            EXTEND                                         
051580,000038:    5100           70742                          MP       TEMK                                  
051581,000039:    5101           54743                          TS       SQ                                    
051582,000040:    5102           00006                          EXTEND                                         
051583,000041:    5103           75022                          MP       C5/2                                  
051584,000042:    5104           67672                          AD       C3/2                                  
051585,000043:    5105           00006                          EXTEND                                         
051586,000044:    5106           70743                          MP       SQ                                    
051587,000045:    5107           67653                          AD       C1/2                                  
051588,000046:    5110           00006                          EXTEND                                         
051589,000047:    5111           70742                          MP       TEMK                                  
051590,000048:    5112           20001                          DDOUBL                                         
051591,000049:    5113           54742                          TS       TEMK                                  
051592,000050:    5114           00002                          TC       Q                                     
051593,000051:    5115           50000        ARG90             INDEX    A                                     
051594,000052:    5116           44751                          CS       LIMITS                                
051595,000053:    5117           00002                          TC       Q                                     #  RESULT SCALED AT 1.
051596,000054: 
051597,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