proof(luminary): S-BAND_ANTENNA_FOR_LM (#696)
James Harris
GitHub
parent
05e8a67191
commit
8056927e8c
|
|
@ -28,24 +28,24 @@
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 486
|
# Page 486
|
||||||
# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM
|
# SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
|
||||||
#
|
#
|
||||||
# MOD0 BY T. JAMES
|
# MOD0 BY T. JAMES
|
||||||
# MOD1 BY P. SHAKIR
|
# MOD1 BY P. SHAKIR
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
#
|
#
|
||||||
# THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
|
# THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
|
||||||
# YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
|
# YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
|
||||||
# TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
|
# TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
|
||||||
# NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
|
# NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
|
||||||
# SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
|
# SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
|
||||||
# ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
|
# ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
|
||||||
# SPHERE OF INFLUENCE, RESPECTIVELY.
|
# SPHERE OF INFLUENCE, RESPECTIVELY
|
||||||
#
|
#
|
||||||
# TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
|
# TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED ---
|
# SUBROUTINES CALLED-
|
||||||
# R02BOTH
|
# R02BOTH
|
||||||
# INTPRET
|
# INTPRET
|
||||||
# LOADTIME
|
# LOADTIME
|
||||||
|
|
@ -56,7 +56,7 @@
|
||||||
# BANKCALL
|
# BANKCALL
|
||||||
# B50OFF
|
# B50OFF
|
||||||
# ENDOFJOB
|
# ENDOFJOB
|
||||||
# BLANKRET
|
# BLANKET
|
||||||
#
|
#
|
||||||
# RETURNS WITH
|
# RETURNS WITH
|
||||||
# PITCH ANGLE IN PITCHANG REV. B0
|
# PITCH ANGLE IN PITCHANG REV. B0
|
||||||
|
|
@ -100,13 +100,13 @@ CONV3 CALL
|
||||||
GOTO
|
GOTO
|
||||||
CONV5
|
CONV5
|
||||||
CONV4 VLOAD
|
CONV4 VLOAD
|
||||||
RATT # UE = -UNIT(RATT) EARTH SPHERE
|
RATT # UE = -UNIT(RATT) EARTH SPHERE
|
||||||
CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
|
CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
|
||||||
0D # SET PL POINTER TO 0
|
0D # SET PL POINTER TO 0
|
||||||
VCOMP CALL
|
VCOMP CALL
|
||||||
CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
|
CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
|
||||||
MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO
|
MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO
|
||||||
REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1
|
REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1
|
||||||
PUSH DLOAD # 8D
|
PUSH DLOAD # 8D
|
||||||
HI6ZEROS
|
HI6ZEROS
|
||||||
STORE PITCHANG
|
STORE PITCHANG
|
||||||
|
|
@ -123,27 +123,27 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
|
||||||
DAD DMP
|
DAD DMP
|
||||||
RLM
|
RLM
|
||||||
1OVSQRT2
|
1OVSQRT2
|
||||||
STOVL RLM # R B-1
|
STOVL RLM # R B-1
|
||||||
RLM
|
RLM
|
||||||
UNIT PDVL
|
UNIT PDVL
|
||||||
# Page 488
|
# Page 488
|
||||||
RLM
|
RLM
|
||||||
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE.
|
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE
|
||||||
HIUNITY
|
HIUNITY
|
||||||
BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
|
BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
|
||||||
RLM
|
RLM
|
||||||
COVCNV
|
COVCNV
|
||||||
COVCNV UNIT BOV # EXIT ON OVERFLOW
|
COVCNV UNIT BOV # EXIT ON OVERFLOW
|
||||||
SBANDEX
|
SBANDEX
|
||||||
PUSH VXV # URP VECTOR B-1
|
PUSH VXV # URP VECTOR B-1
|
||||||
HIUNITZ
|
HIUNITZ
|
||||||
VSL1 VCOMP # UZ X URP = -(URP X UZ)
|
VSL1 VCOMP # UZ X URP = -(URP X UZ)
|
||||||
STORE RLM # X VEC B-1
|
STORE RLM # X VEC B-1
|
||||||
DOT PDVL # SGN(X.UY) UNSCALED
|
DOT PDVL # SGN(X.UY) UNSCALED
|
||||||
HIUNITY
|
HIUNITY
|
||||||
RLM
|
RLM
|
||||||
ABVAL SIGN
|
ABVAL SIGN
|
||||||
ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0
|
ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0
|
||||||
STOVL PITCHANG
|
STOVL PITCHANG
|
||||||
URP
|
URP
|
||||||
DOT BPL
|
DOT BPL
|
||||||
|
|
@ -157,7 +157,7 @@ NOADJUST VLOAD VXV
|
||||||
UR # Z = (UR X URP)
|
UR # Z = (UR X URP)
|
||||||
URP
|
URP
|
||||||
VSL1
|
VSL1
|
||||||
STODL RLM # Z VEC B-1
|
STODL RLM # Z VEC B-1
|
||||||
PITCHANG
|
PITCHANG
|
||||||
SIN VXSC
|
SIN VXSC
|
||||||
HIUNITZ
|
HIUNITZ
|
||||||
|
|
@ -189,7 +189,7 @@ SBANDEX EXIT
|
||||||
TC BLANKET # BLANK R3
|
TC BLANKET # BLANK R3
|
||||||
CAF PRIO4
|
CAF PRIO4
|
||||||
TC PRIOCHNG
|
TC PRIOCHNG
|
||||||
TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES.
|
TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES
|
||||||
V06N51 VN 0651
|
V06N51 VN 0651
|
||||||
1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
|
1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
|
||||||
|
|
||||||
|
|
@ -197,5 +197,4 @@ UR EQUALS 0D
|
||||||
URP EQUALS 6D
|
URP EQUALS 6D
|
||||||
SBANK= LOWSUPER
|
SBANK= LOWSUPER
|
||||||
|
|
||||||
# END OF LNYAIDE .001 ***
|
# *** END OF LNYAIDE .001 ***
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue