title	Module from library HIFLOAT_2 : LBSIGN
	name	('LBSIGN')
	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	Reg pair BC points to number

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

	entry	flsign

	ext	?flsign

flsign:
	push	bc
	pop	ix
	ld	h,(ix+0)	; Load number
	ld	l,(ix+1)
	ld	e,(ix+2)
	ld	d,(ix+3)
	call	?flsign		; Get sign
	ret

	end