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.

018068,000002:                                                                                                  ## Copyright:   Public domain.
018069,000003:                                                                                                  ## Filename:    GIMBAL_LOCK_AVOIDANCE.agc
018070,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055.
018071,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
018072,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), Apollo 11.
018073,000007:                                                                                                  ## Assembler:   yaYUL
018074,000008:                                                                                                  ## Reference:   pp. 412-413
018075,000009:                                                                                                  ## Contact:     Onno Hommes <ohommes@cmu.edu>.
018076,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
018077,000011:                                                                                                  ## Mod history: 05/07/09 OH     Transcription Batch 1 Assignment 
018078,000012:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
018079,000013:                                                                                                  ##                              and fixed the errors found.
018080,000014:                                                                                                  ##
018081,000015:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
018082,000016:                                                                                                  ## from scanned documents. 
018083,000017:                                                                                                  ##
018084,000018:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
018085,000019:                                                                                                  ##      2021113-051.  April 1, 1969.  
018086,000020:                                                                                                  ##
018087,000021:                                                                                                  ##      This AGC program shall also be referred to as Colossus 2A
018088,000022:                                                                                                  ##
018089,000023:                                                                                                  ##      Prepared by
018090,000024:                                                                                                  ##                      Massachusetts Institute of Technology
018091,000025:                                                                                                  ##                      75 Cambridge Parkway
018092,000026:                                                                                                  ##                      Cambridge, Massachusetts
018093,000027:                                                                                                  ##
018094,000028:                                                                                                  ##      under NASA contract NAS 9-4065.
018095,000029:                                                                                                  ##
018096,000030:                                                                                                  ## Refer directly to the online document mentioned above for further information.
018097,000031:                                                                                                  ## Please report any errors to info@sandroid.org.
018098,000032: 
018099,000033: 

Page 412

018101,000035: 15,2000                                           BANK     15                                    
018102,000036: 22,2000                                           SETLOC   KALCMON1                              
018103,000037: 22,2000                                           BANK                                           
018104,000038: 
018105,000039: 22,2737  E6,1661                                  EBANK=   BCDU                                  
018106,000040: 
018107,000041:                                                                                                  #  DETECTING GIMBAL LOCK
018108,000042: 22,2737  22,2737               LOCSKIRT           EQUALS   WCALC                                 
018109,000043: 22,2737           70740        WCALC              LXC,1    DLOAD*                                
018110,000044: 22,2740           01130                                    RATEINDX                              
018111,000045: 22,2741           04771                                    ARATE,1                               
018112,000046: 22,2742           45002                           SR4      CALL                                  #  COMPUTE THE INCREMENTAL ROTATION MATRIX
018113,000047: 22,2743           44530                                    DELCOMP                               #  DEL CORRESPONDING TO A 1 SEC ROTATION
018114,000048:                                                                                                  #  ABOUT COF
018115,000049: 22,2744           74343                           DLOAD*   VXSC                                  
018116,000050: 22,2745           04771                                    ARATE,1                               
018117,000051: 22,2746           03343                                    COF                                   
018118,000052: 22,2747           77721                           MXV                                            
018119,000053: 22,2750           05003                                    QUADROT                               
018120,000054: 22,2751           17311                           STODL    BRATE                                 
018121,000055: 22,2752           03365                                    AM                                    
018122,000056: 22,2753           55605                           DMP      DDV*                                  
018123,000057: 22,2754           05001                                    ANGLTIME                              
018124,000058: 22,2755           04771                                    ARATE,1                               
018125,000059: 22,2756           77661                           SR                                             
018126,000060: 22,2757           20606                                    5                                     
018127,000061: 22,2760           27317                           STOVL    TM                                    
018128,000062: 22,2761           03311                                    BRATE                                 
018129,000063: 22,2762           77761                           VXSC                                           
018130,000064: 22,2763           05025                                    BIASCALE                              
018131,000065: 22,2764           03275                           STORE    BIASTEMP                              #  ATTITUDE ERROR BIAS TO PREVENT OVERSHOOT
018132,000066:                                                                                                  #  IN SYSTEM
018133,000067: 22,2765           77614                           SETGO                                          #  STATE SWITCH CALCMAN2 (43D)
018134,000068: 22,2766           01035                                    CALCMAN2                              #  0(OFF) = BYPASS STARTING PROCEDURE
018135,000069: 22,2767           45032                                    NEWANGL    +1                         #  1(ON) = START MANEUVER
018136,000070: 
018137,000071: 
018138,000072: 22,2770           00044 15053  ARATE              2DEC     .0022222222                            #  = .05 DEG/SEC
018139,000073: 
018140,000074: 22,2772           00221 24255                     2DEC     .0088888889                            #  = .2 DEG/SEC
018141,000075: 
018142,000076: 22,2774           00554 02660                     2DEC     .0222222222                            #  = .5 DEG/SEC
018143,000077: 
018144,000078: 22,2776           02660 13301                     2DEC     .0888888889                            #  = 2 DEG/SEC                $22.5 DEG/SEC
018145,000079: 
018146,000080: 22,3000           00003 04000  ANGLTIME           2DEC     .000190735                            #  = 100B - 19
018147,000081: 
018148,000082:                                                                                                  #  MANEUVER ANGLE TO MANEUVER TIME
018149,000083: 22,3002           03146 14632  QUADROT            2DEC     .1                                    #  ROTATION MATRIX FROM S/C AXES TO CONTROL
018150,000084: 

Page 413

018152,000086: 22,3004           00000 00000                     2DEC     0          B-28                       #  AXES (X ROT = -7.25 DEG)
018153,000087: 
018154,000088: 22,3006           00000 00000                     2DEC     0          B-28                       
018155,000089: 
018156,000090: 22,3010           00000 00000                     2DEC     0          B-28                       
018157,000091: 
018158,000092: 22,3012           03131 11275                     2DEC     .099200                               #  =(.1)COS7.25
018159,000093: 
018160,000094: 22,3014           77461 47370                     2DEC     -.012620                              #  =-(.1)SIN7.25
018161,000095: 
018162,000096: 22,3016           00000 00000                     2DEC     0          B-28                       
018163,000097: 
018164,000098: 22,3020           00316 30407                     2DEC     .012620                               #  (.1)SIN7.25
018165,000099: 
018166,000100: 22,3022           03131 11275                     2DEC     .099200                               #  (.1)COS7.25
018167,000101: 
018168,000102: 22,3024           00004 05253  BIASCALE           2DEC     .0002543132                            #  = (450/180)(1/0.6)(1/16384)

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