.TITLE DSC  SIN-COS
	.GLOBL DSIN,DCOS,.SET,.RDA,.DA
	.GLOBL .BA,.XA,.AS,.AQ,SIN,COS
	.GLOBL .T1,.ER,.DC,.AG
.XX=.XA
DCOS	0
	LAC	.-1
	JMS*	.SET
COS	0	/ALSO CRANK
	LAC	.-1
	DAC	SIN
	JMP	SIN+1
DSIN	0
	LAC	.-1
	JMS*	.SET
SIN	0
	JMS*	.DA
	JMP	.+2
ARG	0
	JMS*	.AG
		ARG+400000
	LAC	COS
	DZM	CRANK
	SAD	SIN
	ISZ	CRANK	/1=COS
	JMS*	.RDA	/REDUCE ARG
		HIPI
	JMP	TOOBIG
	TAD	CRANK	/I IN A
	RCR
	DAC	CRANK
	SNL
	JMP	SINS
	JMS*	.DC	/COS
	CTERM
SIGN	LAC	CRANK
	RCR
	SZL
	JMS*	.BA
	JMP*	SIN	/EXIT
SINS	JMS*	.DC	/SIN
	STERM
	JMS*	.AS	/*X**2
		.T1+400000
	JMS*	.AS	/*X
		.XX+400000
	JMS*	.AQ	/+X
		.XX+400000
	JMP	SIGN
TOOBIG	JMS*	.ER	/ARG TOO
	400015		/LARGE
	JMP	.	/IDLE
CRANK=COS
HIPI	1; 311037; 552421
MDPI	-20; 265210; 400000
LOPI	-46; 264302; 151423
STERM	-3
/ S4=.2717175169
	-22; 266261; 333051
/S3=-.198392122D-3
	-14; 720016; 753213
/ S2=.833332899D-2
	-6; 210421; 017370
/ S1=-.1666666664D0
	-2; 652525; 252456
CTERM	-5
/ C6=-.2713578524D-6
	-25; 622015; 026462
/ C5=.2479837653D-4
	-17; 320020; 421320
/ C4=-.1388887764D-2
	-11; 666026; 557226
/ C3=.4166666649D-1
	-4; 252525; 252471
/ C2=-.5
	0; 600000; 0
/ C1=1.0
	1; 200000; 0
	.END