**	UDREGN SINUS TIL EN VINKEL MED TAYLORS FORMAL FOR APPROKSIMATION
**	AF FUNKTIONER.

*******************************************************************************

START	MOVE.L	#45,D0	; VINKEL
	JSR	SINUS	; UDREGN SINUS TIL VINKEL
	RTS
	
AMPLITUDE = 30

SINUS	MULS	#256,D0		; VINKEL * 256
	MOVE.W	#90*256,D2	; VINKELSTYKKER FOR 1/4 CIRKEL
	DIVS	D2,D0
	BPL.W	SINUS2		; OMFORM TIL VINKEL MELLEM -90° TIL 90°
	NEG.W	D0
	NEG.W	D2
SINUS2	MOVE.W	D0,D1
	SWAP	D0
	LSR.W	#1,D1
	BCC.S	SINUS3
	SUB.W	D0,D2
	MOVE.W	D2,D0
SINUS3	LSR.W	#1,D1
	BCC.S	SINUS4
	NEG.W	D0
SINUS4	MULS	#18301,D0	; 3.14159/180*65536*16
	SWAP	D0
	MOVEQ	#12,D1
	MOVE.L	#$0800,D4
	MOVE.W	D0,D2
	MULS	D0,D2
	ADD.L	D4,D2
	ASR.L	D1,D2
	MOVE.W	D2,D3
	MULS	D0,D2
	ADD.L	D4,D2
	ASR.L	D1,D2
	MULS	D2,D3
	ADD.L	D4,D3
	ASR.L	D1,D3
	DIVS	#6,D2
	DIVS	#120,D3
	SUB.W	D2,D0
	ADD.W	D3,D0
	ADDQ.W	#8,D0
	ASR.W	#4,D0

	muls	#AMPLITUDE,d0
	divs	#256,d0

	EXT.L	D0
	RTS