From 2db9dcb289631a35f4987c38541b09089c860507 Mon Sep 17 00:00:00 2001 From: serialhex Date: Fri, 15 Oct 2021 11:44:44 -0400 Subject: [PATCH] finished though p945 --- Luminary099/P51-P53.agc | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index be9b69d..bf58e4d 100644 --- a/Luminary099/P51-P53.agc +++ b/Luminary099/P51-P53.agc @@ -776,12 +776,12 @@ GYCOARS STQ CALL V16N20 VN 1620 # Page 945 -# R55 GYRO TORQUE -# FUNCTION -- COMPUTE AND SEND GYRO PULSES -# CALLING SEQ -- CALL R55 -# INPUT -- X,Y,ZDC -- REFSMMAT WRT PRESENT STABLE MEMBER -# OUTPUT -- GYRO PULSES -# SUBROUTINES -- CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1 +# R55 GYRO TORQUE +# FUNCTION-COMPUTE AND SEND GYRO PULSES +# CALLING SEQ- CALL R55 +# INPUT- X,Y,ZDC- REFSMMAT WRT PRESENT STABLE MEMBER +# OUTPUT- GYRO PULSES +# SUBROUTINES- CALCGTA,GOFLASH,GODSPR,IMUFINE,IMUPULSE,GOPERF1 COUNT* $$/R55 R55 STQ @@ -813,20 +813,21 @@ V06N93 VN 0693 R55CDR ECADR OGC R54 = CHKSDATA -# ROUTINE NAME -- CHKSDATA DATE -- JAN 9, 1967 -# MOD NO -- 0 LOG SECTION -- P51-P53 -# MODIFICATION BY -- LONSKE ASSEMBLY -- +# ROUTINE NAME- CHKSDATA DATE- JAN 9, 1967 +# MOD NO- 0 LOG SECTION- P51-P53 +# MODIFICATION BY- LONSKE ASSEMBLY- # -# FUNCTIONAL DESCRIPTION -- CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE +# FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE -# COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED -- +# COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_ +# # OS1 = OBSERVED STAR 1 VECTOR # OS2 = OBSERVED STAR 2 VECTOR # SS1 = STORED STAR 1 VECTOR -# SS2 = STORED STAR 2 VECTOR -# A1 = ARCCOS(OS1 - OS2) +# SS2 = STORED STAR 2 VECTOR +# A1 = ARCCOS(OS1 - OS2) # A2 = ARCCOS(SS1 - SS2) -# A = ABS(2(A1 - A2)) +# A = ABS(2(A1 - A2)) # Page 946 # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE. #