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