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