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.

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

Page 1207

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