OpenCores

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [core/] [sim/] [rtl_sim/] [src/] [sing-op_rra.v] - Blame information for rev 111

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 olivier.girard
/*===========================================================================*/
2
/* Copyright (C) 2001 Authors                                                */
3
/*                                                                           */
4
/* This source file may be used and distributed without restriction provided */
5
/* that this copyright statement is not removed from the file and that any   */
6
/* derivative work contains the original copyright notice and the associated */
7
/* disclaimer.                                                               */
8
/*                                                                           */
9
/* This source file is free software; you can redistribute it and/or modify  */
10
/* it under the terms of the GNU Lesser General Public License as published  */
11
/* by the Free Software Foundation; either version 2.1 of the License, or    */
12
/* (at your option) any later version.                                       */
13
/*                                                                           */
14
/* This source is distributed in the hope that it will be useful, but WITHOUT*/
15
/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or     */
16
/* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public       */
17
/* License for more details.                                                 */
18
/*                                                                           */
19
/* You should have received a copy of the GNU Lesser General Public License  */
20
/* along with this source; if not, write to the Free Software Foundation,    */
21
/* Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA        */
22
/*                                                                           */
23
/*===========================================================================*/
24
/*                 SINGLE-OPERAND ARITHMETIC: RRA[.B] INSTRUCTION            */
25
/*---------------------------------------------------------------------------*/
26
/* Test the RRA[.B] instruction.                                             */
27 18 olivier.girard
/*                                                                           */
28
/* Author(s):                                                                */
29
/*             - Olivier Girard,    olgirard@gmail.com                       */
30
/*                                                                           */
31
/*---------------------------------------------------------------------------*/
32 19 olivier.girard
/* $Rev: 111 $                                                                */
33
/* $LastChangedBy: olivier.girard $                                          */
34
/* $LastChangedDate: 2011-05-20 22:39:02 +0200 (Fri, 20 May 2011) $          */
35 2 olivier.girard
/*===========================================================================*/
36
 
37
initial
38
   begin
39
      $display(" ===============================================");
40
      $display("|                 START SIMULATION              |");
41
      $display(" ===============================================");
42
      repeat(5) @(posedge mclk);
43
      stimulus_done = 0;
44
 
45
 
46
      // RRA (WORD MODE)
47
      //--------------------------------------------------------
48
 
49
      // Addressing mode: Rn
