OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [or1ksim/] [testsuite/] [test-code-or1k/] [ext/] [ext.S] - Blame information for rev 90

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 90 jeremybenn 
/* ext.S -- Tests the l.ext{b,h}{s,z} instructions
2 
 
3 
   Copyright (C) 2005 György `nog' Jeney
4 
   Copyright (C) 2010 Embecosm Limited
5 
 
6 
   Contributor György `nog' Jeney
7 
   Contributor Jeremy Bennett
8 
 
9 
   This file is part of OpenRISC 1000 Architectural Simulator.
10 
 
11 
   This program is free software; you can redistribute it and/or modify it
12 
   under the terms of the GNU General Public License as published by the Free
13 
   Software Foundation; either version 3 of the License, or (at your option)
14 
   any later version.
15 
 
16 
   This program is distributed in the hope that it will be useful, but WITHOUT
17 
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 
   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
19 
   more details.
20 
 
21 
   You should have received a copy of the GNU General Public License along
22 
   with this program.  If not, see .  */
23 
 
24 
/* ----------------------------------------------------------------------------
25 
   This code is commented throughout for use with Doxygen.
26 
   --------------------------------------------------------------------------*/
27 
 
28 
#include "spr-defs.h"
29 
 
30 
        .org 0x100
31 
        l.j     start_test
32 
        l.nop
33 
        .org 0x200
34 
        l.jal   unhandled_except
35 
        l.nop
36 
        .org 0x300
37 
        l.jal   unhandled_except
38 
        l.nop
39 
        .org 0x400
40 
        l.jal   unhandled_except
41 
        l.nop
42 
        .org 0x500
43 
        l.jal   unhandled_except
44 
        l.nop
45 
        .org 0x600
46 
        l.jal   unhandled_except
47 
        l.nop
48 
        .org 0x700
49 
        l.jal   unhandled_except
50 
        l.nop
51 
        .org 0x800
52 
        l.jal   unhandled_except
53 
        l.nop
54 
        .org 0x900
55 
        l.jal   unhandled_except
56 
        l.nop
57 
        .org 0xa00
58 
        l.jal   unhandled_except
59 
        l.nop
60 
        .org 0xb00
61 
        l.jal   unhandled_except
62 
        l.nop
63 
        .org 0xc00
64 
        l.jal   unhandled_except
65 
        l.nop
66 
        .org 0xd00
67 
        l.jal   unhandled_except
68 
        l.nop
69 
        .org 0xe00
70 
        l.jal   unhandled_except
71 
        l.nop
72 
        .org 0xf00
73 
        l.jal   unhandled_except
74 
        l.nop
75 
 
76 
#define CHECK_EXT(insn, val, mask, high_mask) \
77 
        l.movhi r4,hi(val); \
78 
        l.ori   r4,r4,lo(val); \
79 
        l.ori   r3,r4,0; \
80 
        l.nop   NOP_REPORT; \
81 
        insn    r5,r4; \
82 
        l.ori   r3,r5,0; \
83 
        l.nop   NOP_REPORT; \
84 
        \
85 
        l.movhi r6,hi(mask); \
86 
        l.ori   r6,r6,lo(mask); \
87 
        l.xori  r7,r6,-1; \
88 
        \
89 
        l.and   r8,r4,r6; \
90 
        l.and   r9,r5,r6; \
91 
        l.sfne  r8,r9; \
92 
        l.bf    ext_fail; \
93 
        l.nop; \
94 
        l.and   r8,r5,r7; \
95 
        \
96 
        l.movhi r7,hi(high_mask); \
97 
        l.ori   r7,r7,lo(high_mask); \
98 
        \
99 
        l.sfne  r8,r7; \
100 
        l.bf    ext_fail; \
101 
        l.nop;
102 
 
103 
#define CHECK_HIGH3_CLEAR(insn, val) CHECK_EXT(insn, val, 0x000000ff, 0)
104 
#define CHECK_HIGH3_SET(val) CHECK_EXT(l.extbs, val, 0x000000ff, 0xffffff00)
105 
#define CHECK_HIGH2_CLEAR(insn, val) CHECK_EXT(insn, val, 0x0000ffff, 0)
106 
#define CHECK_HIGH2_SET(val) CHECK_EXT(l.exths, val, 0x0000ffff, 0xffff0000)
107 
 
108 
#define CHECK_MOVE(insn, val) \
109 
        l.movhi r4,hi(val); \
110 
        l.ori   r4,r4,lo(val); \
111 
        l.ori   r3,r4,0; \
112 
        l.nop   NOP_REPORT; \
113 
        insn    r5,r4; \
114 
        l.ori   r3,r5,0; \
115 
        l.nop   NOP_REPORT; \
116 
        l.sfne  r5,r4; \
117 
        l.bf    ext_fail; \
118 
        l.nop;
119 
 
120 
start_test:
121 
        /* Test l.extbs */
