Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

050541,000002:                                                                                                  ## Copyright:   Public domain.
050542,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
050543,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
050544,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
050545,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
050546,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
050547,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
050548,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
050549,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
050550,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
050551,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
050552,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
050553,000014:                                                                                                  ##              reconstruction is correct.
050554,000015:                                                                                                  ## Assembler:   yaYUL
050555,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050556,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050557,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
050558,000019: 
050559,000020:    5110                                           BLOCK    02                                    
050560,000021: 
050561,000022:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
050562,000023: 
050563,000024:    5110                                           COUNT    02/INTER                              
050564,000025: 
050565,000026:    5110           65016        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
050566,000027:    5111           55075        SPSIN              TS       TEMK                                  
050567,000028:    5112           15114                           TCF      SPT                                   
050568,000029:    5113           41075                           CS       TEMK                                  
050569,000030:    5114           60000        SPT                DOUBLE                                         
050570,000031:    5115           55075                           TS       TEMK                                  
050571,000032:    5116           15127                           TCF      POLLEY                                
050572,000033:    5117           57075                           XCH      TEMK                                  
050573,000034:    5120           51075                           INDEX    TEMK                                  
050574,000035:    5121           65014                           AD       LIMITS                                
050575,000036:    5122           40000                           COM                                            
050576,000037:    5123           61075                           AD       TEMK                                  
050577,000038:    5124           55075                           TS       TEMK                                  
050578,000039:    5125           15127                           TCF      POLLEY                                
050579,000040:    5126           15145                           TCF      ARG90                                 
050580,000041:    5127           00006        POLLEY             EXTEND                                         
050581,000042:    5130           71075                           MP       TEMK                                  
050582,000043:    5131           55076                           TS       SQ                                    
050583,000044:    5132           00006                           EXTEND                                         
050584,000045:    5133           75063                           MP       C5/2                                  
050585,000046:    5134           67706                           AD       C3/2                                  
050586,000047:    5135           00006                           EXTEND                                         
050587,000048:    5136           71076                           MP       SQ                                    
050588,000049:    5137           67666                           AD       C1/2                                  
050589,000050:    5140           00006                           EXTEND                                         
050590,000051:    5141           71075                           MP       TEMK                                  
050591,000052:    5142           20001                           DDOUBL                                         
050592,000053:    5143           55075                           TS       TEMK                                  
050593,000054:    5144           00002                           TC       Q                                     
050594,000055:    5145           50000        ARG90              INDEX    A                                     
050595,000056:    5146           45014                           CS       LIMITS                                
050596,000057:    5147           00002                           TC       Q                                     #  RESULT SCALED AT 1
050597,000058: 
050598,000059:                                                                                                  #  SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050599,000060: 
050600,000061: 
050601,000062: 
050602,000063: 

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