diff --git a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc index 17a6004..f6b8320 100644 --- a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc +++ b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc @@ -465,7 +465,7 @@ GTSCADR 2CADR GTS QERRCALC CAE CDUY # Q-ERROR CALCULATION EXTEND - MSU CDUYD # CDU ANGLE -- ANGLE DESIRED (Y-AXIS) + MSU CDUYD # CDU ANGLE - ANGLE DESIRED (Y-AXIS) TS DAPTEMP1 # SAVE FOR RERRCALC EXTEND MP M21 # (CDUY-CDUYD)*M21 SCALED AT PI RADIANS @@ -541,7 +541,7 @@ TJLAW CA TJLAWADR TS NUMBERT # FALL THROUGH TO JET SELECTION, ETC. # Q,R-JET-SELECTION-LOGIC -# + # INPUT: AXISCTR 0,1 FOR U,V # SNUFFBIT ZERO TJETU,V AND TRANS. ONLY IF SET IN A DPS BURN # Page 1453 @@ -551,9 +551,9 @@ TJLAW CA TJLAWADR # # OUTPUT: NO.U(V)JETS RATE DERIVATION FEEDBACK # CHANNEL 5 -# SKIPU,SKIPV FOR LESS THAN 150MS FIRING +# SKIPU,SKIRV FOR LESS THAN 150MS FIRING # -# NOTES: IN CASE OF FAILURE IN DESIRED ROTATION POLICY, "ALL" UNFAILED +# NOTES: IN CASE OF FAILURE IN DESIRED ROTATION POLICY,"ALL" UNFAILED # JETS OF THE DESIRED POLICY ARE SELECTED. SINCE THERE ARE ONLY # TWO JETS, THIS MEANS THE OTHER ONE OR NONE. THE ALARM IS SENT # IF NONE CAN BE FOUND. @@ -562,7 +562,7 @@ TJLAW CA TJLAWADR # MINIMUM IMPULSE, WITH THE JET CHOSEN SEMI-RANDOMLY. AFTERTJ CA FLAGWRD5 # IF SNUFFBIT SET DURING A DPS BURN GO TO - MASK SNUFFBIT # XTRANS; THAT IS, INHIBIT CONTROL. + MASK SNUFFBIT # XTRANS; THAT IS, INHIBIT CONTROL. EXTEND BZF DOROTAT CS FLGWRD10 @@ -588,7 +588,7 @@ DOROTAT CAF TWO CA AXISCTR AD L - TS ROTINDEX # 0 1 2 3 = -U -V +U +V + TS ROTINDEX # 0 1 2 3 = -U -V -+U +V CA ABSTJ AD -150MS @@ -712,30 +712,30 @@ TJLAWADR GENADR TJLAW +3 # RETURN ADDRESS FOR RCS ATTITUDE CONTROL # TS T6FURTHA +1 # TC JTLST # -# EXAMPLE -- U-AXIS AUTOPILOT WILL WRITE ITS ROTATION CODE OF +# EXAMPLE- U-AXIS AUTOPILOT WILL WRITE ITS ROTATION CODE OF # JETS INTO CHANNEL 5. IF IT DESIRES TO TURN OFF THIS POLICY WITHIN # 150MS AND THEN FIRE NEXTU, A CALL TO JTLST IS MADE WITH T6FURTHA # CONTAINING THE TIME TO TURN OFF THE POLICY, T6FURTHA +1 THE INDEX # OF THE U-AXIS(4), AND NEXTU WILL CONTAIN THE "U-TRANS" POLICY OR ZERO. # -# THE LIST IS EXACTLY 3 LONG. (THIS LEADS UP TO SKIP LOGIC AND 150MS LIMIT) -# THE INPUT IS THE LAST MEMBER OF THE LIST. +# THE LIST IS EXACTLY 3 LONG.(THIS LEADS UP TO SKIP LOGIC AND 150MS LIMIT) +# THE INPUT IS THE LAST MEMBER OF THE LIST. # # RETURNS BY: # + TC Q # -# DEFINITIONS: (OUTPUT) -# TIME6 TIME OF NEXT RUPT -# T6NEXT DELTA TIME TO NEXT RUPT -# T6FURTHA DELTA TIME FROM 2ND TO LAST RUPT -# NXT6ADR AXIS INDEX 0 -- P-AXIS -# T6NEXT +1 AXIS INDEX 4 -- U-AXIS -# T6FURTHA +1 AXIS INDEX 13 -- V-AXIS +# DEFINITIONS:(OUTPUT) +# TIME6 TIME OF NEXT RUPT +# T6NEXT DELTA TIME TO NEXT RUPT +# T6FURTHA DELTA TIME FROM 2ND TO LAST RUPT +# NXT6ADR AXIS INDEX Q - P-AXIS +# T6NEXT +1 AXIS INDEX 4 - U-AXIS +# T6FURTHA +1 AXIS INDEX 13 - V-AXIS JTLST CS T6FURTHA AD TIME6 EXTEND - BZMF MIDORLST # TIME6 -- TI IS IN A + BZMF MIDORLST # TIME6 -- T IS IN A LXCH NXT6ADR DXCH T6NEXT @@ -767,9 +767,9 @@ LASTCHG CS A TC Q -# ROT-TOUV IS ENTERED WITH THE Q-COMPONENT OF THE QUANTITY TO BE TRANSFORMED IN A AND THE R-COMPONENT IN L. -# ROT-TOUV TRANSFORMS THE QUANTITY INTO THE NON-ORTHOGONAL U-V AXIS SYSTEM. IN THE U-V SYSTEM NO CROSS-COUPLING IS -# PRODUCED FROM RCS JET FIRINGS. AT THE COMPLETION OF ROT-TOUV, THE U-COMPONENT OF THE TRANSFORMED QUANTITY IS IN +# ROT-TOUV IS ENTERED WITH THE Q-COMPONENT OF THE QUANTITY TO BE TRANSFORMED IN A AND THE R-COMPONENT IN L. +# ROT-TOUV TRANSFORMS THE QUANTITY INTO THE NON-ORTHOGONAL U-V AXIS SYSTEM. IN THE U-V SYSTEM NO CROSS-COUPLING IS +# PRODUCED FROM RCS JET FIRINGS. AT THE COMPLETION OF ROT-TOUV, THE U-COMPONENT OF THE TRANSFORMED QUANTITY IS IN # A AND THE V-COMPONENT IS IN L. ROT-TOUV LXCH ROTEMP2 # (R) IS PUT INTO ROTEMP2 @@ -822,15 +822,16 @@ FAILOOP TS NUMBERT TC ALARM OCT 02004 TCF NOROTAT -ALLJETS OCT 00110 # -U 6 13 - OCT 00022 # -V 2 9 - OCT 00204 # +U 5 14 - OCT 00041 # +V 1 10 -TYPEPOLY OCT 00125 # -X 1 5 9 13 - OCT 00252 # +X 2 6 10 14 - OCT 00146 # A 2 5 10 13 - OCT 00231 # B 1 6 9 14 - OCT 00377 # ALL 1 2 5 6 9 10 13 14 +ALLJETS OCT 00110 # -U 6 13 + OCT 00022 # -V 2 9 + OCT 00204 # +U 5 14 + + OCT 00041 # +V 1 10 +TYPEPOLY OCT 00125 # -X 1 5 9 13 + OCT 00252 # +X 2 6 10 14 + OCT 00146 # A 2 5 10 13 + OCT 00231 # B 1 6 9 14 + OCT 00377 # ALL 1 2 5 6 9 10 13 14 # THE FOLLOWING SETS THE INTERRUPT FLIP-FLOP AS SOON AS POSSIBLE, WHICH PERMITS A RETURN TO THE INTERRUPTED JOB. @@ -856,5 +857,4 @@ ENDJASK DXCH DAPARUPT COUNT* $$/DAP MAKERUPT EXTEND - EDRUPT MAKERUPT - + EDRUPT MAKERUPT \ No newline at end of file