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