proof(luminary): S-BAND_ANTENNA_FOR_LM (#696)

This commit is contained in:
James Harris 2020-09-02 16:21:58 +01:00 committed by GitHub
parent 05e8a67191
commit 8056927e8c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -28,7 +28,7 @@
# 16:27 JULY 14, 1969
# Page 486
# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM
# SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
#
# MOD0 BY T. JAMES
# MOD1 BY P. SHAKIR
@ -41,11 +41,11 @@
# 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
# 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
#
# SUBROUTINES CALLED ---
# SUBROUTINES CALLED-
# R02BOTH
# INTPRET
# LOADTIME
@ -56,7 +56,7 @@
# BANKCALL
# B50OFF
# ENDOFJOB
# BLANKRET
# BLANKET
#
# RETURNS WITH
# PITCH ANGLE IN PITCHANG REV. B0
@ -128,7 +128,7 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
UNIT PDVL
# Page 488
RLM
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE.
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE
HIUNITY
BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
RLM
@ -189,7 +189,7 @@ SBANDEX EXIT
TC BLANKET # BLANK R3
CAF PRIO4
TC PRIOCHNG
TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES.
TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES
V06N51 VN 0651
1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
@ -197,5 +197,4 @@ UR EQUALS 0D
URP EQUALS 6D
SBANK= LOWSUPER
# END OF LNYAIDE .001 ***
# *** END OF LNYAIDE .001 ***