title	Module from library HIFLOAT_2 : LBABS
	name	('LBABS')
	maclib	baselib.lib

; Build absolute value

; 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 and
;	reg pair HL points to result

; EXIT	Result filled with absolute of number

	entry	flabs

	ext	?flabs

flabs:
	push	hl		; Save result pointer
	push	bc
	pop	ix
	ld	h,(ix+0)	; Load number
	ld	l,(ix+1)
	ld	e,(ix+2)
	ld	d,(ix+3)
	call	?flabs		; Get abslute
	pop	ix
	ld	(ix+0),h	; Save result
	ld	(ix+1),l
	ld	(ix+2),e
	ld	(ix+3),d
	ret

	end