.data
	
msg:	.asciiz "Inserisci una parola: "
msg_no:	.asciiz "Non e' un palindromo"
msg_si:	.asciiz "E' un palindromo"

parola:	.space  80

	.align  2
	
read_params:
	.word   0, parola, 80

msg_params:
	.space  4

	.text

	;; Visualizza msg
	addi	r14, r0, msg
	sw	msg_params, r14
	addi	r14, r0, msg_params
	trap	5

	;; Acquisisce la parola
	addi	r14, r0, read_params
	trap	3

	;; Determina l'ultimo carattere di 'parola'
	addi	r2, r0, 0
loop1:
	lbu	r1, parola(r2)
	addi	r2, r2, 1
	seqi	r1, r1, 10
	beqz	r1, loop1
	subi	r2, r2, 2
	
	;; Determina se 'parola' e' un palindromo
	addi	r1, r0, 0
loop2:
	lbu	r3, parola(r1)
	lbu	r4, parola(r2)
	sub	r5, r3, r4		; se r5!=0 allora non e' un palindromo
	bnez	r5, no_palindromo
	addi	r1, r1, 1
	subi	r2, r2, 1
	sge	r5, r1, r2		; r5 = 1 se fine
	beqz	r5, loop2

palindromo:
	addi	r14, r0, msg_si
	sw	msg_params, r14
	j	stampa

no_palindromo:
	addi	r14, r0, msg_no
	sw	msg_params, r14
	
stampa:
	addi	r14, r0, msg_params
	trap	5
	
	trap	0