Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50053/tan.mac
There are 2 other files named tan.mac in the archive. Click here to see a list.
	TITLE	TAN GENT FUNCTION
	SUBTTL	V.001  R.S.TOMLINSON  18 FEB 69
	ENTRY	TAN
	INTERN	TAN
	EXTERN	SIN,COS

; THIS PROGRAM COMPUTES TAN(X) BY THE SIMPLE EXPEDIENTOF
; TAN(X) = SIN(X)/COT(X)

TAN:	0
	MOVE 0,@(16)
	MOVEM 0,TANT#
	JSA 16,COS
	JUMP TANT
	MOVEM 0,TANT2#
	JSA 16,SIN
	JUMP TANT
	FDVR 0,TANT2
	JRA 16,1(16)

	END