title	Module from library HIFLOAT_4 : LBSQAR
	name	('LBSQAR')
	maclib	baselib.lib

; Build the square

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

; ENTRY	Reg pair BC points to number
;	and reg pair HL points to result

; EXIT	Result filled with square

	entry	flsqar

	extrn	?flsqar,@oper1

flsqar:
	ld	ix,?flsqar
	jp	@oper1

	end