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

; Execute some base functions for the floating
; point package

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

;		Version 1.0 January 1989

	entry	?zero,?ovfl

	ext	flperr

; Fix stack and return zero
;
?zero:
	pop	hl		; Fix the stack
	pop	de
	ex	(sp),hl
	ld	hl,0		; Set zero result
	ld	e,h
	ld	d,l
	ret
;
; Fix stack and set overflow error
;
?ovfl:	
	ld	sp,iy		; Restore stack
	pop	bc		; .. and fix it
	pop	hl
	pop	hl
	push	bc
	ld	l,true
	ld	h,0
	ld	(flperr),hl	; Set OVL error
	ret

	end