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