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 134

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

powered by: WebSVN 2.1.0

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