; palindrom checker

; r1 = str addr
; r2 = str len (u8)

	ldi r0, 0

	cmp r1, 0
	retzs		; return 0 if strlen = 0

	add  r4, r1, r2 ; set r4 to end address
	subi r4, 1

	cmp  r1, r4	; if strlen = 1 return 1
	brancheq- end

schleife:

	ldb  r5, r1
	ldb  r6, r4

	cmp  r5, r6
	retnq		; return 0 when palindrom not satisfied

	addi r1, r1, 1
	subi r4, r4, 1

	cmp  r1, r4

	branchlt+ schleife

end:

	ldi  r0, 1
	ret