ceil.asm
bitfixer_bitfixer/dg/z88dk/libsrc/math/z88math/ceil.asm
;
;
;       Z88 Maths Routines
;
;       C Interface for Small C+ Compiler
;
;       7/12/98 djm


;double ceil(double)  
;Number in FA..
;
;This is implemented as  -(floor(-x))

                INCLUDE  "fpp.def"

                PUBLIC    ceil

                EXTERN	fsetup
                EXTERN	stkequ2

.ceil
        call    fsetup
        fpp(FP_NEG)
        fpp(FP_INT)             ;floor it (round down!)
        fpp(FP_NEG)
        jp      stkequ2



