Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. 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, 1968Note that the date is the date of the printout, not the date of the program revision. |
038500,000002: ## Copyright: Public domain.
038501,000003: ## Filename: S-BAND_ANTENNA_FOR_CM.agc
038502,000004: ## Purpose: Part of the source code for Colossus build 237.
038503,000005: ## This is for the Command Module's (CM) Apollo Guidance
038504,000006: ## Computer (AGC), for Apollo 8.
038505,000007: ## Assembler: yaYUL
038506,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
038507,000009: ## Website: www.ibiblio.org/apollo/index.html
038508,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
038509,000011: ## Mod history: 2011-03-06 JL Adapted from corresponding Colossus 249 file.
038510,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
038511,000013: ## and fixed errors found.
038512,000014:
![]() |
Page 884 |
038514,000016: 23,3140 BANK 23
038515,000017: 42,2000 SETLOC SBAND
038516,000018: 42,2000 BANK
038517,000019:
038518,000020: 42,3565 COUNT* $$/R05
038519,000021: 42,3565 E4,1417 EBANK= EMSALT
038520,000022:
038521,000023: 42,3565 04555 SBANDANT TC BANKCALL # V 64 E GETS US HERE
038522,000024: 42,3566 17573 CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED
038523,000025: 42,3567 06006 TC INTPRET
038524,000026: 42,3570 45034 RTB CALL
038525,000027: 42,3571 45505 LOADTIME # PICKUP CURRENT TIME SCALED B-28
038526,000028: 42,3572 47432 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
038527,000029: 42,3573 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
038528,000030: 42,3574 27045 CSMCONIC # USING CONIC INTEGRATION
038529,000031: 42,3575 46135 SLOAD BHIZ # ORIGIN OF REFERENCE INERTIAL SYSTEM IS
038530,000032: 42,3576 00050 X2 # EARTH = 0, MOON = 2
038531,000033: 42,3577 65612 EISOI
038532,000034: 42,3600 77775 VLOAD
038533,000035: 42,3601 00001 RATT
038534,000036: 42,3602 00003 STORE RCM # MOVE RATT TO PREVENT WIPEOUT
038535,000037: 42,3603 45145 DLOAD CALL # MOON, PUSH ON
038536,000038: 42,3604 00015 TAT # GET ORIGINAL TIME
038537,000039: 42,3605 54115 LUNPOS # COMPUTE POSITION VECTOR OF MOON
038538,000040: 42,3606 57455 VAD VCOMP # R= -(REM+RCM) = NEG. OF S/C POS. VEC
038539,000041: 42,3607 00003 RCM
038540,000042: 42,3610 77650 GOTO
038541,000043: 42,3611 65614 EISOI +2
038542,000044: 42,3612 57575 EISOI VLOAD VCOMP # EARTH, R= -RCM
038543,000045: 42,3613 00001 RATT
038544,000046: 42,3614 64201 SETPD MXV # RCS TO STABLE MEMBER- B-1X B-29X B+1
038545,000047: 42,3615 00003 2D # 2D
038546,000048: 42,3616 01736 REFSMMAT # STABLE MEMBER. B-1X B-29X B+1= B-29
038547,000049: 42,3617 65372 VSL1 PDDL # 8D
038548,000050: 42,3620 15332 HI6ZEROS
038549,000051: 42,3621 24025 STOVL YAWANG # ZERO OUT YAWANG, SET UP FOR SMNB
038550,000052: 42,3622 00003 RCM # TRANSFORMATION. SM COORD. SCALED B-29
038551,000053: 42,3623 77624 CALL
038552,000054: 42,3624 47577 *SMNB*
038553,000055: 42,3625 00003 STORE R # SAVE NAV. BASE COORDINATES
038554,000056: 42,3626 63256 UNIT PDVL # 14D
038555,000057: 42,3627 00003 R
038556,000058: 42,3630 72431 VPROJ VSL2 # COMPUTE PROJECTION OF VECTOR INTO CM
038557,000059: 42,3631 15324 HIUNITZ # XY-PLANE, R-(R.UZ)UZ
038558,000060: 42,3632 40045 BVSU BOV # CLEAR OVERFLOW INDICATOR IF SET
038559,000061: 42,3633 00003 R
038560,000062: 42,3634 65635 COVCNV
038561,000063: 42,3635 40056 COVCNV UNIT BOV # TEST OVERFLOW FOR INDICATION OF NULL
038562,000064: 42,3636 65652 NOADJUST # VECTOR
038563,000065: 42,3637 50206 PUSH DOT # 20D
![]() |
Page 885 |
038565,000067: 42,3640 15330 HIUNITX # COMPUTE YAW ANGLE = ACOS (URP.UX)
038566,000068: 42,3641 65552 SL1 ACOS # REVOLUTIONS SCALED B0
038567,000069: 42,3642 50315 PDVL DOT # 22D YAWANG
038568,000070: 42,3643 00017 URP
038569,000071: 42,3644 15326 HIUNITY # COMPUTE FOLLOWING- URP.UY
038570,000072: 42,3645 51152 SL1 BPL # POSITIVE
038571,000073: 42,3646 65652 NOADJUST # YES, 0- 180 DEGREES
038572,000074: 42,3647 45345 DLOAD DSU # NO, 181-360 DEGREES 20D
038573,000075: 42,3650 15340 DPPOSMAX # COMPUTE 2 PI MINUS YAW ANGLE
038574,000076: 42,3651 77606 PUSH # 22D YAWANG
038575,000077: 42,3652 50375 NOADJUST VLOAD DOT # COMPUTE PITCH ANGLE
038576,000078: 42,3653 00011 UR # ACOS (UR.UZ) - PI/2
038577,000079: 42,3654 15324 HIUNITZ
038578,000080: 42,3655 65552 SL1 ACOS # REVOLUTIONS B0
038579,000081: 42,3656 77625 DSU
038580,000082: 42,3657 15322 HIDP1/4
038581,000083: 42,3660 16321 STODL RHOSB
038582,000084: 42,3661 00025 YAWANG
038583,000085: 42,3662 02323 STORE GAMMASB # PATCH FOR CHECKOUT
038584,000086: 42,3663 77776 EXIT
038585,000087: 42,3664 31044 CA EXTVBACT # IS BIT 5 STILL ON
038586,000088: 42,3665 74706 MASK BIT5
038587,000089: 42,3666 00006 EXTEND
038588,000090: 42,3667 15423 BZF ENDEXT # NO, WE HAVE BEEN ANSWERED
038589,000091: 42,3670 33704 CAF V06N51 # DISPLAY ANGLES
038590,000092: 42,3671 04555 TC BANKCALL
038591,000093: 42,3672 20504 CADR GOMARKFR
038592,000094: 42,3673 05514 TC B5OFF # TERMINATE
038593,000095: 42,3674 05514 TC B5OFF
038594,000096: 42,3675 05112 TC ENDOFJOB # RECYCLE
038595,000097: 42,3676 34710 CAF BIT3 # IMMEDIATE RETURN
038596,000098: 42,3677 05415 TC BLANKET # BLANK R3
038597,000099: 42,3700 34712 CAF BIT1 # DELAY MINIMUM TIME TO ALLOW DISPLAY IN
038598,000100: 42,3701 04555 TC BANKCALL
038599,000101: 42,3702 01730 CADR DELAYJOB
038600,000102: 42,3703 13567 TCF SBANDANT +2
038601,000103: 42,3704 01463 V06N51 VN 0651
038602,000104: 42,3705 RCM EQUALS 2D
038603,000105: 42,3705 UR EQUALS 8D
038604,000106: 42,3705 URP EQUALS 14D
038605,000107: 42,3705 YAWANG EQUALS 20D
038606,000108: 42,3705 PITCHANG EQUALS 22D
038607,000109: 42,3705 0000002 R EQUALS RCM
End of include-file S-BAND_ANTENNA_FOR_CM.agc. Parent file is MAIN.agc