| Line 28... |
Line 28... |
/* */
|
/* */
|
/* Author(s): */
|
/* Author(s): */
|
/* - Olivier Girard, olgirard@gmail.com */
|
/* - Olivier Girard, olgirard@gmail.com */
|
/* */
|
/* */
|
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
/* $Rev: 19 $ */
|
/* $Rev: 111 $ */
|
/* $LastChangedBy: olivier.girard $ */
|
/* $LastChangedBy: olivier.girard $ */
|
/* $LastChangedDate: 2009-08-04 23:47:15 +0200 (Tue, 04 Aug 2009) $ */
|
/* $LastChangedDate: 2011-05-20 22:39:02 +0200 (Fri, 20 May 2011) $ */
|
/*===========================================================================*/
|
/*===========================================================================*/
|
|
|
initial
|
initial
|
begin
|
begin
|
$display(" ===============================================");
|
$display(" ===============================================");
|
| Line 43... |
Line 43... |
repeat(5) @(posedge mclk);
|
repeat(5) @(posedge mclk);
|
stimulus_done = 0;
|
stimulus_done = 0;
|
|
|
// Initialization
|
// Initialization
|
@(r15==16'h1000);
|
@(r15==16'h1000);
|
if (r1 !==16'h0252) tb_error("====== SP initialization =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== SP initialization =====");
|
if (r5 !==16'h0000) tb_error("====== R5 initialization =====");
|
if (r5 !==16'h0000) tb_error("====== R5 initialization =====");
|
|
|
|
|
// Addressing mode: @Rn
|
// Addressing mode: @Rn
|
@(r15==16'h2000);
|
@(r15==16'h2000);
|
if (r1 !==16'h0252) tb_error("====== CALL (@Rn mode): SP value =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== CALL (@Rn mode): SP value =====");
|
if (r5 !==16'h5678) tb_error("====== CALL (@Rn mode): R5 value =====");
|
if (r5 !==16'h5678) tb_error("====== CALL (@Rn mode): R5 value =====");
|
|
|
|
|
// Addressing mode: @Rn+
|
// Addressing mode: @Rn+
|
@(r15==16'h3000);
|
@(r15==16'h3000);
|
if (r1 !==16'h0252) tb_error("====== CALL (@Rn+ mode): SP value =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== CALL (@Rn+ mode): SP value =====");
|
if (r5 !==16'h9abc) tb_error("====== CALL (@Rn+ mode): R5 value =====");
|
if (r5 !==16'h9abc) tb_error("====== CALL (@Rn+ mode): R5 value =====");
|
|
|
// Addressing mode: X(Rn)
|
// Addressing mode: X(Rn)
|
@(r15==16'h4000);
|
@(r15==16'h4000);
|
if (r1 !==16'h0252) tb_error("====== CALL (X(Rn) mode): SP value =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== CALL (X(Rn) mode): SP value =====");
|
if (r5 !==16'hef01) tb_error("====== CALL (X(Rn) mode): R5 value =====");
|
if (r5 !==16'hef01) tb_error("====== CALL (X(Rn) mode): R5 value =====");
|
|
|
|
|
// Addressing mode: EDE
|
// Addressing mode: EDE
|
@(r15==16'h5000);
|
@(r15==16'h5000);
|
if (r1 !==16'h0252) tb_error("====== CALL (EDE mode): SP value =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== CALL (EDE mode): SP value =====");
|
if (r5 !==16'h2345) tb_error("====== CALL (EDE mode): R5 value =====");
|
if (r5 !==16'h2345) tb_error("====== CALL (EDE mode): R5 value =====");
|
|
|
|
|
// Addressing mode: &EDE
|
// Addressing mode: &EDE
|
@(r15==16'h6000);
|
@(r15==16'h6000);
|
if (r1 !==16'h0252) tb_error("====== CALL (&EDE mode): SP value =====");
|
if (r1 !==(`PER_SIZE+16'h0052)) tb_error("====== CALL (&EDE mode): SP value =====");
|
if (r5 !==16'h6789) tb_error("====== CALL (&EDE mode): R5 value =====");
|
if (r5 !==16'h6789) tb_error("====== CALL (&EDE mode): R5 value =====");
|
|
|
|
|
stimulus_done = 1;
|
stimulus_done = 1;
|
end
|
end
|