122 
        CHECK_HIGH3_CLEAR(l.extbs, 0x7f)
123 
        CHECK_HIGH3_CLEAR(l.extbs, 0x53)
124 
        CHECK_HIGH3_CLEAR(l.extbs, 0xff53)
125 
        CHECK_HIGH3_CLEAR(l.extbs, 0x1234)
126 
 
127 
        CHECK_HIGH3_SET(0xff)
128 
        CHECK_HIGH3_SET(0x80)
129 
        CHECK_HIGH3_SET(0xff80)
130 
        CHECK_HIGH3_SET(0x7f80)
131 
        CHECK_HIGH3_SET(0x7fff)
132 
 
133 
        /* Test l.extbz */
134 
        CHECK_HIGH3_CLEAR(l.extbz, 0x7f)
135 
        CHECK_HIGH3_CLEAR(l.extbz, 0x53)
136 
        CHECK_HIGH3_CLEAR(l.extbz, 0xff53)
137 
        CHECK_HIGH3_CLEAR(l.extbz, 0x1234)
138 
 
139 
        CHECK_HIGH3_CLEAR(l.extbz, 0xff)
140 
        CHECK_HIGH3_CLEAR(l.extbz, 0x80)
141 
        CHECK_HIGH3_CLEAR(l.extbz, 0xff80)
142 
        CHECK_HIGH3_CLEAR(l.extbz, 0x7f80)
143 
        CHECK_HIGH3_CLEAR(l.extbz, 0x7fff)
144 
 
145 
        /* Test l.exths */
146 
        CHECK_HIGH2_CLEAR(l.exths, 0x7fff)
147 
        CHECK_HIGH2_CLEAR(l.exths, 0x5233)
148 
        CHECK_HIGH2_CLEAR(l.exths, 0xffff2f53)
149 
        CHECK_HIGH2_CLEAR(l.exths, 0x12345678)
150 
 
151 
        CHECK_HIGH2_SET(0xffff)
152 
        CHECK_HIGH2_SET(0x8000)
153 
        CHECK_HIGH2_SET(0xff80)
154 
        CHECK_HIGH2_SET(0x80008000)
155 
        CHECK_HIGH2_SET(0x7fffffff)
156 
 
157 
        /* Test l.exthz */
158 
        CHECK_HIGH2_CLEAR(l.exthz, 0x7fff)
159 
        CHECK_HIGH2_CLEAR(l.exthz, 0x5233)
160 
        CHECK_HIGH2_CLEAR(l.exthz, 0xffff2f53)
161 
        CHECK_HIGH2_CLEAR(l.exthz, 0x12345678)
162 
 
163 
        CHECK_HIGH2_CLEAR(l.exthz, 0xffff)
164 
        CHECK_HIGH2_CLEAR(l.exthz, 0x8000)
165 
        CHECK_HIGH2_CLEAR(l.exthz, 0xff80)
166 
        CHECK_HIGH2_CLEAR(l.exthz, 0x80008000)
167 
        CHECK_HIGH2_CLEAR(l.exthz, 0x7fffffff)
168 
 
169 
        /* Test l.extws */
170 
        CHECK_MOVE(l.extws, 0xffffffff)
171 
        CHECK_MOVE(l.extws, 0x7fffffff)
172 
        CHECK_MOVE(l.extws, 0x7fff7fff)
173 
        CHECK_MOVE(l.extws, 0xffff7f7f)
174 
        CHECK_MOVE(l.extws, 0xffffff7f)
175 
        CHECK_MOVE(l.extws, 0xffff7fff)
176 
        CHECK_MOVE(l.extws, 0x7fff7f7f)
177 
        CHECK_MOVE(l.extws, 0x12345678)
178 
 
179 
        /* Test l.extwz */
180 
        CHECK_MOVE(l.extwz, 0xffffffff)
181 
        CHECK_MOVE(l.extwz, 0x7fffffff)
182 
        CHECK_MOVE(l.extwz, 0x7fff7fff)
183 
        CHECK_MOVE(l.extwz, 0xffff7f7f)
184 
        CHECK_MOVE(l.extwz, 0xffffff7f)
185 
        CHECK_MOVE(l.extwz, 0xffff7fff)
186 
        CHECK_MOVE(l.extwz, 0x7fff7f7f)
187 
        CHECK_MOVE(l.extwz, 0x12345678)
188 
 
189 
        l.movhi r3,0xdead
190 
        l.ori   r3,r3,0xdead
191 
        l.nop   NOP_REPORT
192 
        l.ori   r3,r0,0
193 
        l.nop   NOP_EXIT
194 
 
195 
ext_fail:
196 
        l.ori   r3,r0,0x1234
197 
        l.nop   NOP_EXIT
198 
 
199 
unhandled_except:
200 
        l.addi  r3,r9,-8
201 
        l.nop   NOP_REPORT
202 
        l.nop   NOP_EXIT
203 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.