Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

044652,000002:                                                                                                  ## Copyright:   Public domain.
044653,000003:                                                                                                  ## Filename:    MYSUBS.agc
044654,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
044655,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
044656,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
044657,000007:                                                                                                  ## Assembler:   yaYUL
044658,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
044659,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
044660,000010:                                                                                                  ## Pages:       999-1001
044661,000011:                                                                                                  ## Mod history: 2009-05-13 RSB  Adapted from the Colossus249/ file of the
044662,000012:                                                                                                  ##                              same name, using Comanche055 page images.
044663,000013:                                                                                                  ##              2009-05-20 RSB  Corrections: EBANK= changed from MPAC to KMPAC.
044664,000014:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
044665,000015:                                                                                                  ##                              but no errors found.
044666,000016:                                                                                                  ##
044667,000017:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
044668,000018:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
044669,000019:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
044670,000020:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
044671,000021:                                                                                                  ## consequent reduction in image quality as well) are available online at
044672,000022:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
044673,000023:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
044674,000024:                                                                                                  ## (much) higher-quality images which Paul actually created.
044675,000025:                                                                                                  ##
044676,000026:                                                                                                  ## Notations on the hardcopy document read, in part:
044677,000027:                                                                                                  ##
044678,000028:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
044679,000029:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
044680,000030:                                                                                                  ##
044681,000031:                                                                                                  ##      This AGC program shall also be referred to as
044682,000032:                                                                                                  ##                      Colossus 2A
044683,000033: 

Page 999

044685,000035: 20,3612                                           BANK     20                                    
044686,000036: 21,2000                                           SETLOC   MYSUBS                                
044687,000037: 21,2000                                           BANK                                           
044688,000038: 
044689,000039: 21,2042  E6,1510                                  EBANK=   KMPAC                                 
044690,000040: 21,2042     5074               SPCOS1             EQUALS   SPCOS                                 
044691,000041: 21,2042     5075               SPSIN1             EQUALS   SPSIN                                 
044692,000042: 21,2042     5074               SPCOS2             EQUALS   SPCOS                                 
044693,000043: 21,2042     5075               SPSIN2             EQUALS   SPSIN                                 
044694,000044: 
044695,000045: 21,2042                                           COUNT    21/DAPMS                              
044696,000046: 
044697,000047:                                                                                                  #  ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
044698,000048: 
044699,000049: 21,2042           55512        SMALLMP            TS       KMPTEMP                               #  A(X+Y)
044700,000050: 21,2043           00006                           EXTEND                                         
044701,000051: 21,2044           71511                           MP       KMPAC      +1                         
044702,000052: 21,2045           55511                           TS       KMPAC      +1                         #  AY
044703,000053: 21,2046           35021                           CAF      ZERO                                  
044704,000054: 21,2047           57510                           XCH      KMPAC                                 
044705,000055: 21,2050           00006                           EXTEND                                         
044706,000056: 21,2051           71512                           MP       KMPTEMP                               #  AX
044707,000057: 21,2052           21511                           DAS      KMPAC                                 #  AX+AY
044708,000058: 21,2053           00002                           TC       Q                                     
044709,000059: 
044710,000060:                                                                                                  #  SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
044711,000061:                                                                                                  #  A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
044712,000062:                                                                                                  #  RESULT IS PLACED IN KMPAC.  TIMING = 6 MCT (22 MCT ON OVERFLOW)
044713,000063: 
044714,000064: 21,2054           21511        DPADD              DAS      KMPAC                                 
044715,000065: 21,2055           00006                           EXTEND                                         
044716,000066: 21,2056           12073                           BZF      TSK        +1                         #  NO OVERFLOW
044717,000067: 21,2057           11510                           CCS      KMPAC                                 
044718,000068: 21,2060           12074                           TCF      DPADD+                                #  + OVERFLOW
044719,000069: 21,2061           12063                           TCF      +2                                    
044720,000070: 21,2062           12076                           TCF      DPADD-                                #  - OVERFLOW
044721,000071: 21,2063           11511                           CCS      KMPAC      +1                         
044722,000072: 21,2064           12101                           TCF      DPADD2+                               #  UPPER = 0, LOWER +
044723,000073: 21,2065           12067                           TCF      +2                                    
044724,000074: 21,2066           40000                           COM                                            #  UPPER = 0, LOWER -
044725,000075: 21,2067           64777                           AD       POSMAX                                #  LOWER = 0, A = 0
044726,000076: 21,2070           55511                           TS       KMPAC      +1                         #  CAN NOT OVERFLOW
044727,000077: 21,2071           34777                           CA       POSMAX                                #  UPPER WAS = 0
044728,000078: 21,2072           55510        TSK                TS       KMPAC                                 
044729,000079: 21,2073           00002                           TC       Q                                     
044730,000080: 
044731,000081: 21,2074           65001        DPADD+             AD       NEGMAX                                #  KMPAC GREATER THAN 0
044732,000082: 21,2075           12072                           TCF      TSK                                   
044733,000083: 

Page 1000

044735,000085: 21,2076           40000        DPADD-             COM                                            
044736,000086: 21,2077           64777                           AD       POSMAX                                #  KMPAC LESS THAN 0
044737,000087: 21,2100           12072                           TCF      TSK                                   
044738,000088: 
044739,000089: 21,2101           65001        DPADD2+            AD       NEGMAX                                #  CAN NOT OVERFLOW
044740,000090: 21,2102           55511                           TS       KMPAC      +1                         
044741,000091: 21,2103           35001                           CA       NEGMAX                                #  UPPER WAS = 0
044742,000092: 21,2104           12072                           TCF      TSK                                   
044743,000093: 

Page 1001 This page is empty.

044746,000096: 
044747,000097: 

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