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

; Build negative value

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

;		Version 1.1 December 1989

; ENTRY	Reg pair BC points to number and
;	reg pair HL points to result

; EXIT	Result filled with negative of number

; Coded numbers are stored as follows:

;	MSB - Middle - LSB -- EXP

	entry	flneg

flneg:
	_push_
	ld	e,c
	ld	d,b
	ex	de,hl		; Swap pointers
	ld	a,(hl)		; Get sign
	xor	SIGNB		; .. flip it
	ld	(de),a
	inc	de
	inc	hl
	ld	bc,3
	ldir			; Unpack number
	_pop_
	ret

	end