; +++++++++++ ZUSATZ: CPC 7'87
; DE=INT(SQR(HL))
; Integer-Quadratwurzeln - voller Bereich

sqr1:	ld	de,0
	ld	bc,-1
sqrlp1:	and	a
	add	hl,bc	; BC<0
	ret	nc	; HL<=0
	inc	de
	dec	bc
	dec	bc
	jr	sqrlp1

	end