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