2016-07-07 08:47:26 +00:00
|
|
|
# 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 <jim.lawton@gmail.com>.
|
|
|
|
|
# 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
|
2016-12-28 16:11:25 +00:00
|
|
|
# 2021113-051. 10:28 APR. 1, 1969
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
|
|
|
|
# This AGC program shall also be referred to as
|
|
|
|
|
# Colossus 2A
|
|
|
|
|
|
|
|
|
|
# Page 934
|
|
|
|
|
# S-BAND ANTENNA FOR CM
|
|
|
|
|
|
|
|
|
|
BANK 23
|
|
|
|
|
SETLOC SBAND
|
|
|
|
|
BANK
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
COUNT* $$/R05
|
|
|
|
|
EBANK= EMSALT
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
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
|
2018-03-23 02:07:02 +00:00
|
|
|
SETPD MXV # RCS TO STABLE MEMBER- B-1X B-29X B+1
|
2016-07-07 08:47:26 +00:00
|
|
|
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
|
2018-03-23 02:07:02 +00:00
|
|
|
HIUNITY # COMPUTE FOLLOWING- URP.UY
|
2016-07-07 08:47:26 +00:00
|
|
|
SL1 BPL # POSITIVE
|
2018-03-23 02:07:02 +00:00
|
|
|
NOADJUST # YES, 0- 180 DEGREES
|
2016-07-07 08:47:26 +00:00
|
|
|
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
|
