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

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [core/] [sim/] [rtl_sim/] [src/] [two-op_subc.v] - Blame information for rev 19

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 
/*                 TWO-OPERAND ARITHMETIC: SUBC[.B] INSTRUCTION              */
25 
/*---------------------------------------------------------------------------*/
26 
/* Test the SUBC[.B] instruction.                                            */
27 18 olivier.gi 
/*                                                                           */
28 
/* Author(s):                                                                */
29 
/*             - Olivier Girard,    olgirard@gmail.com                       */
30 
/*                                                                           */
31 
/*---------------------------------------------------------------------------*/
32 19 olivier.gi 
/* $Rev: 19 $                                                                */
33 
/* $LastChangedBy: olivier.girard $                                          */
34 
/* $LastChangedDate: 2009-08-04 23:47:15 +0200 (Tue, 04 Aug 2009) $          */
35 2 olivier.gi 
/*===========================================================================*/
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 
      // SUBC (WORD MODE)
47 
      //--------------------------------------------------------
48 
      @(r15==16'h1000);
49 
 
50 
      if (r5    !==16'h5554) tb_error("====== SUBC without Carry =====");
51 
      if (r6    !==16'h4444) tb_error("====== SUBC with Carry =====");
52 
 
53 
 
54 
      // SUBC.B (BYTE MODE)
55 
      //--------------------------------------------------------
56 
      @(r15==16'h2000);
57 
 
58 
      if (r5    !==16'h0054) tb_error("====== SUBC.B  without Carry =====");
59 
      if (r6    !==16'h0044) tb_error("====== SUBC.B  with Carry =====");
60 
 
61 
 
62 
      // SUBC (WORD MODE): Check Flags
63 
      //--------------------------------------------------------
64 
 
65 
      @(r15==16'h3000);
66 
      if (r2    !==16'h0004) tb_error("====== SUBC FLAG: Flag   check error: V=0, N=1, Z=0, C=0 =====");
67 
      if (r5    !==16'hfbbb) tb_error("====== SUBC FLAG: Result check error: V=0, N=1, Z=0, C=0 =====");
68 
 
69 
      @(r15==16'h3001);
70 
      if (r2    !==16'h0001) tb_error("====== SUBC FLAG: Flag   check error: V=0, N=0, Z=0, C=1 =====");
71 
      if (r5    !==16'h0110) tb_error("====== SUBC FLAG: Result check error: V=0, N=0, Z=0, C=1 =====");
72 
 
73 
      @(r15==16'h3002);
74 
      if (r2    !==16'h0003) tb_error("====== SUBC FLAG: Flag   check error: V=0, N=0, Z=1, C=1 =====");
75 
      if (r5    !==16'h0000) tb_error("====== SUBC FLAG: Result check error: V=0, N=0, Z=1, C=1 =====");
76 
 
77 
      @(r15==16'h3003);
78 
      if (r2    !==16'h0104) tb_error("====== SUBC FLAG: Flag   check error: V=1, N=1, Z=0, C=0 =====");
79 
      if (r5    !==16'hfef0) tb_error("====== SUBC FLAG: Result check error: V=1, N=1, Z=0, C=0 =====");
80 
 
81 
      @(r15==16'h3004);
82 
      if (r2    !==16'h0101) tb_error("====== SUBC FLAG: Flag   check error: V=1, N=0, Z=0, C=1 =====");
83 
      if (r5    !==16'h00ff) tb_error("====== SUBC FLAG: Result check error: V=1, N=0, Z=0, C=1 =====");
84 
 
85 
 
86 
      // SUBC.B (BYTE MODE): Check Flags
87 
      //--------------------------------------------------------
88 
 
89 
      @(r15==16'h4000);
90 
      if (r2    !==16'h0004) tb_error("====== SUBC.B FLAG: Flag   check error: V=0, N=1, Z=0, C=0 =====");
91 
      if (r5    !==16'h00fb) tb_error("====== SUBC.B FLAG: Result check error: V=0, N=1, Z=0, C=0 =====");
92 
 
93 
      @(r15==16'h4001);
94 
      if (r2    !==16'h0001) tb_error("====== SUBC.B FLAG: Flag   check error: V=0, N=0, Z=0, C=1 =====");
95 
      if (r5    !==16'h0002) tb_error("====== SUBC.B FLAG: Result check error: V=0, N=0, Z=0, C=1 =====");
96 
 
97 
      @(r15==16'h4002);
98 
      if (r2    !==16'h0003) tb_error("====== SUBC.B FLAG: Flag   check error: V=0, N=0, Z=1, C=1 =====");
99 
      if (r5    !==16'h0000) tb_error("====== SUBC.B FLAG: Result check error: V=0, N=0, Z=1, C=1 =====");
100 
 
101 
      @(r15==16'h4003);
102 
      if (r2    !==16'h0104) tb_error("====== SUBC.B FLAG: Flag   check error: V=1, N=1, Z=0, C=0 =====");
103 
      if (r5    !==16'h00f7) tb_error("====== SUBC.B FLAG: Result check error: V=1, N=1, Z=0, C=0 =====");
104 
 
105 
      @(r15==16'h4004);
106 
      if (r2    !==16'h0101) tb_error("====== SUBC.B FLAG: Flag   check error: V=1, N=0, Z=0, C=1 =====");
107 
      if (r5    !==16'h000a) tb_error("====== SUBC.B FLAG: Result check error: V=1, N=0, Z=0, C=1 =====");
108 
 
109 
 
110 
      stimulus_done = 1;
111 
   end
112 
 

powered by: WebSVN 2.1.0

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