1;
2;
3;       Z88 Maths Routines
4;
5;       C Interface for Small C+ Compiler
6;
7;       7/12/98 djm
8
9
10;double acos(double)
11;Number in FA..
12
13		SECTION  code_fp
14IF FORz88
15                INCLUDE  "target/z88/def/fpp.def"
16ELSE
17		INCLUDE "fpp.def"
18ENDIF
19
20                PUBLIC    acos
21
22                EXTERN	fsetup
23                EXTERN	stkequ2
24
25.acos
26        call    fsetup
27IF FORz88
28        fpp(FP_ACS)
29ELSE
30	ld	a,+(FP_ACS)
31	call	FPP
32ENDIF
33        jp      stkequ2
34
35
36
37