forked from alexdantas/mips-examples
-
Notifications
You must be signed in to change notification settings - Fork 0
/
008-mclamar.s
95 lines (76 loc) · 1.48 KB
/
008-mclamar.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
# Computes McLamar(n)
#
# McLamar is a series of numbers defined by my college teacher,
# Mr. Lamar.
#
# It's defined as follows:
#
# McLamar(n) = McLamar(n - 1) - McLamar(n - 2)/4
# McLamar(0) = 0
# McLamar(1) = 1
.data
# This is the index we'll calculate McLamar from
num: .word 10
.text
main:
lw $a0, num
jal mclamar
li $v0, 2 # Will print float
mtc1 $zero, $f6 # float zero = 0
cvt.s.w $f6, $f6
add.s $f12, $f6, $f30 # printing McLamar's return
syscall
li $v0, 10 # exit
syscall
## Computes McLamar(n)
# $a0 Integer index to calculate
# $f30 Floating-point result
#
# Internal use
# $t0 Temporary stuff
# $f0 A
# $f2 B
# $f4 Temporary float stuff
# $f6 Use it as a float $zero
mclamar:
beq $a0, $zero, mclamar_return_zero
slti $t0, $a0, 2
bne $t0, $zero, mclamar_return_one
j mclamar_main
mclamar_return_zero:
add $t0, $zero, $zero
j mclamar_return
mclamar_return_one:
addi $t0, $zero, 1
j mclamar_return
mclamar_return:
mtc1 $t0, $f30
cvt.s.w $f30, $f30
jr $ra
mclamar_main:
mtc1 $zero, $f6 # float zero = 0
cvt.s.w $f6, $f6
addi $sp, $sp, -72
sw $ra, 0($sp)
sw $a0, 4($sp)
swc1 $f0, 8($sp)
swc1 $f2, 40($sp)
addi $a0, $a0, -1
jal mclamar
add.s $f0, $f6, $f30
lw $a0, 4($sp)
addi $a0, $a0, -2
jal mclamar
add.s $f2, $f6, $f30
addi $t0, $zero, 4
mtc1 $t0, $f4
cvt.s.w $f4, $f4
div.s $f2, $f2, $f4
sub.s $f0, $f0, $f2
add.s $f30, $f6, $f0
lw $ra, 0($sp)
lw $a0, 4($sp)
lwc1 $f0, 8($sp)
lwc1 $f2, 40($sp)
addi $sp, $sp, 72
jr $ra