.data
str: .space 12
prompt: .asciiz "Enter a Word to check for being a Palindrom (Not more than 12 letters): "
trueresponse: .asciiz "It is a Palindrom"
falseresponse: .asciiz "No Palindrom"

.text
main:
la $a0,prompt
li, $v0,4
syscall

li,$v0,8
la $a0, str
la $a1, 12

syscall
li $t1,0

getlength:
lb $t0,str($t1)
beqz $t0, strend
addi $t1,$t1,1
j getlength

strend:
li $t2,0
addi $t1,$t1,-2

palindrom:
beqz $t1,done
lb $t3,str($t1)
lb $t4,str($t2)
beq $t3,$t4, true
j false

true:
li $v0,1
addi $t1,$t1,-1
addi $t2,$t2,1
j palindrom

false:
la $a0, falseresponse
li $v0,4
syscall
li $v0,10
syscall

done:
la $a0,trueresponse
li $v0,4
syscall
li $v0,10
syscall