; +++++++++++ ZUSATZ: CPC 7'87
; A=INT(SQR(HL))
; Integer-Quadratwurzeln
; AKKU Max ist 255 -> Max Zahl 65025

sqr:	xor	a
	ld	bc,-1
sqrlp:	add	hl,bc	; BC<0
	ret	nc	; HL<=0
	inc	a
	dec	bc
	dec	bc
	jr	sqrlp

	end