Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

051772,000002:                                                                                                  ## Copyright:   Public domain.
051773,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
051774,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
051775,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
051776,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
051777,000007:                                                                                                  ##              Apollo 15-17.
051778,000008:                                                                                                  ## Assembler:   yaYUL
051779,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051780,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051781,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051782,000012:                                                                                                  ## Mod history: 2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051783,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
051784,000014:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
051785,000015:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
051786,000016: 

Page 1207

051788,000018:    4000                                           SETLOC   FFTAG1                                
051789,000019:    4000                                           BANK                                           
051790,000020: 
051791,000021:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
051792,000022: 
051793,000023:    5060                                           COUNT*   $$/INTER                              
051794,000024:    5060           64753        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
051795,000025:    5061           54742        SPSIN              TS       TEMK                                  
051796,000026:    5062           15064                           TCF      SPT                                   
051797,000027:    5063           40742                           CS       TEMK                                  
051798,000028:    5064           60000        SPT                DOUBLE                                         
051799,000029:    5065           54742                           TS       TEMK                                  
051800,000030:    5066           15077                           TCF      POLLEY                                
051801,000031:    5067           56742                           XCH      TEMK                                  
051802,000032:    5070           50742                           INDEX    TEMK                                  
051803,000033:    5071           64751                           AD       LIMITS                                
051804,000034:    5072           40000                           COM                                            
051805,000035:    5073           60742                           AD       TEMK                                  
051806,000036:    5074           54742                           TS       TEMK                                  
051807,000037:    5075           15077                           TCF      POLLEY                                
051808,000038:    5076           15115                           TCF      ARG90                                 
051809,000039:    5077           00006        POLLEY             EXTEND                                         
051810,000040:    5100           70742                           MP       TEMK                                  
051811,000041:    5101           54743                           TS       SQ                                    
051812,000042:    5102           00006                           EXTEND                                         
051813,000043:    5103           75022                           MP       C5/2                                  
051814,000044:    5104           67672                           AD       C3/2                                  
051815,000045:    5105           00006                           EXTEND                                         
051816,000046:    5106           70743                           MP       SQ                                    
051817,000047:    5107           67653                           AD       C1/2                                  
051818,000048:    5110           00006                           EXTEND                                         
051819,000049:    5111           70742                           MP       TEMK                                  
051820,000050:    5112           20001                           DDOUBL                                         
051821,000051:    5113           54742                           TS       TEMK                                  
051822,000052:    5114           00002                           TC       Q                                     
051823,000053:    5115           50000        ARG90              INDEX    A                                     
051824,000054:    5116           44751                           CS       LIMITS                                
051825,000055:    5117           00002                           TC       Q                                     #  RESULT SCALED AT 1
051826,000056: 
051827,000057:                                                                                                  #  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