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