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