diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index 3721df960..bf58e4df0 100644 --- a/Luminary099/P51-P53.agc +++ b/Luminary099/P51-P53.agc @@ -433,46 +433,46 @@ CSUN = 16D CMOON = 18D CSS5 2DEC .2490475 # (COS 5)/4 CSSUN 2DEC .125 # (COS 60)/4 -5DEGREES 2DEC .013888889 # SCALED IN REVS +5DEGREES 2DEC .013888889 # SCALED IN REVS # Page 937 -# PROGRAM NAME -- R56 DATE: DEC 20 66 -# MOD 1 LOG SECTION: P51-P53 -# ASSEMBLY: SUNDISK REV4D +# PROGRAM NAME - R56 DATE DEC 20 66 +# MOD 1 LOG SECTION P51-P53 +# ASSEMBLY SUNDISK REV40 # BY KEN VINCENT # # FUNCTION -# THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION -# WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX) -# WITH RESPECT TO REFERENCE INTERTIAL. EACH STAR IN THE CATALOG IS TESTED -# TO DETERMIN IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON. IF A -# STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STARS OF LOWER INDEX. -# THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS -# THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS -# HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 100 DEGREES -# AND MORE THAN 50 DEGREES. THOSE PAIRS WITH GOOD SEPARATION -# ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN -# 50 DEGREES OF SAX). THE PAIR WITH MAX SEPARATION IS CHOSEN FROM -# THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW. +# THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION +# WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX) +# WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED +# TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH,SUN OR MOON. IF A +# STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX. +# THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS +# THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.A PAIR OF STARS +# HAVE GOOD SEPERATION IF THE ANGLE BETWEEN THEM IS LESS THAN 100 DEGREES +# AND MORE THAN 50 DEGREES. THOSE PAIRS WITH GOOD SEPARATION +# ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.(WITHIN +# 50 DEGREESOF SAX).THE PAIR WITH MAX SEPARATION IS CHOSEN FROM +# THOSE WITH GOOD SEPARATION,AND IN FIELD OF VIEW. # # CALLING SEQUENCE -# L TC BANKCALL -# L+1 CADR R56 -# L+2 ERROR RETURN -- NO STARS IN FIELD OF VIEW -# L+3 NORMAL RETURN +# L TC BANKCALL +# L+1 CADR R56 +# L+2 ERROR RETURN - NO STARS IN FIELD OF VIEW +# L+3 NORMAL RETURN # # OUTPUT -# BESTI, BESTJ -- SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6 -# VFLAG -- FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW +# BESTI,BESTJ -SINGLE PREC,INTEGERS,STAR NUMBERS TIMES 6 +# VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW # # INITIALIZATION -# 1) A CALL TO LOCSAM MUST BE MADE +# 1)A CALL TO LOCSAM MUST BE MADE # # DEBRIS -# WORKAREA -# X,Y,ZNB -# SINCDU, COSCDU -# STARAD -- STAR +5 +# WORKAREA +# X,Y,ZNB +# SINCDU,COSCDU +# STARAD - STAR +5 R56 = PICAPAR COUNT* $$/R56 @@ -495,13 +495,13 @@ PICAPAR TC MAKECADR HALFDP ZNB AXT,1 VXSC - 228D # X1 = 37 X 6 + 6 + 228D # X1 = 37 X 6 +6 HALFDP VAD VXM UNIT REFSMMAT STORE SAX # SAX = SHAFT AXIS - SSP SSP # S1 = S2 = 6 + SSP SSP # S1=S2=6 S1 6 S2 @@ -585,7 +585,9 @@ CULTED SETGO QPRET CSS = CEARTH CSS40 2DEC .16070 # COS 50 / 4 -CSS33 2DEC .16070 # COS 50 / 4 + +CSS33 2DEC .16070 # COS 50 / 4 + PICEND BOFF EXIT # Page 940 @@ -620,12 +622,12 @@ DP0 = 30D DP1 = 32D # Page 941 -# NAME -- R51 FINE ALIGN -# FUNCTION -- TO ALIGN THE STABLE MEMBER TO REFSSMAT -# CALLING SEQ -- CALL R51 -# INPUT -- REFSMMAT -# OUTPUT -- GYRO TORQUE PULSES -# SUBROUTINES -- LOCSAM, PICAPAR, R52, R53, R54, R55 +# NAME-R51 FINE ALIGN +# FUNCTION-TO ALIGN THE STABLE MEMBER TO REFSSMAT +# CALLING SEQ- CALL R51 +# INPUT - REFSMMAT +# OUTPUT- GYRO TORQUE PULSES +# SUBROUTINES -LOCSAM,PICAPAR,R52,R53,R54,R55 COUNT* $$/R51 R51 STQ @@ -774,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 @@ -811,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. # @@ -2338,4 +2341,3 @@ LSORIENT STQ VLOAD XSMD STCALL YSMD QMAJ -