/DTAN-TAN  TANGENT FUNCTION
	.GLOBL DTAN,TAN,.DA,.SET,.RDA,.AG,.DC
	.GLOBL .AV,.AQ,.AS,.T1,.XA,.ER
DTAN	0
	LAC	.-1
	JMS*	.SET
TAN	0
	JMS*	.DA
	JMP	.+2
ARG	0
	JMS*	.AG	/.AO IF DTAN
		ARG+400000
	JMS*	.RDA	/REDUCE ARG
		HIPI
	JMP	TOOBIG
	DAC	ARG
	JMS*	.DC
		TTERM
	JMS*	.AV	/X**2/F
		.T1+400000
	JMS*	.AS	/*X
		.XA+400000
	JMS*	.AQ	/+X
		.XA+400000
	LAC	ARG
	RCR
	SNL		/ODD OR EVEN?
	JMP	.+3	/EVEN N
	JMS*	.AV	/-CTN X
		M1
	JMP*	TAN
TOOBIG	JMS*	.ER
	400017		/OTS 17
	JMP	.	/IDLE
HIPI	1; 311037; 552421
MDPI	-20; 265210; 400000
LOPI	-46; 264302; 151423
TTERM	-5
/ T6=
	-24; 662107; 123621
/ T5=
	-20; 713674; 775036
/ T4=
	-13; 605123; 262045
/ T3=
	-7; 673175; 577111
/ T2=
	1; 631463; 146321
/ T1=
	2; 300000; 0
M1	1; 600000; 0
	.END