dgt.asm
bitfixer_bitfixer/dg/z88dk/libsrc/math/zxmath/dgt.asm
;
;
;       ZX Maths Routines
;
;       8/12/02 - Stefano Bodrato
;
;       $Id: dgt.asm,v 1.4 2015/08/10 08:52:12 stefano Exp $
;


IF FORzx
		INCLUDE  "zxfp.def"
ENDIF
IF FORzx81
		INCLUDE  "81fp.def"
ENDIF
IF FORlambda
		INCLUDE  "lambdafp.def"
ENDIF

                PUBLIC    dgt

                EXTERN	fsetup
                EXTERN	f_yesno

.dgt
        call    fsetup
	defb	ZXFP_SUBTRACT
IF FORlambda
	defb	ZXFP_GREATER_0 + 128
ELSE
	defb	ZXFP_GREATER_0
	defb	ZXFP_END_CALC
ENDIF
	
	jp	f_yesno