; palindrom checker
.text
; r1 = str addr
; r2 = str len (u8)

	ldis r0, 0
	cmpi r2, 0
	ldiszs r0, 1
	retzs		; return 1 if strlen = 0

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

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

schleife:

	ldb  r5, 0(r1)
	ldb  r6, 0(r4)

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

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

	cmp  r1, r4

	brlt+ schleife

end:

	ldi  r0, 1
	ret