Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

038326,000002:                                                                                                 #  Copyright:    Public domain.
038327,000003:                                                                                                 #  Filename:      S-BAND_ANTENNA_FOR_CM.agc
038328,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
038329,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
038330,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
038331,000007:                                                                                                 #  Assembler:    yaYUL
038332,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
038333,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
038334,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
038335,000011:                                                                                                 #  Mod history:  2011-03-06 JL    Adapted from corresponding Colossus 249 file.
038336,000012: 
038337,000013:                                                                                                 # # Page 884
038338,000014:                                                                                                 #  S-BAND ANTENNA FOR CM
038339,000015: 
038340,000016: 23,3140                                          BANK     23                                    
038341,000017: 42,2000                                          SETLOC   SBAND                                 
038342,000018: 42,2000                                          BANK                                           
038343,000019: 
038344,000020: 42,3565                                          COUNT*   $$/R05                                
038345,000021: 42,3565  E4,1417                                 EBANK=   EMSALT                                
038346,000022: 
038347,000023: 42,3565           04555        SBANDANT          TC       BANKCALL                              #  V 64 E GETS US HERE
038348,000024: 42,3566           17573                          CADR     R02BOTH                               #  CHECK IF IMU IS ON AND ALIGNED
038349,000025: 42,3567           06006                          TC       INTPRET                               
038350,000026: 42,3570           45034                          RTB      CALL                                  
038351,000027: 42,3571           45505                                   LOADTIME                              #  PICKUP CURRENT TIME SCALED B-28
038352,000028: 42,3572           47432                                   CDUTRIG                               #  COMPUTE SINES AND COSINES OF CDU ANGLES
038353,000029: 42,3573           34041                          STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
038354,000030: 42,3574           27045                                   CSMCONIC                              #  USING CONIC INTEGRATION
038355,000031: 42,3575           46135                          SLOAD    BHIZ                                  #  ORIGIN OF REFERENCE INERTIAL SYSTEM IS
038356,000032: 42,3576           00050                                   X2                                    #  EARTH = 0, MOON = 2
038357,000033: 42,3577           65612                                   EISOI                                 
038358,000034: 42,3600           77775                          VLOAD                                          
038359,000035: 42,3601           00001                                   RATT                                  
038360,000036: 42,3602           00003                          STORE    RCM                                   #  MOVE RATT TO PREVENT WIPEOUT
038361,000037: 42,3603           45145                          DLOAD    CALL                                  #  MOON, PUSH ON
038362,000038: 42,3604           00015                                   TAT                                   #  GET ORIGINAL TIME
038363,000039: 42,3605           54115                                   LUNPOS                                #  COMPUTE POSITION VECTOR OF MOON
038364,000040: 42,3606           57455                          VAD      VCOMP                                 #  R= -(REM+RCM) = NEG. OF S/C POS. VEC
038365,000041: 42,3607           00003                                   RCM                                   
038366,000042: 42,3610           77650                          GOTO                                           
038367,000043: 42,3611           65614                                   EISOI      +2                         
038368,000044: 42,3612           57575        EISOI             VLOAD    VCOMP                                 #  EARTH, R= -RCM
038369,000045: 42,3613           00001                                   RATT                                  
038370,000046: 42,3614           64201                          SETPD    MXV                                   #  RCS TO STABLE MEMBER- B-1X B-29X B+1
038371,000047: 42,3615           00003                                   2D                                    #  2D
038372,000048: 42,3616           01736                                   REFSMMAT                              #  STABLE MEMBER.  B-1X B-29X B+1= B-29
038373,000049: 42,3617           65372                          VSL1     PDDL                                  #  8D
038374,000050: 42,3620           15332                                   HI6ZEROS                              
038375,000051: 42,3621           24025                          STOVL    YAWANG                                #  ZERO OUT YAWANG, SET UP FOR SMNB
038376,000052: 42,3622           00003                                   RCM                                   #  TRANSFORMATION. SM COORD. SCALED B-29
038377,000053: 42,3623           77624                          CALL                                           
038378,000054: 42,3624           47577                                   *SMNB*                                
038379,000055: 42,3625           00003                          STORE    R                                     #  SAVE NAV. BASE COORDINATES
038380,000056: 42,3626           63256                          UNIT     PDVL                                  #  14D
038381,000057: 42,3627           00003                                   R                                     
038382,000058: 42,3630           72431                          VPROJ    VSL2                                  #  COMPUTE PROJECTION OF VECTOR INTO CM
038383,000059: 42,3631           15324                                   HIUNITZ                               #  XY-PLANE, R-(R.UZ)UZ
038384,000060: 42,3632           40045                          BVSU     BOV                                   #  CLEAR OVERFLOW INDICATOR IF SET
038385,000061: 42,3633           00003                                   R                                     
038386,000062: 42,3634           65635                                   COVCNV                                
038387,000063: 42,3635           40056        COVCNV            UNIT     BOV                                   #  TEST OVERFLOW FOR INDICATION OF NULL
038388,000064: 42,3636           65652                                   NOADJUST                              #  VECTOR
038389,000065: 42,3637           50206                          PUSH     DOT                                   #  20D
038390,000066:                                                                                                 # # Page 885
038391,000067: 42,3640           15330                                   HIUNITX                               #  COMPUTE YAW ANGLE = ACOS (URP.UX)
038392,000068: 42,3641           65552                          SL1      ACOS                                  #  REVOLUTIONS SCALED B0
038393,000069: 42,3642           50315                          PDVL     DOT                                   #  22D YAWANG
038394,000070: 42,3643           00017                                   URP                                   
038395,000071: 42,3644           15326                                   HIUNITY                               #  COMPUTE FOLLOWING- URP.UY
038396,000072: 42,3645           51152                          SL1      BPL                                   #  POSITIVE
038397,000073: 42,3646           65652                                   NOADJUST                              #  YES, 0- 180 DEGREES
038398,000074: 42,3647           45345                          DLOAD    DSU                                   #  NO, 181-360 DEGREES 20D
038399,000075: 42,3650           15340                                   DPPOSMAX                              #  COMPUTE 2 PI MINUS YAW ANGLE
038400,000076: 42,3651           77606                          PUSH                                           #  22D YAWANG
038401,000077: 42,3652           50375        NOADJUST          VLOAD    DOT                                   #  COMPUTE PITCH ANGLE
038402,000078: 42,3653           00011                                   UR                                    #  ACOS (UR.UZ) - PI/2
038403,000079: 42,3654           15324                                   HIUNITZ                               
038404,000080: 42,3655           65552                          SL1      ACOS                                  #  REVOLUTIONS B0
038405,000081: 42,3656           77625                          DSU                                            
038406,000082: 42,3657           15322                                   HIDP1/4                               
038407,000083: 42,3660           16321                          STODL    RHOSB                                 
038408,000084: 42,3661           00025                                   YAWANG                                
038409,000085: 42,3662           02323                          STORE    GAMMASB                               #  PATCH FOR CHECKOUT
038410,000086: 42,3663           77776                          EXIT                                           
038411,000087: 42,3664           31044                          CA       EXTVBACT                              #  IS BIT 5 STILL ON
038412,000088: 42,3665           74706                          MASK     BIT5                                  
038413,000089: 42,3666           00006                          EXTEND                                         
038414,000090: 42,3667           15423                          BZF      ENDEXT                                #  NO, WE HAVE BEEN ANSWERED
038415,000091: 42,3670           33704                          CAF      V06N51                                #  DISPLAY ANGLES
038416,000092: 42,3671           04555                          TC       BANKCALL                              
038417,000093: 42,3672           20504                          CADR     GOMARKFR                              
038418,000094: 42,3673           05514                          TC       B5OFF                                 #  TERMINATE
038419,000095: 42,3674           05514                          TC       B5OFF                                 
038420,000096: 42,3675           05112                          TC       ENDOFJOB                              #  RECYCLE
038421,000097: 42,3676           34710                          CAF      BIT3                                  #  IMMEDIATE RETURN
038422,000098: 42,3677           05415                          TC       BLANKET                               #  BLANK R3
038423,000099: 42,3700           34712                          CAF      BIT1                                  #  DELAY MINIMUM TIME TO ALLOW DISPLAY IN
038424,000100: 42,3701           04555                          TC       BANKCALL                              
038425,000101: 42,3702           01730                          CADR     DELAYJOB                              
038426,000102: 42,3703           13567                          TCF      SBANDANT   +2                         
038427,000103: 42,3704           01463        V06N51            VN       0651                                  
038428,000104: 42,3705                        RCM               EQUALS   2D                                    
038429,000105: 42,3705                        UR                EQUALS   8D                                    
038430,000106: 42,3705                        URP               EQUALS   14D                                   
038431,000107: 42,3705                        YAWANG            EQUALS   20D                                   
038432,000108: 42,3705                        PITCHANG          EQUALS   22D                                   
038433,000109: 42,3705  0000002               R                 EQUALS   RCM                                   

End of include-file S-BAND_ANTENNA_FOR_CM.agc.  Parent file is MAIN.agc