fix: (Issue #569) page 0357

This commit is contained in:
Sudhish2607 2020-10-29 01:38:04 -05:00
parent 11669b7fea
commit 8873d6c91a

View File

@ -712,10 +712,10 @@ MINANG 2DEC 0.00069375
MAXANG 2DEC 0.472222222
# GIMBAL LOCK CONSTANTS
# GIMBAL LOCK CONSTANTS
# D = MGA CORRESPONDING TO GIMBAL LOCK = 60 DEGREES
# NGL = BUFFER ANGLE (TO AVOID DIVISIONS BY ZERO) = 2 DEGREES
# NGL = BUFFER ANGLE (TO AVOID DIVISIONS BY ZERO) = 2 DEGREES
SD 2DEC .433015 # = SIN(D) $2
@ -734,10 +734,11 @@ LOCKANGL DEC .388889 # = 70 DEGREES
# INTERPRETIVE SUBROUTINE TO READ THE CDU ANGLES
READCDUK CA CDUZ # LOAD T(MPAC) WITH CDU ANGLES
TS MPAC +2
TS MPAC +2
EXTEND
DCA CDUX # AND CHANGE MODE TO TRIPLE PRECISION
TCF TLOAD +6
TCF TLOAD +6
CDUTODCM AXT,1 SSP
OCT 3
@ -749,6 +750,7 @@ CDUTODCM AXT,1 SSP
LOOPSIN SLOAD* RTB
10D,1
CDULOGIC
# Page 358
STORE 10D # LOAD PD WITH 0 SIN(PHI)
SIN PDDL # 2 COS(PHI)