; $SIN OBJECT TO MACRO CONVERSION V01.1 13-AUG-86 18:35
	.TITLE	$SIN	
;
	.IDENT	/F40002/
	.PSECT	OTS$I	,I,LCL,RW,CON
	.ENABL	LSB
COS::	
	SETD	
	LDCDF	@2(R5),%0
	ADDF	150$,%0
	BR	22$
SIN::	
	SETD	
	LDCDF	@2(R5),%0
22$:	SETI	
	MOV	#150$,R0
	CLR	R4
	CFCC	
	BGE	42$
	INC	R4
	ABSF	R0
42$:	DIVF	(R0)+,%0
	MODF	#^F.25,%0
	SETF	
	LDCDF	R0,%0
	CFCC	
	BEQ	140$
	MODF	#^F4.0,%0
	STCFI	%1,R1
	ROR	R1
	BCC	100$
	NEGF	R0
	ADDF	#^F1.0,%0
100$:	ROR	R1
	BCC	106$
	NEGF	R0
106$:	LDF	R0,%2
	MULF	R2,%2
	MOV	#4,R1
	LDF	(R0)+,%1
120$:	MULF	R2,%1
	DEC	R1
	ADDF	(R0)+,%1
	BGT	120$
	MULF	R1,%0
	TST	R4
	BEQ	140$
	NEGF	R0
140$:	STF	%0,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
	RTS	PC
150$:	.word	040311,007732
	.word	121041,064302
	.word	035036,153672
	.word	136231,023143
	.word	037243,032130
	.word	140045,056741
	.word	040311,007733
	.DSABL	LSB
	.END