summaryrefslogtreecommitdiff
path: root/libmeidogte/pushpopmatrix.s
blob: d10687a1088aa926b34d45145c5bf4491f9f1356 (plain) (blame)
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
.set noreorder

.include "gtereg.h"
.include "inline_s.h"

.section .text


.global PushMatrix
.type PushMatrix, @function
PushMatrix:
	la		$a0, _matrix_stack
	cfc2	$v0, C2_R11R12
	cfc2	$v1, C2_R13R21
	sw		$v0, 0($a0)
	cfc2	$v0, C2_R22R23
	sw		$v1, 4($a0)
	sw		$v0, 8($a0)
	cfc2	$v0, C2_R31R32
	cfc2	$v1, C2_R33
	sw		$v0, 12($a0)
	sw		$v1, 16($a0)
	cfc2	$v0, C2_TRX
	cfc2	$v1, C2_TRY
	sw		$v0, 20($a0)
	cfc2	$v0, C2_TRZ
	sw		$v1, 24($a0)
	jr		$ra
	sw		$v0, 28($a0)

.global PopMatrix
.type PopMatrix, @function
PopMatrix:
	la		$a0, _matrix_stack
	lw		$v0, 0($a0)
	lw		$v1, 4($a0)
	ctc2	$v0, C2_R11R12
	ctc2	$v1, C2_R13R21
	lw		$v0, 8($a0)
	lw		$v1, 12($a0)
	ctc2	$v0, C2_R22R23
	lw		$v0, 16($a0)
	ctc2	$v1, C2_R31R32
	ctc2	$v0, C2_R33
	lw		$v0, 20($a0)
	lw		$v1, 24($a0)
	ctc2	$v0, C2_TRX
	lw		$v0, 28($a0)
	ctc2	$v1, C2_TRY
	ctc2	$v0, C2_TRZ
	jr		$ra
	nop


.section .data


.type matrix_stack, @object
_matrix_stack:
	.word 0
	.word 0
	.word 0
	.word 0
	.word 0
	.word 0
	.word 0
	.word 0