THMMY.gr

        .data 0x10008000
        .word 10
        .word 1
        .word 0
        .ascii "The factorial of 10 is %d \n"
        .text
        .globl main
main:
        addi $sp, $sp, -32
        sw $ra, 20($sp)
        sw $fp, 16($sp)
        addiu $fp, $sp,28
        lw $a0, 0($gp)
        jal fact
        addi $t0, $gp 12
        sw $t0, 8($gp)
        sw $v0, 8($gp)
        lw $a1, 8($gp)
        jal printf
        lw $ra, 20($sp)
        lw $fp, 16($sp)
        addiu $sp, $sp, 32
        jr $ra
fact:
        addiu $sp, $sp, -32
        sw $ra, 20($sp)
        sw $fp, 16($sp)
        addiu $fp, $sp, 28
        sw $a0, 0($fp)
        lw $v0, 0($sp)
        lw $t0, 4($gp)
        slt $v0, $t0, $t1
        bne $t0, $t1 L2
        and $v0, $v0, $zero
        addi $v0, $v0, 1
        jr L1
L2:
        lw $v1, 0($fp)
        addi $v0, $v1, -1
        sw $v0, 8($gp)
        lw $a0, 8($gp)
        lw $v1, 0($fp)
        mul $a1, $a1, $v1
        jal fact
L1:
        lw $ra, 20($sp)
        lw $fp, 16($sp)
        addiu $sp, $sp, 32
        jr $ra

int main()
{
    printf ("The factorial of 10 is %d\n", fact (10));
}

int fact (int n)
{
    if (n < 1)
        return (1):
    else
        return (n * fact (n - 1));
}

.data 
	.word 4, 3, 1, 2 
	.text
loop:   
	and $s5, $s5, $zero 	
	lui $s5, 0x1000
	lw $s1, 0x0000($s5)
	lw $s2, 0x0004($s5)
	lw $s3, 0x0008($s5)
	lw $s4, 0x000c($s5)	

.data 0x10008000
        .word 10
        .word 1
        .word 0
        .ascii "The factorial of 10 is %d \n"
        .text
        .globl main

        .data 0x10008000
        .word 10
        .word 1
        .word 0
        .ascii "The factorial of 10 is %d \n"
        .text
        .globl main

main:
        addi $sp, $sp, -32
        sw $ra, 20($sp)
        sw $fp, 16($sp)

 
 li $v0, 1        
 li $a0, $t1        #όπου $t1=5 ξέρω γω... 
 syscall