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

; Convert 16 bit signed integer to floating point

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

;		Version 1.0 January 1989

; ENTRY	Reg pair DE points to 16 bit extended integer

; EXIT	Number exchanged against floating point number

	entry	cbinfl

	ext	?cbinfl

cbinfl:
	push	de		; Save pointer
	push	de
	pop	ix
	ld	h,(ix+2)	; Load integer
	ld	l,(ix+3)
	call	?cbinfl		; Convert
	pop	ix
	ld	(ix+0),h	; Save result
	ld	(ix+1),l
	ld	(ix+2),e
	ld	(ix+3),d
	ret

	end