.text
.globl main
main:
    j begin
#################################################################
    addi $t5, $0, 1
    addi $t4, $a0, 0    #auxiliar valor inicial
multiplicar:    # jal multiplicar
    add $v0, $a0, $t4

    #addi $a0, $v0, 0
    #addi $v0, $0, 1
    #syscall

    addi $t5, $t5, 1 #inicio for
    bne $t5, $a1, multiplicar
    jr $ra
#################################################################

begin:
    addi $t0, $0, 1
    addi $t2, $0, 1 #auxiliar para multiplicacion
    addi $t7, $0, 1 #registro resultado final

    addi $v0, $0, 5
    syscall
    addi $t1, $v0, 0

    beq $t1, $t0,fin    #si el numero introducido = 1, fin
    j factorial

##################################################################
fin:
    addi $a0, $0, 1
    addi $v0, $0, 1
    syscall

    addi $v0, $0, 10
    syscall
##################################################################

##################################################################
factorial:
    #and $t2,$t0,$t7
    addi $a0, $t0, 0
    addi $a1, $t7, 0
    addi $a1, $t7, 0
    jal multiplicar
    add $t7,$t7,$v0
    addi $t0, $t0, 1    #i++
    bne $t0, $t1, factorial
##################################################################
    addi $a0, $t7, 0
    addi $v0, $0, 1
    syscall

    addi $v0, $0, 10
    syscall