gpu_neon: fix some missing ebuf updates
[pcsx_rearmed.git] / deps / lightning / check / rpn.tst
1 .data   256
2 .$($int = 4)
3 C:
4 .c "\nC:"
5 F:
6 .c "\nF:"
7 format:
8 .c "%3d "
9 newline:
10 .c "\n"
11
12 .code
13         jmpi main
14
15         name c2f
16 c2f:
17         prolog
18         arg $in
19
20         allocai $(32 * $int) $index
21
22         getarg %r2 $in
23
24         // 32x9*5/+
25         movi %r0 32
26
27         // x9*5/+
28         stxi_i $index %fp %r0
29 .       $($index = $index + $int)
30         movr %r0 %r2
31
32         // 9*5/+
33         stxi_i $index %fp %r0
34 .       $($index = $index + $int)
35         movi %r0 9
36
37         // *5/+
38 .       $($index = $index - $int)
39         ldxi_i %r1 %fp $index
40         mulr %r0 %r1 %r0
41
42         // 5/+
43         stxi_i $index %fp %r0
44 .       $($index = $index + $int)
45         movi %r0 5
46
47         // /+
48 .       $($index = $index - $int)
49         ldxi_i %r1 %fp $index
50         divr %r0 %r1 %r0
51
52         // +
53 .       $($index = $index - $int)
54         ldxi_i %r1 %fp $index
55         addr %r0 %r1 %r0
56
57         retr %r0
58         epilog
59
60         name f2c
61 f2c:
62         prolog
63         arg $in
64
65         allocai $(32 * $int) $index
66
67         getarg %r2 $in
68
69         // x32-5*9/
70         stxi_i $index %fp %r0
71 .       $($index = $index + $int)
72         movr %r0 %r2
73
74         // 32-5*9/
75         stxi_i $index %fp %r0
76 .       $($index = $index + $int)
77         movi %r0 32
78
79         // -5*9/
80 .       $($index = $index - $int)
81         ldxi_i %r1 %fp $index
82         subr %r0 %r1 %r0
83
84         // 5*9/
85         stxi_i $index %fp %r0
86 .       $($index = $index + $int)
87         movi %r0 5
88
89         // *9/
90 .       $($index = $index - $int)
91         ldxi_i %r1 %fp $index
92         mulr %r0 %r1 %r0
93
94         // 9/
95         stxi_i $index %fp %r0
96 .       $($index = $index + $int)
97         movi %r0 9
98
99         // /
100 .       $($index = $index - $int)
101         ldxi_i %r1 %fp $index
102         divr %r0 %r1 %r0
103
104         retr %r0
105         epilog
106
107 //-----------------------------------------------------------------------
108         name main
109 main:
110         prolog
111
112         prepare
113                 pushargi C
114                 ellipsis
115         finishi @printf
116         movi %v0 0
117 loopC:
118         prepare
119                 pushargi format
120                 ellipsis
121                 pushargr %v0
122         finishi @printf
123         addi %v0 %v0 10
124         blei loopC %v0 100
125         prepare
126                 pushargi F
127                 ellipsis
128         finishi @printf
129         movi %v0 0
130 loopC2F:
131         prepare
132                 pushargr %v0
133         finishi c2f
134         retval %r0
135         prepare
136                 pushargi format
137                 ellipsis
138                 pushargr %r0
139         finishi @printf
140         addi %v0 %v0 10
141         blei loopC2F %v0 100
142         prepare
143                 pushargi newline
144                 ellipsis
145         finishi @printf
146
147         prepare
148                 pushargi F
149                 ellipsis
150         finishi @printf
151         movi %v0 32
152 loopF:
153         prepare
154                 pushargi format
155                 ellipsis
156                 pushargr %v0
157         finishi @printf
158         addi %v0 %v0 18
159         blei loopF %v0 212
160         prepare
161                 pushargi C
162                 ellipsis
163         finishi @printf
164         movi %v0 32
165 loopF2C:
166         prepare
167                 pushargr %v0
168         finishi f2c
169         retval %r0
170         prepare
171                 pushargi format
172                 ellipsis
173                 pushargr %r0
174         finishi @printf
175         addi %v0 %v0 18
176         blei loopF2C %v0 212
177         prepare
178                 pushargi newline
179                 ellipsis
180         finishi @printf
181
182         ret
183         epilog