diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index 3721df9..be9b69d 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 @@ -2338,4 +2340,3 @@ LSORIENT STQ VLOAD XSMD STCALL YSMD QMAJ -