Source Code

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

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

050136,000002:                                                                                                  ## Copyright:   Public domain.
050137,000003:                                                                                                  ## Filename:    SINGLE_PRECISION_SUBROUTINES.agc
050138,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
050139,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
050140,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
050141,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
050142,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
050143,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
050144,000010:                                                                                                  ##              other AGC programs.
050145,000011:                                                                                                  ## Assembler:   yaYUL
050146,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
050147,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
050148,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
050149,000015: 
050150,000016:    5110                                           BLOCK    02                                    
050151,000017: 
050152,000018:                                                                                                  #  SINGLE PRECISION SINE AND COSINE
050153,000019: 
050154,000020:    5110                                           COUNT    02/INTER                              
050155,000021: 
050156,000022:    5110           65016        SPCOS              AD       HALF                                  #  ARGUMENTS SCALED AT PI
050157,000023:    5111           55075        SPSIN              TS       TEMK                                  
050158,000024:    5112           15114                           TCF      SPT                                   
050159,000025:    5113           41075                           CS       TEMK                                  
050160,000026:    5114           60000        SPT                DOUBLE                                         
050161,000027:    5115           55075                           TS       TEMK                                  
050162,000028:    5116           15127                           TCF      POLLEY                                
050163,000029:    5117           57075                           XCH      TEMK                                  
050164,000030:    5120           51075                           INDEX    TEMK                                  
050165,000031:    5121           65014                           AD       LIMITS                                
050166,000032:    5122           40000                           COM                                            
050167,000033:    5123           61075                           AD       TEMK                                  
050168,000034:    5124           55075                           TS       TEMK                                  
050169,000035:    5125           15127                           TCF      POLLEY                                
050170,000036:    5126           15145                           TCF      ARG90                                 
050171,000037:    5127           00006        POLLEY             EXTEND                                         
050172,000038:    5130           71075                           MP       TEMK                                  
050173,000039:    5131           55076                           TS       SQ                                    
050174,000040:    5132           00006                           EXTEND                                         
050175,000041:    5133           75063                           MP       C5/2                                  
050176,000042:    5134           67706                           AD       C3/2                                  
050177,000043:    5135           00006                           EXTEND                                         
050178,000044:    5136           71076                           MP       SQ                                    
050179,000045:    5137           67666                           AD       C1/2                                  
050180,000046:    5140           00006                           EXTEND                                         
050181,000047:    5141           71075                           MP       TEMK                                  
050182,000048:    5142           20001                           DDOUBL                                         
050183,000049:    5143           55075                           TS       TEMK                                  
050184,000050:    5144           00002                           TC       Q                                     
050185,000051:    5145           50000        ARG90              INDEX    A                                     
050186,000052:    5146           45014                           CS       LIMITS                                
050187,000053:    5147           00002                           TC       Q                                     #  RESULT SCALED AT 1
050188,000054: 
050189,000055:                                                                                                  #  SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
050190,000056: 
050191,000057: 
050192,000058: 
050193,000059: 

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