Algoritmo calcolo del Pi greco

#Pi greco

.data

uno: .double 1.0

n: .word 3000

quattro: .double 4.0

.text

main:

la $t0, uno

l.d $f0, 0($t0)

la $t0, quattro

l.d $f4, 0($t0)

li $t4, 2

la $t1, n

lw $t1, 0($t1)

li $t7, -1

mtc1 $t7, $f10

cvt.d.w $f10, $f10

ciclo:

mtc1 $t1, $f2

cvt.d.w $f2, $f2

add.d $f6, $f2, $f2

add.d $f6, $f6, $f0 #2n+1

div $t1, $t4

mfhi $t3

beq $t3, $0, positivo

div.d $f8, $f10, $f6

#mul.d $f6, $f8, $f10

add.d $f12, $f12, $f8

beq $t1, $0, stop

#Pi greco

.data

uno: .double 1.0

n: .word 3000

quattro: .double 4.0

.text

main:

la $t0, uno

l.d $f0, 0($t0)

la $t0, quattro

l.d $f4, 0($t0)

li $t4, 2

la $t1, n

lw $t1, 0($t1)

li $t7, -1

mtc1 $t7, $f10

cvt.d.w $f10, $f10

ciclo:

mtc1 $t1, $f2

cvt.d.w $f2, $f2

add.d $f6, $f2, $f2

add.d $f6, $f6, $f0 #2n+1

div $t1, $t4

mfhi $t3

beq $t3, $0, positivo

div.d $f8, $f10, $f6

#mul.d $f6, $f8, $f10

add.d $f12, $f12, $f8

beq $t1, $0, stop