Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

050457,000002:                                                                                                  ## Copyright:   Public domain.
050458,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
050459,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
050460,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
050461,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
050462,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
050463,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
050464,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
050465,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
050466,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
050467,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
050468,000013:                                                                                                  ##              is correct.
050469,000014:                                                                                                  ## Assembler:   yaYUL
050470,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050471,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050472,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
050473,000018: 
050474,000019:    5110                                           BLOCK    02                                    
050475,000020: 
050476,000021:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
050477,000022: 
050478,000023:    5110                                           COUNT    02/INTER                              
050479,000024: 
050480,000025:    5110           65016        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
050481,000026:    5111           55075        SPSIN              TS       TEMK                                  
050482,000027:    5112           15114                           TCF      SPT                                   
050483,000028:    5113           41075                           CS       TEMK                                  
050484,000029:    5114           60000        SPT                DOUBLE                                         
050485,000030:    5115           55075                           TS       TEMK                                  
050486,000031:    5116           15127                           TCF      POLLEY                                
050487,000032:    5117           57075                           XCH      TEMK                                  
050488,000033:    5120           51075                           INDEX    TEMK                                  
050489,000034:    5121           65014                           AD       LIMITS                                
050490,000035:    5122           40000                           COM                                            
050491,000036:    5123           61075                           AD       TEMK                                  
050492,000037:    5124           55075                           TS       TEMK                                  
050493,000038:    5125           15127                           TCF      POLLEY                                
050494,000039:    5126           15145                           TCF      ARG90                                 
050495,000040:    5127           00006        POLLEY             EXTEND                                         
050496,000041:    5130           71075                           MP       TEMK                                  
050497,000042:    5131           55076                           TS       SQ                                    
050498,000043:    5132           00006                           EXTEND                                         
050499,000044:    5133           75063                           MP       C5/2                                  
050500,000045:    5134           67706                           AD       C3/2                                  
050501,000046:    5135           00006                           EXTEND                                         
050502,000047:    5136           71076                           MP       SQ                                    
050503,000048:    5137           67666                           AD       C1/2                                  
050504,000049:    5140           00006                           EXTEND                                         
050505,000050:    5141           71075                           MP       TEMK                                  
050506,000051:    5142           20001                           DDOUBL                                         
050507,000052:    5143           55075                           TS       TEMK                                  
050508,000053:    5144           00002                           TC       Q                                     
050509,000054:    5145           50000        ARG90              INDEX    A                                     
050510,000055:    5146           45014                           CS       LIMITS                                
050511,000056:    5147           00002                           TC       Q                                     #  RESULT SCALED AT 1
050512,000057: 
050513,000058:                                                                                                  #  SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050514,000059: 
050515,000060: 
050516,000061: 
050517,000062: 

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