finished though p945

pull/829/head
serialhex 2021-10-15 11:44:44 -04:00
parent c0b4127fbc
commit 2db9dcb289
1 changed files with 15 additions and 14 deletions

View File

@ -776,12 +776,12 @@ GYCOARS STQ CALL
V16N20 VN 1620 V16N20 VN 1620
# Page 945 # Page 945
# R55 GYRO TORQUE # R55 GYRO TORQUE
# FUNCTION -- COMPUTE AND SEND GYRO PULSES # FUNCTION-COMPUTE AND SEND GYRO PULSES
# CALLING SEQ -- CALL R55 # CALLING SEQ- CALL R55
# INPUT -- X,Y,ZDC -- REFSMMAT WRT PRESENT STABLE MEMBER # INPUT- X,Y,ZDC- REFSMMAT WRT PRESENT STABLE MEMBER
# OUTPUT -- GYRO PULSES # OUTPUT- GYRO PULSES
# SUBROUTINES -- CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1 # SUBROUTINES- CALCGTA,GOFLASH,GODSPR,IMUFINE,IMUPULSE,GOPERF1
COUNT* $$/R55 COUNT* $$/R55
R55 STQ R55 STQ
@ -813,20 +813,21 @@ V06N93 VN 0693
R55CDR ECADR OGC R55CDR ECADR OGC
R54 = CHKSDATA R54 = CHKSDATA
# ROUTINE NAME -- CHKSDATA DATE -- JAN 9, 1967 # ROUTINE NAME- CHKSDATA DATE- JAN 9, 1967
# MOD NO -- 0 LOG SECTION -- P51-P53 # MOD NO- 0 LOG SECTION- P51-P53
# MODIFICATION BY -- LONSKE ASSEMBLY -- # 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 # 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 # OS1 = OBSERVED STAR 1 VECTOR
# OS2 = OBSERVED STAR 2 VECTOR # OS2 = OBSERVED STAR 2 VECTOR
# SS1 = STORED STAR 1 VECTOR # SS1 = STORED STAR 1 VECTOR
# SS2 = STORED STAR 2 VECTOR # SS2 = STORED STAR 2 VECTOR
# A1 = ARCCOS(OS1 - OS2) # A1 = ARCCOS(OS1 - OS2)
# A2 = ARCCOS(SS1 - SS2) # A2 = ARCCOS(SS1 - SS2)
# A = ABS(2(A1 - A2)) # A = ABS(2(A1 - A2))
# Page 946 # Page 946
# THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE. # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE.
# #