code:

	repeat:	.asciiz "\nWant to do it again?\n"
	answer:	.asciiz ""
	yes:	.ascii "y"
	no:	.ascii "n"

code:

# chiede se ricominciare (main) o finire (exit)
final:
# stampa stringa di richiesta ripetizione programma
	la $a0, repeat
	li $v0, 4
	syscall
	j again

again:
# legge risposta da input
	la $a0, answer		# sara' solo y o n, non null terminated
	li $a1, 2		# quindi 1 solo byte e' sufficiente
	li $v0, 8
	syscall

# controlla la risposta
	la $t2, yes
	la $t3, no
	beq $a0, $t2, main	# se la risposta e' y, allora ripeti da (main)
	beq $a0, $t3, exit	# se la risposta e' n, allora esci dal programma (exit)
	j again			# se la risposta e' altro, richiedi (again)


# esce dal programma
exit:
	li $v0, 10
	syscall

code:
main:			# Start of code section
# svuoto i registri temporanei
	li $t0, 0
	li $t2, 0
	li $t3, 0

code:

# FATTORIALE
	.globl main

	.data		# Data declaration section

	inputstr:	.asciiz "\nInserire un numero:\n"
	error:		.asciiz "\nErrore: inserire un numero positivo.\n"
	outputstr:	.asciiz "\nRisultato: "
	repeat:		.asciiz "\n\nWant to do it again?\n"
	ansbuffer:	.space 3
	yes:		.byte 0x79 # =y
	no:		.byte 0x6e # =n

	.text

# legge un intero e lo mette in $v0 e ritorna al codice chiamante
leggiint:
	li $v0, 5
	syscall
	jr $ra

# stampa un intero da $a0 e ritorna al codice chiamante
stampaint:
	li $v0, 1
	syscall
	jr $ra

# stampa una stringa da $a0 e ritorna al codice chiamante
stampastr:
	li $v0, 4
	syscall
	jr $ra

# chiede se ricominciare (main) o finire (exit)
final:
# stampa stringa di richiesta ripetizione programma
	la $a0, repeat
	li $v0, 4
	syscall
#	j again

#again:
# legge risposta da input
	la $a0, ansbuffer		# sara' solo y o n, non null terminated
	li $a1, 3			# quindi 1 solo byte e' sufficiente
	li $v0, 8
	syscall

# controlla la risposta
	lb $t0, ansbuffer	
	lb $t1, yes	
	lb $t2, no
	beq $t0, $t1, main	# se la risposta e' y, allora ripeti da (main)
	beq $t0, $t2, exit	# se la risposta e' n, allora esci dal programma (exit)
	j final			# se la risposta e' altro, richiedi (again)	

# esce dal programma
exit:
	li $v0, 10
	syscall


# controlla se $t0 e' minore/uguale/maggiore di zero e salta alla relativa label
check:
	bltz $t0, inputneg
	beqz $t0, inputzero
	bgtz $t0, inputpos

# arriva qui dalla check
# se il numero passato in input e' NEGATIVO
# stampa un messaggio d'errore e richiede i dati in input
inputneg:
	la $a0, error
	jal stampastr
	j asknum

# arriva qui dalla check
# se il numero passato in input e' ZERO
# il risultato (1) e' gia' in $t1 quindi chiama la procedura che lo stampa ed esce
inputzero:
	la $a0, outputstr
	jal stampastr
	j printres
		
# arriva qui dalla check
# se il numero passato in input e' POSITIVO
# calcola ricorsivamente il risultato
# mette il risultato in $t1 e chiama la procedura che lo stampa ed esce
inputpos:
# moltiplico il numero attuale ($t0) con il risultato parziale ($t1)
# lo metto in $t1 come nuovo risultato parziale
	mulou $t1, $t0, $t1
# decremento il numero attuale ($t0)
	addi $t0, $t0, -1
# chiamata ricorsiva alla check
	j check

# stampa il risultato dal registro $t1 ed esce
printres:
	move $a0, $t1
	li $v0, 1
	jal stampaint
	j final

main:			# Start of code section
# svuoto i registri temporanei
	li $t0, 0
	li $t1, 0
	li $t2, 0

# chiede il numero in input e lo memorizza in $t0
asknum:
	la $a0, inputstr
	jal stampastr

	jal leggiint
	move $t0, $v0

# inizia il calcolo del fattoriale del numero
calculate:
# inizializza $t1 a 1
	li $t1, 1
# controlla se il numero e' minore/uguale/maggiore di zero
# la check poi a seconda del valore manda alla procedura corretta da eseguire
	j check


# END OF PROGRAM