title	Module from library HIFLOAT_1 : FLSIGN
	name	('FLSIGN')
	maclib	baselib.lib

; Get sign of number

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 January 1989

; ENTRY	Regs DE,HL hold number

; EXIT	Accu holds result
;	+1 if number > 0
;	-1 if number < 0
;	 0 if number = 0

	entry	?flsign

?flsign:
	xor	a
	bit	zero,h		; Test 0
	ret	z
	inc	a
	bit	sign,h		; Test > 0
	ret	z
	ld	a,-1
	ret

	end