File TANH.RA

Directory of image this file is from
This file as a plain text file

/
/
/	T  A  N  H
/	-  -  -  -
/
/SUBROUTINE TANH(X)
/
/ VERSION 5A 4-27-77  PT
/
	SECT	TANH
	JA	#TANH
	TEXT	+TANH  +
TANHXR,	SETX	XRTANH
	SETB	BPTANH
BPTANH,	FNOP
	0
	0
XRTANH,	F 0.0
TANH1,	F 0.0
TANH2,	F 0.0
	ORG	10*3+BPTANH
	FNOP
	JA	TANHXR
	0
TNHRTN,	JA	.
	BASE	0
#TANH,	STARTD
	FLDA	10*3
	FSTA	TNHRTN
	FLDA	0
	SETX	XRTANH
	SETB	BPTANH
	BASE	BPTANH
	LDX	1,1
	FSTA	BPTANH
	FLDA%	BPTANH,1	/ADDR OF X
	FSTA	BPTANH
	STARTF
	FLDA%	BPTANH	/GET X
	FSTA	TANH1	/SAV IT
	EXTERN	COSH
	JSR	COSH	/CALL COSH
	JA	.+4
	JA	TANH1
	FSTA	TANH2	/SAVE COSH(X)
	EXTERN	SINH
	JSR	SINH	/CALL SINH
	JA	.+4
	JA	TANH1
	FDIV	TANH2	/SINH/COSH=TANH
	JA 	TNHRTN



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search