Source Code
041369,000001: # Copyright: Public domain.
041370,000002: # Filename: S-BAND_ANTENNA_FOR_CM.agc
041371,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
041372,000004: # It is part of the source code for the Command Module's (CM)
041373,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
041374,000006: # Assembler: yaYUL
041375,000007: # Contact: Jim Lawton <jim.lawton@gmail.com>.
041376,000008: # Website: www.ibiblio.org/apollo.
041377,000009: # Pages: 934-935
041378,000010: # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
041379,000011: # of the same name, using Comanche055 page
041380,000012: # images.
041381,000013:
041382,000014: # This source code has been transcribed or otherwise adapted from digitized
041383,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
041384,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
041385,000017: # thanks to both. The images (with suitable reduction in storage size and
041386,000018: # consequent reduction in image quality as well) are available online at
041387,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
041388,000020: # illegible, contact me at info@sandroid.org about getting access to the
041389,000021: # (much) higher-quality images which Paul actually created.
041390,000022:
041391,000023: # Notations on the hardcopy document read, in part:
041392,000024:
041393,000025: # Assemble revision 055 of AGC program Comanche by NASA
041394,000026: # 2021113-051. 10:28 APR. 1, 1969
041395,000027:
041396,000028: # This AGC program shall also be referred to as
041397,000029: # Colossus 2A
041398,000030:
041399,000031: # Page 934
041400,000032: # S-BAND ANTENNA FOR CM
041401,000033:
041402,000034: 23,3205 BANK 23
041403,000035: 42,2000 SETLOC SBAND
041404,000036: 42,2000 BANK
041405,000037:
041406,000038: 42,3652 COUNT* $$/R05
041407,000039: 42,3652 E4,1417 EBANK= EMSALT
041408,000040:
041409,000041: 42,3652 04662 SBANDANT TC BANKCALL # V 64 E GETS US HERE
041410,000042: 42,3653 17653 CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED
041411,000043: 42,3654 06006 TC INTPRET
041412,000044: 42,3655 45034 RTB CALL
041413,000045: 42,3656 45510 LOADTIME # PICKUP CURRENT TIME SCALED B-28
041414,000046: 42,3657 47477 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
041415,000047: 42,3660 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
041416,000048: 42,3661 27114 CSMCONIC # USING CONIC INTEGRATION
041417,000049: 42,3662 46135 SLOAD BHIZ # ORIGIN OF REFERENCE INERTIAL SYSTEM IS
041418,000050: 42,3663 00050 X2 # EARTH = 0, MOON = 2
041419,000051: 42,3664 65677 EISOI
041420,000052: 42,3665 77775 VLOAD
041421,000053: 42,3666 00001 RATT
041422,000054: 42,3667 00003 STORE RCM # MOVE RATT TO PREVENT WIPEOUT
041423,000055: 42,3670 45145 DLOAD CALL # MOON, PUSH ON
041424,000056: 42,3671 00015 TAT # GET ORIGINAL TIME
041425,000057: 42,3672 54115 LUNPOS # COMPUTE POSITION VECTOR OF MOON
041426,000058: 42,3673 57455 VAD VCOMP # R= -(REM+RCM) = NEG. OF S/C POS. VEC
041427,000059: 42,3674 00003 RCM
041428,000060: 42,3675 77650 GOTO
041429,000061: 42,3676 65701 EISOI +2
041430,000062: 42,3677 57575 EISOI VLOAD VCOMP # EARTH, R= -RCM
041431,000063: 42,3700 00001 RATT
041432,000064: 42,3701 64201 SETPD MXV # RCS TO STABLE MEMBER: B-1X B-29X B+1
041433,000065: 42,3702 00003 2D # 2D
041434,000066: 42,3703 01736 REFSMMAT # STABLE MEMBER. B-1X B-29X B+1= B-29
041435,000067: 42,3704 65372 VSL1 PDDL # 8D
041436,000068: 42,3705 15335 HI6ZEROS
041437,000069: 42,3706 24025 STOVL YAWANG # ZERO OUT YAWANG, SET UP FOR SMNB
041438,000070: 42,3707 00003 RCM # TRANSFORMATION. SM COORD. SCALED B-29
041439,000071: 42,3710 77624 CALL
041440,000072: 42,3711 47644 *SMNB*
041441,000073: 42,3712 00003 STORE R # SAVE NAV. BASE COORDINATES
041442,000074: 42,3713 63256 UNIT PDVL # 14D
041443,000075: 42,3714 00003 R
041444,000076: 42,3715 72431 VPROJ VSL2 # COMPUTE PROJECTION OF VECTOR INTO CM
041445,000077: 42,3716 15327 HIUNITZ # XY-PLANE, R-(R.UZ)UZ
041446,000078: 42,3717 40045 BVSU BOV # CLEAR OVERFLOW INDICATOR IF SET
041447,000079: 42,3720 00003 R
041448,000080: 42,3721 65722 COVCNV
041449,000081: 42,3722 40056 COVCNV UNIT BOV # TEST OVERFLOW FOR INDICATION OF NULL
041450,000082: 42,3723 65737 NOADJUST # VECTOR
041451,000083: 42,3724 50206 PUSH DOT # 20D
041452,000084: # Page 935
041453,000085: 42,3725 15333 HIUNITX # COMPUTE YAW ANGLE = ACOS (URP.UX)
041454,000086: 42,3726 65552 SL1 ACOS # REVOLUTIONS SCALED B0
041455,000087: 42,3727 50315 PDVL DOT # 22D YAWANG
041456,000088: 42,3730 00017 URP
041457,000089: 42,3731 15331 HIUNITY # COMPUTE FOLLOWING: URP.UY
041458,000090: 42,3732 51152 SL1 BPL # POSITIVE
041459,000091: 42,3733 65737 NOADJUST # YES, 0-180 DEGREES
041460,000092: 42,3734 45345 DLOAD DSU # NO, 181-360 DEGREES 20D
041461,000093: 42,3735 15343 DPPOSMAX # COMPUTE 2 PI MINUS YAW ANGLE
041462,000094: 42,3736 77606 PUSH # 22D YAWANG
041463,000095: 42,3737 50375 NOADJUST VLOAD DOT # COMPUTE PITCH ANGLE
041464,000096: 42,3740 00011 UR # ACOS (UR.UZ) - PI/2
041465,000097: 42,3741 15327 HIUNITZ
041466,000098: 42,3742 65552 SL1 ACOS # REVOLUTIONS B0
041467,000099: 42,3743 77625 DSU
041468,000100: 42,3744 15325 HIDP1/4
041469,000101: 42,3745 16321 STODL RHOSB
041470,000102: 42,3746 00025 YAWANG
041471,000103: 42,3747 02323 STORE GAMMASB # PATCH FOR CHECKOUT
041472,000104: 42,3750 77776 EXIT
041473,000105: 42,3751 31044 CA EXTVBACT # IS BIT 5 STILL ON
041474,000106: 42,3752 75013 MASK BIT5
041475,000107: 42,3753 00006 EXTEND
041476,000108: 42,3754 15534 BZF ENDEXT # NO, WE HAVE BEEN ANSWERED
041477,000109: 42,3755 33771 CAF V06N51 # DISPLAY ANGLES
041478,000110: 42,3756 04662 TC BANKCALL
041479,000111: 42,3757 20600 CADR GOMARKFR
041480,000112: 42,3760 05625 TC B5OFF # TERMINATE
041481,000113: 42,3761 05625 TC B5OFF
041482,000114: 42,3762 05217 TC ENDOFJOB # RECYCLE
041483,000115: 42,3763 35015 CAF BIT3 # IMMEDIATE RETURN
041484,000116: 42,3764 05526 TC BLANKET # BLANK R3
041485,000117: 42,3765 35017 CAF BIT1 # DELAY MINIMUM TIME TO ALLOW DISPLAY IN
041486,000118: 42,3766 04662 TC BANKCALL
041487,000119: 42,3767 01732 CADR DELAYJOB
041488,000120: 42,3770 13654 TCF SBANDANT +2
041489,000121: 42,3771 01463 V06N51 VN 0651
041490,000122: 42,3772 RCM EQUALS 2D
041491,000123: 42,3772 UR EQUALS 8D
041492,000124: 42,3772 URP EQUALS 14D
041493,000125: 42,3772 YAWANG EQUALS 20D
041494,000126: 42,3772 PITCHANG EQUALS 22D
041495,000127: 42,3772 0000002 R EQUALS RCM
041496,000128: 42,3772 30,2000 SBANK= LOWSUPER
041497,000129:
End of include-file S-BAND_ANTENNA_FOR_CM.agc. Parent file is MAIN.agc