Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

051638,000002:                                                                                                  ## Copyright:   Public domain.
051639,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
051640,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
051641,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
051642,000006:                                                                                                  ##              release of the flight software for the Command Module's
051643,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
051644,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
051645,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
051646,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
051647,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
051648,000012:                                                                                                  ##              that the reconstruction is correct.
051649,000013:                                                                                                  ## Reference:   1207
051650,000014:                                                                                                  ## Assembler:   yaYUL
051651,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051652,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051653,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
051654,000018: 

Page 1207

051656,000020:    4000                                           SETLOC   FFTAG1                                
051657,000021:    4000                                           BANK                                           
051658,000022: 
051659,000023:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
051660,000024: 
051661,000025:    5060                                           COUNT*   $$/INTER                              
051662,000026:    5060           64753        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
051663,000027:    5061           54742        SPSIN              TS       TEMK                                  
051664,000028:    5062           15064                           TCF      SPT                                   
051665,000029:    5063           40742                           CS       TEMK                                  
051666,000030:    5064           60000        SPT                DOUBLE                                         
051667,000031:    5065           54742                           TS       TEMK                                  
051668,000032:    5066           15077                           TCF      POLLEY                                
051669,000033:    5067           56742                           XCH      TEMK                                  
051670,000034:    5070           50742                           INDEX    TEMK                                  
051671,000035:    5071           64751                           AD       LIMITS                                
051672,000036:    5072           40000                           COM                                            
051673,000037:    5073           60742                           AD       TEMK                                  
051674,000038:    5074           54742                           TS       TEMK                                  
051675,000039:    5075           15077                           TCF      POLLEY                                
051676,000040:    5076           15115                           TCF      ARG90                                 
051677,000041:    5077           00006        POLLEY             EXTEND                                         
051678,000042:    5100           70742                           MP       TEMK                                  
051679,000043:    5101           54743                           TS       SQ                                    
051680,000044:    5102           00006                           EXTEND                                         
051681,000045:    5103           75022                           MP       C5/2                                  
051682,000046:    5104           67672                           AD       C3/2                                  
051683,000047:    5105           00006                           EXTEND                                         
051684,000048:    5106           70743                           MP       SQ                                    
051685,000049:    5107           67653                           AD       C1/2                                  
051686,000050:    5110           00006                           EXTEND                                         
051687,000051:    5111           70742                           MP       TEMK                                  
051688,000052:    5112           20001                           DDOUBL                                         
051689,000053:    5113           54742                           TS       TEMK                                  
051690,000054:    5114           00002                           TC       Q                                     
051691,000055:    5115           50000        ARG90              INDEX    A                                     
051692,000056:    5116           44751                           CS       LIMITS                                
051693,000057:    5117           00002                           TC       Q                                     #  RESULT SCALED AT 1
051694,000058: 
051695,000059:                                                                                                  #  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