RIGHT ASCENSION OF GUIDE STAR I (RADIANS)
	cc I		BRA	RS	(1)
	I		SD2	RD		DECLINATION OF GUIDE STAR I (RADIANS)
	cl
	C
	ci		DZBLIJR	L	(1)	A FLAG TO INDICATE WH3THZR ATTITUDE
	cl					MATRIX SHOULD IN ADDITION BE CORRZCTZD
	cl					FOR NOTION DUE TO LIMIT CYCLES
	CI						TRUZ.	CORRECT IT
	cl						rAIJ2.	DON'T CORRECT IT, BECAUSE
	cl						THE BLURRING is EITHER TO BE IGNORED
	cl						OR TO BE HANDLED OUTSIDE THIS S/W.
	C
	CO	OUTPUT ATTC	RD	(3,3)	3-AXIS ATTITUDE AT TIME OF *FMT5UlF"
	CO					CORRECTED IF NZCZSSARY FOR FSS/DZBLURRING
	C
	CO		IRET			RZTURN CODE	-
	CO					- 0 NO ERROR
	CO					BIT 15 (-LSB) SET IT ITERATIONS DON#T
	CO							CONVERGE IN NSUNCON ROUTINE
	CO					BIT 14 SET IF UNRZCOGMISABLE FORMAT
	C
CS	DROTX	ROTATZS	AN ATTITUDE MATRIX AROUND X,Y OR Z AXIS
CS	BUNCO	RECOMPUTE THE ATTITUDE MATRIX AS FUNCTION OF
cs		STAR RZrZRENCZ POSITION AND rSS MEASUREMENTS
CS	KVW	MOVE n 16-BIT WORDS FROM 2ND ARGUMENT To 3RD.
C
C
IMPLICIT RZAL*S (A-H,O-Z)	cq
LOGICAL DZBLUR*SUMPRE
INTEGZR*2 riffBur(l),A5289,AI03,AO59,LI,L2,L3
INTZGZR*4 14,D32768
RZAL*8 ATTI(3,3),ArrC(3,3),SUN(3),ZRR(3)
INTEGZR*2 12(2)
EQUIVALZNCZ (14,12)
DATA D32768/32768/
DATA SZCA/.206264806247096D+06/	IRADS TO ARC SZCS
DATA SZCFSH/2417.1656982082/	I	FSS HIGH-GAIN UNITS (256/3-)
		DATA SZCrSW38674.651271331/	I	rS3 LOW-GAIN UNITS (16/3")
		DATA A5289/709/
		DATA A103/182/
		DATA A059/175/
		IRET-0
C	COPY ATTI INTO ATTC
		CALL KVW(36,ATTI,Arrc)
C CHECK FOR 2 STAR MODZ
		IF(ISTRZ.NZ.O)THZN
C EXTRACT ICRS, WHICH IS PARAMETER A528. IT IS A 4-B!T PARANETZR, BUT
C HERZ ONLY ONE BIT IS USED (THE LSD) CALLED "ICRS I
C EXTRACT ICrL TOO (A529)
	I-ISHrT(rmTsur(A5289).-7)
	ICFL-IAND(I, 1)
	ICRSI-IAND(1/2,I)
C IF THE MONITORING IS ON ONE STAR AND SUN THE INZRTIAL X (ROLL)
C ERROR 15 NOT RELIABLE AND HZEDS TO BE RZCOMPUTED FROM FSS MEAS.
C ALSO, CHECK SUN PRt$ZNCZ INDICATOR FOR rSS IX (AI03, Fit 13, NO 10 BT 6)
	SUNPRZ-IAND(FKTBUY(AI03).OOIOOOB).NZ.0
	IF(ICRSI.EQ.0-AND-ICFL.EQ.O.AND.SUNPRZ)THEN
C RETRIEVE FSS GAIN SELECTION (PARAM.AO59, FRAME 12,WORD 13, BIT 0)
	IGAIN-IAND(ISHFT(FmTBUr(Ao5g),-7),I)
C RETRIEVE AND SUM ALL FOUR YSS MEASUREMENTS FROM TLM FORMAT
C PARAM.A163. FRAME 1, WORD 15, BITS 0-7
	JCOUNT-0
N5
Lyl.:;O
L2-472