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

; INTEGER to Floating Point converter

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

;		Version 1.0 January 1989

; ENTRY	Reg HL holds signed integer
;	Reg DE points to resulting floating point number

; EXIT	Number filled

	entry	c16fl

	ext	?cbinfl

c16fl:
	push	de
	call	?cbinfl		; Get number
	pop	ix
	ld	(ix+0),h	; Set result
	ld	(ix+1),l
	ld	(ix+2),e
	ld	(ix+3),d
	ret

	end