Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
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