title	Module from library HIFLOAT_5 : LBFL16
	name	('LBFL16')
	maclib	baselib.lib

; REAL to INTEGER converter

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

; ENTRY	Reg DE points to number to be converted

; EXIT	Reg HL holds signed integer
;	Carry set on converter overflow

	entry	cfl16

	ext	?cflbin,flperr

cfl16:
	push	de
	pop	ix
	ld	h,(ix+0)	; Load number
	ld	l,(ix+1)
	ld	e,(ix+2)
	ld	d,(ix+3)
	call	?cflbin		; Convert
	ld	a,(flperr)
	rra			; Get result
	ret

	end