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
|
.set noreorder
.include "gtereg.h"
.include "inline_s.h"
.section .text
.global MulMatrix0
.type MulMatrix0, @function
MulMatrix0:
# Load m1 to GTE
lw $t0, 0($a0)
lw $t1, 4($a0)
ctc2 $t0, $0
ctc2 $t1, $1
lw $t0, 8($a0)
lw $t1, 12($a0)
lhu $t2, 16($a0)
ctc2 $t0, $2
ctc2 $t1, $3
ctc2 $t2, $4
lhu $t1, 2*(0+(3*1))($a1) # Load values for first
lhu $t0, 2*(0+(3*0))($a1) # R11 R21 R31
sll $t1, 16
or $t0, $t1
lhu $t1, 2*(0+(3*2))($a1)
mtc2 $t0, C2_VXY0
mtc2 $t1, C2_VZ0
lhu $t1, 2*(1+(3*1))($a1) # Load values for second
lhu $t0, 2*(1+(3*0))($a1) # R12 R22 R32
MVMVA(1, 0, 0, 3, 0) # First multiply
sll $t1, 16
or $t0, $t1
lhu $t1, 2*(1+(3*2))($a1)
mtc2 $t0, C2_VXY0
mtc2 $t1, C2_VZ0
mfc2 $t0, C2_IR1 # Store results of first
mfc2 $t1, C2_IR2
sh $t0, 2*(0+(3*0))($a2)
mfc2 $t0, C2_IR3
sh $t1, 2*(0+(3*1))($a2)
sh $t0, 2*(0+(3*2))($a2)
lhu $t1, 2*(2+(3*1))($a1) # Load values for third
lhu $t0, 2*(2+(3*0))($a1) # R13 R23 R33
MVMVA(1, 0, 0, 3, 0) # Second multiply
sll $t1, 16
or $t0, $t1
lhu $t1, 2*(2+(3*2))($a1)
mtc2 $t0, C2_VXY0
mtc2 $t1, C2_VZ0
mfc2 $t0, C2_IR1 # Store results of second
mfc2 $t1, C2_IR2
sh $t0, 2*(1+(3*0))($a2)
mfc2 $t0, C2_IR3
sh $t1, 2*(1+(3*1))($a2)
sh $t0, 2*(1+(3*2))($a2)
MVMVA(1, 0, 0, 3, 0) # Third multiply
mfc2 $t0, C2_IR1 # Store results of third
mfc2 $t1, C2_IR2
sh $t0, 2*(2+(3*0))($a2)
mfc2 $t0, C2_IR3
sh $t1, 2*(2+(3*1))($a2)
sh $t0, 2*(2+(3*2))($a2)
jr $ra
move $v0, $a2
|
