# Copyright: Public domain. # Filename: S-BAND_ANTENNA_FOR_CM.agc # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. # It is part of the source code for the Command Module's (CM) # Apollo Guidance Computer (AGC), for Apollo 11. # Assembler: yaYUL # Contact: Jim Lawton . # Website: www.ibiblio.org/apollo. # Pages: 934-935 # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file # of the same name, using Comanche055 page # images. # # This source code has been transcribed or otherwise adapted from digitized # images of a hardcopy from the MIT Museum. The digitization was performed # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are # illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA # 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A # Page 934 # S-BAND ANTENNA FOR CM BANK 23 SETLOC SBAND BANK COUNT* $$/R05 EBANK= EMSALT SBANDANT TC BANKCALL # V 64 E GETS US HERE CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED TC INTPRET RTB CALL LOADTIME # PICKUP CURRENT TIME SCALED B-28 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1 CSMCONIC # USING CONIC INTEGRATION SLOAD BHIZ # ORIGIN OF REFERENCE INERTIAL SYSTEM IS X2 # EARTH = 0, MOON = 2 EISOI VLOAD RATT STORE RCM # MOVE RATT TO PREVENT WIPEOUT DLOAD CALL # MOON, PUSH ON TAT # GET ORIGINAL TIME LUNPOS # COMPUTE POSITION VECTOR OF MOON VAD VCOMP # R= -(REM+RCM) = NEG. OF S/C POS. VEC RCM GOTO EISOI +2 EISOI VLOAD VCOMP # EARTH, R= -RCM RATT SETPD MXV # RCS TO STABLE MEMBER- B-1X B-29X B+1 2D # 2D REFSMMAT # STABLE MEMBER. B-1X B-29X B+1= B-29 VSL1 PDDL # 8D HI6ZEROS STOVL YAWANG # ZERO OUT YAWANG, SET UP FOR SMNB RCM # TRANSFORMATION. SM COORD. SCALED B-29 CALL *SMNB* STORE R # SAVE NAV. BASE COORDINATES UNIT PDVL # 14D R VPROJ VSL2 # COMPUTE PROJECTION OF VECTOR INTO CM HIUNITZ # XY-PLANE, R-(R.UZ)UZ BVSU BOV # CLEAR OVERFLOW INDICATOR IF SET R COVCNV COVCNV UNIT BOV # TEST OVERFLOW FOR INDICATION OF NULL NOADJUST # VECTOR PUSH DOT # 20D # Page 935 HIUNITX # COMPUTE YAW ANGLE = ACOS (URP.UX) SL1 ACOS # REVOLUTIONS SCALED B0 PDVL DOT # 22D YAWANG URP HIUNITY # COMPUTE FOLLOWING- URP.UY SL1 BPL # POSITIVE NOADJUST # YES, 0- 180 DEGREES DLOAD DSU # NO, 181-360 DEGREES 20D DPPOSMAX # COMPUTE 2 PI MINUS YAW ANGLE PUSH # 22D YAWANG NOADJUST VLOAD DOT # COMPUTE PITCH ANGLE UR # ACOS (UR.UZ) - PI/2 HIUNITZ SL1 ACOS # REVOLUTIONS B0 DSU HIDP1/4 STODL RHOSB YAWANG STORE GAMMASB # PATCH FOR CHECKOUT EXIT CA EXTVBACT # IS BIT 5 STILL ON MASK BIT5 EXTEND BZF ENDEXT # NO, WE HAVE BEEN ANSWERED CAF V06N51 # DISPLAY ANGLES TC BANKCALL CADR GOMARKFR TC B5OFF # TERMINATE TC B5OFF TC ENDOFJOB # RECYCLE CAF BIT3 # IMMEDIATE RETURN TC BLANKET # BLANK R3 CAF BIT1 # DELAY MINIMUM TIME TO ALLOW DISPLAY IN TC BANKCALL CADR DELAYJOB TCF SBANDANT +2 V06N51 VN 0651 RCM EQUALS 2D UR EQUALS 8D URP EQUALS 14D YAWANG EQUALS 20D PITCHANG EQUALS 22D R EQUALS RCM SBANK= LOWSUPER