Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0013/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)
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20

;TAN:	Z
;	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)

;Use the arg block that FORTRAN sets up for calls to sin and cos.
tan:	pushj	17,cos
	movem	0,tant
	pushj	p,sin
	fdvr	0,tant
	popj	17,

	END