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

Subversion Repositories openmsp430

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

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

Line No. Rev Author Line
1 2 olivier.gi 
/*===========================================================================*/
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: RETI  INSTRUCTION              */
25 
/*---------------------------------------------------------------------------*/
26 
/* Test the RETI instruction.                                                */
27 
/*===========================================================================*/
28 
 
29 
integer    i;
30 
reg [15:0] temp_val;
31 
 
32 
initial
33 
   begin
34 
      $display(" ===============================================");
35 
      $display("|                 START SIMULATION              |");
36 
      $display(" ===============================================");
37 
      repeat(5) @(posedge mclk);
38 
      stimulus_done = 0;
39 
 
40 
      // RETI Instruction test
41 
      //--------------------------
42 
      @(r15==16'h1000);
43 
      if (r3    !==16'h0000) tb_error("====== RESET Vector: R3  value  =====");
44 
      if (r4    !==16'h0000) tb_error("====== RESET Vector: R4  value  =====");
45 
      if (r5    !==16'h0000) tb_error("====== RESET Vector: R5  value  =====");
46 
      if (r6    !==16'h0000) tb_error("====== RESET Vector: R6  value  =====");
47 
      if (r7    !==16'h0000) tb_error("====== RESET Vector: R7  value  =====");
48 
      if (r8    !==16'h0000) tb_error("====== RESET Vector: R8  value  =====");
49 
      if (r9    !==16'h0000) tb_error("====== RESET Vector: R9  value  =====");
50 
      if (r10   !==16'h0000) tb_error("====== RESET Vector: R10 value  =====");
51 
      if (r11   !==16'h0000) tb_error("====== RESET Vector: R11 value  =====");
52 
      if (r12   !==16'h0000) tb_error("====== RESET Vector: R12 value  =====");
53 
      if (r13   !==16'h0000) tb_error("====== RESET Vector: R13 value  =====");
54 
      if (r14   !==16'h0000) tb_error("====== RESET Vector: R14 value  =====");
55 
 
56 
 
57 
      // RETI Instruction test
58 
      //--------------------------
59 
      @(r15==16'h2000);
60 
      if (r1    !==16'h0252) tb_error("====== RETI: SP value      =====");
61 
      if (r2    !==16'h0145) tb_error("====== RETI: SR value      =====");
62 
      if (r5    !==16'h1234) tb_error("====== RETI: R5 value      =====");
63 
 
64 
 
65 
      // Test interruption 0
66 
      //--------------------------
67 
      @(r15==16'h3000);
68 
      repeat(2) @(posedge mclk);
69 
      irq[0] = 1'b1;
70 
      repeat(15) @(posedge mclk);
71 
      irq[0] = 1'b0;
72 
 
73 
      @(r15==16'h3001);
74 
      if (r1    !==16'h0252) tb_error("====== IRQ  0: SP value      =====");
75 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  0: GIE value     =====");
76 
      if (r6    !==16'h5678) tb_error("====== IRQ  0: R6 value      =====");
77 
      if (r7    !==16'h0000) tb_error("====== IRQ  0: R7 value      =====");
78 
      if (r8    !==16'h024e) tb_error("====== IRQ  0: R8 value      =====");
79 
 
80 
 
81 
      // Test interruption 1
82 
      //--------------------------
83 
      @(r15==16'h4000);
84 
      repeat(2) @(posedge mclk);
85 
      irq[1:0] = {2{1'b1}};
86 
      repeat(15) @(posedge mclk);
87 
      irq[1:0] = 1'b0;
88 
 
89 
      @(r15==16'h4001);
90 
      if (r1    !==16'h0252) tb_error("====== IRQ  1: SP value      =====");
91 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  1: GIE value     =====");
92 
      if (r6    !==16'h9abc) tb_error("====== IRQ  1: R6 value      =====");
93 
      if (r7    !==16'h0000) tb_error("====== IRQ  1: R7 value      =====");
94 
      if (r8    !==16'h024e) tb_error("====== IRQ  1: R8 value      =====");
95 
 
96 
 
97 
      // Test interruption 2
98 
      //--------------------------
99 
      @(r15==16'h5000);
100 
      repeat(2) @(posedge mclk);
101 
      irq[2:0] = {3{1'b1}};
102 
      repeat(15) @(posedge mclk);
103 
      irq[2:0] = 1'b0;
104 
 
105 
      @(r15==16'h5001);
106 
      if (r1    !==16'h0252) tb_error("====== IRQ  2: SP value      =====");
107 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  2: GIE value     =====");
108 
      if (r6    !==16'hdef1) tb_error("====== IRQ  2: R6 value      =====");
109 
      if (r7    !==16'h0000) tb_error("====== IRQ  2: R7 value      =====");
110 
      if (r8    !==16'h024e) tb_error("====== IRQ  2: R8 value      =====");
111 
 
112 
 
113 
      // Test interruption 3
114 
      //--------------------------
115 
      @(r15==16'h6000);
116 
      repeat(2) @(posedge mclk);
117 
      irq[3:0] = {4{1'b1}};
118 
      repeat(15) @(posedge mclk);
119 
      irq[3:0] = 1'b0;
120 
 
121 
      @(r15==16'h6001);
122 
      if (r1    !==16'h0252) tb_error("====== IRQ  3: SP value      =====");
123 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  3: GIE value     =====");
124 
      if (r6    !==16'h2345) tb_error("====== IRQ  3: R6 value      =====");
125 
      if (r7    !==16'h0000) tb_error("====== IRQ  3: R7 value      =====");
126 
      if (r8    !==16'h024e) tb_error("====== IRQ  3: R8 value      =====");
127 
 
128 
 
129 
      // Test interruption 4
130 
      //--------------------------
131 
      @(r15==16'h7000);
132 
      repeat(2) @(posedge mclk);
133 
      irq[4:0] = {5{1'b1}};
134 
      repeat(15) @(posedge mclk);
135 
      irq[4:0] = 1'b0;
136 
 
137 
      @(r15==16'h7001);
138 
      if (r1    !==16'h0252) tb_error("====== IRQ  4: SP value      =====");
139 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  4: GIE value     =====");
140 
      if (r6    !==16'h6789) tb_error("====== IRQ  4: R6 value      =====");
141 
      if (r7    !==16'h0000) tb_error("====== IRQ  4: R7 value      =====");
142 
      if (r8    !==16'h024e) tb_error("====== IRQ  4: R8 value      =====");
143 
 
144 
 
145 
      // Test interruption 5
146 
      //--------------------------
147 
      @(r15==16'h8000);
148 
      repeat(2) @(posedge mclk);
149 
      irq[5:0] = {6{1'b1}};
150 
      repeat(15) @(posedge mclk);
151 
      irq[5:0] = 1'b0;
152 
 
153 
      @(r15==16'h8001);
154 
      if (r1    !==16'h0252) tb_error("====== IRQ  5: SP value      =====");
155 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  5: GIE value     =====");
156 
      if (r6    !==16'habcd) tb_error("====== IRQ  5: R6 value      =====");
157 
      if (r7    !==16'h0000) tb_error("====== IRQ  5: R7 value      =====");
158 
      if (r8    !==16'h024e) tb_error("====== IRQ  5: R8 value      =====");
159 
 
160 
 
161 
      // Test interruption 6
162 
      //--------------------------
163 
      @(r15==16'h9000);
164 
      repeat(2) @(posedge mclk);
165 
      irq[6:0] = {7{1'b1}};
166 
      repeat(15) @(posedge mclk);
167 
      irq[6:0] = 1'b0;
168 
 
169 
      @(r15==16'h9001);
170 
      if (r1    !==16'h0252) tb_error("====== IRQ  6: SP value      =====");
171 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  6: GIE value     =====");
172 
      if (r6    !==16'hef12) tb_error("====== IRQ  6: R6 value      =====");
173 
      if (r7    !==16'h0000) tb_error("====== IRQ  6: R7 value      =====");
174 
      if (r8    !==16'h024e) tb_error("====== IRQ  6: R8 value      =====");
175 
 
176 
 
177 
      // Test interruption 7
178 
      //--------------------------
179 
      @(r15==16'ha000);
180 
      repeat(2) @(posedge mclk);
181 
      irq[7:0] = {8{1'b1}};
182 
      repeat(15) @(posedge mclk);
183 
      irq[7:0] = 1'b0;
184 
 
185 
      @(r15==16'ha001);
186 
      if (r1    !==16'h0252) tb_error("====== IRQ  7: SP value      =====");
187 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  7: GIE value     =====");
188 
      if (r6    !==16'h3456) tb_error("====== IRQ  7: R6 value      =====");
189 
      if (r7    !==16'h0000) tb_error("====== IRQ  7: R7 value      =====");
190 
      if (r8    !==16'h024e) tb_error("====== IRQ  7: R8 value      =====");
191 
 
192 
 
193 
      // Test interruption 8
194 
      //--------------------------
195 
      @(r15==16'hb000);
196 
      repeat(2) @(posedge mclk);
197 
      irq[8:0] = {9{1'b1}};
198 
      repeat(15) @(posedge mclk);
199 
      irq[8:0] = 1'b0;
200 
 
201 
      @(r15==16'hb001);
202 
      if (r1    !==16'h0252) tb_error("====== IRQ  8: SP value      =====");
203 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  8: GIE value     =====");
204 
      if (r6    !==16'h789a) tb_error("====== IRQ  8: R6 value      =====");
205 
      if (r7    !==16'h0000) tb_error("====== IRQ  8: R7 value      =====");
206 
      if (r8    !==16'h024e) tb_error("====== IRQ  8: R8 value      =====");
207 
 
208 
 
209 
      // Test interruption 9
210 
      //--------------------------
211 
      @(r15==16'hc000);
212 
      repeat(2) @(posedge mclk);
213 
      irq[9:0] = {10{1'b1}};
214 
      repeat(15) @(posedge mclk);
215 
      irq[9:0] = 1'b0;
216 
 
217 
      @(r15==16'hc001);
218 
      if (r1    !==16'h0252) tb_error("====== IRQ  9: SP value      =====");
219 
      if (r2[3] !==1'b1)     tb_error("====== IRQ  9: GIE value     =====");
220 
      if (r6    !==16'hbcde) tb_error("====== IRQ  9: R6 value      =====");
221 
      if (r7    !==16'h0000) tb_error("====== IRQ  9: R7 value      =====");
222 
      if (r8    !==16'h024e) tb_error("====== IRQ  9: R8 value      =====");
223 
 
224 
 
225 
      // Test interruption 10
226 
      //--------------------------
227 
      @(r15==16'hd000);
228 
      repeat(2) @(posedge mclk);
229 
      irq[10:0] = {11{1'b1}};
230 
      repeat(15) @(posedge mclk);
231 
      irq[10:0] = 1'b0;
232 
 
233 
      @(r15==16'hd001);
234 
      if (r1    !==16'h0252) tb_error("====== IRQ 10: SP value      =====");
235 
      if (r2[3] !==1'b1)     tb_error("====== IRQ 10: GIE value     =====");
236 
      if (r6    !==16'hf123) tb_error("====== IRQ 10: R6 value      =====");
237 
      if (r7    !==16'h0000) tb_error("====== IRQ 10: R7 value      =====");
238 
      if (r8    !==16'h024e) tb_error("====== IRQ 10: R8 value      =====");
239 
 
240 
 
241 
      // Test interruption 11
242 
      //--------------------------
243 
      @(r15==16'he000);
244 
      repeat(2) @(posedge mclk);
245 
      irq[11:0] = {12{1'b1}};
246 
      repeat(15) @(posedge mclk);
247 
      irq[11:0] = 1'b0;
248 
 
249 
      @(r15==16'he001);
250 
      if (r1    !==16'h0252) tb_error("====== IRQ 11: SP value      =====");
251 
      if (r2[3] !==1'b1)     tb_error("====== IRQ 11: GIE value     =====");
252 
      if (r6    !==16'h4567) tb_error("====== IRQ 11: R6 value      =====");
253 
      if (r7    !==16'h0000) tb_error("====== IRQ 11: R7 value      =====");
254 
      if (r8    !==16'h024e) tb_error("====== IRQ 11: R8 value      =====");
255 
 
256 
 
257 
      // Test interruption 12
258 
      //--------------------------
259 
      @(r15==16'hf000);
260 
      repeat(2) @(posedge mclk);
261 
      irq[12:0] = {13{1'b1}};
262 
      repeat(15) @(posedge mclk);
263 
      irq[12:0] = 1'b0;
264 
 
265 
      @(r15==16'hf001);
266 
      if (r1    !==16'h0252) tb_error("====== IRQ 12: SP value      =====");
267 
      if (r2[3] !==1'b1)     tb_error("====== IRQ 12: GIE value     =====");
268 
      if (r6    !==16'h89ab) tb_error("====== IRQ 12: R6 value      =====");
269 
      if (r7    !==16'h0000) tb_error("====== IRQ 12: R7 value      =====");
270 
      if (r8    !==16'h024e) tb_error("====== IRQ 12: R8 value      =====");
271 
 
272 
 
273 
      // Test interruption 13
274 
      //--------------------------
275 
      @(r15==16'hf100);
276 
      repeat(2) @(posedge mclk);
277 
      irq[13:0] = {14{1'b1}};
278 
      repeat(15) @(posedge mclk);
279 
      irq[13:0] = 1'b0;
280 
 
281 
      @(r15==16'hf101);
282 
      if (r1    !==16'h0252) tb_error("====== IRQ 13: SP value      =====");
283 
      if (r2[3] !==1'b1)     tb_error("====== IRQ 13: GIE value     =====");
284 
      if (r6    !==16'hcdef) tb_error("====== IRQ 13: R6 value      =====");
285 
      if (r7    !==16'h0000) tb_error("====== IRQ 13: R7 value      =====");
286 
      if (r8    !==16'h024e) tb_error("====== IRQ 13: R8 value      =====");
287 
 
288 
 
289 
      // Test interruption NMI:  rising edge
290 
      //--------------------------------------
291 
      @(r15==16'hf200);
292 
      repeat(2) @(posedge mclk);
293 
      irq[13:0] = {14{1'b1}};
294 
      nmi       = 1'b1;
295 
      repeat(15) @(posedge mclk);
296 
      irq[13:0] = 1'b0;
297 
      nmi       = 1'b0;
298 
 
299 
      @(r15==16'hf201);
300 
      if (r1    !==16'h0252) tb_error("====== NMI: SP value      =====");
301 
      if (r2[3] !==1'b1)     tb_error("====== NMI: GIE value     =====");
302 
      if (r6    !==16'h0123) tb_error("====== NMI: R6 value      =====");
303 
      if (r7    !==16'h0000) tb_error("====== NMI: R7 value      =====");
304 
      if (r8    !==16'h024e) tb_error("====== NMI: R8 value      =====");
305 
 
306 
      if (r9    !==16'h0000) tb_error("====== NMI: NMIE   value  =====");
307 
      if (r10   !==16'h0010) tb_error("====== NMI: NMIIFG value  =====");
308 
 
309 
 
310 
      stimulus_done = 1;
311 
   end
312 
 

powered by: WebSVN 2.1.0

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