1;
2;
3;       ZX Maths Routines
4;
5;       21/03/03 - Stefano Bodrato
6;
7;       $Id: sinh.asm,v 1.5 2016-06-22 19:59:18 dom Exp $
8;
9
10;double sinh(double)
11;	e = exp(x) ;
12;	return ((e-1.0/e)/2) ;
13
14IF FORts2068
15		INCLUDE  "target/ts2068/def/ts2068fp.def"
16ENDIF
17IF FORzx
18		INCLUDE  "target/zx/def/zxfp.def"
19ENDIF
20IF FORzx81
21		INCLUDE  "target/zx81/def/81fp.def"
22ENDIF
23IF FORlambda
24		INCLUDE  "target/lambda/def/lambdafp.def"
25ENDIF
26
27                SECTION  code_fp
28                PUBLIC    sinh
29
30                EXTERN	fsetup1
31                EXTERN	stkequ
32
33.sinh
34        call    fsetup1
35
36	defb	ZXFP_EXP		; and at the beginning exp (x)
37
38	defb	ZXFP_DUPLICATE
39	defb	ZXFP_STK_ONE
40	defb	ZXFP_EXCHANGE
41	defb	ZXFP_DIVISION		; 1/e
42
43	defb	ZXFP_SUBTRACT
44
45	defb	ZXFP_STK_ONE		; STK_TWO  :o)
46	defb	ZXFP_STK_ONE
47	defb	ZXFP_ADDITION
48
49IF FORlambda
50	defb	ZXFP_DIVISION + 128
51ELSE
52	defb	ZXFP_DIVISION
53	defb	ZXFP_END_CALC
54ENDIF
55        jp      stkequ
56
57