50
      @(r15==16'h1000);
51
      if (r4     !==16'h3999) tb_error("====== RRA (Rn mode): test 1 (result) =====");
52
      if (r5     !==16'h0000) tb_error("====== RRA (Rn mode): test 1 (C flag) =====");
53
 
54
      if (r6     !==16'h3999) tb_error("====== RRA (Rn mode): test 2 (result) =====");
55
      if (r7     !==16'h0001) tb_error("====== RRA (Rn mode): test 2 (C flag) =====");
56
 
57
      if (r8     !==16'hc199) tb_error("====== RRA (Rn mode): test 3 (result) =====");
58
      if (r9     !==16'h0004) tb_error("====== RRA (Rn mode): test 3 (C flag) =====");
59
 
60
      if (r10    !==16'hc199) tb_error("====== RRA (Rn mode): test 4 (result) =====");
61
      if (r11    !==16'h0005) tb_error("====== RRA (Rn mode): test 4 (C flag) =====");
62
 
63
 
64
      // Addressing mode: @Rn
65
      @(r15==16'h2000);
66 111 olivier.girard
      if (mem200 !==16'h3999)             tb_error("====== RRA (@Rn mode): test 1 (result)  =====");
67
      if (r4     !==(`PER_SIZE+16'h0000)) tb_error("====== RRA (@Rn mode): test 1 (address) =====");
68
      if (r5     !==16'h0000)             tb_error("====== RRA (@Rn mode): test 1 (C flag)  =====");
69 2 olivier.girard
 
70 111 olivier.girard
      if (mem202 !==16'h3999)             tb_error("====== RRA (@Rn mode): test 2 (result)  =====");
71
      if (r6     !==(`PER_SIZE+16'h0002)) tb_error("====== RRA (@Rn mode): test 2 (address) =====");
72
      if (r7     !==16'h0001)             tb_error("====== RRA (@Rn mode): test 2 (C flag)  =====");
73 2 olivier.girard
 
74 111 olivier.girard
      if (mem204 !==16'hc199)             tb_error("====== RRA (@Rn mode): test 3 (result)  =====");
75
      if (r8     !==(`PER_SIZE+16'h0004)) tb_error("====== RRA (@Rn mode): test 3 (address) =====");
76
      if (r9     !==16'h0004)             tb_error("====== RRA (@Rn mode): test 3 (C flag)  =====");
77 2 olivier.girard
 
78 111 olivier.girard
      if (mem206 !==16'hc199)             tb_error("====== RRA (@Rn mode): test 4 (result)  =====");
79
      if (r10    !==(`PER_SIZE+16'h0006)) tb_error("====== RRA (@Rn mode): test 4 (address) =====");
80
      if (r11    !==16'h0005)             tb_error("====== RRA (@Rn mode): test 4 (C flag)  =====");
81 2 olivier.girard
 
82
 
83
      // Addressing mode: @Rn+
84
      @(r15==16'h3000);
85 111 olivier.girard
      if (mem208 !==16'h3999)             tb_error("====== RRA (@Rn+ mode): test 1 (result)  =====");
86
      if (r4     !==(`PER_SIZE+16'h000A)) tb_error("====== RRA (@Rn+ mode): test 1 (address) =====");
87
      if (r5     !==16'h0000)             tb_error("====== RRA (@Rn+ mode): test 1 (C flag)  =====");
88 2 olivier.girard
 
89 111 olivier.girard
      if (mem20A !==16'h3999)             tb_error("====== RRA (@Rn+ mode): test 2 (result)  =====");
90
      if (r6     !==(`PER_SIZE+16'h000C)) tb_error("====== RRA (@Rn+ mode): test 2 (address) =====");
91
      if (r7     !==16'h0001)             tb_error("====== RRA (@Rn+ mode): test 2 (C flag)  =====");
92 2 olivier.girard
 
93 111 olivier.girard
      if (mem20C !==16'hc199)             tb_error("====== RRA (@Rn+ mode): test 3 (result)  =====");
94
      if (r8     !==(`PER_SIZE+16'h000E)) tb_error("====== RRA (@Rn+ mode): test 3 (address) =====");
95
      if (r9     !==16'h0004)             tb_error("====== RRA (@Rn+ mode): test 3 (C flag)  =====");
96 2 olivier.girard
 
97 111 olivier.girard
      if (mem20E !==16'hc199)             tb_error("====== RRA (@Rn+ mode): test 4 (result)  =====");
98
      if (r10    !==(`PER_SIZE+16'h0010)) tb_error("====== RRA (@Rn+ mode): test 4 (address) =====");
99
      if (r11    !==16'h0005)             tb_error("====== RRA (@Rn+ mode): test 4 (C flag)  =====");
100 2 olivier.girard
 
101
 
102
      // Addressing mode: X(Rn)
103
      @(r15==16'h4000);
104
      if (mem210 !==16'h3999) tb_error("====== RRA (X(Rn) mode): test 1 (result)  =====");
105
      if (r5     !==16'h0000) tb_error("====== RRA (X(Rn) mode): test 1 (C flag)  =====");
106
 
107
      if (mem212 !==16'h3999) tb_error("====== RRA (X(Rn) mode): test 2 (result)  =====");
108
      if (r7     !==16'h0001) tb_error("====== RRA (X(Rn) mode): test 2 (C flag)  =====");
109
 
110
      if (mem214 !==16'hc199) tb_error("====== RRA (X(Rn) mode): test 3 (result)  =====");
111
      if (r9     !==16'h0004) tb_error("====== RRA (X(Rn) mode): test 3 (C flag)  =====");
112
 
113
      if (mem216 !==16'hc199) tb_error("====== RRA (X(Rn) mode): test 4 (result)  =====");
114
      if (r11    !==16'h0005) tb_error("====== RRA (X(Rn) mode): test 4 (C flag)  =====");
115
 
116
 
117
      // Addressing mode: EDE
118
      @(r15==16'h5000);
119
      if (mem218 !==16'h3999) tb_error("====== RRA (EDE mode): test 1 (result)  =====");
120
      if (r5     !==16'h0000) tb_error("====== RRA (EDE mode): test 1 (C flag)  =====");
121
 
122
      if (mem21A !==16'h3999) tb_error("====== RRA (EDE mode): test 2 (result)  =====");
123
      if (r7     !==16'h0001) tb_error("====== RRA (EDE mode): test 2 (C flag)  =====");
124
 
125
      if (mem21C !==16'hc199) tb_error("====== RRA (EDE mode): test 3 (result)  =====");
126
      if (r9     !==16'h0004) tb_error("====== RRA (EDE mode): test 3 (C flag)  =====");
127
 
128
      if (mem21E !==16'hc199) tb_error("====== RRA (EDE mode): test 4 (result)  =====");
129
      if (r11    !==16'h0005) tb_error("====== RRA (EDE mode): test 4 (C flag)  =====");
130
 
131
 
132
      // Addressing mode: &EDE
133
      @(r15==16'h6000);
134
      if (mem220 !==16'h3999) tb_error("====== RRA (&EDE mode): test 1 (result)  =====");
135
      if (r5     !==16'h0000) tb_error("====== RRA (&EDE mode): test 1 (C flag)  =====");
136
 
137
      if (mem222 !==16'h3999) tb_error("====== RRA (&EDE mode): test 2 (result)  =====");
138
      if (r7     !==16'h0001) tb_error("====== RRA (&EDE mode): test 2 (C flag)  =====");
139
 
140
      if (mem224 !==16'hc199) tb_error("====== RRA (&EDE mode): test 3 (result)  =====");
141
      if (r9     !==16'h0004) tb_error("====== RRA (&EDE mode): test 3 (C flag)  =====");
142
 
143
      if (mem226 !==16'hc199) tb_error("====== RRA (&EDE mode): test 4 (result)  =====");
144
      if (r11    !==16'h0005) tb_error("====== RRA (&EDE mode): test 4 (C flag)  =====");
145
 
146
 
147
      // Clear Memory
148
      //--------------------------------------------------------
149
      @(r15==16'h7000);
150
 
151
 
152
      // RRA (BYTE MODE)
153
      //--------------------------------------------------------
154
 
155
      // Addressing mode: Rn
156
      @(r15==16'h8000);
157
      if (r4     !==16'h0039) tb_error("====== RRA.B (Rn mode): test 1 (result) =====");
158
      if (r5     !==16'h0000) tb_error("====== RRA.B (Rn mode): test 1 (C flag) =====");
159
 
160
      if (r6     !==16'h0039) tb_error("====== RRA.B (Rn mode): test 2 (result) =====");
161
      if (r7     !==16'h0001) tb_error("====== RRA.B (Rn mode): test 2 (C flag) =====");
162
 
163
      if (r8     !==16'h00c1) tb_error("====== RRA.B (Rn mode): test 3 (result) =====");
164
      if (r9     !==16'h0004) tb_error("====== RRA.B (Rn mode): test 3 (C flag) =====");
165
 
166
      if (r10    !==16'h00c1) tb_error("====== RRA.B (Rn mode): test 4 (result) =====");
167
      if (r11    !==16'h0005) tb_error("====== RRA.B (Rn mode): test 4 (C flag) =====");
168
 
169
 
170
      // Addressing mode: @Rn (low byte)
171
      @(r15==16'h9000);
172 111 olivier.girard
      if (mem200 !==16'h2539)             tb_error("====== RRA.B (@Rn mode): test 1, low byte (result)  =====");
173
      if (r4     !==(`PER_SIZE+16'h0000)) tb_error("====== RRA.B (@Rn mode): test 1, low byte (address) =====");
174
      if (r5     !==16'h0000)             tb_error("====== RRA.B (@Rn mode): test 1, low byte (C flag)  =====");
175 2 olivier.girard
 
176 111 olivier.girard
      if (mem202 !==16'h2539)             tb_error("====== RRA.B (@Rn mode): test 2, low byte (result)  =====");
177
      if (r6     !==(`PER_SIZE+16'h0002)) tb_error("====== RRA.B (@Rn mode): test 2, low byte (address) =====");
178
      if (r7     !==16'h0001)             tb_error("====== RRA.B (@Rn mode): test 2, low byte (C flag)  =====");
179 2 olivier.girard
 
180 111 olivier.girard
      if (mem204 !==16'h25c1)             tb_error("====== RRA.B (@Rn mode): test 3, low byte (result)  =====");
181
      if (r8     !==(`PER_SIZE+16'h0004)) tb_error("====== RRA.B (@Rn mode): test 3, low byte (address) =====");
182
      if (r9     !==16'h0004)             tb_error("====== RRA.B (@Rn mode): test 3, low byte (C flag)  =====");
183 2 olivier.girard
 
184 111 olivier.girard
      if (mem206 !==16'h25c1)             tb_error("====== RRA.B (@Rn mode): test 4, low byte (result)  =====");
185
      if (r10    !==(`PER_SIZE+16'h0006)) tb_error("====== RRA.B (@Rn mode): test 4, low byte (address) =====");
186
      if (r11    !==16'h0005)             tb_error("====== RRA.B (@Rn mode): test 4, low byte (C flag)  =====");
187 2 olivier.girard
 
188
      // Addressing mode: @Rn (high byte)
189
      @(r15==16'h9001);
190 111 olivier.girard
      if (mem208 !==16'h3925)             tb_error("====== RRA.B (@Rn mode): test 1, high byte (result)  =====");
191
      if (r4     !==(`PER_SIZE+16'h0009)) tb_error("====== RRA.B (@Rn mode): test 1, high byte (address) =====");
192
      if (r5     !==16'h0000)             tb_error("====== RRA.B (@Rn mode): test 1, high byte (C flag)  =====");
193 2 olivier.girard
 
194 111 olivier.girard
      if (mem20A !==16'h3925)             tb_error("====== RRA.B (@Rn mode): test 2, high byte (result)  =====");
195
      if (r6     !==(`PER_SIZE+16'h000B)) tb_error("====== RRA.B (@Rn mode): test 2, high byte (address) =====");
196
      if (r7     !==16'h0001)             tb_error("====== RRA.B (@Rn mode): test 2, high byte (C flag)  =====");
197 2 olivier.girard
 
198 111 olivier.girard
      if (mem20C !==16'hc125)             tb_error("====== RRA.B (@Rn mode): test 3, high byte (result)  =====");
199
      if (r8     !==(`PER_SIZE+16'h000D)) tb_error("====== RRA.B (@Rn mode): test 3, high byte (address) =====");
200
      if (r9     !==16'h0004)             tb_error("====== RRA.B (@Rn mode): test 3, high byte (C flag)  =====");
201 2 olivier.girard
 
202 111 olivier.girard
      if (mem20E !==16'hc125)             tb_error("====== RRA.B (@Rn mode): test 4, high byte (result)  =====");
203
      if (r10    !==(`PER_SIZE+16'h000F)) tb_error("====== RRA.B (@Rn mode): test 4, high byte (address) =====");
204
      if (r11    !==16'h0005)             tb_error("====== RRA.B (@Rn mode): test 4, high byte (C flag)  =====");
205 2 olivier.girard
 
206
 
207
      // Addressing mode: @Rn+ (low byte)
208
      @(r15==16'hA000);
209 111 olivier.girard
      if (mem210 !==16'h2539)             tb_error("====== RRA.B (@Rn+ mode): test 1, low byte (result)  =====");
210
      if (r4     !==(`PER_SIZE+16'h0011)) tb_error("====== RRA.B (@Rn+ mode): test 1, low byte (address) =====");
211
      if (r5     !==16'h0000)             tb_error("====== RRA.B (@Rn+ mode): test 1, low byte (C flag)  =====");
212 2 olivier.girard
 
213 111 olivier.girard
      if (mem212 !==16'h2539)             tb_error("====== RRA.B (@Rn+ mode): test 2, low byte (result)  =====");
214
      if (r6     !==(`PER_SIZE+16'h0013)) tb_error("====== RRA.B (@Rn+ mode): test 2, low byte (address) =====");
215
      if (r7     !==16'h0001)             tb_error("====== RRA.B (@Rn+ mode): test 2, low byte (C flag)  =====");
216 2 olivier.girard
 
217 111 olivier.girard
      if (mem214 !==16'h25c1)             tb_error("====== RRA.B (@Rn+ mode): test 3, low byte (result)  =====");
218
      if (r8     !==(`PER_SIZE+16'h0015)) tb_error("====== RRA.B (@Rn+ mode): test 3, low byte (address) =====");
219
      if (r9     !==16'h0004)             tb_error("====== RRA.B (@Rn+ mode): test 3, low byte (C flag)  =====");
220 2 olivier.girard
 
221 111 olivier.girard
      if (mem216 !==16'h25c1)             tb_error("====== RRA.B (@Rn+ mode): test 4, low byte (result)  =====");
222
      if (r10    !==(`PER_SIZE+16'h0017)) tb_error("====== RRA.B (@Rn+ mode): test 4, low byte (address) =====");
223
      if (r11    !==16'h0005)             tb_error("====== RRA.B (@Rn+ mode): test 4, low byte (C flag)  =====");
224 2 olivier.girard
 
225
      // Addressing mode: @Rn+ (high byte)
226
      @(r15==16'hA001);
227 111 olivier.girard
      if (mem218 !==16'h3925)             tb_error("====== RRA.B (@Rn+ mode): test 1, high byte (result)  =====");
228
      if (r4     !==(`PER_SIZE+16'h001A)) tb_error("====== RRA.B (@Rn+ mode): test 1, high byte (address) =====");
229
      if (r5     !==16'h0000)             tb_error("====== RRA.B (@Rn+ mode): test 1, high byte (C flag)  =====");
230 2 olivier.girard
 
231 111 olivier.girard
      if (mem21A !==16'h3925)             tb_error("====== RRA.B (@Rn+ mode): test 2, high byte (result)  =====");
232
      if (r6     !==(`PER_SIZE+16'h001C)) tb_error("====== RRA.B (@Rn+ mode): test 2, high byte (address) =====");
233
      if (r7     !==16'h0001)             tb_error("====== RRA.B (@Rn+ mode): test 2, high byte (C flag)  =====");
234 2 olivier.girard
 
235 111 olivier.girard
      if (mem21C !==16'hc125)             tb_error("====== RRA.B (@Rn+ mode): test 3, high byte (result)  =====");
236
      if (r8     !==(`PER_SIZE+16'h001E)) tb_error("====== RRA.B (@Rn+ mode): test 3, high byte (address) =====");
237
      if (r9     !==16'h0004)             tb_error("====== RRA.B (@Rn+ mode): test 3, high byte (C flag)  =====");
238 2 olivier.girard
 
239 111 olivier.girard
      if (mem21E !==16'hc125)             tb_error("====== RRA.B (@Rn+ mode): test 4, high byte (result)  =====");
240
      if (r10    !==(`PER_SIZE+16'h0020)) tb_error("====== RRA.B (@Rn+ mode): test 4, high byte (address) =====");
241
      if (r11    !==16'h0005)             tb_error("====== RRA.B (@Rn+ mode): test 4, high byte (C flag)  =====");
242 2 olivier.girard
 
243
 
244
      // Addressing mode: X(Rn) (low byte)
245
      @(r15==16'hB000);
246
      if (mem220 !==16'h2539) tb_error("====== RRA.B (X(Rn) mode): test 1, low byte (result)  =====");
247
      if (r5     !==16'h0000) tb_error("====== RRA.B (X(Rn) mode): test 1, low byte (C flag)  =====");
248
 
249
      if (mem222 !==16'h2539) tb_error("====== RRA.B (X(Rn) mode): test 2, low byte (result)  =====");
250
      if (r7     !==16'h0001) tb_error("====== RRA.B (X(Rn) mode): test 2, low byte (C flag)  =====");
251
 
252
      if (mem224 !==16'h25c1) tb_error("====== RRA.B (X(Rn) mode): test 3, low byte (result)  =====");
253
      if (r9     !==16'h0004) tb_error("====== RRA.B (X(Rn) mode): test 3, low byte (C flag)  =====");
254
 
255
      if (mem226 !==16'h25c1) tb_error("====== RRA.B (X(Rn) mode): test 4, low byte (result)  =====");
256
      if (r11    !==16'h0005) tb_error("====== RRA.B (X(Rn) mode): test 4, low byte (C flag)  =====");
257
 
258
      // Addressing mode: X(Rn) (high byte)
259
      @(r15==16'hB001);
260
      if (mem228 !==16'h3925) tb_error("====== RRA.B (X(Rn) mode): test 1, high byte (result)  =====");
261
      if (r5     !==16'h0000) tb_error("====== RRA.B (X(Rn) mode): test 1, high byte (C flag)  =====");
262
 
263
      if (mem22A !==16'h3925) tb_error("====== RRA.B (X(Rn) mode): test 2, high byte (result)  =====");
264
      if (r7     !==16'h0001) tb_error("====== RRA.B (X(Rn) mode): test 2, high byte (C flag)  =====");
265
 
266
      if (mem22C !==16'hc125) tb_error("====== RRA.B (X(Rn) mode): test 3, high byte (result)  =====");
267
      if (r9     !==16'h0004) tb_error("====== RRA.B (X(Rn) mode): test 3, high byte (C flag)  =====");
268
 
269
      if (mem22E !==16'hc125) tb_error("====== RRA.B (X(Rn) mode): test 4, high byte (result)  =====");
270
      if (r11    !==16'h0005) tb_error("====== RRA.B (X(Rn) mode): test 4, high byte (C flag)  =====");
271
 
272
      // Addressing mode: EDE (low byte)
273
      @(r15==16'hC000);
274
      if (mem230 !==16'h2539) tb_error("====== RRA.B (EDE mode): test 1, low byte (result)  =====");
275
      if (r5     !==16'h0000) tb_error("====== RRA.B (EDE mode): test 1, low byte (C flag)  =====");
276
 
277
      if (mem232 !==16'h2539) tb_error("====== RRA.B (EDE mode): test 2, low byte (result)  =====");
278
      if (r7     !==16'h0001) tb_error("====== RRA.B (EDE mode): test 2, low byte (C flag)  =====");
279
 
280
      if (mem234 !==16'h25c1) tb_error("====== RRA.B (EDE mode): test 3, low byte (result)  =====");
281
      if (r9     !==16'h0004) tb_error("====== RRA.B (EDE mode): test 3, low byte (C flag)  =====");
282
 
283
      if (mem236 !==16'h25c1) tb_error("====== RRA.B (EDE mode): test 4, low byte (result)  =====");
284
      if (r11    !==16'h0005) tb_error("====== RRA.B (EDE mode): test 4, low byte (C flag)  =====");
285
 
286
      // Addressing mode: EDE (high byte)
287
      @(r15==16'hC001);
288
      if (mem238 !==16'h3925) tb_error("====== RRA.B (EDE mode): test 1, high byte (result)  =====");
289
      if (r5     !==16'h0000) tb_error("====== RRA.B (EDE mode): test 1, high byte (C flag)  =====");
290
 
291
      if (mem23A !==16'h3925) tb_error("====== RRA.B (EDE mode): test 2, high byte (result)  =====");
292
      if (r7     !==16'h0001) tb_error("====== RRA.B (EDE mode): test 2, high byte (C flag)  =====");
293
 
294
      if (mem23C !==16'hc125) tb_error("====== RRA.B (EDE mode): test 3, high byte (result)  =====");
295
      if (r9     !==16'h0004) tb_error("====== RRA.B (EDE mode): test 3, high byte (C flag)  =====");
296
 
297
      if (mem23E !==16'hc125) tb_error("====== RRA.B (EDE mode): test 4, high byte (result)  =====");
298
      if (r11    !==16'h0005) tb_error("====== RRA.B (EDE mode): test 4, high byte (C flag)  =====");
299
 
300
 
301
      // Addressing mode: &EDE (low byte)
302
      @(r15==16'hD000);
303
      if (mem240 !==16'h2539) tb_error("====== RRA.B (&EDE mode): test 1, low byte (result)  =====");
304
      if (r5     !==16'h0000) tb_error("====== RRA.B (&EDE mode): test 1, low byte (C flag)  =====");
305
 
306
      if (mem242 !==16'h2539) tb_error("====== RRA.B (&EDE mode): test 2, low byte (result)  =====");
307
      if (r7     !==16'h0001) tb_error("====== RRA.B (&EDE mode): test 2, low byte (C flag)  =====");
308
 
309
      if (mem244 !==16'h25c1) tb_error("====== RRA.B (&EDE mode): test 3, low byte (result)  =====");
310
      if (r9     !==16'h0004) tb_error("====== RRA.B (&EDE mode): test 3, low byte (C flag)  =====");
311
 
312
      if (mem246 !==16'h25c1) tb_error("====== RRA.B (&EDE mode): test 4, low byte (result)  =====");
313
      if (r11    !==16'h0005) tb_error("====== RRA.B (&EDE mode): test 4, low byte (C flag)  =====");
314
 
315
      // Addressing mode: &EDE (high byte)
316
      @(r15==16'hD001);
317
      if (mem248 !==16'h3925) tb_error("====== RRA.B (&EDE mode): test 1, high byte (result)  =====");
318
      if (r5     !==16'h0000) tb_error("====== RRA.B (&EDE mode): test 1, high byte (C flag)  =====");
319
 
320
      if (mem24A !==16'h3925) tb_error("====== RRA.B (&EDE mode): test 2, high byte (result)  =====");
321
      if (r7     !==16'h0001) tb_error("====== RRA.B (&EDE mode): test 2, high byte (C flag)  =====");
322
 
323
      if (mem24C !==16'hc125) tb_error("====== RRA.B (&EDE mode): test 3, high byte (result)  =====");
324
      if (r9     !==16'h0004) tb_error("====== RRA.B (&EDE mode): test 3, high byte (C flag)  =====");
325
 
326
      if (mem24E !==16'hc125) tb_error("====== RRA.B (&EDE mode): test 4, high byte (result)  =====");
327
      if (r11    !==16'h0005) tb_error("====== RRA.B (&EDE mode): test 4, high byte (C flag)  =====");
328
 
329
      stimulus_done = 1;
330
   end
331
 

powered by: WebSVN 2.1.0

© copyright 1999-2014 OpenCores.org, equivalent to ORSoC AB, all rights reserved. OpenCores®, registered trademark.