title	Module from library HIFLOAT_6 : LBINP
	name	('LBINP')
	maclib	baselib.lib

; Convert string to floating point number

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

;		Version 1.0 January 1989

; ENTRY	Reg B holds number of characters to be converted,
;	Reg pair DE points to ASCII string, reg pair HL points
;	to resulting floating point number

; EXIT	Carry on error

	entry	flinp

	extrn	?flinp,flperr

flinp:
	push	hl		; Save result pointer
	ld	a,b		; Get length
	ld	b,d		; Copy source pointer
	ld	c,e
	call	?flinp		; Get number
	pop	ix
	ld	(ix+0),h	; Save result
	ld	(ix+1),l
	ld	(ix+2),e
	ld	(ix+3),d
	ld	a,(flperr)	; Get error
	rra
	ret

	end