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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#include "core-isa.h"
.macro test_suite name
.data
status: .word result
result: .space 256
.text
.global main
.align 4
main:
.endm
.macro reset_ps
movi a2, 0x4000f
wsr a2, ps
isync
.endm
.macro test_suite_end
reset_ps
movi a0, status
l32i a2, a0, 0
movi a0, result
sub a2, a2, a0
movi a3, 0
beqz a2, 2f
1:
l8ui a1, a0, 0
or a3, a3, a1
addi a0, a0, 1
addi a2, a2, -1
bnez a2, 1b
2:
exit
.endm
.macro print text
.data
97: .ascii "\text\n"
98:
.align 4
.text
movi a2, 4
movi a3, 2
movi a4, 97b
movi a5, 98b
sub a5, a5, a4
simcall
.endm
.macro test_init
.endm
.macro test name
#ifdef DEBUG
print test_\name
#endif
test_init
test_\name:
.global test_\name
.endm
.macro test_end
99:
reset_ps
movi a2, status
l32i a3, a2, 0
addi a3, a3, 1
s32i a3, a2, 0
.endm
.macro exit
movi a2, 1
simcall
.endm
.macro test_fail
movi a2, status
l32i a2, a2, 0
movi a3, 1
s8i a3, a2, 0
#ifdef DEBUG
print failed
#endif
j 99f
.endm
.macro assert cond, arg1, arg2
b\cond \arg1, \arg2, 90f
test_fail
90:
nop
.endm
.macro set_vector vector, addr
movi a2, handler_\vector
movi a3, \addr
s32i a3, a2, 0
.endm
.macro dump r
#ifdef DEBUG
.data
.align 4
1: .word 0
.text
movi a4, 1b
s32i a2, a4, 0
movi a2, 4
movi a3, 1
movi a5, 4
simcall
movi a4, 1b
l32i a2, a4, 0
#endif
.endm
#define glue(a, b) _glue(a, b)
#define _glue(a, b) a ## b
#define glue3(a, b, c) _glue3(a, b, c)
#define _glue3(a, b, c) a ## b ## c
|